BLRPRE42 ; IHS/MSC/MKK - RPMS Lab Patch LR*5.2*1042 Pre/Install/Post Routine ; 15-Nov-2016 08:22 ; MKK
Source file <BLRPRE42.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 7 | HOME^%ZIS ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$FMADD,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$TRIM,$$UP)^XLFSTR TITLE^XPDID (BMES,MES)^XPDUTL |
IHS Changes To Lab | 5 | STORERRS^BLREMERA SHOWBOX^BLRGMENU (BOKAY,ENVHEADR,NEEDIT,PASSMESG,SORRY,SORRYEND)^BLRKIDS2 (OKAY,TABMENU,TABMESG)^BLRKIDSU MAILALMI^BLRUTIL3 |
VA Fileman | 4 | $$FIND1^DIC DTNOLF^DICRW $$GET1^DIQ ^DIR |
IHS VA Utilities | 1 | ^XBFMK |
Toolkit | 1 | EN^XPAR |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ; EP - Ask for confirmation of Backup
|
|
BLANK | ; EP - Blank Line
|
|
INITSCR | ; EP - Initialize screen. Cloned from INIT^XPDID
|
|
WOTCNT(BLRVERN) | ; EP - Counter for ^XTMP
|
|
POSTMAIL(BLRVERN,CPSTR) | ; EP - Post Install MailMan Message
|
|
OKBACKUP() | ; EP - Backup Confirmed.
|
|
XTMPHEAD | ; EP - Initialize XTMP for this patch
|
|
ENVICHEK | ; EP - Environment Checker
|
|
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
|
|
FORCENO | ; EP - Force any new parameters to be NO
|
|
GETPARS(PARSLIST) | ; EP - Function to get Parameters from BUILD file
|
|
SETBLRVS(TWO) | ; EP - Set the BLRVERN variable(s)
|
|
SETEVARS | ; EP - SET standard "Enviroment" VARiables.
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | ENVIVARS+29 |
ENDR^%ZISS | INITSCR+6 |
STORERRS^BLREMERA | FORCENO+19 |
SHOWBOX^BLRGMENU | BACKUP+3 |
BOKAY^BLRKIDS2 | ENVICHEK+11 |
ENVHEADR^BLRKIDS2 | ENVICHEK+5 |
NEEDIT^BLRKIDS2 | ENVICHEK+7 |
PASSMESG^BLRKIDS2 | NOBACKUP+2 |
SORRY^BLRKIDS2 | ENVIVARS+13, ENVIVARS+18, ENVIVARS+19 |
SORRYEND^BLRKIDS2 | ENVICHEK+9 |
OKAY^BLRKIDSU | OKBACKUP+2, FORCENO+8 |
TABMENU^BLRKIDSU | OKBACKUP+5 |
TABMESG^BLRKIDSU | NOBACKUP+3, NOBACKUP+4, NOBACKUP+5 |
MAILALMI^BLRUTIL3 | POSTMAIL+12 |
$$FIND1^DIC | GETPARS+5 |
DTNOLF^DICRW | ENVIVARS+30 |
$$GET1^DIQ | ENVIVARS+19, OKBACKUP+2, NOBACKUP+4 |
^DIR | BACKUP+13, DEBUG+27 |
^XBFMK | BACKUP+8, DEBUG+23 |
FRAME^XGF | INITSCR+9 |
IOXY^XGF | INITSCR+11 |
PREP^XGF | INITSCR+3, INITSCR+4 |
$$DT^XLFDT | ENVIVARS+3, ENVIVARS+7, POST+9, XTMPHEAD+4, WOTCNT+3 |
$$FMADD^XLFDT | XTMPHEAD+4 |
$$HTE^XLFDT | PRE+10, PRE+14, BACKUP+24, POST+6, POST+15 |
$$HTFM^XLFDT | ENVIVARS+7 |
$$NOW^XLFDT | ENVIVARS+9, POST+20 |
$$CJ^XLFSTR | MESCNTR+1 |
$$TRIM^XLFSTR | XTMPHEAD+3 |
$$UP^XLFSTR | PRE+10, PRE+14, POST+6, POST+15 |
EN^XPAR | FORCENO+16 |
TITLE^XPDID | PRE+9 |
BMES^XPDUTL | PRE+10, PRE+14, POST+6, POST+15 |
MES^XPDUTL | FORCENO+11, FORCENO+18, BLANK+1, MESCNTR+1 |
Name | Line Occurrences |
---|---|
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 |
^XPD(9.6 - [#9.6] | FIND1^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BLRINSTL("LAB PATCH" | BACKUP+21, BACKUP+22*, BACKUP+23*, BACKUP+24* |
^VA(200 - [#200] | BACKUP+22 |
^XPD(9.6 - [#9.6] | GETPARS+9 |
^XTMP( | ENVIVARS+7*, ENVIVARS+8*, ENVIVARS+9*, POST+20*, XTMPHEAD+4*, WOTCNT+5, WOTCNT+6* |
Name | Line Occurrences |
---|---|
$$BACKUP | PRE+12 |
$$ENVIVARS | ENVICHEK+3 |
$$GETPARS | FORCENO+4 |
$$NOBACKUP | BACKUP+16 |
$$OKBACKUP | BACKUP+18, BACKUP+26 |
$$WOTCNT | ENVIVARS+4, POST+10 |
BLANK | ENVICHEK+5, ENVICHEK+7, PRE+10, OKBACKUP+1, OKBACKUP+4, POST+5, POST+7, POST+14, POST+16, FORCENO+8 , FORCENO+18 |
FORCENO | POST+12 |
INITSCR | PRE+8 |
POST | DEBUG+29 |
POSTMAIL | POST+18 |
PRE | DEBUG+18 |
SETBLRVS | FORCENO+3, SETEVARS+3, XTMPHEAD+2 |
SETEVARS | ENVIVARS+1, PRE+4, DEBUG+7, POST+3, GETPARS+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BCKUPCNT | PRE+2~, BACKUP+1~, BACKUP+21*, BACKUP+22, BACKUP+23, BACKUP+24 |
BEGTIME | DEBUG+1~ |
BLRVERN | ENVICHEK+1~, ENVIVARS+4, ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, PRE+1~, DEBUG+1~, DEBUG+10, DEBUG+31, POST+1~ , POST+10, POST+18, POST+20, FORCENO+8, SETBLRVS+1!, SETBLRVS+3*, XTMPHEAD+1~, XTMPHEAD+4, WOTCNT~, WOTCNT+5 , WOTCNT+6, POSTMAIL~, POSTMAIL+6, POSTMAIL+12 |
BLRVERN2 | ENVICHEK+1~, PRE+1~, POST+1~, SETBLRVS+1!, SETBLRVS+4*, XTMPHEAD+1~ |
>> BUILDIEN | GETPARS+5*, GETPARS+6, GETPARS+9 |
CNT | PRE+1~, GETPARS+8*, GETPARS+10*, GETPARS+12, 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+21, BACKUP+22 , BACKUP+23, BACKUP+24, DEBUG+1~, POST+1~, SETEVARS+1*, SETEVARS+2 |
CPSTR | ENVIVARS+7, PRE+1~, PRE+9, DEBUG+1~, DEBUG+15, POST+1~, POST+6, POST+15, POST+18, GETPARS+5 , SETEVARS+2*, POSTMAIL~, POSTMAIL+8, POSTMAIL+12 |
CRTLINE | PRE+1~ |
DEBUG | BACKUP+18, OKBACKUP+3, DEBUG+1~, DEBUG+12*, FORCENO+1, FORCENO+6, GETPARS+1, POSTMAIL+1 |
>> DILOCKTM | FORCENO+1, GETPARS+1 |
>> DIR("?" | BACKUP+12* |
>> DIR("A" | BACKUP+11*, DEBUG+26* |
>> DIR("B" | BACKUP+10*, DEBUG+25* |
>> DIR(0 | BACKUP+9*, DEBUG+24* |
DIRASTR | PRE+1~ |
>> DISYS | FORCENO+1, GETPARS+1 |
DT | FORCENO+1, GETPARS+1 |
DTIME | FORCENO+1, GETPARS+1 |
DUZ | ENVIVARS+8, ENVIVARS+18, ENVIVARS+19, BACKUP+22, BACKUP+23, OKBACKUP+2, NOBACKUP+4, FORCENO+1, GETPARS+1 |
ENDTIME | DEBUG+1~ |
ERRARRAY | ENVICHEK+1~, ENVICHEK+7, ENVICHEK+9, DEBUG+1~ |
ERRS | FORCENO+15!, FORCENO+16, FORCENO+17, FORCENO+19 |
FDAROOT | PRE+1~ |
IEN | PRE+1~ |
IENS | PRE+1~ |
IO | FORCENO+1, GETPARS+1, INITSCR+2 |
IO(0 | INITSCR+2 |
>> IOBM | INITSCR+7* |
>> IOBS | FORCENO+1, GETPARS+1 |
IOF | FORCENO+1, GETPARS+1 |
IOM | FORCENO+1, GETPARS+1, MESCNTR+1, INITSCR+9 |
ION | FORCENO+1, GETPARS+1 |
>> IOS | FORCENO+1, GETPARS+1 |
IOSL | FORCENO+1, GETPARS+1, INITSCR+7 |
IOST | BACKUP+5, FORCENO+1, GETPARS+1, INITSCR+2 |
>> IOSTBM | INITSCR+8 |
>> IOT | FORCENO+1, GETPARS+1 |
>> IOTM | INITSCR+7*, INITSCR+9, INITSCR+11 |
>> IOXY | FORCENO+1, GETPARS+1 |
LASTLOGI | DEBUG+1~ |
LRBLNOW | DEBUG+2~ |
MSGROOT | PRE+1~ |
>> PARAMETER | FORCENO+9*, FORCENO+10*, FORCENO+11, FORCENO+13*, FORCENO+14*, FORCENO+16, FORCENO+18, FORCENO+19 |
>> PARAMTRS | GETPARS+8*, GETPARS+9*, GETPARS+10 |
PARSLIST | FORCENO+4, GETPARS~, GETPARS+1 |
PARSLIST( | FORCENO+10, FORCENO+14, GETPARS+10* |
PATCHNUM | DEBUG+2~, POST+1~, SETEVARS+1* |
PREREQ | DEBUG+2~ |
PTCHNAME | XTMPHEAD+1~, XTMPHEAD+3*, XTMPHEAD+4 |
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~ |
STR | DEBUG+2~, MESCNTR~, MESCNTR+1, POSTMAIL+3~, POSTMAIL+12 |
STR(1 | POSTMAIL+5* |
STR(2 | POSTMAIL+6* |
STR(3 | POSTMAIL+7* |
STR(4 | POSTMAIL+8* |
STR(5 | POSTMAIL+9* |
SUCCSTR | BACKUP+1~, BACKUP+5*, BACKUP+6*, BACKUP+11, DEBUG+3~ |
>> TAB | FORCENO+7*, FORCENO+11 |
TODAY | ENVICHEK+1~, ENVIVARS+3*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+9*, POST+20, WOTCNT+1~, WOTCNT+3* , WOTCNT+5, WOTCNT+6 |
TWO | SETBLRVS~, SETBLRVS+4 |
U | BACKUP+22, FORCENO+1, GETPARS+1, XTMPHEAD+4 |
WHATCNT | DEBUG+3~ |
WOTCNT | ENVICHEK+1~, ENVIVARS+4*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+10*, POST+20 |
X | ENVIVARS+25*, INITSCR+1~, INITSCR+5* |
>> XPARSYS | FORCENO+1, GETPARS+1 |
XPDABORT | ENVICHEK+9, ENVIVARS+27*, NOBACKUP+1*, DEBUG+3~, DEBUG+16*, 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 | FORCENO+1, GETPARS+1 |
>> XUMF | ENVIVARS+11*, PRE+6* |
>> Y | BACKUP+16, DEBUG+29 |
Name | Field # of Occurrence |
---|---|
$T( | SETEVARS+1, SETBLRVS+3, XTMPHEAD+3 |
$T(PREP^XGF | INITSCR+3 |