XUMF218 ;OIFO-OAK/RAM - Load DOD DMIS ID's;04/15/02
Source file <XUMF218.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MAIN | ; -- main
|
|
BG | ; -- background job
|
|
EN | ; -- entry point
|
|
UPDATE | ; -- get FACILITY TYPE, update, get INSTITUTION, update
|
|
MFS0 | ; -- get national facility type file from Master File Server
|
|
MFS1 | ; -- get national facility type file from Master File Server
|
|
CNT() | ; -- count station numbers in Institution file
|
|
EXIT | ; -- cleanup and quit
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | CNT+4 |
^ORD(101 - [#101] | MFS0+3, MFS1+4 |
^TMP("DIERR" | EXIT+2! |
^TMP("XUMF ARRAY" | UPDATE+3!, UPDATE+11, UPDATE+20, UPDATE+27!, UPDATE+33, EXIT+2!, EXIT+4 |
^TMP("XUMF MFS" | UPDATE+27!, EXIT+2! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | CNT+2~, CNT+4*, CNT+6 |
ERROR | UPDATE+5~, UPDATE+7*, UPDATE+12*, UPDATE+14, UPDATE+18, UPDATE+21*, UPDATE+24, UPDATE+31, UPDATE+34*, MFS0+5 , MFS0+6, MFS1+6, MFS1+7 |
PARAM | UPDATE+5~, MFS0+5, MFS0+6, MFS1+6, MFS1+7 |
PARAM("CDSYS" | MFS1+2* |
PARAM("LLNK" | MFS0+2*, MFS1+3* |
PARAM("PROTOCOL" | MFS0+3*, MFS1+4* |
STA | CNT+2~, CNT+4* |
TEST | UPDATE+5~, UPDATE+7*, UPDATE+9*, MFS0+2, MFS1+3 |
U | UPDATE+9 |
XUMFLAG | UPDATE+5~, UPDATE+7* |
ZTDESC | BG+2~, BG+5* |
ZTDTH | BG+2~, BG+6* |
>> ZTIO | BG+7* |
>> ZTREQ | EXIT+6* |
ZTRTN | BG+2~, BG+4* |