TIUTSK ; SLC/JER - TIU's Nightly Daemon ;01/30/23 14:09
Source file <TIUTSK.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MAIN | ;
; All records are read. DC date updated, Record purged, Alerts are ; generated if appropriate |
|
UPDDCDT(TIUDA) | ; If missing DC date & Patient Movement file has DC date,
; DC date updated. |
|
PURGE(DA) | ; When purge criteria met, document and addenda purged
|
|
FIXDC(DA,PARENT,DFN,TIU) | ; Stuff fixed field data
|
|
OVERDUE(TIUDA,TIUSTART,TIUEND) | ;Checks whether or not a given document is overdue
|
|
OVERX | ||
TSKPARM(TIUDA) | ;Calculate a tiu parameter for the nightly task
; TIUDA = 1 return START OF ADD SGNR ALERT PERIOD computation ; TIUDA = 2 return END OF ADD SGNR ALERT PERIOD computation ; TIUDA = 3 return LENGTH OF SIGNER ALERT PERIOD computation |