Global: ^XTV(8991.9

FileMan FileNo	FileMan Filename	Package
8991.9	DEA NUMBERS	Kernel

Accessed By FileMan Db Calls, Total: 23

Package	Total	Routines
Outpatient Pharmacy	21	PSO7E684 PSO7L529 PSO7M529 PSO7P684 PSODEADD PSODEAMA PSODEARA PSODEARB PSODEARP PSODEARV PSODEARW PSODEARX PSODEAU1 PSODEAUT PSODIR5 PSOEPU1 PSOEPUT PSOEPUT2 PSOERXU8 PSOPRVW PSOPRVW1
Order Entry Results Reporting	2	ORDEA01 ORWDPS11

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[#200.5321(.03)]

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Kernel	3	STATE(#5)[1.6] NEW PERSON(#200)[10.1] DEA BUSINESS ACTIVITY CODES(#8991.8)[.02]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.01	DEA NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:'$$VALN2DEA^XUSER3(X) X` `MAXIMUM LENGTH: 9` LAST EDITED: `JUN 01, 2021` HELP-PROMPT: `Enter the DEA number in the format of 2 letters followed by 7 numbers.` DESCRIPTION: `This field is used to enter the providers' Drug Enforcement Administration (DEA) number. 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: `8991.9^B` `1)= S ^XTV(8991.9,"B",$E(X,1,30),DA)=""` `2)= K ^XTV(8991.9,"B",$E(X,1,30),DA)` FIELD INDEX: `C (#1714) REGULAR IR LOOKUP & SORTING` `Unique for: Key A (#118), File #8991.9` `Short Descr: Uniqueness Index for Key 'A' of File #8991.9` `Set Logic: S ^XTV(8991.9,"C",X,DA)=""` `Kill Logic: K ^XTV(8991.9,"C",X,DA)` `Whole Kill: K ^XTV(8991.9,"C")` `X(1): DEA NUMBER (8991.9,.01) (Subscr 1)` RECORD INDEXES: `D (#1715)`
.02	BUSINESS ACTIVITY CODE	0;2	POINTER TO DEA BUSINESS ACTIVITY CODES FILE (#8991.8)	DEA BUSINESS ACTIVITY CODES(#8991.8) LAST EDITED: `OCT 05, 2017` HELP-PROMPT: `Enter the Business Activity code given to this DEA Number.` DESCRIPTION: `This is the business activity code related to this DEA Number.`
.03	DETOX NUMBER	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9) X` `MAXIMUM LENGTH: 9` LAST EDITED: `JUN 01, 2021` HELP-PROMPT: `Enter the detox number associated with this DEA Number. Answer must be 9 characters in length.` DESCRIPTION: `If the DEA provider has detox privileges, this field will be populated with a 'VX' or 'XA' followed by the numeric portion of the DEA number.` RECORD INDEXES: `D (#1715)`
.04	EXPIRATION DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 07, 2019` HELP-PROMPT: `Enter the date this DEA Number expires.` DESCRIPTION: `This is the date of expiration for the DEA Number.`
.06	USE FOR INPATIENT ORDERS?	0;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 26, 2018` HELP-PROMPT: `Can this DEA be used for inpatient orders? Answer 'YES' or 'NO'.` DESCRIPTION: `This field indicates if this DEA number can be used for inpatient orders.` CROSS-REFERENCE: `8991.9^AC^MUMPS` `1)= I $G(X),$G(DA) N DNDEATXT,FDA,NPIEN S DNDEATXT=$$GET1^DIQ(8991.9,DA,.01),NPIEN=$O(^VA(200,"PS4",DNDEATXT,0)) I NPIEN S FDA(200,NPIEN_",",53.2)=DNDEATXT D UPDATE^DIE(,"FDA")` `2)= Q` `This is a trigger to set the NEW PERSON FILE #200, DEA# FIELD #53.2 when the DEA NUMBERS FILE #8991.9 USE FOR INPATIENT ORDERS? FIELD #.06 is modified.`
.07	TYPE	0;7	SET	'1' FOR INSTITUTIONAL; '2' FOR INDIVIDUAL; LAST EDITED: `SEP 13, 2018` HELP-PROMPT: `Enter the usage type for the DEA. The DEA usage type may be 'Individual', or 'Institutional.` DESCRIPTION: `This identifies whether the DEA number is an individual DEA number or an Institutional DEA number.`
1.1	NAME (PROVIDER OR INSTITUTION)	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` `MAXIMUM LENGTH: 40` LAST EDITED: `OCT 05, 2017` HELP-PROMPT: `Enter the name associated with this DEA Number. Answer must be 1-40 characters in length.` DESCRIPTION: `This is the name of the facility or person who is associated with this DEA Number.`
1.2	ADDITIONAL COMPANY INFO	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` `MAXIMUM LENGTH: 40` LAST EDITED: `FEB 28, 2022` HELP-PROMPT: `Enter additional company info for the given person/institution. Answer must be 1-40 characters in length.` DESCRIPTION: `This is the additional company information of the person or institution associated with this DEA Number.`
1.3	STREET ADDRESS 1	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` `MAXIMUM LENGTH: 40` LAST EDITED: `FEB 28, 2022` HELP-PROMPT: `Enter street address line 1 for the given person/institution. Answer must be 1-40 characters in length.` DESCRIPTION: `This is the first line of the street address of the permanent address of the person or institution associated with this DEA Number.`
1.4	STREET ADDRESS 2	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` `MAXIMUM LENGTH: 40` LAST EDITED: `FEB 28, 2022` HELP-PROMPT: `Enter street address line 2 for the given person/institution. Answer must be 1-40 characters in length.` DESCRIPTION: `This is the second line of the street address of the permanent address of the person or institution associated with this DEA Number.`
1.5	CITY	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>33!($L(X)<1) X` `MAXIMUM LENGTH: 33` LAST EDITED: `OCT 05, 2017` HELP-PROMPT: `Enter the city of the permanent address of the person or institution associated with this DEA Number. Answer must be 1-33 characters in length.` DESCRIPTION: `This is the city of the permanent address of the person or institution related to this DEA Number.`
1.6	STATE	1;6	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `SEP 13, 2018` HELP-PROMPT: `Enter the state of the permanent address associated with the person or institution associated with this DEA Number.` DESCRIPTION: `This is the state of the permanent address of the person or institution associated with this DEA Number.`
1.7	ZIP CODE	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<5) X` `MAXIMUM LENGTH: 9` LAST EDITED: `OCT 05, 2017` HELP-PROMPT: `Enter the ZIP CODE or ZIP+4. Answer must be 5-9 characters in length.` DESCRIPTION: `This is the postal ZIP code of the person or institution associated with this DEA Number.`
2.1	SCHEDULE II NARCOTIC	2;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 23, 2021` HELP-PROMPT: `DEA number allows for schedule II drugs?` DESCRIPTION: `This field is used to determine if the provider has privileges for Schedule II drugs.`
2.2	SCHEDULE II NON-NARCOTIC	2;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 23, 2021` HELP-PROMPT: `Provider has privileges for schedule II non-narcotic?` DESCRIPTION: `This field is used to determine if the provider has privileges for Schedule II non-narcotic.`
2.3	SCHEDULE III NARCOTIC	2;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 23, 2021` HELP-PROMPT: `Provider has privileges for schedule III narcotic?` DESCRIPTION: `This field is used to determine if the provider has privileges for Schedule III narcotic.`
2.4	SCHEDULE III NON-NARCOTIC	2;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 23, 2021` HELP-PROMPT: `Provider has privileges for schedule III non-narcotic?` DESCRIPTION: `This field is used to determine if the provider has privileges for Schedule III non-narcotic.`
2.5	SCHEDULE IV	2;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 23, 2021` HELP-PROMPT: `Provider has privileges for schedule IV?` DESCRIPTION: `This field is used to determine if the provider has privileges for Schedule IV controlled substances.`
2.6	SCHEDULE V	2;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 23, 2021` HELP-PROMPT: `Provider has privileges for schedule V?` DESCRIPTION: `This field is used to determine if the provider has privileges for Schedule V controlled substances.`
10.1	LAST UPDATED BY	10;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 05, 2017` HELP-PROMPT: `Enter the person who last updated this DEA record.` DESCRIPTION: `This is the person from the NEW PERSON file who last initiated an update to this DEA record.`
10.2	LAST UPDATED DATE/TIME	10;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 05, 2017` HELP-PROMPT: `Enter the date/time this DEA record was last updated.` DESCRIPTION: `This is the date/time of the last update to this DEA record.`
10.3	LAST DOJ UPDATE DATE/TIME	10;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 05, 2017` HELP-PROMPT: `Enter the date/time this DEA record was last updated by the DOJ source.` DESCRIPTION: `This is the date/time the DOJ (Department of Justice) data was used to update this DEA record.`

Customize PDF page

Package: Kernel

Global: ^XTV(8991.9

Information

Description

Accessed By FileMan Db Calls, Total: 23

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 22

ICR, Total: 1