GMTSPNJ ;SLC/JER - Nightly Job to Queue HS Batch Print-by-Loc ; 08/27/2002
Source file <GMTSPNJ.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMT(142 - [#142] | MAIN+2, MAIN+3, QUEUE+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | GETDATE+3~, GETDATE+4, GETIO+1~ |
| %H | GETDATE+3~, WKEND+1~ |
| %I | GETDATE+3~ |
| %T | GETDATE+3~ |
| %Y | GETIO+1~ |
| BEGDT | QUEUE+2~, QUEUE+12*, QUEUE+13, QUEUE+14, WKEND~, WKEND+2 |
| C | GETIO+1~ |
| DAY | QUEUE+1~, QUEUE+9*, QUEUE+11, QUEUE+12, QUEUE+14, QUEUE+24, WKEND~, WKEND+4*, WKEND+7 |
| DAYNAME | NONWDAY+2~, NONWDAY+3*, NONWDAY+4, WKEND+1~, WKEND+3*, WKEND+4 |
| DAYS | GETDATE~, GETDATE+5 |
| DIC | QUEUE+1~, QUEUE+5*, GETIO+1~, GETIO+2* |
| DIC(0 | QUEUE+5*, GETIO+2* |
| ENDDT | QUEUE+2~, QUEUE+12*, QUEUE+14, WKEND~, WKEND+2, WKEND+4* |
| GMDATE | HOLIDAY+3~ |
| GMDATE("DILIST" | HOLIDAY+5 |
| GMDT | HOLIDAY~, HOLIDAY+4 |
| GMI | WKEND+1~, WKEND+2* |
| GMPSAP | QUEUE+1~, QCONT+3* |
| GMTSCL | MAIN+1~, MAIN+3*, QUEUE+4 |
| GMTSDT | GETDATE+3~, GETDATE+4*, GETDATE+5, NONWDAY~, NONWDAY+3, NONWDAY+4 |
| GMTSDYS | QUEUE+1~ |
| GMTSIO | QUEUE+1~ |
| GMTSLOC | QUEUE+1~, QUEUE+4*, QUEUE+5, QUEUE+9, QCONT+3, QCONT+4 |
| GMTSPM | GETDATE+3~, GETDATE+4*, GETDATE+5 |
| GMTSQ | QUEUE+2~, QUEUE+17, QUEUE+24*, QUEUE+30* |
| GMTSSC | QUEUE+1~, QUEUE+7*, QUEUE+8, QUEUE+11*, QUEUE+19*, QCONT+2 |
| GMTSTYP | MAIN+1~, MAIN+2*, MAIN+3, QUEUE+4 |
| GMV | QUEUE+1~, QCONT+6* |
| GMW | MAIN+1~ |
| NEWDAY | QUEUE+1~, QUEUE+14*, QUEUE+16, QUEUE+22*, QUEUE+24, QUEUE+26 |
| PDATE | QUEUE+2~, QUEUE+16*, QUEUE+19, QUEUE+26*, QUEUE+30 |
| QUEQIT | QUEUE+1~, QUEUE+3* |
| U | QUEUE+6, QUEUE+7, QUEUE+8, QUEUE+9, QUEUE+11, QUEUE+19, QCONT+3, QCONT+4, GETIO+2 |
| X | MAIN+1~, QUEUE+1~, QUEUE+5*, GETDATE+3~, GETDATE+6, WKEND+1~, WKEND+2, WKEND+3, WKEND+4, GETIO~ |
| X1 | GETDATE+3~, GETDATE+5*, WKEND+1~, WKEND+2* |
| X2 | GETDATE+3~, GETDATE+5*, WKEND+1~, WKEND+2* |
| Y | QUEUE+1~, QUEUE+6, QUEUE+7, GETIO+1~, GETIO+2*, GETIO+3 |
| Y(0 | QUEUE+6, QUEUE+7, GETIO+2 |
| >> ZTDESC | QCONT+5* |
| >> ZTDTH | QCONT+5* |
| >> ZTIO | QCONT+4* |
| >> ZTRTN | QCONT+5* |
| >> ZTSAVE( | QCONT+6* |
