SD53P495 ;ALB/RBS - ENV/POST-INSTALL FOR PATCH SD*5.3*495 ; 5/2/07 12:24pm
Source file <SD53P495.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | (,$$S)^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL |
| VA Fileman | 2 | UPDATE^DIE GETS^DIQ |
| MailMan | 1 | ^XMD |
| Registration | 1 | (DEM,KVA)^VADPT |
| Scheduling | 1 | $$GETOE^SDOE |
| Toolkit | 1 | EN^XPAR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPXTMP(SDENCPTR,NODE,SDENT) | ;add to ^XTMP
; Input: ; SDENCPTR - Encounter IEN ; NODE - Unique subscript ; Output: none |
|
| FILE(SDENCPTR,SDAIEN,SDARAY) | ;file new entry
; create #409.48 file ; Input: ; SDENCPTR - [required] O/P Encounter file pointer (#409.68) ; SDAIEN - [required] IEN of (#626140) record to convert ; SDARAY - [required] Array of Internal values of all fields ; Output: ; Function Value - returns 1 on success, 0 on failure and error msg |
|
| TASK | ;run TaskMan
|
|
| PROGCHK(XPDABORT) | ;checks programmer variables
|
|
| POST1 | ;Set parameter value
|
|
| NOFILE | ;no File
|
|
| SENDMSG(SDSTOP) | ;send MailMan msg to patch installer
|
|
| START | ;Background job entry point
|
|
| ENV | ;Environment check
|
|
| ISRUNING(XPDABORT) | ;check if running
|
|
| POST | ;Post-Install
|
|
| XTMP | ;setup ^XTMP to control output for 90 days
|
|
| ADD(SDLN,SDTXT) | ;add line
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | TASK+6 |
| $$S^%ZTLOAD | START+17 |
| UPDATE^DIE | FILE+28 |
| GETS^DIQ | START+28 |
| $$GETOE^SDOE | START+24 |
| DEM^VADPT | START+25 |
| KVA^VADPT | START+45 |
| $$FMADD^XLFDT | XTMP+5 |
| $$FMTE^XLFDT | START+26, SENDMSG+29, SENDMSG+31, SENDMSG+33, SENDMSG+35, TASK+18 |
| $$NOW^XLFDT | START+38, START+41, XTMP+5, XTMP+8 |
| ^XMD | SENDMSG+54 |
| EN^XPAR | POST1+3 |
| BMES^XPDUTL | POST1+4, PROGCHK+2, ISRUNING+2, NOFILE+1, TASK+7, TASK+11, TASK+19 |
| MES^XPDUTL | POST1+6, POST1+8, POST1+9, PROGCHK+3, PROGCHK+4, PROGCHK+5, ISRUNING+3, ISRUNING+4, ISRUNING+5, NOFILE+2 , NOFILE+3, NOFILE+4, NOFILE+5, NOFILE+6, TASK+9, TASK+10, TASK+12, TASK+15, TASK+16, TASK+18 , TASK+20, TASK+21 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ANUSB(626140 | POST+3, START+14, START+18, START+20 |
| ^SDSC(409.48 - [#409.48] | START+23 |
| ^TMP("SD53P495" | SENDMSG+2!, SENDMSG+55!, ADD+3* |
| ^XTMP("SD53P495" | START+5, START+6, START+7, START+8, START+9, START+10, START+38*, START+41*, START+42*, START+43* , START+44*, START+45!, SENDMSG+29, SENDMSG+31, SENDMSG+33, SENDMSG+34, SENDMSG+35, SENDMSG+37, SENDMSG+38, SENDMSG+39 , SENDMSG+40, SENDMSG+41, SENDMSG+42, SENDMSG+46, SENDMSG+49, SENDMSG+50, ISRUNING+1, TASK+2, XTMP+1, XTMP+2* , XTMP+7*, XTMP+8*, XTMP+9*, UPXTMP+7* |
| Name | Line Occurrences |
|---|---|
| $$FILE | START+32 |
| ADD | SENDMSG+6, SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+11, SENDMSG+12, SENDMSG+13, SENDMSG+14, SENDMSG+15 , SENDMSG+16, SENDMSG+17, SENDMSG+18, SENDMSG+19, SENDMSG+20, SENDMSG+21, SENDMSG+22, SENDMSG+23, SENDMSG+25, SENDMSG+26 , SENDMSG+27, SENDMSG+28, SENDMSG+29, SENDMSG+31, SENDMSG+33, SENDMSG+35, SENDMSG+36, SENDMSG+37, SENDMSG+39, SENDMSG+40 , SENDMSG+41, SENDMSG+43, SENDMSG+47, SENDMSG+48, SENDMSG+51, SENDMSG+52, SENDMSG+53 |
| ISRUNING | ENV+5 |
| NOFILE | POST+4 |
| POST1 | POST+1 |
| PROGCHK | ENV+3 |
| SENDMSG | START+46 |
| TASK | POST+5 |
| UPXTMP | START+27, START+31, START+34 |
| XTMP | START+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | FILE+10~ |
| DD | FILE+10~ |
| DFN | START+2~, START+25*, START+26 |
| DG | FILE+10~ |
| DIC | FILE+10~ |
| DICR | FILE+10~ |
| DIE | FILE+10~ |
| DIERR | FILE+10~ |
| DIFROM | SENDMSG+1~ |
| DO | FILE+10~ |
| DR | FILE+10~ |
| DT | PROGCHK+1 |
| DUZ | SENDMSG+4, PROGCHK+1 |
| DUZ(0 | PROGCHK+1 |
| NODE | UPXTMP~, UPXTMP+6*, UPXTMP+7 |
| SDAIEN | START+1~, START+12*, START+18*, START+19, START+20, START+28, START+32, FILE~, FILE+8, FILE+14* , FILE+18 |
| SDANUSB | START+1~, START+16!, START+20*, START+21, START+25, START+26 |
| SDARAY | START+1~, START+16!, START+32, FILE~, FILE+8 |
| SDARAY( | FILE+21, FILE+23, FILE+27 |
| SDARAY(626140 | FILE+18 |
| SDCKCNT | START+2~, START+13*, START+17 |
| SDDAYS | POST1+1~, POST1+2*, POST1+3, POST1+6 |
| SDENCPTR | START+2~, START+10*, START+12*, START+14*, START+15, START+18, START+23, START+24, START+27, START+31 , START+32, START+34, FILE~, FILE+8, FILE+12, UPXTMP~, UPXTMP+5, UPXTMP+7 |
| SDENT | START+2~, START+16!, START+26*, START+27, START+30*, START+31, SENDMSG+44~, SENDMSG+50*, SENDMSG+51, UPXTMP~ , UPXTMP+7 |
| SDERAY | START+1~, START+16!, START+29 |
| SDERAY("DIERR" | START+30 |
| SDERR | POST1+1~, POST1+3, POST1+5, FILE+9~, FILE+29 |
| SDERR("DIERR" | FILE+29 |
| SDFDA | FILE+9~ |
| SDFDA( | FILE+18*, FILE+19*, FILE+27* |
| SDFDAIEN | START+1~, FILE+9~ |
| SDFDAIEN(1 | FILE+12* |
| SDFIL | START+2~, START+32*, START+33, START+34 |
| SDFLD | FILE+9~, FILE+17*, FILE+18, FILE+25*, FILE+27 |
| SDI | FILE+9~, FILE+16*, FILE+17, FILE+25* |
| SDIEN | SENDMSG+44~, SENDMSG+45*, SENDMSG+49*, SENDMSG+50, SENDMSG+51 |
| SDIENS | FILE+9~, FILE+14*, FILE+18, FILE+19, FILE+22*, FILE+26*, FILE+27 |
| SDLN | SENDMSG+1~, SENDMSG+5*, SENDMSG+6, SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+11, SENDMSG+12, SENDMSG+13 , SENDMSG+14, SENDMSG+15, SENDMSG+16, SENDMSG+17, SENDMSG+18, SENDMSG+19, SENDMSG+20, SENDMSG+21, SENDMSG+22, SENDMSG+23 , SENDMSG+25, SENDMSG+26, SENDMSG+27, SENDMSG+28, SENDMSG+29, SENDMSG+31, SENDMSG+33, SENDMSG+35, SENDMSG+36, SENDMSG+37 , SENDMSG+39, SENDMSG+40, SENDMSG+41, SENDMSG+43, SENDMSG+47, SENDMSG+48, SENDMSG+51, SENDMSG+52, SENDMSG+53, ADD~ , ADD+2*, ADD+3 |
| SDMSG | SENDMSG+1~ |
| SDNUM | FILE+9~, FILE+22*, FILE+24*, FILE+26 |
| SDPARM | POST1+1~, POST1+2*, POST1+3, POST1+6, POST1+8 |
| SDSAVE | START+1~, START+10*, START+12*, START+15*, START+42 |
| SDSTOP | START+2~, START+13*, START+14, START+17*, START+37, START+46, SENDMSG~, SENDMSG+23, SENDMSG+24, SENDMSG+30 , TASK+1~, TASK+2*, TASK+15, TASK+17, TASK+18 |
| SDSTR | FILE+9~, FILE+15*, FILE+17 |
| SDSTR1 | FILE+9~, FILE+22*, FILE+25 |
| SDSUB | FILE+9~, FILE+22*, FILE+23*, FILE+27, SENDMSG+44~, SENDMSG+45*, SENDMSG+46*, SENDMSG+47, SENDMSG+49, SENDMSG+50 |
| SDTOT | START+2~, START+6*, START+12*, START+17, START+22*, START+43 |
| SDTOT1 | START+2~, START+7*, START+12*, START+36*, START+43 |
| SDTOT2 | START+2~, START+8*, START+12*, START+27*, START+31*, START+34*, START+44 |
| SDTOT3 | START+2~, START+9*, START+12*, START+23*, START+44 |
| SDTXT | SENDMSG+1~, ADD~, ADD+1, ADD+3 |
| SDX | START+1~, XTMP+4~, XTMP+5*, XTMP+6*, XTMP+7 |
| U | START+25, START+26, FILE+17, FILE+25, PROGCHK+1, XTMP+5 |
| >> VADM(1 | START+25 |
| XMDUN | SENDMSG+1~ |
| XMDUZ | SENDMSG+1~, SENDMSG+4* |
| XMSUB | SENDMSG+1~, SENDMSG+3* |
| XMTEXT | SENDMSG+1~, SENDMSG+4* |
| XMY | SENDMSG+1~ |
| XMY( | SENDMSG+4* |
| XMZ | SENDMSG+1~ |
| XPDABORT | ENV+1*, ENV+3, ENV+5, ENV+6!, PROGCHK~, PROGCHK+6*, ISRUNING~, ISRUNING+6* |
| ZTDESC | TASK+1~, TASK+4* |
| ZTDTH | TASK+1~, TASK+5* |
| ZTIO | TASK+1~, TASK+5* |
| ZTREQ | TASK+1~, TASK+5* |
| ZTRTN | TASK+1~, TASK+3* |
| ZTSAVE | TASK+1~ |
| ZTSAVE("ZTREQ" | TASK+5* |
| ZTSK | TASK+1~, TASK+8, TASK+15 |
| ZTSTOP | START+39*, TASK+1~ |