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 |  Caller 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: BLRPRE31

Package: IHS Changes To Lab

Routine: BLRPRE31


Information

BLRPRE31 ; IHS/MSC/MKK - IHS Lab Patch 1031 Pre/Post/Environment Routine ; [ February 29, 2012 8:00 AM ]

Source Information

Source file <BLRPRE31.m>

Call Graph

Call Graph Total: 22

Package Total Call Graph
Kernel 6 HOME^%ZIS  ($$HTE,$$NOW)^XLFDT  ($$CJ,$$TRIM,$$UP)^XLFSTR  $$DELETE^XPDMENU  ($$PATCH,$$VERSION,BMES,MES)^XPDUTL  SETUP^XQALERT  
IHS VA Utilities 4 ^XBCLS  ^XBFMK  $$LOC^XBFUNC  EN^XBVIDEO  
VA Fileman 4 FIND^DIC  DTNOLF^DICRW  ^DIK  ^DIR  
IHS Changes To Lab 3 EN^BLR138PO  PRESSKEY^BLRGMENU  OKAY^BLRKIDSU  
MailMan 3 CHK^XMA21  CHKGROUP^XMBGRP  ^XMD  
Lab Service 1 $$VER^LR7OU1  
Uncategorized 1 (DISABLE,ENABLE)^%NOJRN  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
IHS Changes To Lab 9 BLR35PST  BLR7OB1  BLRPRE32  BLRPRE33  BLRPRE34  BLRPRE35  BLRPRE36  BLRPRE37  
BLRPRE38  
Automated Lab Instruments 1 LA68  

Entry Points

Name Comments DBIA/ICR reference
SORRYFIN ; EP -- "Fin" of Final Fatal Message
ENVICHEK ; Environment Checker
ENVHEADR(CP,RPMSVER,RPMS) ; EP -- Environment Header
PRE ; EP
ENDINSTL(CURPATCH)
SORRYEND(WOTERR,CP) ; EP -- ALL the errors detected during the environment check.
PREINS ; EP -- Ask for confirmation of Backup
ADDMESG ; EP
CHKMAILG(CP,MAILGRP,ERRARRAY)
GETREADY ; EP
PASSMESG(WOT) ; EP -- Splash message
BANNERL(LC,ASTR) ; EP -- Stores "Banner" Line in STR array
SORRYHED ; EP -- "Header" of Final Fatal Message
NEEDIT(CP,MODULE,VERSION,PATCH,ERRARRAY)
DEBUG ; EP - Debugging Line Label for environment checker
POST ; EP -- POST INSTALL
MKBANNRL(ASTR) ; EP - MaKe the BANNeR Line
BOKAY(MSG,TAB)
PRESSKEY(TAB,MSGSTR)
SORRY(CP,MSG,MODE,MSG2)
SENDMAIL(SUBJECT) ; EP -- Send MailMan E-mail to LMI group AND Installer
NEEDMSG(MESSAGE) ; EP
NINLMI(CHKDUZ) ; EP -- Check to see if DUZ is NOT part of LMI Mail Group
USERID ; EP - CHECK FOR USER ID
ADDLINE(LC,ASTR,CENTER) ; EP -- Add a line to the STR array; CENTER if requested
SNDALERT(ALERTMSG) ; EP - Send alert to LMI group AND Installer

External References

Name Field # of Occurrence
DISABLE^%NOJRN PREINS+38
ENABLE^%NOJRN PREINS+77
HOME^%ZIS GETREADY+9
EN^BLR138PO POST+15
PRESSKEY^BLRGMENU DEBUG+23
OKAY^BLRKIDSU CHKMAILG+4, NEEDIT+22, NEEDIT+25, NEEDIT+32
FIND^DIC NEEDIT+7
DTNOLF^DICRW GETREADY+10
^DIK PREINS+54, PREINS+63, PREINS+73
^DIR DEBUG+12, DEBUG+32, PRESSKEY+8, PREINS+17
$$VER^LR7OU1 ENVICHEK+13
^XBCLS ENVHEADR+11
^XBFMK DEBUG+8, DEBUG+28, PRESSKEY+5, PREINS+13, PREINS+52, PREINS+61, PREINS+71
$$LOC^XBFUNC SORRY+21
EN^XBVIDEO PASSMESG+4
$$HTE^XLFDT ENVHEADR+9, ENDINSTL+6, PREINS+31
$$NOW^XLFDT SENDMAIL+11
$$CJ^XLFSTR ENVHEADR+9, ENVHEADR+13, ENVHEADR+14, ADDLINE+2, PASSMESG+13, PASSMESG+14, PASSMESG+15
$$TRIM^XLFSTR NEEDMSG+7
$$UP^XLFSTR ENVHEADR+9
CHK^XMA21 NINLMI+11
CHKGROUP^XMBGRP NINLMI+4, CHKMAILG+2
^XMD SENDMAIL+17
$$DELETE^XPDMENU POST+9
$$PATCH^XPDUTL NEEDIT+27
$$VERSION^XPDUTL NEEDIT+11
BMES^XPDUTL POST+14, POST+19, BOKAY+1, SORRY+41, SENDMAIL+20, SENDMAIL+21, SENDMAIL+22, SORRYEND+13, CHKMAILG+6, PREINS+7
, PREINS+8, PREINS+23, PREINS+24, PREINS+25, PREINS+26, PREINS+33, PREINS+34, PREINS+43, PREINS+44, PREINS+79
, PREINS+81, PREINS+82
MES^XPDUTL ENVICHEK+9
SETUP^XQALERT SNDALERT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEBUG+2
Function Call: WRITE
  • Prompt: "Debug BLRPRE31.",!!
  • Line Location: DEBUG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEBUG+18
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEBUG+26
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEBUG+35
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESSKEY+4
Function Call: WRITE
  • Prompt: STARS,!
  • Line Location: ENVHEADR+12
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(STR,IOM)," @","* "),!
  • Line Location: ENVHEADR+13
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(TIMESTR,IOM)," @","* "),!
  • Line Location: ENVHEADR+14
Function Call: WRITE
  • Prompt: STARS,!
  • Line Location: ENVHEADR+15
Function Call: WRITE
  • Prompt: $J("",80),!
  • Line Location: PASSMESG+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PASSMESG+10
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+11
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+12
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),!
  • Line Location: PASSMESG+13
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(MAXIT,IOM)," @","* "),!
  • Line Location: PASSMESG+14
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),!
  • Line Location: PASSMESG+15
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+16
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PREINS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PREINS+18
Function Call: WRITE
  • Prompt: !,?4
  • Line Location: PREINS+48
Function Call: WRITE
  • Prompt: "."
  • Line Location: PREINS+50
Function Call: WRITE
  • Prompt: !,?4
  • Condition for execution: $X>75
  • Line Location: PREINS+50
Function Call: WRITE
  • Prompt: "."
  • Line Location: PREINS+59
Function Call: WRITE
  • Prompt: !,?4
  • Condition for execution: $X>75
  • Line Location: PREINS+59
Function Call: WRITE
  • Prompt: !,?4
  • Line Location: PREINS+67
Function Call: WRITE
  • Prompt: "."
  • Line Location: PREINS+69
Function Call: WRITE
  • Prompt: !,?4
  • Condition for execution: $X>75
  • Line Location: PREINS+69
Function Call: WRITE
  • Prompt: !
  • Line Location: PREINS+75
Routine Call
  • %ZIS
  • Line Location:
    • GETREADY+9
Routine Call
  • DIC
  • Line Location:
    • NEEDIT+7
Routine Call
  • DIR
  • Line Location:
    • DEBUG+12
    • DEBUG+32
    • PRESSKEY+8
    • PREINS+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] FIND^DIC
^BLRUCUM - [#90475.3] Classic Fileman Calls
^LAB(95.3 - [#95.3] Classic Fileman Calls
^LAB(95.31 - [#95.31] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRINSTL("LAB PATCH" ENDINSTL+3, ENDINSTL+5*, ENDINSTL+6*, PREINS+29, PREINS+30*, PREINS+31*
^BLRUCUM - [#90475.3] PREINS+58
^LAB(95.3 - [#95.3] PREINS+49
^LAB(95.31 - [#95.31] PREINS+68
^VA(200 - [#200] USERID+3, ENDINSTL+5, PREINS+30, PREINS+34
^XTMP("BLRLINKU" POST+6!

Label References

Name Line Occurrences
$$MKBANNRL BANNERL+2
$$NINLMI SNDALERT+7, SENDMAIL+9
ADDLINE SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+27, SORRY+29, SORRY+32
, SORRY+33, SORRY+34, SORRY+35, SORRY+36, SORRY+38, SORRY+39, SORRYHED+2, SORRYHED+3, SORRYHED+4, SORRYHED+5
, SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9, ADDMESG+3, ADDMESG+13, ADDMESG+14, SORRYFIN+1, SORRYFIN+2, SORRYFIN+3
, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6
ADDMESG SORRYEND+9
BANNERL SORRY+25, SORRY+26
BOKAY ENVICHEK+20
CHKMAILG ENVICHEK+3, ENVICHEK+4
ENDINSTL POST+17
ENVHEADR ENVICHEK+1
NEEDIT ENVICHEK+8, ENVICHEK+11, ENVICHEK+14, ENVICHEK+16
NEEDMSG NEEDIT+18, NEEDIT+19, NEEDIT+30
PASSMESG PREINS+10, PREINS+22
POST DEBUG+34
PRE DEBUG+25
PREINS DEBUG+22
SENDMAIL POST+28, SORRY+47
SNDALERT POST+21, SORRY+46
SORRY PRE+8, USERID+1, USERID+3, CHKMAILG+7, NEEDMSG+4, NEEDMSG+8
SORRYEND ENVICHEK+18
SORRYFIN SORRYEND+11
SORRYHED SORRYEND+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALERTMSG SNDALERT~, SNDALERT+3
AROUND PASSMESG+1~, PASSMESG+7*, PASSMESG+13, PASSMESG+15
ASTR ADDLINE~, ADDLINE+1*, ADDLINE+2, BANNERL~, BANNERL+2, MKBANNRL~, MKBANNRL+5, MKBANNRL+7
BCKUPCNT PREINS+2~, PREINS+29*, PREINS+30, PREINS+31
CENTER ADDLINE~, ADDLINE+2
CHKDUZ NINLMI~
CHKIT POST+1~, POST+9*
CNT PREINS+1~, PREINS+47*, PREINS+50, PREINS+51*, PREINS+57*, PREINS+59, PREINS+60*, PREINS+66*, PREINS+69, PREINS+70*
CP PRE+1~, PRE+7*, PRE+8, PRE+10*, USERID+1, USERID+3, ENVICHEK+1, ENVICHEK+3, ENVICHEK+4, ENVICHEK+8
, ENVICHEK+11, ENVICHEK+14, ENVICHEK+16, ENVICHEK+18, POST+1~, POST+3*, POST+17, POST+19, POST+21, POST+26
, POST+28, DEBUG+1~, ENVHEADR~, ENVHEADR+5, SORRY~, SORRY+46, SORRY+47, SORRYEND~, CHKMAILG~, CHKMAILG+7
, NEEDIT~, NEEDMSG+4, NEEDMSG+8, PREINS+6*, PREINS+29, PREINS+30, PREINS+31
CRTLINE PASSMESG+1~, PASSMESG+3*
CURPATCH ENDINSTL~, ENDINSTL+3, ENDINSTL+5, ENDINSTL+6
>> DA PREINS+53*, PREINS+62*, PREINS+72*
DEBUG DEBUG+1~, DEBUG+7*, DEBUG+13*, DEBUG+16*, SORRY+43, SNDALERT+1, SENDMAIL+1, PREINS+36
DIFQ SORRY+13!
DIFROM SENDMAIL+3~
>> DIK PREINS+53*, PREINS+62*, PREINS+72*
>> DIR("A" DEBUG+11*, DEBUG+31*, PRESSKEY+7*, PREINS+16*
>> DIR("B" DEBUG+10*, DEBUG+30*, PREINS+15*
>> DIR(0 DEBUG+9*, DEBUG+29*, PRESSKEY+6*, PREINS+14*
>> DUOUT PRESSKEY+9
DUZ USERID+1, USERID+3, ENDINSTL+5, SNDALERT+7, NINLMI+9, SENDMAIL+9, PREINS+30, PREINS+34
ERRARRAY PRE+2~, ENVICHEK+3, ENVICHEK+4, ENVICHEK+8, ENVICHEK+11, ENVICHEK+14, ENVICHEK+16, ENVICHEK+18, CHKMAILG~, NEEDIT~
ERRARRAY( NEEDIT+17*, NEEDIT+29*
ERRARRAY("XMB" CHKMAILG+8*
FDAROOT PREINS+1~
HALFLEN MKBANNRL+1~, MKBANNRL+5*, MKBANNRL+6
HEREYAGO NEEDIT+3~
HEREYAGO("DILIST" NEEDIT+8, NEEDIT+9
IEN PREINS+1~, PREINS+47*, PREINS+49*, PREINS+53, PREINS+57*, PREINS+58*, PREINS+62, PREINS+66*, PREINS+68*, PREINS+72
IENS PREINS+1~
INSTCNT ENDINSTL+1~, ENDINSTL+3*, ENDINSTL+5, ENDINSTL+6
IOM ENVHEADR+2, ENVHEADR+13, ENVHEADR+14, PASSMESG+11, PASSMESG+12, PASSMESG+13, PASSMESG+14, PASSMESG+15, PASSMESG+16, PASSMESG+17
J MKBANNRL+1~, MKBANNRL+9*, PASSMESG+6*
LC ADDLINE~, ADDLINE+2, ADDLINE+3*, BANNERL~, BANNERL+2, BANNERL+3*
LINECNT SORRY+16~, SORRY+17*, SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25
, SORRY+26, SORRY+27, SORRY+29, SORRY+32, SORRY+33, SORRY+34, SORRY+35, SORRY+36, SORRY+38, SORRY+39
, SORRYEND+1~, SORRYHED+1*, SORRYHED+2, SORRYHED+3, SORRYHED+4, SORRYHED+5, SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9
, ADDMESG+3, ADDMESG+13, ADDMESG+14, SORRYFIN+1, SORRYFIN+2, SORRYFIN+3, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6
>> LRBLNOW SENDMAIL+11*
MAILGRP CHKMAILG~, CHKMAILG+2, CHKMAILG+4, CHKMAILG+7, CHKMAILG+8
MAXIT PASSMESG+1~, PASSMESG+5*, PASSMESG+6*, PASSMESG+7, PASSMESG+8*, PASSMESG+14
MESSAGE SORRY+1~, SORRY+8*, SORRY+11*, SORRY+23, SORRY+29, NEEDMSG~, NEEDMSG+3, NEEDMSG+6, NEEDMSG+7
MGRPIEN NINLMI+1~, NINLMI+4, NINLMI+5, NINLMI+10, CHKMAILG+1~, CHKMAILG+2, CHKMAILG+3
MODE SORRY~, SORRY+5*, SORRY+7, SORRY+11, SORRY+29, SORRY+31, SORRY+45, SORRY+47
MODESTR SORRY+16~, SORRY+45*, SORRY+46
MODULE SORRYEND+1~, SORRYEND+5*, SORRYEND+6*, SORRYEND+7, SORRYEND+8, ADDMESG+3, ADDMESG+5, NEEDIT~, NEEDIT+7, NEEDIT+11
, NEEDIT+17, NEEDIT+19, NEEDIT+27, NEEDIT+29, NEEDIT+30
MSG BOKAY~, BOKAY+1, SORRY~, SORRY+25, SORRY+46
MSG2 SORRY~, SORRY+26
MSGROOT PREINS+1~
MSGSTR PRESSKEY~, PRESSKEY+2
NAME SORRYEND+1~, SORRYEND+5*, SORRYEND+7*, SORRYEND+8, ADDMESG+3, ADDMESG+5, NEEDIT+1~, NEEDIT+9*, NEEDIT+13, NEEDIT+17
, NEEDIT+29
NAMESYS NEEDIT+5~, NEEDIT+13*, NEEDIT+18, NEEDIT+22
NAMEVER NEEDIT+5~, NEEDIT+13*, NEEDIT+18, NEEDIT+22, NEEDIT+25, NEEDIT+30, NEEDIT+32
PATCH SORRYEND+1~, NEEDIT~, NEEDIT+24, NEEDIT+27, NEEDIT+29, NEEDIT+30, NEEDIT+32
PREREQ PRE+1~
PTR NEEDIT+2~, NEEDIT+8*
QFLG PRE+1~, DEBUG+1~, PRESSKEY+9*
RM MKBANNRL+1~, MKBANNRL+3*, MKBANNRL+5, MKBANNRL+9
ROWSTARS PRE+1~, PRE+14*, SORRY+1~, SORRY+3*, SORRY+19, SORRY+38, SORRYHED+3, SORRYFIN+5
RPMS PRE+1~, PRE+11*, ENVICHEK+1, DEBUG+1~, ENVHEADR~, ENVHEADR+7
RPMSVER PRE+1~, PRE+12*, ENVICHEK+1, DEBUG+1~, ENVHEADR~, ENVHEADR+6
STARS ENVHEADR+1~, ENVHEADR+2*, ENVHEADR+12, ENVHEADR+15
STR PRE+1~, POST+1~, DEBUG+1~, ENVHEADR+1~, ENVHEADR+4*, ENVHEADR+5*, ENVHEADR+6*, ENVHEADR+7*, ENVHEADR+9, ENVHEADR+13
, SORRY+16~, SORRY+41, SORRYEND+1~, SORRYEND+13
STR( ADDLINE+2*, BANNERL+2*
STR(1 POST+23*
STR(2 POST+24*
STR(3 POST+25*
STR(4 POST+26*
STR(5 POST+27*
STR1 NEEDIT+3~, NEEDMSG+1~, NEEDMSG+3*, NEEDMSG+4, NEEDMSG+6*, NEEDMSG+8
STR2 NEEDIT+3~, NEEDMSG+1~, NEEDMSG+7*, NEEDMSG+8
STRLEN MKBANNRL+1~, MKBANNRL+8*, MKBANNRL+9
SUBJECT SENDMAIL~, SENDMAIL+13
SYSPATCH NEEDIT+4~, NEEDIT+27*, NEEDIT+28
SYSVER NEEDIT+4~, NEEDIT+11*, NEEDIT+13, NEEDIT+16, NEEDIT+17, NEEDIT+18, NEEDIT+19, NEEDIT+22
TAB POST+1~, PRESSKEY~, PRESSKEY+2, BOKAY~, BOKAY+1
TABSTR PRESSKEY+1~, PRESSKEY+2*, PRESSKEY+7
TIMESTR ENVHEADR+1~, ENVHEADR+9*, ENVHEADR+14
TMP SORRYEND+1~, ADDMESG+6*, ADDMESG+8*, ADDMESG+9*, ADDMESG+11*, ADDMESG+13
TMPSTR MKBANNRL+1~, MKBANNRL+6*, MKBANNRL+7*, MKBANNRL+8, MKBANNRL+9*, MKBANNRL+10
U USERID+3, ENDINSTL+5, PREINS+30, PREINS+34
VERSION SORRYEND+1~, SORRYEND+5*, SORRYEND+8*, ADDMESG+5, ADDMESG+6, ADDMESG+8, NEEDIT~, NEEDIT+13, NEEDIT+16, NEEDIT+17
, NEEDIT+22, NEEDIT+27, NEEDIT+29
WOT ADDMESG+1~, ADDMESG+5*, ADDMESG+7, ADDMESG+9, ADDMESG+10, ADDMESG+11, PASSMESG~, PASSMESG+6
WOTERR SORRYEND~
WOTERR( SORRYEND+6, SORRYEND+7, SORRYEND+8, ADDMESG+5
X GETREADY+5*, SENDMAIL+24!
XMDUZ NINLMI+1~, NINLMI+9*, SENDMAIL+15*, SENDMAIL+24!
>> XMMG SENDMAIL+19, SENDMAIL+22
XMSUB SENDMAIL+13*, SENDMAIL+24!
XMTEXT SENDMAIL+14*, SENDMAIL+24!
XMY SENDMAIL+5!, SENDMAIL+24!
XMY( SENDMAIL+9*
XMY("G.LMI" SENDMAIL+6*
XMZ SENDMAIL+16*, SENDMAIL+19, SENDMAIL+21, SENDMAIL+24!
>> XPDABORT GETREADY+7*, ENVICHEK+18, SORRY+9*, PREINS+21*
>> XPDDIQ( GETREADY+5*
>> XPDENV DEBUG+20*
>> XPDNM PRE+6, PRE+10, PRE+11, PRE+12, DEBUG+19*
>> XPDNOQUE GETREADY+1*
XQA SNDALERT+10!
XQA( SNDALERT+7*
XQA("G.LMI" SNDALERT+4*
XQAMSG SNDALERT+3*, SNDALERT+10!
>> XUMF PRE+4*, ENVICHEK+22*, PREINS+4*, PREINS+40*
Y ENVICHEK+8*, DEBUG+13, DEBUG+34, NINLMI+10*, SENDMAIL+24!, PREINS+20

Marked Items

Name Field # of Occurrence
$T( PRE+7, POST+3, SENDMAIL+15, PREINS+6
Info |  Source |  Call Graph |  Caller 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