Routine: BLRPRE24

Package	Total	Call Graph
Kernel	7	HOME^%ZIS $$VERSION^%ZOSV $$HTE^XLFDT ($$CJ,$$UP)^XLFSTR ($$ADD,$$DELETE)^XPDMENU ($$PATCH,$$VERSION,BMES,MES)^XPDUTL SETUP^XQALERT
VA Fileman	4	^%DT (,FIND)^DIC DTNOLF^DICRW ^DIR
IHS VA Utilities	2	^XBFMK $$LOC^XBFUNC
Lab Service	1	DD^LRX
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
KERNEL	; CHECK FOR KERNEL 8.0 & PATCH 1013
MAILMAN	; CHECK FOR MAILMAN 7.1
SENDMAIL(MAILMSG)	; EP ; Send MailMan E-mail to LMI group -- message is in the STR array
SORRYFIN	; EP ; "Fin" of Final Fatal Message
FILEMAN	; CHECK FOR FILEMAN 22.0
ENVOK	; ENVIRONMENT OK
LMIMAIL	; CHECK FOR LMI MAIL GROUP
NEEDIT(MODULE,VERSION,PATCH,WOTERR,CP)
ADDLINE(ASTR,LC)	; EP ; Add a line to the STR array
SORRYEND(WOTERR,CP)	; EP ; Output a listing of ALL the errors detected during ; the environment check. The STR array will be ; displayed by the BMES^XPDUTL call. ;
TABMESG(MSG,TAB,TAIL)	; EP ; Generic message output WITH blank line BEFORE messsage & TAB
PRECHK	; EP
OKAY(MSG,TAB)
LABVER	; CHECK FOR LAB 5.2 & PREVIOUS PATCH
BACKUPS(CP)	; EP - CHECK TO CONFIRM BACKUPS HAVE BEEN DONE ; CP = Current Patch
ALLDONE(CURPATCH)	; EP ; Complete Message
ADDMESG	; EP ; Add to the STR array
TABMENU(MSG,TAB,TAIL)	; EP ; Generic message output WITHOUT blank line BEFORE messsage & TAB
SORRYHED	; EP ; "Header" of Final Fatal Message
DEBUG	; Debugging Mode for environment checker
POST	; EP -- POST INSTALL
ENDINSTL(CURPATCH)
CHECKLMI(WOTERR,CP)	; EP
SORRY(MSG,MODE,MSG2,CP)
LETSGO	; USER IDENTIFIED -- LET'S GO
ADDTMENU(ADDER,ADDEE,ITM,IMSG,CP)
USERID	; CHECK FOR USER ID
DELFMENU(DMENU,DOPTION,IMSG,CP)
MODBLRM(CP)	; ; Remove EDT from BLRMENU
BACKUP	; EP
SNDALERT(ALERTMSG)	; EP ; Send alert to LMI group

External References

Name	Field # of Occurrence
^%DT	SENDMAIL+6
HOME^%ZIS	USERID+5
$$VERSION^%ZOSV	PRECHK+17
^DIC	CHECKLMI+6
FIND^DIC	NEEDIT+12, DELFMENU+13, DELFMENU+23
DTNOLF^DICRW	USERID+6
^DIR	BACKUPS+10
DD^LRX	SENDMAIL+7
^XBFMK	BACKUPS+6
$$LOC^XBFUNC	SORRY+20, ALLDONE+10
$$HTE^XLFDT	BACKUPS+18, BACKUPS+28, ENDINSTL+10
$$CJ^XLFSTR	SORRY+20, SORRY+22, SORRY+24, SORRY+25, SORRY+28, SORRY+31, SORRY+32, SORRY+34, SORRYHED+6, SORRYHED+7 , SORRYHED+9, SORRYFIN+2, SORRYFIN+4, ADDMESG+3, ADDMESG+8, ALLDONE+10, ALLDONE+12
$$UP^XLFSTR	PRECHK+17, BACKUPS+18
^XMD	SENDMAIL+14
$$ADD^XPDMENU	ADDTMENU+10
$$DELETE^XPDMENU	DELFMENU+38
$$PATCH^XPDUTL	NEEDIT+32
$$VERSION^XPDUTL	NEEDIT+16
BMES^XPDUTL	PRECHK+1, LETSGO+1, LETSGO+3, ENVOK+1, NEEDIT+17, NEEDIT+31, SORRY+40, SORRYEND+18, CHECKLMI+3, BACKUPS+3 , BACKUPS+21, TABMESG+6, ADDTMENU+8, DELFMENU+10, ALLDONE+17
MES^XPDUTL	OKAY+5, BACKUPS+22, TABMENU+6, ADDTMENU+14, DELFMENU+19, DELFMENU+30, DELFMENU+36, DELFMENU+42
SETUP^XQALERT	SNDALERT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: BACKUPS+5
Routine Call	%ZIS Line Location: USERID+5
Routine Call	DIC Line Location: NEEDIT+12 DELFMENU+13 DELFMENU+23
Routine Call	DIC Line Location: CHECKLMI+6
Routine Call	DIR Line Location: BACKUPS+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	FIND^DIC
19.01	FIND^DIC
^XMB(3.8 - [#3.8]	Classic Fileman Calls
^DIC(9.4 - [#9.4]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRINSTL("LAB PATCH"	BACKUPS+26, BACKUPS+27, BACKUPS+28, ENDINSTL+7, ENDINSTL+9, ENDINSTL+10
^VA(200 - [#200]	USERID+8, SENDMAIL+12, BACKUPS+19, BACKUPS+27, ENDINSTL+9

Label References

Name	Line Occurrences
ADDLINE	SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25, SORRY+26, SORRY+28 , SORRY+31, SORRY+32, SORRY+33, SORRY+34, SORRY+35, SORRY+37, SORRY+38, SORRYHED+3, SORRYHED+4, SORRYHED+5 , SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9, SORRYHED+10, SORRYFIN+2, SORRYFIN+3, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6 , SORRYFIN+7, ADDMESG+3, ADDMESG+8, ADDMESG+9, ALLDONE+8, ALLDONE+9, ALLDONE+10, ALLDONE+11, ALLDONE+12, ALLDONE+13 , ALLDONE+14, ALLDONE+15
ADDMESG	SORRYEND+14
ADDTMENU	MODBLRM+5, MODBLRM+6, MODBLRM+10
ALLDONE	POST+6
BACKUPS	BACKUP+1
CHECKLMI	LMIMAIL+1
DELFMENU	MODBLRM+2
ENDINSTL	POST+9
MODBLRM	POST+4
NEEDIT	FILEMAN+1, KERNEL+1, LABVER+1, MAILMAN+1
OKAY	USERID+11, NEEDIT+27, NEEDIT+42, CHECKLMI+8, ADDTMENU+13, DELFMENU+18, DELFMENU+29, DELFMENU+35, DELFMENU+41
PRECHK	DEBUG+3
SENDMAIL	SORRY+47, SORRY+51, ALLDONE+19
SNDALERT	SORRY+46, SORRY+50, ALLDONE+18
SORRY	PRECHK+17, USERID+1, USERID+3, USERID+9, NEEDIT+21, NEEDIT+25, NEEDIT+36, NEEDIT+40, CHECKLMI+10, BACKUPS+14 , ADDTMENU+18, ADDTMENU+22, DELFMENU+46, DELFMENU+50
SORRYEND	ENVOK+3
SORRYFIN	SORRYEND+16
SORRYHED	SORRYEND+7
TABMESG	DELFMENU+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	SENDMAIL+4*
ADDEE	ADDTMENU~, ADDTMENU+6, ADDTMENU+10
ADDER	ADDTMENU~, ADDTMENU+8, ADDTMENU+10, ADDTMENU+13, ADDTMENU+17, ADDTMENU+21
ADDOPT	ADDTMENU+3~, ADDTMENU+6*, ADDTMENU+8, ADDTMENU+13, ADDTMENU+17, ADDTMENU+20
ALERTMSG	SNDALERT~, SNDALERT+2
ASTR	ADDLINE~, ADDLINE+2*, ADDLINE+3
BCKUPCNT	BACKUPS+25~, BACKUPS+26*, BACKUPS+27, BACKUPS+28
CHKIT	ADDTMENU+3~, ADDTMENU+10, ADDTMENU+12, ADDTMENU+16, DELFMENU+4~, DELFMENU+38, DELFMENU+40, DELFMENU+44
CP	PRECHK+2~, PRECHK+14, PRECHK+17, USERID+1, USERID+3, USERID+9, LETSGO+3, FILEMAN+1, KERNEL+1, LABVER+1 , LMIMAIL+1, MAILMAN+1, ENVOK+3, POST+1~, POST+2, POST+4, POST+6, POST+9, MODBLRM~, MODBLRM+2 , MODBLRM+5, MODBLRM+6, MODBLRM+10, NEEDIT~, NEEDIT+21, NEEDIT+25, NEEDIT+36, NEEDIT+40, SORRY~, SORRY+46 , SORRY+47, SORRY+50, SORRY+51, SORRYEND~, CHECKLMI~, CHECKLMI+10, BACKUPS~, BACKUPS+26, BACKUPS+27, BACKUPS+28 , ADDTMENU~, ADDTMENU+18, ADDTMENU+22, DELFMENU~, DELFMENU+46, DELFMENU+50
CURPATCH	ALLDONE~, ALLDONE+4, ENDINSTL~, ENDINSTL+7, ENDINSTL+9, ENDINSTL+10
DEBUG	DEBUG+1~, DEBUG+2*, SORRY+43
DELOPT	DELFMENU+4~, DELFMENU+8*, DELFMENU+10, DELFMENU+27, DELFMENU+32, DELFMENU+41, DELFMENU+45, DELFMENU+48
>> DIC	CHECKLMI+4*
DIFQ	SORRY+14!
>> DIR("A"	BACKUPS+9*
>> DIR("B"	BACKUPS+8*
>> DIR(0	BACKUPS+7*
>> DIRUT	BACKUPS+13
DMENU	DELFMENU~, DELFMENU+10, DELFMENU+18, DELFMENU+27, DELFMENU+33, DELFMENU+38, DELFMENU+41, DELFMENU+45, DELFMENU+49
DMENUIEN	DELFMENU+5~, DELFMENU+14*, DELFMENU+17, DELFMENU+23
DOPTION	DELFMENU~, DELFMENU+8, DELFMENU+23, DELFMENU+38
DTT	BACKUPS+17~, BACKUPS+18*, BACKUPS+20
DUZ	USERID+1, USERID+8, SENDMAIL+12, BACKUPS+19, BACKUPS+27, ENDINSTL+9
DUZ(0	USERID+3
HEREYAGO	NEEDIT+8~, DELFMENU+5~, DELFMENU+22!
HEREYAGO("DILIST"	NEEDIT+13, NEEDIT+14, DELFMENU+14, DELFMENU+26
IMSG	ADDTMENU~, ADDTMENU+6, DELFMENU~, DELFMENU+8
INSTCNT	ENDINSTL+5~, ENDINSTL+7*, ENDINSTL+9, ENDINSTL+10
ITM	ADDTMENU~, ADDTMENU+10
LASTPTCH	PRECHK+7~, PRECHK+20*, LABVER+1
LC	ADDLINE~, ADDLINE+3, ADDLINE+4*
LINE2	PRECHK+3~, PRECHK+11*, PRECHK+14, PRECHK+20, PRECHK+23, PRECHK+26
LINECNT	SORRY+16~, SORRY+17, SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25 , SORRY+26, SORRY+28, SORRY+31, SORRY+32, SORRY+33, SORRY+34, SORRY+35, SORRY+37, SORRY+38, SORRYEND+5~ , SORRYHED+2, SORRYHED+3, SORRYHED+4, SORRYHED+5, SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9, SORRYHED+10, SORRYFIN+2 , SORRYFIN+3, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6, SORRYFIN+7, ADDMESG+3, ADDMESG+8, ADDMESG+9, ALLDONE+2~, ALLDONE+7* , ALLDONE+8, ALLDONE+9, ALLDONE+10, ALLDONE+11, ALLDONE+12, ALLDONE+13, ALLDONE+14, ALLDONE+15
>> LRBLNOW	SENDMAIL+8*
LRSTATUS	PRECHK+8~
MAILMSG	SENDMAIL~, SENDMAIL+10
MESSAGE	SORRY+7~, SORRY+9, SORRY+12, SORRY+22, SORRY+28, OKAY+2~, OKAY+4, OKAY+5, TABMESG+2~, TABMESG+4 , TABMESG+5, TABMESG+6, TABMENU+2~, TABMENU+4, TABMENU+5*, TABMENU+6
MODE	SORRY~, SORRY+8, SORRY+12, SORRY+28, SORRY+30, SORRY+45, SORRY+49, SORRY+50
MODULE	NEEDIT~, NEEDIT+12, NEEDIT+16, NEEDIT+19, NEEDIT+32, NEEDIT+34, SORRYEND+5~, SORRYEND+10, SORRYEND+11, SORRYEND+12 , SORRYEND+13, ADDMESG+2, ADDMESG+3
MSG	SORRY~, SORRY+24, SORRY+46, SORRY+50, OKAY~, OKAY+4, TABMESG~, TABMESG+4, TABMENU~, TABMENU+4 , ALLDONE+2~, ALLDONE+4*, ALLDONE+12, ALLDONE+18, ALLDONE+19
MSG2	SORRY~, SORRY+25
NAME	NEEDIT+6~, NEEDIT+14, NEEDIT+17, NEEDIT+19, NEEDIT+20, NEEDIT+23, NEEDIT+24, NEEDIT+27, NEEDIT+31, NEEDIT+34 , NEEDIT+35, NEEDIT+38, NEEDIT+42, SORRYEND+5~, SORRYEND+10, SORRYEND+12*, SORRYEND+13, ADDMESG+2, ADDMESG+3
OKAY	CHECKLMI+2~, CHECKLMI+7*, CHECKLMI+8, CHECKLMI+9
PATCH	NEEDIT~, NEEDIT+29, NEEDIT+31, NEEDIT+32, NEEDIT+34, NEEDIT+35, NEEDIT+39, NEEDIT+42, SORRYEND+5~, ADDMESG+2* , ADDMESG+6
PTR	NEEDIT+7~, NEEDIT+13*
RPMS	PRECHK+4~, PRECHK+23*, LETSGO+3
RPMSVER	PRECHK+5~, PRECHK+26*, LETSGO+3
STR	PRECHK+6~, SORRY+16~, SORRY+40, SORRYEND+5~, SORRYEND+18, BACKUPS+19, BACKUPS+20, BACKUPS+21, ALLDONE+2~, ALLDONE+6! , ALLDONE+17
STR(	ADDLINE+3*
STR1	NEEDIT+9~, NEEDIT+20, NEEDIT+21, NEEDIT+22, NEEDIT+23, NEEDIT+25, NEEDIT+35, NEEDIT+36, NEEDIT+37, NEEDIT+38 , NEEDIT+40, ADDTMENU+3~, ADDTMENU+17, ADDTMENU+18, ADDTMENU+19, ADDTMENU+20, ADDTMENU+22, DELFMENU+4~, DELFMENU+27, DELFMENU+28 , DELFMENU+29, DELFMENU+32, DELFMENU+34, DELFMENU+45, DELFMENU+46, DELFMENU+47, DELFMENU+48, DELFMENU+50
STR2	NEEDIT+9~, NEEDIT+24, NEEDIT+25, NEEDIT+39, NEEDIT+40, ADDTMENU+3~, ADDTMENU+21, ADDTMENU+22, DELFMENU+4~, DELFMENU+33 , DELFMENU+35, DELFMENU+49*, DELFMENU+50
STR3	ADDTMENU+3~
TAB	OKAY~, OKAY+3, OKAY+4, TABMESG~, TABMESG+3, TABMESG+4, TABMENU~, TABMENU+3*, TABMENU+4
TAIL	TABMESG~, TABMESG+5, TABMENU~, TABMENU+5
TMP	SORRYEND+5~, ADDMESG+5, ADDMESG+6, ADDMESG+8
U	USERID+8, SENDMAIL+12, BACKUPS+19, BACKUPS+27, ENDINSTL+9
VERSION	NEEDIT~, NEEDIT+17, NEEDIT+18, NEEDIT+19, NEEDIT+20, NEEDIT+23, NEEDIT+31, NEEDIT+32, NEEDIT+34, NEEDIT+35 , NEEDIT+38, NEEDIT+42, SORRYEND+5~, SORRYEND+10, SORRYEND+13, ADDMESG+2, ADDMESG+5
WOTERR	PRECHK+9~, FILEMAN+1, KERNEL+1, LABVER+1, LMIMAIL+1, MAILMAN+1, ENVOK+3, NEEDIT~, SORRYEND~, CHECKLMI~
WOTERR(	NEEDIT+19, NEEDIT+34, SORRYEND+11, SORRYEND+12, SORRYEND+13, ADDMESG+2
WOTERR("XMB(3.8"	CHECKLMI+11*
X	PRECHK+34, USERID+8, USERID+9, LETSGO+1, NEEDIT+16, NEEDIT+18, NEEDIT+20, NEEDIT+24, NEEDIT+27, NEEDIT+32 , NEEDIT+33, SENDMAIL+5, SENDMAIL+16!, CHECKLMI+5
XMDUZ	SENDMAIL+12*, SENDMAIL+16!
XMSUB	SENDMAIL+10*, SENDMAIL+16!
XMTEXT	SENDMAIL+11*, SENDMAIL+16!
XMY	SENDMAIL+2!
XMY("G.LMI"	SENDMAIL+3*
>> XPDABORT	PRECHK+36, ENVOK+1, ENVOK+3, SORRY+10
>> XPDDIQ(	PRECHK+34*
>> XPDDIQ("XPZ1"	PRECHK+32, PRECHK+33
>> XPDDIQ("XPZ2"	PRECHK+32, PRECHK+33
>> XPDENV	PRECHK+32, PRECHK+33
>> XPDNOQUE	PRECHK+28*
XQA	SNDALERT+5!
XQA("G.LMI"	SNDALERT+3*
XQAMSG	SNDALERT+2*, SNDALERT+5!
Y	SENDMAIL+8, SENDMAIL+16!, CHECKLMI+7, BACKUPS+13

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE24

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items