Routine: AUPN9914

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES,MES)^XPDUTL
IHS Patient	2	POST^AUPN99P5 ^AUPNSEC
VA Fileman	2	(,IX)^DIC (,ENALL)^DIK
IHS VA Utilities	1	$$DIR^XBDIR
MailMan	1	^XMD
Utilities	1	^AUP6INIT

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP - From KIDS.
IMES	;
SINGLE(K)	; Get holders of a single key K.
VCHK(AUPNPRE,AUPNVER,AUPNQUIT)	; Check versions needed. ;
SORRY(X)	;
MAIL	; Send install mail message.
POST	;EP - From KIDS.
INSTALLD(AUPNSTAL)	;EP - Determine if patch AUPNSTAL was installed, where ; AUPNSTAL is the name of the INSTALL. E.g "AG6.011".

External References

Name	Field # of Occurrence
HOME^%ZIS	AUPN9914+5
ENDR^%ZISS	AUPN9914+17
^AUP6INIT	POST+23
POST^AUPN99P5	POST+6
^AUPNSEC	POST+19
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	AUPN9914+25, INSTALLD+6
^DIK	PRE+8, PRE+9, PRE+10, PRE+18, PRE+19, PRE+20, PRE+21, PRE+22, PRE+23, PRE+24 , PRE+25, POST+22
ENALL^DIK	POST+14
$$DIR^XBDIR	AUPN9914+38
$$CJ^XLFSTR	AUPN9914+12, AUPN9914+13, AUPN9914+27, AUPN9914+28, AUPN9914+32, AUPN9914+36, SORRY+4, VCHK+4, IMES+1
^XMD	MAIL+9
$$VERSION^XPDUTL	VCHK+3
BMES^XPDUTL	PRE+3, POST+1, POST+26, MAIL+1
MES^XPDUTL	PRE+4, PRE+6, PRE+12, PRE+15, PRE+17, PRE+26, POST+3, POST+5, POST+7, POST+9 , IMES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUPN9914+7
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUPN9914+9
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUPN9914+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: AUPN9914+13
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUPN"" prefix.",IOM) Line Location: AUPN9914+27
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: AUPN9914+28
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: AUPN9914+32
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUPN9914+36
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AUPNPRE_" v "_AUPNVER_"....."_AUPNPRE_" v "_AUPNV_" Present",IOM) Line Location: VCHK+4
Routine Call	%ZIS Line Location: AUPN9914+5
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: AUPN9914+25 INSTALLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNMSP - [#9000037]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNTEMP("POST INIT PATCH 14"	PRE+1!, PRE+2*, POST+21, POST+24!
^DD(9000001	PRE+2
^DIC(9.4 - [#9.4]	AUPN9914+26
^TMP("AUPN9914"	MAIL+3!, MAIL+4, MAIL+6, MAIL+10!
^VA(200 - [#200]	AUPN9914+11
^XTMP("XPDI"	MAIL+6
^XUSEC(	SINGLE+3, SINGLE+4

Label References

Name	Line Occurrences
$$INSTALLD	AUPN9914+21, PRE+5, PRE+16, POST+4
$$VCHK	AUPN9914+19
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
MAIL	POST+17
SINGLE	MAIL+8
SORRY	AUPN9914+7, AUPN9914+9, AUPN9914+21, AUPN9914+29, AUPN9914+38, VCHK+5

Naked Globals

Name	Field # of Occurrence
^(	MAIL+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAIL+5, MAIL+6, MAIL+8*
AUPNPRE	VCHK~, VCHK+3, VCHK+4
AUPNQUIT	VCHK~, VCHK+5
AUPNSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
AUPNV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
AUPNVER	VCHK~, VCHK+4, VCHK+5
AUPNY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	AUPN9914+24, INSTALLD+5
DA	AUPN9914+23~, PRE+8, PRE+9, PRE+10, PRE+18, PRE+19, PRE+20, PRE+21, PRE+22, PRE+23* , PRE+24, PRE+25, POST+22*
DA(1	PRE+8, PRE+9, PRE+10, PRE+18, PRE+19, PRE+20, PRE+21, PRE+22, PRE+23, PRE+24 , PRE+25, POST+22
DIC	AUPN9914+23~, AUPN9914+24, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	AUPN9914+24, INSTALLD+5
DIFQ	SORRY+1!
DIFROM	MAIL+2~
DIK	PRE+7~, PRE+8, PRE+9, PRE+10, PRE+18, PRE+19, PRE+20, PRE+21, PRE+22, PRE+23* , PRE+24, PRE+25, POST+12, POST+22
DIK(1	POST+13*
DUZ	AUPN9914+7, AUPN9914+11, MAIL+7
DUZ(0	AUPN9914+9
IOM	AUPN9914+5, AUPN9914+12, AUPN9914+13, AUPN9914+27, AUPN9914+28, AUPN9914+32, AUPN9914+36, SORRY+4, VCHK+4, IMES+1
IORVOFF	AUPN9914+15~, AUPN9914+28, AUPN9914+32
IORVON	AUPN9914+15~, AUPN9914+28, AUPN9914+32
K	SINGLE~, SINGLE+3, SINGLE+4
U	AUPN9914+11, PRE+2
X	AUPN9914+11, AUPN9914+12, AUPN9914+16, AUPN9914+24, SORRY~, SORRY+2, SORRY+3, INSTALLD+3~, INSTALLD+4, INSTALLD+8* , INSTALLD+11*
XMDUZ	MAIL+2~, MAIL+7*
XMSUB	MAIL+2~, MAIL+7*
XMTEXT	MAIL+2~, MAIL+7*
XMY	MAIL+2~
XMY(	MAIL+7, SINGLE+4
XMY(1	MAIL+7*
>> XPDA	MAIL+6
>> XPDBLD	MAIL+6
>> XPDDIQ("XPZ1"	AUPN9914+34*
>> XPDDIQ("XPZ2"	AUPN9914+34*
>> XPDENV	AUPN9914+34
>> XPDQUIT	AUPN9914+32, SORRY+2, SORRY+3
Y	AUPN9914+26, SINGLE+1~, SINGLE+2, SINGLE+4, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13 , IMES+1

Marked Items

Name	Field # of Occurrence
$T(	AUPN9914+13, MAIL+7

Customize PDF page

Package: IHS Patient

Routine: AUPN9914

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items