Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AVA32P16

Package: IHS VA Support Files

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  

Entry Points

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

External References

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

Interaction Calls

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

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(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

Label References

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

Naked Globals

Name Field # of Occurrence
^( MAIL+10
^(0 SFDD+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

Marked Items

Name Field # of Occurrence
$T( HELLO+5, MAIL+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All