Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGMTSC4

Package: Registration

Routine: DGMTSC4


Information

DGMTSC4 ;ALB/RMO/CAW,LBD,HM - Means Test Screen Net Worth ;11/7/03 1:44pm

Source Information

Source file <DGMTSC4.m>

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) ;Display income fields
EDT ;Edit net worth fields
EDTQ

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: ?46,"Spouse"
  • Condition for execution: DGSP
  • 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: !?51,"Total -->",?66,$J($$AMT^DGMTSCU1(DGNWT),12)
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: !!!!!!!!,"Declines to give income information makes a MT COPAY REQUIRED status."
  • Line Location: DIS+13
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+9
Function Call: WRITE
  • Prompt: " requires property information."
  • Line Location: MTMSG+10
Function Call: WRITE
  • Prompt: "Requires property information."
  • Line Location: MTMSG+11
Function Call: WRITE
  • Prompt: " ",$E(DGTXT_DGBL,1,26)
  • Line Location: FLD+13
Function Call: WRITE
  • Prompt: $J($$AMT^DGMTSCU1($P(DGIN("V"),"^",DGPCE)),10)
  • Line Location: FLD+14
Function Call: WRITE
  • Prompt: " ",$S($D(DGIN("S")):$J($$AMT^DGMTSCU1($P(DGIN("S"),"^",DGPCE)),10),1:$E(DGBL,1,10))
  • Line Location: FLD+15
Function Call: WRITE
  • Prompt: " ",$S($D(DGIN("D")):$J($$AMT^DGMTSCU1($P(DGIN("D"),"^",DGPCE)),11),1:$E(DGBL,1,11))
  • 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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call