Routine: ACPTENVC

Package	Total	Call Graph
Kernel	3	$$LIST^%ZISH $$CJ^XLFSTR $$VERSION^XPDUTL
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	(,IX)^DIC

Entry Points

Name	Comments	DBIA/ICR reference
INSTALLD(ACPTINST)	;EP - Determine if patch ACPTINST was installed, where ACPTINST is ; the name of the INSTALL. E.g "AG6.010".
VCHK(ACPTPRE,ACPTVER,ACPTQUIT)	; Check versions needed. ;
SORRY(X)	;
POST1(ACPTDIR)	; input transform for KIDS question POST1
LAST(PKG,VER)	;EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released

External References

Name	Field # of Occurrence
$$LIST^%ZISH	POST1+26, POST1+68
^DIC	INSTALLD+10, INSTALLD+13
IX^DIC	ACPTENVC+19, INSTALLD+7
$$DIR^XBDIR	ACPTENVC+30, SORRY+3
$$CJ^XLFSTR	ACPTENVC+8, ACPTENVC+9, ACPTENVC+21, ACPTENVC+22, ACPTENVC+23, ACPTENVC+28, SORRY+3, VCHK+4, VCHK+5
$$VERSION^XPDUTL	VCHK+3, LAST+3, POST1+29, POST1+35, POST1+44

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: ACPTENVC+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: ACPTENVC+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ACPTENVC+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: ACPTENVC+9
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""ACPT"" prefix.",IOM) Line Location: ACPTENVC+21
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: ACPTENVC+22
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: ACPTENVC+23
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: ACPTENVC+28
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_ACPTPRE_" v "_ACPTVER_"....."_ACPTPRE_" v "_ACPTV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: 7,!,$$CJ^XLFSTR("^^^^NEEDS FIXED*^^^^",IOM) Line Location: VCHK+5
Function Call: WRITE	Prompt: !!,"Checking directory ",ACPTDIR,"..." Line Location: POST1+16
Routine Call	DIC Line Location: INSTALLD+10 INSTALLD+13
Routine Call	DIC Line Location: ACPTENVC+19 INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	ACPTENVC+20, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^VA(200 - [#200]	ACPTENVC+7

Label References

Name	Line Occurrences
$$VCHK	ACPTENVC+12, ACPTENVC+13, ACPTENVC+14, ACPTENVC+15
SORRY	ACPTENVC+3, ACPTENVC+5, ACPTENVC+26, ACPTENVC+30

Naked Globals

Name	Field # of Occurrence
^(0	LAST+8, LAST+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACPTDIR	POST1~, POST1+6, POST1+7, POST1+8, POST1+11, POST1+12, POST1+13, POST1+14, POST1+16, POST1+26 , POST1+30, POST1+31, POST1+32, POST1+33, POST1+34, POST1+36, POST1+37, POST1+45, POST1+47, POST1+49 , POST1+52, POST1+54, POST1+63, POST1+68, POST1+69, POST1+74!
ACPTF	POST1+70~*, POST1+71
ACPTFILE	POST1+20~, POST1+66~
ACPTFILE("*"	POST1+66*
ACPTFILE("acpt2010.9d"	POST1+23*
ACPTFILE("acpt2010.9h"	POST1+22*
ACPTFILE("acpt2010.9l"	POST1+21*
ACPTFILE("acpt2010.d"	POST1+25*
ACPTFILE("acpt2010.l"	POST1+24*
ACPTFIND	POST1+18~, POST1+27, POST1+38, POST1+57, POST1+61
ACPTFIND(	POST1+30, POST1+31, POST1+32, POST1+33, POST1+34, POST1+36, POST1+37, POST1+45, POST1+47, POST1+49 , POST1+52, POST1+54
ACPTFIND("acpt2010.9d"	POST1+32, POST1+47
ACPTFIND("acpt2010.9h"	POST1+31, POST1+49
ACPTFIND("acpt2010.9l"	POST1+30, POST1+45
ACPTFIND("acpt2010.d"	POST1+34, POST1+37, POST1+54
ACPTFIND("acpt2010.l"	POST1+33, POST1+36, POST1+52
ACPTINST	INSTALLD~, INSTALLD+5, INSTALLD+9, INSTALLD+12
ACPTLIST	POST1+67~
ACPTLIST(	POST1+70
ACPTPRE	VCHK~, VCHK+3, VCHK+4
ACPTQUIT	ACPTENVC+11, VCHK~, VCHK+5, POST1+28!, POST1+29, POST1+30, POST1+31, POST1+32, POST1+33, POST1+34 , POST1+35, POST1+36, POST1+37, POST1+38
ACPTV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ACPTVER	VCHK~, VCHK+4, VCHK+5
>> D	ACPTENVC+18, INSTALLD+6
DA	ACPTENVC+17~
DIC	ACPTENVC+17~, ACPTENVC+18, INSTALLD+4~, INSTALLD+6, INSTALLD+9, INSTALLD+12
DIC(0	ACPTENVC+18, INSTALLD+6
DIFQ	SORRY+1!
DUZ	ACPTENVC+3, ACPTENVC+7
DUZ(0	ACPTENVC+5
IOM	ACPTENVC+8, ACPTENVC+9, ACPTENVC+21, ACPTENVC+22, ACPTENVC+23, ACPTENVC+28, SORRY+3, VCHK+4, VCHK+5
LATEST	LAST+2~, LAST+6, LAST+8, LAST+9, LAST+10
PATCH	LAST+2~, LAST+6, LAST+8, LAST+9*, LAST+10
PKG	LAST~, LAST+3, LAST+4
PKGIEN	LAST+2~, LAST+4*, LAST+5, LAST+7, LAST+8, LAST+9
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8, LAST+9
U	ACPTENVC+7, LAST+8, LAST+9, LAST+10
VER	LAST~, LAST+3*, LAST+5
VERIEN	LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+9
X	ACPTENVC+7, ACPTENVC+8, ACPTENVC+18, SORRY~, SORRY+2, INSTALLD+4~, INSTALLD+5, INSTALLD+9, INSTALLD+12*
>> XPDQUIT	ACPTENVC+11, ACPTENVC+15, ACPTENVC+20, ACPTENVC+26, SORRY+2, VCHK+5*
Y	ACPTENVC+20, INSTALLD+4~, INSTALLD+8, INSTALLD+9, INSTALLD+11, INSTALLD+12, INSTALLD+14, POST1+26~, POST1+68~
>> ZTQUEUED	SORRY+3

Marked Items

Customize PDF page

Package: CPT Files

Routine: ACPTENVC

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

Naked Globals

Local Variables

Legend:

Marked Items