Routine: DG1010P1

Package	Total	Call Graph
Registration	3	($$DATENP,$$DISP,$$POINT,$$UNK)^DG1010P0 CONT^DG1010P2 ADD^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
RELIG	;
CLAIM	;
CONTD	;
PARTI
CA	;Display confidential address information
GETADD	;
STR2ZIP
ST
HEADADD	;
PRTTMP	; DGTMP=0 IF TEMP ADDRES ENTER NOT=Y OR END DATE IN PAST
WRADD
SEX

External References

Name	Field # of Occurrence
$$DATENP^DG1010P0	CLAIM+3, HEADADD+1, HEADADD+2, RELIG+2
$$DISP^DG1010P0	CLAIM+2, CLAIM+3, CLAIM+4, STR2ZIP+3, STR2ZIP+4, WRADD+9, WRADD+10, SEX+3
$$POINT^DG1010P0	CLAIM+4, STR2ZIP+5, WRADD+5, WRADD+7, RELIG+2
$$UNK^DG1010P0	RELIG+3
CONT^DG1010P2	CONTD+1
ADD^VADPT	CA+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?25,"SEE ATTACHMENT FOR PAPERWORK REDUCTION INFORMATION AND PRIVACY ACT INFORMATION",!,DGLDASH Line Location: ST+0
Function Call: WRITE	Prompt: !?54,"PART I - PATIENT DATA",!,DGLUND Line Location: PARTI+0
Function Call: WRITE	Prompt: !,"1. Type of benefit applied for: ",$P("HOSPITAL/OUTPATIENT TREATMENT^DOMICILIARY CARE^HOSPITAL/OUTPATIENT TREATMENT^OUTPATIENT DENTAL^NURSING HOME CARE",U,+DGD) Line Location: PARTI+1
Function Call: WRITE	Prompt: !,DGLUND Line Location: PARTI+2
Function Call: WRITE	Prompt: !,"2. Applicant's Name ",?48,"\|"," 3. Other names used (Alias)",?86,"\|"," 4. Social Security Number" Line Location: PARTI+3
Function Call: WRITE	Prompt: !?5,DGNAM,?48,"\|",?54,DGA,?86,"\|",?92,DGSS Line Location: PARTI+5
Function Call: WRITE	Prompt: !?48,"\|",?54,$P($G(^DPT(DFN,.01,DGX,0)),U,1),?86,"\|" Line Location: PARTI+6
Function Call: WRITE	Prompt: ?131,"",$C(13),DGLUND Line Location: PARTI+7
Function Call: WRITE	Prompt: !,"5. Claim Number",?23,"\| 6. LOCATION OF CLAIMS FOLDER",?60,"\| 7. DATE OF BIRTH",?86,"\| 8. PLACE OF BIRTH" Line Location: CLAIM+1
Function Call: WRITE	Prompt: ?86,"\| ",$E($S((DGNOCITY&DGUNK):"UNANSWERED",1:DGD_$S(($L(DGD)):", ",1:"")_DGD1),1,39),?131,$C(13),DGLUND Line Location: CLAIM+5
Function Call: WRITE	Prompt: !,"9. PERMANENT ADDRESS",?66,"\|"," 10. TEMPORARY ADDRESS " Line Location: HEADADD+3
Function Call: WRITE	Prompt: !,DGL2 Line Location: PRTTMP+5
Function Call: WRITE	Prompt: !,"9A. STREET ADDRESS:",?21,DGD(.11,1),?66,"\|"," 10A. STREET ADDRESS:",?89,DGD(.121,1) Line Location: WRADD+0
Function Call: WRITE	Prompt: !,DGL2 Line Location: WRADD+3
Function Call: WRITE	Prompt: !,"9B. CITY: ",DGD(.11,4),?33,"\| ","9C. STATE: ",DGD(.11,5),?66,"\|"," 10B. CITY: ",$E(DGD(.121,4),1,20),?99,"\| ","10C. STATE: ",DGD(.121,5),!,DGL2 Line Location: WRADD+4
Function Call: WRITE	Prompt: !,"9D. ZIP CODE: ",DGD(.11,12),?33,"\| ","9E. COUNTY: ",$$POINT^DG1010P0(DGP(.11),7,("^DIC(5,"_+$P(DGP(.11),U,5)_",1,"),0),?66,"\| " Line Location: WRADD+5
Function Call: WRITE	Prompt: "10D. ZIP CODE: ",DGD(.121,12),?99,"\| ","10E. COUNTY: " Line Location: WRADD+6
Function Call: WRITE	Prompt: !,DGL2 Line Location: WRADD+8
Function Call: WRITE	Prompt: !,"9F. HOME TELEPHONE NUMBER: ",$$DISP^DG1010P0(DGP(.13),1),?66,"\| ","10F. HOME TELEPHONE NUMBER:",?96 Line Location: WRADD+9
Function Call: WRITE	Prompt: !,DGLUND Line Location: WRADD+11
Function Call: WRITE	Prompt: !,"11. CONFIDENTIAL ADDRESS",?66,"\|" Line Location: CA+3
Function Call: WRITE	Prompt: !,DGL2 Line Location: CA+7
Function Call: WRITE	Prompt: !,"11A. STREET ADDRESS:",?21,VAPA(13) Line Location: CA+8
Function Call: WRITE	Prompt: ?66,"\| ","11B. CITY: ",$E(VAPA(16),0,19),?99,"\| 11C. STATE: ",$P(VAPA(17),"^",2) Line Location: CA+9
Function Call: WRITE	Prompt: !,?21,VAPA(14) Line Location: CA+10
Function Call: WRITE	Prompt: ?66,"\| ","11D. ZIP CODE: ",$P(VAPA(18),"^",2),?99,"\| 11E. COUNTY: ",$P(VAPA(19),"^",2) Line Location: CA+11
Function Call: WRITE	Prompt: !,?21,VAPA(15),?66,"\| 11F. START DATE: ",$P(VAPA(20),"^",2),?99,"\| STOP DATE: ",$P(VAPA(21),"^",2) Line Location: CA+12
Function Call: WRITE	Prompt: !,$E(DGL2,1,99),"\|",$E(DGL2,1,32) Line Location: CA+13
Function Call: WRITE	Prompt: !,"11G. Active Confidential Address Categories",?66,"\|" Line Location: CA+14
Function Call: WRITE	Prompt: !?11,DGCATN,?66,"\|" Line Location: CA+17
Function Call: WRITE	Prompt: !,DGLUND Line Location: CA+18
Function Call: WRITE	Prompt: !,"12. PATIENT'S SEX",?33,"\| ","13. MOTHER'S MAIDEN NAME",?66,"\| ","14. MOTHER'S NAME",?99,"\| ","15. FATHER'S NAME" Line Location: SEX+1
Function Call: WRITE	Prompt: !?5,$S((X="M"):"MALE",(X="F"):"FEMALE",1:"UNANSWERED") Line Location: SEX+2
Function Call: WRITE	Prompt: ?33,"\| ",?40,$E(($$DISP^DG1010P0(DGP(.24),3)),1,25),?66,"\| ",?73,$E(($$DISP^DG1010P0(DGP(.24),2)),1,23),?99,"\| ",?106,$E(($$DISP^DG1010P0(DGP(.24),1)),1,30),?131,$C(13),DGLUND Line Location: SEX+3
Function Call: WRITE	Prompt: !,"16. RELIGIOUS PREFERENCE",?33,"\| ","17. DATE OF PREVIOUS CARE",?66,"\| ","18. LOCATION OF PREVIOUS CARE",?99,"\| ","19. SPINAL CORD INJURY" Line Location: RELIG+1
Function Call: WRITE	Prompt: !?5,$$POINT^DG1010P0(DGP(0),8,13),?33,"\| ",?40,$$DATENP^DG1010P0(DGP(1010.15),1),?66,"\| ",?73,$$POINT^DG1010P0(DGP(1010.15),2,4) Line Location: RELIG+2
Function Call: WRITE	Prompt: ?99,"\| ",?106,$S((DGUNK):X,(X=1):"PARAPLEGIA-TRAUMATIC",(X=2):"QUADRIPLEGIA-TRAUMATIC",(X=3):"PARAPLEGIA-NONTRAUMATIC",(X=4):"QUADRIPLEGIA-NONTRAUMATIC",(X="X"):"NOT APPLICABLE",1:"INVALID"),?131,$C(13),DGLUND,! Line Location: RELIG+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	PARTI+4, PARTI+6
>> DFN1	PRTTMP+3
>> DGA	PARTI+4*, PARTI+5
DGACT	CA+1~, CA+16*, CA+17
DGCAT	CA+1~, CA+16*
DGCATN	CA+1~, CA+16*, CA+17
DGCATS	CA+1~, CA+15*, CA+16
DGD	PARTI+1, CLAIM+4, CLAIM+5, PRTTMP+1!, SEX!
DGD(	PRTTMP+3, STR2ZIP+3, STR2ZIP+4, STR2ZIP+5, STR2ZIP+6*, WRADD, WRADD+1, WRADD+2, WRADD+4, WRADD+5 , WRADD+6
>> DGD1	CLAIM+4, CLAIM+5, HEADADD+1, PRTTMP+4
>> DGD2	HEADADD+2*, PRTTMP+4
>> DGDMAX	HEADADD+4, STR2ZIP+4, WRADD+1, WRADD+2
>> DGDPC	PRTTMP+3, STR2ZIP+2, STR2ZIP+3, STR2ZIP+4, STR2ZIP+5
>> DGI	STR2ZIP*, STR2ZIP+3, STR2ZIP+4, STR2ZIP+5
>> DGL2	PRTTMP+5, WRADD+3, WRADD+4, WRADD+8, CA+7, CA+13
>> DGLDASH	ST
>> DGLUND	ST+1*, PARTI, PARTI+2, PARTI+7, CLAIM+5, WRADD+11, CA+6, CA+18, SEX+3, RELIG+4
>> DGNAM	PARTI+5
>> DGNOCITY	CLAIM+4*, CLAIM+5
>> DGP(	CLAIM+2, CLAIM+3, HEADADD+1, HEADADD+2, PRTTMP+3, STR2ZIP+3, STR2ZIP+4, STR2ZIP+5, WRADD+5, WRADD+7 , WRADD+9, WRADD+10, SEX+3, RELIG+2
>> DGP("DIS"	PARTI+1
>> DGP(0	CLAIM+3, CLAIM+4, SEX+2, RELIG+2
>> DGP(57	RELIG+3
>> DGSS	PARTI+5
>> DGTMP	PRTTMP+2, PRTTMP+3, PRTTMP+4, STR2ZIP, STR2ZIP+6, WRADD+7, WRADD+10
>> DGUNK	CLAIM+3, CLAIM+4, CLAIM+5, RELIG+4
DGX	PARTI+4, PARTI+6, CLAIM+2*, CLAIM+3, SEX!
IOST	ST+1
U	PARTI+1, PARTI+4, PARTI+6, PRTTMP+3, WRADD+5, WRADD+7, SEX+2, RELIG+3
VAPA	CA+1~
VAPA(12	CA+4
VAPA(13	CA+8
VAPA(14	CA+10
VAPA(15	CA+12
VAPA(16	CA+9
VAPA(17	CA+9
VAPA(18	CA+11
VAPA(19	CA+11
VAPA(20	CA+12
VAPA(21	CA+12
VAPA(22	CA+15, CA+16
>> X	STR2ZIP+5, SEX+2, RELIG+3*, RELIG+4

Customize PDF page

Package: Registration

Routine: DG1010P1

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: