Sub-Field: 200.55

Parent File	Name	Number	Package
NEW PERSON(#200)	STATE ISSUING DEA NUMBER	200.55	Kernel

Parent File

Name

Number

Package

STATE ISSUING DEA NUMBER

200.55

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	STATE ISSUING DEA NUMBER	0;1	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `OCT 22, 1989` HELP-PROMPT: `Enter the state which has issued its DEA number.` GROUP: `PS` CROSS-REFERENCE: `200.55^B` 1)= S ^VA(200,DA(1),"PS2","B",$E(X,1,30),DA)="" 2)= K ^VA(200,DA(1),"PS2","B",$E(X,1,30),DA)
1	STATE DEA NUMBER	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 22, 1989` HELP-PROMPT: `Enter the DEA number issued by this state.` GROUP: `PS`

STATE ISSUING DEA NUMBER

0;1

POINTER TO STATE FILE (#5)

CROSS-REFERENCE: 200.55^B

1)= S ^VA(200,DA(1),"PS2","B",$E(X,1,30),DA)=""

2)= K ^VA(200,DA(1),"PS2","B",$E(X,1,30),DA)

STATE DEA NUMBER

0;2

FREE TEXT

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