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

Package: IHS VA Support Files

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

Marked Items

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