ACDWVAR ;IHS/ADC/EDE/KML - CDMIS KEY VAR DICTIONARY;
;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
ACDRPTS ;Holds reports to run i.e 1,2,3-6,7,9,8
ACDPG ;Program free text name
ACDPROV ;Provider name
ACDDFN ;Patent name in external format used for printing and sorting
ACDDFNP ;Patient pointer to file ^DPT
;form taken is 1_ACD6DIG_DFN
ACDCOMC ;Component code
ACDCOMT ;Component type
ACDCONT ;Contact type
ACDAGER ;Client age range
ACDTO ;To visit date for reports
ACDFR ;From visit date for reports
ACDDA ;Internal DA passed to utilities for local file sets
ACDPROBP ;Primary problem
ACDPROBS ;Secondary problem
ACDCIT ;Client in treatment
ACDDUA ;Days used alcohol
ACDDUD ;Days used drugs
ACDDH ;Days hopitalized
ACDAAR ;Alcohol and drug related arrests
ACDSUS ;Substance stage
ACDPS ;Physical stage
ACDES ;Emotional stage
ACDSS ;Social stage
ACDCS ;Cultural stage
ACDBS ;Behavioral stage
ACDPLAR ;Recommended placement (component)
ACDPLAR1 ;Recommended placement (type)
ACDPLAA ;Actual placement (component)
ACDPLAA1 ;Actual palcement (type)
ACDDIF ;Difference reason
;
;---------------------------------------------------------
ACDH ;Report header variables
;(0)=Report name and location
;(1)=line 79 characters long
;(2)=Date range reports run for
;(3)=Page count
;(4)=Who printed report and when
;(6)="#CLIENTS" constant
;(7)="#VISITS" contant
;(8)="AVE V/C" constant
;(9)="CONTACT TYPE" constant
;(10)="ACTUAL PLACEMENT" constant
;(11)="RECOMMENDED PLACEMENT" constant
;(12)="AVE DAYS USED DRUGS" constant
;(13)="AVE DAYS USED ALCOHOL" constant
;(14)="DIFFERENCE REASON" constant
;(15)="NUMBER SERVED"
;(16)="LOCATION"
;(17)="TARGET"
;(18)="OUTCOME"
;(19)="ACTIVITY"
;(20)="COMPONENT/TYPE"
;(21)="AGE RANGE"
;(22)="AVE NS/V"
;(50)="SEARCH CRITERIA IS: "
;(51)="PRIMARY PROBLEM"
;(52)="OTHER PROBLEM"
;(53)="SEX"
;(54)="COMPONENT"
;(55)="COMPONENT/CODE TYPE"
;(56)="AVE CLIENT STAGE"
;(57)="AVE ARREST PER CLIENT"
;(58)="AVE DAYS PER CLIENT"
;(59)="UNIQ CLIENTS"
;(60)="TOTAL ARREST"
;(61)="TOTAL HOSPITAL DAYS"
;
;--------------------------------------------------
ACDP1 ;First variable subscript for report generator
ACDP2 ;Second variable subscript for report generator
ACDP3 ;Third variable subscript for report generator
ACDP4 ;Fourthy variable subscript for report generator
ACDP5 ;Fifth variable subscript for report generator
;-----------------------------------------------------------
;
ACDC ;Column header values
;(1)=First
;(2)=Second
;(3)=Third
;(4)=Fourth
;(5)=Fifth
;--------------------------------------------------------------
;
ACDTDCR ;Transfer discharge close reason
ACDDAP ;Discharge after plan
ACDGA ;Goal attainment
ACDID ;Inpatient days
ACDDTA ;Array holding drug types client are on. This way I can report which
;drugs there are no clients on for the 2 drug type reports
;This variable MUST be killed at the top of RTN ACDDIIF,ACDTDC
ACDCODR ;Array holding clients and all drugs they are on. This way I
;can determine which clients are on combination drugs
ACDCBO ;Coponent code concatenates with component type
ACDIFCNT ;Number of clients with a difference reason
ACDSCNT ;Number of clients with no difference reason
;
;------------------------------------------------------
ACDNW ;Array to hold report predefinition values
;(1)=Stop date of report
;(2)=Start date of report
;(3)=Site location
;(4)=List of various reports to run
;
;--------------------------------------
PAK ;Package wide variables
;ACDQUIT= Flag saying quit whatever
;ACDVER= Present version of software
;ACDNM = Name of software
;ACDSITE= Site name running software
;ACD6DIG= 6 digit code to identify location
;ACDUSER= Package user
;--------------------------------
ACDPRVA ;PREVENTION ACTION
ACDLOTY ;LOCATION
ACDTRG ;TARGET
ACDNUMR ;NUMBER REACHED
ACDOUTC ;OUTCOME
ACDAY ;DAY OF PREVENTION
ACDPRVC ;PREVENTION ACTIVITY CODE
ACD6DIG ;6digit asufac of the CDMIS SIGN ON USERS SITE
ACDAUF ;6digit not for user but as location of the cdmis record
ACDCLIV ;.01 of record i.e printable date
ACDFAC ;Array holding 6 digit codes if reports run by facility.
ACDAREA ;Array holding 2 digit code if reports run by area.
ACDSU ;Array holding 4 digit code if report run by service unit.
ACDPT ;Array ACDPT(DFN) is used by the client detail reports to specify
;showing only certain selected patients. The DFN takes the form
;1_ACD6DIG_DFN
ACDP ;(1),(2),(3) array to pass the file number, field number, and set of
;code value into routine ^ACDFUNC to convert the internal code to
;a external format
ACDPT1 ;Array ACDPT1(DFN) is used by the client service visit duplication
;routine ^ACDAUTO1 and holds the names of patients to duplicate
;the original client visit for.
ACDPTA ;Array holding the visit problem types for 'other problems'. The
;primary problem field has not changed.
ACDWVAR ;IHS/ADC/EDE/KML - CDMIS KEY VAR DICTIONARY;
+1 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
ACDRPTS ;Holds reports to run i.e 1,2,3-6,7,9,8
ACDPG ;Program free text name
ACDPROV ;Provider name
ACDDFN ;Patent name in external format used for printing and sorting
ACDDFNP ;Patient pointer to file ^DPT
+1 ;form taken is 1_ACD6DIG_DFN
ACDCOMC ;Component code
ACDCOMT ;Component type
ACDCONT ;Contact type
ACDAGER ;Client age range
ACDTO ;To visit date for reports
ACDFR ;From visit date for reports
ACDDA ;Internal DA passed to utilities for local file sets
ACDPROBP ;Primary problem
ACDPROBS ;Secondary problem
ACDCIT ;Client in treatment
ACDDUA ;Days used alcohol
ACDDUD ;Days used drugs
ACDDH ;Days hopitalized
ACDAAR ;Alcohol and drug related arrests
ACDSUS ;Substance stage
ACDPS ;Physical stage
ACDES ;Emotional stage
ACDSS ;Social stage
ACDCS ;Cultural stage
ACDBS ;Behavioral stage
ACDPLAR ;Recommended placement (component)
ACDPLAR1 ;Recommended placement (type)
ACDPLAA ;Actual placement (component)
ACDPLAA1 ;Actual palcement (type)
ACDDIF ;Difference reason
+1 ;
+2 ;---------------------------------------------------------
ACDH ;Report header variables
+1 ;(0)=Report name and location
+2 ;(1)=line 79 characters long
+3 ;(2)=Date range reports run for
+4 ;(3)=Page count
+5 ;(4)=Who printed report and when
+6 ;(6)="#CLIENTS" constant
+7 ;(7)="#VISITS" contant
+8 ;(8)="AVE V/C" constant
+9 ;(9)="CONTACT TYPE" constant
+10 ;(10)="ACTUAL PLACEMENT" constant
+11 ;(11)="RECOMMENDED PLACEMENT" constant
+12 ;(12)="AVE DAYS USED DRUGS" constant
+13 ;(13)="AVE DAYS USED ALCOHOL" constant
+14 ;(14)="DIFFERENCE REASON" constant
+15 ;(15)="NUMBER SERVED"
+16 ;(16)="LOCATION"
+17 ;(17)="TARGET"
+18 ;(18)="OUTCOME"
+19 ;(19)="ACTIVITY"
+20 ;(20)="COMPONENT/TYPE"
+21 ;(21)="AGE RANGE"
+22 ;(22)="AVE NS/V"
+23 ;(50)="SEARCH CRITERIA IS: "
+24 ;(51)="PRIMARY PROBLEM"
+25 ;(52)="OTHER PROBLEM"
+26 ;(53)="SEX"
+27 ;(54)="COMPONENT"
+28 ;(55)="COMPONENT/CODE TYPE"
+29 ;(56)="AVE CLIENT STAGE"
+30 ;(57)="AVE ARREST PER CLIENT"
+31 ;(58)="AVE DAYS PER CLIENT"
+32 ;(59)="UNIQ CLIENTS"
+33 ;(60)="TOTAL ARREST"
+34 ;(61)="TOTAL HOSPITAL DAYS"
+35 ;
+36 ;--------------------------------------------------
ACDP1 ;First variable subscript for report generator
ACDP2 ;Second variable subscript for report generator
ACDP3 ;Third variable subscript for report generator
ACDP4 ;Fourthy variable subscript for report generator
ACDP5 ;Fifth variable subscript for report generator
+1 ;-----------------------------------------------------------
+2 ;
ACDC ;Column header values
+1 ;(1)=First
+2 ;(2)=Second
+3 ;(3)=Third
+4 ;(4)=Fourth
+5 ;(5)=Fifth
+6 ;--------------------------------------------------------------
+7 ;
ACDTDCR ;Transfer discharge close reason
ACDDAP ;Discharge after plan
ACDGA ;Goal attainment
ACDID ;Inpatient days
ACDDTA ;Array holding drug types client are on. This way I can report which
+1 ;drugs there are no clients on for the 2 drug type reports
+2 ;This variable MUST be killed at the top of RTN ACDDIIF,ACDTDC
ACDCODR ;Array holding clients and all drugs they are on. This way I
+1 ;can determine which clients are on combination drugs
ACDCBO ;Coponent code concatenates with component type
ACDIFCNT ;Number of clients with a difference reason
ACDSCNT ;Number of clients with no difference reason
+1 ;
+2 ;------------------------------------------------------
ACDNW ;Array to hold report predefinition values
+1 ;(1)=Stop date of report
+2 ;(2)=Start date of report
+3 ;(3)=Site location
+4 ;(4)=List of various reports to run
+5 ;
+6 ;--------------------------------------
PAK ;Package wide variables
+1 ;ACDQUIT= Flag saying quit whatever
+2 ;ACDVER= Present version of software
+3 ;ACDNM = Name of software
+4 ;ACDSITE= Site name running software
+5 ;ACD6DIG= 6 digit code to identify location
+6 ;ACDUSER= Package user
+7 ;--------------------------------
ACDPRVA ;PREVENTION ACTION
ACDLOTY ;LOCATION
ACDTRG ;TARGET
ACDNUMR ;NUMBER REACHED
ACDOUTC ;OUTCOME
ACDAY ;DAY OF PREVENTION
ACDPRVC ;PREVENTION ACTIVITY CODE
ACD6DIG ;6digit asufac of the CDMIS SIGN ON USERS SITE
ACDAUF ;6digit not for user but as location of the cdmis record
ACDCLIV ;.01 of record i.e printable date
ACDFAC ;Array holding 6 digit codes if reports run by facility.
ACDAREA ;Array holding 2 digit code if reports run by area.
ACDSU ;Array holding 4 digit code if report run by service unit.
ACDPT ;Array ACDPT(DFN) is used by the client detail reports to specify
+1 ;showing only certain selected patients. The DFN takes the form
+2 ;1_ACD6DIG_DFN
ACDP ;(1),(2),(3) array to pass the file number, field number, and set of
+1 ;code value into routine ^ACDFUNC to convert the internal code to
+2 ;a external format
ACDPT1 ;Array ACDPT1(DFN) is used by the client service visit duplication
+1 ;routine ^ACDAUTO1 and holds the names of patients to duplicate
+2 ;the original client visit for.
ACDPTA ;Array holding the visit problem types for 'other problems'. The
+1 ;primary problem field has not changed.