XUINEND2 ;SFISC/RWF - CLEAN UP OLD SPOOL DATA ;6/29/92 11:26
Source file <XUINEND2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
A | ||
F200 | ;Clean-up DUP X-ref in file 200
|
|
F6 | ;Build .01 field of provider file.
|
|
CHK | ;
|
|
Q | ||
F4 | ;Clean-up Institution file fields .04 and 6 both use 0;7 to store data
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(200 | F200+1 |
^DD(4 | F4+1 |
^XMB(3.51 - [#3.51] | A+1, CHK+1, CHK+7*! |
^XMB(3.9 - [#3.9] | CHK+3 |
^XMBS(3.519 - [#3.519] | CHK+2 |
Name | Line Occurrences |
---|---|
CHK | A+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %X | CHK+6* |
>> %Y | CHK+6* |
>> DA | CHK+1*, CHK+2, CHK+3, CHK+6, CHK+7, CHK+8, F4+2*, F200+1* |
>> DA(1 | F4+2*, F200+1* |
>> DA(2 | F200+1* |
>> DIC | CHK+5* |
>> DIC(0 | CHK+5* |
>> DIK | F4+2*, F200+1* |
>> DLAYGO | CHK+5* |
>> I | F6+1* |
U | A*, CHK+1, CHK+7, CHK+8 |
>> X | CHK+5*, F4+1*, F6+1* |
>> XMDUZ | CHK+8* |
>> XMZ | CHK+8* |
>> XS | CHK+5*, CHK+6, CHK+7 |
>> Y | CHK+5, F6+1* |
>> Z0 | CHK+1*, CHK+8 |
>> ZISDA | A+1*, CHK+1, CHK+5, CHK+7 |
Name | Field # of Occurrence |
---|---|
$T(Q+I | F6+1 |
$T(Q+I+1 | F6+1 |