Routine: GMTSPD

Package	Total	Call Graph
Health Summary	4	MAIL^GMTSMAIL ($$RXAP,HSOUT)^GMTSPD2 REGDT4^GMTSU $$TYPE^GMTSULT
VA Fileman	3	(C,NOW)^%DTC ^DIC ^DIR
Kernel	1	$$UP^XLFSTR
Scheduling	1	GETPLIST^SDAMA202

Package	Total	Caller Graph
Health Summary	2	GMTS HS BY LOC GMTSPNJ

Entry Points

Name	Comments	DBIA/ICR reference
CONT	; Continue Displaying List
CKPAT(LOC)	; Checks for patients at selected location
SELTYP()	; Select Health Summary type
ASK2
A1	; Single ? Help
ASK	; Prompt for One or ALL
A2	; Double ?? Help
CHKLOC(LOC)	; Get date range for Clinics/ORs
SELLOC(GMX)	; Select multiple Hospital Location
C1	; Continue Help
MAIN	; Interactive Print by Location
SELDATE()	; Visit/Surgery date range for Print-by-Clinic

External References

Name	Field # of Occurrence
C^%DTC	CKPAT+8, CKPAT+9, CKPAT+31
NOW^%DTC	SELDATE+3
^DIC	SELLOC+7, ASK2+9
^DIR	ASK2+3, CONT+3, SELDATE+6, SELDATE+13
MAIL^GMTSMAIL	CKPAT+17
$$RXAP^GMTSPD2	MAIN+8
HSOUT^GMTSPD2	MAIN+9
REGDT4^GMTSU	SELDATE+3, SELDATE+10
$$TYPE^GMTSULT	SELTYP+5
GETPLIST^SDAMA202	CKPAT+11
$$UP^XLFSTR	ASK2+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MAIN+9
Function Call: WRITE	Prompt: !,"This Summary Type includes no components...Please choose another." Line Location: SELTYP+7
Function Call: WRITE	Prompt: " ",LAST Line Location: ASK2+4
Function Call: WRITE	Prompt: ! Line Location: ASK2+10
Function Call: WRITE	Prompt: " ??",!!,?5,"Not a ward, clinic or operating room" Line Location: ASK2+11
Function Call: WRITE	Prompt: !," Answer with HOSPITAL LOCATION NAME, or ABBREVIATION, TEAM or 'ALL'" Line Location: A1+1
Function Call: WRITE	Prompt: !," for all hospital locations. Enter '^' to return to Health Summary" Line Location: A1+2
Function Call: WRITE	Prompt: !," Type Selection or '^^' to exit." Line Location: A1+3
Function Call: WRITE	Prompt: ! Line Location: A2+2
Function Call: WRITE	Prompt: !,?3,"Choose from:" Condition for execution: GMTSC=1 Line Location: A2+6
Function Call: WRITE	Prompt: !,?3,GMTSL Line Location: A2+6
Function Call: WRITE	Prompt: !," Enter ether RETURN or '^'" Line Location: C1+1
Routine Call	DIC Line Location: SELLOC+7 ASK2+9
Routine Call	DIR Line Location: ASK2+3 CONT+3 SELDATE+6 SELDATE+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	CKPAT+4
^DISV(	SELTYP+2, ASK2+1
^DPT("CN"	CKPAT+5
^GMT(142 - [#142]	SELTYP+2, SELTYP+6
^SC - [#44]	ASK2+1, ASK2+4, A2+5, CKPAT+4
^SC("B"	A2+3, A2+4
^SRF("AOR"	CKPAT+26, CKPAT+30
^SRS("B"	CKPAT+25
^TMP($J	CKPAT+15, CKPAT+17, CKPAT+18!, CKPAT+20, CKPAT+21, CKPAT+22!
^XUSEC("GMTS VIEW ONLY"	SELLOC+3

Label References

Name	Line Occurrences
$$SELDATE	CHKLOC+2
$$SELTYP	MAIN+4
A1	A2+2
ASK	SELLOC+6
ASK2	ASK2+10
CHKLOC	MAIN+7
CONT	A2+7
SELLOC	MAIN+6

Naked Globals

Name	Field # of Occurrence
^(0	SELTYP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SELDATE+1~, SELDATE+3, CKPAT+1~
%H	SELDATE+1~, CKPAT+1~
%I	SELDATE+1~
%T	CKPAT+1~
DA	CONT+2~
DEFDT	SELDATE+1~, SELDATE+3, SELDATE+4, SELDATE+10, SELDATE+11
DIC	SELTYP+1~, SELTYP+3, SELLOC+1~, SELLOC+2, ASK+1~, ASK2+7*
DIC("A"	SELTYP+3, SELLOC+2, SELLOC+12*
DIC("B"	SELTYP+2*
DIC("S"	SELTYP+4, SELLOC+4, ASK2+8*
DIC(0	SELTYP+4, SELLOC+2, ASK2+7*
DIR	SELLOC+1~, ASK+1~, CONT+2~, SELDATE+1~
DIR("?"	ASK2+2, CONT+2
DIR("??"	ASK2+2, CONT+2
DIR("A"	ASK2, CONT+2, SELDATE+5, SELDATE+12
DIR("B"	SELDATE+4, SELDATE+11
DIR(0	ASK2+2, CONT+2, SELDATE+4, SELDATE+11
DIROUT	MAIN+2!, MAIN+3, MAIN+4, MAIN+5, MAIN+6, MAIN+7, MAIN+8, MAIN+9~, SELTYP+5, SELLOC+5 , SELLOC+7, SELLOC+8, ASK2+12, CONT+2~, CHKLOC+1, SELDATE+7, SELDATE+14*
DIRUT	CONT+2~
DT	SELDATE+3*
DTOUT	MAIN+7, MAIN+8, SELLOC+5, CONT+2~, CHKLOC+1
DUOUT	MAIN+5, MAIN+6!, MAIN+7, MAIN+8, MAIN+9*, SELLOC+5, CONT+2~, CHKLOC+1
DUZ	SELTYP+2, SELLOC+3, ASK2+1
ERR	ASK+1~, ASK2+7*, ASK2+10
GMBEG	SELDATE+1~, SELDATE+2, SELDATE+8, SELDATE+9, SELDATE+10, SELDATE+16, CKPAT+1~, CKPAT+28, CKPAT+29, CKPAT+30 , CKPAT+31
GMEND	SELDATE+1~, SELDATE+2, SELDATE+15, SELDATE+16
GMLOC	MAIN+1~, CHKLOC+3*, CHKLOC+4
GMPSAP	MAIN+1~, MAIN+8*
GMTSA	A2+1~, A2+2, A2+5, A2+7, CONT+1*
GMTSC	A2+1~, A2+2, A2+5, A2+6
GMTSCDT	MAIN+1~, CKPAT+1~, CKPAT+10*, CKPAT+11
GMTSDATE	CKPAT+1~, CKPAT+19, CKPAT+21, CKPAT+23
GMTSE	A2+1~, A2+2, A2+3, A2+4, CONT+3
GMTSERR	CKPAT+14~, CKPAT+15*, CKPAT+16, CKPAT+17
>> GMTSEXIT	ASK2+12*
GMTSI	A2+1~, A2+4, A2+5, CKPAT+19~, CKPAT+20*, CKPAT+21
GMTSL	A2+1~, A2+5*, A2+6
GMTSLC	SELLOC+1~, SELLOC+2, SELLOC+3, SELLOC+5, SELLOC+6, SELLOC+7, ASK2+6
GMTSN	A2+1~, A2+2, A2+3, A2+4
GMTSP	A2+1~, A2+7, CONT+1
GMTSRES	CKPAT+1~, CKPAT+11, CKPAT+12
GMTSSC	MAIN+1~, MAIN+5, MAIN+6!, MAIN+7
GMTSSC("ALL"	MAIN+5
GMTSSC(0	MAIN+7
GMTSTN	MAIN+1~
GMTSTYP	MAIN+1~, MAIN+2, MAIN+3, MAIN+4, SELTYP+2
GMX	SELLOC~, SELLOC+10, SELLOC+11, ASK2+6!*
GMX(	SELLOC+5, SELLOC+9*
GMX("ALL"	SELLOC+6, ASK2+6*
GMX(1	ASK2+6*
GMY	CKPAT+1~, CKPAT+5, CKPAT+7, CKPAT+13, CKPAT+23, CKPAT+25, CKPAT+26, CKPAT+29, CKPAT+30*, CKPAT+32
IOSL	A2+1, CONT+1
LAST	ASK+1~, ASK2+1*, ASK2+3, ASK2+4
LASTI	ASK+1~, ASK2+1*, ASK2+3, ASK2+4
LOC	SELLOC+1~, CHKLOC~, CHKLOC+1, CHKLOC+2, CHKLOC+4, CKPAT~, CKPAT+2, CKPAT+4, CKPAT+5, CKPAT+6 , CKPAT+8, CKPAT+9, CKPAT+10, CKPAT+11, CKPAT+25, CKPAT+26, CKPAT+27, CKPAT+28, CKPAT+29
LOC(	CHKLOC+3, CHKLOC+4*
LTYPE	CKPAT+1~, CKPAT+2*, CKPAT+3, CKPAT+23, CKPAT+24
OLOC	CKPAT+25~*, CKPAT+26, CKPAT+27, CKPAT+30
U	SELTYP+2, SELLOC+9, SELLOC+10, SELLOC+11, CHKLOC+1, CHKLOC+2, CHKLOC+4, SELDATE+16, CKPAT+2, CKPAT+4 , CKPAT+6, CKPAT+8, CKPAT+9, CKPAT+10, CKPAT+26, CKPAT+27, CKPAT+28, CKPAT+29
X	SELTYP+1~, SELTYP+5, SELLOC+1~, SELLOC+8, ASK2+3, ASK2+4, ASK2+10, ASK2+12, CONT+2~, SELDATE+1~ , SELDATE+3, SELDATE+10*, CKPAT+1~, CKPAT+11, CKPAT+21, CKPAT+23, CKPAT+31
X1	CKPAT+1~, CKPAT+8, CKPAT+9, CKPAT+31*
X2	CKPAT+1~, CKPAT+8, CKPAT+9, CKPAT+31*
Y	SELTYP+1~, SELTYP+5, SELTYP+6, SELTYP+8, SELLOC+1~, SELLOC+5, SELLOC+8, SELLOC+9, SELLOC+10, ASK2+4 , ASK2+5, ASK2+12, CONT+2~, CONT+3, SELDATE+1~, SELDATE+7, SELDATE+8, SELDATE+14, SELDATE+15, CKPAT+1~
Y(0	SELLOC+9, SELLOC+11, ASK2+4*

Customize PDF page

Package: Health Summary

Routine: GMTSPD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: