DGMTR ;ALB/RMO,CAW,SCG,AEG,SCG,AEG,LBD - Check Means Test Requirements;7/8/05 2:30pm
Source file <DGMTR.m>
Package | Total | Call Graph |
---|---|---|
Registration | 10 | $$UPD^DGENDBS ADD^DGMTA ($$IVMCVT,EN)^DGMTCOR (AFTER,PRIOR)^DGMTEVT ($$GETCODE,$$GETNAME,$$GETSTAT)^DGMTH (COPYRX,MAIL)^DGMTR1 $$LST^DGMTU $$VRCHKUP^DGMTU2 ($$OLD,GETINCOM,SAVESTAT)^DGMTU4 ADM^VADPT2 |
Income Verification Match | 1 | ($$OPEN,$$SENT,QRYQUE2)^IVMCQ2 |
Kernel | 1 | ^%ZTLOAD |
Name | Comments | DBIA/ICR reference |
---|---|---|
NOL | ;Update means test status to NO LONGER REQUIRED
|
|
AUTOCOMP(DGMTI) | ;
|
|
EN |
|
|
DOM |
|
|
SC(DFN) | ;Check if patient is SC 0% non-compensable
; Input -- DFN Patient IEN ; Output -- 1=Yes and 0=No ; No if: ; No total annual VA check amount ; POW STATUS INDICATOR is yes ; Secondary Eligibility is one of the following: ; A&A, NSC, VA PENSION ; HOUSEBOUND, MEXICAN BORDER WAR, WWI, POW |
|
NOLQ | ||
REQ | ;Update means test status to REQUIRED
|
|
SELIG | ;Check if secondary eligibility code missing from ELIGIBILITY CODE
|
|
ADD | ;Add a required means test
|
|
SET | ;Set Cross-reference
|
|
KILL | ;Kill Cross-reference
|
|
DOM1 | ||
QUE | ;Queue means test event driver
|
|
SCQ |
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | QUE+7 |
$$UPD^DGENDBS | ADD+6, AUTOCOMP+42, AUTOCOMP+50, NOL+10 |
ADD^DGMTA | ADD+4 |
$$IVMCVT^DGMTCOR | NOL+2 |
EN^DGMTCOR | EN+15, EN+36 |
AFTER^DGMTEVT | QUE+1 |
PRIOR^DGMTEVT | ADD+3, REQ+3, NOL+7 |
$$GETCODE^DGMTH | AUTOCOMP+18 |
$$GETNAME^DGMTH | REQ+10 |
$$GETSTAT^DGMTH | ADD+6, AUTOCOMP+21, AUTOCOMP+27, AUTOCOMP+34 |
COPYRX^DGMTR1 | NOL+13 |
MAIL^DGMTR1 | SELIG+7, SELIG+12 |
$$LST^DGMTU | EN+10 |
$$VRCHKUP^DGMTU2 | AUTOCOMP+30, AUTOCOMP+40 |
$$OLD^DGMTU4 | EN+21 |
GETINCOM^DGMTU4 | ADD+7, AUTOCOMP+51 |
SAVESTAT^DGMTU4 | NOL+9 |
$$OPEN^IVMCQ2 | ADD+9, REQ+8 |
$$SENT^IVMCQ2 | ADD+9, REQ+8 |
QRYQUE2^IVMCQ2 | ADD+9, REQ+8 |
ADM^VADPT2 | DOM1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | SET+3, KILL+3 |
^DG(43 - [#43] | DOM1+1 |
^DGMT(408.22 - [#408.22] | AUTOCOMP+47 |
^DGMT(408.31 - [#408.31] | EN+11, REQ+7, AUTOCOMP+11, AUTOCOMP+16 |
^DGPM - [#405] | DOM1+1 |
^DIC(42 - [#42] | DOM1+1 |
^DIC(8 - [#8] | EN+7, SC+12, SELIG+4 |
^DIC(8.1 - [#8.1] | SELIG+9 |
^DPT - [#2] | EN+6, EN+14, EN+16, EN+23, EN+25, EN+27, SC+12, SC+15, SC+17, SC+19 , SC+21, SC+24 |
Name | Line Occurrences |
---|---|
$$AUTOCOMP | REQ+4 |
$$SC | EN+7 |
ADD | EN+33 |
DOM | EN+17 |
NOL | EN+34 |
NOLQ | NOL+2 |
QUE | ADD+8, REQ+12, NOL+11 |
REQ | EN+29 |
SCQ | SC+13, SC+15, SC+17, SC+19, SC+21 |
SELIG | SC+24 |
Name | Field # of Occurrence |
---|---|
^( | EN+6, SC+12, SET+3, KILL+3 |
^(0 | DOM1+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AUTOCOMP | REQ+1~, REQ+4*, REQ+6, REQ+7, REQ+8, REQ+9, REQ+10 |
CODE | AUTOCOMP+8~, AUTOCOMP+18*, AUTOCOMP+22, AUTOCOMP+27, AUTOCOMP+28, AUTOCOMP+35, AUTOCOMP+38 |
>> CONVRT | AUTOCOMP+30*, AUTOCOMP+40* |
D0 | SET+1~, KILL+1~ |
DA | SET+1~, SET+2*, KILL+1~, KILL+2* |
DATA | ADD+6~, AUTOCOMP+8~, AUTOCOMP+42, AUTOCOMP+48!, AUTOCOMP+50, NOL+1~, NOL+10 |
DATA( | ADD+6*, AUTOCOMP+21*, AUTOCOMP+24*, AUTOCOMP+27*, AUTOCOMP+31*, AUTOCOMP+34*, AUTOCOMP+37*, AUTOCOMP+41*, NOL+10* |
DATA(31 | AUTOCOMP+49* |
DFN | EN+6, EN+7, EN+10, EN+14, EN+16, EN+23, EN+25, EN+27, SC~, SC+12 , SC+15, SC+17, SC+19, SC+21, SC+24, ADD+7, ADD+9, REQ+8, AUTOCOMP+8~, AUTOCOMP+14* , AUTOCOMP+47, AUTOCOMP+51, NOL+13 |
DG | SC+9~, SC+23*, SC+24*, SELIG+4, SELIG+5, SELIG+10 |
>> DGADDF | EN+30, EN+32, EN+33, REQ+6* |
DGCS | EN~, EN+18*, EN+21, EN+29, EN+30, EN+32, EN+33, EN+34, REQ+7*, REQ+10 |
DGDOM | EN~, EN+17, EN+34, DOM1+1* |
>> DGDOM1 | DOM1+1* |
DGE | SC+9~ |
DGE( | SC+23*, SC+24 |
>> DGENUPLD | QUE+6 |
DGF | SC+9~, SC+24, SELIG+4*, SELIG+9*, SELIG+13* |
>> DGFL | SET+3, KILL+3 |
>> DGFLD | SET+3, KILL+3 |
>> DGIEN | SET+2, KILL+2 |
DGINI | AUTOCOMP+8~, AUTOCOMP+47*, NOL+1~ |
DGINR | AUTOCOMP+8~, AUTOCOMP+47*, AUTOCOMP+50, NOL+1~ |
DGIX | SET+1~, SET+2*, SET+3*, KILL+1~, KILL+2*, KILL+3* |
DGMDOD | EN~, EN+14*, EN+15, EN+20, EN+33, EN+34 |
>> DGMSGF | ADD+2, ADD+9, REQ+8, REQ+9, REQ+10, AUTOCOMP+42, NOL+5 |
DGMT0 | EN~, EN+10*, EN+11*, EN+13, EN+18, EN+19, EN+21, EN+30, EN+32 |
DGMTA | ADD+1~, REQ+1~, NOL+1~ |
DGMTACT | ADD+1~, ADD+3*, REQ+3~*, NOL+7~* |
DGMTCOR | EN+4~ |
DGMTDT | EN~, EN+13*, ADD+1~, ADD+4*, NOL+1~ |
DGMTE | REQ+1~ |
DGMTI | EN~, EN+10*, EN+11, EN+13, EN+15, ADD+1~, ADD+5, ADD+6, REQ+4, REQ+7 , AUTOCOMP~, AUTOCOMP+10, AUTOCOMP+11, AUTOCOMP+16, AUTOCOMP+42, AUTOCOMP+49, NOL+2, NOL+9, NOL+10, NOL+13 |
DGMTLTD | EN~, EN+19*, EN+30 |
DGMTP | ADD+1~, REQ+3~, NOL+7~ |
DGMTYPT | EN~, EN+5*, ADD+5*, REQ+11* |
>> DGNOCOPF | EN+19*, EN+20*, EN+30*, EN+32* |
>> DGNOIVMUPD | NOL+2, NOL+4* |
DGQSENT | EN~, EN+5*, ADD+9*, REQ+8* |
>> DGREQF | EN+5*, EN+7*, EN+8*, EN+9*, EN+15*, EN+16*, EN+17*, EN+23*, EN+25*, EN+27* , EN+29, EN+30*, EN+32*, EN+33, EN+34 |
DGRGAUTO | EN~ |
DGTXT | SELIG+3~ |
DGTXT(4 | SELIG+5*, SELIG+10* |
DGTXT(5 | SELIG+6*, SELIG+11* |
>> DGVAL | SET+2, SET+3, KILL+2, KILL+3 |
DIV | SET+1~, KILL+1~ |
DT | ADD+4, ADD+7, NOL+10 |
DUZ | ADD+9, REQ+8 |
ERROR | ADD+1~, REQ+1~, AUTOCOMP+8~, AUTOCOMP+42 |
>> I | QUE+3* |
>> IVMZ10 | ADD+9, REQ+8, QUE+5 |
>> IVMZ10F | EN+34 |
LINKIEN | AUTOCOMP+8~, AUTOCOMP+45*, AUTOCOMP+46, AUTOCOMP+47 |
>> MTPRIME | REQ+3, NOL+7 |
NODE0 | AUTOCOMP+8~, AUTOCOMP+11*, AUTOCOMP+12, AUTOCOMP+13, AUTOCOMP+14, AUTOCOMP+15, AUTOCOMP+26, AUTOCOMP+27 |
NODE2 | AUTOCOMP+8~, AUTOCOMP+16*, AUTOCOMP+18, AUTOCOMP+24, AUTOCOMP+37, AUTOCOMP+45 |
OLD | EN~, EN+5*, EN+21*, EN+29, EN+33 |
RET | AUTOCOMP+8~, AUTOCOMP+9*, AUTOCOMP+10, AUTOCOMP+12, AUTOCOMP+23*, AUTOCOMP+36*, AUTOCOMP+52 |
>> RXPRIME | EN+4 |
TDATE | AUTOCOMP+8~, AUTOCOMP+15*, AUTOCOMP+30, AUTOCOMP+40, AUTOCOMP+51 |
TYPE | AUTOCOMP+8~, AUTOCOMP+13*, AUTOCOMP+20, AUTOCOMP+33 |
U | EN+13, EN+14, EN+23, EN+25, EN+27, EN+30, EN+32, AUTOCOMP+27 |
VADMVT | DOM~, DOM1+1 |
>> VAFCA08 | EN+2 |
VAINDT | DOM~ |
X | EN+6*, EN+7, EN+8, EN+9, SET+1~, SET+2*, SET+3*, KILL+1~, KILL+2*, KILL+3* |
>> XQY | ADD+9, REQ+8 |
Y | SC+9~, SC+10*, SC+12*, SC+13, SC+15*, SC+17*, SC+19*, SC+21*, SC+24*, SCQ |
ZTDESC | QUE+2*, QUE+8! |
ZTDTH | QUE+2*, QUE+8! |
ZTIO | QUE+7*, QUE+8! |
>> ZTQUEUED | ADD+9, REQ+8 |
ZTRTN | QUE+2*, QUE+8! |
ZTSAVE | QUE+8! |
ZTSAVE( | QUE+3* |
ZTSAVE("DGENUPLD" | QUE+6* |
ZTSAVE("DGMTINF" | QUE+4* |
ZTSAVE("IVMZ10" | QUE+5* |
ZTSK | QUE+8! |