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

Package: Utility Tables

Routine: AUT98P13


Information

AUT98P13 ;IHS/SET/AEF - AUT 98.1 PATCH 13 ; [ 10/16/2003 1:57 PM ]

Source Information

Source file <AUT98P13.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 HOME^%ZIS  ENDR^%ZISS  $$FMADD^XLFDT  ($$CJ,$$LJ,$$RJ)^XLFSTR  ($$NEWCP,$$PATCH,$$VERSION,BMES,MES)^XPDUTL  
VA Fileman 4 IX^DIC  $$GET1^DID  ^DIE  EN^DIU2  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP - From KIDS.
INTROE ; Intro text during KIDS Environment check.
UNIQUEP ;----- POPULATE THE UNIQUE RPMS DB ID FIELD
AUDR ; Restore the file data audit values to their original values.
SINGLE(K) ; Get holders of a single key K.
RSLT(%)
UNIQUEA(IEN,UNIQUE)
INTROI ; Intro text during KIDS Install.
GREET ;;To add to mail message.
UNIQUE1(IEN)
SORRY(X) ;
MAIL ;
POST ;EP - From KIDS.
VCHK(AUTPRE,AUTVER,AUTQUIT) ; Check versions needed.
;
UNIQUEL ;----- LOOP THRU LOCATION FILE AND POPULATE UNIQUE RPMS DB ID FIELD
UNIQUED ;----- DELETE SCRATCH LOCATION FILE
AUDS ; Save current settings, and SET dd auditing 'on'.

External References

Name Field # of Occurrence
HOME^%ZIS AUT98P13+5
ENDR^%ZISS AUT98P13+19
IX^DIC AUT98P13+27
$$GET1^DID AUDR+6
^DIE UNIQUEA+8
EN^DIU2 UNIQUED+6
$$DIR^XBDIR AUT98P13+39
HELP^XBHELP AUT98P13+38, AUT98P13+41
$$FMADD^XLFDT AUDS+3
$$CJ^XLFSTR AUT98P13+14, AUT98P13+15, AUT98P13+22, AUT98P13+29, AUT98P13+30, AUT98P13+34, AUT98P13+36, SORRY+3, VCHK+4
$$LJ^XLFSTR AUDS+8, AUDR+6
$$RJ^XLFSTR AUDS+8, AUDR+6
^XMD MAIL+10
$$NEWCP^XPDUTL PRE+3, POST+5, POST+8
$$PATCH^XPDUTL UNIQUEL+2
$$VERSION^XPDUTL AUT98P13+21, VCHK+3
BMES^XPDUTL MAIL+1, UNIQUEP+4
MES^XPDUTL MAIL+12, AUDS+1, AUDS+2, AUDS+8, AUDS+11, AUDR+1, AUDR+6, AUDR+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: AUT98P13+7
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: AUT98P13+9
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: AUT98P13+14
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: AUT98P13+15
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Need AUT v 98.1.....AUT v "_X_" Present",IOM)
  • Line Location: AUT98P13+22
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: AUT98P13+29
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
  • Line Location: AUT98P13+30
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7
  • Line Location: AUT98P13+34
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: AUT98P13+36
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_AUTPRE_" v "_AUTVER_"....."_AUTPRE_" v "_AUTV_" Present",IOM)
  • Line Location: VCHK+4
Routine Call
  • %ZIS
  • Line Location:
    • AUT98P13+5
Routine Call
  • DIE
  • Line Location:
    • UNIQUEA+8
Routine Call
  • DIC
  • Line Location:
    • AUT98P13+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTT999(8008699.06 UNIQUE1+12, UNIQUE1+14
^AUTTLOC - [#9999999.06] UNIQUEP+7
^AUTTLOC("F" UNIQUE1+20
^DD( AUDS+7, AUDS+9*, AUDR+5*, AUDR+6
^DD(9999999.06 UNIQUE1+7
^DIC(4 - [#4] UNIQUE1+5
^DIC(9.4 - [#9.4] AUT98P13+28
^TMP("AUT98P13" MAIL+3!, MAIL+11!, RSLT
^VA(200 - [#200] AUT98P13+13
^XTMP("AUT98P13" AUDS+3*, AUDS+7*, AUDS+8, AUDR+4, AUDR+5, AUDR+8!
^XTMP("XPDI" MAIL+7, AUDS+6, AUDS+8
^XUSEC( SINGLE+3, SINGLE+4

Label References

Name Line Occurrences
RSLT MAIL+4, MAIL+5, MAIL+7
SINGLE MAIL+9
SORRY AUT98P13+7, AUT98P13+9, AUT98P13+11, AUT98P13+23, AUT98P13+31, AUT98P13+39, VCHK+5
UNIQUE1 UNIQUEP+7
UNIQUEA UNIQUE1+21
UNIQUED UNIQUEL+3
UNIQUEL POST+2
UNIQUEP UNIQUEL+2

Naked Globals

Name Field # of Occurrence
^( MAIL+7, RSLT*
^(0 RSLT*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MAIL+5*, MAIL+6*, MAIL+7*, MAIL+9*, RSLT~
ASUFAC UNIQUE1+3~, UNIQUE1+10*, UNIQUE1+12, UNIQUE1+17
AUT AUDS+4~, AUDS+5*, AUDS+6*, AUDS+7, AUDS+8, AUDS+9, AUDR+2~, AUDR+3*, AUDR+4*, AUDR+5
, AUDR+6
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 AUT98P13+26*
D0 UNIQUE1+3~, UNIQUE1+6*
DA AUT98P13+25~, UNIQUEA+3~, UNIQUEA+6*
DATA UNIQUE1+3~, UNIQUE1+14*, UNIQUE1+15, UNIQUE1+17, UNIQUE1+18
DIC AUT98P13+25~, AUT98P13+26*
DIC(0 AUT98P13+26*
DIE UNIQUEA+3~, UNIQUEA+5*
DIFQ SORRY+1!
DIFROM MAIL+2~
DIU UNIQUED+2~, UNIQUED+4*
DIU(0 UNIQUED+5*
DR UNIQUEA+3~, UNIQUEA+7*
DT AUDS+3
DUZ AUT98P13+7, AUT98P13+13, MAIL+8
DUZ(0 AUT98P13+9, AUT98P13+11
IEN UNIQUEP+2~, UNIQUEP+6*, UNIQUEP+7*, UNIQUE1~, UNIQUE1+5, UNIQUE1+6, UNIQUE1+21, UNIQUEA~, UNIQUEA+6
IEN2 UNIQUE1+3~, UNIQUE1+11*, UNIQUE1+12*, UNIQUE1+13, UNIQUE1+14
IOM AUT98P13+5, AUT98P13+14, AUT98P13+15, AUT98P13+22, AUT98P13+29, AUT98P13+30, AUT98P13+34, AUT98P13+36, SORRY+3, VCHK+4
IORVOFF AUT98P13+17~, AUT98P13+30, AUT98P13+34
IORVON AUT98P13+17~, AUT98P13+30, AUT98P13+34
K SINGLE~, SINGLE+3, SINGLE+4
NAME UNIQUE1+3~, UNIQUE1+5*
U AUT98P13+13, UNIQUE1+5, UNIQUE1+7, UNIQUE1+17, UNIQUE1+18
UNIQUE UNIQUE1+3~, UNIQUE1+18*, UNIQUE1+19, UNIQUE1+20, UNIQUE1+21, UNIQUEA~
X AUT98P13+13*, AUT98P13+14, AUT98P13+18*, AUT98P13+21*, AUT98P13+22, AUT98P13+23, AUT98P13+26*, SORRY~, SORRY+2, UNIQUED+2~
, UNIQUE1+3~, UNIQUE1+8, UNIQUE1+9, UNIQUE1+10, UNIQUEA+3~
XMDUZ MAIL+2~, MAIL+8*
XMSUB MAIL+2~, MAIL+8*
XMTEXT MAIL+2~, MAIL+8*
XMY MAIL+2~
XMY( MAIL+8*, SINGLE+4*
XMY(1 MAIL+8*
>> XPDA MAIL+7, AUDS+6, AUDS+8
>> XPDBLD MAIL+7
>> XPDDIQ("XPZ1" AUT98P13+41*
>> XPDDIQ("XPZ2" AUT98P13+41*
>> XPDENV AUT98P13+41
>> XPDQUIT AUT98P13+34, SORRY+2*
Y AUT98P13+28, SINGLE+1~, SINGLE+2*, SINGLE+4*, UNIQUED+2~, UNIQUE1+3~, UNIQUEA+3~
>> ZTQUEUED AUT98P13+11

Marked Items

Name Field # of Occurrence
$T( AUT98P13+15, MAIL+8, AUDS+3
$T(GREET+% MAIL+5
$T(GREET+%+1 MAIL+5
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