Routine: AG71EN3

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

Package

Total

Call Graph

Kernel

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

IHS VA Utilities

$$DIR^XBDIR

VA Fileman

(,IX)^DIC

Name	Comments	DBIA/ICR reference
CONT	;EP
VCHK(AGPRE,AGVER,AGQUIT)	;Check versions needed.
PATCH(X)	;return 1 if patch X was installed, X=aaaann.nnnnnn
OPTSAV(AGM)	;
SORRY(X)	;
INSTALLD(AGINSTAL)	;EP - Determine if patch AGINSTAL was installed, where AGINSTAL is

External References

Name	Field # of Occurrence
^DIC	INSTALLD+10, INSTALLD+13
IX^DIC	CONT+20, INSTALLD+7
$$DIR^XBDIR	CONT+37, SORRY+3
$$FMADD^XLFDT	OPTSAV+3
$$CJ^XLFSTR	AG71EN3+8, AG71EN3+9, AG71EN3+15, AG71EN3+16, AG71EN3+18, CONT+6, CONT+11, CONT+16, CONT+22, CONT+23 , CONT+24, CONT+35, SORRY+3, VCHK+3, VCHK+4
$$LAST^XPDUTL	CONT+3, CONT+5, CONT+10
$$VERSION^XPDUTL	AG71EN3+18, VCHK+2
BMES^XPDUTL	OPTSAV+1, OPTSAV+2, OPTSAV+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AG71EN3+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AG71EN3+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AG71EN3+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_$S($P($T(+2),";",5)="":"",1:" Patch "_$P($T(+2),";",5)_"."),IOM),! Line Location: AG71EN3+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least Kernel patch 1009....patch 1009 NOT INSTALLED",IOM) Line Location: AG71EN3+15
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least Kernel patch 1012....patch 1012 Present",IOM) Line Location: AG71EN3+16
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Version 7.1 Present",IOM) Line Location: AG71EN3+18
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUPN v99.1 Patch 17 NOT INSTALLED",IOM) Line Location: CONT+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUT v98.1 Patch 20 NOT INSTALLED",IOM) Line Location: CONT+11
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: CONT+22
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: CONT+23
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: CONT+24
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: CONT+35
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("^^^^NEED TO UPGRADE*^^^^",IOM) Line Location: VCHK+4
Routine Call	DIC Line Location: INSTALLD+10 INSTALLD+13
Routine Call	DIC Line Location: CONT+20 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]	CONT+21, PATCH+3, PATCH+4, PATCH+6, PATCH+7
^VA(200 - [#200]	AG71EN3+7
^XTMP("AG71"	OPTSAV+2, OPTSAV+3, OPTSAV+8

Name	Line Occurrences
$$INSTALLD	CONT+15
$$PATCH	AG71EN3+15
$$VCHK	AG71EN3+19, CONT+1, CONT+8, CONT+13
CONT	AG71EN3+18
OPTSAV	CONT+30
SORRY	AG71EN3+3, AG71EN3+5, AG71EN3+15, CONT+33, CONT+37

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PATCH+2~, PATCH+7*, PATCH+8
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	AG71EN3+11~, AG71EN3+12, AG71EN3+19, CONT+1, CONT+6, CONT+8, CONT+11, CONT+13, CONT+16, CONT+21* , CONT+33, VCHK~
AGV	VCHK+1~, VCHK+2*, VCHK+3, VCHK+4
AGVER	VCHK~, VCHK+3, VCHK+4
>> D	CONT+19, INSTALLD+6
DA	CONT+18~
DIC	CONT+18~, CONT+19, INSTALLD+4~, INSTALLD+6, INSTALLD+9, INSTALLD+12
DIC(0	CONT+19, INSTALLD+6
DIFQ	SORRY+1!
DT	OPTSAV+3
DUZ	AG71EN3+3, AG71EN3+7
DUZ(0	AG71EN3+5
I	OPTSAV+4~, OPTSAV+5, OPTSAV+6, OPTSAV+8, PATCH+2~, PATCH+3, PATCH+4, PATCH+6, PATCH+7
IOM	AG71EN3+8, AG71EN3+9, AG71EN3+15, AG71EN3+16, AG71EN3+18, CONT+6, CONT+11, CONT+16, CONT+22, CONT+23 , CONT+24, CONT+35, SORRY+3, VCHK+3, VCHK+4
J	PATCH+2~, PATCH+4*, PATCH+6, PATCH+7
U	AG71EN3+7, CONT+6, CONT+11, OPTSAV+3, OPTSAV+8
X	AG71EN3+7, AG71EN3+8, CONT+3, CONT+5, CONT+6, CONT+10, CONT+11, CONT+19, SORRY~, SORRY+2 , INSTALLD+4~, INSTALLD+5, INSTALLD+9, INSTALLD+12, PATCH~, PATCH+1, PATCH+3, PATCH+4*, PATCH+6, PATCH+7 , PATCH+8
>> XPDDIQ("XPZ1"	CONT+29*
>> XPDDIQ("XPZ2"	CONT+29*
>> XPDENV	CONT+26
>> XPDQUIT	SORRY+2*
Y	CONT+21, INSTALLD+4~, INSTALLD+8, INSTALLD+9, INSTALLD+11, INSTALLD+12, INSTALLD+14
>> ZTQUEUED	SORRY+3

Customize PDF page

Package: IHS Patient Registration

Routine: AG71EN3

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items