IVMCM6 ;ALB/SEK,JAN,RTK,CKN,TDM,GN,HM - COMPLETE DCD INCOME TEST ;4/10/20 11:41am
Source file <IVMCM6.m>
Package | Total | Call Graph |
---|---|---|
Registration | 8 | $$UPD^DGENDBS EN^DGMTAUD (AFTER,EN)^DGMTEVT ($$GETCODE,$$GETSTAT)^DGMTH EN^DGMTR $$LST^DGMTU (DATETIME,MTPRIME,RXPRIME)^DGMTU4 $$SITE^VASITE |
Income Verification Match | 4 | (ADD,BULL1,BULL2,BULL3)^IVMCMB $$SETSTAT^IVMPLOG ADDFUTR^IVMPLOG2 ^IVMPMTE |
VA FileMan | 3 | FILE^DICN (,WP)^DIE EN^DIQ1 |
Kernel | 2 | $$NOW^XLFDT $$VERSION^XPDUTL |
Health Level Seven | 1 | $$FMDATE^HLFNC |
List Manager | 1 | $$FTIME^VALM1 |
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 |
Package | Total | Caller Graph |
---|---|---|
Income Verification Match | 1 | IVMCM1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; This routine will update annual means test file (#408.31):
; ; Note: There is no entry in 408.31 for income screening. |
|
MTBULL | ; Build results array
|
|
CLEANUP | ; cleanup
|
|
CHKCMT(MTIEN) | ; CHECK FOR HARDSHIP COMMENT IVM*2.0*190
; DBIA 968 NAME: DBIA968 FILE: 408.31 ROOT: DGMT(408.31, |
|
RMVECMT(MTIEN) | ; REMOVE COMMENTS NOT NEEDED IVM*2.0*190
; DBIA 968 NAME:DBIA968 FILE: 408.31 ROOT: DGMT(408.31, |
|
OPEN | ; open case record for uploaded test
|
|
OPEN1 | ||
OPEN2 | ||
MTDRIVER | ; call means test event driver
; dgmtact ; adj adjudicated mt ; cat hardship mt ; add new mt or copay ; edit corrected mt or copay ; |
|
CHKTST | ; Verify if the incoming Income Test requires a Z07 transmission.
|
|
TRNSMT | ; Set the record to transmit due to DCD Criteria
|
Name | Field # of Occurrence |
---|---|
$$UPD^DGENDBS | EN+156, EN+183, TRNSMT+4 |
EN^DGMTAUD | EN+166 |
AFTER^DGMTEVT | EN+165, EN+188, MTDRIVER+9 |
EN^DGMTEVT | EN+189, MTDRIVER+11 |
$$GETCODE^DGMTH | EN+128, EN+174, MTBULL+1 |
$$GETSTAT^DGMTH | EN+64, EN+154 |
EN^DGMTR | EN+193 |
$$LST^DGMTU | EN+82 |
DATETIME^DGMTU4 | EN+168 |
MTPRIME^DGMTU4 | EN+172 |
RXPRIME^DGMTU4 | EN+173 |
FILE^DICN | OPEN1+2 |
^DIE | OPEN2 |
WP^DIE | EN+135, EN+146, RMVECMT+12 |
EN^DIQ1 | CHKCMT+5, RMVECMT+5 |
$$FMDATE^HLFNC | EN+21, EN+23, EN+26, EN+34, EN+35, EN+43, EN+47, EN+48 |
ADD^IVMCMB | MTBULL+1 |
BULL1^IVMCMB | EN+125 |
BULL2^IVMCMB | EN+119 |
BULL3^IVMCMB | EN+128 |
$$SETSTAT^IVMPLOG | TRNSMT+6 |
ADDFUTR^IVMPLOG2 | EN+177 |
^IVMPMTE | EN+167 |
$$FTIME^VALM1 | EN+133 |
$$SITE^VASITE | EN+101 |
$$NOW^XLFDT | EN+66 |
$$VERSION^XPDUTL | CHKTST+10 |
FileNo | Call Tags |
---|---|
^IVM(301.5 - [#301.5] | Classic Fileman Calls |
^DGMT(408.31 - [#408.31] | WP^DIE |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(408.34 - [#408.34] | CHKTST+8 |
^DGMT(408.31 - [#408.31] | EN+89, EN+90, EN+96, EN+174, MTBULL+1, CHKTST+4, CHKTST+5 |
^IVM(301.5 - [#301.5] | OPEN+1, OPEN+2, TRNSMT+2 |
^TMP($J | EN+18, EN+80, EN+81, EN+132!, EN+133*, EN+134*, EN+136!, EN+139, EN+140!, EN+144 , EN+145*, EN+147!, RMVECMT+11*, RMVECMT+12!, CHKTST+7 |
^UTILITY("DIQ1" | CHKCMT+7, CHKCMT+8, RMVECMT+7, RMVECMT+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | CHKCMT+2~, CHKCMT+6*, CHKCMT+7*, CHKCMT+8, RMVECMT+2~, RMVECMT+6*, RMVECMT+7*, RMVECMT+8 |
CODE | EN+10~, EN+152*, EN+153*, EN+154, EN+174*, MTBULL+1 |
COMMENT | CHKCMT+2~, CHKCMT+8*, CHKCMT+9, RMVECMT+2~, RMVECMT+8*, RMVECMT+9, RMVECMT+10, RMVECMT+11 |
DA | CHKCMT+2~, CHKCMT+3*, RMVECMT+2~, RMVECMT+3*, OPEN+3*, OPEN1+2* |
DA( | CHKCMT+4*, RMVECMT+4* |
DATA | EN+10~, EN+156, EN+181~, EN+183 |
DATA( | EN+49*, EN+53*, EN+54*, EN+64*, EN+66*, EN+68*, EN+72*, EN+73*, EN+74*, EN+82* , EN+83*, EN+84*, EN+85!, EN+93*, EN+101*, EN+104*, EN+108*, EN+111*, EN+118*, EN+122* , EN+153, EN+154* |
DATA(2 | EN+182* |
DATA(50 | EN+96*, EN+136!, EN+138*, EN+147! |
DATE | EN+78~, EN+80*, EN+81*, EN+82 |
DCDDATA | TRNSMT+1~, TRNSMT+4 |
DCDDATA( | TRNSMT+3* |
DCDIEN | TRNSMT+1~, TRNSMT+3*, TRNSMT+4 |
DD | OPEN1!, OPEN2! |
>> DFN | EN+82, EN+119, EN+125, EN+128, MTBULL+1, OPEN+1, OPEN1+1, TRNSMT+2 |
DGADDF | EN+191~, EN+192* |
DGCAT | CLEANUP+1! |
DGCOMF | CLEANUP+1! |
>> DGLY | OPEN+1, TRNSMT+2 |
DGMSGF | EN+191~, EN+192* |
DGMTA | EN+181~ |
DGMTACT | EN+162*, EN+181~, EN+187*, CLEANUP+1!, MTDRIVER+8* |
DGMTI | EN+135, EN+146, EN+156, EN+168, EN+172, EN+173, EN+174, EN+177, EN+181~, EN+187* , CLEANUP+1!, CHKTST+4, CHKTST+5 |
DGMTINF | EN+164*, EN+187*, CLEANUP+1!, MTDRIVER+10* |
>> DGMTP | EN+163*, MTDRIVER+8 |
DGMTPAR | CLEANUP+1! |
DGMTYPT | EN+181~, EN+187* |
DGREF | EN+10~, EN+25* |
DGTHB | CLEANUP+1! |
DIC | CHKCMT+2~, CHKCMT+3*, RMVECMT+2~, RMVECMT+3*, OPEN1+1*, OPEN2! |
DIC(0 | OPEN1+1* |
DIE | OPEN+4*, OPEN1+3*, OPEN2! |
DLAYGO | OPEN1+1*, OPEN2! |
DO | OPEN1!, OPEN2! |
DR | CHKCMT+2~, CHKCMT+3*, RMVECMT+2~, RMVECMT+3*, OPEN+4*, OPEN1+3*, OPEN2! |
DR( | CHKCMT+4*, RMVECMT+4* |
DT | EN+52, EN+117 |
DUZ | EN+64 |
ERROR | EN+181~, EN+183, TRNSMT+1~, TRNSMT+4 |
EVENTS | TRNSMT+1~, TRNSMT+6 |
EVENTS("DCD" | TRNSMT+5* |
FIELD | EN+10~, EN+19* |
>> HLFS | EN+19, EN+80, EN+81 |
>> HLQ | EN+19, EN+114, EN+125 |
IVM1 | EN+21*, EN+64, EN+133, CLEANUP+2! |
IVM10 | EN+32*, EN+74, CLEANUP+2! |
IVM11 | EN+33*, EN+64, EN+128, CLEANUP+2! |
IVM12 | EN+34*, EN+52, EN+72, EN+104, EN+114, EN+117, EN+125, EN+131, EN+137, EN+148 , CLEANUP+2! |
IVM13 | EN+35*, EN+64, CLEANUP+2! |
IVM14 | EN+36*, EN+57, EN+59*, EN+60*, EN+61*, EN+64, EN+152, CLEANUP+2! |
IVM15 | EN+37*, EN+59, EN+68, CLEANUP+2! |
IVM16 | EN+38*, EN+73, EN+84, CLEANUP+2! |
IVM17 | EN+39*, EN+72, CLEANUP+2! |
IVM18 | EN+40*, EN+68, CLEANUP+2! |
IVM19 | EN+41*, EN+64, CLEANUP+2! |
IVM2 | EN+22*, EN+72, EN+83, CLEANUP+2! |
IVM20 | EN+42*, EN+72, CLEANUP+2! |
IVM21 | EN+43*, EN+74, CLEANUP+2! |
IVM22 | EN+44*, EN+59, EN+74, CLEANUP+3! |
IVM23 | EN+45*, EN+74, CLEANUP+3! |
IVM24 | EN+46*, EN+64, CLEANUP+3! |
IVM25 | EN+47*, EN+131, EN+137, CLEANUP+3! |
IVM26 | EN+48*, EN+49, EN+52, EN+117, CLEANUP+3! |
IVM3 | EN+23*, EN+72, CLEANUP+2! |
IVM4 | EN+24*, EN+25, EN+64, EN+68, EN+73, EN+84, CLEANUP+2! |
IVM5 | EN+26*, EN+72, CLEANUP+2! |
IVM6 | EN+27*, EN+58, EN+59, EN+61, EN+153, CLEANUP+2! |
IVM7 | EN+28*, EN+53*, EN+58, EN+66, EN+72, EN+101, EN+108, EN+111, EN+114, EN+122 , EN+125, CLEANUP+2! |
IVM8 | EN+30*, EN+64, EN+93, EN+180, CLEANUP+2! |
IVM9 | EN+31*, EN+72, EN+101, EN+108, EN+125, CLEANUP+2! |
IVMBU45 | CLEANUP+1! |
IVMCAT | EN+29*, CLEANUP+2! |
IVMCEA | CLEANUP+2! |
IVMCEB | CLEANUP+2! |
IVMDA | MTDRIVER+7~ |
IVMDT | MTDRIVER+7~ |
IVMFLG | MTDRIVER+7~ |
IVMFNDC1 | RMVECMT+2~, RMVECMT+3*, RMVECMT+8*, RMVECMT+9*, RMVECMT+11 |
IVMFNDC2 | RMVECMT+2~, RMVECMT+3*, RMVECMT+8*, RMVECMT+10*, RMVECMT+11 |
>> IVMFUTR | EN+171, MTBULL+1 |
>> IVMHADJ | EN+29, MTDRIVER+8 |
IVMLNCT | RMVECMT+2~, RMVECMT+3*, RMVECMT+11*, RMVECMT+12 |
IVMMTA | CLEANUP+2! |
IVMMTDT | MTBULL+1, MTDRIVER+7~ |
>> IVMMTIEN | EN+87, EN+89, EN+90, EN+96, EN+138, EN+148, EN+180, EN+183, EN+187, MTBULL+1 |
IVMNEW | MTDRIVER+7~ |
IVMNTECT | EN+141~, EN+143*, EN+144, EN+145 |
IVMNTED | EN+141~, EN+142*, EN+143, EN+144* |
IVMOP | CLEANUP+1!, OPEN+1*, OPEN+2, OPEN+3 |
IVMOP1 | CLEANUP+1!, OPEN+2*, OPEN+3 |
>> IVMSEG | EN+18*, EN+19*, EN+21, EN+22, EN+23, EN+24, EN+26, EN+27, EN+28, EN+29 , EN+30, EN+31, EN+32, EN+33, EN+34, EN+35, EN+36, EN+37, EN+38, EN+39 , EN+40, EN+41, EN+42, EN+43, EN+44, EN+45, EN+46, EN+47, EN+48 |
>> IVMTYPE | EN+14, EN+18, EN+58, EN+64, EN+71, EN+77, EN+98, EN+153, EN+154, EN+161 , EN+172, EN+173, EN+187, MTBULL+1, CHKTST+7 |
MTIEN | CHKCMT~, CHKCMT+3, CHKCMT+7, CHKCMT+8, RMVECMT~, RMVECMT+3, RMVECMT+7, RMVECMT+8, RMVECMT+12 |
MTREC | CHKTST+2~, CHKTST+4* |
NODE0 | EN+10~, EN+89*, EN+93, EN+101, EN+108, EN+111, EN+114, EN+119, EN+122, EN+125 , EN+128 |
NODE2 | EN+10~, EN+90*, EN+93, EN+108, EN+119, EN+125, EN+180 |
OK2SND | EN+10~, EN+194, CHKTST+3*, CHKTST+14* |
REC01 | CHKTST+2~, TRNSMT+1~, TRNSMT+2*, TRNSMT+3, TRNSMT+6 |
RET | EN+10~, CHKCMT+2~, CHKCMT+6*, CHKCMT+7, CHKCMT+9*, CHKCMT+10, RMVECMT+2~, RMVECMT+6*, RMVECMT+7 |
TYPE | EN+78~, EN+80*, EN+81*, EN+82 |
U | CHKTST+8 |
X | OPEN1+1*, OPEN2! |
Y | OPEN1+2, OPEN2! |
ZMTSEG | CHKTST+2~, CHKTST+7*, CHKTST+8 |