Routine: EASECSC4

Package	Total	Call Graph
Enrollment Application System	5	EN^EASECSCR HD^EASECSCU (DEP,INC)^EASECSU3 GETIENS^EASECU2 ALL^EASECU21
Registration	2	($$AMT,HIGH)^DGMTSCU1 $$NAME^DGMTU1
VA FileMan	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point for net worth screen
EN1	;Entry point for read processor return
Q
DIS	;Display net worth
DISQ
FLD(DGIN,DGPCE,DGTXT)	;Display income fields
EDT	;Edit net worth fields
EDTQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !?39,"Veteran" Line Location: DIS+5
Function Call: WRITE	Prompt: ?56,"Spouse" Condition for execution: DGSP Line Location: DIS+5
Function Call: WRITE	Prompt: ?73,"Total" Line Location: DIS+5
Function Call: WRITE	Prompt: !?39,"Veteran" Line Location: DIS+6
Function Call: WRITE	Prompt: " and Spouse" Condition for execution: DGSP Line Location: DIS+6
Function Call: WRITE	Prompt: ?73,"Total" Line Location: DIS+6
Function Call: WRITE	Prompt: !?36,"------------------------------------------" Line Location: DIS+7
Function Call: WRITE	Prompt: !?56,"Total -->",?66,$J($$AMT^DGMTSCU1(DGNWT),12) Line Location: DIS+20
Function Call: WRITE	Prompt: " ",$E(DGTXT_DGBL,1,26) Line Location: FLD+13
Function Call: WRITE	Prompt: $J($$AMT^DGMTSCU1($P(DGIN("V"),"^",DGPCE)),15) Line Location: FLD+14
Function Call: WRITE	Prompt: " ",$S($D(DGIN("S"))&($G(DGFORM)):$J($$AMT^DGMTSCU1($P(DGIN("S"),"^",DGPCE)),15),1:$E(DGBL,1,15)) Line Location: FLD+17
Function Call: WRITE	Prompt: " " Line Location: FLD+18
Function Call: WRITE	Prompt: " ",$J($$AMT^DGMTSCU1(DGTOT),12) Line Location: FLD+20
Function Call: WRITE	Prompt: !!,"NAME: ",$$NAME^DGMTU1(DGPRI) Line Location: EDT+3
Routine Call	DIE Line Location: EDT+8 EDT+12

FileNo	Call Tags
^DGMT(408.21 - [#408.21]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.21 - [#408.21]	EDT+4, EDT+9, EDT+11

Name	Field # of Occurrence
DA	EDT+1~, EDT+7*
>> DFN	EN1+1, EDT+2
>> DGBL	FLD+11*, FLD+13, FLD+17
DGCAT	DIS+1~
DGCNT	Q!, DIS+1~, DIS+2, FLD+12, FLD+21
DGDC	DIS+1~
DGDEP	Q!
DGDET	DIS+1~
DGDR	Q!
DGERR	EDT+1~, EDT+2
DGFIN	EDT+1~, EDT+8
>> DGFORM	EN+3, DIS+5, DIS+12, DIS+16, FLD+17, EDT+7
DGIN	FLD~
DGIN(	FLD+19
DGIN("S"	FLD+17
DGIN("V"	FLD+14
DGIN0	DIS+1~
DGIN1	DIS+1~
DGIN2	DIS+1~, DIS+8, DIS+9, DIS+10, DIS+13, DIS+14, DIS+17, DIS+18, DIS+19, EDT+1~ , EDT+4*, EDT+9
DGINI	EDT+1~, EDT+4, EDT+7, EDT+9, EDT+11
DGINT	DIS+1~
DGINTF	DIS+1~
DGIRI	EDT+1~
>> DGMTACT	DIS+8, DIS+9, DIS+10, DIS+13, DIS+14, DIS+17, DIS+18, DIS+19
>> DGMTDT	EN1+1, EDT+2
>> DGMTI	EN1+1
DGMTOUT	EN1+3, Q!, EDT+8*
DGMTS	DIS+1~
>> DGMTSCI	EN+1*
DGNC	DIS+1~
DGND	DIS+1~
DGNWT	DIS+1~, DIS+20
DGNWTF	DIS+1~
DGPCE	FLD~, FLD+14, FLD+17, FLD+19
DGPRI	EN1+2, EN1+3, Q!, EDT+2, EDT+3
DGPRTY	EN1+2, EN1+3, Q!
DGREL	Q!
DGREL("S"	EN1+3
>> DGRNG	EN+3*
DGSEL	EN1+3, Q!, EDT+3
DGSELTY	EN1+2, EN1+3, Q!
DGSP	DIS+1~, DIS+5, DIS+6
DGTHA	DIS+1~
DGTHB	DIS+1~
DGTOT	FLD+10~, FLD+19*, FLD+20
DGTXT	FLD~, FLD+13
DGTYC	DIS+1~
DGVIR0	DIS+1~
>> DGVPRI	EN1+2
DGX	EN1+2, EN1+3, Q!
DGY	Q!
DIE	EDT+1~, EDT+7*
DR	EDT+1~, EDT+7, EDT+10, EDT+11*
DTOUT	Q!
DUOUT	Q!
I	FLD+10~, FLD+19*
Y	Q!