Routine: AVA32P24

Information

AVA32P24 ;IHS/OIT/FBD - AVA 93.2 PATCH 24 ENVIRONMENT CHECK

Source Information

Source file <AVA32P24.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES,MES)^XPDUTL
IHS VA Utilities	2	$$DIR^XBDIR ^XBKVAR
MailMan	1	^XMD
VA Fileman	1	IX^DIC

Name	Comments	DBIA/ICR reference
PRE	;EP -- PRE-INSTALL FROM KIDS.
RV	;----- SET REVERSE VIDEO ON/OFF VARIABLES
VER	;----- CHECK FOR VERSIONS
SINGLE(K)	;----- GET HOLDERS OF A SINGLE KEY K.
POST	;EP -- POST-INSTALL FROM KIDS.
FAIL(X)	;----- SET XPDQUIT
DUPE	;----- CHECK FOR DUPLICATE AVA ENTRIES IN PACKAGE FILE
XPZ	;----- PREVENT 'DISABLE OPTIONS' AND 'MOVE ROUTINES' PROMPTS
DUZ	;----- CHECK FOR VALID DUZ VARIABLES
CHKPAT(X)
ENV	;----- ENVIRONMENT CHECK
MAIL	;----- SEND INSTALL MAIL MESSAGE
OK	;----- OK TO INSTALL?
SORRY	;----- ISSUE 'SORRY... PRESS RETURN' MESSAGES
VCHK(AVAPRE,AVAVER,AVAQUIT)	;
HELLO	;----- HELLO MESSAGE AND ENVIRONMENT CHECK

Name	Field # of Occurrence
HOME^%ZIS	ENV+5, RV+2
ENDR^%ZISS	RV+5
IX^DIC	DUPE+4
$$DIR^XBDIR	OK+7, SORRY+5
^XBKVAR	ENV+4, PRE+2, POST+2
$$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+6, POST+10, POST+12, POST+15
MES^XPDUTL	PRE+8

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

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

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

Customize PDF page

Package: IHS VA Support Files

Routine: AVA32P24

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
>> %	MAIL+9, MAIL+10, MAIL+11, MAIL+19*
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
INPTX	POST+7~, POST+8*, POST+9
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
OK	CHKPAT+5~, CHKPAT+6, CHKPAT+9, CHKPAT+10, CHKPAT+12
U	HELLO+3, CHKPAT+9, POST+8, POST+9
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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed