Routine: AUPN9918

Package	Total	Call Graph
Kernel	6	HOME^%ZIS ENDR^%ZISS ^%ZTLOAD ($$FMADD,$$NOW)^XLFDT $$CJ^XLFSTR ($$VERSION,BMES,MES)^XPDUTL
VA Fileman	2	(,IX)^DIC ENALL^DIK
IHS Patient	1	$$UIDV^AUPNVSIT
IHS VA Utilities	1	$$DIR^XBDIR
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
IMES	;
SINGLE(K)	; Get holders of a single key K.
VCHK(AUPNPRE,AUPNVER,AUPNQUIT)	; Check versions needed. ;
SORRY(X)	;
POST	;
SETNDW	;EP called from taskman
REIN	;INDEX
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	AUPN9918+4
ENDR^%ZISS	AUPN9918+16
^%ZTLOAD	REIN+13
$$UIDV^AUPNVSIT	SETNDW+5
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	AUPN9918+27, INSTALLD+6
ENALL^DIK	REIN+6, REIN+9
$$DIR^XBDIR	AUPN9918+40
$$FMADD^XLFDT	REIN+12
$$NOW^XLFDT	REIN+12
$$CJ^XLFSTR	AUPN9918+11, AUPN9918+12, AUPN9918+29, AUPN9918+30, AUPN9918+34, AUPN9918+38, SORRY+4, VCHK+4, IMES+1
^XMD	SETNDW+18
$$VERSION^XPDUTL	VCHK+3
BMES^XPDUTL	SETNDW+10
MES^XPDUTL	IMES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUPN9918+6
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUPN9918+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUPN9918+11
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: AUPN9918+12
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: AUPN9918+29
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: AUPN9918+30
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: AUPN9918+34
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUPN9918+38
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: AUPN9918+4
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: AUPN9918+27 INSTALLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^AUPNPREF - [#9000022]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNAPPS - [#9000045]	REIN+7, REIN+8
^AUPNVSIT - [#9000010]	SETNDW+2, SETNDW+3, SETNDW+4, SETNDW+5*
^AUPNVSIT("AMRG"	SETNDW+1
^DD(9000010.09	REIN+4!
^DIC(9.4 - [#9.4]	AUPN9918+23, AUPN9918+28
^TMP("AUPN9915"	SETNDW+12!, SETNDW+13, SETNDW+15, SETNDW+19!
^VA(200 - [#200]	AUPN9918+10
^XTMP("XPDI"	SETNDW+15
^XUSEC(	SINGLE+3, SINGLE+4

Label References

Name	Line Occurrences
$$INSTALLD	AUPN9918+20, AUPN9918+21, AUPN9918+22
$$VCHK	AUPN9918+18
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
SINGLE	SETNDW+17
SORRY	AUPN9918+6, AUPN9918+8, AUPN9918+20, AUPN9918+21, AUPN9918+22, AUPN9918+23, AUPN9918+31, AUPN9918+40, VCHK+5

Naked Globals

Name	Field # of Occurrence
^(	SETNDW+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SETNDW+14, SETNDW+15, SETNDW+17*
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
AUPNX	REIN+7, REIN+8, REIN+9, SETNDW+2, SETNDW+3, SETNDW+4, SETNDW+5, SETNDW+6!
>> AUPNX1	REIN+8*, REIN+9
AUPNY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	AUPN9918+26, INSTALLD+5
DA	AUPN9918+25~, REIN+9*
DA(1	REIN+9*
DIC	AUPN9918+25~, AUPN9918+26, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	AUPN9918+26, INSTALLD+5
DIFQ	SORRY+1!
DIFROM	SETNDW+11~
DIK	REIN+5~, REIN+6!, REIN+9
DIK(1	REIN+6, REIN+9
DUZ	AUPN9918+6, AUPN9918+10, SETNDW+16
DUZ(0	AUPN9918+8
IOM	AUPN9918+4, AUPN9918+11, AUPN9918+12, AUPN9918+29, AUPN9918+30, AUPN9918+34, AUPN9918+38, SORRY+4, VCHK+4, IMES+1
IORVOFF	AUPN9918+14~, AUPN9918+30, AUPN9918+34
IORVON	AUPN9918+14~, AUPN9918+30, AUPN9918+34
K	SINGLE~, SINGLE+3, SINGLE+4
U	AUPN9918+10
X	AUPN9918+10, AUPN9918+11, AUPN9918+15, AUPN9918+26, SORRY~, SORRY+2, SORRY+3, SETNDW+1, SETNDW+2, SETNDW+6! , INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11*
XMDUZ	SETNDW+11~, SETNDW+16*
XMSUB	SETNDW+11~, SETNDW+16*
XMTEXT	SETNDW+11~, SETNDW+16*
XMY	SETNDW+11~
XMY(	SETNDW+16, SINGLE+4
XMY(1	SETNDW+16*
>> XPDA	SETNDW+15
>> XPDBLD	SETNDW+15
>> XPDDIQ("XPI1"	AUPN9918+36*
>> XPDDIQ("XPO1"	AUPN9918+36*
>> XPDDIQ("XPZ1"	AUPN9918+36*
>> XPDDIQ("XPZ2"	AUPN9918+36*
>> XPDENV	AUPN9918+36
>> XPDQUIT	AUPN9918+34, SORRY+2, SORRY+3
Y	AUPN9918+28, SINGLE+1~, SINGLE+2, SINGLE+4, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13 , IMES+1
ZTDESC	REIN+12*, REIN+14!
ZTDTH	REIN+12*, REIN+14!
ZTIO	REIN+12*, REIN+14!
ZTRTN	REIN+11*, REIN+14!
>> ZTSAVE("DUZ*"	REIN+12*

Marked Items

Name	Field # of Occurrence
$T(	AUPN9918+12, SETNDW+16

Customize PDF page

Package: IHS Patient

Routine: AUPN9918

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