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

Package: IHS Changes To Lab

Routine: BLRPRE38


Information

BLRPRE38 ; IHS/MSC/MKK - IHS Lab Patch LR*5.2*1038 Pre/Post Routine ; 17-Dec-2015 15:37 ; MKK

Source Information

Source file <BLRPRE38.m>

Call Graph

Call Graph Total: 20

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  

Entry Points

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.

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BACKUP+13
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
Function Call: WRITE
  • Prompt: !,?4,"IHS UCUM Deletions"
  • Line Location: FILEDEL+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: FILEDEL+9
Function Call: WRITE
  • Prompt: !,?4
  • Condition for execution: $X>75
  • Line Location: FILEDEL+9
Function Call: WRITE
  • Prompt: !
  • Line Location: FILEDEL+15
Routine Call
  • %ZIS
  • Line Location:
    • ENVIVARS+29
Routine Call
  • DIR
  • Line Location:
    • BACKUP+12
    • DEBUG+27
Routine Call
  • DIE
  • Line Location:
    • ADDPARMS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^BLRUCUM - [#90475.3] Classic Fileman Calls
^BLRLSRP - [#90475.7] GET1^DIQ

Global Variables Directly Accessed

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*

Label References

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

Local Variables

Legend:

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

Marked Items

Name Field # of Occurrence
$T( SAVEOFF+3, SAVEOFF+10, SETEVARS+1, SETEVARS+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