Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^XTV(8991.9

Package: Kernel

Global: ^XTV(8991.9


Information

FileMan FileNo FileMan Filename Package
8991.9 DEA NUMBERS Kernel

Description

Directly Accessed By Routines, Total: 22

Package Total Routines
Outpatient Pharmacy 15 PSO7M529    PSO7P529    PSO7P684    PSODEAED    PSODEAMA    PSODEAME    PSODEARP    PSODEARV
PSODEAU0    PSODEAU1    PSODEAUT    PSOEPU1    PSOEPUT    PSOPRVW    PSOPRVW1    
Kernel 7 XUEPCSU1    XUEPCSUT    XUMVIENU    XUPSPRA    XUSER3    ^XTV(8991.9    XUSER    

Accessed By FileMan Db Calls, Total: 21

Package Total Routines
Outpatient Pharmacy 19 PSO7E684    PSO7L529    PSO7M529    PSO7P684    PSODEADD    PSODEAMA    PSODEARA    PSODEARB
PSODEARP    PSODEARV    PSODEARW    PSODEARX    PSODEAU1    PSODEAUT    PSODIR5    PSOEPU1
PSOEPUT    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.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #7002
  • Outpatient Pharmacy
  • DEA NUMBER (.01).
    Access: LAYGO

    BUSINESS ACTIVITY CODE (.02).
    Access: LAYGO

    DETOX NUMBER (.03).
    Access: LAYGO

    EXPIRATION DATE (.04).
    Access: LAYGO

    USE FOR INPATIENT ORDERS (.06).
    Access: LAYGO

    TYPE (.07).
    Access: LAYGO

    NAME (PROVIDER OR INSTITUTION) (1.1).
    Access: LAYGO

    STREET ADDRESS 1 (1.2).
    Access: LAYGO

    STREET ADDRESS 2 (1.3).
    Access: LAYGO

    STREET ADDRESS 3 (1.4).
    Access: LAYGO

    CITY (1.5).
    Access: LAYGO

    STATE (1.6).
    Access: LAYGO

    ZIP CODE (1.7).
    Access: LAYGO

    SCHEDULE II NARCOTIC (2.1).
    Access: LAYGO

    SCHEDULE II NON-NARCOTIC (2.2).
    Access: LAYGO

    SCHEDULE III NARCOTIC (2.3).
    Access: LAYGO

    SCHEDULE III NON-NARCOTIC (2.4).
    Access: LAYGO

    SCHEDULE IV (2.5).
    Access: LAYGO

    SCHEDULE V (2.6).
    Access: LAYGO

    LAST UPDATED BY (10.1).
    Access: LAYGO

    LAST UPDATED DATE/TIME (10.2).
    Access: LAYGO

    LAST DOJ UPDATE DATE/TIME (10.3).
    Access: LAYGO

    The DEA NUMBERS FILE is designed to contain demographicand permission information about a provider related to the ability to ordercontrolled substance prescriptions.

    External References

    Name Field # of Occurrence
    ^%DT .04+1, 10.2+1, 10.3+1
    UPDATE^DIE .06(XREF 1S)
    $$GET1^DIQ .06(XREF 1S)
    $$VALN2DEA^XUSER3 .01+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^VA(200 - [#200] .06(XREF 1S)
    ^XTV(8991.9 - [#8991.9] IXCSL+1*, IXCKL+1!, IXCKEIC+1!, IXDSL+1*, IXDKL+1!, IXDKEIC+1!, .01(XREF 1S), .01(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .04+1*, 10.2+1*, 10.3+1*
    >> DA IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, .01(XREF 1S), .01(XREF 1K), .06(XREF 1S)
    DNDEATXT .06(XREF 1S)
    FDA .06(XREF 1S)
    FDA(200 .06(XREF 1S)
    NPIEN .06(XREF 1S)
    X IXCSL+1, IXCKL+1, .01+1!, .01(XREF 1S), .01(XREF 1K), .03+1!, .04+1*!, .06(XREF 1S), 1.1+1!, 1.2+1!
    , 1.3+1!, 1.4+1!, 1.5+1!, 1.7+1!, 10.2+1*!, 10.3+1*!
    X(1 IXDSL+1, IXDKL+1
    X(2 IXDSL+1, IXDKL+1
    >> Y .04+1, 10.2+1, 10.3+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All