Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACDENVCK

Package: Alcohol Chemical Dependency

Routine: ACDENVCK


Information

ACDENVCK ;IHS/ADC/EDE/KML - ENVIRONMENT CHECK ROUTINE FOR V4.1;

Source Information

Source file <ACDENVCK.m>

Call Graph

Call Graph Total: 6

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

Marked Items

Name Field # of Occurrence
$T(CONVERR+E CONVERT+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All