Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGMTSC4V

Package: Registration

Routine: DGMTSC4V


Information

DGMTSC4V ;ALB/AMA,HM,JAM - Means Test Screen Net Worth For MT Version 1 ;11/7/03 1:44pm

Source Information

Source file <DGMTSC4V.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 10 $$INDSTATUS^DGENELA2  $$GETNAME^DGMTH  (EN,EN1,FEED)^DGMTSCR  HD^DGMTSCU  ($$AMT,HIGH)^DGMTSCU1  (CHK,DEP,SET,STA)^DGMTSCU2  INC^DGMTSCU3  $$NAME^DGMTU1  
GETIENS^DGMTU2  ALL^DGMTU21  
VA FileMan 3 (BLD,MSG)^DIALOG  ^DIE  $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point for previous calendar year net worth screen
EN1 ;Entry point for read processor return
Q
DIS ;Display net worth
MTMSG ;DG*5.3*1014 only display for view a past means test
DISQ
FLD(DGIN,DGPCE,DGTXT)
EDT ;Edit net worth fields
EDTQ

External References

Name Field # of Occurrence
$$INDSTATUS^DGENELA2 MTMSG+6
$$GETNAME^DGMTH EN+9, EN+10, MTMSG+4
EN^DGMTSCR EN+1
EN1^DGMTSCR EN+14
FEED^DGMTSCR EN+14
HD^DGMTSCU EN+6
$$AMT^DGMTSCU1 DIS+3, DIS+14, MTMSG+4, FLD+12, FLD+13, FLD+14, FLD+16
HIGH^DGMTSCU1 DIS+7, DIS+9, DIS+11
CHK^DGMTSCU2 EN1+6
DEP^DGMTSCU2 EN+2, MTMSG+2
SET^DGMTSCU2 DIS+2
STA^DGMTSCU2 MTMSG+3
INC^DGMTSCU3 EN+2, MTMSG+2
$$NAME^DGMTU1 EDT+3
GETIENS^DGMTU2 EDT+2
ALL^DGMTU21 EN1+1
BLD^DIALOG MTMSG+7
MSG^DIALOG MTMSG+8
^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: "Income of ",$J($$AMT^DGMTSCU1(DGINT-DGDET),12)
  • Line Location: MTMSG+4
Function Call: WRITE
  • Prompt: " ",$$GETNAME^DGMTH(DGMTS)
  • Line Location: MTMSG+4
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: MTMSG+10
Function Call: WRITE
  • Prompt: " requires property information."
  • Line Location: MTMSG+11
Function Call: WRITE
  • Prompt: "Requires property information."
  • Line Location: MTMSG+12
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
  • DIALOG
  • Line Location:
    • MTMSG+7
Routine Call
  • DIALOG
  • Line Location:
    • MTMSG+8
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)
^DG(408.32 - [#408.32] MTMSG+3
^DGMT(408.21 - [#408.21] EDT+4, EDT+8
^DGMT(408.31 - [#408.31] MTMSG+3, EDT+5

Label References

Name Line Occurrences
DIS EN+9, EN+11
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
MTMSG EN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EDT+1~, EDT+7*
>> DFN EN1+1, MTMSG+6, EDT+2
>> DGBL FLD+10*, FLD+11, FLD+13, FLD+14
DGCAT DIS+1~, MTMSG+3*
DGCNT EN1+5*, EN1+6, Q!, DIS+1~, DIS+2*, MTMSG+3*, FLD+17*
DGDC DIS+1~, DIS+5
DGDEP Q!
DGDET DIS+1~, MTMSG+4
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
DGIN2("S" EN+5
DGIN2("V" EN+4
DGINI EDT+1~, EDT+4, EDT+7, EDT+8
DGINT DIS+1~, MTMSG+4
DGINTF DIS+1~
DGIRI EDT+1~
>> DGMT0 DIS+15
>> DGMTACT EN+1, EN+10, EN+14, DIS+7, DIS+9, DIS+11, DIS+15, DIS+17, MTMSG+1
>> DGMTDT EN1+1, EDT+2
>> DGMTI EN1+1, DIS+17, MTMSG+3, EDT+5
DGMTOUT EN1+3, EN1+5, Q!, EDT+7*
>> DGMTPAR("PREV" DIS+4
DGMTS DIS+1~, MTMSG+4
>> DGMTSCI EN+6*, EN+9, EN+10, EN+14*
DGMTVR EDT+1~, EDT+5*
>> DGMTYPT DIS+3, DIS+15, MTMSG+4
DGNC DIS+1~
DGND DIS+1~
DGNWT DIS+1~, DIS+14
DGNWTF DIS+1~
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+12*, EN+14*
DGSCR1 EN+7*, EN+8*, EN+13, DIS+19!
DGSEL EN1+3, EN1+5, Q!, EDT+3
DGSELTY EN1+2, EN1+3, EN1+5, Q!
DGSP DIS+1~, DIS+5
DGSPD EN+3~*
DGSPD(1 EN+5*, EN+6, EN+8, EN+9, EN+11
DGSPD(2 EN+5*, EN+6, EN+8, EN+9, EN+11
DGSPD(3 EN+5*, EN+6, EN+8, EN+9, EN+11
DGTHA DIS+1~, DIS+3
DGTHB DIS+1~
DGTHG DIS+1~, DIS+3
DGTOT FLD+9~, FLD+15*, FLD+16
DGTXT FLD~, FLD+11
DGTYC DIS+1~
DGVET EN+3~*
DGVET(1 EN+4*, EN+6, EN+7, EN+9, EN+11
DGVET(2 EN+4*, EN+6, EN+7, EN+9, EN+11
DGVET(3 EN+4*, EN+6, EN+7, EN+9, EN+11
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*
U EN+4, EN+5
Y EN1+6, Q!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All