©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGMTSCU4 ;ALB/CMF - Means Test Maximum Annual Pension Rate Utilities ;4 OCT 2004 3:33 pm
Source file <DGMTSCU4.m>
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 4 | DGMTSC1 DGMTXE DGMTXX11 DGMTXX12 |
| 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 |
| 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* |
| Name | Line Occurrences |
|---|---|
| $$ADJUST | GRSADJ+5 |
| $$MEDEXP | ADJUST+16, GROSS+19, GROSS+20 |
| $$ND | ADJUST+13, GROSS+17 |
| $$YEAR | ADJUST+14, GROSS+18 |
| >> | 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 |