Routine: DGPTF1

Package	Total	Call Graph
Registration	13	($$CNTRYI,$$FORIEN)^DGADDUTL $$CVEDT^DGCV $$GETSTAT^DGMSTAPI $$GETCUR^DGNTAPI Q^DGPTF EN^DGPTF4 ^DGPTFJ 101^DGPTFJC ^DGPTFM (D,MT,PM)^DGPTUTL $$GETSHAD^DGUTL3 $$PTR2CODE^DGUTL4 DEM^VADPT
Kernel	1	^%ZIS
VA Fileman	1	^DIE

Package	Total	Caller Graph
Registration	2	DGPTF DGPTFJ
Integrated Billing	1	IB20PT82

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	DGPTF1+3
$$CNTRYI^DGADDUTL	ST
$$FORIEN^DGADDUTL	ST, ZIP, COU
$$CVEDT^DGCV	GET+8
$$GETSTAT^DGMSTAPI	GET+2
$$GETCUR^DGNTAPI	GET+4
Q^DGPTF	Q
EN^DGPTF4	CV+4
^DGPTFJ	JUMP+4
101^DGPTFJC	JUMP+1
^DGPTFM	JUMP+3
D^DGPTUTL	DOB, CV+2
MT^DGPTUTL	JUMP+14
PM^DGPTUTL	JUMP+12
$$GETSHAD^DGUTL3	GET+9
$$PTR2CODE^DGUTL4	SA+7, SA+9, SA+18, SA+20
^DIE	JUMP+10
DEM^VADPT	SA+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,HEAD,?72,@DGVI,"<101>",@DGVO Line Location: WR+0
Function Call: WRITE	Prompt: !?40,"Census Status: ",$P($P($P(^DD(45,6,0),"^",3),+DGCST_":",2),";") Line Location: FAC+0
Function Call: WRITE	Prompt: !! Line Location: FAC+1
Function Call: WRITE	Prompt: " Facility: " Line Location: FAC+1
Function Call: WRITE	Prompt: " Marit Stat: ",$S($D(^DIC(11,+$P(A(0),U,5),0)):$P(^(0),U,1),1:"") Line Location: MAR+0
Function Call: WRITE	Prompt: !," Source of Adm: ",$S($D(^DIC(45.1,+B(101),0)):$P(^(0),U,5),1:"") Line Location: SA+0
Function Call: WRITE	Prompt: ?39,"Ethnic: " Line Location: SA+2
Function Call: WRITE	Prompt: "" Line Location: SA+3
Function Call: WRITE	Prompt: ?55,"Race: " Line Location: SA+13
Function Call: WRITE	Prompt: "" Line Location: SA+14
Function Call: WRITE	Prompt: !," Source of Pay: " Line Location: SA+25
Function Call: WRITE	Prompt: $P($P(L,L1,2),";",1) Line Location: SA+25
Function Call: WRITE	Prompt: ?39," Sex: ",$S(SEX="M":"MALE",SEX="F":"FEMALE",1:"") Line Location: SEX+0
Function Call: WRITE	Prompt: !,"Trans Facility: ",$P(B(101),U,5)_$P(B(101),U,6) Line Location: SEX+1
Function Call: WRITE	Prompt: ?39," Date of Birth: ",Y Line Location: DOB+0
Function Call: WRITE	Prompt: !," Cat of Ben: ",$S($D(^DIC(45.82,+$P(B(101),U,4),0)):$E($P(^(0),U,2),1,26),1:"") Line Location: CAT+0
Function Call: WRITE	Prompt: " Admit Elig: "_$S(+$P(B(101),U,8):$P($G(^DIC(8,+$P(B(101),U,8),0)),U),1:"UNKNOWN") Line Location: CAT+2
Function Call: WRITE	Prompt: ?50,"SCI: " Line Location: CAT+2
Function Call: WRITE	Prompt: ?50,"SCI: " Line Location: CAT+2
Function Call: WRITE	Prompt: ! Line Location: VIET+0
Function Call: WRITE	Prompt: "Vietnam SRV: " Line Location: VIET+0
Function Call: WRITE	Prompt: $S('$$FORIEN^DGADDUTL($P(A(.11),U,10))!('$P(A(.11),U,10)):" State: "_$S($D(^DIC(5,+$P(A(.11),U,5),0)):$P(^(0),U,1),1:""),1:"Country: "_$$CNTRYI^DGADDUTL($P(A(.11),U,10))) Line Location: ST+0
Function Call: WRITE	Prompt: !?11,"POW: " Line Location: POW+0
Function Call: WRITE	Prompt: $S(L="Y":"YES",L="N":"NO",1:"UNKNOWN") Line Location: POW+0
Function Call: WRITE	Prompt: ?42,$S('$$FORIEN^DGADDUTL($P(A(.11),U,10))!('$P(A(.11),U,10)):" Zip Code: "_$P(A(.11),U,6),1:"Postal Code: "_$P(A(.11),U,9)) Line Location: ZIP+0
Function Call: WRITE	Prompt: !,?6," POW SRV: " Line Location: POS+0
Function Call: WRITE	Prompt: $E($S($D(^DIC(22,+L,0)):$P(^(0),U,1),1:""),1,23) Line Location: POS+0
Function Call: WRITE	Prompt: ?45,$S('$$FORIEN^DGADDUTL($P(A(.11),U,10))!('$P(A(.11),U,10)):" County: "_$S($D(^DIC(5,+$P(A(.11),U,5),1,+$P(A(.11),U,7),0)):$P(^(0),U,1),1:""),1:"Province: "_$P(A(.11),U,8)) Line Location: COU+0
Function Call: WRITE	Prompt: !," Ion Rad Exp: " Line Location: ION+0
Function Call: WRITE	Prompt: $S(L="Y":"YES",L="N":"NO",1:"UNKNOWN") Line Location: ION+0
Function Call: WRITE	Prompt: !," AO Exp/Loc: " Line Location: AO+0
Function Call: WRITE	Prompt: $S(L="Y":"YES",L="N":"NO",1:"UNKNOWN") Line Location: AO+0
Function Call: WRITE	Prompt: ?40,"PROJ 112/SHAD: ",$S(A("SHAD")=1:"YES",1:"NO") Line Location: SHAD+0
Function Call: WRITE	Prompt: !," Claims MST: " Line Location: MST+0
Function Call: WRITE	Prompt: $S(L="Y":"YES",L="N":"NO",L="D":"DECLINED TO ANSWER",1:"UNKNOWN") Line Location: MST+0
Function Call: WRITE	Prompt: !,"Combat Veteran: ",$S(L:"YES",1:"NO") Line Location: CV+1
Function Call: WRITE	Prompt: ?45,"End Date: ",Y Line Location: CV+2
Function Call: WRITE	Prompt: ! Line Location: JUMP+0
Function Call: READ	Timeout: DTIME Line Location: JUMP+2
Function Call: WRITE	Prompt: !,"Enter '^' to stop the display and edit of data",!,"'^N' to jump to screen #N (screen # appears in upper right of screen '<N>')",!,"<RET> to continue on to the next screen or 1-7 to edit:" Line Location: PR+0
Function Call: WRITE	Prompt: !?10,"1-Facility, Source of admis, Payment, Transf facil, and Cat. of Benef",!?10,"2-Marital Stat, Race, Ethnicity, Sex, SCI, DOB" Line Location: PR+1
Function Call: WRITE	Prompt: !?10,"3-Agent Orange, Prisoner of War, Ionizing Radiation, MST, N/T Radium",!?10,"4-State, County, Zip code" Line Location: PR+2
Function Call: WRITE	Prompt: !?10,"5-Discharge date, type & specialty",!?10,"6-Outpatient treat & VA Auspices",!?10,"7-Receiving Facility, ASIH Days & C&P Status" Line Location: PR+3
Function Call: WRITE	Prompt: !,"You may also enter any combination of the above, separated by commas(ex:1,3,5)",! Line Location: PR+4
Function Call: READ	Prompt: "Enter <RET> : " Formatting: !! Timeout: DTIME Variable: X Line Location: PR+5
Function Call: WRITE	Prompt: @DGVI,Z,@DGVO Line Location: Z+0
Function Call: WRITE	Prompt: " " Line Location: Z+1
Function Call: WRITE	Prompt: Z Line Location: Z1+1
Routine Call	DIE Line Location: JUMP+10
Routine Call	%ZIS Line Location: DGPTF1+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	DGPTF1+4
^%ZOSF("RM"	DGPTF1+4
^DD(2	CAT+2
^DD(45	FAC, SA+25
^DGP(45.84 - [#45.84]	GET
^DGPT - [#45]	JUMP+13, GET+6
^DIC(11 - [#11]	MAR
^DIC(22 - [#22]	POS
^DIC(45.1 - [#45.1]	SA
^DIC(45.82 - [#45.82]	CAT
^DIC(5 - [#5]	ST, COU
^DIC(8 - [#8]	CAT+2
^DPT - [#2]	GET

Label References

Name	Line Occurrences
DGPTF1	GET+10
GET	WR
PR	JUMP+5, JUMP+7, JUMP+8, JUMP+9
Q	JUMP+3
WR	PR+5
Z	FAC+1, MAR, VIET, ST
Z1	FAC+1, VIET

Naked Globals

Name	Field # of Occurrence
^(	GET, GET+6
^(0	MAR, SA, CAT, ST, POS, COU
^(5	DGPTF1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	WR, CV+4!
A(	VIET, ST, POW, ZIP, POS, COU, ION, METH, AO, AO+1 , GET*
A("CV"	CV, CV+2, GET+8*
A("MST"	MST, GET+2*
A("NTR"	NTR, GET+4*
A("SHAD"	SHAD, GET+9*
A(0	MAR, SEX, DOB
A(57	CAT+2
B	WR, CV+4!
B(	GET+6*
B(0	FAC+1, GET+7, GET+8
B(101	SA, SA+25, SEX+1, CAT, CAT+2
B(70	GET+7
>> DA	JUMP+10*
>> DFN	GET, GET+2, GET+4, GET+8, GET+9
>> DGADM	JUMP+13*
>> DGCST	FAC
>> DGDD	GET+7*
>> DGFC	GET+7*
>> DGJUMP	JUMP+10*
>> DGN	JUMP+1, GET, Z
DGNTARR	GET+3!, GET+5!
DGNTARR("INTRP"	GET+4
DGPMAN	JUMP+12~
DGPMCA	JUMP+12~
>> DGPR	CV+4
>> DGPTFE	JUMP+10
>> DGPTFMT	CAT
>> DGPTOUT	JUMP+2*
>> DGPTSCRN	JUMP+4*
>> DGST	GET
>> DGVI	DGPTF1+4*, WR, Z
>> DGVO	DGPTF1+4*, WR, Z
>> DGZM0	JUMP+1*
>> DGZS0	JUMP+1*
>> DIE	JUMP+10*
>> DOB	DOB*
>> DR	JUMP+10*
DTIME	JUMP+2, PR+5
ETHNIC	SA+4~, SA+8, SA+10, SA+11*, SA+12
>> HEAD	WR
I	DGPTF1+4, SA+4~, SA+5, SA+6, SA+7, SA+9, SA+15~, SA+16, SA+17, SA+18 , SA+20, JUMP, JUMP+6, JUMP+8, GET, GET+6, Z1*
IOF	DGPTF1+3, WR
IOP	DGPTF1+3*!
IOST	DGPTF1+4*, Z
IOST(0	DGPTF1+4
>> J	JUMP+6, JUMP+8
>> K	JUMP+6*
>> L	SA+25, CAT+2, VIET, POW, POS, ION, METH, AO, AO+1, MST , NTR, CV, CV+1, CV+2, JUMP+6*
>> L1	SA+25, CAT+2
NODE	SA+4~, SA+15~
NUM	SA+4~, SA+6, SA+11, SA+15~, SA+17, SA+22
PT	GET+10!
PT(1	JUMP+10*
PT(2	JUMP+10*
>> PTF	JUMP+10, JUMP+13, GET, GET+6
RACE	SA+15~, SA+19, SA+21, SA+22*, SA+23
>> SEX	SEX*
U	DGPTF1+4, FAC+1, MAR, SA, SA+25, SEX, SEX+1, DOB, CAT, CAT+2 , VIET, ST, POW, ZIP, POS, COU, ION, METH, AO, AO+1 , MST, CV, CV+2, GET+2, GET+7, GET+8
VADM	SA+1~, SA+24!
VADM(11	SA+3, SA+6, SA+7, SA+9
VADM(12	SA+14, SA+17, SA+18, SA+20
>> X	DGPTF1+4, SA+7, SA+8, SA+9, SA+10, SA+18, SA+19, SA+20, SA+21, JUMP+2 , JUMP+3, JUMP+4, JUMP+5, JUMP+6, JUMP+7, JUMP+8, JUMP+9, JUMP+10, PR+5
>> Y	DOB, CV+2
>> Z	FAC+1, MAR, VIET, ST, Z, Z1, Z1+1
>> Z1	FAC+1, VIET, Z1

Customize PDF page

Package: Registration

Routine: DGPTF1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
COU
DOB
MST
CAT
WR
METH
PR
GET
POW
POS
SEX
ION
SHAD
FAC
Z1
ZIP
AO
JUMP
Z
CV
Q
MAR
NTR
ST
SA
VIET