Sub-Field: 200.5321

Parent File	Name	Number	Package
NEW PERSON(#200)	NEW DEA #'S	200.5321	Kernel

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DEA NUMBER	0;1	FREE TEXT	INPUT TRANSFORM: `K:'$$VALN1DEA^XUSER3(X) X` `MAXIMUM LENGTH: 30` LAST EDITED: `MAY 07, 2021` HELP-PROMPT: `Enter DEA number in the format 2 upper case letters followed by 7 numbers.` DESCRIPTION: `This field is used to enter the provider's Drug Enforcement Administration (DEA) number(s). Enter the DEA number as two upper case letters followed by 7 digits. e.g., AA1234567.` TECHNICAL DESCR: `This is the algorithm for the DEA number checking.` `The first letter for practitioners (physicians, dentists, veterinarians, pharmacies, etc.) is either "A","B","F", or "G". The first letter for mid-level practitioners (physician assistants, nurse practitioners, etc.) is` `usually an "M". This field is designed to accept any upper case alphabetic letter.` `The second letter should be the first letter of the practitioner's last name. Sometimes this does not match if the registrant changed their name or the DEA did not get it correct the first time.` `The check digit algorithm is as follows:` `AS1234563` `1 + 3 + 5 = 9 2 + 4 + 6 = 12 x 2 = 24 9 + 24 = 33` `The last digit of the total must equal the check digit (the last digit of the DEA number).` `(33#10)=$E("AS1234563",9)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `200.5321^B` `1)= S ^VA(200,DA(1),"PS4","B",$E(X,1,30),DA)=""` `2)= K ^VA(200,DA(1),"PS4","B",$E(X,1,30),DA)` CROSS-REFERENCE: `200^PS4` `1)= S ^VA(200,"PS4",$E(X,1,30),DA(1),DA)=""` `2)= K ^VA(200,"PS4",$E(X,1,30),DA(1),DA)` `This is the new index for the provider/DEA associations in the new person file.` RECORD INDEXES: `F (#1713) (WHOLE FILE #200)`
.02	INDIVIDUAL DEA SUFFIX	0;2	FREE TEXT	INPUT TRANSFORM: `S X=$$UP^XLFSTR(X) K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3)!(X[" ") X I $D(X) K:$$SUFCHK^XUSER3(X,.DA) X` `MAXIMUM LENGTH: 10` LAST EDITED: `OCT 01, 2018` HELP-PROMPT: `Enter the individual DEA suffix if this is an institutional DEA number. Answer must be 3-10 characters in length with NO spaces.` DESCRIPTION: `This is the individual DEA suffix related to an institutional DEA number. This field is required if the DEA is an institutional DEA number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` RECORD INDEXES: `F (#1713) (WHOLE FILE #200)`
.03	DEA POINTER	0;3	POINTER TO DEA NUMBERS FILE (#8991.9)	DEA NUMBERS(#8991.9) INPUT TRANSFORM: `S DIC("S")="I $P($G(^VA(200,DA(1),""PS4"",DA,0)),U)=$P($G(^XTV(8991.9,Y,0)),U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 07, 2021` HELP-PROMPT: `Select the DEA number from those available in the DEA NUMBERS FILE.` DESCRIPTION: `This pointer field points to the DEA NUMBERS FILE #8991.9 that contains the provider demographics and controlled substance schedule permissions.` `Enter the DEA number as two upper case letters followed by 7 digits, e.g., AA1234567.` TECHNICAL DESCR: `This is the algorithm for the DEA number checking.` `The first letter for practitioners (physicians, dentists, veterinarians, pharmacies, etc) is either "A","B","F", or "G". The first letter for mid-level practitioners (physician assistants, nurse practitioners, etc.) is` `usually an "M". This field is designed to accept any upper case alphabetic letter.` `The second letter should be the first letter of the practitioner's last name. Sometimes this does not match if the registrant changed their name or the DEA did not get it correct the first time.` `The check digit algorithm is as follows: AS1234563` `1 + 3 + 5 = 9 2 + 4 + 6 = 12 x 2 = 24 9 + 24 = 33` `The last digit of the total must equal the check digit (the last digit of the DEA number).` `(33#10)=$E("AS1234563",9)` SCREEN: `S DIC("S")="I $P($G(^VA(200,DA(1),""PS4"",DA,0)),U)=$P($G(^XTV(8991.9,Y,0)),U)"` EXPLANATION: `Entry must match the DEA NUMBER field (#.01) in the NEW DEA #'S multiple (#53.21) in the NEW PERSON file (#200).`

.01

DEA NUMBER

0;1

FREE TEXT

INPUT TRANSFORM: K:'$$VALN1DEA^XUSER3(X) X
MAXIMUM LENGTH: 30
LAST EDITED: MAY 07, 2021
HELP-PROMPT: Enter DEA number in the format 2 upper case letters followed by 7 numbers.
DESCRIPTION:
This field is used to enter the provider's Drug Enforcement Administration (DEA) number(s). Enter the DEA number as two upper case letters followed by 7 digits. e.g., AA1234567.
TECHNICAL DESCR: This is the algorithm for the DEA number checking.
The first letter for practitioners (physicians, dentists, veterinarians, pharmacies, etc.) is either "A","B","F", or "G". The first letter for mid-level practitioners (physician assistants, nurse practitioners, etc.) is
usually an "M". This field is designed to accept any upper case alphabetic letter.
The second letter should be the first letter of the practitioner's last name. Sometimes this does not match if the registrant changed their name or the DEA did not get it correct the first time.
The check digit algorithm is as follows:
AS1234563
1 + 3 + 5 = 9 2 + 4 + 6 = 12 x 2 = 24 9 + 24 = 33
The last digit of the total must equal the check digit (the last digit of the DEA number).
(33#10)=$E("AS1234563",9)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 200.5321^B
1)= S ^VA(200,DA(1),"PS4","B",$E(X,1,30),DA)=""
2)= K ^VA(200,DA(1),"PS4","B",$E(X,1,30),DA)
CROSS-REFERENCE: 200^PS4
1)= S ^VA(200,"PS4",$E(X,1,30),DA(1),DA)=""
2)= K ^VA(200,"PS4",$E(X,1,30),DA(1),DA)
This is the new index for the provider/DEA associations in the new person file.
RECORD INDEXES: F (#1713) (WHOLE FILE #200)

.02

INDIVIDUAL DEA SUFFIX

0;2

FREE TEXT

INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3)!(X[" ") X I $D(X) K:$$SUFCHK^XUSER3(X,.DA) X
MAXIMUM LENGTH: 10
LAST EDITED: OCT 01, 2018
HELP-PROMPT: Enter the individual DEA suffix if this is an institutional DEA number. Answer must be 3-10 characters in length with NO spaces.
DESCRIPTION:
This is the individual DEA suffix related to an institutional DEA number. This field is required if the DEA is an institutional DEA number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: F (#1713) (WHOLE FILE #200)

.03

DEA POINTER

0;3

POINTER TO DEA NUMBERS FILE (#8991.9)

DEA NUMBERS(#8991.9)

INPUT TRANSFORM: S DIC("S")="I $P($G(^VA(200,DA(1),""PS4"",DA,0)),U)=$P($G(^XTV(8991.9,Y,0)),U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 07, 2021
HELP-PROMPT: Select the DEA number from those available in the DEA NUMBERS FILE.
DESCRIPTION: This pointer field points to the DEA NUMBERS FILE #8991.9 that contains the provider demographics and controlled substance schedule permissions.
Enter the DEA number as two upper case letters followed by 7 digits, e.g., AA1234567.
TECHNICAL DESCR: This is the algorithm for the DEA number checking.
The first letter for practitioners (physicians, dentists, veterinarians, pharmacies, etc) is either "A","B","F", or "G". The first letter for mid-level practitioners (physician assistants, nurse practitioners, etc.) is
usually an "M". This field is designed to accept any upper case alphabetic letter.
The second letter should be the first letter of the practitioner's last name. Sometimes this does not match if the registrant changed their name or the DEA did not get it correct the first time.
The check digit algorithm is as follows: AS1234563
1 + 3 + 5 = 9 2 + 4 + 6 = 12 x 2 = 24 9 + 24 = 33
The last digit of the total must equal the check digit (the last digit of the DEA number).
(33#10)=$E("AS1234563",9)
SCREEN: S DIC("S")="I $P($G(^VA(200,DA(1),""PS4"",DA,0)),U)=$P($G(^XTV(8991.9,Y,0)),U)"
EXPLANATION: Entry must match the DEA NUMBER field (#.01) in the NEW DEA #'S multiple (#53.21) in the NEW PERSON file (#200).

Customize PDF page

Package: Kernel

NEW PERSON(#200)-->200.5321

Sub-Field: 200.5321

Information

Details