Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMTSPNJ

Package: Health Summary

Routine: GMTSPNJ


Information

GMTSPNJ ;SLC/JER - Nightly Job to Queue HS Batch Print-by-Loc ; 08/27/2002

Source Information

Source file <GMTSPNJ.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZTLOAD  $$DOW^XLFDT  
VA FileMan 2 (C,NOW)^%DTC  (,FIND)^DIC  
Health Summary 1 $$CKPAT^GMTSPD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Summary 1 GMTS TASK STARTUP  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC GETDATE+5, WKEND+2
NOW^%DTC GETDATE+4
^%ZTLOAD QCONT+7
^DIC QUEUE+5, GETIO+2
FIND^DIC HOLIDAY+4
$$CKPAT^GMTSPD QCONT+2
$$DOW^XLFDT NONWDAY+3, WKEND+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HOLIDAY - [#40.5] FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMT(142 - [#142] MAIN+2, MAIN+3, QUEUE+4

Label References

Name Line Occurrences
$$GETDATE QUEUE+11, QUEUE+12, QUEUE+16, QUEUE+26, WKEND+4
$$GETIO QCONT+4
$$HOLIDAY NONWDAY+4, WKEND+4
$$NONWDAY QUEUE+13, QUEUE+30
$$WKEND QUEUE+14
QCONT QUEUE+11, QUEUE+20
QUEUE MAIN+3

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All