MAGIP202 ;WOIFO/JSL,DAC - MAG INDEX TERMS UPDATE Utilities for Imaging 3.0; 06/06/2018 9:01AM
Source file <MAGIP202.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;PRECHECK
|
|
| MAKEBKUP(TKID) | ;make last MAG INDEX backup before install
|
|
| POST | ;POSTINSTALL
|
|
| POS | ;
|
|
| ERR | ;error handler
|
|
| CHKSTA | ;verify current site status w/ National
|
|
| RECOVER | ;Call restore old value, in case of error
|
|
| INS(XP,DUZ,DATE,IDA) | ;
|
| Name | Field # of Occurrence |
|---|---|
| GETENV^%ZOSV | PRE+1, INS+3 |
| ^DIR | PRE+4 |
| INS^MAGQBUT4 | POS+32 |
| $$ISIHS^MAGSPID | POS+4, POS+22 |
| $$FMADD^XLFDT | MAKEBKUP+4 |
| $$FMTE^XLFDT | POS+31, POS+34, INS+8 |
| $$NOW^XLFDT | MAKEBKUP+4, POS+31, POS+32, POS+34, POS+35, INS+8 |
| KILL^XM | PRE+1 |
| SENDMSG^XMXAPI | INS+14 |
| BMES^XPDUTL | PRE+8, PRE+10, POS+31, POS+34 |
| $$KSP^XUPARAM | INS+2, INS+6 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("ERRTN" | ERR+4 |
| ^%ZOSF("TRAP" | PRE+6 |
| ^DD( | POS+7, POS+8*, POS+9*, POS+24, POS+27* |
| ^MAG( | MAKEBKUP+3, CHKSTA+3, CHKSTA+5*, CHKSTA+8, CHKSTA+10*, RECOVER+3, RECOVER+4, RECOVER+5!* |
| ^MAG(2005.83 - [#2005.83] | POS+5, POS+12 |
| ^MAG(2005.84 - [#2005.84] | POS+6, POS+23 |
| ^MAG(2005.85 - [#2005.85] | POS+13*, POS+14*, POS+15*, POS+16*, POS+17*, POS+18*, POS+19*, POS+20* |
| ^MAG(2006.1 - [#2006.1] | INS+2 |
| ^TMP( | PRE+5!, PRE+9*, MAKEBKUP+5*, POS+3, CHKSTA+2, CHKSTA+3, CHKSTA+7, CHKSTA+8 |
| ^TMP("XMERR" | INS+15 |
| ^XTMP( | MAKEBKUP+3*, MAKEBKUP+4*, MAKEBKUP+5 |
| ^XTMP("MAG INDEX TERMS BACKUP" | ERR+2, RECOVER+4, RECOVER+5, INS+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | POS+1~ |
| COM | POS+1~, INS+1~ |
| CT | POS+1~ |
| D | POS+1~, POS+7*, POS+8, POS+9, POS+24*, POS+27, INS+1~ |
| D0 | POS+1~, POS+7*, POS+8, POS+9, POS+24*, INS+1~ |
| D1 | POS+1~, INS+1~ |
| D2 | POS+1~, POS+24*, POS+25*, POS+26*, POS+27, INS+1~ |
| DATE | INS~ |
| DG | POS+1~, INS+1~ |
| DIC | POS+1~, POS+7*, POS+8, POS+9, POS+24*, POS+27, INS+1~ |
| DICR | POS+1~, INS+1~ |
| DIR | PRE+2~, POS+1~ |
| DIR("A" | PRE+3* |
| DIR("B" | PRE+3* |
| DIR(0 | PRE+3* |
| DIW | POS+1~, INS+1~ |
| DUZ | POS+32, POS+35, ERR+1, INS~, INS+10 |
| ENTER | PRE+2~, PRE+11* |
| IDA | INS~ |
| IEN | CHKSTA+1~*, CHKSTA+2*, CHKSTA+3, CHKSTA+5, CHKSTA+7*, CHKSTA+8, CHKSTA+10 |
| IN | MAKEBKUP+1~, MAKEBKUP+3*, POS+1~, POS+5*, POS+6*, POS+12*, POS+23*, CHKSTA+1~, CHKSTA+2*, CHKSTA+3 , CHKSTA+5, CHKSTA+7*, CHKSTA+8, CHKSTA+10, RECOVER+2~, RECOVER+3*, RECOVER+4, RECOVER+5 |
| IO(0 | PRE+3, MAKEBKUP+2, MAKEBKUP+3, MAKEBKUP+5, RECOVER+3 |
| >> MAGDUZ | INS+12 |
| MAGMSG | POS+1~, INS+1~, INS+16! |
| MAGMSG(1 | INS+4* |
| MAGMSG(2 | INS+5* |
| MAGMSG(3 | INS+6* |
| MAGMSG(5 | INS+7* |
| MAGMSG(7 | INS+8* |
| PLACE | INS+1~, INS+2* |
| ST | POS+1~ |
| STA | CHKSTA+1~, CHKSTA+3*, CHKSTA+4, CHKSTA+8*, CHKSTA+9 |
| STO | CHKSTA+1~, CHKSTA+3*, CHKSTA+5, CHKSTA+8*, CHKSTA+10 |
| SUB | PRE+2~, PRE+5*, PRE+9, MAKEBKUP+5, POS+1~, POS+2*, POS+3, CHKSTA+2, CHKSTA+3, CHKSTA+7 , CHKSTA+8 |
| SUBJ | MAKEBKUP+1~, MAKEBKUP+2*, MAKEBKUP+3, MAKEBKUP+4, MAKEBKUP+5 |
| TKID | PRE+2~, PRE+7*, PRE+8, PRE+9, MAKEBKUP~, MAKEBKUP+3, MAKEBKUP+5, POS+1~, POS+3*, ERR+2 , RECOVER+1, RECOVER+4, RECOVER+5 |
| U | MAKEBKUP+4, POS+7, POS+8, POS+9, POS+24, POS+27, CHKSTA+3, CHKSTA+5, CHKSTA+8, CHKSTA+10 |
| X | PRE+2~, PRE+6*, MAKEBKUP+1~, MAKEBKUP+4* |
| X0 | MAKEBKUP+1~, MAKEBKUP+4* |
| X1 | MAKEBKUP+1~ |
| XMERR | POS+1~, INS+15*! |
| XMID | POS+1~, INS+1~, INS+10*, INS+11, INS+14 |
| XMSUB | POS+1~, INS+1~, INS+9*, INS+13*, INS+14 |
| XMY | POS+1~, INS+1~, INS+14 |
| XMY( | INS+11*, INS+12* |
| XMZ | POS+1~, INS+1~, INS+14 |
| XP | INS~, INS+7, INS+9 |
| >> XPDA | POS+32, POS+35 |
| >> XPDABORT | PRE+4*, ERR+3* |
| >> XPDNM | POS+32, POS+35 |
| Y | PRE+2~, PRE+4, POS+1~ |