FBUCDD ;ALBISC/TET - DD UTILITY ROUTINE ;5/27/93 19:28
Source file <FBUCDD.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 |
---|---|---|
INPUT(DA,X,Y,FBZZ) | ;input transform of status field, file 162.7
|
|
23 | ;If FBZZ=23 - CLAIM SUBMITTED BY
|
|
24 | ;IF FBZZ=24 - STATUS
|
|
10 | ;IF FBZZ=10 - DISPOSITION
|
|
7 | ;IF FBZZ=7 - DATE VALID CLAIM RECEIVED
|
|
4 | ;IF FBZZ=4 - TREATMENT TO DATE
|
|
12 | ;IF FBZZ=12 - AUTHORIZED FROM DATE
|
|
13 | ;IF FBZZ=14 - AUTHORIZED TO DATE
|
|
DISCHTYP(DA) | ;discharge type - computed field expression from field 29 of 162.7
|
|
MSIX(X,DA,FLD,ACT,FBIX) | ;cross-reference on either vendor/veteran/other,master claim,status order
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^FB583 - [#162.7] | INPUT+5, MSIX+16*, MSIX+17! |
^FBAAA("AG" | DISCHTYP+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACT | MSIX~, MSIX+10, MSIX+16, MSIX+17 |
DA | INPUT~, INPUT+5, 10+5, 7+2, DISCHTYP~, DISCHTYP+4, DISCHTYP+5, MSIX~, MSIX+10, MSIX+12 , MSIX+13, MSIX+16, MSIX+17 |
FBIEN | DISCHTYP+3~, DISCHTYP+5*, DISCHTYP+6*, DISCHTYP+7 |
FBIX | MSIX~, MSIX+10, MSIX+11, MSIX+12, MSIX+15, MSIX+16, MSIX+17 |
FBZ | INPUT+5~*, 23+2, 24+5, 10+5, 4+3, 12+4, 13+4, DISCHTYP+3~, DISCHTYP+5*, DISCHTYP+6* , MSIX+12~*, MSIX+13, MSIX+14, MSIX+15*, MSIX+16, MSIX+17 |
FBZ(1 | MSIX+13*, MSIX+16, MSIX+17 |
FBZ(2 | MSIX+14*, MSIX+16, MSIX+17 |
FBZZ | INPUT~, 23+2, 24+5, 10+5, 7+2, 4+3, 12+4, 13+4 |
FLD | MSIX~, MSIX+10, MSIX+13, MSIX+14, MSIX+15 |
O | 24+5~* |
U | 23+2, 24+5, 10+5, 4+3, 12+4, 13+4, DISCHTYP+5, DISCHTYP+6, MSIX+12, MSIX+13 , MSIX+14, MSIX+15 |
X | INPUT~, 23+2, 24+5, 10+5, 4+3, 12+4, 13+4, MSIX~, MSIX+10, MSIX+13 , MSIX+14, MSIX+15 |
Y | INPUT~, 24+5, 10+5, 7+2, 4+3, 12+4, 13+4 |