Routine: DG1010S1

Package	Total	Call Graph
Registration	3	(,Q)^DG1010S2 $$FIRST^DGUTL $$SITE^VASITE

Package	Total	Caller Graph
Registration	1	DG1010P7

Entry Points

External References

Name	Field # of Occurrence
^DG1010S2	C+1
Q^DG1010S2	EN+8
$$FIRST^DGUTL	EN+8
$$SITE^VASITE	EN+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,DGLDOUBL,!?5 Line Location: EN+9
Function Call: WRITE	Prompt: $S((+X=-1):"FACILITY NOT IDENTIFIED",1:$P(X,U,2)_" ("_$P(X,U,3)_")") Line Location: EN+10
Function Call: WRITE	Prompt: ?105,"SUPPLEMENTAL DATA SHEET",!?5,DGLDOUBL,!?5,"1. Applicant's Name: ",DGNAM,?90,"\| 2. SSN: ",DGSS,!?5,DGLSUP1,!?5,"3. Other Name(s): " Line Location: EN+11
Function Call: WRITE	Prompt: !?9 Condition for execution: (128-$X)<$L(DGD) Line Location: EN+12
Function Call: WRITE	Prompt: DGD Line Location: EN+12
Function Call: WRITE	Prompt: !?5,DGLSUP1,!?5,"4. Remarks: ",DGD,!?5,DGLSUP1 Line Location: EN+13
Function Call: WRITE	Prompt: !?5,"5. Fathers Name: ",$S($L($P(DGD,U,1)):$P(DGD,U,1),1:"NOT SPECIFIED"),?90,"\|" Line Location: EN+14
Function Call: WRITE	Prompt: !?9,"Mothers Name: ",$S($L($P(DGD,U,2)):$P(DGD,U,2),1:"NOT SPECIFIED"),?90,"\|",!?9,"Mothers Maiden Name: ",$S($L($P(DGD,U,3)):$P(DGD,U,3),1:"NOT SPECIFIED"),?90,"\|",!?5,DGLSUP1 Line Location: EN+15
Function Call: WRITE	Prompt: !?5,"6a. Enrollment Clinic(s): " Line Location: EN+16
Function Call: WRITE	Prompt: !?9 Condition for execution: (128-$X)<$L(DGD) Line Location: EN+16
Function Call: WRITE	Prompt: DGD Line Location: EN+16
Function Call: WRITE	Prompt: !?5,DGLSUP,!?5,"6b. Future Appointments: " Line Location: EN+17
Function Call: WRITE	Prompt: !?9 Condition for execution: (128-$X)<$L(DGD) Line Location: EN+18
Function Call: WRITE	Prompt: DGD Line Location: EN+18
Function Call: WRITE	Prompt: !?5,DGLSUP1,!?5,"7a. Last Admission: " Line Location: EN+19
Function Call: WRITE	Prompt: "NO PREVIOUS ADMISSIONS TO THIS FACILITY ON FILE" Line Location: EN+20
Function Call: WRITE	Prompt: "LAST ADMISSION PTF DATA NO LONGER STORED" Line Location: EN+21
Function Call: WRITE	Prompt: Y Line Location: EN+23
Function Call: WRITE	Prompt: " (DISCHARGED '"_Y_"')" Condition for execution: Y]"" Line Location: EN+23
Function Call: WRITE	Prompt: !?5,DGLSUP,!?5,"7b. Discharge Diagnosis(es): " Line Location: EN+23
Function Call: WRITE	Prompt: !?9 Condition for execution: (128-$X)<$L(I2) Line Location: EN+24
Function Call: WRITE	Prompt: I2 Line Location: EN+24
Function Call: WRITE	Prompt: X Line Location: EN+26
Function Call: WRITE	Prompt: !?5,"8. Eligibility Status: ",$S(DGD="P":"PENDING VERIFICATION",DGD="R":"PENDING RE-VERIFICATION",DGD="V":"VERIFIED",1:"UNKNOWN OR NONE"),?90,"\| Status Date: ",Y,!?9,"Verification Method: ",DGD(1),?90,"\| By: ",DGD(2) Line Location: EL+2
Function Call: WRITE	Prompt: !?9,"Ineligible Date: ",Y Line Location: EL+3
Function Call: WRITE	Prompt: ?90,"\| TWX Source: ",DGD(1),!?9,"TWX City: ",DGD(2),?90,"\| TWX State: ",$E(DGD(3),1,26),!?9,"VARO Decision: ",DGD(4),!?5,DGLSUP1 Line Location: C+0

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+5, EN+18, EN+23, EL+1, EL+3
^DGPM - [#405]	EN+21, EN+22
^DGPM("ATID1"	EN+20, EN+21
^DGPT - [#45]	EN+21, EN+23, EN+25
^DIC(5 - [#5]	EL+4
^DPT - [#2]	EN+4, EN+5, EN+12, EN+16, EN+18, EN+20
^ICD9 - [#80]	EN+24, EN+25, EN+26
^SC - [#44]	EN+16, EN+18
^VA(200 - [#200]	EN+5, EL+1

Name	Field # of Occurrence
^(	EN+12, EN+16, EN+18
^(0	EN+5, EN+12, EN+16, EN+18, EN+21, EN+22, EN+23, EN+24, EN+25, EN+26 , EL+1, EL+4
^(70	EN+23, EN+25

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	EN+4, EN+5, EN+12, EN+16, EN+18, EN+20, EN+21
>> DFN1	EN+5
DGAD	EN+20*, C+1!
>> DGAP	EN+5*
>> DGCLK	EN+5*
DGD	EN+5, EN+12, EN+13!, EN+14, EN+15, EN+16, EN+17!, EN+18, EN+20, EN+21 , EN+22, EN+23, EN+25, EL, EL+1, EL+2, EL+3*, EL+4, EL+5, C+1!
DGD(	EL+3*
DGD(1	EN+12, EN+18, EN+25, EN+26, EL, EL+2, EL+4*, C
DGD(2	EL, EL+1, EL+2, EL+4*, C
DGD(3	EL+4*, C
DGD(4	EL+5*, C
DGEL	EL+3*, EL+4, C+1!
>> DGLDOUBL	EN+1, EN+7, EN+9, EN+11
>> DGLSUP	EN+2*, EN+17, EN+23, EN+25, EN+26
>> DGLSUP1	EN+3*, EN+11, EN+13, EN+15, EN+19, EL, C
>> DGNAM	EN+5*, EN+11
>> DGP(	EN+4*, EN+14, EL, EL+3
>> DGP("INE"	EL+3
>> DGP(0	EN+5, EN+6, EN+13
>> DGSS	EN+6*, EN+11
DT	EN+17
I	EN+4, EN+12, EN+13!, EN+16, EN+17!, EN+24, EL+3*, C+1!
I1	EN+12, EN+13!, EN+16, EN+17!, EN+18, EN+19, EN+23*, EN+24, C+1!
I2	EN+17, EN+18, EN+24*, C+1!
>> I3	EN+24*, EN+25
>> J	EN+18*
U	EN+5, EN+6, EN+10, EN+12, EN+13, EN+14, EN+15, EN+16, EN+18, EN+23 , EN+24, EN+25, EN+26, EL, EL+1, EL+3, EL+4, EL+5
>> X	EN+10, EN+25, EN+26*
Y	EN+5, EN+18, EN+22, EN+23, EL, EL+1, EL+2, EL+3*, C+1!

Customize PDF page

Package: Registration

Routine: DG1010S1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EL
C
EN	;