Routine: BLRPRE31

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

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

Package

Total

Caller Graph

IHS Changes To Lab

BLR35PST BLR7OB1 BLRPRE32 BLRPRE33 BLRPRE34 BLRPRE35 BLRPRE36 BLRPRE37
BLRPRE38

Automated Lab Instruments

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

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE31

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items