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

Package: IHS Changes To Lab

Routine: BLRPRE36


Information

BLRPRE36 ; IHS/MSC/MKK - IHS Lab Patch LR*5.2*1036 Pre/Environment Routine ; 16-Jul-2015 06:30 ; MKK

Source Information

Source file <BLRPRE36.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Kernel 7 HOME^%ZIS  ENDR^%ZISS  (FRAME,IOXY,PREP)^XGF  ($$DT,$$HTE,$$HTFM,$$NOW)^XLFDT  ($$CJ,$$UP)^XLFSTR  (EXIT,TITLE)^XPDID  (BMES,MES)^XPDUTL  
IHS Changes To Lab 5 POST^BLR35PST  (PRESSKEY,SHOWBOX)^BLRGMENU  (OKAY,TABMENU,TABMESG)^BLRKIDSU  (BOKAY,ENVHEADR,NEEDIT,PASSMESG,SORRY)^BLRPRE31  SORRYEND^BLRPRE33  
VA Fileman 3 DTNOLF^DICRW  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
PRE ; EP - Ask for confirmation of Backup
CHKBCKUP ; EP - Check to determine if BACKUP has been performed.
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
SETEVARS ; EP - SET standard "Enviroment" VARiables.

External References

Name Field # of Occurrence
HOME^%ZIS ENVIVARS+29
ENDR^%ZISS INITSCR+6
POST^BLR35PST DEBUG+42
PRESSKEY^BLRGMENU DEBUG+29
SHOWBOX^BLRGMENU BACKUP+3
OKAY^BLRKIDSU OKBACKUP+2
TABMENU^BLRKIDSU OKBACKUP+5
TABMESG^BLRKIDSU PRE+20, NOBACKUP+3, NOBACKUP+4, NOBACKUP+5
BOKAY^BLRPRE31 ENVICHEK+13, CHKBCKUP+27
ENVHEADR^BLRPRE31 ENVICHEK+5
NEEDIT^BLRPRE31 ENVICHEK+9
PASSMESG^BLRPRE31 NOBACKUP+2, CHKBCKUP+4, CHKBCKUP+16
SORRY^BLRPRE31 ENVIVARS+13, ENVIVARS+18, ENVIVARS+19
SORRYEND^BLRPRE33 ENVICHEK+11
DTNOLF^DICRW ENVIVARS+30
$$GET1^DIQ ENVIVARS+19, OKBACKUP+2, NOBACKUP+4, CHKBCKUP+18, CHKBCKUP+27
^DIR BACKUP+12, DEBUG+40, CHKBCKUP+11
^XBFMK BACKUP+5, DEBUG+36, CHKBCKUP+7
FRAME^XGF INITSCR+9
IOXY^XGF INITSCR+11
PREP^XGF INITSCR+3, INITSCR+4
$$DT^XLFDT ENVIVARS+3, ENVIVARS+7, WOTCNT+3
$$HTE^XLFDT PRE+20, BACKUP+23, CHKBCKUP+25
$$HTFM^XLFDT ENVIVARS+7
$$NOW^XLFDT ENVIVARS+9
$$CJ^XLFSTR MESCNTR+1
$$UP^XLFSTR PRE+20
EXIT^XPDID PRE+23
TITLE^XPDID PRE+9, PRE+15
BMES^XPDUTL PRE+10, PRE+16, CHKBCKUP+17, CHKBCKUP+18, CHKBCKUP+19
MES^XPDUTL OKBACKUP+1, OKBACKUP+4, BLANK+1, MESCNTR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BACKUP+13
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: INITSCR+8
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+24
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEBUG+34
Function Call: WRITE
  • Prompt: !!,"Debug Routine ",BLRVERN," Ends.",!!
  • Line Location: DEBUG+44
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKBCKUP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKBCKUP+12
Routine Call
  • %ZIS
  • Line Location:
    • ENVIVARS+29
Routine Call
  • DIR
  • Line Location:
    • BACKUP+12
    • DEBUG+40
    • CHKBCKUP+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRINSTL("LAB PATCH" BACKUP+20, BACKUP+21*, BACKUP+22*, BACKUP+23*, CHKBCKUP+23, CHKBCKUP+24*, CHKBCKUP+25*
^ROUTINE( SAVEOFF+5, SAVEOFF+6
^VA(200 - [#200] BACKUP+21, CHKBCKUP+24
^XTMP( ENVIVARS+7*, ENVIVARS+8*, ENVIVARS+9*, 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
BLANK ENVICHEK+5, ENVICHEK+9, PRE+10, PRE+16
ENVICHEK DEBUG+28
INITSCR PRE+8, PRE+14
PRE DEBUG+33
SAVEOFF ENVICHEK+7
SETEVARS ENVIVARS+1, PRE+4, DEBUG+7

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, CHKBCKUP+23*, CHKBCKUP+24, CHKBCKUP+25
BEGTIME DEBUG+1~
BLRVERN ENVICHEK+1~, ENVIVARS+4, ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, PRE+1~, PRE+10, PRE+16, SETEVARS+3*, WOTCNT~
, WOTCNT+5, WOTCNT+6, DEBUG+1~, DEBUG+10, DEBUG+44
CNT PRE+1~, WOTCNT+1~, WOTCNT+5*, WOTCNT+6, WOTCNT+7
CP ENVICHEK+1~, ENVICHEK+5, ENVICHEK+9, ENVICHEK+11, ENVIVARS+13, ENVIVARS+18, ENVIVARS+19, PRE+1~, BACKUP+20, BACKUP+21
, BACKUP+22, BACKUP+23, SETEVARS+1*, SETEVARS+2, DEBUG+1~, CHKBCKUP+1~, CHKBCKUP+2*, CHKBCKUP+23, CHKBCKUP+24, CHKBCKUP+25
CPSTR ENVIVARS+7, PRE+1~, PRE+9, PRE+15, SETEVARS+2*, DEBUG+1~, DEBUG+25
CRTLINE PRE+1~
DEBUG BACKUP+17, OKBACKUP+3, DEBUG+1~, DEBUG+22*
>> DILOCKTM SAVEOFF+1
>> DIR("?" BACKUP+11*
>> DIR("A" BACKUP+10*, DEBUG+39*, CHKBCKUP+10*
>> DIR("B" BACKUP+7*, DEBUG+38*, CHKBCKUP+9*
>> DIR(0 BACKUP+6*, DEBUG+37*, CHKBCKUP+8*
DIRASTR PRE+1~
>> DISYS SAVEOFF+1
DT SAVEOFF+1
DTIME SAVEOFF+1
DUZ ENVIVARS+8, ENVIVARS+18, ENVIVARS+19, BACKUP+21, BACKUP+22, OKBACKUP+2, NOBACKUP+4, CHKBCKUP+18, CHKBCKUP+24, CHKBCKUP+27
, SAVEOFF+1
ENDTIME DEBUG+1~
ERRARRAY ENVICHEK+1~, ENVICHEK+9, ENVICHEK+11, DEBUG+1~
ERRS SAVEOFF+4!, SAVEOFF+7
FDAROOT PRE+1~
IEN PRE+1~
IENS PRE+1~
IO INITSCR+2, SAVEOFF+1
IO(0 INITSCR+2
>> IOBM INITSCR+7*
>> IOBS SAVEOFF+1
IOF SAVEOFF+1
IOM MESCNTR+1, INITSCR+9, SAVEOFF+1
ION SAVEOFF+1
>> IOS SAVEOFF+1
IOSL INITSCR+7, SAVEOFF+1
IOST BACKUP+8, INITSCR+2, SAVEOFF+1
>> IOSTBM INITSCR+8
>> IOT SAVEOFF+1
>> IOTM INITSCR+7*, INITSCR+9, INITSCR+11
>> IOXY SAVEOFF+1
LASTLOGI DEBUG+1~
>> LN SAVEOFF+5*, SAVEOFF+6
LRBLNOW DEBUG+2~
MSGROOT PRE+1~
PATCHNUM SETEVARS+1*, DEBUG+2~
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+3*, SAVEOFF+5, SAVEOFF+6, SAVEOFF+7
RTNA SAVEOFF+4!, SAVEOFF+7
RTNA( SAVEOFF+6*
STR MESCNTR~, MESCNTR+1, DEBUG+2~
SUCCSTR BACKUP+1~, BACKUP+8*, BACKUP+9*, BACKUP+10, DEBUG+3~
TODAY ENVICHEK+1~, ENVIVARS+3*, ENVIVARS+8, ENVIVARS+9, WOTCNT+1~, WOTCNT+3*, WOTCNT+5, WOTCNT+6, DEBUG+3~
U BACKUP+21, CHKBCKUP+24, SAVEOFF+1
WHATCNT DEBUG+3~
WOTCNT ENVICHEK+1~, ENVIVARS+4*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~
X ENVIVARS+25*, INITSCR+1~, INITSCR+5*, SAVEOFF+7*
>> XPARSYS SAVEOFF+1
XPDABORT ENVICHEK+11, ENVIVARS+27*, NOBACKUP+1*, DEBUG+3~, DEBUG+31, CHKBCKUP+15*
>> XPDDIQ( ENVIVARS+25*
XPDENV DEBUG+3~, DEBUG+26*
>> XPDIDVT INITSCR+2*, INITSCR+3*, INITSCR+5*
XPDNM ENVIVARS+13, ENVIVARS+15, ENVIVARS+16, DEBUG+3~, DEBUG+25*
>> XPDNOQUE ENVIVARS+21*
XPDSTR INITSCR+1~, INITSCR+5*
>> XQXFLG SAVEOFF+1
>> XUMF ENVIVARS+11*, PRE+6*
>> Y BACKUP+15, DEBUG+42, CHKBCKUP+14

Marked Items

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