Routine: BLRPRE27

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

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE27

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items