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 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

Caller Graph Total: 1

Package	Total	Caller Graph
Health Summary	1	GMTS TASK STARTUP

Entry Points

Name	Comments	DBIA/ICR reference
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
QCONT	; Used so following can be done for ; multiple dates for Clinics and ORs.
QUEUE	; Queues HS batch print for HS Type and Location
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
MAIN	; Controls branching
GETDATE(DAYS)	; Gets desired Visit/Surgery date ; Receives: DAYS=Print Days ahead ; Returns: FileMan Date/time

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*

Customize PDF page

Package: Health Summary

Routine: GMTSPNJ

Call Graph Total: 5

Caller Graph Total: 1