Routine: BLRPRE21

Information

BLRPRE21 ; IHS/OIT/MKK - LAB PATCH 21 ENVIRONMENT/POST INSTALL ROUTINE ; [11/03/2005 9:30 PM]

Source Information

Source file <BLRPRE21.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Kernel	6	HOME^%ZIS $$HTE^XLFDT ($$CJ,$$UP)^XLFSTR $$ADD^XPDMENU (BMES,MES)^XPDUTL SETUP^XQALERT
VA Fileman	4	^%DT ^DIC DT^DICRW ^DIR
IHS VA Utilities	2	$$LOC^XBFUNC EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
KERNEL	; ; CHECK FOR KERNEL 8.0
POSTCHK	; cmi/anch/maw - BLR Reference Lab Post Init ;
ADDMENU	; ; ADD REFERENCE LAB MEN TO BLRMENU
GISPATCH(CHK)	;
FILEMAN	; ; CHECK FOR FILEMAN 22.0
GIS13	; ; CHECK FOR GIS 3.01 Patch 13
ENVOK	; ; ENVIRONMENT OK
LMIMAIL	; ; CHECK FOR LMI MAIL GROUP
CHECKLMI()	; ; CHECK FOR LMI MAIL GROUP
PIMS	; ; CHECK FOR PIMS 5.3
PRECHK	; EP
OKAY(MSG,TAB)	; ; MESSAGE WITH "OK" AT THE END
LABVER	;
SORRY(MSG,MODE)	; ; MESSAGE TO DISPLAY WHEN SOMETHING GOES WRONG
BACKUPS	; ; CHECK TO CONFIRM BACKUPS HAVE BEEN DONE
GIS	; ; CHECK FOR GIS 3.01
TABMENU(MSG,TAB,TAIL)	; ; GENERIC MESSAGE OUTPUT
LABPATCH(CHK)	;
GIS11	; ; CHECK FOR GIS 3.01 Patch 11
POST
GIS14	; ; CHECK FOR GIS 3.01 Patch 14
POSTDONE	; ; POST INSTALL COMPLETE
CHNGAUTO	; ; IHS Modifications to the AUTO INSTRUMENT file ; ; Delete Programmer only access to FILE BUILD ENTRY field
LEXICON	; ; CHECK FOR LEXICON 2.0
LETSGO	; ; USER IDENTIFIED -- LET'S GO
OERR	; ; CHECK FOR OERR
USERID	; ; CHECK FOR USER ID

External References

Name	Field # of Occurrence
^%DT	BACKUPS+12
HOME^%ZIS	USERID+6
^DIC	CHECKLMI+4
DT^DICRW	USERID+6
^DIR	BACKUPS+8
$$LOC^XBFUNC	SORRY+15
EN^XBVK	POSTDONE+3
$$HTE^XLFDT	BACKUPS+23, POST+25
$$CJ^XLFSTR	SORRY+15, SORRY+17, SORRY+19, SORRY+21, SORRY+22, SORRY+24
$$UP^XLFSTR	ADDMENU+12, ADDMENU+23, ADDMENU+34
$$ADD^XPDMENU	ADDMENU+6, ADDMENU+17, ADDMENU+28
BMES^XPDUTL	PRECHK+1, LETSGO+4, FILEMAN+3, KERNEL+3, LMIMAIL+2, OERR+2, PIMS+3, LEXICON+3, GIS+3, LABVER+2 , ENVOK+2, BACKUPS+2, BACKUPS+15, SORRY+28, POST+2, POST+17, POST+18, ADDMENU+4, ADDMENU+16, ADDMENU+27
MES^XPDUTL	LETSGO+2, BACKUPS+16, OKAY+5, POST+3, ADDMENU+38, TABMENU+6
SETUP^XQALERT	SORRY+34, POSTDONE+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: BACKUPS+4
Routine Call	%ZIS Line Location: USERID+6
Routine Call	DIC Line Location: CHECKLMI+4
Routine Call	DIR Line Location: BACKUPS+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^XMB(3.8 - [#3.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	POSTDONE+2
^BLRINSTL("LAB PATCH"	BACKUPS+21, BACKUPS+22, BACKUPS+23, POST+23, POST+24, POST+25
^DD("DD"	BACKUPS+12
^DD("VERSION"	FILEMAN+2
^DD(62.4	CHNGAUTO+4, CHNGAUTO+9, CHNGAUTO+14, CHNGAUTO+19
^DD(62.41	CHNGAUTO+24, CHNGAUTO+29
^DIC(9.4 - [#9.4]	KERNEL+2, OERR+3, PIMS+2, LEXICON+2, GIS+2, GISPATCH+2, GISPATCH+4, GISPATCH+6, GISPATCH+7, LABPATCH+2 , LABPATCH+4, LABPATCH+6, LABPATCH+7
^VA(200 - [#200]	USERID+7, BACKUPS+13, BACKUPS+22, POST+24

Label References

Name	Line Occurrences
$$CHECKLMI	LMIMAIL+3
$$GISPATCH	GIS11+2, GIS13+2, GIS14+2
$$LABPATCH	LABVER+3
ADDMENU	POST+5
CHNGAUTO	POST+9
OKAY	FILEMAN+5, KERNEL+5, LMIMAIL+4, OERR+5, PIMS+5, LEXICON+5, GIS+5, GIS11+3, GIS13+3, GIS14+3 , LABVER+4, ADDMENU+9, ADDMENU+20, ADDMENU+31
POSTDONE	POST+16
SORRY	USERID+2, USERID+4, USERID+8, FILEMAN+4, KERNEL+4, LMIMAIL+3, OERR+4, PIMS+4, LEXICON+4, GIS+4 , GIS11+2, GIS13+2, GIS14+2, LABVER+3, BACKUPS+10
TABMENU	ADDMENU+13, ADDMENU+14, ADDMENU+24, ADDMENU+25, ADDMENU+35, ADDMENU+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	BACKUPS+12*
BCKUPCNT	BACKUPS+19~, BACKUPS+21*, BACKUPS+22, BACKUPS+23
CHK	GISPATCH~, GISPATCH+7, LABPATCH~, LABPATCH+7
CP	BACKUPS+19~, BACKUPS+20, BACKUPS+21, BACKUPS+22, BACKUPS+23, POST+21~, POST+22, POST+23, POST+24, POST+25
>> DIC	CHECKLMI+2*
DIFQ	SORRY+9!
>> DIR("A"	BACKUPS+7*
>> DIR("B"	BACKUPS+6*
>> DIR(0	BACKUPS+5*
>> DIRUT	BACKUPS+9
DUZ	USERID+2, USERID+7, BACKUPS+13, BACKUPS+22, POST+24
DUZ(0	USERID+4
GISPTR	GISPATCH+1~, GISPATCH+2*, GISPATCH+4, GISPATCH+6, GISPATCH+7
HEREYAGO	ADDMENU+2~, ADDMENU+6, ADDMENU+8, ADDMENU+11, ADDMENU+12, ADDMENU+14, ADDMENU+17, ADDMENU+19, ADDMENU+22, ADDMENU+23 , ADDMENU+25, ADDMENU+28, ADDMENU+30, ADDMENU+33, ADDMENU+34, ADDMENU+36
>> HERYAGO	ADDMENU+14, ADDMENU+25, ADDMENU+36
INSTCNT	POST+21~, POST+23*, POST+24, POST+25
LABPTR	LABPATCH+1~, LABPATCH+2*, LABPATCH+4, LABPATCH+6, LABPATCH+7
>> LINE	PRECHK+4*
MESSAGE	SORRY+2~, SORRY+4, SORRY+7, SORRY+17, OKAY+2~, OKAY+4, OKAY+5, TABMENU+2~, TABMENU+4, TABMENU+5* , TABMENU+6
MODE	SORRY~, SORRY+3, SORRY+7, SORRY+31, SORRY+32
MSG	SORRY~, SORRY+19, SORRY+31, SORRY+32, OKAY~, OKAY+4, TABMENU~, TABMENU+4
OKGIS	GISPATCH+1~
OKLAB	LABPATCH+1~
OKPATCH	GISPATCH+1~, GISPATCH+3, GISPATCH+4, GISPATCH+6, GISPATCH+7, GISPATCH+8, LABPATCH+1~, LABPATCH+3, LABPATCH+4, LABPATCH+6 , LABPATCH+7, LABPATCH+8
PAT	GISPATCH+1~, GISPATCH+3, GISPATCH+4, GISPATCH+6, GISPATCH+7, LABPATCH+1~, LABPATCH+3, LABPATCH+4, LABPATCH+6, LABPATCH+7
PATCH	GISPATCH+1~, GISPATCH+5, GISPATCH+6, GISPATCH+7, LABPATCH+1~, LABPATCH+5, LABPATCH+6, LABPATCH+7
STR	PRECHK+2~, BACKUPS+13, BACKUPS+14, BACKUPS+15, SORRY+11~, SORRY+28, CHNGAUTO+5, CHNGAUTO+6, CHNGAUTO+10, CHNGAUTO+11 , CHNGAUTO+15, CHNGAUTO+16, CHNGAUTO+20, CHNGAUTO+21, CHNGAUTO+25, CHNGAUTO+26, CHNGAUTO+30, CHNGAUTO+31
STR(1	SORRY+12*
STR(10	SORRY+21*
STR(11	SORRY+22*
STR(12	SORRY+23*
STR(13	SORRY+24*
STR(14	SORRY+25*
STR(15	SORRY+26*
STR(16	SORRY+27*
STR(2	SORRY+13*, SORRY+26
STR(3	SORRY+14*
STR(4	SORRY+15*
STR(5	SORRY+16*
STR(6	SORRY+17*
STR(7	SORRY+18*
STR(8	SORRY+19*
STR(9	SORRY+20*
TAB	OKAY~, OKAY+3, OKAY+4, TABMENU~, TABMENU+3, TABMENU+4
TAIL	TABMENU~, TABMENU+5
U	USERID+7, BACKUPS+13, BACKUPS+22, POST+24
>> X	USERID+7, USERID+8, LETSGO+2, FILEMAN+2, FILEMAN+4, FILEMAN+5, KERNEL+2, KERNEL+4, KERNEL+5, PIMS+2 , PIMS+4, PIMS+5, LEXICON+2, LEXICON+4, LEXICON+5, GIS+2, GIS+4, GIS+5, BACKUPS+12, CHECKLMI+3
>> XPDABORT	PRECHK+12, SORRY+5
>> XPDDIQ("XPO1"	PRECHK+11*
>> XPDDIQ("XPZ1"	PRECHK+9*
>> XPDDIQ("XPZ2"	PRECHK+9*
>> XPDNOQUE	PRECHK+5*
>> XQA("G.LMI"	SORRY+33, POSTDONE+12
>> XQAMSG	SORRY+31, SORRY+32, POSTDONE+11*
>> Y	BACKUPS+9, BACKUPS+14, CHECKLMI+5

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE21

Call Graph Total: 12