Routine: GMTSDEM

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Health Summary	5	(INS,NOK,RACE)^GMTSDEM2 (SRC,TF)^GMTSDEMB CD^GMTSDEMP $$EDT^GMTSU CKP^GMTSUP
Registration	1	(ADD,DEM,ELIG,OAD,OPD,SVC)^VADPT

Package	Total	Caller Graph
Health Summary	3	GMTSDEM2 GMTSDEMB GMTSDEMP

Package

Total

Caller Graph

Health Summary

GMTSDEM2 GMTSDEMB GMTSDEMP

Entry Points

Name	Comments	DBIA/ICR reference
BOS	; Branch of Service
ADR	; Patient Address
DEMOG	; Demographic (VADPT)
NOK	; Next of Kin
SCDP	; Service Connected Diagnosis
DEMO(DFN)	;
ST	; Show ^TMP Global Array
SVC	; Service
PER	; Personal
NAM	; Name/SSN/DOB/Sex
MT	; Means Test
ELIG	; Eligibility
WRT(CH1,CD1,CH2,CD2,FMT)	; Write/Save Demographic Line ; ; Input ; CH1 - Column 1 Header or Preformated Line ; CD1 - Column 1 Data ; CH2 - Column 2 Header ; CD2 - Column 2 Data ; FMT - Format in Columns 1=Yes 0=No ; ; If the variable GMTSDEMX exist, then the data will ; be saved in a global array instead of written to the ; screen. Global array: ; ; ^TMP("GMTSDEMO",$J,DFN,#)=<demographic text>
IEN	; Ineligible for Care Data
SC	; Service Connected Percent
END	; Clean-up and quit
COMB	; Service Connected Disabilities
SCDD	; Service Connected Disabilities/Diagnosis

External References

Name	Field # of Occurrence
INS^GMTSDEM2	DEMOG+4
NOK^GMTSDEM2	DEMOG+3
RACE^GMTSDEM2	PER+6
SRC^GMTSDEMB	DEMOG+5
TF^GMTSDEMB	DEMOG+4
CD^GMTSDEMP	DEMOG+3
$$EDT^GMTSU	NAM+3, BOS+4, BOS+5, IEN+3
CKP^GMTSUP	NOK+3, NOK+7, NOK+11, NOK+13, NOK+15, WRT+26
ADD^VADPT	ADR+1
DEM^VADPT	NAM+1, PER+1
ELIG^VADPT	SVC+1, COMB+1, ELIG+1, SC+1, MT+1, IEN+1
OAD^VADPT	NOK+1
OPD^VADPT	PER+1
SVC^VADPT	BOS+2, COMB+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?16,"NOK: ",VAOA(9) Line Location: NOK+4
Function Call: WRITE	Prompt: ! Line Location: NOK+5
Function Call: WRITE	Prompt: ! Line Location: NOK+9
Function Call: WRITE	Prompt: ?21,VAOA(2),! Line Location: NOK+11
Function Call: WRITE	Prompt: ?21,VAOA(3),! Line Location: NOK+13
Function Call: WRITE	Prompt: ?21,VAOA(4) Line Location: NOK+16
Function Call: WRITE	Prompt: ", ",$P(VAOA(5),U,2) Condition for execution: VAOA(5) Line Location: NOK+16
Function Call: WRITE	Prompt: " ",VAOA(6) Condition for execution: VAOA(6) Line Location: NOK+17
Function Call: WRITE	Prompt: ! Line Location: NOK+17
Function Call: WRITE	Prompt: $G(STR),! Line Location: WRT+26
Function Call: WRITE	Prompt: !,@NN Line Location: ST+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(31 - [#31]	SCDP+2
^DPT - [#2]	SCDD+2, SCDP+1
^TMP("GMTSDEMO"	DEMO+1!, WRT+15, WRT+27*

Label References

Name	Line Occurrences
ADR	DEMOG+2
BOS	DEMOG+2
COMB	DEMOG+2
DEMOG	DEMO+3
ELIG	DEMOG+2
END	DEMOG+5
MT	DEMOG+2
NAM	ADR+1
PER	DEMOG+2
SC	DEMOG+2
SCDD	DEMOG+2
SCDP	SCDD+2
ST	DEMO+3
SVC	DEMOG+2
WRT	ADR+2, ADR+3, ADR+4, ADR+7, ADR+8, NAM+2, NAM+3, PER+3, PER+5, PER+7 , SVC+3, BOS+7, BOS+8, COMB+3, ELIG+3, ELIG+7, SC+2, SCDP+7, SCDP+10, MT+2 , IEN+4, IEN+6, IEN+11, IEN+12, IEN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ADR+1~, PER+1~, SVC+1~, BOS+1~, COMB+1~, ELIG+1~, SC+1~, MT+1~, NOK+1~, IEN+1~
%H	ADR+1~, PER+1~, SVC+1~, BOS+1~, COMB+1~, ELIG+1~, SC+1~, MT+1~, NOK+1~, IEN+1~
BL	WRT+14~, WRT+20, WRT+21, WRT+22, WRT+23*, WRT+24
CD1	WRT~, WRT+15, WRT+22
CD2	WRT~, WRT+15*, WRT+24
CH1	WRT~, WRT+15, WRT+16, WRT+20, WRT+21, WRT+22
CH2	WRT~, WRT+15, WRT+19, WRT+21, WRT+23, WRT+24
COL1	WRT+14~, WRT+22*, WRT+23, WRT+25
COL2	WRT+14~, WRT+24*, WRT+25
DFN	DEMOG+3, DEMOG+4, DEMO~, DEMO+1, SCDD+2, SCDP+1, WRT+15, WRT+27, ST+1
FMT	WRT~, WRT+15*, WRT+16, WRT+17
FROM	DEMOG+1~, DEMO+2~, BOS+1~, BOS+4*, BOS+6, BOS+7, BOS+8, END+1!
GMI	DEMOG+1~, DEMO+2~, END+2!
GMTSC	SCDD+1~, SCDP+4, SCDP+5, SCDP+8
GMTSDEMX	DEMO+2~, DEMO+3*, ADR+1, WRT+26, WRT+27
GMTSDT	IEN+1~, IEN+3*, IEN+4
GMTSI	BOS+1~, BOS+2*, BOS+3, BOS+4, BOS+5, BOS+7, BOS+8
>> GMTSQIT	ADR+1, ADR+2, ADR+3, ADR+4, ADR+5, PER+1, PER+2, PER+4, PER+6, SVC+1 , SVC+2, BOS+1, COMB+1, COMB+2, ELIG+1, ELIG+2, ELIG+4, ELIG+5, ELIG+6, SC+1 , SCDD+1, SCDD+2, SCDP+1, SCDP+5, MT+1, NOK+1, NOK+2, NOK+3, NOK+6, NOK+7 , NOK+10, NOK+11, NOK+12, NOK+13, NOK+14, NOK+15, IEN+1, IEN+4, IEN+5, IEN+7 , WRT+14, WRT+26
>> GMTSTEST	DEMO+3
I	DEMOG+1~, DEMO+2~, ELIG+1~, ELIG+5, ELIG+6, ELIG+7, END+1!
IX	DEMOG+1~, DEMO+2~, SCDD+1~, SCDD+2, SCDP+1, END+2!
LN	WRT+14~, WRT+15*, WRT+27
LNLGTH	WRT+14~, WRT+18, WRT+19, WRT+21
NC	ST+1~*
NN	ST+1~*
REM	IEN+1~, IEN+9*, IEN+12
SCD	DEMOG+1~, DEMO+2~, SCDD+1~, SCDP+1~*, SCDP+2, SCDP+3, END+1!
SCDP	DEMOG+1~, DEMO+2~, SCDD+1~, SCDP+1~, SCDP+3*, SCDP+6, SCDP+9, END+1!
SCDS	DEMOG+1~, DEMO+2~, SCDD+1~, SCDP+1~, SCDP+2*, SCDP+6, SCDP+9, END+1!
STR	ADR+6~, ADR+7, SCDP+6, SCDP+7, SCDP+9, SCDP+10, IEN+1~, IEN+5, IEN+6, IEN+7 , IEN+8, IEN+9, IEN+10, IEN+11, WRT+14~, WRT+16, WRT+25*, WRT+26, WRT+27
TO	DEMOG+1~, DEMO+2~, BOS+1~, BOS+5, BOS+6, BOS+7, BOS+8, END+2!
U	BOS+4, BOS+5, BOS+7, BOS+8, COMB+2, NOK+16, IEN+2, IEN+3, IEN+5
VA	DEMOG+1~, DEMO+2~, ADR+1~, PER+1~, END+1!
VADM	DEMOG+1~, DEMO+2~, NAM+1~, PER+1~, END+1!
VADM(1	NAM+2
VADM(10	PER+2, PER+3
VADM(2	NAM+2
VADM(3	NAM+3
VADM(4	PER+2, PER+3
VADM(5	PER+4, PER+5
VADM(9	PER+4, PER+5
VAEL	DEMOG+1~, DEMO+2~, SVC+1~, BOS+1~, COMB+1~, ELIG+1~, SC+1~, MT+1~, IEN+1~, END+1!
VAEL(1	ELIG+2, ELIG+3, ELIG+4, ELIG+6, ELIG+7
VAEL(2	SVC+2, SVC+3, COMB+2
VAEL(3	SC+2
VAEL(5	IEN+2, IEN+3, IEN+5, IEN+7, IEN+13
VAEL(8	ELIG+3
VAEL(9	MT+2
VAERR	DEMOG+1~, DEMO+2~, ADR+1~, PER+1~, SVC+1~, BOS+1~, COMB+1~, ELIG+1~, SC+1~, MT+1~ , IEN+1~, END+1!
VAHOW	NAM+1~
VAOA	DEMOG+1~, DEMO+2~, NOK+1~, END+1!
VAOA("A"	NOK+1*
VAOA(1	NOK+6, NOK+8
VAOA(10	NOK+5
VAOA(2	NOK+10, NOK+11
VAOA(3	NOK+12, NOK+13
VAOA(4	NOK+14, NOK+16
VAOA(5	NOK+16
VAOA(6	NOK+17
VAOA(8	NOK+9
VAOA(9	NOK+2, NOK+4
VAPA	DEMOG+1~, DEMO+2~, ADR+1~, END+1!
VAPA(1	ADR+2
VAPA(2	ADR+3
VAPA(3	ADR+4
VAPA(4	ADR+5, ADR+6
VAPA(5	ADR+6
VAPA(6	ADR+7
VAPA(7	ADR+7
VAPA(8	ADR+2
VAPD	DEMOG+1~, DEMO+2~, PER+1~, END+1!
VAPD(6	PER+6, PER+7
VAPTYP	NAM+1~
VAROUT	NAM+1~
VASV	DEMOG+1~, DEMO+2~, BOS+1~, COMB+1~, END+1!
VASV(	BOS+3, BOS+4, BOS+5, BOS+7, BOS+8
VASV(4	COMB+3
VASV(5	COMB+3
WRD	IEN+1~, IEN+8*, IEN+9, IEN+10
X	DEMOG+1~, DEMO+2~, END+2!
Z	DEMOG+1~, DEMO+2~, ELIG+1~, ELIG+5*, END+2!

Customize PDF page

Package: Health Summary

Routine: GMTSDEM

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: