Routine: DG1010P3

Package	Total	Call Graph
Registration	2	($$DISP,$$POINT,$$UNK)^DG1010P0 PARTIV^DG1010P4

Package	Total	Caller Graph
Registration	1	DG1010P2

Entry Points

Name	Comments	DBIA/ICR reference
CTSTZP
ESTATUS(N,NA)	; ; Returns the external value of the Employment Status for either the ; Spouse or the Patient, unless NA=1. ; INPUT: N -- A node [either the .311 or the .25] ; NA -- If =1 returns 'NOT APPLICABLE' ; [N is REQUIRED] ; OUTPUT[Returned & SET] -- X
NAME
PARTIII	;
STREET
QE	;
SETADD	;

External References

Name	Field # of Occurrence
$$DISP^DG1010P0	PARTIII+15, NAME, NAME+2, SETADD+11, SETADD+12, SETADD+15, CTSTZP+1
$$POINT^DG1010P0	PARTIII+4
$$UNK^DG1010P0	SETADD+13
PARTIV^DG1010P4	CTSTZP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?50,"PART III - APPLICANT/SPOUSE DATA",!,$C(13),DGLUND Line Location: PARTIII+6
Function Call: WRITE	Prompt: !,"1. APPLICANT'S EMPLOYMENT STATUS: ",$$ESTATUS(DGP(.311)),!,$C(13),DGLUND Line Location: PARTIII+9
Function Call: WRITE	Prompt: !,"2. SPOUSE'S EMPLOYMENT STATUS: ",$$ESTATUS(DGP(.25),DGNA),!,$C(13),DGLUND Line Location: PARTIII+12
Function Call: WRITE	Prompt: !,?66,"\| ",!?14,"3. APPLICANT INFORMATION",?66,"\| ",?87,"4. SPOUSE'S INFORMATION",?131,$C(13),DGLUND Line Location: PARTIII+14
Function Call: WRITE	Prompt: !,"3A. OCCUPATION: ",$$DISP^DG1010P0(DGP(0),7),?66,"\| ","4A. OCCUPATION: ",$$DISP^DG1010P0(DGP(.25),14,DGNA),!,DGL2 Line Location: PARTIII+15
Function Call: WRITE	Prompt: !,"3B. EMPLOYER (Name, Street Address, City, State, Zip)",?66,"\| " Line Location: PARTIII+16
Function Call: WRITE	Prompt: "4B. EMPLOYER (Name, Street Address, City, State, Zip)" Line Location: PARTIII+17
Function Call: WRITE	Prompt: !?5,$$DISP^DG1010P0(DGP(.311),1,DGVUNEMP) Line Location: NAME+0
Function Call: WRITE	Prompt: ?66,"\| ",?73,$$DISP^DG1010P0(DGP(.25),1,DGNA) Line Location: NAME+2
Function Call: WRITE	Prompt: !?5,DGD(.311,3),?66,"\| ",?73,DGD(.25,3) Line Location: STREET+0
Function Call: WRITE	Prompt: !?5,DGD(.311,6),DGD(.311,7),DGD(.311,8),?66,"\| ",?73,DGD(.25,6),DGD(.25,7),DGD(.25,8),!,DGL2 Line Location: CTSTZP+0
Function Call: WRITE	Prompt: !,"3C. WORK TELEPHONE NUMBER: ",$$DISP^DG1010P0(DGP(.311),9,0,DGBLANK1),?66,"\| ","4C. WORK TELEPHONE NUMBER: ",$$DISP^DG1010P0(DGP(.25),8,DGNA,DGBLANK2),?131,$C(13),DGLUND Line Location: CTSTZP+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	ESTATUS+10
^DIC(5 - [#5]	SETADD+13
^DPT - [#2]	PARTIII+2

Label References

Name	Line Occurrences
$$ESTATUS	PARTIII+9, PARTIII+12
QE	ESTATUS+7, ESTATUS+9, ESTATUS+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DESTXT	PARTIII+1!
>> DFN	PARTIII+2
DG1010P2	PARTIII+1!
DGADDR	PARTIII+1!
>> DGBLANK	PARTIII+5, NAME, SETADD+8, SETADD+16
>> DGBLANK1	NAME*, CTSTZP+1
>> DGBLANK2	NAME+2*, SETADD+8, CTSTZP+1
DGD	PARTIII+1!
DGD(	SETADD+2, SETADD+3, SETADD+11, SETADD+12, SETADD+13, SETADD+14, SETADD+15, STREET, STREET+1, STREET+2 , CTSTZP
DGD1	PARTIII+1!
DGDCTY	PARTIII+1!
>> DGDMAX	PARTIII+3, SETADD+14, STREET+1, STREET+2
>> DGDPC	SETADD+2, SETADD+3, SETADD+10*, SETADD+11, SETADD+12, SETADD+13, SETADD+14, SETADD+15
DGDSL	PARTIII+1!
DGDST	PARTIII+1!
DGDSTR	PARTIII+1!
DGDSUM	PARTIII+1!
DGDZIP	PARTIII+1!
>> DGI	SETADD+1, SETADD+5, SETADD+6, SETADD+7, SETADD+8, SETADD+11, SETADD+12, SETADD+13, SETADD+14, SETADD+15
>> DGL2	PARTIII+15, CTSTZP
>> DGLUND	PARTIII+6, PARTIII+9, PARTIII+12, PARTIII+14, CTSTZP+1
>> DGNA	PARTIII+7, PARTIII+12, PARTIII+15, NAME+1, NAME+2, SETADD+1, SETADD+8, CTSTZP+1
>> DGNOTMAR	PARTIII+4*, PARTIII+7, SETADD+2, SETADD+6, SETADD+8
DGP	PARTIII+1!
DGP(	PARTIII+2*, PARTIII+9, PARTIII+12, PARTIII+15, NAME, NAME+2, SETADD+11, SETADD+12, SETADD+13, SETADD+15 , CTSTZP+1
DGP(0	PARTIII+4, PARTIII+15
>> DGPCDIFF	SETADD+4, SETADD+8, SETADD+11, SETADD+12, SETADD+13
DGQ	PARTIII+1!
>> DGSPC	PARTIII+5*
DGSUNEMP	PARTIII+13*, NAME+1, SETADD+2, SETADD+6, CTSTZP+2!
>> DGUNK	NAME, NAME+2, SETADD+12, SETADD+13
DGVUNEMP	PARTIII+11*, NAME, SETADD+3, SETADD+7, CTSTZP+2!
>> I	PARTIII+2*
N	ESTATUS~, ESTATUS+8
NA	ESTATUS~, ESTATUS+7
U	SETADD+13, ESTATUS+8, ESTATUS+10
>> X	PARTIII+4, PARTIII+11, PARTIII+13, SETADD+13, ESTATUS+7, ESTATUS+8, ESTATUS+9, ESTATUS+10, ESTATUS+11, ESTATUS+12 , QE+1

Customize PDF page

Package: Registration

Routine: DG1010P3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: