Routine: AG7P5

Package	Total	Call Graph
Kernel	3	$$FMADD^XLFDT $$CJ^XLFSTR ($$VERSION,BMES)^XPDUTL
IHS Patient Registration	1	$$LAST^AG7P5
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	(,IX)^DIC

Package	Total	Caller Graph
IHS Patient Registration	1	AG7P5

Entry Points

Name	Comments	DBIA/ICR reference
OPTSAV(AGM)	;
VCHK(AGPRE,AGVER,AGQUIT)	;Check versions needed.
SORRY(X)	;
INSTALLD(AGINSTAL)	;EP - Determine if patch AGINSTAL was installed, where AGINSTAL is
LAST(PKG,VER)	;returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released

Name	Field # of Occurrence
$$LAST^AG7P5	AG7P5+17, AG7P5+22
^DIC	INSTALLD+10, INSTALLD+13
IX^DIC	AG7P5+27, INSTALLD+7
$$DIR^XBDIR	AG7P5+45, SORRY+3
$$FMADD^XLFDT	OPTSAV+3
$$CJ^XLFSTR	AG7P5+8, AG7P5+9, AG7P5+18, AG7P5+23, AG7P5+29, AG7P5+30, AG7P5+31, AG7P5+43, SORRY+3, VCHK+3 , VCHK+4
$$VERSION^XPDUTL	VCHK+2, LAST+3
BMES^XPDUTL	OPTSAV+1, OPTSAV+2, OPTSAV+6

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AG7P5+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AG7P5+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AG7P5+8
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: AG7P5+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUPN v99.1 Patch 12 NOT INSTALLED",IOM) Line Location: AG7P5+18
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUT v98.1 Patch 13 NOT INSTALLED",IOM) Line Location: AG7P5+23
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AG"" prefix.",IOM) Line Location: AG7P5+29
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: AG7P5+30
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AG7P5+31
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AG7P5+43
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_" Present",IOM) Line Location: VCHK+3
Function Call: WRITE	Prompt: 7,!,$$CJ^XLFSTR("^^^^NEEDS FIXED*^^^^",IOM) Line Location: VCHK+4
Routine Call	DIC Line Location: INSTALLD+10 INSTALLD+13
Routine Call	DIC Line Location: AG7P5+27 INSTALLD+7

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	OPTSAV+5, OPTSAV+8
^DIC(9.4 - [#9.4]	AG7P5+28, LAST+4, LAST+5, LAST+7, LAST+8
^VA(200 - [#200]	AG7P5+7
^XTMP("AG7P5"	OPTSAV+2, OPTSAV+3, OPTSAV+8

Name	Field # of Occurrence
^(0	LAST+8

Name	Field # of Occurrence
A	OPTSAV+4~, OPTSAV+7, OPTSAV+8
AGINSTAL	INSTALLD~, INSTALLD+5, INSTALLD+9, INSTALLD+12
AGM	OPTSAV~, OPTSAV+1, OPTSAV+2, OPTSAV+5, OPTSAV+6, OPTSAV+8
AGPRE	VCHK~, VCHK+2, VCHK+3
AGQUIT	AG7P5+11~, AG7P5+12, AG7P5+13, AG7P5+15, AG7P5+18, AG7P5+20, AG7P5+23, AG7P5+28*, AG7P5+41, VCHK~
AGV	VCHK+1~, VCHK+2*, VCHK+3, VCHK+4
AGVER	VCHK~, VCHK+3, VCHK+4
>> D	AG7P5+26, INSTALLD+6
DA	AG7P5+25~
DIC	AG7P5+25~, AG7P5+26, INSTALLD+4~, INSTALLD+6, INSTALLD+9, INSTALLD+12
DIC(0	AG7P5+26, INSTALLD+6
DIFQ	SORRY+1!
DT	OPTSAV+3
DUZ	AG7P5+3, AG7P5+7
DUZ(0	AG7P5+5
I	OPTSAV+4~, OPTSAV+5*, OPTSAV+6, OPTSAV+8
IOM	AG7P5+8, AG7P5+9, AG7P5+18, AG7P5+23, AG7P5+29, AG7P5+30, AG7P5+31, AG7P5+43, SORRY+3, VCHK+3 , VCHK+4
LATEST	LAST+2~, LAST+6, LAST+8, LAST+9
PATCH	LAST+2~, LAST+6, LAST+8, LAST+9
PKG	LAST~, LAST+3, LAST+4
PKGIEN	LAST+2~, LAST+4*, LAST+5, LAST+7, LAST+8
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8
U	AG7P5+7, AG7P5+18, AG7P5+23, OPTSAV+3, OPTSAV+8, LAST+8, LAST+9
VER	LAST~, LAST+3*, LAST+5
VERIEN	LAST+2~, LAST+5*, LAST+7, LAST+8
X	AG7P5+7, AG7P5+8, AG7P5+17, AG7P5+18, AG7P5+22, AG7P5+23, AG7P5+26, SORRY~, SORRY+2, INSTALLD+4~ , INSTALLD+5, INSTALLD+9, INSTALLD+12*
>> XPDDIQ("XPZ1"	AG7P5+37*
>> XPDDIQ("XPZ2"	AG7P5+37*
>> XPDENV	AG7P5+34
>> XPDQUIT	SORRY+2*
Y	AG7P5+28, INSTALLD+4~, INSTALLD+8, INSTALLD+9, INSTALLD+11, INSTALLD+12, INSTALLD+14
>> ZTQUEUED	SORRY+3

Name	Field # of Occurrence
$T(	AG7P5+9