BLR35PST ; IHS/MSC/MKK - IHS Lab Patch LR*5.2*1035 Post Routine ; 28-Jul-2015 06:30 ; MKK
Source file <BLR35PST.m>
Package | Total | Call Graph |
---|---|---|
IHS Changes To Lab | 9 | OERRSTSC^BLR7OB1 (EEP,PRESSKEY)^BLRGMENU (BOKAY,NOSNAPS)^BLRKIDS2 TABMENU^BLRKIDSU PASSMESG^BLRPRE31 (ENVICHEK,PRE)^BLRPRE35 MAILALMI^BLRUTIL3 $$PATCH^BLRUTIL4 ($$PLURAL,$$PLURALI)^BLRUTIL7 |
Kernel | 6 | ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR ($$ADD,$$LKOPT)^XPDMENU (BMES,MES)^XPDUTL |
VA Fileman | 5 | $$FIND1^DIC (FILE,UPDATE)^DIE ^DIK $$GET1^DIQ ^DIR |
IHS VA Utilities | 1 | ^XBFMK |
Package | Total | Caller Graph |
---|---|---|
IHS Changes To Lab | 2 | BLRPRE35 BLRPRE36 |
Name | Comments | DBIA/ICR reference |
---|---|---|
PEP | ; EP
|
|
EEP | ; EP - Ersatz EP
|
|
CLEANUP | ; EP - Ensure ^BLRENTRY global is purged
|
|
SETEVARS | ; EP - SET standard "Enviroment" VARiables.
|
|
ENDINSTL(CURPATCH) | ; EP - End Installation
|
|
INITSCR | ; EP - Initialize screen. Cloned from INIT^XPDID
|
|
ADDNOPTS | ; EP - ADD New OPTionS
|
|
WARMFZZY(ORDCNT) | ; EP - "Warm Fuzzy" for user
|
|
MESCNTR(STR) | ; EP - Center a line and use XPDUTL to display it
|
|
BLANK | ; EP - Blank Line
|
|
POSTMAIL(BLRVERN,CPSTR) | ; EP - Post Install MailMan Message
|
|
NEWOPT(MENU,NEWOPTN,NEWSYNM,NEWORD) | ; EP - Add Option to a Menu
|
|
POSTDBG | ; EP - POST INSTALL for DEBUG
|
|
CHKOERRT(LRODT,LRSP,LROT) | ; EP - Delete invalid OERR #'s at the Test level
|
|
POSTIT(CP,MSG,BL) | ; EP - Write the MSG string and store into the INSTALL file
|
|
BADOERRC | ; EP - Clean Up OERR Data in File 69
|
|
DEBUG | ; EP - Debugging Line Label for environment checker
|
|
POST | ; EP - POST INSTALL
|
|
NOPCEON | ; EP - Ensure LABORATORY SITE (#69.9) file's PCE VISIT ON field is OFF if PCE not installed.
|
|
WOTCNT(BLRVERN) | ; EP - Counter for ^XTMP
|
|
SAVERRS(FDA,ERR,MSG) | ; EP
|
|
CHKBCKUP | ; EP - Check to determine if BACKUP has been performed.
|
|
LABJRNL | ; EP - Get rid of pointers in file 61.2 that point to an empty File 95.
|
|
CHKOERRO(LRODT,LRSP) | ; EP - Delete invalid OERR #'s at the Order level
|
Name | Field # of Occurrence |
---|---|
ENDR^%ZISS | INITSCR+6 |
OERRSTSC^BLR7OB1 | POSTDBG+11 |
EEP^BLRGMENU | EEP+1 |
PRESSKEY^BLRGMENU | DEBUG+27 |
BOKAY^BLRKIDS2 | CHKBCKUP+27, NOPCEON+9, BADOERRC+17 |
NOSNAPS^BLRKIDS2 | POSTDBG+9 |
TABMENU^BLRKIDSU | BADOERRC+18, BADOERRC+20, BADOERRC+21, BADOERRC+22, BADOERRC+23, BADOERRC+24 |
PASSMESG^BLRPRE31 | CHKBCKUP+4, CHKBCKUP+16 |
ENVICHEK^BLRPRE35 | DEBUG+26 |
PRE^BLRPRE35 | DEBUG+31 |
MAILALMI^BLRUTIL3 | POSTMAIL+12 |
$$PATCH^BLRUTIL4 | NOPCEON+3 |
$$PLURAL^BLRUTIL7 | BADOERRC+24 |
$$PLURALI^BLRUTIL7 | BADOERRC+20, BADOERRC+21, BADOERRC+22, BADOERRC+23 |
$$FIND1^DIC | NEWOPT+6 |
FILE^DIE | CHKOERRO+11, CHKOERRT+11 |
UPDATE^DIE | NOPCEON+7 |
^DIK | LABJRNL+17 |
$$GET1^DIQ | CHKBCKUP+18, CHKBCKUP+27, ENDINSTL+5 |
^DIR | DEBUG+38, CHKBCKUP+11 |
^XBFMK | DEBUG+34, CHKBCKUP+7 |
FRAME^XGF | INITSCR+9 |
IOXY^XGF | INITSCR+11 |
PREP^XGF | INITSCR+3, INITSCR+4 |
$$DT^XLFDT | POSTDBG+4, LABJRNL+10, WOTCNT+3 |
$$HTE^XLFDT | CHKBCKUP+25, ENDINSTL+6 |
$$HTFM^XLFDT | LABJRNL+10, SAVERRS+3 |
$$NOW^XLFDT | POSTDBG+24 |
$$CJ^XLFSTR | MESCNTR+1 |
$$UP^XLFSTR | NEWOPT+15 |
$$ADD^XPDMENU | NEWOPT+10 |
$$LKOPT^XPDMENU | NEWOPT+5 |
BMES^XPDUTL | POSTDBG+7, POSTDBG+18, NEWOPT+8, CHKBCKUP+17, CHKBCKUP+18, CHKBCKUP+19, NOPCEON+11, BADOERRC+3, 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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
19.01 | FIND1^DIC |
^VA(200 - [#200] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BLRENTRY | CLEANUP+3 |
^BLRINSTL("LAB PATCH" | CHKBCKUP+23, CHKBCKUP+24*, CHKBCKUP+25*, ENDINSTL+3, ENDINSTL+5*, ENDINSTL+6* |
^LAB(61.2 - [#61.2] | LABJRNL+6, LABJRNL+7, LABJRNL+12 |
^LAB(95 - [#95] | LABJRNL+3 |
^LRO(69 - [#69] | BADOERRC+6, BADOERRC+8, BADOERRC+12, CHKOERRO+3, CHKOERRT+3 |
^OR(100 - [#100] | CHKOERRO+5, CHKOERRT+5 |
^VA(200 - [#200] | CHKBCKUP+24 |
^XPD(9.7 - [#9.7] | POSTIT+8, POSTIT+10, POSTIT+11*, POSTIT+12* |
^XTMP( | POSTDBG+24*, WOTCNT+5, WOTCNT+6* |
^XTMP("BLRPRE35" | SAVERRS+4*, SAVERRS+5*, SAVERRS+7*, SAVERRS+8*, SAVERRS+9* |
^XTMP("LABJOURNL" | LABJRNL+10*, LABJRNL+11*, LABJRNL+12*, LABJRNL+19* |
Name | Line Occurrences |
---|---|
$$WOTCNT | POSTDBG+5 |
BADOERRC | POSTDBG+14 |
BLANK | POSTDBG+7, POSTDBG+16, NEWOPT+12, NEWOPT+15 |
CHKOERRO | BADOERRC+10 |
CHKOERRT | BADOERRC+13 |
CLEANUP | POSTDBG+13 |
ENDINSTL | POSTDBG+16 |
LABJRNL | POSTDBG+10 |
NEWOPT | ADDNOPTS+5, ADDNOPTS+6, ADDNOPTS+7, ADDNOPTS+8, ADDNOPTS+9 |
NOPCEON | POSTDBG+12 |
POSTDBG | DEBUG+41 |
POSTMAIL | POSTDBG+22 |
SAVERRS | CHKOERRO+15, CHKOERRT+15 |
SETEVARS | POSTDBG+2, DEBUG+5 |
WARMFZZY | BADOERRC+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> BADCNT | BADOERRC+4*, BADOERRC+18, BADOERRC+20, CHKOERRO+7*, CHKOERRT+7* |
>> BADOCNT | BADOERRC+4*, BADOERRC+21, BADOERRC+22, CHKOERRO+8* |
>> BADTCNT | BADOERRC+4*, BADOERRC+22, CHKOERRT+8* |
>> BCKUPCNT | CHKBCKUP+23*, CHKBCKUP+24, CHKBCKUP+25 |
BL | POSTIT~, POSTIT+1, POSTIT+3*, POSTIT+4, POSTIT+5, POSTIT+11 |
BLRIEN | NEWOPT+1~, NEWOPT+5*, NEWOPT+6 |
BLRVERN | POSTDBG+5, POSTDBG+22, POSTDBG+24, POSTMAIL~, POSTMAIL+4, POSTMAIL+12, SETEVARS+3*, WOTCNT~, WOTCNT+5, WOTCNT+6 , DEBUG+8, DEBUG+43 |
CNT | LABJRNL+5*, LABJRNL+8*, LABJRNL+9, LABJRNL+19, WOTCNT+1~, WOTCNT+5*, WOTCNT+6, WOTCNT+7, BADOERRC+4* |
CP | POSTDBG+16, SETEVARS+1*, SETEVARS+2, CHKBCKUP+1~, CHKBCKUP+2*, CHKBCKUP+23, CHKBCKUP+24, CHKBCKUP+25, POSTIT~, POSTIT+1 , POSTIT+8 |
CPSTR | POSTDBG+7, POSTDBG+18, POSTDBG+22, POSTMAIL~, POSTMAIL+6, POSTMAIL+12, SETEVARS+2*, DEBUG+23 |
CURPATCH | ENDINSTL~, ENDINSTL+3, ENDINSTL+5, ENDINSTL+6 |
DA | LABJRNL+14!, LABJRNL+15* |
DA(1 | LABJRNL+15*, LABJRNL+16 |
DAYSPURG | SAVERRS+1~, SAVERRS+3*, SAVERRS+4 |
>> DEBUG | POSTDBG+20, ADDNOPTS+1, POSTMAIL+9, DEBUG+20* |
DEBUGGLO | CLEANUP+1~, CLEANUP+5*, CLEANUP+6 |
>> DELCNT | BADOERRC+4*, BADOERRC+23, CHKOERRO+13*, CHKOERRT+13* |
>> DIK | LABJRNL+16* |
>> DILOCKTM | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
>> DIR("A" | DEBUG+37*, CHKBCKUP+10* |
>> DIR("B" | DEBUG+36*, CHKBCKUP+9* |
>> DIR(0 | DEBUG+35*, CHKBCKUP+8* |
>> DISYS | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
DT | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, SAVERRS+4, SAVERRS+5, POSTIT+1 |
DTIME | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
DUZ | POST+1, LABJRNL+1, DEBUG+1, CHKBCKUP+18, CHKBCKUP+24, CHKBCKUP+27, ENDINSTL+5, BADOERRC+1, POSTIT+1 |
ERR | SAVERRS~ |
ERRS | NOPCEON+1~, NOPCEON+8, CHKOERRO+1~, CHKOERRO+9!, CHKOERRO+13, CHKOERRO+15, CHKOERRT+1~, CHKOERRT+9!, CHKOERRT+13, CHKOERRT+15 , SAVERRS+8 |
>> ERRSCNT | BADOERRC+4*, BADOERRC+24, CHKOERRT+15* |
FDA | NOPCEON+1~, CHKOERRO+1~, CHKOERRO+9!, CHKOERRO+15, CHKOERRT+1~, CHKOERRT+9!, CHKOERRT+15, SAVERRS~, SAVERRS+7 |
FDA( | NOPCEON+6*, CHKOERRO+10*, CHKOERRT+10* |
>> IEN | LABJRNL+5*, LABJRNL+6*, LABJRNL+7, LABJRNL+11, LABJRNL+12, LABJRNL+15, POSTIT+8*, POSTIT+10, POSTIT+11, POSTIT+12 |
INSTCNT | ENDINSTL+1~, ENDINSTL+3*, ENDINSTL+5, ENDINSTL+6 |
IO | POST+1, LABJRNL+1, INITSCR+2, DEBUG+1, BADOERRC+1, POSTIT+1 |
IO(0 | INITSCR+2 |
>> IOBM | INITSCR+7* |
>> IOBS | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
IOF | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
IOM | POST+1, LABJRNL+1, MESCNTR+1, INITSCR+9, DEBUG+1, BADOERRC+1, POSTIT+1 |
ION | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
>> IOS | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
IOSL | POST+1, LABJRNL+1, INITSCR+7, DEBUG+1, BADOERRC+1, POSTIT+1 |
IOST | POST+1, LABJRNL+1, INITSCR+2, DEBUG+1, BADOERRC+1, POSTIT+1 |
>> IOSTBM | INITSCR+8 |
>> IOT | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
>> IOTM | INITSCR+7*, INITSCR+9, INITSCR+11 |
>> IOXY | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
>> JOURN | LABJRNL+7*, LABJRNL+12, LABJRNL+15 |
>> LINE | POSTIT+10*, POSTIT+11*, POSTIT+12 |
LRODT | BADOERRC+4*, BADOERRC+6*, BADOERRC+8, BADOERRC+10, BADOERRC+12, BADOERRC+13, CHKOERRO~, CHKOERRO+3, CHKOERRO+10, CHKOERRT~ , CHKOERRT+3, CHKOERRT+10 |
LROT | BADOERRC+11*, BADOERRC+12*, BADOERRC+13, CHKOERRT~, CHKOERRT+3, CHKOERRT+10 |
LRSP | BADOERRC+7*, BADOERRC+8*, BADOERRC+10, BADOERRC+12, BADOERRC+13, CHKOERRO~, CHKOERRO+3, CHKOERRO+10, CHKOERRT~, CHKOERRT+3 , CHKOERRT+10 |
MENU | NEWOPT~, NEWOPT+5, NEWOPT+8, NEWOPT+10, NEWOPT+12, NEWOPT+14 |
MSG | SAVERRS~, SAVERRS+9, 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 |
NOW | SAVERRS+1~, SAVERRS+6*, SAVERRS+7, SAVERRS+8, SAVERRS+9 |
OERRNUM | CHKOERRO+1~, CHKOERRO+3*, CHKOERRO+4, CHKOERRO+5, CHKOERRT+1~, CHKOERRT+3*, CHKOERRT+4, CHKOERRT+5 |
ORDCNT | BADOERRC+4*, BADOERRC+9, BADOERRC+17, WARMFZZY~, WARMFZZY+1*, WARMFZZY+2 |
>> PATCHNUM | SETEVARS+1* |
>> QUIET | POST+3*, POSTDBG+9, 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+24, WOTCNT+1~, WOTCNT+3*, WOTCNT+5, WOTCNT+6 |
U | POST+1, LABJRNL+1, DEBUG+1, CHKBCKUP+24, BADOERRC+1, CHKOERRO+3, CHKOERRT+3, SAVERRS+4, SAVERRS+5, POSTIT+1 |
>> WOTCNT | POSTDBG+5*, POSTDBG+24 |
X | NEWOPT+10*, NEWOPT+12, NEWOPT+15, INITSCR+1~, INITSCR+5* |
>> XPARSYS | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
>> XPDABORT | DEBUG+29, CHKBCKUP+15* |
>> XPDENV | DEBUG+24* |
>> XPDIDVT | INITSCR+2*, INITSCR+3*, INITSCR+5* |
>> XPDNM | DEBUG+23* |
XPDSTR | INITSCR+1~, INITSCR+5* |
>> XQXFLG | POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1 |
>> Y | DEBUG+41, CHKBCKUP+14 |
Name | Field # of Occurrence |
---|---|
$T( | SETEVARS+1, SETEVARS+3, CHKBCKUP+2 |
$T(PREP^XGF | INITSCR+3 |