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

Package: IHS Changes To Lab

Routine: BLRPRE27


Information

BLRPRE27 ;IHS/OIT/MKK - IHS Lab PATCH 1027 Environment Routine ;JUL 06, 2010 3:14 PM

Source Information

Source file <BLRPRE27.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Kernel 5 HOME^%ZIS  ($$HTE,$$NOW)^XLFDT  ($$CJ,$$TRIM,$$UP)^XLFSTR  ($$PATCH,$$VERSION,BMES,MES)^XPDUTL  SETUP^XQALERT  
IHS Changes To Lab 3 (ENDINSTL,OKAY)^BLRKIDSU  ADDEAGDC^BLRPR27P  PASSMESG^BLRPRE27  
IHS VA Utilities 3 ^XBCLS  ^XBFMK  $$LOC^XBFUNC  
MailMan 3 CHK^XMA21  CHKGROUP^XMBGRP  ^XMD  
VA Fileman 3 FIND^DIC  DTNOLF^DICRW  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Changes To Lab 5 BLRPR27P  BLRPR28P  BLRPR30P  BLRPRE27  BLRREFLP  

Entry Points

Name Comments DBIA/ICR reference
REALLYIN
SENDMAIL(MAILMSG) ; EP -- Send MailMan E-mail to LMI group AND Installer
SORRYFIN ; EP -- "Fin" of Final Fatal Message
ENVICHEK ; Environment Checker
COMPLEX ; EP
PRE ; EP
SORRYHED ; EP -- "Header" of Final Fatal Message
NEEDIT(MODULE,VERSION,PATCH,ERRARRAY)
SORRYEND(WOTERR,CP) ; EP -- ALL the errors detected during the environment check.
ADDLINE(ASTR,LC,CENTER) ; EP -- Add a line to the STR array; CENTER if requested
GETREADY ; EP
PASSMESG(WOT) ; EP -- Splash message
BACKUPS() ; EP -- Ask for confirmation of Backup
ADDMESG ; EP
DEBUG ; EP - Debugging Line Label for environment checker
POST ; EP -- POST INSTALL
MAKESURE() ; EP
PRESSKEY(TAB,MSGSTR)
NEEDMSG(MESSAGE) ; EP
CHKENHED ; EP -- Header
MEGAWARN ; EP
NINLMI(CHKDUZ) ; EP -- Check to see if DUZ is NOT part of LMI Mail Group
USERID ; EP - CHECK FOR USER ID
AREUSURE(MSG) ; EP
SNDALERT(ALERTMSG) ; EP - Send alert to LMI group AND Installer
TEXTONGO ; EP
JUSTTXT() ; EP
SORRY(MSG,MODE,MSG2)
CHECKLMI(ERRARRAY) ; EP -- CHECK FOR LMI MAIL GROUP

External References

Name Field # of Occurrence
HOME^%ZIS GETREADY+9
ENDINSTL^BLRKIDSU POST+8
OKAY^BLRKIDSU CHECKLMI+4, NEEDIT+26, NEEDIT+29, NEEDIT+36
ADDEAGDC^BLRPR27P POST+5
PASSMESG^BLRPRE27 DEBUG+3
FIND^DIC NEEDIT+7
DTNOLF^DICRW GETREADY+10
^DIR DEBUG+11, DEBUG+24, BACKUPS+9, AREUSURE+7, PRESSKEY+8
^XBCLS CHKENHED+4, PASSMESG+8
^XBFMK DEBUG+7, DEBUG+20, BACKUPS+5, AREUSURE+3, PRESSKEY+5
$$LOC^XBFUNC SORRY+22
$$HTE^XLFDT BACKUPS+23, REALLYIN+7
$$NOW^XLFDT SENDMAIL+11
$$CJ^XLFSTR CHKENHED+6, DEBUG+29, ADDLINE+3, COMPLEX+2, PASSMESG+11, PASSMESG+12, PASSMESG+13, TEXTONGO+3, TEXTONGO+4, TEXTONGO+5
$$TRIM^XLFSTR NEEDMSG+7
$$UP^XLFSTR AREUSURE+8
CHK^XMA21 NINLMI+11
CHKGROUP^XMBGRP NINLMI+4, CHECKLMI+2
^XMD SENDMAIL+17
$$PATCH^XPDUTL NEEDIT+31
$$VERSION^XPDUTL NEEDIT+16
BMES^XPDUTL PRE+1, ENVICHEK+27, SORRY+42, SENDMAIL+20, SENDMAIL+21, SENDMAIL+22, SORRYEND+13, CHECKLMI+6, MEGAWARN+14, MEGAWARN+15
, MEGAWARN+16, TEXTONGO+3, TEXTONGO+4, TEXTONGO+6
MES^XPDUTL ENVICHEK+6, ENVICHEK+8, ENVICHEK+10, ENVICHEK+13, ENVICHEK+15, ENVICHEK+17, ENVICHEK+19, ENVICHEK+21, ENVICHEK+23, TEXTONGO+5
SETUP^XQALERT SNDALERT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: STR,!
  • Line Location: CHKENHED+5
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR("@Checking@Environment@for@Patch@"_CP_"@of@Version@"_RPMSVER_"@of@"_RPMS_".@",IOM)," @","* "),!
  • Line Location: CHKENHED+6
Function Call: WRITE
  • Prompt: STR,!
  • Line Location: CHKENHED+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEBUG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEBUG+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEBUG+19
Function Call: WRITE
  • Prompt: !!,$TR($J("",IOM)," ","*"),!
  • Line Location: DEBUG+28
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR("@DEBUGGING@BLRPRE27@Complete.@",IOM)," @","* "),!
  • Line Location: DEBUG+29
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!!
  • Line Location: DEBUG+30
Function Call: WRITE
  • Prompt: !!
  • Line Location: MEGAWARN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: JUSTTXT+2
Function Call: WRITE
  • Prompt: ?5,"It is also critical that all Laboratorians are prepared for this patch.",!!
  • Line Location: JUSTTXT+4
Function Call: WRITE
  • Prompt: ?5,"Verify with the Lab Supervisor.",!
  • Line Location: JUSTTXT+5
Function Call: WRITE
  • Prompt: ?5,"Due to the complexities of this install, it is absolutely imperative",!!
  • Line Location: COMPLEX+1
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(">>> A VALID BACKUP EXISTS <<<",IOM),!!
  • Line Location: COMPLEX+2
Function Call: WRITE
  • Prompt: ?5,"because there is no recovery possible except restoring from backup.",!!!
  • Line Location: COMPLEX+3
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+9
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+10
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),!
  • Line Location: PASSMESG+11
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(MAXIT,IOM)," @","* "),!
  • Line Location: PASSMESG+12
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),!
  • Line Location: PASSMESG+13
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+14
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+15
Function Call: WRITE
  • Prompt: !
  • Line Location: BACKUPS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BACKUPS+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: BACKUPS+15
Function Call: WRITE
  • Prompt: ?15,"SUCCESSFUL system backup has >>> NOT <<< been confirmed.",!!
  • Line Location: BACKUPS+16
Function Call: WRITE
  • Prompt: ?15,"Install Aborting.",!!
  • Line Location: BACKUPS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: MAKESURE+2
Function Call: WRITE
  • Prompt: ?5,"There are over 335 routines, multiple Data Dictionary changes as well as",!
  • Line Location: MAKESURE+4
Function Call: WRITE
  • Prompt: ?5,"numerous new options and processes that are included in this patch.",!
  • Line Location: MAKESURE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAKESURE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MAKESURE+13
Function Call: WRITE
  • Prompt: !!,?10,"YES was NOT entered. Install Aborted.",!
  • Line Location: AREUSURE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: TEXTONGO+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESSKEY+4
Routine Call
  • %ZIS
  • Line Location:
    • GETREADY+9
Routine Call
  • DIC
  • Line Location:
    • NEEDIT+7
Routine Call
  • DIR
  • Line Location:
    • DEBUG+11
    • DEBUG+24
    • BACKUPS+9
    • AREUSURE+7
    • PRESSKEY+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRINSTL("LAB PATCH" BACKUPS+21, BACKUPS+22*, BACKUPS+23*, REALLYIN+4, REALLYIN+6*, REALLYIN+7*
^VA(200 - [#200] USERID+3, BACKUPS+22, REALLYIN+6

Label References

Name Line Occurrences
$$AREUSURE MAKESURE+7, MAKESURE+11, MAKESURE+16
$$BACKUPS MEGAWARN+5
$$MAKESURE MEGAWARN+7, JUSTTXT+6
$$NINLMI SNDALERT+7, SENDMAIL+9
ADDLINE SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25, SORRY+26, SORRY+27, SORRY+28
, SORRY+30, SORRY+33, SORRY+34, SORRY+35, SORRY+36, SORRY+37, SORRY+39, SORRY+40, 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
CHECKLMI ENVICHEK+14
CHKENHED ENVICHEK+3
COMPLEX JUSTTXT+3, BACKUPS+3
NEEDIT ENVICHEK+5, ENVICHEK+7, ENVICHEK+9, ENVICHEK+12, ENVICHEK+16, ENVICHEK+18, ENVICHEK+20, ENVICHEK+22
NEEDMSG NEEDIT+12, NEEDIT+23, NEEDIT+34
PASSMESG JUSTTXT+1, BACKUPS+1, BACKUPS+14, MAKESURE+1, MAKESURE+10, MAKESURE+15, TEXTONGO+1
POST DEBUG+26
PRE DEBUG+17
PRESSKEY MEGAWARN+11, AREUSURE+11
REALLYIN MEGAWARN+18
SENDMAIL POST+17, SORRY+48, SORRY+51
SNDALERT POST+10, SORRY+47, SORRY+50
SORRY PRE+6, USERID+1, USERID+3, CHECKLMI+7, NEEDMSG+4, NEEDMSG+8
SORRYEND ENVICHEK+25
SORRYFIN SORRYEND+11
SORRYHED SORRYEND+3
TEXTONGO MEGAWARN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALERTMSG SNDALERT~, SNDALERT+3
>> ANSWER MAKESURE+7*, MAKESURE+8, MAKESURE+11*, MAKESURE+12
AROUND PASSMESG+1~, PASSMESG+5*, PASSMESG+11, PASSMESG+13
ASTR ADDLINE~, ADDLINE+1*, ADDLINE+2, ADDLINE+3
BCKUPCNT BACKUPS+20~, BACKUPS+21*, BACKUPS+22, BACKUPS+23
CENTER ADDLINE~, ADDLINE+2, ADDLINE+3
CHKDUZ NINLMI~
CHKPATCH ENVICHEK+1~, ENVICHEK+5*, ENVICHEK+7*, ENVICHEK+9*, ENVICHEK+11*, ENVICHEK+12
CP PRE+2~, PRE+8*, ENVICHEK+25, POST+1~, POST+3*, POST+8, POST+10, POST+15, POST+17, CHKENHED+6
, DEBUG+1~, SORRY+3*, SORRY+47, SORRY+48, SORRY+50, SORRY+51, SORRYEND~, MEGAWARN+1~, MEGAWARN+3*, BACKUPS+21
, BACKUPS+22, BACKUPS+23, REALLYIN+1~, REALLYIN+3*, REALLYIN+4, REALLYIN+6, REALLYIN+7
DEBUG DEBUG+1~, DEBUG+5*, DEBUG+12*, SORRY+44, SNDALERT+1, SENDMAIL+1
DIFQ SORRY+14!
DIFROM SENDMAIL+3~
>> DIR("A" DEBUG+10*, DEBUG+23*, BACKUPS+8*, AREUSURE+6*, PRESSKEY+7*
>> DIR("B" DEBUG+9*, DEBUG+22*, BACKUPS+7*, AREUSURE+5*
>> DIR(0 DEBUG+8*, DEBUG+21*, BACKUPS+6*, AREUSURE+4*, PRESSKEY+6*
>> DUOUT PRESSKEY+9
DUZ USERID+1, USERID+3, SNDALERT+7, NINLMI+9, SENDMAIL+9, BACKUPS+22, REALLYIN+6
ERRARRAY PRE+3~, ENVICHEK+5, ENVICHEK+7, ENVICHEK+9, ENVICHEK+12, ENVICHEK+14, ENVICHEK+16, ENVICHEK+18, ENVICHEK+20, ENVICHEK+22
, ENVICHEK+25, CHECKLMI~, NEEDIT~
ERRARRAY( NEEDIT+11*, NEEDIT+22*, NEEDIT+33*
ERRARRAY("XMB" CHECKLMI+8*
HEREYAGO NEEDIT+3~
HEREYAGO("DILIST" NEEDIT+8, NEEDIT+14
INSTCNT REALLYIN+1~, REALLYIN+4*, REALLYIN+6, REALLYIN+7
IOM CHKENHED+2, CHKENHED+6, DEBUG+28, DEBUG+29, DEBUG+30, COMPLEX+2, PASSMESG+9, PASSMESG+10, PASSMESG+11, PASSMESG+12
, PASSMESG+13, PASSMESG+14, PASSMESG+15, TEXTONGO+3, TEXTONGO+4, TEXTONGO+5
>> J PASSMESG+4*
LC ADDLINE~, ADDLINE+2, ADDLINE+3, ADDLINE+4*
LINECNT SORRY+17~, SORRY+18*, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25, SORRY+26
, SORRY+27, SORRY+28, SORRY+30, SORRY+33, SORRY+34, SORRY+35, SORRY+36, SORRY+37, SORRY+39, SORRY+40
, 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*
MAILMSG SENDMAIL~, SENDMAIL+13
MAXIT PASSMESG+1~, PASSMESG+3*, PASSMESG+4*, PASSMESG+5, PASSMESG+6*, PASSMESG+12
MESSAGE SORRY+1~, SORRY+9*, SORRY+12*, SORRY+24, SORRY+30, NEEDMSG~, NEEDMSG+3, NEEDMSG+6, NEEDMSG+7
MGRPIEN NINLMI+1~, NINLMI+4, NINLMI+5, NINLMI+10, CHECKLMI+1~, CHECKLMI+2, CHECKLMI+3
MODE SORRY~, SORRY+6*, SORRY+8, SORRY+12, SORRY+30, SORRY+32, SORRY+46, SORRY+50
MODULE SORRYEND+1~, SORRYEND+5*, SORRYEND+6*, SORRYEND+7, SORRYEND+8, ADDMESG+3, ADDMESG+5, NEEDIT~, NEEDIT+7, NEEDIT+11
, NEEDIT+12, NEEDIT+16, NEEDIT+22, NEEDIT+31, NEEDIT+33
MSG SORRY~, SORRY+26, SORRY+47, SORRY+50, AREUSURE~, AREUSURE+2
MSG2 SORRY~, SORRY+27
MSGSTR PRESSKEY~, PRESSKEY+2
NAME SORRYEND+1~, SORRYEND+5*, SORRYEND+7*, SORRYEND+8, ADDMESG+3, ADDMESG+5, NEEDIT+1~, NEEDIT+14*, NEEDIT+18, NEEDIT+22
, NEEDIT+33
NAMESYS NEEDIT+5~, NEEDIT+18*, NEEDIT+23, NEEDIT+26
NAMEVER NEEDIT+5~, NEEDIT+18*, NEEDIT+23, NEEDIT+26, NEEDIT+29, NEEDIT+34, NEEDIT+36
PATCH SORRYEND+1~, NEEDIT~, NEEDIT+28, NEEDIT+31, NEEDIT+33, NEEDIT+34, NEEDIT+36
PROMPT AREUSURE+1~, AREUSURE+2*, AREUSURE+6
PTR NEEDIT+2~, NEEDIT+8*, NEEDIT+10
QFLG PRE+2~, MEGAWARN+12, PRESSKEY+9*
ROWSTARS PRE+4~, PRE+12*, SORRY+1~, SORRY+4*, SORRY+20, SORRY+39, SORRYHED+3, SORRYFIN+5
RPMS PRE+2~, PRE+9*, CHKENHED+6
RPMSVER PRE+2~, PRE+10*, CHKENHED+6
STR PRE+2~, POST+1~, CHKENHED+1~, CHKENHED+2*, CHKENHED+5, CHKENHED+7, SORRY+17~, SORRY+42, SORRYEND+1~, SORRYEND+13
STR( ADDLINE+2*, ADDLINE+3*
STR(1 POST+12*
STR(2 POST+13*
STR(3 POST+14*
STR(4 POST+15*
STR(5 POST+16*
STR1 NEEDIT+3~, NEEDMSG+1~, NEEDMSG+3*, NEEDMSG+4, NEEDMSG+6*, NEEDMSG+8
STR2 NEEDIT+3~, NEEDMSG+1~, NEEDMSG+7*, NEEDMSG+8
SYSPATCH NEEDIT+4~, NEEDIT+31*, NEEDIT+32
SYSVER NEEDIT+4~, NEEDIT+16*, NEEDIT+18, NEEDIT+21, NEEDIT+22, NEEDIT+26
TAB PRESSKEY~, PRESSKEY+2
TABSTR PRESSKEY+1~, PRESSKEY+2*, PRESSKEY+7
TMP SORRYEND+1~, ADDMESG+6*, ADDMESG+8*, ADDMESG+9*, ADDMESG+11*, ADDMESG+13
U USERID+3, BACKUPS+22
VERSION SORRYEND+1~, SORRYEND+5*, SORRYEND+8*, ADDMESG+5, ADDMESG+6, ADDMESG+8, NEEDIT~, NEEDIT+11, NEEDIT+18, NEEDIT+21
, NEEDIT+22, NEEDIT+26, NEEDIT+31, NEEDIT+33
WOT ADDMESG+1~, ADDMESG+5*, ADDMESG+7, ADDMESG+9, ADDMESG+10, ADDMESG+11, PASSMESG~, PASSMESG+4
WOTERR SORRYEND~
WOTERR( SORRYEND+6, SORRYEND+7, SORRYEND+8, ADDMESG+5
X GETREADY+5*, SENDMAIL+24!, AREUSURE+8
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+25, SORRY+10*, MEGAWARN+13*, BACKUPS+13*, AREUSURE+9*
>> XPDDIQ( GETREADY+5*
>> XPDENV DEBUG+16*
XPDNM PRE+6, PRE+8, PRE+9, PRE+10, DEBUG+1~, DEBUG+15*
>> XPDNOQUE GETREADY+1*
XQA SNDALERT+10!
XQA( SNDALERT+7*
XQA("G.LMI" SNDALERT+4*
XQAMSG SNDALERT+3*, SNDALERT+10!
Y DEBUG+12, DEBUG+26, NINLMI+10*, SENDMAIL+24!, BACKUPS+12

Marked Items

Name Field # of Occurrence
$T( POST+3, SORRY+3, MEGAWARN+3, REALLYIN+3
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