BLRPRE37 ; IHS/MSC/MKK - IHS Lab Patch LR*5.2*1037 Pre/Environment Routine ; 02-Nov-2015 13:44 ; MKK
Source file <BLRPRE37.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 8 | HOME^%ZIS ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR (EXIT,TITLE)^XPDID (BMES,MES)^XPDUTL RESCH^XUTMOPT |
IHS Changes To Lab | 6 | SHOWBOX^BLRGMENU ADDOPTS^BLRKIDS2 (OKAY,TABMENU,TABMESG)^BLRKIDSU (BOKAY,ENVHEADR,NEEDIT,PASSMESG,SORRY)^BLRPRE31 SORRYEND^BLRPRE33 MAILALMI^BLRUTIL3 |
VA Fileman | 4 | DTNOLF^DICRW UPDATE^DIE $$GET1^DIQ ^DIR |
IHS VA Utilities | 1 | ^XBFMK |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ; EP - Ask for confirmation of Backup
|
|
INITSCR | ; EP - Initialize screen. Cloned from INIT^XPDID
|
|
WOTCNT(BLRVERN) | ; EP - Counter for ^XTMP
|
|
OKBACKUP() | ; EP - Backup Confirmed.
|
|
BLANK | ; EP - Blank Line
|
|
ENVICHEK | ; EP - Environment Checker
|
|
SAVEOFF | ; EP - Save off all routines being updated by this patch into the ^rBACKUP global.
|
|
BACKUP() | ; EP - Confirm Backup
|
|
NOBACKUP() | ; EP - No backup message
|
|
MESCNTR(STR) | ; EP - Center a line and use XPDUTL to display it
|
|
ENVIVARS() | ; EP - Setup the Environment variables
|
|
DEBUG | ; EP - Debugging Line Label for environment checker
|
|
POST | ; EP - Post-Install
|
|
POSTMAIL(BLRVERN,CPSTR) | ; EP - Post Install MailMan Message
|
|
REFLABCH | ; EP - Post Install Reference Lab changes
|
|
SETEVARS | ; EP - SET standard "Enviroment" VARiables.
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | ENVIVARS+29 |
ENDR^%ZISS | INITSCR+6 |
SHOWBOX^BLRGMENU | BACKUP+3 |
ADDOPTS^BLRKIDS2 | REFLABCH+22, REFLABCH+23 |
OKAY^BLRKIDSU | OKBACKUP+2, SAVEOFF+3, REFLABCH+19 |
TABMENU^BLRKIDSU | OKBACKUP+5 |
TABMESG^BLRKIDSU | PRE+20, NOBACKUP+3, NOBACKUP+4, NOBACKUP+5, REFLABCH+6, REFLABCH+21 |
BOKAY^BLRPRE31 | ENVICHEK+11 |
ENVHEADR^BLRPRE31 | ENVICHEK+5 |
NEEDIT^BLRPRE31 | ENVICHEK+7 |
PASSMESG^BLRPRE31 | NOBACKUP+2 |
SORRY^BLRPRE31 | ENVIVARS+13, ENVIVARS+18, ENVIVARS+19 |
SORRYEND^BLRPRE33 | ENVICHEK+9 |
MAILALMI^BLRUTIL3 | POSTMAIL+12 |
DTNOLF^DICRW | ENVIVARS+30 |
UPDATE^DIE | REFLABCH+13 |
$$GET1^DIQ | ENVIVARS+19, OKBACKUP+2, NOBACKUP+4 |
^DIR | BACKUP+12, DEBUG+27 |
^XBFMK | BACKUP+5, DEBUG+23, REFLABCH+8 |
FRAME^XGF | INITSCR+9 |
IOXY^XGF | INITSCR+11 |
PREP^XGF | INITSCR+3, INITSCR+4 |
$$DT^XLFDT | ENVIVARS+3, ENVIVARS+7, POST+5, WOTCNT+3 |
$$HTE^XLFDT | PRE+20, BACKUP+23, SAVEOFF+15 |
$$HTFM^XLFDT | ENVIVARS+7 |
$$NOW^XLFDT | ENVIVARS+9, POST+16 |
$$CJ^XLFSTR | MESCNTR+1 |
$$UP^XLFSTR | PRE+20 |
EXIT^XPDID | PRE+23 |
TITLE^XPDID | PRE+9, PRE+15 |
BMES^XPDUTL | PRE+10, PRE+16, POST+10, REFLABCH+3, REFLABCH+25 |
MES^XPDUTL | OKBACKUP+1, OKBACKUP+4, BLANK+1, MESCNTR+1 |
RESCH^XUTMOPT | REFLABCH+18 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BLRINSTL("LAB PATCH" | BACKUP+20, BACKUP+21*, BACKUP+22*, BACKUP+23*, SAVEOFF+15*, SAVEOFF+16* |
^ROUTINE( | SAVEOFF+8, SAVEOFF+12 |
^VA(200 - [#200] | BACKUP+21 |
^XTMP( | ENVIVARS+7*, ENVIVARS+8*, ENVIVARS+9*, POST+16*, WOTCNT+5, WOTCNT+6* |
Name | Line Occurrences |
---|---|
$$BACKUP | PRE+12 |
$$ENVIVARS | ENVICHEK+3 |
$$NOBACKUP | BACKUP+15 |
$$OKBACKUP | BACKUP+17, BACKUP+25 |
$$WOTCNT | ENVIVARS+4, POST+6 |
BLANK | ENVICHEK+5, ENVICHEK+7, PRE+10, PRE+16, POST+10, SAVEOFF+3, REFLABCH+19 |
INITSCR | PRE+8, PRE+14 |
POST | DEBUG+29 |
POSTMAIL | POST+14 |
PRE | DEBUG+18 |
REFLABCH | POST+8 |
SETEVARS | ENVIVARS+1, PRE+4, DEBUG+7, POST+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BCKUPCNT | PRE+2~, BACKUP+1~, BACKUP+20*, BACKUP+21, BACKUP+22, BACKUP+23 |
BEGTIME | DEBUG+1~ |
BLRVERN | ENVICHEK+1~, ENVIVARS+4, ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, PRE+1~, PRE+10, PRE+16, DEBUG+1~, DEBUG+10 , DEBUG+31, POST+6, POST+14, POST+16, SETEVARS+3*, WOTCNT~, WOTCNT+5, WOTCNT+6, POSTMAIL~, POSTMAIL+4 , POSTMAIL+12 |
CNT | PRE+1~, WOTCNT+1~, WOTCNT+5*, WOTCNT+6, WOTCNT+7 |
CP | ENVICHEK+1~, ENVICHEK+5, ENVICHEK+7, ENVICHEK+9, ENVIVARS+13, ENVIVARS+18, ENVIVARS+19, PRE+1~, BACKUP+20, BACKUP+21 , BACKUP+22, BACKUP+23, DEBUG+1~, SETEVARS+1*, SETEVARS+2 |
CPSTR | ENVIVARS+7, PRE+1~, PRE+9, PRE+15, DEBUG+1~, DEBUG+15, POST+10, POST+14, SETEVARS+2*, POSTMAIL~ , POSTMAIL+6, POSTMAIL+12 |
CRTLINE | PRE+1~ |
DEBUG | BACKUP+17, OKBACKUP+3, DEBUG+1~, DEBUG+12*, POST+1, POST+12, SAVEOFF+1, SAVEOFF+3, POSTMAIL+9 |
>> DILOCKTM | POST+1, SAVEOFF+1 |
>> DIR("?" | BACKUP+11* |
>> DIR("A" | BACKUP+10*, DEBUG+26* |
>> DIR("B" | BACKUP+7*, DEBUG+25* |
>> DIR(0 | BACKUP+6*, DEBUG+24* |
DIRASTR | PRE+1~ |
>> DISYS | POST+1, SAVEOFF+1 |
DT | POST+1, SAVEOFF+1, REFLABCH+18 |
DTIME | POST+1, SAVEOFF+1 |
DUZ | ENVIVARS+8, ENVIVARS+18, ENVIVARS+19, BACKUP+21, BACKUP+22, OKBACKUP+2, NOBACKUP+4, POST+1, SAVEOFF+1 |
ENDTIME | DEBUG+1~ |
ERRARRAY | ENVICHEK+1~, ENVICHEK+7, ENVICHEK+9, DEBUG+1~ |
ERRORS | REFLABCH+1~, REFLABCH+9!, REFLABCH+16 |
ERRS | SAVEOFF+11!, SAVEOFF+13, SAVEOFF+16 |
FDA | REFLABCH+1~, REFLABCH+9! |
FDA( | REFLABCH+10*, REFLABCH+11*, REFLABCH+12* |
FDAROOT | PRE+1~ |
IEN | PRE+1~ |
IENS | PRE+1~ |
IO | POST+1, SAVEOFF+1, INITSCR+2 |
IO(0 | INITSCR+2 |
>> IOBM | INITSCR+7* |
>> IOBS | POST+1, SAVEOFF+1 |
IOF | POST+1, SAVEOFF+1 |
IOM | POST+1, SAVEOFF+1, MESCNTR+1, INITSCR+9 |
ION | POST+1, SAVEOFF+1 |
>> IOS | POST+1, SAVEOFF+1 |
IOSL | POST+1, SAVEOFF+1, INITSCR+7 |
IOST | BACKUP+8, POST+1, SAVEOFF+1, INITSCR+2 |
>> IOSTBM | INITSCR+8 |
>> IOT | POST+1, SAVEOFF+1 |
>> IOTM | INITSCR+7*, INITSCR+9, INITSCR+11 |
>> IOXY | POST+1, SAVEOFF+1 |
LASTLOGI | DEBUG+1~ |
>> LN | SAVEOFF+12* |
LRBLNOW | DEBUG+2~ |
MSGROOT | PRE+1~ |
>> NOW | SAVEOFF+14*, SAVEOFF+15, SAVEOFF+16 |
>> PATCH | SAVEOFF+5*, SAVEOFF+9, SAVEOFF+15, SAVEOFF+16 |
PATCHNUM | DEBUG+2~, SETEVARS+1* |
PREREQ | DEBUG+2~ |
QFLG | DEBUG+2~ |
ROWSTARS | ENVICHEK+1~, ENVIVARS+5*, DEBUG+2~ |
RPMS | ENVICHEK+1~, ENVICHEK+5, ENVIVARS+15*, DEBUG+2~ |
RPMSVER | ENVICHEK+1~, ENVICHEK+5, ENVIVARS+16*, DEBUG+2~ |
>> RTN | SAVEOFF+7*, SAVEOFF+8, SAVEOFF+12, SAVEOFF+13, SAVEOFF+16 |
RTNA | SAVEOFF+11!, SAVEOFF+13 |
RTNA( | SAVEOFF+12* |
>> RTNPATCH | SAVEOFF+8*, SAVEOFF+9 |
STR | DEBUG+2~, MESCNTR~, MESCNTR+1, POSTMAIL+1~, POSTMAIL+12 |
STR(1 | POSTMAIL+3* |
STR(2 | POSTMAIL+4* |
STR(3 | POSTMAIL+5* |
STR(4 | POSTMAIL+6* |
STR(5 | POSTMAIL+7* |
SUCCSTR | BACKUP+1~, BACKUP+8*, BACKUP+9*, BACKUP+10, DEBUG+3~ |
TODAY | ENVICHEK+1~, ENVIVARS+3*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+5*, POST+16, WOTCNT+1~, WOTCNT+3*, WOTCNT+5 , WOTCNT+6 |
U | BACKUP+21, POST+1, SAVEOFF+1 |
WHATCNT | DEBUG+3~ |
WOTCNT | ENVICHEK+1~, ENVIVARS+4*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+6*, POST+16 |
X | ENVIVARS+25*, SAVEOFF+13*, INITSCR+1~, INITSCR+5* |
>> XPARSYS | POST+1, SAVEOFF+1 |
XPDABORT | ENVICHEK+9, ENVIVARS+27*, NOBACKUP+1*, DEBUG+3~, DEBUG+19 |
>> XPDDIQ( | ENVIVARS+25* |
XPDENV | DEBUG+3~, DEBUG+16* |
>> XPDIDVT | INITSCR+2*, INITSCR+3*, INITSCR+5* |
XPDNM | ENVIVARS+13, ENVIVARS+15, ENVIVARS+16, DEBUG+3~, DEBUG+15* |
>> XPDNOQUE | ENVIVARS+21* |
XPDSTR | INITSCR+1~, INITSCR+5* |
>> XQXFLG | POST+1, SAVEOFF+1 |
>> XUMF | ENVIVARS+11*, PRE+6* |
>> Y | BACKUP+15, DEBUG+29 |
Name | Field # of Occurrence |
---|---|
$T( | SAVEOFF+5, SETEVARS+1, SETEVARS+3 |
$T(PREP^XGF | INITSCR+3 |