Routine: AG7P2

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

Package	Total	Caller Graph
IHS Patient Registration	2	AG7P2 AG7P2A

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".
LAST(PKG,VER)	;returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released

Name	Field # of Occurrence
$$LAST^AG7P2	AG7P2+19, AG7P2+25
^DIC	INSTALLD+10, INSTALLD+13
IX^DIC	AG7P2+30, INSTALLD+7
$$DIR^XBDIR	AG7P2+48, SORRY+3
$$FMADD^XLFDT	OPTSAV+3
$$CJ^XLFSTR	AG7P2+9, AG7P2+10, AG7P2+20, AG7P2+26, AG7P2+32, AG7P2+33, AG7P2+34, AG7P2+46, SORRY+3, VCHK+4 , VCHK+5
$$VERSION^XPDUTL	VCHK+3, LAST+3
BMES^XPDUTL	OPTSAV+1, OPTSAV+2, OPTSAV+6

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AG7P2+4
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AG7P2+6
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AG7P2+9
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: AG7P2+10
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUPN v99.1 Patch 12 NOT INSTALLED",IOM) Line Location: AG7P2+20
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUT v98.1 Patch 13 NOT INSTALLED",IOM) Line Location: AG7P2+26
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: AG7P2+32
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: AG7P2+33
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AG7P2+34
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AG7P2+46
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: AG7P2+30 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]	AG7P2+31, LAST+4, LAST+5, LAST+7, LAST+8
^VA(200 - [#200]	AG7P2+8
^XTMP("AG7P2"	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+3, VCHK+4
AGQUIT	AG7P2+12~, AG7P2+13, AG7P2+14, AG7P2+16, AG7P2+20, AG7P2+22, AG7P2+26, AG7P2+31*, AG7P2+44, VCHK~
AGV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
AGVER	VCHK~, VCHK+4, VCHK+5
>> D	AG7P2+29, INSTALLD+6
DA	AG7P2+28~
DIC	AG7P2+28~, AG7P2+29, INSTALLD+4~, INSTALLD+6, INSTALLD+9, INSTALLD+12
DIC(0	AG7P2+29, INSTALLD+6
DIFQ	SORRY+1!
DT	OPTSAV+3
DUZ	AG7P2+4, AG7P2+8
DUZ(0	AG7P2+6
I	OPTSAV+4~, OPTSAV+5*, OPTSAV+6, OPTSAV+8
IOM	AG7P2+9, AG7P2+10, AG7P2+20, AG7P2+26, AG7P2+32, AG7P2+33, AG7P2+34, AG7P2+46, SORRY+3, VCHK+4 , VCHK+5
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	AG7P2+8, AG7P2+20, AG7P2+26, OPTSAV+3, OPTSAV+8, LAST+8, LAST+9
VER	LAST~, LAST+3*, LAST+5
VERIEN	LAST+2~, LAST+5*, LAST+7, LAST+8
X	AG7P2+8, AG7P2+9, AG7P2+19, AG7P2+20, AG7P2+25, AG7P2+26, AG7P2+29, SORRY~, SORRY+2, INSTALLD+4~ , INSTALLD+5, INSTALLD+9, INSTALLD+12*
>> XPDDIQ("XPZ1"	AG7P2+40*
>> XPDDIQ("XPZ2"	AG7P2+40*
>> XPDENV	AG7P2+37
>> XPDQUIT	SORRY+2*
Y	AG7P2+31, INSTALLD+4~, INSTALLD+8, INSTALLD+9, INSTALLD+11, INSTALLD+12, INSTALLD+14
>> ZTQUEUED	SORRY+3

Name	Field # of Occurrence
$T(	AG7P2+10