BLR36PST ; IHS/MSC/MKK - IHS Lab Patch LR*5.2*1036 Post Routine ; 28-Jul-2015 06:30 ; MKK
Source file <BLR36PST.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 6 | ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$HTE,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR ($$ADD,$$LKOPT)^XPDMENU (BMES,MES)^XPDUTL |
| IHS Changes To Lab | 3 | (EEP,PRESSKEY)^BLRGMENU (ENVICHEK,PRE)^BLRPRE35 MAILALMI^BLRUTIL3 |
| VA Fileman | 3 | $$FIND1^DIC $$GET1^DIQ ^DIR |
| IHS VA Utilities | 1 | ^XBFMK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENDINSTL(CURPATCH) | ; EP - End Installation
|
|
| NEWOPT(MENU,NEWOPTN,NEWSYNM,NEWORD) | ; EP - Add Option to a Menu
|
|
| WOTCNT(BLRVERN) | ; EP - Counter for ^XTMP
|
|
| POSTDBG | ; EP - POST INSTALL for DEBUG
|
|
| POSTIT(CP,MSG,BL) | ; EP - Write the MSG string and store into the INSTALL file
|
|
| PEP | ; EP
|
|
| EEP | ; EP - Ersatz EP
|
|
| ADDNOPTS | ||
| WARMFZZY(ORDCNT) | ; EP - "Warm Fuzzy" for user
|
|
| INITSCR | ; EP - Initialize screen. Cloned from INIT^XPDID
|
|
| MESCNTR(STR) | ; EP - Center a line and use XPDUTL to display it
|
|
| BLANK | ; EP - Blank Line
|
|
| DEBUG | ; EP - Debugging Line Label for environment checker
|
|
| POST | ; EP - POST INSTALL
|
|
| POSTMAIL(BLRVERN,CPSTR) | ; EP - Post Install MailMan Message
|
|
| SETEVARS | ; EP - SET standard "Enviroment" VARiables.
|
| Name | Field # of Occurrence |
|---|---|
| ENDR^%ZISS | INITSCR+6 |
| EEP^BLRGMENU | EEP+1 |
| PRESSKEY^BLRGMENU | DEBUG+27 |
| ENVICHEK^BLRPRE35 | DEBUG+26 |
| PRE^BLRPRE35 | DEBUG+31 |
| MAILALMI^BLRUTIL3 | POSTMAIL+12 |
| $$FIND1^DIC | NEWOPT+6 |
| $$GET1^DIQ | ENDINSTL+5 |
| ^DIR | DEBUG+38 |
| ^XBFMK | DEBUG+34 |
| FRAME^XGF | INITSCR+9 |
| IOXY^XGF | INITSCR+11 |
| PREP^XGF | INITSCR+3, INITSCR+4 |
| $$DT^XLFDT | POSTDBG+4, WOTCNT+3 |
| $$HTE^XLFDT | ENDINSTL+6 |
| $$NOW^XLFDT | POSTDBG+19 |
| $$CJ^XLFSTR | MESCNTR+1 |
| $$UP^XLFSTR | NEWOPT+15 |
| $$ADD^XPDMENU | NEWOPT+10 |
| $$LKOPT^XPDMENU | NEWOPT+5 |
| BMES^XPDUTL | POSTDBG+7, POSTDBG+13, NEWOPT+8, POSTIT+4 |
| MES^XPDUTL | NEWOPT+12, NEWOPT+14, NEWOPT+15, BLANK+1, MESCNTR+1, POSTIT+5 |
| 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 |
|
| FileNo | Call Tags |
|---|---|
| 19.01 | FIND1^DIC |
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BLRINSTL("LAB PATCH" | ENDINSTL+3, ENDINSTL+5*, ENDINSTL+6* |
| ^XPD(9.7 - [#9.7] | POSTIT+8, POSTIT+10, POSTIT+11*, POSTIT+12* |
| ^XTMP( | POSTDBG+19*, WOTCNT+5, WOTCNT+6* |
| Name | Line Occurrences |
|---|---|
| $$WOTCNT | POSTDBG+5 |
| ADDNOPTS | POSTDBG+9 |
| BLANK | POSTDBG+7, POSTDBG+11, NEWOPT+12, NEWOPT+15 |
| ENDINSTL | POSTDBG+11 |
| NEWOPT | ADDNOPTS+5 |
| POSTDBG | DEBUG+41 |
| POSTMAIL | POSTDBG+17 |
| SETEVARS | POSTDBG+2, DEBUG+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BL | POSTIT~, POSTIT+1, POSTIT+3*, POSTIT+4, POSTIT+5, POSTIT+11 |
| BLRIEN | NEWOPT+1~, NEWOPT+5*, NEWOPT+6 |
| BLRVERN | POSTDBG+5, POSTDBG+17, POSTDBG+19, POSTMAIL~, POSTMAIL+4, POSTMAIL+12, SETEVARS+3*, WOTCNT~, WOTCNT+5, WOTCNT+6 , DEBUG+8, DEBUG+43 |
| CNT | WOTCNT+1~, WOTCNT+5*, WOTCNT+6, WOTCNT+7 |
| CP | POSTDBG+11, SETEVARS+1*, SETEVARS+2, POSTIT~, POSTIT+1, POSTIT+8 |
| CPSTR | POSTDBG+7, POSTDBG+13, POSTDBG+17, POSTMAIL~, POSTMAIL+6, POSTMAIL+12, SETEVARS+2*, DEBUG+23 |
| CURPATCH | ENDINSTL~, ENDINSTL+3, ENDINSTL+5, ENDINSTL+6 |
| >> DEBUG | POSTDBG+15, ADDNOPTS+1, POSTMAIL+9, DEBUG+20* |
| >> DILOCKTM | POST+1, DEBUG+1, POSTIT+1 |
| >> DIR("A" | DEBUG+37* |
| >> DIR("B" | DEBUG+36* |
| >> DIR(0 | DEBUG+35* |
| >> DISYS | POST+1, DEBUG+1, POSTIT+1 |
| DT | POST+1, DEBUG+1, POSTIT+1 |
| DTIME | POST+1, DEBUG+1, POSTIT+1 |
| DUZ | POST+1, DEBUG+1, ENDINSTL+5, POSTIT+1 |
| >> IEN | POSTIT+8*, POSTIT+10, POSTIT+11, POSTIT+12 |
| INSTCNT | ENDINSTL+1~, ENDINSTL+3*, ENDINSTL+5, ENDINSTL+6 |
| IO | POST+1, INITSCR+2, DEBUG+1, POSTIT+1 |
| IO(0 | INITSCR+2 |
| >> IOBM | INITSCR+7* |
| >> IOBS | POST+1, DEBUG+1, POSTIT+1 |
| IOF | POST+1, DEBUG+1, POSTIT+1 |
| IOM | POST+1, MESCNTR+1, INITSCR+9, DEBUG+1, POSTIT+1 |
| ION | POST+1, DEBUG+1, POSTIT+1 |
| >> IOS | POST+1, DEBUG+1, POSTIT+1 |
| IOSL | POST+1, INITSCR+7, DEBUG+1, POSTIT+1 |
| IOST | POST+1, INITSCR+2, DEBUG+1, POSTIT+1 |
| >> IOSTBM | INITSCR+8 |
| >> IOT | POST+1, DEBUG+1, POSTIT+1 |
| >> IOTM | INITSCR+7*, INITSCR+9, INITSCR+11 |
| >> IOXY | POST+1, DEBUG+1, POSTIT+1 |
| >> LINE | POSTIT+10*, POSTIT+11*, POSTIT+12 |
| MENU | NEWOPT~, NEWOPT+5, NEWOPT+8, NEWOPT+10, NEWOPT+12, NEWOPT+14 |
| MSG | POSTIT~, POSTIT+1, POSTIT+4, POSTIT+5, POSTIT+12 |
| NEWOPTN | NEWOPT~, NEWOPT+8, NEWOPT+10, NEWOPT+12, NEWOPT+14 |
| NEWORD | NEWOPT~, NEWOPT+10 |
| NEWSYNM | NEWOPT~, NEWOPT+6, NEWOPT+10 |
| ORDCNT | WARMFZZY~, WARMFZZY+1*, WARMFZZY+2 |
| >> PATCHNUM | SETEVARS+1* |
| >> QUIET | POST+3*, DEBUG+40* |
| STR | POSTMAIL+1~, POSTMAIL+12, MESCNTR~, MESCNTR+1 |
| STR(1 | POSTMAIL+3* |
| STR(2 | POSTMAIL+4* |
| STR(3 | POSTMAIL+5* |
| STR(4 | POSTMAIL+6* |
| STR(5 | POSTMAIL+7* |
| TAB | ADDNOPTS+3*, NEWOPT+1~, NEWOPT+3*, NEWOPT+12, NEWOPT+14, NEWOPT+15 |
| TODAY | POSTDBG+4*, POSTDBG+19, WOTCNT+1~, WOTCNT+3*, WOTCNT+5, WOTCNT+6 |
| U | POST+1, DEBUG+1, POSTIT+1 |
| >> WOTCNT | POSTDBG+5*, POSTDBG+19 |
| X | NEWOPT+10*, NEWOPT+12, NEWOPT+15, INITSCR+1~, INITSCR+5* |
| >> XPARSYS | POST+1, DEBUG+1, POSTIT+1 |
| >> XPDABORT | DEBUG+29 |
| >> XPDENV | DEBUG+24* |
| >> XPDIDVT | INITSCR+2*, INITSCR+3*, INITSCR+5* |
| >> XPDNM | DEBUG+23* |
| XPDSTR | INITSCR+1~, INITSCR+5* |
| >> XQXFLG | POST+1, DEBUG+1, POSTIT+1 |
| >> Y | DEBUG+41 |
| Name | Field # of Occurrence |
|---|---|
| $T( | SETEVARS+1, SETEVARS+3 |
| $T(PREP^XGF | INITSCR+3 |