Routine: EASECSC6

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 expense screen
EN1	;Entry point for read processor return
Q
DIS	;Display deductible expenses
FLD(DGIN,DGPCE,DGTXT)	;Display income fields
EDT	;Edit income fields
EDTQ

Name	Field # of Occurrence
$$AMT^DGMTSCU1	DIS+15, FLD+14, FLD+18
HIGH^DGMTSCU1	DIS+5, DIS+6, DIS+7, DIS+8, DIS+9, DIS+10, DIS+11, DIS+12, DIS+13, DIS+14
$$NAME^DGMTU1	EDT+3
^DIE	EDT+6, EDT+10
EN^EASECSCR	EN+3
HD^EASECSCU	EN+1
DEP^EASECSU3	DIS+2
INC^EASECSU3	DIS+2
GETIENS^EASECU2	EDT+2
ALL^EASECU21	EN1+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?39,"Veteran" Line Location: DIS+3
Function Call: WRITE	Prompt: " and Spouse" Condition for execution: DGSP Line Location: DIS+3
Function Call: WRITE	Prompt: ?73,"Total" Line Location: DIS+3
Function Call: WRITE	Prompt: !?36,"------------------------------------------" Line Location: DIS+4
Function Call: WRITE	Prompt: !?56,"Total -->",?66,$J($$AMT^DGMTSCU1(DGDET),12) Line Location: DIS+15
Function Call: WRITE	Prompt: " ",$E(DGTXT_DGBL,1,26) Line Location: FLD+13
Function Call: WRITE	Prompt: $J(AMT,15) Line Location: FLD+15
Function Call: WRITE	Prompt: " " Line Location: FLD+16
Function Call: WRITE	Prompt: " ",$J($$AMT^DGMTSCU1(DGTOT),12) Line Location: FLD+18
Function Call: WRITE	Prompt: !!,"NAME: ",$$NAME^DGMTU1(DGPRI) Line Location: EDT+3
Routine Call	DIE Line Location: EDT+6 EDT+10

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

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

Name	Line Occurrences
DIS	EN+2
EDT	EN1+2
EDTQ	EDT+2
EN	Q+1
FLD	DIS+5, DIS+6, DIS+7, DIS+8, DIS+9, DIS+10, DIS+11, DIS+12, DIS+13, DIS+14

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