Routine: ACDENVCK

Package	Total	Call Graph
Kernel	2	$$LGR^%ZOSV ^XUP
Alcohol Chemical Dependency	1	^ACDPCCLC
IHS VA Support Files	1	EN^AVAPCHK
IHS VA Utilities	1	^XBKVAR
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PCCCHK	; CHECK FOR PCC ENVIRONMENT
CONVERT	; CONVERT FILE 6 POINTER TO FILE 200 POINTER
FILE200	; CHECK FOR FILES 6/200 CONVERSION
XUP	; DO ^XUP
CHK70P7	; CHECK FILE 9002170.7
SERVICE	; check for OTH service
EOJ	;
CHK73P5	; CHECK FILE 9002173.5
CHKPRV	; CHECK FILE 3, 6, 16, 200
CHKACDF	; CHECK CDMIS FIELDS
CONVERR	; ERROR DESCRIPTIONS
CHK72P1	; CHECK FILE 9002172.1
LOCATION	; check for SCHOOL location
CHK72	; CHECK FILE 9002172
START2	;
STOP	; STOP THE INSTALL
START	; ; kill off gbl left by v4.0 post-init
DUZ	; GET CORRECT DUZ VALUES
VERSION	; CHECK FOR VERSION 4.0
VIRGIN	; CHECK FOR VIRGIN INSTALL
COMPONEN	; check for DROP IN CENTER component
CONVERT2	;
CHK72P7	; CHECK FILE 9002172.7
MAIN	;
INIT2	; INITIALIZATION

External References

Name	Field # of Occurrence
$$LGR^%ZOSV	CONVERT+2
^ACDPCCLC	PCCCHK+1
EN^AVAPCHK	CHKPRV+3
^DIR	START+25, VERSION+7, VERSION+19
^XBKVAR	START+3
^XUP	XUP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Beginning ENVIRONMENTAL CHECK routine." Line Location: START+5
Function Call: WRITE	Prompt: !!,"This initialization will delete all data from your CDMIS PROGRAM" Line Location: START+21
Function Call: WRITE	Prompt: !,"file except the site name. If you have data in that file that you" Line Location: START+22
Function Call: WRITE	Prompt: !,"don't want to lose do not continue with this install." Line Location: START+23
Function Call: WRITE	Prompt: ! Line Location: START+24
Function Call: WRITE	Prompt: !!,"DUZ is not set. I am going to do ^XUP. You must enter your ACCESS Code but" Line Location: DUZ+3
Function Call: WRITE	Prompt: !,"just press RETURN to the Select OPTION NAME: prompt.",! Line Location: DUZ+4
Function Call: WRITE	Prompt: !,"DUZ is still not set." Line Location: DUZ+7
Function Call: WRITE	Prompt: !!,"You must have programmer access to run this install.",! Line Location: DUZ+8
Function Call: WRITE	Prompt: !,"VIRGIN install. No further checking necessary." Line Location: VIRGIN+5
Function Call: WRITE	Prompt: ! Line Location: VERSION+6
Function Call: WRITE	Prompt: !!,"Terminating install.",! Line Location: VERSION+9
Function Call: WRITE	Prompt: !!,"The current version is ",ACDVER Line Location: VERSION+12
Function Call: WRITE	Prompt: !,"You must install version 4.0 before you upgrade to version 4.1" Line Location: VERSION+13
Function Call: WRITE	Prompt: !!,"Terminating install.",! Line Location: VERSION+14
Function Call: WRITE	Prompt: !!,"The current version is ",ACDVER Line Location: VERSION+17
Function Call: WRITE	Prompt: !,"You must install version 4.0 before you upgrade to version 4.1" Line Location: VERSION+18
Function Call: WRITE	Prompt: !!,"Terminating install.",! Line Location: VERSION+21
Function Call: WRITE	Prompt: !!,"There is no 'OTH' entry in your CDMIS SERVICE file." Line Location: SERVICE+3
Function Call: WRITE	Prompt: !!,"There is no 'SCHOOL' entry in your CDMIS LOCATION file." Line Location: LOCATION+3
Function Call: WRITE	Prompt: !!,"There is no 'DROP IN CENTER' entry in your CDMIS COMPONENT file." Line Location: COMPONEN+3
Function Call: WRITE	Prompt: !!,"Terminating this install.",!! Line Location: STOP+1
Function Call: WRITE	Prompt: !,"File 6 to file 200 conversion already done.",! Line Location: INIT2+3
Function Call: WRITE	Prompt: !!,"^AVAPCHK routine missing!",! Line Location: INIT2+7
Function Call: WRITE	Prompt: !!,"I am going to make sure your USER, PROVIDER, PERSON,",!," and NEW PERSON files are in sync. Please wait.",! Line Location: CHKPRV+2
Function Call: WRITE	Prompt: !,"Files not in sync. Do RESULTS^AVAPCHK to see errors and fix",!," before trying this install again.",! Line Location: CHKPRV+4
Function Call: WRITE	Prompt: !,"I am now going to make sure your CDMIS provider pointers",!," are all convertible. Please wait.",! Line Location: CHKACDF+1
Function Call: WRITE	Prompt: !,"Some provider pointers are not convertible. Fix errors before",!," trying this install again.",! Line Location: CHKACDF+7
Function Call: WRITE	Prompt: !,"Checking file 9002170.7",! Line Location: CHK70P7+1
Function Call: WRITE	Prompt: !,"Checking file 9002172",! Line Location: CHK72+1
Function Call: WRITE	Prompt: !,"Checking file 9002172.1",! Line Location: CHK72P1+1
Function Call: WRITE	Prompt: !,"Checking file 9002172.7",! Line Location: CHK72P7+1
Function Call: WRITE	Prompt: !,"Checking file 9002173.5",! Line Location: CHK73P5+1
Function Call: WRITE	Prompt: ACDZR,!," "_$P($T(CONVERR+E),";;",2),!," "_M,! Line Location: CONVERT+5
Routine Call	DIR Line Location: START+25 VERSION+7 VERSION+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	INIT2+6
^ACDCNV("B"	INIT2+2
^ACDCOMP("B"	COMPONEN+2
^ACDCS - [#9002172]	CHK72+4, CHK72+6, CHK72+7
^ACDCSCS - [#9002172.7]	CHK72P7+4, CHK72P7+6, CHK72P7+8, CHK72P7+9
^ACDINTV - [#9002173.5]	CHK73P5+4, CHK73P5+6, CHK73P5+7
^ACDLOT("C"	LOCATION+2
^ACDPD - [#9002170.7]	CHK70P7+4, CHK70P7+5, CHK70P7+8, CHK70P7+10, CHK70P7+11
^ACDSERV("C"	SERVICE+2
^ACDTEMP	START+2!
^ACDVIS - [#9002172.1]	CHK72P1+3, CHK72P1+4
^AVA("OK"	CHKPRV+4
^DIC(16 - [#16]	CONVERT2+4, CONVERT2+5, CONVERT2+6
^DIC(6 - [#6]	CONVERT2+3
^DIC(9.4 - [#9.4]	VIRGIN+4, VERSION+1, VERSION+4
^TMP("ACD"	VIRGIN+2!, VIRGIN+3*, VIRGIN+6!
^VA(200 - [#200]	CONVERT2+9

Label References

Name	Line Occurrences
CHK70P7	CHKACDF+2
CHK72	CHKACDF+3
CHK72P1	CHKACDF+4
CHK72P7	CHKACDF+5
CHK73P5	CHKACDF+6
CHKACDF	MAIN+3
CHKPRV	MAIN+1
COMPONEN	START+18
CONVERT	CHK70P7+6, CHK70P7+13, CHK72+9, CHK72P1+6, CHK72P7+11, CHK73P5+9
CONVERT2	CONVERT+3
DUZ	START+6
EOJ	START+7, START+9, START+11, START+13, START+15, START+17, START+19, START+26, START+27
FILE200	START+10
INIT2	START2+1
LOCATION	START+16
MAIN	START2+3
PCCCHK	START+20
SERVICE	START+14
STOP	START+7, START+11, START+13, START+15, START+17, START+19, START+26
VERSION	START+12
VIRGIN	START+8
XUP	DUZ+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACDBAD	START2+2, START2+4, START2+5!, INIT2+1, INIT2+7, CHKPRV+4, CHKACDF+7, CONVERT+6
ACDQ	START+4, START+7, START+9, START+11, START+13, START+15, START+17, START+19, DUZ+1, DUZ+9* , XUP+1~, VIRGIN+1, VIRGIN+7, VERSION+3, VERSION+8, VERSION+20, VERSION+23, SERVICE+1, SERVICE+4, LOCATION+1* , LOCATION+4, COMPONEN+1, COMPONEN+4, EOJ+1!, START2+2, START2+4, INIT2+1, INIT2+2, INIT2+7, MAIN+2 , MAIN+4, CHKPRV+1, CHKPRV+5
ACDVER	VERSION+4*, VERSION+5, VERSION+11, VERSION+12, VERSION+16, VERSION+17, EOJ+1!
ACDZR	CONVERT+1~, CONVERT+2*, CONVERT+5
D0	CHK70P7+2~, CHK70P7+3, CHK70P7+4, CHK70P7+5, CHK70P7+8, CHK70P7+10, CHK70P7+11, CHK72+2~, CHK72+3, CHK72+4 , CHK72+6, CHK72+7, CHK72P1+2, CHK72P1+3, CHK72P1+4, CHK72P7+2~, CHK72P7+3, CHK72P7+4, CHK72P7+6, CHK72P7+8 , CHK72P7+9, CHK73P5+2~, CHK73P5+3, CHK73P5+4, CHK73P5+6, CHK73P5+7
D1	CHK70P7+2~, CHK70P7+7, CHK70P7+8, CHK70P7+10, CHK70P7+11, CHK72+2~, CHK72+5, CHK72+6, CHK72+7, CHK72P7+2~ , CHK72P7+5, CHK72P7+6, CHK72P7+8, CHK72P7+9, CHK73P5+2~, CHK73P5+5, CHK73P5+6, CHK73P5+7
D2	CHK70P7+2~, CHK70P7+9, CHK70P7+10, CHK70P7+11, CHK72P7+2~, CHK72P7+7, CHK72P7+8, CHK72P7+9
DA	START+25!, VERSION+7!, VERSION+19!
DIFQ	XUP+1~, STOP+2!
DIR	START+25!, VERSION+7!, VERSION+19!
DIR("A"	START+25, VERSION+7, VERSION+19*
DIR("B"	START+25, VERSION+7, VERSION+19*
DIR(0	START+25, VERSION+7, VERSION+19*
DUZ	DUZ+2, DUZ+7
DUZ(0	DUZ+8
E	CONVERT+1~, CONVERT+4, CONVERT2+1, CONVERT2+3, CONVERT2+4, CONVERT2+5, CONVERT2+7, CONVERT2+9
M	CONVERT+1~, CONVERT+5, CONVERT2+2, CONVERT2+8
U	CHK70P7+5, CHK70P7+11, CHK72+7, CHK72P1+4, CHK72P7+9, CHK73P5+7
X	INIT2+5, CONVERT+1~, CONVERT2+6, CONVERT2+7, CONVERT2+8, CONVERT2+9
>> Y	START+26, VIRGIN+4, VIRGIN+5, VERSION+1, VERSION+2, VERSION+4, VERSION+8, VERSION+20, SERVICE+2, SERVICE+3 , LOCATION+2, LOCATION+3, COMPONEN+2, COMPONEN+3, CHK70P7+5, CHK70P7+6, CHK70P7+11, CHK70P7+12, CHK72+7, CHK72+8 , CHK72P1+4, CHK72P1+5, CHK72P7+9, CHK72P7+10, CHK73P5+7*, CHK73P5+8, CONVERT2+2, CONVERT2+3, CONVERT2+4, CONVERT2+5 , CONVERT2+6

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDENVCK

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items