GMTSPNJ ;SLC/JER - Nightly Job to Queue HS Batch Print-by-Loc ; 08/27/2002
Source file <GMTSPNJ.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MAIN | ; Controls branching
|
|
QUEUE | ; Queues HS batch print for HS Type and Location
|
|
QCONT | ; Used so following can be done for
; multiple dates for Clinics and ORs. |
|
GETDATE(DAYS) | ; Gets desired Visit/Surgery date
; Receives: DAYS=Print Days ahead ; Returns: FileMan Date/time |
|
NONWDAY(GMTSDT) | ; Determines if non work day (i.e. Sat., Sun., or Holiday)
; Returns 1 if print day is weekend or holiday |
|
WKEND(DAY,BEGDT,ENDDT) | ; Updates days in advance for weekend and holiday dates
|
|
HOLIDAY(GMDT) | ; Determines if a date is a Holiday.
; Requires that the Holiday (#40.5) file is updated ; to determine if a date is a holiday. |
|
GETIO(X) | ; Get device for queueing
|
FileNo | Call Tags |
---|---|
^HOLIDAY - [#40.5] | FIND^DIC |