CRON jobs, TCL, and HCI all intermingling

######################################################################
# Name:      ftpEpicAdtToPatientCallManager
# Purpose:  
# UPoC type: tps
# Args:      tps keyedlist containing the following keys:
#            MODE    run mode (”start”, “run”, “time” or “shutdown”)
#            MSGID   message handle
#            CONTEXT tps caller context
#            ARGS    user-supplied arguments:
#                    
#
# Returns:   tps disposition list:
#            
#
# Notes:    
#
# History:   MM/DD/YYYY  Programmer  Modification
#            ———-  ———-  ————
#            09/27/2012  R. Masood   Initial creation

package require ftp

proc ftpEpicAdtToPatientCallManager { args } {
   global HciSite HciConnName HciSiteDir
   keylget args MODE mode                         ;# Fetch mode
   set ctx “”   ; keylget args CONTEXT ctx        ;# Fetch tps caller context
   set uargs {} ; keylget args ARGS uargs         ;# Fetch user-supplied args

   set debug 0  ;                                 ;# Fetch user argument DEBUG and
   catch {keylget uargs DEBUG debug}              ;# assume uargs is a keyed list

   set module “ftpEpicAdtToPatientCallManager/$HciConnName/$ctx” ;# Use this before every echo/puts,
                                                  ;# it describes where the text came from

   set dispList {}                                ;# Nothing to return

   switch -exact — $mode {
       start {
           # Perform special init functions
           # N.B.: there may or may not be a MSGID key in args
           
           if { $debug } {
               puts stdout “$module: Starting in debug mode…”
           }
       }

       run {
           # ‘run’ mode always has a MSGID; fetch and process it
           
           keylget args MSGID mh
           lappend dispList “CONTINUE $mh”
       }

       time {
           # Timer-based processing
           # N.B.: there may or may not be a MSGID key in args
           puts “*** UPLOAD PROCESS STARTED ***”
           set ftphostname “ftp.server.com”
           set ftpusername “username”
           set ftppassword “password”
           set now [clock format [clock seconds] -format “%m%d%Y”]
           if { [lsearch -exact [ls $HciSiteDir/exec] monitorShmemFile] == -1 } { exit }
           if { [catch {set PCMmsiTocEntry [msiTocEntry “pcm_a_out”]}] } {
               catch {msiAttach}
               set PCMmsiTocEntry [msiTocEntry “pcm_a_out”]
               }
           set PCMThreadStatus [keylget PCMmsiTocEntry ALIVE]
           set oldadtfile “/data/healthvision/cis5.8/integrator/s_his/data/pcm/pcm_a_out.txt”
           set tmpadtfile “[file rootname $oldadtfile].${now}.tmp[file extension $oldadtfile]”
           if { $PCMThreadStatus } {
               puts “… stopping thread (pcm_a_out) …”
               catch {exec hcicmd -p “epic_adt_01” -c “pcm_a_out pstop”}
               if { [file exist $oldadtfile] } {
                   puts “… renaming file ($oldadtfile) to a temporary location ($tmpadtfile)”
                   file rename -force $oldadtfile $tmpadtfile
                   }
               puts “… starting thread (pcm_a_out)”
               catch {exec hcicmd -p “epic_adt_01” -c “pcm_a_out pstart”}
               } else {
               puts “Thread (pcm_a_out) was not running …”
               if { [file exist $oldadtfile] } {
                   puts “… Renaming file ($oldadtfile) to a temporary location ($tmpadtfile)”
                   file rename -force $oldadtfile $tmpadtfile
                   }
               }
           if { [file exist $tmpadtfile] } {
               set upladtfile “[file dirname $oldadtfile]/EPIC_ADT_TO_PCM_${now}.dat”
               set hdradtfile “[file dirname $oldadtfile]/PCM_Header.dat”
               puts “… making a copy of header file ($hdradtfile) so we can append data to it ($upladtfile)”
               file copy -force $hdradtfile $upladtfile
               puts “… appending data from temporary file ($tmpadtfile) to the file that will be uploaded ($upladtfile)”
               set rfileptr [open $tmpadtfile]
               set wfileptr [open $upladtfile a]
               while { [gets $rfileptr line] >= 0 } {
                   puts $wfileptr $line
                   }
               close $rfileptr
               close $wfileptr
               puts “… deleting temporary file ($tmpadtfile)”
               file delete -force $tmpadtfile
               if {[set conn [ftp::Open $ftphostname $ftpusername $ftppassword]] == -1} {
                   puts “Could not connect to the ftp server ($ftphostname) … ”
                   return
                   }
               puts “… uploading upload file ($upladtfile)”
               ftp::Put $conn $upladtfile
               ftp::Close $conn
               set newadtfile “[file dirname $oldadtfile]/EPIC_ADT_TO_PCM_${now}.sent.dat”
               puts “… saving upload file with new name ($newadtfile)”
               file rename -force $upladtfile $newadtfile
               }
           puts “*** UPLOAD PROCESS ENDED ***”
       }
       
       shutdown {
           # Doing some clean-up work
           
       }
       
       default {
           error “Unknown mode ‘$mode’ in $module”
       }
   }

   return $dispList
}

set cs [clock seconds]

set suffixHour [expr ([clock format $cs -format “%H”] / 12) * 12]

set day [clock format $cs -format “%Y%m%d”]

set currentFileName [format “yourFile_%s%02d00.xyz” $day $suffixHour]

set outFile [open [file joing /yourDir $currentFileName] a]
puts $outFile $msg
close $outFile

set fileNames [glob -nocomplain -tails -directory /yourDir *]
foreach f $fileNames {
 if { $f ne $currentFileName } {
   file rename -force [file join /yourDir $f] [file join /otherDir $f]
 }
}