IVMUCHK2 ;ALB/MLI - Filter Routine to Validate IVM Center Tranmissions, Cont ; September 3, 1994
Source file <IVMUCHK2.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Income Verification Match | 3 | IVMUCHK IVMUCHK1 IVMUCHK4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ZIC(STRING,DEPIEN) | ; check validity of ZIC segment
|
|
| ZICQ | ||
| NUM(NUMBER,DIGIT,DECIMAL) | ; function to determine if valid numeric value
; ; Input: NUMBER as data element to evaluate ; DIGIT as number of digits allowed ; DECIMAL as number of decimal places |
|
| NUMQ | ||
| ZICFLD | ; ZIC field names
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | ZIC+17 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(43 - [#43] | ZIC+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ARRAY( | ZIC+16, ZIC+25 |
| >> ARRAY("ZMT" | ZIC+23 |
| DECIMAL | NUM~ |
| >> DEP | ZIC+21 |
| DEPIEN | ZIC~, ZIC+12, ZIC+14, ZIC+15, ZIC+16, ZIC+22 |
| DIGIT | NUM~, NUM+9 |
| ERROR | ZIC+7~, ZIC+8*, ZIC+9*, ZIC+10*, ZIC+11, ZIC+12, ZIC+13*, ZIC+14*, ZIC+15, ZIC+16* , ZIC+18*, ZIC+19*, ZIC+20*, ZIC+21*, ZIC+22, ZIC+26*, ZICQ, NUM+6~, NUM+7*, NUM+8* , NUM+9*, NUM+10*, NUMQ |
| FLAG | ZIC+7~, ZIC+8*, ZIC+24*, ZIC+25*, ZIC+26 |
| >> HLFS | ZIC+8, ZIC+10, ZIC+13, ZIC+14, ZIC+16, ZIC+17, ZIC+18, ZIC+19, ZIC+20, ZIC+21 , ZIC+23, ZIC+24, ZIC+25 |
| >> I | ZIC+10*, ZIC+13*, ZIC+19*, ZIC+24*, ZIC+25* |
| NUMBER | NUM~, NUM+8, NUM+9, NUM+10 |
| >> SPOUSE | ZIC+14, ZIC+15, ZIC+25 |
| STRING | ZIC~, ZIC+8, ZIC+10, ZIC+13, ZIC+14, ZIC+16, ZIC+17, ZIC+18, ZIC+19, ZIC+20 , ZIC+21, ZIC+24 |
| U | ZIC+16, ZIC+18 |
| >> X | ZIC+8*, ZIC+9, ZIC+17*, ZIC+18* |
| >> Y | ZIC+17 |
| Name | Field # of Occurrence |
|---|---|
| $T(ZICFLD+I | ZIC+10 |
