Routine: GMTSPCD

Name	Comments	DBIA/ICR reference
QUEUE	; Queues HS batch print for particular HS Type and Location.
GETIO(X)	; Get device for queueing
CLINICQ	; Loop thru clinics for appointments ; Date stored in GMTSCDT
MAIN	; Controls branching
SELDATE()	; Allows entry of Visit/Surgery date or date range ; for Print-by-Clinic

Name	Field # of Occurrence
NOW^%DTC	SELDATE+3
^%ZTLOAD	MAIN+8, QUEUE+13
^DIC	QUEUE+5, GETIO+2
^DIR	MAIN+5, SELDATE+6
MAIL^GMTSMAIL	CLINICQ+6
REGDT4^GMTSU	SELDATE+3
$$SDAPI^SDAMA301	CLINICQ+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will queue Health Summaries for a specified Visit Date" Line Location: MAIN+1
Function Call: WRITE	Prompt: !,"for all Outpatient Clinics with Appointments on that Visit Date.",!! Line Location: MAIN+2
Function Call: WRITE	Prompt: ! Line Location: MAIN+5
Routine Call	DIC Line Location: QUEUE+5 GETIO+2
Routine Call	DIR Line Location: MAIN+5 SELDATE+6

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	CLINICQ+16, QUEUE+3, QUEUE+4
^SC - [#44]	CLINICQ+10
^TMP($J	CLINICQ+6!, CLINICQ+9, CLINICQ+12, CLINICQ+13, CLINICQ+14, CLINICQ+17*, CLINICQ+19, CLINICQ+20!

Name	Line Occurrences
$$GETIO	QUEUE+9
$$SELDATE	MAIN+4
QUEUE	CLINICQ+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETIO+1~, SELDATE+2~, SELDATE+3
%H	SELDATE+2~
%I	SELDATE+2~
%Y	GETIO+1~
C	GETIO+1~
DEFDT	SELDATE+2~, SELDATE+3*, SELDATE+4
DFN	CLINICQ+11~, CLINICQ+12*, CLINICQ+13, CLINICQ+14
DIC	QUEUE+1~, QUEUE+5, GETIO+1~, GETIO+2
DIC(0	QUEUE+5, GETIO+2
DIR	MAIN+5~, SELDATE+2~
DIR("A"	MAIN+5, SELDATE+5
DIR("B"	MAIN+5, SELDATE+4
DIR(0	MAIN+5, SELDATE+4
>> DIROUT	MAIN+5, SELDATE+7*
DT	SELDATE+3*
>> DTOUT	MAIN+5
>> DUOUT	MAIN+5
GMPSAP	QUEUE+1~, QUEUE+8*
GMTSARR	CLINICQ+2~, CLINICQ+4
GMTSARR("FLDS"	CLINICQ+4*
GMTSARR(1	CLINICQ+4*
GMTSCDT	MAIN+3~, MAIN+4*, CLINICQ+4, QUEUE+7
GMTSCL	CLINICQ+2~, CLINICQ+19*, QUEUE+3
GMTSCLI	QUEUE+1~, QUEUE+3*, QUEUE+4
GMTSCNT	CLINICQ+2~, CLINICQ+4*, CLINICQ+6, CLINICQ+8
GMTSDYS	QUEUE+1~
GMTSI	CLINICQ+9~*, CLINICQ+10, CLINICQ+12, CLINICQ+13, CLINICQ+14, CLINICQ+16, CLINICQ+17
GMTSIO	QUEUE+1~
GMTSJ	CLINICQ+2~, CLINICQ+19*
GMTSLOC	CLINICQ+2~, QUEUE+1~, QUEUE+4*, QUEUE+5, QUEUE+8, QUEUE+9
GMTSSC	QUEUE+1~
GMTSSC(1	QUEUE+7*
GMTSTYP	CLINICQ+2~, CLINICQ+19*, QUEUE+3, QUEUE+4
GMV	QUEUE+1~, QUEUE+11*
NAME	CLINICQ+11~, CLINICQ+15*, CLINICQ+17
QUEQIT	QUEUE+1~, QUEUE+2*
TEMP	CLINICQ+11~, CLINICQ+14*, CLINICQ+15
TIME	CLINICQ+11~, CLINICQ+13*, CLINICQ+14
TYPE	CLINICQ+11~, CLINICQ+16*, CLINICQ+17
U	CLINICQ+10, CLINICQ+14, QUEUE+6, QUEUE+7, QUEUE+8, QUEUE+9, GETIO+2
X	QUEUE+1~, QUEUE+5, GETIO~, SELDATE+2~, SELDATE+3
Y	MAIN+6, QUEUE+1~, QUEUE+6, QUEUE+7, GETIO+1~, GETIO+2*, GETIO+3, SELDATE+2~, SELDATE+7, SELDATE+8
Y(0	QUEUE+6, QUEUE+7, GETIO+2
>> ZTDESC	MAIN+7, QUEUE+10
>> ZTDTH	MAIN+6, QUEUE+10
>> ZTIO	MAIN+6, QUEUE+9
>> ZTRTN	MAIN+7, QUEUE+10
>> ZTSAVE(	QUEUE+11*
>> ZTSAVE("GMTSCDT"	MAIN+6*
>> ZTSAVE("GMTSSC("	QUEUE+12*

Customize PDF page

Package: Health Summary

Routine: GMTSPCD

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: