Routine: GMTSPL

Information

GMTSPL ; SLC/JER,KER - Print/Queue HS for Patient Lists ; 02/27/2002 [1/27/05 8:27am]

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Health Summary	7	SELTYP1^GMTS EN^GMTS1 ^GMTSLTR MAIL^GMTSMAIL (REGDT4,REGDTM4)^GMTSU $$TYPE^GMTSULT HEADER^GMTSUP
VA Fileman	3	(C,NOW)^%DTC $$GET1^DIQ ^DIR
Kernel	1	$$UP^XLFSTR
Outpatient Pharmacy	1	DFN^PSOSD1
Scheduling	1	GETPLIST^SDAMA202

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Health Summary	2	GMTSDVR GMTSPD2

Entry Points

Name	Comments	DBIA/ICR reference
WARD(LOC)	; Gets list of patients for a ward
ORX	; Exit Surgery
CTRL	; Controls Branching
PAT(LOC)	; Checks for patients at selected location
DRIVER	; Sets variables for GMTS1 and calls ^%ZTLOAD
NOPAT(LOC)	; Handles unpopulated Hospital location
OR(LOC)	; Gets list of patients scheduled for surgery
CLINIC(LOC)	; Gets list of next-day appointments for clinic
MAIN	; Print/Queue for Patient Lists ; ; Call with: ; ; GMTSTYP = Pointer to file 142 ; GMTSSC = Pointer to file 44^Hosp Loc Name^ ; Hosp Loc Type^Begin Visit/Surg Date^ ; Opt end Visit/Surgery Date ; GMTSSC() = GMTSSC - Array of multiple locations ; [GMPSAP] = Optional flag set to 1 if OP Rx ; Action Profile is to print ;
PAGE	; Pause at BOP for interactive users

External References

Name	Field # of Occurrence
C^%DTC	CLINIC+7, PAT+5, PAT+23
NOW^%DTC	NOPAT+2, CLINIC+3
$$GET1^DIQ	MAIN+18, MAIN+19
^DIR	PAGE+6
SELTYP1^GMTS	DRIVER+8
EN^GMTS1	DRIVER+8
^GMTSLTR	CTRL+5
MAIL^GMTSMAIL	CLINIC+14, PAT+12
REGDT4^GMTSU	CLINIC+4, CLINIC+5, CLINIC+20, WARD+6, OR+9
REGDTM4^GMTSU	NOPAT+2
$$TYPE^GMTSULT	NOPAT+3, DRIVER+6
HEADER^GMTSUP	NOPAT+5
DFN^PSOSD1	CTRL+16
GETPLIST^SDAMA202	CLINIC+9, PAT+7
$$UP^XLFSTR	DRIVER+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ALL" Line Location: CTRL+6
Function Call: WRITE	Prompt: @IOF Line Location: NOPAT+5
Function Call: WRITE	Prompt: !!,"No Patients found at ",LOC," location.",! Line Location: NOPAT+5
Routine Call	DIR Line Location: PAGE+6

FileNo	Call Tags
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	CTRL+15
^DIC(42 - [#42]	WARD+2, PAT+3
^DPT - [#2]	WARD+7, OR+7
^DPT("CN"	WARD+3, WARD+4, PAT+3
^GMT(142 - [#142]	NOPAT+2, NOPAT+4, DRIVER+5, DRIVER+7
^GMT(142.99 - [#142.99]	CTRL+14
^SC - [#44]	MAIN+17, WARD+2, PAT+3
^SRF - [#130]	OR+6
^SRF("AOR"	OR+4, OR+5, PAT+21, PAT+23
^SRS("B"	OR+2, PAT+20
^TMP("GMTSPL"	CTRL+1!, CTRL+6, CTRL+7, CTRL+8, CTRL+9, CTRL+17!, CLINIC+23, WARD+7, OR+10*, DRIVER+5
^TMP($J	CLINIC+12, CLINIC+14, CLINIC+15!, CLINIC+16, CLINIC+18, CLINIC+21, CLINIC+22, CLINIC+24!, PAT+10, PAT+12 , PAT+13!, PAT+15, PAT+16, PAT+17!
^XMB(1 - [#4.3]	CTRL+15

Label References

Name	Line Occurrences
$$CLINIC	CTRL+3
$$PAT	MAIN+22
CTRL	MAIN+23, MAIN+24, MAIN+27
DRIVER	CTRL+11
NOPAT	CTRL+7
OR	CTRL+3
ORX	OR+2
PAGE	CTRL+16
WARD	CTRL+3

Naked Globals

Name	Field # of Occurrence
^(	OR+10
^("T"	NOPAT+4, DRIVER+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOPAT+1~, NOPAT+2, CLINIC+1~, OR+1~, PAT+1~
%H	NOPAT+1~, CLINIC+1~, OR+1~, PAT+1~
%I	NOPAT+1~, CLINIC+1~, OR+1~
%T	NOPAT+1~, CLINIC+1~, OR+1~, PAT+1~, DRIVER+1~
%Y	NOPAT+1~, CLINIC+1~, OR+1~
BEG	MAIN+14~, MAIN+15*, MAIN+16
C	DRIVER+1~
COR	MAIN+14~, MAIN+19*, MAIN+20, MAIN+21
D0	DRIVER+1~
DFN	CTRL+1~, CTRL+11, PAGE+2, WARD+1~, WARD+4, WARD+7, OR+1~, OR+6*, OR+7, OR+10 , DRIVER+5
DIC	NOPAT+3!, DRIVER+6!
DIC(0	NOPAT+3, DRIVER+6
DIR	PAGE+1~
DIR("?"	PAGE+5*
DIR("A"	PAGE+4*
DIR(0	PAGE+4*
>> DIROUT	MAIN+26, CTRL+8, CTRL+9, CTRL+11, PAGE+6*
DT	WARD+6
END	MAIN+14~, MAIN+15*, MAIN+16
GMBDT	CLINIC+1~, CLINIC+4*, CLINIC+23
GMBEG	OR+1~, OR+3, OR+4, OR+5, OR+9, PAT+1~, PAT+22, PAT+23
GMDATE	CLINIC+1~, CLINIC+20*, CLINIC+23
GMDFN	CLINIC+1~, CLINIC+21*, CLINIC+23
GMDT	CLINIC+1~, WARD+1~, WARD+6, WARD+7, OR+1~, OR+9, OR+10
GMDUOUT	CTRL+10~, CTRL+11
GMEDT	CLINIC+1~, CLINIC+5*, CLINIC+23
GMEND	OR+1~, OR+3*, OR+4
GMI	CLINIC+1~, CLINIC+2, CLINIC+16, CLINIC+18, CLINIC+21, CLINIC+22, OR+1~, OR+2*, OR+4, OR+5
GMJ	OR+1~, OR+5*, OR+6
GMLOC	WARD+1~, WARD+2*, WARD+3, WARD+4
GMLTYPE	CTRL+1~, CTRL+3*
GMNAME	CLINIC+1~, CLINIC+22*, CLINIC+23
>> GMPAT(	PAGE+2
>> GMPAT(""	PAGE+2
GMPNM	CTRL+1~, CTRL+8, CTRL+9, CLINIC+1~, OR+1~, OR+7, OR+10, DRIVER+5
>> GMPSAP	CTRL+12
GMTDFN	CTRL+1~, CTRL+9*, CTRL+11
GMTS	NOPAT+1~, DRIVER+1~
GMTS0	DRIVER+1~
GMTS1	DRIVER+1~
GMTS2	DRIVER+1~
GMTSAGE	DRIVER+3~
GMTSBYE	CTRL+2~, CTRL+3, CTRL+4
GMTSCDT	CLINIC+1~, CLINIC+2, CLINIC+3, CLINIC+4, CLINIC+7, CLINIC+9, PAT+1~, PAT+6*, PAT+7, DRIVER+3~
GMTSCDT(0	DRIVER+5*
GMTSDATE	PAT+1~, PAT+14, PAT+16, PAT+18
GMTSDOB	DRIVER+1~
GMTSDTM	NOPAT+1~, NOPAT+2*, DRIVER+1~
GMTSEG	DRIVER+2~, DRIVER+8
GMTSEGC	DRIVER+2~
GMTSEGI	DRIVER+2~
GMTSERR	CLINIC+11~, CLINIC+12, CLINIC+13, CLINIC+14, PAT+9~, PAT+10, PAT+11, PAT+12
GMTSEXIT	MAIN+12~*, MAIN+17
GMTSHDR	NOPAT+1~
GMTSI	PAT+14~, PAT+15, PAT+16
GMTSLAST	CLINIC+1~, CLINIC+8*, CLINIC+9, CLINIC+19
GMTSLFG	NOPAT+1~, NOPAT+4*
GMTSLO	DRIVER+1~
GMTSLOCK	DRIVER+1~
GMTSLPG	DRIVER+2~
GMTSLTR	CTRL+1~, CTRL+5*
GMTSPG	NOPAT+1~
GMTSPHDR	DRIVER+3~
GMTSPNM	DRIVER+2~
GMTSRB	DRIVER+2~
GMTSRES	CLINIC+1~, CLINIC+9, CLINIC+10, PAT+1~, PAT+7, PAT+8
GMTSSC	MAIN+15, MAIN+18~, MAIN+20, MAIN+21, MAIN+22, MAIN+27*, CTRL+3, CTRL+5, CTRL+7
GMTSSC(	MAIN+26, MAIN+27
GMTSSC("ALL"	MAIN+13, CTRL+6
GMTSSC(0	MAIN+24, MAIN+25
GMTSSN	DRIVER+3~
GMTSTITL	NOPAT+1~, NOPAT+4, DRIVER+3~, DRIVER+7
GMTSTN	NOPAT+1~, NOPAT+2, NOPAT+3, DRIVER+2~, DRIVER+5, DRIVER+6
GMTSTOF	DRIVER+3~
>> GMTSTYP	NOPAT+2, DRIVER+5
GMTSWARD	DRIVER+3~
GMTSX	DRIVER+3~
GMW	DRIVER+4~
GMY	PAT+1~, PAT+3, PAT+5, PAT+18, PAT+20, PAT+21, PAT+22, PAT+23*, PAT+24
I	DRIVER+4~
IEN	MAIN+14~, MAIN+17*, MAIN+18, MAIN+19, MAIN+20
IO	CTRL+1
IOF	NOPAT+5
IOSL	PAGE+2, PAGE+3
IOST	CTRL+5, PAGE+2
>> IOT	PAGE+2
LOC	NOPAT~, NOPAT+5, CLINIC~, CLINIC+2, CLINIC+5, CLINIC+6, CLINIC+7, CLINIC+9, WARD~, WARD+2 , OR~, OR+2, OR+3, PAT~, PAT+1, PAT+3*, PAT+4, PAT+5, PAT+6, PAT+7 , PAT+20, PAT+21, PAT+22
LTYPE	PAT+1~*, PAT+2, PAT+18, PAT+19
MULTLOC	MAIN+12~, MAIN+26*, MAIN+27
NAM	MAIN+18~*, MAIN+20
OLOC	PAT+20~*, PAT+21, PAT+22, PAT+23
PAT	MAIN+14~, MAIN+22*
PRM	MAIN+14~, MAIN+15*
PSOINST	CTRL+1~, CTRL+15*
PSONOPG	CTRL+1~, CTRL+13*
PSOPAR	CTRL+1~, CTRL+14*
PSTYPE	CTRL+1~, CTRL+13*
RAN	MAIN+14~, MAIN+16*, MAIN+21
SEX	DRIVER+4~
U	CTRL+3, CTRL+5, CTRL+7, CTRL+14, CTRL+15, NOPAT+4, CLINIC+2, CLINIC+5, CLINIC+6, CLINIC+7 , CLINIC+22, WARD+2, WARD+7, OR+3, OR+7, PAT+1, PAT+3, PAT+4, PAT+5, PAT+6 , PAT+21, PAT+22, DRIVER+7
VA	DRIVER+4~
VADM	DRIVER+4~
VAIN	DRIVER+4~
VAINDT	DRIVER+4~
VAROOT	DRIVER+4~
VDT	CLINIC+1~
X	PAGE+1~, PAGE+6, NOPAT+1~, NOPAT+2, NOPAT+3, CLINIC+1~, CLINIC+3, CLINIC+4, CLINIC+5, CLINIC+8 , CLINIC+17~, CLINIC+18, CLINIC+19, CLINIC+20, WARD+1~, WARD+5~, WARD+6, OR+1~, OR+8~, OR+9* , PAT+1~, PAT+7, PAT+16, PAT+18, PAT+23, DRIVER+4~, DRIVER+6*
X1	CLINIC+1~, CLINIC+6, CLINIC+7, OR+1~, PAT+1~, PAT+5, PAT+23
X2	CLINIC+1~, CLINIC+6, CLINIC+7, OR+1~, PAT+1~, PAT+5, PAT+23
Y	PAGE+1~, NOPAT+1~, NOPAT+3, NOPAT+4, CLINIC+1~, WARD+1~, OR+1~, PAT+1~, DRIVER+4~, DRIVER+6 , DRIVER+7

Customize PDF page

Package: Health Summary

Routine: GMTSPL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: