BLRPRE38 ; IHS/MSC/MKK - IHS Lab Patch LR*5.2*1038 Pre/Post Routine ; 17-Dec-2015 15:37 ; MKK
Source file <BLRPRE38.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 $$ADD^XPDMENU (BMES,MES)^XPDUTL |
IHS Changes To Lab | 5 | SHOWBOX^BLRGMENU (OKAY,TABMENU,TABMESG)^BLRKIDSU (BOKAY,ENVHEADR,NEEDIT,PASSMESG,SORRY)^BLRPRE31 SORRYEND^BLRPRE33 MAILALMI^BLRUTIL3 |
VA Fileman | 5 | DTNOLF^DICRW UPDATE^DIE ^DIK $$GET1^DIQ ^DIR |
IHS VA Utilities | 1 | ^XBFMK |
Uncategorized | 1 | (DISABLE,ENABLE)^%NOJRN |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ; EP - Ask for confirmation of Backup
|
|
ADDPARMS | ; EP - Ensure that new file 90475.7 has its .01 field = PARAMETERS
|
|
EXITKIDG | ; EP - EXIT KIDS Graphics mode
; Get out of graphics mode so that any "output" done during this phase ; of the install process will be printed in the INSTALL file log if the ; BMES^XPDUTL and MES^XPDUTL procedures are used. |
|
INITSCR | ; EP - Initialize screen. Cloned from INIT^XPDID
|
|
WOTCNT(BLRVERN) | ; EP - Counter for ^XTMP
|
|
SAVEOFF | ; EP - Save off all routines being updated by this patch into the ^rBACKUP global.
|
|
POSTMAIL(BLRVERN,CPSTR) | ; EP - Post Install MailMan Message
|
|
OKBACKUP() | ; EP - Backup Confirmed.
|
|
BLANK | ; EP - Blank Line
|
|
ENVICHEK | ; EP - Environment Checker
|
|
OPTADD(NEWOPT,NEWOPTM,TAB) | ; EP
|
|
FILEDEL | ; EP
|
|
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
|
|
ADDOPTS | ; EP - Add new option to BLRMENU
|
|
SETEVARS | ; EP - SET standard "Enviroment" VARiables.
|
Name | Field # of Occurrence |
---|---|
DISABLE^%NOJRN | FILEDEL+3 |
ENABLE^%NOJRN | FILEDEL+17 |
HOME^%ZIS | ENVIVARS+29 |
ENDR^%ZISS | INITSCR+6 |
SHOWBOX^BLRGMENU | BACKUP+3 |
OKAY^BLRKIDSU | OKBACKUP+2, ADDPARMS+9, SAVEOFF+7, SAVEOFF+30 |
TABMENU^BLRKIDSU | OKBACKUP+5 |
TABMESG^BLRKIDSU | PRE+23, NOBACKUP+3, NOBACKUP+4, NOBACKUP+5 |
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 | ADDPARMS+6 |
^DIK | FILEDEL+13 |
$$GET1^DIQ | ENVIVARS+19, OKBACKUP+2, NOBACKUP+4, ADDPARMS+3 |
^DIR | BACKUP+12, DEBUG+27 |
^XBFMK | BACKUP+5, DEBUG+23, FILEDEL+10 |
FRAME^XGF | INITSCR+9 |
IOXY^XGF | INITSCR+11 |
PREP^XGF | INITSCR+3, INITSCR+4 |
$$DT^XLFDT | ENVIVARS+3, ENVIVARS+7, POST+7, WOTCNT+3 |
$$HTE^XLFDT | PRE+23, BACKUP+23, SAVEOFF+27 |
$$HTFM^XLFDT | ENVIVARS+7 |
$$NOW^XLFDT | ENVIVARS+9, POST+20 |
$$CJ^XLFSTR | MESCNTR+1 |
$$UP^XLFSTR | PRE+23, OPTADD+6 |
EXIT^XPDID | PRE+26, EXITKIDG+5 |
TITLE^XPDID | PRE+9, PRE+15 |
$$ADD^XPDMENU | OPTADD+2 |
BMES^XPDUTL | PRE+10, PRE+16, POST+14, OPTADD+1, SAVEOFF+8, SAVEOFF+15, SAVEOFF+35, SAVEOFF+36 |
MES^XPDUTL | OKBACKUP+1, OKBACKUP+4, EXITKIDG+6, OPTADD+3, OPTADD+5, OPTADD+6, OPTADD+8, ADDPARMS+8, 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 |
|
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 |
^BLRUCUM - [#90475.3] | Classic Fileman Calls |
^BLRLSRP - [#90475.7] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BLRINSTL("LAB PATCH" | BACKUP+20, BACKUP+21*, BACKUP+22*, BACKUP+23*, SAVEOFF+27*, SAVEOFF+28* |
^BLRUCUM - [#90475.3] | FILEDEL+7 |
^ROUTINE( | SAVEOFF+18, SAVEOFF+24 |
^VA(200 - [#200] | BACKUP+21 |
^XPD(9.6 - [#9.6] | SAVEOFF+12, SAVEOFF+17 |
^XTMP( | ENVIVARS+7*, ENVIVARS+8*, ENVIVARS+9*, POST+20*, 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+8 |
ADDOPTS | POST+10 |
ADDPARMS | POST+12 |
BLANK | ENVICHEK+5, ENVICHEK+7, PRE+10, PRE+16, POST+14, SAVEOFF+7 |
EXITKIDG | POST+3 |
FILEDEL | PRE+21 |
INITSCR | PRE+8, PRE+14 |
OPTADD | ADDOPTS+6, ADDOPTS+10, ADDOPTS+14 |
POST | DEBUG+29 |
POSTMAIL | POST+18 |
PRE | DEBUG+18 |
SAVEOFF | PRE+19 |
SETEVARS | ENVIVARS+1, PRE+4, DEBUG+7, POST+5 |
>> | 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+1~, POST+8, POST+18, POST+20, SAVEOFF+3*, SAVEOFF+7, SETEVARS+3*, WOTCNT~, WOTCNT+5 , WOTCNT+6, POSTMAIL~, POSTMAIL+4, POSTMAIL+12 |
>> BUILD | SAVEOFF+11*, SAVEOFF+12 |
CNT | PRE+1~, SAVEOFF+16*, SAVEOFF+31*, SAVEOFF+36, WOTCNT+1~, WOTCNT+5*, WOTCNT+6, WOTCNT+7, FILEDEL+1~, FILEDEL+6* , FILEDEL+8*, FILEDEL+9 |
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~, POST+1~, SETEVARS+1*, SETEVARS+2 |
CPSTR | ENVIVARS+7, PRE+1~, PRE+9, PRE+15, DEBUG+1~, DEBUG+15, POST+1~, POST+14, POST+18, SETEVARS+2* , POSTMAIL~, POSTMAIL+6, POSTMAIL+12 |
CRTLINE | PRE+1~ |
>> DA | FILEDEL+11* |
DEBUG | BACKUP+17, OKBACKUP+3, DEBUG+1~, DEBUG+12*, POST+16, ADDPARMS+1, SAVEOFF+1, SAVEOFF+5, POSTMAIL+9, FILEDEL+12 |
>> DIK | FILEDEL+11* |
>> DILOCKTM | ADDPARMS+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 | ADDPARMS+1, SAVEOFF+1 |
DT | ADDPARMS+1, SAVEOFF+1 |
DTIME | ADDPARMS+1, SAVEOFF+1 |
DUZ | ENVIVARS+8, ENVIVARS+18, ENVIVARS+19, BACKUP+21, BACKUP+22, OKBACKUP+2, NOBACKUP+4, ADDPARMS+1, SAVEOFF+1 |
ENDTIME | DEBUG+1~ |
ERRARRAY | ENVICHEK+1~, ENVICHEK+7, ENVICHEK+9, DEBUG+1~ |
ERRS | ADDPARMS+7, SAVEOFF+23!, SAVEOFF+25, SAVEOFF+28, SAVEOFF+29 |
>> FDA( | ADDPARMS+5* |
FDAROOT | PRE+1~ |
IEN | PRE+1~, FILEDEL+1~, FILEDEL+6*, FILEDEL+7*, FILEDEL+11 |
IENS | PRE+1~ |
IO | ADDPARMS+1, SAVEOFF+1, INITSCR+2 |
IO(0 | INITSCR+2 |
>> IOBM | INITSCR+7* |
>> IOBS | ADDPARMS+1, SAVEOFF+1 |
IOF | ADDPARMS+1, SAVEOFF+1 |
IOM | ADDPARMS+1, SAVEOFF+1, MESCNTR+1, INITSCR+9 |
ION | ADDPARMS+1, SAVEOFF+1 |
>> IOS | ADDPARMS+1, SAVEOFF+1 |
IOSL | ADDPARMS+1, SAVEOFF+1, INITSCR+7 |
IOST | BACKUP+8, ADDPARMS+1, SAVEOFF+1, INITSCR+2 |
>> IOSTBM | INITSCR+8 |
>> IOT | ADDPARMS+1, SAVEOFF+1 |
>> IOTM | INITSCR+7*, INITSCR+9, INITSCR+11 |
>> IOXY | ADDPARMS+1, SAVEOFF+1 |
LASTLOGI | DEBUG+1~ |
>> LN | SAVEOFF+24* |
LRBLNOW | DEBUG+2~ |
MSGROOT | PRE+1~ |
NEWOPT | ADDOPTS+1~, ADDOPTS+4*, ADDOPTS+6, ADDOPTS+8*, ADDOPTS+10, ADDOPTS+12*, ADDOPTS+14, OPTADD~, OPTADD+1, OPTADD+2 , OPTADD+3, OPTADD+5 |
NEWOPTM | ADDOPTS+1~, ADDOPTS+5*, ADDOPTS+6, ADDOPTS+9*, ADDOPTS+10, ADDOPTS+13*, ADDOPTS+14, OPTADD~, OPTADD+2 |
>> NOW | SAVEOFF+26*, SAVEOFF+27, SAVEOFF+28 |
>> PATCH | SAVEOFF+10*, SAVEOFF+11, SAVEOFF+20, SAVEOFF+27, SAVEOFF+28 |
>> PATCHIEN | SAVEOFF+12*, SAVEOFF+13, SAVEOFF+17 |
PATCHNUM | DEBUG+2~, POST+1~, 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+16*, SAVEOFF+17*, SAVEOFF+18, SAVEOFF+24, SAVEOFF+25, SAVEOFF+28, SAVEOFF+30 |
RTNA | SAVEOFF+23!, SAVEOFF+25 |
RTNA( | SAVEOFF+24* |
>> RTNCNT | SAVEOFF+16*, SAVEOFF+22*, SAVEOFF+33, SAVEOFF+35 |
>> RTNPATCH | SAVEOFF+18*, SAVEOFF+19, SAVEOFF+20 |
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~ |
TAB | ADDOPTS+1~, ADDOPTS+3*, ADDOPTS+6, ADDOPTS+10, ADDOPTS+14, OPTADD~, OPTADD+3, OPTADD+5, OPTADD+6, SAVEOFF+6* , SAVEOFF+8, SAVEOFF+34*, SAVEOFF+35, SAVEOFF+36 |
TODAY | ENVICHEK+1~, ENVIVARS+3*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+7*, POST+20, WOTCNT+1~, WOTCNT+3* , WOTCNT+5, WOTCNT+6 |
U | BACKUP+21, ADDPARMS+1, SAVEOFF+1 |
WHATCNT | DEBUG+3~ |
WOTCNT | ENVICHEK+1~, ENVIVARS+4*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+8*, POST+20 |
X | ENVIVARS+25*, EXITKIDG+4*, EXITKIDG+5, OPTADD+2*, OPTADD+3, OPTADD+4, OPTADD+6, SAVEOFF+25*, INITSCR+1~, INITSCR+5* |
>> XPARSYS | ADDPARMS+1, SAVEOFF+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 | ADDPARMS+1, SAVEOFF+1 |
>> XUMF | ENVIVARS+11*, PRE+6* |
>> Y | BACKUP+15, DEBUG+29 |
Name | Field # of Occurrence |
---|---|
$T( | SAVEOFF+3, SAVEOFF+10, SETEVARS+1, SETEVARS+3 |
$T(PREP^XGF | INITSCR+3 |