Routine: AVA32P22

Information

AVA32P22 ;IHS/OIT/FBD - AVA 93.2 PATCH 22 ENVIRONMENT CHECK

Source Information

Source file <AVA32P22.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
IHS VA Support Files	6	^AVAP10 ^AVAP15 ^AVAP2 CLASS^AVAP4 ^AVAPINIT INSTALL^AVASLXR
Kernel	4	HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES,MES)^XPDUTL
IHS VA Utilities	2	$$DIR^XBDIR ^XBKVAR
VA Fileman	2	IX^DIC UPDATE^DIE
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
SINGLE(K)	;----- GET HOLDERS OF A SINGLE KEY K.
DUPE	;----- CHECK FOR DUPLICATE AVA ENTRIES IN PACKAGE FILE
SORRY	;----- ISSUE 'SORRY... PRESS RETURN' MESSAGES
PRE	;EP -- PREINSTALL FROM KIDS.
RV	;----- SET REVERSE VIDEO ON/OFF VARIABLES
BLDLST(ARRAY)
P12	;----- CHANGE SUB-FILE DD NUMBER IN THE 9999999.18 MULTIPLE OF FILE 200 ; FROM PATCH 12
RACES	;RACE (#.01)^ABBREVIATION (#2)
P15	;----- UPDATE IHS XREFS IN FILES 200, 4 ; FROM PATCH 15
P17	;----- ADD/UPDATE RACE FILE ENTRIES ; FROM PATCH 17
VCHK(AVAPRE,AVAVER,AVAQUIT)	;
VER	;----- CHECK FOR VERSIONS
XPZ	;----- PREVENT 'DISABLE OPTIONS' AND 'MOVE ROUTINES' PROMPTS
DUZ	;----- CHECK FOR VALID DUZ VARIABLES
ENV	;----- ENVIRONMENT CHECK
POST	;EP -- POST INSTALL FROM KIDS.
HELLO	;----- HELLO MESSAGE AND ENVIRONMENT CHECK
OK	;----- OK TO INSTALL?
FAIL(X)	;----- SET XPDQUIT
CHKPAT(X)
MAIL	;----- SEND INSTALL MAIL MESSAGE
PREV	;EP -- INSTALL PREVIOUS PATCHES 1-10

External References

Name	Field # of Occurrence
HOME^%ZIS	ENV+5, RV+2
ENDR^%ZISS	RV+5
^AVAP10	PREV+9
^AVAP15	P15+5
^AVAP2	PREV+3
CLASS^AVAP4	PREV+5
^AVAPINIT	PREV+6
INSTALL^AVASLXR	PREV+8
IX^DIC	DUPE+4
UPDATE^DIE	P17+20
$$DIR^XBDIR	OK+7, SORRY+5
^XBKVAR	ENV+4, PRE+2, POST+2, P17+3
$$CJ^XLFSTR	HELLO+4, HELLO+5, CHKPAT+11, DUPE+6, DUPE+7, DUPE+8, DUPE+9, OK+3, OK+6, SORRY+4 , VCHK+9
^XMD	MAIL+21
$$VERSION^XPDUTL	VCHK+6
BMES^XPDUTL	PRE+4, POST+4, POST+10, POST+13, P12+4, P15+4, P17+8, P17+30
MES^XPDUTL	PRE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"INSTALL ABORTED!" Line Location: ENV+18
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: DUZ+2
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: DUZ+3
Function Call: WRITE	Prompt: !,"THE DD UPDATES REQUIRE AN '@' IN YOUR DUZ(0)" Line Location: DUZ+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: HELLO+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".",IOM) Line Location: HELLO+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need patch "_X_"....."_AVAMSG,IOM) Line Location: CHKPAT+11
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You have more than one entry in the ",IOM) Line Location: DUPE+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PACKAGE file with an 'AVA' prefix. ",IOM) Line Location: DUPE+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted"_IORVOFF,IOM) Line Location: DUPE+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before proceeding. ",IOM),!!,7,7 Line Location: DUPE+9
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(IORVON_"Please FIX it!!"_IORVOFF,IOM) Line Location: OK+3
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: OK+6
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry.... ",IOM) Line Location: SORRY+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AVAPRE_" v "_AVAVER_"....."_AVAPRE_" v "_AVAV_" Present"_AVAMSG,IOM) Line Location: VCHK+9
Routine Call	%ZIS Line Location: ENV+5 RV+2
Routine Call	DIC Line Location: DUPE+4
Routine Call	DIE Line Location: P17+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(10	P17+6!
^DD(200	P12+6
^DIC(10 - [#10]	P17+16
^DIC(9.4 - [#9.4]	DUPE+5
^TMP("AVAP17MS"	MAIL+4!, MAIL+6, MAIL+11, MAIL+23!
^VA(200 - [#200]	HELLO+3, P12+8, P12+9
^XPD(9.7 - [#9.7]	CHKPAT+8, CHKPAT+9
^XTMP("XPDI"	MAIL+10
^XUSEC(	SINGLE+4, SINGLE+7

Label References

Name	Line Occurrences
$$CHKPAT	ENV+14, P15+3
$$VCHK	VER+2, VER+3, VER+4
BLDLST	P17+10
DUPE	ENV+15
DUZ	ENV+7
FAIL	DUZ+2, DUZ+3, DUZ+4, DUPE+10, OK+7, VCHK+11
HELLO	ENV+12
MAIL	POST+11
OK	ENV+16
P12	POST+6
P15	POST+7
P17	POST+8
RV	ENV+10
SINGLE	MAIL+19
SORRY	ENV+8, OK+3
VER	ENV+13
XPZ	ENV+11

Naked Globals

Name	Field # of Occurrence
^(	MAIL+11
^(0	P12+9*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAIL+9, MAIL+10, MAIL+11, MAIL+19*
ARRAY	BLDLST~
ARRAY("FDA"	BLDLST+5, BLDLST+6
AVAMSG	CHKPAT+10, CHKPAT+11, VCHK+3~, VCHK+7, VCHK+9
AVAPRE	VCHK~, VCHK+6, VCHK+9
AVAQUIT	VCHK~, VCHK+11
AVAV	VCHK+3~, VCHK+6*, VCHK+7, VCHK+9, VCHK+11
AVAVER	VCHK~, VCHK+7, VCHK+9, VCHK+11
D	DUPE+2~, DUPE+3*
DA	DUPE+2~
DIC	DUPE+2~, DUPE+3*
DIC(0	DUPE+3*
DIFQ	FAIL+2!
DIFROM	MAIL+2~
DUZ	DUZ+2, HELLO+3, MAIL+14, MAIL+17
DUZ(0	DUZ+3, DUZ+4
FDAROOT	P17+14~
FDAROOT(10	P17+19*
I	P12+3~, P12+7, P12+8, P12+9, BLDLST+3~, BLDLST+4*, BLDLST+5, BLDLST+6
>> IEN	P17+12, P17+13, P17+15, P17+19, P17+21, P17+25, P17+27, P17+28
IENROOT	P17+14~
IENS	P17+14~, P17+16, P17+17, P17+18*, P17+19
IOM	HELLO+4, HELLO+5, CHKPAT+11, DUPE+6, DUPE+7, DUPE+8, DUPE+9, OK+3, OK+6, SORRY+4 , VCHK+9
IORVOFF	ENV+2~, DUPE+8, OK+3
IORVON	ENV+2~, DUPE+8, OK+3
K	SINGLE~, SINGLE+4, SINGLE+7
MSG	P17+14~, P17+30
MSG(1	P17+21, P17+23
MSG(2	P17+24*
MSG(3	P17+25*
MSG(4	P17+26*
MSG(5	P17+27*
MSG(6	P17+28*
MSG(7	P17+29*
MSGROOT	P17+14~, P17+22
OK	CHKPAT+5~, CHKPAT+6, CHKPAT+9, CHKPAT+10, CHKPAT+12
P	P12+3~, P12+6*, P12+9
RACE	P17+4~, P17+10, P17+15*, P17+16
RACE("FDA"	P17+13, P17+15, P17+19, P17+21, P17+25, P17+27, P17+28
TXT	BLDLST+3~, BLDLST+4*, BLDLST+5, BLDLST+6
U	HELLO+3, CHKPAT+9, P12+6, P12+9, BLDLST+5, BLDLST+6
X	RV+3~, RV+4, HELLO+2~, HELLO+3, HELLO+4, CHKPAT~, CHKPAT+8, CHKPAT+11, DUPE+2~, DUPE+3* , FAIL~, FAIL+3
XMDUZ	MAIL+2~, MAIL+14*
XMSUB	MAIL+2~, MAIL+13*
XMTEXT	MAIL+2~, MAIL+15*
XMY	MAIL+2~
XMY(	MAIL+17, SINGLE+7
XMY(1	MAIL+16*
XPDA	CHKPAT+5~, CHKPAT+7, CHKPAT+8, CHKPAT+9, MAIL+8, MAIL+10
>> XPDBLD	MAIL+10
>> XPDDIQ("XPZ1"	XPZ+3*
>> XPDDIQ("XPZ2"	XPZ+4*
>> XPDENV	XPZ+2
>> XPDQUIT	ENV+8, ENV+14, ENV+18, OK+2, OK+5, FAIL+3
Y	DUPE+2~, DUPE+5, SORRY+2~, SORRY+5, VCHK+3~, VCHK+5, VCHK+11, VCHK+13, SINGLE+2~, SINGLE+6 , SINGLE+7*
>> ZTQUEUED	SORRY+3

Name	Field # of Occurrence
$T(	HELLO+5, MAIL+13
$T(RACES+I	BLDLST+4

Customize PDF page

Package: IHS VA Support Files

Routine: AVA32P22

Call Graph Total: 15