Sub-Field: 9002171.02

Parent File	Name	Number	Package
CDMIS TRANS/DISC/CLOSE(#9002171)	DRUG TYPE	9002171.02	Alcohol Chemical Dependency

Parent File

Name

Number

Package

DRUG TYPE

9002171.02

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DRUG TYPE	0;1	POINTER TO CDMIS DRUG TABLE FILE (#9002170.5)	**********************REQUIRED FIELD********************** CDMIS DRUG TABLE(#9002170.5) INPUT TRANSFORM: `S DIC("S")="I $G(^(""I""))=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 17, 1993` SCREEN: `S DIC("S")="I $G(^(""I""))="""""` EXPLANATION: `INACTIVE DRUGS UNSELECTABLE` CROSS-REFERENCE: `9002171.02^B` 1)= S ^ACDTDC(DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^ACDTDC(DA(1),2,"B",$E(X,1,30),DA)

DRUG TYPE

0;1

POINTER TO CDMIS DRUG TABLE FILE (#9002170.5)

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

INPUT TRANSFORM: S DIC("S")="I $G(^(""I""))=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 17, 1993
SCREEN: S DIC("S")="I $G(^(""I""))="""""
EXPLANATION: INACTIVE DRUGS UNSELECTABLE

CROSS-REFERENCE: 9002171.02^B

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

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