Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRPRE42

Package: IHS Changes To Lab

Routine: BLRPRE42


Information

BLRPRE42 ; IHS/MSC/MKK - RPMS Lab Patch LR*5.2*1042 Pre/Install/Post Routine ; 15-Nov-2016 08:22 ; MKK

Source Information

Source file <BLRPRE42.m>

Call Graph

Call Graph Total: 18

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  

Entry Points

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.

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BACKUP+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEBUG+9
Function Call: WRITE
  • Prompt: "Debug Routine ",BLRVERN," Begins:",!!
  • Line Location: DEBUG+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DEBUG+14
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEBUG+21
Function Call: WRITE
  • Prompt: !!,"Debug Routine ",BLRVERN," Ends.",!!
  • Line Location: DEBUG+31
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: INITSCR+8
Routine Call
  • %ZIS
  • Line Location:
    • ENVIVARS+29
Routine Call
  • DIC
  • Line Location:
    • GETPARS+5
Routine Call
  • DIR
  • Line Location:
    • BACKUP+13
    • DEBUG+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^XPD(9.6 - [#9.6] FIND1^DIC

Global Variables Directly Accessed

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*

Label References

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

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T( SETEVARS+1, SETBLRVS+3, XTMPHEAD+3
$T(PREP^XGF INITSCR+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All