Global: ^ACDDRUG

FileMan FileNo	FileMan Filename	Package
9002170.5	CDMIS DRUG TABLE	Alcohol Chemical Dependency

Directly Accessed By Routines, Total: 7

Package	Total	Routines
Alcohol Chemical Dependency	7	ACD4P1P ACDFLAT3 ACDRLU2 ACDRR1PB ACDWIIF ACDWRP5 ACDWTDC

Package	Total	Routines
Alcohol Chemical Dependency	1	ACD4P1P

Package	Total	FileMan Files
Alcohol Chemical Dependency	2	CDMIS INIT/INFO/FU(#9002170)[#9002170.05(.01)] CDMIS TRANS/DISC/CLOSE(#9002171)[#9002171.02(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DRUG	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X K X` LAST EDITED: `SEP 10, 1997` HELP-PROMPT: `Answer must be 3-30 characters in length.` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002170.5^B` 1)= S ^ACDDRUG("B",$E(X,1,30),DA)="" 2)= K ^ACDDRUG("B",$E(X,1,30),DA)
1	DRUG CODE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X Q:'$D(X) K:$L(X)>2!($L(X)<1) X K X` LAST EDITED: `SEP 10, 1997` HELP-PROMPT: `Answer must be 1-2 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002170.5^C` 1)= S ^ACDDRUG("C",$E(X,1,30),DA)="" 2)= K ^ACDDRUG("C",$E(X,1,30),DA)

DRUG

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002170.5^B

1)= S ^ACDDRUG("B",$E(X,1,30),DA)=""

2)= K ^ACDDRUG("B",$E(X,1,30),DA)

DRUG CODE

0;2

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002170.5^C

1)= S ^ACDDRUG("C",$E(X,1,30),DA)=""

2)= K ^ACDDRUG("C",$E(X,1,30),DA)