Routine: AUM4103

Information

AUM4103 ;IHS/ITSC/DMJ - SCB UPDATE 3/30/2004 [ 03/30/2004 9:15 AM ]

Source Information

Source file <AUM4103.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	2	(,IX)^DIC EN1^DIP
ICD 9 Updates	1	^AUMDELR
MailMan	1	^XMD
Table Maintenance	1	(RSLT,START)^AUM41031
Utilities	1	^AUM41P3

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Table Maintenance	1	AUM41031

Entry Points

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

External References

Name	Field # of Occurrence
HOME^%ZIS	ENV+3
^%ZTLOAD	QUE+10
RSLT^AUM41031	MAIL+5, MAIL+6, MAIL+8
START^AUM41031	POST+4
^AUM41P3	POST+8
^AUMDELR	QUE+4
^DIC	AUDPRT+8
IX^DIC	CKPKG+8
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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	AUDF+4, AUDF+5, AUDF+6, AUDF+10*
^DIC(9.4 - [#9.4]	CKPKG+9
^TMP("AUM4103"	POST+2!, MAIL+2!, MAIL+12!
^VA(200 - [#200]	HELLO+4
^XTMP("AUM4103"	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+5
AUDS	POST+3
CKPKG	ENV+21
DUZ	ENV+7
HELLO	ENV+10
MAIL	POST+6
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~
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

Name	Field # of Occurrence
$T(	HELLO+6, MAIL+9, QUE+4
$T(AUD+%	AUDS+10
$T(GREET+%	MAIL+6
$T(GREET+%+1	MAIL+6

Customize PDF page

Package: Table Maintenance

Routine: AUM4103

Call Graph Total: 14

Caller Graph Total: 1