Routine: BLRPRE30

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

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.
BACKUPS	; 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
HOME^%ZIS	GETREADY+9
PRESSKEY^BLRGMENU	DEBUG+20
OKAY^BLRKIDSU	CHKMAILG+4, NEEDIT+22, NEEDIT+25, NEEDIT+32
NEWEAG^BLRPR30P	POST+5
FIND^DIC	NEEDIT+7
DTNOLF^DICRW	GETREADY+10
^DIR	DEBUG+12, DEBUG+29, PRESSKEY+8, BACKUPS+9
^XBCLS	ENVHEADR+9, PASSMESG+8
^XBFMK	DEBUG+8, DEBUG+25, PRESSKEY+5, BACKUPS+5
$$LOC^XBFUNC	SORRY+21
$$HTE^XLFDT	ENDINSTL+6, BACKUPS+24
$$NOW^XLFDT	SENDMAIL+11
$$CJ^XLFSTR	ENVHEADR+11, ADDLINE+2, PASSMESG+11, PASSMESG+12, PASSMESG+13
$$TRIM^XLFSTR	NEEDMSG+7
CHK^XMA21	NINLMI+11
CHKGROUP^XMBGRP	NINLMI+4, CHKMAILG+2
^XMD	SENDMAIL+17
$$PATCH^XPDUTL	NEEDIT+27
$$VERSION^XPDUTL	NEEDIT+11
BMES^XPDUTL	PRE+4, POST+12, BOKAY+1, SORRY+41, SENDMAIL+20, SENDMAIL+21, SENDMAIL+22, SORRYEND+13, CHKMAILG+6, BACKUPS+15 , BACKUPS+16, BACKUPS+17, BACKUPS+18, BACKUPS+26, BACKUPS+27
SETUP^XQALERT	SNDALERT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DEBUG+2
Function Call: WRITE	Prompt: "Debug BLRPRE30.",!! Line Location: DEBUG+3
Function Call: WRITE	Prompt: ! Line Location: DEBUG+15
Function Call: WRITE	Prompt: !!! Line Location: DEBUG+23
Function Call: WRITE	Prompt: !!! Line Location: DEBUG+32
Function Call: WRITE	Prompt: ! Line Location: PRESSKEY+4
Function Call: WRITE	Prompt: STARS,! Line Location: ENVHEADR+10
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(STR,IOM)," @","* "),! Line Location: ENVHEADR+11
Function Call: WRITE	Prompt: STARS,! Line Location: ENVHEADR+12
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+3
Function Call: WRITE	Prompt: ! Line Location: BACKUPS+10
Routine Call	%ZIS Line Location: GETREADY+9
Routine Call	DIC Line Location: NEEDIT+7
Routine Call	DIR Line Location: DEBUG+12 DEBUG+29 PRESSKEY+8 BACKUPS+9

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"	ENDINSTL+3, ENDINSTL+5, ENDINSTL+6, BACKUPS+22, BACKUPS+23, BACKUPS+24
^VA(200 - [#200]	USERID+3, ENDINSTL+5, BACKUPS+23, BACKUPS+27

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
BACKUPS	DEBUG+19
BANNERL	SORRY+25, SORRY+26
BOKAY	ENVICHEK+17
CHKMAILG	ENVICHEK+3, ENVICHEK+4
ENDINSTL	POST+10
ENVHEADR	ENVICHEK+1
NEEDIT	ENVICHEK+6, ENVICHEK+8, ENVICHEK+9, ENVICHEK+10, ENVICHEK+11, ENVICHEK+12, ENVICHEK+13
NEEDMSG	NEEDIT+18, NEEDIT+19, NEEDIT+30
PASSMESG	BACKUPS+2, BACKUPS+14
POST	DEBUG+31
PRE	DEBUG+22
SENDMAIL	POST+21, SORRY+47
SNDALERT	POST+14, SORRY+46
SORRY	PRE+8, USERID+1, USERID+3, CHKMAILG+7, NEEDMSG+4, NEEDMSG+8
SORRYEND	ENVICHEK+15
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+5*, PASSMESG+11, PASSMESG+13
ASTR	ADDLINE~, ADDLINE+1*, ADDLINE+2, BANNERL~, BANNERL+2, MKBANNRL~, MKBANNRL+5, MKBANNRL+7
BCKUPCNT	BACKUPS+21~, BACKUPS+22*, BACKUPS+23, BACKUPS+24
CENTER	ADDLINE~, ADDLINE+2
CHKDUZ	NINLMI~
CP	PRE+1~, PRE+7, PRE+8, PRE+10, USERID+1, USERID+3, ENVICHEK+1, ENVICHEK+3, ENVICHEK+4, ENVICHEK+6 , ENVICHEK+8, ENVICHEK+9, ENVICHEK+10, ENVICHEK+11, ENVICHEK+12, ENVICHEK+13, ENVICHEK+15, POST+1~, POST+3, POST+10 , POST+12, POST+14, POST+19, POST+21, DEBUG+1~, ENVHEADR~, ENVHEADR+5, SORRY~, SORRY+46, SORRY+47 , SORRYEND~, CHKMAILG~, CHKMAILG+7, NEEDIT~, NEEDMSG+4, NEEDMSG+8, BACKUPS+1, BACKUPS+22, BACKUPS+23, BACKUPS+24
CURPATCH	ENDINSTL~, ENDINSTL+3, ENDINSTL+5, ENDINSTL+6
>> DEBUG	DEBUG+7, DEBUG+13, SORRY+43, SNDALERT+1, SENDMAIL+1
DIFQ	SORRY+13!
DIFROM	SENDMAIL+3~
>> DIR("A"	DEBUG+11, DEBUG+28, PRESSKEY+7, BACKUPS+8
>> DIR("B"	DEBUG+10, DEBUG+27, BACKUPS+7*
>> DIR(0	DEBUG+9, DEBUG+26, PRESSKEY+6, BACKUPS+6
>> DUOUT	PRESSKEY+9
DUZ	USERID+1, USERID+3, ENDINSTL+5, SNDALERT+7, NINLMI+9, SENDMAIL+9, BACKUPS+23, BACKUPS+27
ERRARRAY	PRE+2~, ENVICHEK+3, ENVICHEK+4, ENVICHEK+6, ENVICHEK+8, ENVICHEK+9, ENVICHEK+10, ENVICHEK+11, ENVICHEK+12, ENVICHEK+13 , ENVICHEK+15, CHKMAILG~, NEEDIT~
ERRARRAY(	NEEDIT+17, NEEDIT+29
ERRARRAY("XMB"	CHKMAILG+8*
HALFLEN	MKBANNRL+1~, MKBANNRL+5*, MKBANNRL+6
HEREYAGO	NEEDIT+3~
HEREYAGO("DILIST"	NEEDIT+8, NEEDIT+9
INSTCNT	ENDINSTL+1~, ENDINSTL+3*, ENDINSTL+5, ENDINSTL+6
IOM	ENVHEADR+2, ENVHEADR+11, PASSMESG+9, PASSMESG+10, PASSMESG+11, PASSMESG+12, PASSMESG+13, PASSMESG+14, PASSMESG+15
J	MKBANNRL+1~, MKBANNRL+9, PASSMESG+4
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+3, PASSMESG+4, PASSMESG+5, PASSMESG+6*, PASSMESG+12
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
MSG	BOKAY~, BOKAY+1, SORRY~, SORRY+25, SORRY+46
MSG2	SORRY~, SORRY+26
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+10, ENVHEADR+12
STR	PRE+1~, POST+1~, DEBUG+1~, ENVHEADR+1~, ENVHEADR+4, ENVHEADR+5, ENVHEADR+6, ENVHEADR+7, ENVHEADR+11, SORRY+16~ , SORRY+41, SORRYEND+1~, SORRYEND+13
STR(	ADDLINE+2, BANNERL+2
STR(1	POST+16*
STR(2	POST+17*
STR(3	POST+18*
STR(4	POST+19*
STR(5	POST+20*
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~, POST+7*, PRESSKEY~, PRESSKEY+2, BOKAY~, BOKAY+1
TABSTR	PRESSKEY+1~, PRESSKEY+2*, PRESSKEY+7
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, BACKUPS+23, BACKUPS+27
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+4
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+15, SORRY+9, BACKUPS+13*
>> XPDDIQ(	GETREADY+5*
>> XPDENV	DEBUG+17*
>> XPDNM	PRE+6, PRE+10, PRE+11, PRE+12, DEBUG+16*
>> XPDNOQUE	GETREADY+1*
XQA	SNDALERT+10!
XQA(	SNDALERT+7*
XQA("G.LMI"	SNDALERT+4*
XQAMSG	SNDALERT+3*, SNDALERT+10!
Y	DEBUG+13, DEBUG+31, NINLMI+10*, SENDMAIL+24!, BACKUPS+12

Marked Items

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE30

Information

Source Information

Call Graph

Call Graph Total: 17

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items