XUMF4 ;OIFO-OAK/RAM - Institution File Clean Up; 06/28/00
Source file <XUMF4.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 |
---|---|---|
EN | ; -- entry point
|
|
RDSN | ; - resolve duplicate station number
|
|
DSTA | ; -- duplicate station #s
|
|
LOCAL | ; -- auto-delete local/duplicate station numbers
|
|
DXRF | ; -- re-index "D" cross-reference
|
|
LLCL | ; -- local data
|
|
NATL | ; -- national data to merge
|
|
NAME | ; -- compare INSTITUTION name vs national name
|
|
MFS0 | ; -- get national facility type file from Master File Server
|
|
MFS1 | ; -- get national facility type file from Master File Server
|
|
EXIT | ; -- cleanup and quit
|
|
EXIT1 | ;
|
|
EOP | ; -- End-of-Page
|
Name | Field # of Occurrence |
---|---|
^DIE | RDSN+17, LOCAL+24, LOCAL+35 |
ENALL^DIK | DXRF+6 |
^DIR | LOCAL+5, EOP+3 |
$$PARAM^HLCS2 | EN+8 |
EN^VALM | EN+37 |
$$SETFLD^VALM1 | DSTA+18, DSTA+19, DSTA+20, DSTA+21, DSTA+26, LLCL+13, LLCL+14, LLCL+15, LLCL+16, LLCL+21 , NATL+13, NATL+14, NATL+15, NATL+16, NATL+20, NAME+26, NAME+27, NAME+28, NAME+32 |
CLEAR^VALM1 | EOP+3 |
SET^VALM10 | DSTA+22, DSTA+28, LLCL+17, LLCL+22, NATL+17, NATL+21, NAME+29, NAME+33 |
EN^VALM2 | RDSN+8 |
FACTYP^XUMF4A | MFS0+2 |
FTCLEAN^XUMF4A | EN+24 |
STATE^XUMF4A | MFS0+3 |
EM^XUMFH | EXIT1+9 |
MAIN^XUMFH | MFS0+11, MFS1+9 |
MAIN^XUMFI | MFS0+10, MFS1+8 |
MAIN^XUMFP | MFS0+9, MFS1+7 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | DSTA+7, DSTA+8, DSTA+10, LOCAL+13, LOCAL+14, LOCAL+16, LOCAL+19, LOCAL+28, LOCAL+31, DXRF+4! , LLCL+7, LLCL+8, LLCL+9, LLCL+12, NATL+8, NAME+9, NAME+10, NAME+12 |
^DIC(4.1 - [#4.1] | LLCL+9 |
^HLCS(870 - [#870] | RDSN+14, LOCAL+17, LOCAL+20 |
^ORD(101 - [#101] | MFS0+6, MFS1+3 |
^TMP("DIERR" | EXIT1+3! |
^TMP("XUMF ARRAY" | EN+2!, EN+10, EN+15, EN+21, EN+26!, EN+33, DSTA+9, LOCAL+29, LOCAL+30, LLCL+10 , NATL+7, NATL+10, NATL+11, NATL+12, NAME+11, NAME+15, NAME+17, EXIT1+2!, EXIT1+5 |
^TMP("XUMF DSTA" | DSTA+2! |
^TMP("XUMF LLCL" | LLCL+2! |
^TMP("XUMF MFS" | EN+26!, EXIT1+2! |
^TMP("XUMF NAME" | NAME+2! |
^TMP("XUMF NATL" | NATL+2! |
^TMP("XUMF TABLE" | NAME+2!, NAME+13*, NAME+16, NAME+18*, NAME+21, NAME+22, NAME+23, NAME+24, NAME+35! |
^TMP("XUMF TMP" | DSTA+2!, DSTA+10*, DSTA+13, DSTA+14, DSTA+15, DSTA+17, DSTA+30! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | NAME+4~ |
CNT | LOCAL+10~, LOCAL+12*, LOCAL+23*, LOCAL+25*, LOCAL+32*, LOCAL+36* |
DA | RDSN+6~, RDSN+11*, RDSN+13, RDSN+14, LOCAL+23*, LOCAL+32* |
DIE | RDSN+6~, RDSN+12*, LOCAL+23*, LOCAL+32* |
DIK | DXRF+2~, DXRF+6* |
DIK(1 | DXRF+6* |
DIR | LOCAL+5! |
DIR("A" | LOCAL+4* |
DIR("B" | LOCAL+3* |
DIR(0 | LOCAL+3*, EOP+2* |
DR | RDSN+6~, RDSN+12*, LOCAL+23*, LOCAL+32* |
ENTRY | RDSN+6~ |
ERR | EN+4~, EXIT1+9, EXIT1+10 |
ERROR | EN+4~, EN+6*, EN+11*, EN+13, EN+19, EN+22*, EN+24, EN+31, EN+34*, MFS0+9 , MFS0+10, MFS1+7, MFS1+8, EXIT1+7, EXIT1+9, EXIT1+10 |
FLAG | LOCAL+10~, LOCAL+15*, LOCAL+17*, LOCAL+18, LOCAL+24~ |
FROM | RDSN+6~ |
FTYP | LLCL+4~, LLCL+9*, LLCL+16 |
GOLD | NAME+4~, NAME+11*, NAME+13, NAME+23*, NAME+28 |
IEN | DSTA+6*, DSTA+8*, DSTA+10, DSTA+12*, DSTA+15*, DSTA+17, DSTA+21, DSTA+23, LOCAL+10~, LOCAL+12* , LOCAL+16*, LOCAL+17, LOCAL+19*, LOCAL+20, LOCAL+21, LOCAL+23, LOCAL+24~, LOCAL+27*, LOCAL+31*, LOCAL+32 , LOCAL+33, LOCAL+35~, LLCL+4~, LLCL+8*, LLCL+9, LLCL+12, LLCL+15, LLCL+18, NAME+4~, NAME+8* , NAME+10*, NAME+12, NAME+13, NAME+20*, NAME+22*, NAME+23, NAME+24 |
MERGED | RDSN+6~ |
NAME | DSTA+17*, DSTA+20, LOCAL+10~, LLCL+4~, LLCL+12*, LLCL+14, NATL+4~, NATL+10*, NATL+14, NAME+4~ , NAME+12*, NAME+13, NAME+17*, NAME+18, NAME+24*, NAME+27 |
PARAM | EN+4~, MFS0+9, MFS0+10, MFS1+7, MFS1+8 |
PARAM("LLNK" | MFS0+5*, MFS1+2* |
PARAM("PROTOCOL" | MFS0+6*, MFS1+3* |
STA | RDSN+6~, DSTA+6*, DSTA+7*, DSTA+8, DSTA+9, DSTA+10, DSTA+12*, DSTA+13*, DSTA+14, DSTA+15 , DSTA+17, DSTA+19, LOCAL+10~, LOCAL+12*, LOCAL+13*, LOCAL+14, LOCAL+16, LOCAL+19, LOCAL+21, LOCAL+24~ , LOCAL+27*, LOCAL+28*, LOCAL+29, LOCAL+31, LOCAL+33, LOCAL+35~, LLCL+4~, LLCL+6*, LLCL+7*, LLCL+8 , LLCL+10, LLCL+13, NATL+4~, NATL+6*, NATL+7*, NATL+8, NATL+10, NATL+11, NATL+12, NATL+13 , NAME+4~, NAME+8*, NAME+9*, NAME+10, NAME+11, NAME+13, NAME+15*, NAME+16, NAME+17, NAME+18 , NAME+21*, NAME+22, NAME+23, NAME+24, NAME+26 |
STANUM | LOCAL+10~, LLCL+4~ |
STATE | NATL+4~, NATL+12*, NATL+15 |
TEST | EN+4~, EN+6*, EN+8*, MFS0+5, MFS1+2 |
TYPE | NATL+4~, NATL+11*, NATL+16 |
U | EN+8, DSTA+10, DSTA+17, LLCL+9, LLCL+12, NATL+10, NATL+11, NATL+12, NAME+11, NAME+12 , NAME+13, NAME+17, NAME+23, NAME+24 |
>> VALMAR | RDSN+2, RDSN+9, RDSN+11, RDSN+19, DSTA+23, LLCL+18, EXIT+2 |
>> VALMBCK | RDSN+4*, RDSN+20*, EOP+4* |
>> VALMCNT | DSTA+12*, DSTA+16*, DSTA+18, DSTA+22, DSTA+23, DSTA+25, DSTA+27*, DSTA+28, LLCL+6*, LLCL+11* , LLCL+17, LLCL+18, LLCL+20, NATL+6*, NATL+9*, NATL+17, NATL+19, NAME+8*, NAME+20*, NAME+25* , NAME+29, NAME+31 |
VALMY | RDSN+6~, RDSN+9 |
VALMY(0 | RDSN+11 |
VAR | DSTA+17*, DSTA+18*, DSTA+19*, DSTA+20*, DSTA+21*, DSTA+22, DSTA+26*, DSTA+28, LOCAL+10~, LLCL+4~ , LLCL+12*, LLCL+13*, LLCL+14*, LLCL+15*, LLCL+16*, LLCL+17, LLCL+21*, LLCL+22, NATL+4~, NATL+10* , NATL+13*, NATL+14*, NATL+15*, NATL+16*, NATL+17, NATL+20*, NATL+21, NAME+4~, NAME+25*, NAME+26* , NAME+27*, NAME+28*, NAME+29, NAME+32*, NAME+33 |
XMY | EXIT1+8~, EXIT1+9 |
XMY("G.XUMF I | NSTITUTION" , EXIT1+8* |
>> XQORNOD(0 | RDSN+8 |
XUMFLAG | EN+4~, EN+6*, DSTA+4, LOCAL+7* |
Y | LOCAL+3~, LOCAL+5 |