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 |  Caller 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: AUM4101

Package: Table Maintenance

Routine: AUM4101


Information

AUM4101 ;TASSC/MFD - SCB UPDATE 10/31/2003 [ 11/25/2003 12:43 PM ]

Source Information

Source file <AUM4101.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 HOME^%ZIS  ^%ZTLOAD  ($$FMADD,$$HADD)^XLFDT  $$CJ^XLFSTR  ($$PATCH,$$VERSION,BMES,MES)^XPDUTL  
IHS VA Utilities 3 $$DIR^XBDIR  HELP^XBHELP  ^XBKVAR  
VA Fileman 3 (,IX)^DIC  ENALL^DIK  EN1^DIP  
ICD 9 Updates 1 ^AUMDELR  
MailMan 1 ^XMD  
Table Maintenance 1 (RSLT,START)^AUM41011  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Table Maintenance 1 AUM41011  

Entry Points

Name Comments DBIA/ICR reference
AUDF(F) ;----- PROCESS ALL FIELDS FOR FILE 4, INCLUDING SUB-FILES
AUDR ;----- RESTORE THE FILE DATA AUDIT VALUES TO THEIR ORIGINAL VALUES
SINGLE(K) ;
GREET ;;EP - TO ADD TO MAIL MESSAGE
OK(XPDQUIT)
BINDEX ;
PCHK(AUMPRE,AUMVER,AUMPAT,AUMQUIT,AUMCOMP)
AUDS ;----- SAVE CURRENT SETTINGS AND SET DATA AUDITING 'ON'
INTROE ;----- INTRO TEXT DURING KIDS ENVIRONMENT CHECK
INTROI ;----- INTRO TEXT DURING KIDS INSTALL
AUDPRT ;----- PRINT FROM AUDIT FILE
SORRY(X,XPDQUIT)
CKPKG(XPDQUIT)
AUD ;----- THESE ARE FILES TO BE DATA AUDITED FOR THIS PATCH ONLY
DUZ(DUZ,XPDQUIT)
XPZ ;----- SET XPDDIQ ARRAY TO KEEP KIDS FROM ASKING DISABLE AND CPU
; MOVE QUESTIONS
ENV ;----- ENVIRONMENT CHECK
POST ;EP -- POST INSTALL FROM KIDS
HELLO(DUZ)
QUE ;----- QUEUE ROUTINE DELETION
VCHK(AUMPRE,AUMVER,AUMQUIT,AUMCOMP)
MAIL ;----- SEND EMAIL

External References

Name Field # of Occurrence
HOME^%ZIS ENV+3
^%ZTLOAD QUE+10
RSLT^AUM41011 MAIL+5, MAIL+6, MAIL+8
START^AUM41011 POST+5
^AUMDELR QUE+4
^DIC AUDPRT+8
IX^DIC CKPKG+8
ENALL^DIK BINDEX+4
EN1^DIP AUDPRT+13
$$DIR^XBDIR ENV+30
HELP^XBHELP ENV+26, XPZ+5
^XBKVAR ENV+2
$$FMADD^XLFDT AUDS+8
$$HADD^XLFDT QUE+7
$$CJ^XLFSTR HELLO+5, HELLO+6, CKPKG+10, CKPKG+11, CKPKG+12, OK+4, OK+5, SORRY+4, VCHK+5, PCHK+5
^XMD MAIL+11
$$PATCH^XPDUTL PCHK+4
$$VERSION^XPDUTL VCHK+4
BMES^XPDUTL QUE+12, QUE+13, QUE+14
MES^XPDUTL MAIL+4, MAIL+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0"
  • Line Location: DUZ+4
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL"
  • Line Location: DUZ+7
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: HELLO+5
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+6
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You have more than one entry in the",IOM)
  • Line Location: CKPKG+10
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("PACKAGE file with an ""AUM"" prefix.",IOM)
  • Line Location: CKPKG+11
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  • Line Location: CKPKG+12
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding",IOM),!!,*7,*7,*7
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK",IOM)
  • Line Location: OK+5
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need "_$S(AUMCOMP="<":"at least ",1:"")_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_" Present",IOM)
  • Line Location: VCHK+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need "_$S(AUMCOMP="<":"at least ",1:"")_AUMV_"....."_$S(AUMX:" Present",1:" NOT Present"),IOM)
  • Line Location: PCHK+5
Function Call: WRITE
  • Prompt: !,"*** Print from the AUDIT file."
  • Line Location: AUDPRT+4
Routine Call
  • %ZIS
  • Line Location:
    • ENV+3
Routine Call
  • DIC
  • Line Location:
    • AUDPRT+8
Routine Call
  • DIC
  • Line Location:
    • CKPKG+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls
^AUTTTRI - [#9999999.03] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTTRI("B" BINDEX+1!
^DD( AUDF+4, AUDF+5, AUDF+6, AUDF+10*
^DD(9999999.03 POST+2, BINDEX+2*, BINDEX+3*
^DIC(9.4 - [#9.4] CKPKG+9
^TMP("AUM4101" POST+3!, MAIL+2!, MAIL+12!
^VA(200 - [#200] HELLO+4
^XTMP("AUM4101" AUDS+8*, AUDS+12*, AUDF+7*, AUDF+8*, AUDR+4, AUDR+5, AUDR+7
^XTMP("XPDI" MAIL+8
^XUSEC( SINGLE+5, SINGLE+6

Label References

Name Line Occurrences
$$PCHK ENV+18
$$VCHK ENV+14, ENV+15, ENV+16, ENV+17
AUDF AUDS+14, AUDF+5
AUDR POST+6
AUDS POST+4
BINDEX POST+2
CKPKG ENV+21
DUZ ENV+7
HELLO ENV+10
MAIL POST+7
OK ENV+23
SINGLE MAIL+10
SORRY ENV+30, DUZ+5, DUZ+8, VCHK+6, PCHK+6
XPZ ENV+28

Naked Globals

Name Field # of Occurrence
^( MAIL+8
^(0 AUDF+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MAIL+6*, MAIL+7*, MAIL+8*, MAIL+10*, AUDS+10*
AUMCOMP VCHK~, VCHK+5, VCHK+6, PCHK~, PCHK+5
AUMPAT PCHK~, PCHK+3
AUMPRE VCHK~, VCHK+4, VCHK+5, PCHK~, PCHK+3
AUMQUIT VCHK~, VCHK+6, PCHK~, PCHK+6
AUMV VCHK+3~, VCHK+4*, VCHK+5, VCHK+6, PCHK+2~, PCHK+3*, PCHK+4, PCHK+5
AUMVER VCHK~, VCHK+5, VCHK+6, PCHK~, PCHK+3
AUMX PCHK+2~, PCHK+4*, PCHK+5, PCHK+6
BY AUDPRT+2~, AUDPRT+12*
D CKPKG+3~, CKPKG+7*, AUDF+2~, AUDF+3*, AUDF+4*, AUDF+5, AUDF+6, AUDF+10
DIC CKPKG+3~, CKPKG+5*, AUDPRT+2~, AUDPRT+5*, AUDPRT+10*
DIC("A" AUDPRT+6*
DIC(0 CKPKG+6*, AUDPRT+7*
DIFQ SORRY+1!
DIFROM MAIL+3~
>> DIK BINDEX+4*
>> DIK(1 BINDEX+4*
DT AUDS+8
DUZ ENV+7, ENV+10, DUZ~, DUZ+3, HELLO~, HELLO+4, MAIL+9
DUZ(0 DUZ+6
F AUDF~, AUDF+4, AUDF+5, AUDF+6, AUDF+10
FLDS AUDPRT+2~, AUDPRT+11*
G AUDS+9~, AUDS+10*, AUDS+11, AUDS+12, AUDS+13*, AUDF+6*, AUDF+7, AUDF+8, AUDF+9*, AUDR+2~
, AUDR+3*, AUDR+4*, AUDR+5*, AUDR+6, AUDR+7*, AUDR+8
IOM HELLO+5, HELLO+6, CKPKG+10, CKPKG+11, CKPKG+12, OK+4, OK+5, SORRY+4, VCHK+5, PCHK+5
K SINGLE~, SINGLE+5, SINGLE+6
P AUDS+9~, AUDS+11*, AUDS+12, AUDS+13, AUDS+14, AUDF+2~, AUDF+6*, AUDF+7, AUDF+9, AUDR+2~
U HELLO+4, AUDF+5, AUDF+6
X HELLO+3~, HELLO+4*, HELLO+5, CKPKG+3~, CKPKG+4*, SORRY~, SORRY+2, SORRY+3, QUE+2~, AUDPRT+2~
XMDUZ MAIL+3~, MAIL+9*
XMSUB MAIL+3~, MAIL+9*
XMTEXT MAIL+3~, MAIL+9*
XMY MAIL+3~
XMY( MAIL+9*, SINGLE+6*
XMY(1 MAIL+9*
>> XPDA MAIL+8
>> XPDBLD MAIL+8
>> XPDDIQ("XPZ1" XPZ+3*
>> XPDDIQ("XPZ2" XPZ+4*
>> XPDENV XPZ+2
XPDQUIT ENV+5!, ENV+7, ENV+8, ENV+19, ENV+21, ENV+23, ENV+24, ENV+30, DUZ~, DUZ+5
, DUZ+8, CKPKG~, CKPKG+13*, OK~, OK+3, SORRY~, SORRY+2*, SORRY+3*
Y CKPKG+3~, CKPKG+9, QUE+2~, SINGLE+3~, SINGLE+4*, SINGLE+6*, AUDPRT+2~, AUDPRT+9, AUDPRT+10
ZTDESC QUE+2~, QUE+6*
ZTDTH QUE+2~, QUE+7*
ZTIO QUE+2~, QUE+8*
ZTPRI QUE+2~, QUE+9*
>> ZTQUEUED QUE+3, AUDPRT+3
ZTREQ QUE+2~, QUE+3*
ZTRTN QUE+2~, QUE+5*
ZTSK QUE+2~, QUE+11, QUE+14

Marked Items

Name Field # of Occurrence
$T( HELLO+6, MAIL+9, QUE+4
$T(AUD+% AUDS+10
$T(GREET+% MAIL+6
$T(GREET+%+1 MAIL+6
Info |  Source |  Call Graph |  Caller 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