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
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>

Entry Points

Name Comments DBIA/ICR reference
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
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
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
YEAR(DGMTDT) ;get MAPR year from means test date
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
Info |  Source |  Entry Points