Routine: DGMTSC4V

Package	Total	Call Graph
Registration	8	$$GETNAME^DGMTH EN^DGMTSCR HD^DGMTSCU ($$AMT,HIGH)^DGMTSCU1 (CHK,SET)^DGMTSCU2 $$NAME^DGMTU1 GETIENS^DGMTU2 ALL^DGMTU21
VA Fileman	2	^DIE $$GET1^DIQ

Entry Points

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

External References

Name	Field # of Occurrence
$$GETNAME^DGMTH	DIS+19
EN^DGMTSCR	EN+3
HD^DGMTSCU	EN+1
$$AMT^DGMTSCU1	DIS+3, DIS+14, DIS+19, DIS+20, FLD+12, FLD+13, FLD+14, FLD+16
HIGH^DGMTSCU1	DIS+7, DIS+9, DIS+11
CHK^DGMTSCU2	EN1+6
SET^DGMTSCU2	DIS+2
$$NAME^DGMTU1	EDT+3
GETIENS^DGMTU2	EDT+2
ALL^DGMTU21	EN1+1
^DIE	EDT+7, EDT+8
$$GET1^DIQ	DIS+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Income Thresholds: " Line Location: DIS+3
Function Call: WRITE	Prompt: "MT Threshold: ",$$AMT^DGMTSCU1(DGTHA) Condition for execution: $D(DGTHA) Line Location: DIS+3
Function Call: WRITE	Prompt: ?53,"GMT Threshold: ",$$AMT^DGMTSCU1(DGTHG) Condition for execution: $D(DGTHG) Line Location: DIS+3
Function Call: WRITE	Prompt: ! Line Location: DIS+4
Function Call: WRITE	Prompt: "Previous Years Thresholds" Condition for execution: $D(DGMTPAR("PREV")) Line Location: DIS+4
Function Call: WRITE	Prompt: ?34,"Veteran" Line Location: DIS+5
Function Call: WRITE	Prompt: ?47,"Spouse" Condition for execution: DGSP Line Location: DIS+5
Function Call: WRITE	Prompt: ?57,"Children" Condition for execution: DGDC Line Location: DIS+5
Function Call: WRITE	Prompt: ?73,"Total" Line Location: DIS+5
Function Call: WRITE	Prompt: !?31,"-----------------------------------------------" Line Location: DIS+6
Function Call: WRITE	Prompt: " Cash, Amts in Bank Accts" Line Location: DIS+7
Function Call: WRITE	Prompt: " Land,Bldgs Less Mortgage," Line Location: DIS+9
Function Call: WRITE	Prompt: " Other Prop.(Farm,Bus.) Or" Line Location: DIS+11
Function Call: WRITE	Prompt: !?5,"Assets (Art,Collectibles)" Line Location: DIS+12
Function Call: WRITE	Prompt: !?51,"Total -->",?66,$J($$AMT^DGMTSCU1(DGNWT),12) Line Location: DIS+14
Function Call: WRITE	Prompt: !!!!!!,"Declines to give income information makes a MT COPAY REQUIRED status." Line Location: DIS+15
Function Call: WRITE	Prompt: !!!!!!,"Source of Test is IVM" Line Location: DIS+18
Function Call: WRITE	Prompt: !!!!!! Line Location: DIS+19
Function Call: WRITE	Prompt: "Income of ",$J($$AMT^DGMTSCU1(DGINT-DGDET),12) Line Location: DIS+19
Function Call: WRITE	Prompt: "Income of ",$J($$AMT^DGMTSCU1(DGINT-DGDET),12) Line Location: DIS+19
Function Call: WRITE	Prompt: !,?3,"with property of ",$J($$AMT^DGMTSCU1(DGNWT),12)," makes a ",$S(DGTHG>DGTHA:"G",1:""),"MT COPAY REQUIRED status." Line Location: DIS+20
Function Call: WRITE	Prompt: " requires property information." Line Location: DIS+21
Function Call: WRITE	Prompt: "Requires property information." Line Location: DIS+22
Function Call: WRITE	Prompt: !?5,$E(DGTXT_DGBL,1,26) Line Location: FLD+11
Function Call: WRITE	Prompt: $J($$AMT^DGMTSCU1($P(DGIN("V"),"^",DGPCE)),10) Line Location: FLD+12
Function Call: WRITE	Prompt: " ",$S($D(DGIN("S")):$J($$AMT^DGMTSCU1($P(DGIN("S"),"^",DGPCE)),10),1:$E(DGBL,1,10)) Line Location: FLD+13
Function Call: WRITE	Prompt: " ",$S($D(DGIN("C")):$J($$AMT^DGMTSCU1($P(DGIN("C"),"^",DGPCE)),11),1:$E(DGBL,1,11)) Line Location: FLD+14
Function Call: WRITE	Prompt: " ",$J($$AMT^DGMTSCU1(DGTOT),12) Line Location: FLD+16
Function Call: WRITE	Prompt: !!,"NAME: ",$$NAME^DGMTU1(DGPRI) Line Location: EDT+3
Routine Call	DIE Line Location: EDT+7 EDT+8

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
DIS	EN+2
DISQ	DIS+15, DIS+17
EDT	EN1+2, EN1+3, EN1+6
EDTQ	EDT+2
EN	Q+1
FLD	DIS+8, DIS+10, DIS+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Registration

Routine: DGMTSC4V

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: