Routine: AVA32P16

Information

AVA32P16 ;IHS/ITSC/AEF - AVA 93.2 PATCH 16 ; [ 05/12/2003 5:07 PM ]

Source Information

Source file <AVA32P16.m>

Call Graph

Call Graph Total: 7

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

Name	Comments	DBIA/ICR reference
PRE	;EP -- PREINSTALL 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
SFDD	;----- CHANGE SUB-FILE DD NUMBER IN THE 9999999.18 MULTIPLE OF FILE 200
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+4, RV+2
ENDR^%ZISS	RV+5
IX^DIC	DUPE+4
$$DIR^XBDIR	OK+7, SORRY+5
$$CJ^XLFSTR	HELLO+4, HELLO+5, DUPE+6, DUPE+7, DUPE+8, DUPE+9, OK+3, OK+6, SORRY+4, VCHK+9
^XMD	MAIL+20
$$VERSION^XPDUTL	VCHK+6
BMES^XPDUTL	PRE+1, POST+2, POST+4, POST+7, POST+10
MES^XPDUTL	PRE+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"INSTALL ABORTED!" Line Location: ENV+16
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: !!,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+4 RV+2
Routine Call	DIC Line Location: DUPE+4

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

Name	Line Occurrences
$$VCHK	VER+2, VER+3, VER+4
DUPE	ENV+13
DUZ	ENV+6
FAIL	DUZ+2, DUZ+3, DUZ+4, DUPE+10, OK+7, VCHK+11
HELLO	ENV+11
MAIL	POST+8
OK	ENV+14
RV	ENV+9
SFDD	POST+5
SINGLE	MAIL+18
SORRY	ENV+7, OK+3
VER	ENV+12
XPZ	ENV+10

Customize PDF page

Package: IHS VA Support Files

Routine: AVA32P16

Information

Source Information

Call Graph

Call Graph Total: 7

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+8, MAIL+9, MAIL+10, MAIL+18*
AVA	POST+1~
AVAMSG	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+13, MAIL+16
DUZ(0	DUZ+3, DUZ+4
I	SFDD+2~, SFDD+5, SFDD+6, SFDD+7
IOM	HELLO+4, HELLO+5, 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+3~, CHKPAT+4, CHKPAT+7, CHKPAT+8
P	SFDD+2~, SFDD+4*, SFDD+7
U	HELLO+3, CHKPAT+7, SFDD+4, SFDD+7
X	RV+3~, RV+4, HELLO+2~, HELLO+3, HELLO+4, CHKPAT~, CHKPAT+6, DUPE+2~, DUPE+3*, FAIL~ , FAIL+3
XMDUZ	MAIL+2~, MAIL+13*
XMSUB	MAIL+2~, MAIL+12*
XMTEXT	MAIL+2~, MAIL+14*
XMY	MAIL+2~
XMY(	MAIL+16, SINGLE+7
XMY(1	MAIL+15*
XPDA	CHKPAT+3~, CHKPAT+5, CHKPAT+6, CHKPAT+7, MAIL+9
>> XPDBLD	MAIL+9
>> XPDDIQ("XPZ1"	XPZ+3*
>> XPDDIQ("XPZ2"	XPZ+4*
>> XPDENV	XPZ+2
>> XPDQUIT	ENV+7, ENV+16, 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
^(	MAIL+10
^(0	SFDD+7*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed