©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
DGMTU2 ;ALB/RMO - Income Utilities ; 6/18/09 6:48pm
Source file <DGMTU2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 5 | $$LYR^DGMTSCU1 $$LST^DGMTU ($$LSTNP,$$UPDTTSTS,ALL)^DGMTU21 $$IAI^DGMTU3 ISCNVRT^DGMTUTL |
| VA Fileman | 2 | NOW^%DTC FILE^DICN |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETIRQ | ||
| ADDIR(DFN,DGINI) | ;Add a new income relation entry
; Input -- DFN Patient file IEN ; DGINI Individual Annual Income IEN ; Output -- New Income Relation IEN |
|
| GETIENS(DFN,DGPRI,DGDT) | ;Look-up individual annual income and income relation
; Input -- DFN Patient file IEN ; DGPRI Patient Relation IEN ; DGDT Date/Time ; Output -- DGINI Individual Annual Income IEN ; DGIRI Income Relation IEN ; DGERR 1=ERROR and 0=NO ERROR |
|
| ADDIRQ | ||
| GETIR(DFN,DGINI) | ;Look-up income relation
; Add a new entry if one is not found ; Input -- DFN Patient file IEN ; DGINI Individual Annual Income IEN ; Output -- Income Relation IEN |
|
| GETIN(DFN,DGPRI,DGDT) | ;Look-up individual annual income
; Add a new entry if one is not found ; Input -- DFN Patient file IEN ; DGPRI Patient Relation IEN ; DGDT Date/Time ; Output -- Individual Annual Income IEN |
|
| VRCHKUP(DGMTYPT,TYPE,DGOLDDT,DGNWDT) | ;Check the version and convert IAI records, as needed
; Input -- DGMTYPT : Type of test being processed ; TYPE : Optional - used when called from COPYRX^DGMTR1 ; to indicate existing MT or LTC ; DGOLDDT : Optional - Date of Test for Old MT/CP test ; DGNWDT : Optional - Date of Test for New MT/CP test ; Output -- CONVRTD : 1 - IAI Records converted ; : 0 - IAI Records not converted |
|
| ADDIN(DFN,DGPRI,DGLY) | ;Add a new individual annual income entry
; Input -- DFN Patient file IEN ; DGPRI Patient Relation IEN ; DGLY Last Year ; Output -- New Individual Annual Income IEN |
|
| ADDINQ | ||
| GETINQ | ||
| VRCHKQ |
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | ADDIN+6 |
| $$LYR^DGMTSCU1 | GETIN+7 |
| $$LST^DGMTU | VRCHKUP+22, VRCHKUP+26, VRCHKUP+27, VRCHKUP+29, VRCHKUP+30, VRCHKUP+39, VRCHKUP+42, VRCHKUP+43, VRCHKUP+45, VRCHKUP+46 |
| $$LSTNP^DGMTU21 | VRCHKUP+23, VRCHKUP+33, VRCHKUP+34, VRCHKUP+49, VRCHKUP+50 |
| $$UPDTTSTS^DGMTU21 | VRCHKUP+65, VRCHKUP+96 |
| ALL^DGMTU21 | VRCHKUP+61, VRCHKUP+90, VRCHKUP+91 |
| $$IAI^DGMTU3 | GETIN+8 |
| ISCNVRT^DGMTUTL | VRCHKUP+64, VRCHKUP+92 |
| FILE^DICN | ADDIN+9, ADDIR+7 |
| FileNo | Call Tags |
|---|---|
| ^DGMT(408.21 - [#408.21] | Classic Fileman Calls |
| ^DGMT(408.22 - [#408.22] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGMT(408.21 - [#408.21] | GETIN+9 |
| ^DGMT(408.22 - [#408.22] | GETIR+6, GETIR+7 |
| ^DGMT(408.31 - [#408.31] | VRCHKUP+81 |
| Name | Line Occurrences |
|---|---|
| $$ADDIN | GETIN+9 |
| $$ADDIR | GETIR+7 |
| $$GETIN | GETIENS+8 |
| $$GETIR | GETIENS+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ADDIN+5~, ADDIN+6 |
| CONVRTD | VRCHKUP+9~, VRCHKUP+10*, VRCHKUP+66*, VRCHKUP+104*, VRCHKQ |
| DA | ADDIN+5~, ADDIR+4~ |
| DD | ADDIN+5~, ADDIR+4~ |
| DFN | GETIENS~, GETIENS+8, GETIENS+9, GETIN~, GETIN+9, ADDIN~, GETIR~, GETIR+7, ADDIR~, ADDIR+5 , VRCHKUP+22, VRCHKUP+23, VRCHKUP+26, VRCHKUP+27, VRCHKUP+29, VRCHKUP+30, VRCHKUP+33, VRCHKUP+34, VRCHKUP+39, VRCHKUP+42 , VRCHKUP+43, VRCHKUP+45, VRCHKUP+46, VRCHKUP+49, VRCHKUP+50, VRCHKUP+61, VRCHKUP+65, VRCHKUP+90, VRCHKUP+91, VRCHKUP+96 |
| DGDEC31D | VRCHKUP+9~, VRCHKUP+15*, VRCHKUP+39, VRCHKUP+42, VRCHKUP+43, VRCHKUP+45, VRCHKUP+46, VRCHKUP+49, VRCHKUP+50 |
| DGDEP | VRCHKUP+59, VRCHKUP+68!, VRCHKUP+72*, VRCHKUP+87, VRCHKUP+99!, VRCHKUP+103* |
| DGDEP2 | VRCHKUP+55~, VRCHKUP+59*, VRCHKUP+72, VRCHKUP+83~, VRCHKUP+87*, VRCHKUP+103 |
| DGDT | GETIENS~, GETIENS+8, GETIN~, GETIN+7 |
| DGERR | GETIENS+7*, GETIENS+8*, GETIENS+9*, VRCHKUP+9~ |
| DGINC | VRCHKUP+56, VRCHKUP+62, VRCHKUP+64, VRCHKUP+68!, VRCHKUP+69*, VRCHKUP+84, VRCHKUP+92, VRCHKUP+99!, VRCHKUP+100* |
| DGINC2 | VRCHKUP+55~, VRCHKUP+56*, VRCHKUP+69, VRCHKUP+83~, VRCHKUP+84*, VRCHKUP+100 |
| DGINI | GETIENS+8*, GETIENS+9, GETIN+6~, GETIN+8*, GETIN+9*, GETINQ, ADDIN+5~, ADDIN+9*, ADDINQ, GETIR~ , GETIR+6, GETIR+7, ADDIR~, ADDIR+6 |
| DGINR | VRCHKUP+58, VRCHKUP+68!, VRCHKUP+71*, VRCHKUP+86, VRCHKUP+99!, VRCHKUP+102* |
| DGINR2 | VRCHKUP+55~, VRCHKUP+58*, VRCHKUP+71, VRCHKUP+83~, VRCHKUP+86*, VRCHKUP+102 |
| DGIRI | GETIENS+9*, GETIR+5~, GETIR+6*, GETIR+7*, GETIRQ, ADDIR+4~, ADDIR+7*, ADDIRQ |
| DGLY | GETIN+6~, GETIN+7*, GETIN+8, GETIN+9, ADDIN~, ADDIN+7 |
| DGMTLST | VRCHKUP+9~, VRCHKUP+22*, VRCHKUP+23*, VRCHKUP+26*, VRCHKUP+27*, VRCHKUP+29*, VRCHKUP+30*, VRCHKUP+32, VRCHKUP+33*, VRCHKUP+34* , VRCHKUP+39*, VRCHKUP+42*, VRCHKUP+43*, VRCHKUP+45*, VRCHKUP+46*, VRCHKUP+48, VRCHKUP+49*, VRCHKUP+50*, VRCHKUP+54, VRCHKUP+65 , VRCHKUP+75, VRCHKUP+77, VRCHKUP+78, VRCHKUP+90, VRCHKUP+91, VRCHKUP+96 |
| DGMTRT | VRCHKUP+9~ |
| DGMTRT2 | VRCHKUP+9~ |
| DGMTYPT | VRCHKUP~, VRCHKUP+21, VRCHKUP+25, VRCHKUP+28, VRCHKUP+38, VRCHKUP+41, VRCHKUP+44, VRCHKUP+54 |
| DGNOW | ADDIN+5~, ADDIN+6*, ADDIN+8 |
| DGNWDT | VRCHKUP~, VRCHKUP+14, VRCHKUP+22, VRCHKUP+23, VRCHKUP+26, VRCHKUP+27, VRCHKUP+29, VRCHKUP+30, VRCHKUP+33, VRCHKUP+34 |
| DGOLDDT | VRCHKUP~, VRCHKUP+13*, VRCHKUP+14, VRCHKUP+15, VRCHKUP+23, VRCHKUP+32, VRCHKUP+48, VRCHKUP+77 |
| DGOTHIEN | VRCHKUP+9~, VRCHKUP+78*, VRCHKUP+81 |
| DGPRI | GETIENS~, GETIENS+8, GETIN~, GETIN+8, GETIN+9, ADDIN~, ADDIN+8 |
| DGREL | VRCHKUP+57, VRCHKUP+68!, VRCHKUP+70*, VRCHKUP+85, VRCHKUP+99!, VRCHKUP+101* |
| DGREL2 | VRCHKUP+55~, VRCHKUP+57*, VRCHKUP+70, VRCHKUP+83~, VRCHKUP+85*, VRCHKUP+101 |
| DGSAMEYR | VRCHKUP+9~, VRCHKUP+11*, VRCHKUP+14*, VRCHKUP+19, VRCHKUP+36 |
| DIC | ADDIN+5~, ADDIN+7*, ADDIR+4~, ADDIR+5* |
| DIC("DR" | ADDIN+8*, ADDIR+6* |
| DIC(0 | ADDIN+7*, ADDIR+5* |
| DIK | ADDIN+5~, ADDIN+7*, ADDIR+4~, ADDIR+5* |
| DINUM | ADDIN+5~, ADDIR+4~ |
| DLAYGO | ADDIN+5~, ADDIN+7*, ADDIR+4~, ADDIR+5* |
| DO | ADDIN+5~, ADDIR+4~ |
| DT | VRCHKUP+13, VRCHKUP+61, VRCHKUP+91 |
| DUZ | ADDIN+8 |
| OTHRTST | VRCHKUP+63~, VRCHKUP+65*, VRCHKUP+95~, VRCHKUP+96* |
| TYPE | VRCHKUP~, VRCHKUP+26, VRCHKUP+27, VRCHKUP+29, VRCHKUP+30, VRCHKUP+33, VRCHKUP+34, VRCHKUP+42, VRCHKUP+43, VRCHKUP+45 , VRCHKUP+46, VRCHKUP+49, VRCHKUP+50 |
| X | ADDIN+5~, ADDIN+7*, ADDIR+4~, ADDIR+5* |
| Y | ADDIN+5~, ADDIN+9, ADDIR+4~, ADDIR+7 |