Routine: AG7P1

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

Call Graph

$$FMADD^XLFDT $$CJ^XLFSTR ($$PATCH,$$VERSION,BMES)^XPDUTL

$$DIR^XBDIR

(,IX)^DIC

Package	Total	Caller Graph
IHS Patient Registration	1	AG7P1A

Package

Total

Caller Graph

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

Information