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 |
