DGMTU2 ;ALB/RMO - Income Utilities ; 6/18/09 6:48pm
Source file <DGMTU2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
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 |
|
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 |
|
GETINQ | ||
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 | ||
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 |
|
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 |
|
ADDIRQ | ||
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 |
|
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 |