©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XUMF218 ;OIFO-OAK/RAM - Load DOD DMIS ID's;04/15/02 [ 07/29/2004 9:01 AM ]
Source file <XUMF218.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BG | ; -- background job
|
|
| MFS0 | ; -- get national facility type file from Master File Server
|
|
| MFS1 | ; -- get national facility type file from Master File Server
|
|
| UPDATE | ; -- get FACILITY TYPE, update, get INSTITUTION, update
|
|
| CNT() | ; -- count station numbers in Institution file
|
|
| EN | ; -- entry point
|
|
| EXIT | ; -- cleanup and quit
|
|
| MAIN | ; -- main
|
| 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! |
| Name | Line Occurrences |
|---|---|
| $$CNT | MAIN+2 |
| BG | MAIN+4 |
| EXIT | UPDATE+14, UPDATE+18, UPDATE+20, UPDATE+24, UPDATE+31, UPDATE+35, UPDATE+40 |
| MFS0 | UPDATE+16 |
| MFS1 | UPDATE+29 |
| >> | 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* |