DGMTSCU4 ;ALB/CMF - Means Test Maximum Annual Pension Rate Utilities ;4 OCT 2004 3:33 pm
Source file <DGMTSCU4.m>
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 |