Routine: GMTSUP

Package	Total	Call Graph
Health Summary	5	LOAD^GMTSADH CMPLIM^GMTSADH2 EN^GMTSHCPR $$HF^GMTSU $$TYPE^GMTSULT
Kernel	1	EN^XQORM
VA Fileman	1	^DIR

Package

Total

Call Graph

Health Summary

LOAD^GMTSADH CMPLIM^GMTSADH2 EN^GMTSHCPR $$HF^GMTSU $$TYPE^GMTSULT

Kernel

EN^XQORM

VA Fileman

^DIR

Package	Total	Caller Graph
Health Summary Components	79	BHSAAP1 BHSAAP2 BHSALG BHSAMI BHSAPRO BHSAST BHSBCH BHSBDEM BHSBH BHSBH1 BHSCOAG BHSCPT BHSCPT1 BHSDEM BHSDEN BHSDEN0 BHSDEN1 BHSDEN2 BHSDM1 BHSDMPRE BHSDTUR BHSEDASS BHSENC BHSENC2 BHSENCS BHSENCW BHSEXAM BHSEXAM1 BHSEYEKG BHSFAM1 BHSFH BHSFH1 BHSFLOA BHSFLOW BHSHOS BHSHS1 BHSHS2 BHSHS3 BHSINSUR BHSLAB BHSLAB1 BHSLABA BHSLABB BHSMBN BHSMEA BHSMEAIP BHSMEAP BHSMED BHSMEDAL BHSMEDCS BHSMEDG BHSMEDH BHSMEDI BHSMEDR BHSMEDSF BHSMSUP BHSMSUP1 BHSNRS BHSNT BHSOB BHSPED BHSPHN BHSPL BHSPL1 BHSPL2 BHSPLAN BHSPLOB BHSPLST BHSPLST1 BHSPMH BHSPSO7A BHSPWHG BHSRAD BHSRCIS BHSSKIN BHSSUPP BHSSUR BHSUTL BHSWH
Health Summary	77	GMTS1 GMTS2 GMTSALG GMTSALGB GMTSAMIE GMTSCNB GMTSDA GMTSDCB GMTSDEM GMTSDEMB GMTSDGA1 GMTSDGA2 GMTSDGC1 GMTSDGC2 GMTSDGCH GMTSDGD GMTSDGH GMTSDGP GMTSFH GMTSGAF GMTSGEC GMTSLRA GMTSLRB GMTSLRC GMTSLRCP GMTSLREM GMTSLRM GMTSLRM1 GMTSLRMB GMTSLROB GMTSLROS GMTSLRS GMTSLRS7 GMTSLRSC GMTSLRT GMTSMAG GMTSMCPS GMTSMCPZ GMTSMCZZ GMTSMHPE GMTSONE1 GMTSORC3 GMTSPL GMTSPLST GMTSPN GMTSPN1 GMTSPN2 GMTSPNB GMTSPSG GMTSPSG5 GMTSPSHO GMTSPSI GMTSPSI5 GMTSPSO GMTSPSO7 GMTSPSZO GMTSPXEP GMTSPXFP GMTSPXHP GMTSPXHR GMTSPXIM GMTSPXOP GMTSPXSK GMTSPXTP GMTSPXXP GMTSRAD GMTSRAI GMTSRAS GMTSRASP GMTSRO GMTSROB GMTSRON GMTSSCD GMTSSOWK GMTSVS GMTSVSD GMTSVSS
Outpatient Pharmacy	6	PSOQ0236 PSOQ0595 PSOQMCAL PSOQRART PSOQUAP PSOQUAP2
Clinical Scheduling for Windows	1	BSDX41C
Problem List	1	GMPLHSPL

Package

Total

Caller Graph

Health Summary Components

BHSAAP1  BHSAAP2  BHSALG  BHSAMI  BHSAPRO  BHSAST  BHSBCH  BHSBDEM
BHSBH  BHSBH1  BHSCOAG  BHSCPT  BHSCPT1  BHSDEM  BHSDEN  BHSDEN0
BHSDEN1  BHSDEN2  BHSDM1  BHSDMPRE  BHSDTUR  BHSEDASS  BHSENC  BHSENC2
BHSENCS  BHSENCW  BHSEXAM  BHSEXAM1  BHSEYEKG  BHSFAM1  BHSFH  BHSFH1
BHSFLOA  BHSFLOW  BHSHOS  BHSHS1  BHSHS2  BHSHS3  BHSINSUR  BHSLAB
BHSLAB1  BHSLABA  BHSLABB  BHSMBN  BHSMEA  BHSMEAIP  BHSMEAP  BHSMED
BHSMEDAL  BHSMEDCS  BHSMEDG  BHSMEDH  BHSMEDI  BHSMEDR  BHSMEDSF  BHSMSUP
BHSMSUP1  BHSNRS  BHSNT  BHSOB  BHSPED  BHSPHN  BHSPL  BHSPL1
BHSPL2  BHSPLAN  BHSPLOB  BHSPLST  BHSPLST1  BHSPMH  BHSPSO7A  BHSPWHG
BHSRAD  BHSRCIS  BHSSKIN  BHSSUPP  BHSSUR  BHSUTL  BHSWH

Health Summary

GMTS1  GMTS2  GMTSALG  GMTSALGB  GMTSAMIE  GMTSCNB  GMTSDA  GMTSDCB
GMTSDEM  GMTSDEMB  GMTSDGA1  GMTSDGA2  GMTSDGC1  GMTSDGC2  GMTSDGCH  GMTSDGD
GMTSDGH  GMTSDGP  GMTSFH  GMTSGAF  GMTSGEC  GMTSLRA  GMTSLRB  GMTSLRC
GMTSLRCP  GMTSLREM  GMTSLRM  GMTSLRM1  GMTSLRMB  GMTSLROB  GMTSLROS  GMTSLRS
GMTSLRS7  GMTSLRSC  GMTSLRT  GMTSMAG  GMTSMCPS  GMTSMCPZ  GMTSMCZZ  GMTSMHPE
GMTSONE1  GMTSORC3  GMTSPL  GMTSPLST  GMTSPN  GMTSPN1  GMTSPN2  GMTSPNB
GMTSPSG  GMTSPSG5  GMTSPSHO  GMTSPSI  GMTSPSI5  GMTSPSO  GMTSPSO7  GMTSPSZO
GMTSPXEP  GMTSPXFP  GMTSPXHP  GMTSPXHR  GMTSPXIM  GMTSPXOP  GMTSPXSK  GMTSPXTP
GMTSPXXP  GMTSRAD  GMTSRAI  GMTSRAS  GMTSRASP  GMTSRO  GMTSROB  GMTSRON
GMTSSCD  GMTSSOWK  GMTSVS  GMTSVSD  GMTSVSS

Outpatient Pharmacy

PSOQ0236 PSOQ0595 PSOQMCAL PSOQRART PSOQUAP PSOQUAP2

Clinical Scheduling for Windows

BSDX41C

Problem List

GMPLHSPL

Entry Points

Name	Comments	DBIA/ICR reference
CHDR(X)	; Component Header
MUL(X)	; Multiple Components in Type
NOLIM	; No limits
LABDAT	; Label/Date
FST(X)	; First Component in Type
LABEL	; Label
BREAK	; Writes the Component Header ; ; If the variable GMTSOBJ exist, then the ; Component Headers are suppressed with the ; following exceptions: ; ; If GMTSOBJ("COMPONENT HEADER") exist, ; then the Component Header will NOT be ; suppressed ; ; If GMTSOBJ("BLANK LINE") exist, a blank ; line will be written after the Component ; Header ;
HEADER	; Print Running Header ; ; If the variable GMTSOBJ exist, then the ; Report Headers are suppressed with the ; following exceptions: ; ; If GMTSOBJ("DATE LINE") exist, then the ; Location/Report Date line will NOT be ; suppressed. ; ; If GMTSOBJ("CONFIDENTIAL") exist, then ; the Confidential Header Name line will ; NOT be suppressed. ; ; If GMTSOBJ("REPORT HEADER") exist, then ; the Report Header containing the patient's ; name, SSAN, ward and DOB will NOT be ; suppressed. ; ; If the variable GMTSOBJ("LABEL") contains ; text, and the variable GMTSOBJ("USE LABEL") ; exist, then this text will be printed before ; the object text. ; ; If GMTSOBJ("REPORT DECEASED") exist, then ; the optional line that displays for Deceased ; patients will NOT be suppressed. ; ; Header Lines:
BRNCH	; Checks abbreviation to branch to a different component
OLDB	;
CKP	; Check page position, pause and prompt	ICR #4231 Status: Active Usage: Private
EVAL	; Evaluate input to determine quit or continue
CKP1	; Help Display of Optional Components for Navigation
CNAM(X)	; Component Name

Name	Field # of Occurrence
^DIR	CKP1+2
LOAD^GMTSADH	BRNCH+7
CMPLIM^GMTSADH2	BRNCH+10
EN^GMTSHCPR	HEADER+51
$$HF^GMTSU	CKP+4, BREAK+18, OLDB+5
$$TYPE^GMTSULT	CKP1+4
EN^XQORM	CKP1+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CKP+7
Function Call: WRITE	Prompt: @IOF Line Location: CKP+8
Function Call: WRITE	Prompt: ! Line Location: CKP1+9
Function Call: WRITE	Prompt: ! Condition for execution: +GMTSF=0 Line Location: BREAK+22
Function Call: WRITE	Prompt: !,GMTS Line Location: BREAK+22
Function Call: WRITE	Prompt: !,GMTSUL Condition for execution: $D(GMTSOBJ("UNDERLINE")) Line Location: BREAK+22
Function Call: WRITE	Prompt: ! Line Location: BREAK+23
Function Call: WRITE	Prompt: ! Condition for execution: $D(GMTSOBJ("BLANK LINE")) Line Location: BREAK+23
Function Call: WRITE	Prompt: !,GMTS,! Line Location: BREAK+24
Function Call: WRITE	Prompt: !,GMTS,! Line Location: OLDB+6
Function Call: WRITE	Prompt: !,$S($L(GMTSLOC):"Location: "_GMTSLOC_" ",1:"") Line Location: HEADER+37
Function Call: WRITE	Prompt: $S($D(GMTSVDT):GMTSVDT,1:"") Line Location: HEADER+38
Function Call: WRITE	Prompt: !,GMTSHDR,"*" Line Location: HEADER+48
Function Call: WRITE	Prompt: !,GMTSPHDR("NMSSN"),?GMTSPHDR("DOBS"),GMTSPHDR("DOB") Line Location: HEADER+55
Function Call: WRITE	Prompt: !,?GMTSPHDR("WARDRBS"),GMTSPHDR("WARDRB") Line Location: HEADER+56
Function Call: WRITE	Prompt: !,GMTSPHDR("NMSSN"),?GMTSPHDR("WARDRBS") Line Location: HEADER+60
Function Call: WRITE	Prompt: GMTSPHDR("WARDRB"),?GMTSPHDR("DOBS"),GMTSPHDR("DOB") Line Location: HEADER+61
Function Call: WRITE	Prompt: !,LABEL Line Location: LABEL+2
Function Call: WRITE	Prompt: ! Condition for execution: $L(LABEL) Line Location: LABEL+2
Function Call: WRITE	Prompt: ! Condition for execution: $D(GMTSOBJ("LABEL BLANK LINE")) Line Location: LABEL+2
Function Call: WRITE	Prompt: !,LABEL Line Location: LABDAT+4
Function Call: WRITE	Prompt: ! Condition for execution: $L(LABEL) Line Location: LABDAT+4
Function Call: WRITE	Prompt: ! Condition for execution: $D(GMTSOBJ("LABEL BLANK LINE")) Line Location: LABDAT+4
Routine Call	DIR Line Location: CKP1+2

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	BRNCH+5
^GMT(142.1 - [#142.1]	BRNCH+10, CNAM+2

Name	Line Occurrences
$$CHDR	BREAK+17
$$CNAM	CHDR+1
$$FST	BREAK+14
$$MUL	BREAK+14
@(	CKP1+9
BREAK	CKP+3, CKP+4, CKP+7
CKP1	CKP+6, CKP1+10
HEADER	CKP+7, CKP+8
LABEL	HEADER+53, HEADER+58
NOLIM	BRNCH+9

Name	Field # of Occurrence
^(0	BRNCH+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CREC	BRNCH+1~, BRNCH+10*
DA	CKP1+1~
DATA	HEADER+29~, HEADER+30, HEADER+31, HEADER+32, HEADER+39, HEADER+40
DIC	CKP1+1~, CKP1+4*, CKP1+5!
DIC(0	CKP1+4*
DIR	CKP1+2~!
DIR(0	CKP1+2*
>> DIROUT	BRNCH+3, BRNCH+11, EVAL+3
>> DTOUT	EVAL+3
>> DUOUT	CKP1+2
>> GMDUOUT	EVAL+4*
GMI	BRNCH+7~*
GMJ	BRNCH+7~*
>> GMPSAP	EVAL+4
GMTINX	BRNCH+1~, BRNCH+5, BRNCH+6, BRNCH+7, BRNCH+8, BRNCH+10, NOLIM+1
>> GMTOPT	CKP1+2
GMTS	BREAK+16~, BREAK+17, BREAK+22, BREAK+24, OLDB+2, OLDB+3, OLDB+4, OLDB+6, HEADER+45, HEADER+46 , HEADER+47, CHDR+1~, CHDR+2*, CHDR+3
>> GMTSCDT(0	HEADER+33
GMTSDFLT	BRNCH+7~*
>> GMTSDTM	HEADER+33*, HEADER+39, HEADER+40, LABDAT+2, LABDAT+3
>> GMTSEG(	CNAM+1
>> GMTSEG(" "	MUL+1
>> GMTSEG(0	MUL+1, FST+1
>> GMTSEGC	BRNCH+7*
>> GMTSEGH	OLDB+3, OLDB+4, CHDR+1
>> GMTSEGI(	BRNCH+7, BRNCH+8, BRNCH+10, NOLIM+1
>> GMTSEGL	OLDB+3, OLDB+4, CHDR+2
>> GMTSEGN	CKP+4, CKP+7, CKP+8, BREAK+20, BREAK+25, BREAK+26, OLDB+7, OLDB+8, BRNCH+2, NOLIM+1 , FST+1, CNAM+1
>> GMTSEXIT	EVAL+2*
GMTSF	BREAK+14~, BREAK+22, MUL+1~, MUL+2, FST+1~*, FST+2
GMTSH	CHDR+1~, CHDR+2, CHDR+3, CHDR+4, CNAM+1~, CNAM+2
>> GMTSHDR	HEADER+43, HEADER+44, HEADER+45, HEADER+46, HEADER+47*, HEADER+48
GMTSL	BREAK+16~, BREAK+17, MUL+1~, MUL+2, FST+1~, FST+2, CHDR+1~, CHDR+2, CHDR+3, CHDR+5
>> GMTSLCMP	CKP+4, BREAK+16, BREAK+20, BREAK+25, BREAK+26, OLDB+1, OLDB+7, OLDB+8*
>> GMTSLFG	HEADER+50
>> GMTSLO	CKP+5, BREAK+18, BREAK+25, OLDB+5, OLDB+7
GMTSLOC	HEADER+36~*, HEADER+37
>> GMTSLPG	CKP+5, CKP1+2, CKP1+7, BRNCH+2, NOLIM+1, EVAL+3
GMTSM	BREAK+14~*, BREAK+15, BREAK+21
GMTSN	CHDR+1~, CHDR+4, CHDR+5*, CHDR+6
>> GMTSNPG	CKP+1, CKP+7, BREAK+17, OLDB+2
>> GMTSOBJ	CKP1+7, BREAK+15, BREAK+19, HEADER+30, HEADER+33, HEADER+35, HEADER+45, HEADER+46, HEADER+48, HEADER+53 , HEADER+54, HEADER+58, HEADER+59, HEADER+64, HEADER+66, CHDR+3
>> GMTSOBJ("BLAN	K LINE" , BREAK+15, BREAK+23
>> GMTSOBJ("COMP	ONENT HEADER" , BREAK+15, BREAK+21, CHDR+4
>> GMTSOBJ("CONFIDENTIAL"	HEADER+48
>> GMTSOBJ("DATE	LINE" , HEADER+35, HEADER+36, HEADER+39, HEADER+40, LABDAT+2, LABDAT+3
>> GMTSOBJ("DECEASED"	HEADER+64
>> GMTSOBJ("LABE	L BLANK LINE" , LABEL+2, LABDAT+4
>> GMTSOBJ("LABEL"	CKP+2, HEADER+53, HEADER+58, LABEL+1, LABDAT+1, LABDAT+2, LABDAT+3
>> GMTSOBJ("LIMITS"	CHDR+5
>> GMTSOBJ("REPO	RT HEADER" , CKP+2!, HEADER+53, HEADER+54, HEADER+58, HEADER+59
>> GMTSOBJ("UNDERLINE"	BREAK+22
>> GMTSOBJ("USE	LABEL" , LABEL+1, LABDAT+1
>> GMTSOBJE	CKP1+7, HEADER+30
>> GMTSPG	HEADER+42, HEADER+43, HEADER+44
>> GMTSPHDR("DOB"	HEADER+55, HEADER+61
>> GMTSPHDR("DOBS"	HEADER+55, HEADER+61
>> GMTSPHDR("NMSSN"	HEADER+55, HEADER+60
>> GMTSPHDR("TWO"	HEADER+52
>> GMTSPHDR("WARDRB"	HEADER+56, HEADER+61
>> GMTSPHDR("WARDRBS"	HEADER+56, HEADER+60
>> GMTSPXD1	HEADER+29, HEADER+31, HEADER+32
>> GMTSPXD2	HEADER+29, HEADER+31, HEADER+32
>> GMTSQIT	CKP+1, CKP+7, CKP+8, CKP1+2, BRNCH+2, BRNCH+3, BRNCH+11, NOLIM+1, EVAL+3
>> GMTSSC	HEADER+36
>> GMTSTITL	HEADER+43, HEADER+51
>> GMTSTOF	CKP+6, CKP+7, CKP+8*, BRNCH+2
>> GMTSTYP	CKP+8, CKP1+2, CKP1+3, CKP1+5, CKP1+6, CKP1+11, BRNCH+5
GMTSUL	BREAK+16~, BREAK+17*, BREAK+22
GMTSVDT	HEADER+29~, HEADER+33*, HEADER+38
>> GMTSWRIT	CKP+3*
GMTSY	CKP1+1~, CKP1+10!, BRNCH+2, BRNCH+6, BRNCH+8, NOLIM+1
>> HSTAG	HEADER+51
I	CKP1+1~
IOF	CKP+7, CKP+8
IOSL	CKP+5, BREAK+18, BREAK+25, OLDB+5, OLDB+7
IOST	CKP+6, HEADER+44
J	CKP1+1~
K	CKP1+1~
L	CKP1+1~
LABEL	LABEL+1~, LABEL+2, LABDAT+1~, LABDAT+2, LABDAT+3, LABDAT+4
LIM	BRNCH+1~, BRNCH+9*
SBS	BRNCH+1~, BRNCH+10*
TYP	CKP1+1~, CKP1+3*, CKP1+11
U	HEADER+36, HEADER+65, BRNCH+5, BRNCH+9
>> VADM(6	HEADER+65
X	CKP1+1~, CKP1+4, CKP1+5!, BRNCH+2, BRNCH+3, BRNCH+4, EVAL+1, EVAL+2, EVAL+3, EVAL+4 , MUL~, FST~, CHDR~, CHDR+3, CHDR+6, CNAM~, CNAM+2
XQORM	CKP1+1~, CKP1+6*
XQORM("??"	CKP1+7*
XQORM("A"	CKP1+6*
XQORM("S"	CKP1+8*
XQORM(0	CKP1+6*
Y	CKP1+1~, CKP1+4*, CKP1+5!, CKP1+9, BRNCH+2, BRNCH+4
Y(1	BRNCH+5, BRNCH+9

Customize PDF page

Package: Health Summary

Routine: GMTSUP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 164

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: