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 |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGMTSCU4

Package: Registration

Routine: DGMTSCU4


Information

DGMTSCU4 ;ALB/CMF - Means Test Maximum Annual Pension Rate Utilities ;4 OCT 2004 3:33 pm

Source Information

Source file <DGMTSCU4.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 2 $$AMT^DGMTSCU1  DEP^DGMTSCU2  
Kernel 1 $$FMTE^XLFDT  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 6 DGMT ENTER/EDIT EXPENSES  DGMT V1 ENTER/EDIT EXPENSES  DGMTSC1  DGMTXE  DGMTXX11  DGMTXX12  
Enrollment Application System 1 EASEZPV2  

Entry Points

Name Comments DBIA/ICR reference
AGME101(DGP1) ;force recalculate gross upon FM change to adjusted
; in: dgp1:~DGVINI = veteran income test ien
; out: queued task
; called from AGME101 x-ref of 408.21/1.01
YEAR(DGMTDT) ;get MAPR year from means test date
MEDEXP(DGGRS,DGADJ,DGYR,DGDEP) ;
; in: DGGRS = gross medical expense, default is 0
; DGADJ = adjusted medical expense, default is 0
; DGYR = rate table year
; DGDEP = # of dependents
; out: if gross >0, adjusted medical expense
; if adjusted > 0, gross medical expense (back-compute)
; else 0
ND(DGP1,DGP2,DGP3) ;return # of deps for a test
; in: dgp1:DFN = patient ien
; dgp2:DGMTDT = means test date
; dgp3:DGVIRI = veteran income relation ien
; out: DGND = # of dependents for a test
GROSS(DGP1,DGP2,DGP3,DGP4) ;derive gross med exp from adj med exp
; in: dgp1:DGVINI = veteran income test ien
; dgp2:DGDFN = patient ien
; dgp3:DGMTDT = means test date
; dgp4:DGVIRI = veteran income relation ien
; out: gross medical expense reset if necessary
GRSADJ(DGP1,DGP2,DGP3,DGP4) ;write adjusted medical expense
ADJUST(DGP1,DGP2,DGP3,DGP4) ;derive adjust med exp from gross med exp
; in: dgp1:DGVINI = veteran income test ien
; dgp2:DGDFN = patient ien
; dgp3:DGMTDT = means test date
; dgp4:DGVIRI = veteran income relation ien
; out: adjusted medical expense or -1 if not set

External References

Name Field # of Occurrence
$$AMT^DGMTSCU1 GRSADJ+6
DEP^DGMTSCU2 ND+10
$$FMTE^XLFDT YEAR+1
$$GET^XPAR MEDEXP+19, MEDEXP+23, MEDEXP+24, MEDEXP+27

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.21 - [#408.21] ADJUST+12, ADJUST+15, ADJUST+17*, GROSS+12, GROSS+13, GROSS+14, GROSS+21*, AGME101+7, AGME101+8*

Label References

Name Line Occurrences
$$ADJUST GRSADJ+5
$$MEDEXP ADJUST+16, GROSS+19, GROSS+20
$$ND ADJUST+13, GROSS+17
$$YEAR ADJUST+14, GROSS+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN ND+5~, ND+6*, ND+9
DGADD MEDEXP+8~, MEDEXP+25*, MEDEXP+27*, MEDEXP+28*, MEDEXP+31
DGADJ MEDEXP~, MEDEXP+12*, MEDEXP+13, MEDEXP+37, MEDEXP+38, GRSADJ+4~, GRSADJ+5*, GRSADJ+6*, GRSADJ+7, ADJUST+6~
, ADJUST+16*, ADJUST+17, ADJUST+18, GROSS+6~, GROSS+14*, GROSS+15, GROSS+16, GROSS+19, GROSS+20
DGDC ND+5~
DGDEP MEDEXP~, MEDEXP+16*, MEDEXP+23, MEDEXP+24, MEDEXP+26, MEDEXP+28
DGDFN ADJUST+6~, ADJUST+8*, ADJUST+11, ADJUST+13, GROSS+6~, GROSS+8*, GROSS+11, GROSS+17
DGGRS MEDEXP~, MEDEXP+11*, MEDEXP+12, MEDEXP+13, MEDEXP+32, MEDEXP+33, ADJUST+6~, ADJUST+15*, ADJUST+16, GROSS+6~
, GROSS+13*, GROSS+15, GROSS+19, GROSS+20*, GROSS+21
DGMAP MEDEXP+8~, MEDEXP+23*, MEDEXP+24*, MEDEXP+31
DGMTDT ND+5~, ND+7*, ND+9, ADJUST+6~, ADJUST+9*, ADJUST+11, ADJUST+13, ADJUST+14, GROSS+6~, GROSS+9*
, GROSS+11, GROSS+17, GROSS+18, YEAR~, YEAR+1
DGNC ND+5~
DGND ND+5~, ND+11, ADJUST+6~, ADJUST+13*, ADJUST+16, GROSS+6~, GROSS+17*, GROSS+19, GROSS+20
DGP1 ND~, ND+6, GRSADJ~, GRSADJ+5, ADJUST~, ADJUST+7, GROSS~, GROSS+7, AGME101~, AGME101+5
DGP2 ND~, ND+7, GRSADJ~, GRSADJ+5, ADJUST~, ADJUST+8, GROSS~, GROSS+8
DGP3 ND~, ND+8, GRSADJ~, GRSADJ+5, ADJUST~, ADJUST+9, GROSS~, GROSS+9
DGP4 GRSADJ~, GRSADJ+5, ADJUST~, ADJUST+10, GROSS~, GROSS+10
DGPER MEDEXP+8~, MEDEXP+19*, MEDEXP+20, MEDEXP+31
DGRTN MEDEXP+8~, MEDEXP+10*, MEDEXP+13, MEDEXP+15, MEDEXP+20, MEDEXP+31*, MEDEXP+33*, MEDEXP+34*, MEDEXP+38*, MEDEXP+39*
, MEDEXP+42
DGSP ND+5~
DGVINI ADJUST+6~, ADJUST+7*, ADJUST+11, ADJUST+12, ADJUST+15, ADJUST+17, GROSS+6~, GROSS+7*, GROSS+11, GROSS+12
, GROSS+13, GROSS+14, GROSS+21, AGME101+4~, AGME101+5*, AGME101+6, AGME101+7, AGME101+8
DGVIR0 ND+5~
DGVIRI ND+5~, ND+8*, ND+9, ADJUST+6~, ADJUST+10*, ADJUST+11, ADJUST+13, GROSS+6~, GROSS+10*, GROSS+11
, GROSS+17
DGYR MEDEXP~, MEDEXP+14*, MEDEXP+15, MEDEXP+19, MEDEXP+23, MEDEXP+24, MEDEXP+27, ADJUST+6~, ADJUST+14*, ADJUST+16
, GROSS+6~, GROSS+18*, GROSS+19, GROSS+20
U ADJUST+15, ADJUST+17, GROSS+13, GROSS+14, GROSS+21, AGME101+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All