Routine: DGRPTP2

Information

DGRPTP2 ;ALB/RMO - Print 10-10T Registration Cont.;10 JAN 1997 09:06 am

Source Information

Source file <DGRPTP2.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Registration	4	($$DATENP,$$DISP,$$POINT)^DG1010P0 ALL^DGMTU21 (FT,HD)^DGRPTP EN^DGRPTP3
Integrated Billing	1	ALL^IBCNS1
VA Fileman	1	Y^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGRPTP1

Entry Points

Name	Comments	DBIA/ICR reference
EN(DFN,DFN1,DGNAM,DGSSN,DGLNE,DGPGE)	;Entry point to print 10-10T cont. ; Input -- DFN Patient IEN ; DFN1 Disposition multiple IEN (optional) ; DGNAM Patient name ; DGSSN Patient ssn ; DGLNE Line format array ; DGPGE Page number ; Output -- None
INS(DFN,DGLNE)	;Insurance ; Input -- DFN Patient IEN ; DGLNE Line format array ; Output -- None
SPO(DFN,DGLNE)	;Spouse and income ; Input -- DFN Patient IEN ; DGLNE Line format array ; Output -- None
SER(DFN,DGLNE)	;Service branch and number, marital status ; Input -- DFN Patient IEN ; DGLNE Line format array ; Output -- None

Name	Field # of Occurrence
$$DATENP^DG1010P0	SPO+23
$$DISP^DG1010P0	SER+10, SPO+12
$$POINT^DG1010P0	INS+15, SER+9
ALL^DGMTU21	SPO+8
FT^DGRPTP	EN+11, EN+14
HD^DGRPTP	EN+12
EN^DGRPTP3	EN+13
Y^DIQ	INS+9, SER+14
ALL^IBCNS1	INS+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"14A. Do You Have Health Coverage",?40,"\|14B. Name of Health Insurance Carrier" Line Location: INS+7
Function Call: WRITE	Prompt: ?40,"\| ",$$POINT^DG1010P0(DGINS,1,36) Line Location: INS+15
Function Call: WRITE	Prompt: ?40,"\| ","NO ACTIVE (UNEXPIRED) INSURANCE ON FILE FOR THIS APPLICANT" Line Location: INS+17
Function Call: WRITE	Prompt: ?131,$C(13) Line Location: INS+18
Function Call: WRITE	Prompt: ! Condition for execution: DGLNE("ULC")="-" Line Location: INS+18
Function Call: WRITE	Prompt: DGLNE("UL") Line Location: INS+18
Function Call: WRITE	Prompt: !,"15. Branch of Service",?33,"\|16. Latest Service Number",?65,"\|17. Marital Status" Line Location: SER+7
Function Call: WRITE	Prompt: !?4,$E($$POINT^DG1010P0(DGRP(.32),5,23),1,20) Line Location: SER+9
Function Call: WRITE	Prompt: ?33,"\| ",$$DISP^DG1010P0(DGRP(.32),8) Line Location: SER+10
Function Call: WRITE	Prompt: ?131,$C(13) Line Location: SER+16
Function Call: WRITE	Prompt: ! Condition for execution: DGLNE("ULC")="-" Line Location: SER+16
Function Call: WRITE	Prompt: DGLNE("UL") Line Location: SER+16
Function Call: WRITE	Prompt: !,"18A. Spouse's Name",?65,"\|18B. Spouse's Social Security Number" Line Location: SPO+7
Function Call: WRITE	Prompt: !?5,$$DISP^DG1010P0(DGSP(0),1) Line Location: SPO+12
Function Call: WRITE	Prompt: !?5,"NOT APPLICABLE" Line Location: SPO+16
Function Call: WRITE	Prompt: ?65,"\|" Line Location: SPO+17
Function Call: WRITE	Prompt: ?131,$C(13) Line Location: SPO+18
Function Call: WRITE	Prompt: ! Condition for execution: DGLNE("ULC")="-" Line Location: SPO+18
Function Call: WRITE	Prompt: DGLNE("UL") Line Location: SPO+18
Function Call: WRITE	Prompt: !,"18C. Year of Marriage",?33,"\|18D. Number of Dependents",?65,"\|19. Last Year's Estimated ""Household"" Taxable Income",! Line Location: SPO+21
Function Call: WRITE	Prompt: ?5,$$DATENP^DG1010P0($G(^DGPR(408.12,+DGREL("S"),"E",1,0)),1) Line Location: SPO+23
Function Call: WRITE	Prompt: ?33,"\|" Line Location: SPO+25

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	INS+9, SER+14
^DGMT(408.21 - [#408.21]	SPO+24
^DGPR(408.12 - [#408.12]	SPO+23
^DPT - [#2]	INS+8, SER+8, SER+13

Name	Line Occurrences
INS	EN+8
SER	EN+9
SPO	EN+10

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	INS+4~, INS+9, INS+12, INS+13, INS+14, SER+4~, SER+14, SPO+4~
DFN	EN~, EN+8, EN+9, EN+10, EN+11, EN+14, INS~, INS+8, INS+11, SER~ , SER+8, SER+13, SPO~, SPO+8
DFN1	EN~, EN+11, EN+14
DGDEP	SPO+4~
DGINC	SPO+4~
DGINC("V"	SPO+24
DGINR	SPO+4~
DGINS	INS+4~, INS+12*, INS+15, INS+16
DGINS(	INS+12
DGLNE	EN~, EN+8, EN+9, EN+10, EN+11, EN+12, EN+13, EN+14, INS~, SER~ , SPO~
DGLNE("UL"	INS+18, SER+16, SPO+18
DGLNE("ULC"	INS+18, SER+16, SPO+18
DGLYINC	SPO+4~, SPO+24*, SPO+26
DGNAM	EN~, EN+12
DGPGE	EN~, EN+11, EN+14
DGREL	SPO+4~
DGREL("S"	SPO+9, SPO+23
DGRP	INS+4~, SER+4~
DGRP(	INS+8, INS+9, SER+8, SER+9, SER+10
DGRP(0	SER+13*, SER+14
DGSP	SPO+4~
DGSP(0	SPO+10*, SPO+11, SPO+12, SPO+13, SPO+22
DGSSN	EN~, EN+12
DT	INS+11, SPO+8
I	INS+4~, INS+12*
U	INS+9, SER+14, SPO+9, SPO+10, SPO+13, SPO+24
X	SPO+4~, SPO+9, SPO+10, SPO+13, SPO+14
Y	INS+4~, INS+9, INS+10, SER+4~, SER+14, SER+15, SPO+4~

Customize PDF page

Package: Registration

Routine: DGRPTP2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: