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: AVA32P24

Package: IHS VA Support Files

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  

Entry Points

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

External References

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

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

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( MAIL+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

Marked Items

Name Field # of Occurrence
$T( HELLO+5, MAIL+13
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