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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AUT981P9

Package: Utility Tables

Routine: AUT981P9


Information

AUT981P9 ;IHS/ASDST/GTH - AUT 98.1 PATCH 9 ; [ 01/07/2002 3:22 PM ]

Source Information

Source file <AUT981P9.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 $$CJ^XLFSTR  ($$VERSION,BMES)^XPDUTL  
VA Fileman 2 (,IX)^DIC  ^DIK  
IHS VA Utilities 1 $$DIR^XBDIR  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP - From KIDS.
SINGLE(K) ; Get holders of a single key K.
INSTALLD(AUT) ;EP - Determine if patch AUT was installed, where AUT is
; the name of the INSTALL. E.g "AUT*98.1*7".
SORRY(X) ;
MAIL ; Send install mail message.
POST ;EP - From KIDS.
VCHK(AUTPRE,AUTVER,AUTQUIT) ; Check versions needed.
;

External References

Name Field # of Occurrence
^DIC INSTALLD+11, INSTALLD+15
IX^DIC AUT981P9+24, INSTALLD+7
^DIK PRE+5, PRE+8
$$DIR^XBDIR AUT981P9+30, AUT981P9+40, SORRY+3, VCHK+5
$$CJ^XLFSTR AUT981P9+12, AUT981P9+13, AUT981P9+16, AUT981P9+26, AUT981P9+27, AUT981P9+28, AUT981P9+32, AUT981P9+38, SORRY+3, VCHK+4
, VCHK+5
^XMD MAIL+8
$$VERSION^XPDUTL AUT981P9+15, VCHK+3
BMES^XPDUTL PRE+1, PRE+2, PRE+9, POST+1, POST+2, POST+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: AUT981P9+5
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: AUT981P9+7
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: AUT981P9+12
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: AUT981P9+13
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Need AUT v 98.1.....AUT v "_X_" Present",IOM)
  • Line Location: AUT981P9+16
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUT"" prefix.",IOM)
  • Line Location: AUT981P9+26
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  • Line Location: AUT981P9+27
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  • Line Location: AUT981P9+28
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("No 'AUT' dups in PACKAGE file",IOM)
  • Line Location: AUT981P9+32
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: AUT981P9+38
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_AUTPRE_" v "_AUTVER_"....."_AUTPRE_" v "_AUTV_" Present",IOM)
  • Line Location: VCHK+4
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....",IOM)
  • Line Location: VCHK+5
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+11
    • INSTALLD+15
Routine Call
  • DIC
  • Line Location:
    • AUT981P9+24
    • INSTALLD+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9999999.3911 PRE+6!
^DIC(9.4 - [#9.4] AUT981P9+25
^TMP("AUTP9MSG" MAIL+2!, MAIL+3*, MAIL+5*, MAIL+9!
^VA(200 - [#200] AUT981P9+11
^XTMP("XPDI" MAIL+5
^XUSEC( SINGLE+3, SINGLE+4

Label References

Name Line Occurrences
$$VCHK AUT981P9+19, AUT981P9+20
MAIL POST+3
SINGLE MAIL+7
SORRY AUT981P9+5, AUT981P9+7, AUT981P9+9, AUT981P9+17, AUT981P9+29, AUT981P9+40

Naked Globals

Name Field # of Occurrence
^( MAIL+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MAIL+4*, MAIL+5*, MAIL+7*
AUT INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14
AUTPRE VCHK~, VCHK+3, VCHK+4
AUTQUIT VCHK~, VCHK+5
AUTV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5*
AUTVER VCHK~, VCHK+4, VCHK+5
>> D AUT981P9+23*, INSTALLD+6*
DA AUT981P9+22~, PRE+3~, PRE+4*, PRE+8*
DA(1 PRE+4*, PRE+7*
DIC AUT981P9+22~, AUT981P9+23*, INSTALLD+3~, INSTALLD+6*, INSTALLD+10*, INSTALLD+14*
DIC(0 AUT981P9+23*, INSTALLD+6*
DIFQ SORRY+1!, VCHK+5!
DIFROM MAIL+1~
DIK PRE+3~, PRE+4*, PRE+7*
DUZ AUT981P9+5, AUT981P9+11, MAIL+6
DUZ(0 AUT981P9+7, AUT981P9+9
IOM AUT981P9+12, AUT981P9+13, AUT981P9+16, AUT981P9+26, AUT981P9+27, AUT981P9+28, AUT981P9+32, AUT981P9+38, SORRY+3, VCHK+4
, VCHK+5
K SINGLE~, SINGLE+3, SINGLE+4
U AUT981P9+11
X AUT981P9+11*, AUT981P9+12, AUT981P9+15*, AUT981P9+16, AUT981P9+17, AUT981P9+23*, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5*
, INSTALLD+10*, INSTALLD+14*
XMDUZ MAIL+1~, MAIL+6*
XMSUB MAIL+1~, MAIL+6*
XMTEXT MAIL+1~, MAIL+6*
XMY MAIL+1~
XMY( MAIL+6*, SINGLE+4*
XMY(1 MAIL+6*
>> XPDA MAIL+5
>> XPDBLD MAIL+5
>> XPDDIQ("XPZ1" AUT981P9+36*
>> XPDDIQ("XPZ2" AUT981P9+36*
>> XPDENV AUT981P9+36
>> XPDQUIT SORRY+2*, VCHK+5*
Y AUT981P9+25, SINGLE+1~, SINGLE+2*, SINGLE+4*, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16
>> ZTQUEUED AUT981P9+9, SORRY+3

Marked Items

Name Field # of Occurrence
$T( AUT981P9+13, MAIL+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All