Routine: AG6P17

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

Package	Total	Caller Graph
IHS Patient Registration	1	AG6P17A

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 ; the name of the INSTALL. E.g "AG6.010".

Name	Field # of Occurrence
^DIC	INSTALLD+10, INSTALLD+13
IX^DIC	AG6P17+29, INSTALLD+7
$$DIR^XBDIR	AG6P17+47, SORRY+3
$$FMADD^XLFDT	OPTSAV+3
$$CJ^XLFSTR	AG6P17+10, AG6P17+11, AG6P17+20, AG6P17+25, AG6P17+31, AG6P17+32, AG6P17+33, AG6P17+45, SORRY+3, VCHK+4 , VCHK+5
$$PATCH^XPDUTL	AG6P17+19, AG6P17+24
$$VERSION^XPDUTL	VCHK+3
BMES^XPDUTL	OPTSAV+1, OPTSAV+2, OPTSAV+6

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AG6P17+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AG6P17+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AG6P17+10
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: AG6P17+11
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUPN v99.1 Patch 9 NOT INSTALLED",IOM) Line Location: AG6P17+20
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUT v98.1 Patch 12 NOT INSTALLED",IOM) Line Location: AG6P17+25
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: AG6P17+31
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: AG6P17+32
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AG6P17+33
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AG6P17+45
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: 7,!,$$CJ^XLFSTR("^^^^NEEDS FIXED*^^^^",IOM) Line Location: VCHK+5
Routine Call	DIC Line Location: INSTALLD+10 INSTALLD+13
Routine Call	DIC Line Location: AG6P17+29 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]	AG6P17+30
^VA(200 - [#200]	AG6P17+9
^XTMP("AG6P17"	OPTSAV+2, OPTSAV+3, OPTSAV+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+3, VCHK+4
AGQUIT	AG6P17+13~, AG6P17+14, AG6P17+15, AG6P17+17, AG6P17+20, AG6P17+22, AG6P17+25, AG6P17+30*, AG6P17+43, VCHK~
AGV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
AGVER	VCHK~, VCHK+4, VCHK+5
>> D	AG6P17+28, INSTALLD+6
DA	AG6P17+27~
DIC	AG6P17+27~, AG6P17+28, INSTALLD+4~, INSTALLD+6, INSTALLD+9, INSTALLD+12
DIC(0	AG6P17+28, INSTALLD+6
DIFQ	SORRY+1!
DT	OPTSAV+3
DUZ	AG6P17+5, AG6P17+9
DUZ(0	AG6P17+7
I	OPTSAV+4~, OPTSAV+5*, OPTSAV+6, OPTSAV+8
IOM	AG6P17+10, AG6P17+11, AG6P17+20, AG6P17+25, AG6P17+31, AG6P17+32, AG6P17+33, AG6P17+45, SORRY+3, VCHK+4 , VCHK+5
U	AG6P17+9, OPTSAV+3, OPTSAV+8
X	AG6P17+9, AG6P17+10, AG6P17+19, AG6P17+20, AG6P17+24, AG6P17+25, AG6P17+28, SORRY~, SORRY+2, INSTALLD+4~ , INSTALLD+5, INSTALLD+9, INSTALLD+12*
>> XPDDIQ("XPZ1"	AG6P17+39*
>> XPDDIQ("XPZ2"	AG6P17+39*
>> XPDENV	AG6P17+36
>> XPDQUIT	SORRY+2*
Y	AG6P17+30, INSTALLD+4~, INSTALLD+8, INSTALLD+9, INSTALLD+11, INSTALLD+12, INSTALLD+14
>> ZTQUEUED	SORRY+3

Name	Field # of Occurrence
$T(	AG6P17+11