Released XU*8*688 SEQ #606 Extracted from mail message **KIDS**:XU*8.0*688^ **INSTALL NAME** XU*8.0*688 "BLD",11111,0) XU*8.0*688^KERNEL^0^3220311^y "BLD",11111,1,0) ^^1^1^3210927^ "BLD",11111,1,1,0) See FORUM Patch description. "BLD",11111,4,0) ^9.64PA^200^3 "BLD",11111,4,200,0) 200 "BLD",11111,4,200,2,0) ^9.641^200^2 "BLD",11111,4,200,2,200,0) NEW PERSON (File-top level) "BLD",11111,4,200,2,200,1,0) ^9.6411^53.2^2 "BLD",11111,4,200,2,200,1,53.2,0) DEA# "BLD",11111,4,200,2,200,1,9001,0) DETOX CALCULATED "BLD",11111,4,200,2,200.5321,0) NEW DEA #'S (sub-file) "BLD",11111,4,200,2,200.5321,1,0) ^9.6411^.03^3 "BLD",11111,4,200,2,200.5321,1,.01,0) DEA NUMBER "BLD",11111,4,200,2,200.5321,1,.02,0) INDIVIDUAL DEA SUFFIX "BLD",11111,4,200,2,200.5321,1,.03,0) DEA POINTER "BLD",11111,4,200,222) y^n^p^^^^n^^n "BLD",11111,4,200,224) "BLD",11111,4,8991.8,0) 8991.8 "BLD",11111,4,8991.8,222) y^n^f^^n^^y^o^n "BLD",11111,4,8991.9,0) 8991.9 "BLD",11111,4,8991.9,222) y^n^f^^^^n "BLD",11111,4,"APDD",200,200) "BLD",11111,4,"APDD",200,200,53.2) "BLD",11111,4,"APDD",200,200,9001) "BLD",11111,4,"APDD",200,200.5321) "BLD",11111,4,"APDD",200,200.5321,.01) "BLD",11111,4,"APDD",200,200.5321,.02) "BLD",11111,4,"APDD",200,200.5321,.03) "BLD",11111,4,"B",200,200) "BLD",11111,4,"B",8991.8,8991.8) "BLD",11111,4,"B",8991.9,8991.9) "BLD",11111,6) 19^ "BLD",11111,6.3) 58 "BLD",11111,"ABPKG") n "BLD",11111,"KRN",0) ^9.67PA^779.2^20 "BLD",11111,"KRN",.4,0) .4 "BLD",11111,"KRN",.401,0) .401 "BLD",11111,"KRN",.402,0) .402 "BLD",11111,"KRN",.403,0) .403 "BLD",11111,"KRN",.5,0) .5 "BLD",11111,"KRN",.84,0) .84 "BLD",11111,"KRN",3.6,0) 3.6 "BLD",11111,"KRN",3.8,0) 3.8 "BLD",11111,"KRN",9.2,0) 9.2 "BLD",11111,"KRN",9.8,0) 9.8 "BLD",11111,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",11111,"KRN",9.8,"NM",1,0) XUSER3^^0^B9641979 "BLD",11111,"KRN",9.8,"NM","B","XUSER3",1) "BLD",11111,"KRN",19,0) 19 "BLD",11111,"KRN",19.1,0) 19.1 "BLD",11111,"KRN",101,0) 101 "BLD",11111,"KRN",101,"NM",0) ^9.68A^^0 "BLD",11111,"KRN",409.61,0) 409.61 "BLD",11111,"KRN",409.61,"NM",0) ^9.68A^^0 "BLD",11111,"KRN",771,0) 771 "BLD",11111,"KRN",779.2,0) 779.2 "BLD",11111,"KRN",870,0) 870 "BLD",11111,"KRN",8989.51,0) 8989.51 "BLD",11111,"KRN",8989.51,"NM",0) ^9.68A^^0 "BLD",11111,"KRN",8989.52,0) 8989.52 "BLD",11111,"KRN",8994,0) 8994 "BLD",11111,"KRN",8994,"NM",0) ^9.68A^^0 "BLD",11111,"KRN","B",.4,.4) "BLD",11111,"KRN","B",.401,.401) "BLD",11111,"KRN","B",.402,.402) "BLD",11111,"KRN","B",.403,.403) "BLD",11111,"KRN","B",.5,.5) "BLD",11111,"KRN","B",.84,.84) "BLD",11111,"KRN","B",3.6,3.6) "BLD",11111,"KRN","B",3.8,3.8) "BLD",11111,"KRN","B",9.2,9.2) "BLD",11111,"KRN","B",9.8,9.8) "BLD",11111,"KRN","B",19,19) "BLD",11111,"KRN","B",19.1,19.1) "BLD",11111,"KRN","B",101,101) "BLD",11111,"KRN","B",409.61,409.61) "BLD",11111,"KRN","B",771,771) "BLD",11111,"KRN","B",779.2,779.2) "BLD",11111,"KRN","B",870,870) "BLD",11111,"KRN","B",8989.51,8989.51) "BLD",11111,"KRN","B",8989.52,8989.52) "BLD",11111,"KRN","B",8994,8994) "BLD",11111,"PRE") "BLD",11111,"QDEF") ^^^^NO^^^^NO^^NO "BLD",11111,"QUES",0) ^9.62^^ "BLD",11111,"REQB",0) ^9.611^1^1 "BLD",11111,"REQB",1,0) XU*8.0*751^2 "BLD",11111,"REQB","B","XU*8.0*751",1) "DATA",8991.8,1,0) A0^A^0 "DATA",8991.8,1,1) RETAIL PHARMACY "DATA",8991.8,2,0) A1^A^1 "DATA",8991.8,2,1) CENTRAL FILL PHARMACY "DATA",8991.8,3,0) A3^A^3 "DATA",8991.8,3,1) CHAIN PHARMACY "DATA",8991.8,4,0) A4^A^4 "DATA",8991.8,4,1) AUTOMATED DISPENSING SYSTEM "DATA",8991.8,5,0) A5^A^5 "DATA",8991.8,5,1) ONLINE RETAIL PHARMACY "DATA",8991.8,6,0) A6^A^6 "DATA",8991.8,6,1) ONLINE CENTRAL FILL PHARMACY "DATA",8991.8,7,0) A7^A^7 "DATA",8991.8,7,1) ONLINE CHAIN PHARMACY "DATA",8991.8,8,0) A8^A^8 "DATA",8991.8,8,1) PHARMACY- MIL "DATA",8991.8,9,0) A9^A^9 "DATA",8991.8,9,1) PHARMACY - FED "DATA",8991.8,10,0) B0^B^0 "DATA",8991.8,10,1) HOSPITAL/CLINIC "DATA",8991.8,11,0) B1^B^1 "DATA",8991.8,11,1) CHAIN HOSP/CLINIC "DATA",8991.8,12,0) B2^B^2 "DATA",8991.8,12,1) HOSP/CLINIC- MIL "DATA",8991.8,13,0) B3^B^3 "DATA",8991.8,13,1) HOSP/CLINIC FED "DATA",8991.8,14,0) B4^B^4 "DATA",8991.8,14,1) HOSP/CLINIC NG "DATA",8991.8,16,0) C1^C^1 "DATA",8991.8,16,1) PRACTITIONER-DW/30 "DATA",8991.8,17,0) C2^C^2 "DATA",8991.8,17,1) MILITARY-PRACTITIONER "DATA",8991.8,18,0) C3^C^3 "DATA",8991.8,18,1) MLP-MILITARY "DATA",8991.8,19,0) C4^C^4 "DATA",8991.8,19,1) PRACTITIONER-DW/100^ "DATA",8991.8,20,0) C5^C^5 "DATA",8991.8,20,1) MILITARY PRACTITIONER-DW/30 "DATA",8991.8,21,0) C6^C^6 "DATA",8991.8,21,1) MILITARY PRACTITIONER-DW/100 "DATA",8991.8,22,0) C7^C^7 "DATA",8991.8,22,1) PRACT-DOD CONTRACTOR "DATA",8991.8,23,0) C8^C^8 "DATA",8991.8,23,1) MLP-DOD CONTRACTOR "DATA",8991.8,24,0) C9^C^9 "DATA",8991.8,24,1) PRACT-DOD CONTRACTOR DW/30 "DATA",8991.8,25,0) CA^C^A "DATA",8991.8,25,1) PRACT-DOD CONTRACTOR DW/100 "DATA",8991.8,26,0) CB^C^B "DATA",8991.8,26,1) PRACTITIONER-DW/275 "DATA",8991.8,27,0) CC^C^C "DATA",8991.8,27,1) MILITARY PRACTITIONER-DW/275 "DATA",8991.8,28,0) CD^C^D "DATA",8991.8,28,1) PRACT-DOD CONTRACTOR DW/275 "DATA",8991.8,29,0) D0^D^0 "DATA",8991.8,29,1) TEACHING INSTITUTION "DATA",8991.8,30,0) M1^M^1 "DATA",8991.8,30,1) MLP-AMBULANCE SERVICE "DATA",8991.8,31,0) M2^M^2 "DATA",8991.8,31,1) MLP-ANIMAL SHELTER "DATA",8991.8,32,0) M3^M^3 "DATA",8991.8,32,1) MLP-DR OF ORIENTAL MEDICINE "DATA",8991.8,33,0) M4^M^4 "DATA",8991.8,33,1) MLP-DEPT OF STATE "DATA",8991.8,34,0) M5^M^5 "DATA",8991.8,34,1) MLP-EUTHANASIA TECHNICIAN "DATA",8991.8,35,0) M6^M^6 "DATA",8991.8,35,1) MLP-HOMEOPATHIC PHYSICIAN "DATA",8991.8,36,0) M7^M^7 "DATA",8991.8,36,1) MLP-MEDICAL PSYCHOLOGIST "DATA",8991.8,37,0) M8^M^8 "DATA",8991.8,37,1) MLP-NATUROPATHIC PHYSICIAN "DATA",8991.8,38,0) M9^M^9 "DATA",8991.8,38,1) MLP-NURSING HOME "DATA",8991.8,39,0) MA^M^A "DATA",8991.8,39,1) MLP-NURSE PRACTITIONER "DATA",8991.8,40,0) MB^M^B "DATA",8991.8,40,1) MLP-OPTOMETRIST "DATA",8991.8,41,0) MC^M^C "DATA",8991.8,41,1) MLP-PHYSICIAN ASSISTANT "DATA",8991.8,42,0) MD^M^D "DATA",8991.8,42,1) MLP-REGISTERED PHARMACIST "DATA",8991.8,43,0) ME^M^E "DATA",8991.8,43,1) MLP-CERTIFIED CHIROPRACTOR "DATA",8991.8,44,0) MF^M^F "DATA",8991.8,44,1) MLP-NURSE PRACTITIONER-DW/30 "DATA",8991.8,45,0) MG^M^G "DATA",8991.8,45,1) MLP-PHYSICIAN ASSISTANT-DW/30 "DATA",8991.8,46,0) E0^E^0 "DATA",8991.8,46,1) MANUFACTURER "DATA",8991.8,47,0) E1^E^1 "DATA",8991.8,47,1) MANUF (BULK) "DATA",8991.8,48,0) F0^F^0 "DATA",8991.8,48,1) DISTRIBUTOR "DATA",8991.8,49,0) F1^F^1 "DATA",8991.8,49,1) CHEMPACK/SNS DISTRIBUTOR "DATA",8991.8,50,0) G0^G^0 "DATA",8991.8,50,1) RESEARCHER (II-V) "DATA",8991.8,51,0) G1^G^1 "DATA",8991.8,51,1) CANINE HANDLER "DATA",8991.8,52,0) G2^G^2 "DATA",8991.8,52,1) RESEARCHER (I) "DATA",8991.8,53,0) H0^H^0 "DATA",8991.8,53,1) ANALYTICAL LAB "DATA",8991.8,54,0) J0^J^0 "DATA",8991.8,54,1) IMPORTER "DATA",8991.8,55,0) J1^J^1 "DATA",8991.8,55,1) IMPORTER (C I,II) "DATA",8991.8,56,0) K0^K^0 "DATA",8991.8,56,1) EXPORTER "DATA",8991.8,57,0) L0^L^0 "DATA",8991.8,57,1) REVERSE DISTRIB "DATA",8991.8,58,0) N0^N^0 "DATA",8991.8,58,1) MAINTENANCE "DATA",8991.8,59,0) P0^P^0 "DATA",8991.8,59,1) DETOXIFICATION "DATA",8991.8,60,0) R0^R^0 "DATA",8991.8,60,1) MAINT & DETOX "DATA",8991.8,61,0) S0^S^0 "DATA",8991.8,61,1) COMPOUND/MAINT "DATA",8991.8,62,0) T0^T^0 "DATA",8991.8,62,1) COMPOUND/DETOX "DATA",8991.8,63,0) U0^U^0 "DATA",8991.8,63,1) COMP/MAINT/DETOX "DATA",8991.8,64,0) B5^B^5 "DATA",8991.8,64,1) HOSP/CLINIC-VA "DATA",8991.8,65,0) CE^C^E "DATA",8991.8,65,1) MLP-MILITARY NP-DW/30 "DATA",8991.8,66,0) CF^C^F "DATA",8991.8,66,1) MLP-MILITARY PA-DW/30 "DATA",8991.8,67,0) CK^C^K "DATA",8991.8,67,1) PRACTITIONER-DW/30SW "DATA",8991.8,68,0) CL^C^L "DATA",8991.8,68,1) MILITARY PRACTITIONER-DW/30SW "DATA",8991.8,69,0) MQ^M^Q "DATA",8991.8,69,1) MLP-NURSE PRACTITIONER-DW/30SW "DATA",8991.8,70,0) MR^M^R "DATA",8991.8,70,1) MLP-PHYSICIAN ASSISTANT-DW/30SW "DATA",8991.8,75,0) C0^C^0 "DATA",8991.8,75,1) PRACTITIONER "DATA",8991.8,76,0) AX^A^X "DATA",8991.8,76,1) M/O PHARMACY "DATA",8991.8,77,0) CG^C^G "DATA",8991.8,77,1) MLP-MILITARY NP-DW/100 "DATA",8991.8,78,0) CH^C^H "DATA",8991.8,78,1) MLP-MILITARY PA-DW/100 "DATA",8991.8,79,0) CI^C^I "DATA",8991.8,79,1) MLP-MILITARY NP-DW/275 "DATA",8991.8,80,0) CJ^C^J "DATA",8991.8,80,1) MLP-MILITARY PA-DW/275 "DATA",8991.8,81,0) CM^C^M "DATA",8991.8,81,1) PRACT-DOD CONTRACTOR DW/30SW "DATA",8991.8,82,0) CN^C^N "DATA",8991.8,82,1) MLP-MILITARY NP-DW/30SW "DATA",8991.8,83,0) CP^C^P "DATA",8991.8,83,1) MLP-MILITARY PA-DW/30SW "DATA",8991.8,84,0) MH^M^H "DATA",8991.8,84,1) MLP-NURSE PRACTITIONER-DW/100 "DATA",8991.8,85,0) MI^M^I "DATA",8991.8,85,1) MLP-PHYSICIAN ASSISTANT-DW/100 "DATA",8991.8,86,0) MJ^M^J "DATA",8991.8,86,1) MLP-ASSISTANT PHYSICIAN "DATA",8991.8,87,0) MK^M^K "DATA",8991.8,87,1) MLP-NURSE PRACTITIONER-DW/275 "DATA",8991.8,88,0) ML^M^L "DATA",8991.8,88,1) MLP-PHYSICIAN ASSISTANT-DW/275 "DATA",8991.8,89,0) MM^M^M "DATA",8991.8,89,1) MLP-ASSISTANT PHYSICIAN-DW/30 "DATA",8991.8,90,0) MN^M^N "DATA",8991.8,90,1) MLP-ASSISTANT PHYSICIAN-DW/100 "DATA",8991.8,91,0) MP^M^P "DATA",8991.8,91,1) MLP-ASSISTANT PHYSICIAN-DW/275 "DATA",8991.8,92,0) MS^M^S "DATA",8991.8,92,1) MLP-ASSISTANT PHYSICIAN-DW/30SW "DATA",8991.8,93,0) W0^W^0 "DATA",8991.8,93,1) CHEMICAL MANUFACTURER "DATA",8991.8,94,0) X0^X^0 "DATA",8991.8,94,1) CHEMICAL IMPORTER "DATA",8991.8,95,0) Y0^Y^0 "DATA",8991.8,95,1) CHEMICAL DISTRIBUTOR "DATA",8991.8,96,0) Z0^Z^0 "DATA",8991.8,96,1) CHEMICAL EXPORTER "DATA",8991.8,97,0) B6^B^6 "DATA",8991.8,97,1) EMS AGENCY "DATA",8991.8,98,0) NU^N^U "DATA",8991.8,98,1) ALL NTPs (N, P, R, S, T, U) "FIA",200) NEW PERSON "FIA",200,0) ^VA(200, "FIA",200,0,0) 200Is "FIA",200,0,1) y^n^p^^^^n^^n "FIA",200,0,10) "FIA",200,0,11) "FIA",200,0,"RLRO") "FIA",200,0,"VR") 8.0^XU "FIA",200,200) 1 "FIA",200,200,53.2) "FIA",200,200,53.21) "FIA",200,200,9001) "FIA",200,200.5321) 1 "FIA",200,200.5321,.01) "FIA",200,200.5321,.02) "FIA",200,200.5321,.03) "FIA",8991.8) DEA BUSINESS ACTIVITY CODES "FIA",8991.8,0) ^XTV(8991.8, "FIA",8991.8,0,0) 8991.8 "FIA",8991.8,0,1) y^n^f^^n^^y^o^n "FIA",8991.8,0,10) "FIA",8991.8,0,11) "FIA",8991.8,0,"RLRO") "FIA",8991.8,0,"VR") 8.0^XU "FIA",8991.8,8991.8) 0 "FIA",8991.9) DEA NUMBERS "FIA",8991.9,0) ^XTV(8991.9, "FIA",8991.9,0,0) 8991.9 "FIA",8991.9,0,1) y^n^f^^^^n "FIA",8991.9,0,10) "FIA",8991.9,0,11) "FIA",8991.9,0,"RLRO") "FIA",8991.9,0,"VR") 8.0^XU "FIA",8991.9,8991.9) 0 "IX",200,200,"F",0) 200^F^DEA-SUFFIX INDEX^R^^R^IR^W^200.5321^^^^^LS "IX",200,200,"F",1) S ^VA(200,"F",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)="" "IX",200,200,"F",2) K ^VA(200,"F",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA) "IX",200,200,"F",2.5) K ^VA(200,"F") "IX",200,200,"F",11.1,0) ^.114IA^2^2 "IX",200,200,"F",11.1,1,0) 1^F^200.5321^.01^30^1^F "IX",200,200,"F",11.1,2,0) 2^F^200.5321^.02^30^2^F "IX",8991.9,8991.9,"C",0) 8991.9^C^Uniqueness Index for Key 'A' of File #8991.9^R^^F^IR^I^8991.9^^^^^LS "IX",8991.9,8991.9,"C",1) S ^XTV(8991.9,"C",X,DA)="" "IX",8991.9,8991.9,"C",2) K ^XTV(8991.9,"C",X,DA) "IX",8991.9,8991.9,"C",2.5) K ^XTV(8991.9,"C") "IX",8991.9,8991.9,"C",11.1,0) ^.114IA^1^1 "IX",8991.9,8991.9,"C",11.1,1,0) 1^F^8991.9^.01^^1 "IX",8991.9,8991.9,"D",0) 8991.9^D^Detox Uniqueness^R^^R^IR^I^8991.9^^^^^LS "IX",8991.9,8991.9,"D",.1,0) ^^2^2^3210601^ "IX",8991.9,8991.9,"D",.1,1,0) This cross reference contains Detox numbers assigned to prescribers. "IX",8991.9,8991.9,"D",.1,2,0) Detox numbers should be unique among all prescribers. "IX",8991.9,8991.9,"D",1) S ^XTV(8991.9,"D",$E(X(1),1,30),$E(X(2),1,30),DA)="" "IX",8991.9,8991.9,"D",2) K ^XTV(8991.9,"D",$E(X(1),1,30),$E(X(2),1,30),DA) "IX",8991.9,8991.9,"D",2.5) K ^XTV(8991.9,"D") "IX",8991.9,8991.9,"D",11.1,0) ^.114IA^2^2 "IX",8991.9,8991.9,"D",11.1,1,0) 1^F^8991.9^.03^30^1^F "IX",8991.9,8991.9,"D",11.1,1,3) "IX",8991.9,8991.9,"D",11.1,2,0) 2^F^8991.9^.01^30^2^F "IX",8991.9,8991.9,"D",11.1,2,3) "KEY",8991.9,8991.9,"A",0) 8991.9^A^P^845 "KEY",8991.9,8991.9,"A",2,0) ^.312IA^1^1 "KEY",8991.9,8991.9,"A",2,1,0) .01^8991.9^1 "KEYPTR",8991.9,8991.9,"A") 8991.9^C "MBREQ") 0 "PKG",163,-1) 1^1 "PKG",163,0) KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^ "PKG",163,22,0) ^9.49I^1^1 "PKG",163,22,1,0) 8.0^2950703^2951019^1039 "PKG",163,22,1,"PAH",1,0) 688^3220311^10000000009 "PKG",163,22,1,"PAH",1,1,0) ^^1^1^3220311 "PKG",163,22,1,"PAH",1,1,1,0) See FORUM Patch description. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","XUSER3") 0^1^B9641979^n/a "RTN","XUSER3",1,0) XUSER3 ;ISF/RWF - New Person File Utilities ;02/01/2022 "RTN","XUSER3",2,0) ;;8.0;KERNEL;**688**;Jul 10, 1995;Build 58 "RTN","XUSER3",3,0) ;;Per VA Directive 6402, this routine should not be modified. "RTN","XUSER3",4,0) Q "RTN","XUSER3",5,0) ; "RTN","XUSER3",6,0) VALN1DEA(X,F) ;Check for a valid DEA# in the NEW DEA FIELD OF FILE #200, 53.21, .01 "RTN","XUSER3",7,0) ;Returns 0 for NOT Valid, 1 for Valid "RTN","XUSER3",8,0) ;F = 1 for Facility DEA check. "RTN","XUSER3",9,0) S F=$$FACILITY(X) "RTN","XUSER3",10,0) I $D(X) I $L(X)>9 K X D EN^DDIOL($C(7)_"Exceeds maximum length (9).") "RTN","XUSER3",11,0) I $D(X) I $L(X)<9 K X D EN^DDIOL($C(7)_"Less than minimum length (9).") "RTN","XUSER3",12,0) I $D(X) I '(X?2U7N) K X D EN^DDIOL($C(7)_"Invalid format. Must be 2 upper case letters followed by 7 digits.") "RTN","XUSER3",13,0) S F=$G(F) "RTN","XUSER3",14,0) I $D(X),'F,$D(DA(1)),$D(^VA(200,"PS4",X)),$O(^(X,0))'=DA(1) D EN^DDIOL($C(7)_"Provider DEA number is already associated to another profile. Please check the number entered.") K X "RTN","XUSER3",15,0) I $D(X),'$$DEANUM(X) D EN^DDIOL($C(7)_"DEA number is invalid. Please check the number entered.") K X "RTN","XUSER3",16,0) I $D(X),'F,$D(DA(1)),$E(X,2)'=$E($P(^VA(200,DA(1),0),"^")) D EN^DDIOL($C(7)_"DEA number doesn't match provider's last name. Please verify the information.") D VALN1P "RTN","XUSER3",17,0) Q $D(X) "RTN","XUSER3",18,0) ; "RTN","XUSER3",19,0) VALN1P ; PAUSE AFTER CHECK SECOND LETTER MESSAGE "RTN","XUSER3",20,0) N DIR,X,Y "RTN","XUSER3",21,0) S DIR("A")="Type to continue",DIR(0)="E" D ^DIR "RTN","XUSER3",22,0) Q "RTN","XUSER3",23,0) ; "RTN","XUSER3",24,0) VALN2DEA(X,F,DEADA) ;Check for a valid DEA# in the (NEW) DEA NUMBERS FILE #8991.9 "RTN","XUSER3",25,0) ;Returns 0 for NOT Valid, 1 for Valid "RTN","XUSER3",26,0) ;F = 1 for Facility DEA check. "RTN","XUSER3",27,0) I $D(X) I $L(X)>9 K X D EN^DDIOL($C(7)_"Exceeds maximum length (9).") "RTN","XUSER3",28,0) I $D(X) I $L(X)<9 K X D EN^DDIOL($C(7)_"Less than minimum length (9).") "RTN","XUSER3",29,0) I $D(X) I '(X?2U7N) K X D EN^DDIOL($C(7)_"Invalid format. Must be 2 upper case letters followed by 7 digits.") "RTN","XUSER3",30,0) S F=$G(F) "RTN","XUSER3",31,0) S DEADA=$G(DEADA) "RTN","XUSER3",32,0) I $D(X),'$$DEANUM(X) D EN^DDIOL($C(7)_"DEA number is invalid. Please check the number entered.") K X "RTN","XUSER3",33,0) Q $D(X) "RTN","XUSER3",34,0) ; "RTN","XUSER3",35,0) DEANUM(X) ;Check DEA # Numeric Part "RTN","XUSER3",36,0) N VA1,VA2 "RTN","XUSER3",37,0) S VA1=$E(X,3)+$E(X,5)+$E(X,7)+(2*($E(X,4)+$E(X,6)+$E(X,8))) "RTN","XUSER3",38,0) S VA1=VA1#10,VA2=$E(X,9) "RTN","XUSER3",39,0) Q VA1=VA2 "RTN","XUSER3",40,0) ; "RTN","XUSER3",41,0) FACILITY(X) ; "RTN","XUSER3",42,0) N DNDEAIEN "RTN","XUSER3",43,0) S DNDEAIEN=$O(^XTV(8991.9,"B",X,0)) Q:'DNDEAIEN 0 "RTN","XUSER3",44,0) Q $$GET1^DIQ(8991.9,DNDEAIEN,.07,"I")=1 "RTN","XUSER3",45,0) ; "RTN","XUSER3",46,0) SUFCHK(X,DA) ;Check for a unique suffix. Called from Sub-File #200.5321 field #.02 "RTN","XUSER3",47,0) N RESPONSE S RESPONSE=0 "RTN","XUSER3",48,0) G:'$D(X) SUFCHKQ G:'$D(DA) SUFCHKQ G:'$D(DA(1)) SUFCHKQ "RTN","XUSER3",49,0) N NPDEATXT S NPDEATXT=$$GET1^DIQ(200.5321,DA_","_DA(1),.01) G:NPDEATXT="" SUFCHKQ "RTN","XUSER3",50,0) I $D(^VA(200,"F",NPDEATXT,X)) D EN^DDIOL($C(7)_"That Suffix is in use. ","","!,?5") S RESPONSE=1 "RTN","XUSER3",51,0) SUFCHKQ ; Unique Suffix Quit Tag "RTN","XUSER3",52,0) Q RESPONSE "UP",200,200.5321,-1) 200^PS4 "UP",200,200.5321,0) 200.5321 "VER") 8.0^22.2 "^DD",200,200,53.2,0) DEA#^FXJ30^^PS;2^K:'$$VALDEA^XUSER2(X) X "^DD",200,200,53.2,1,0) ^.1^^-1 "^DD",200,200,53.2,1,1,0) 200^PS1 "^DD",200,200,53.2,1,1,1) S ^VA(200,"PS1",$E(X,1,30),DA)="" "^DD",200,200,53.2,1,1,2) K ^VA(200,"PS1",$E(X,1,30),DA) "^DD",200,200,53.2,1,1,3) Lookup providers by their DEA number "^DD",200,200,53.2,1,1,"%D",0) ^^1^1^2931208^^ "^DD",200,200,53.2,1,1,"%D",1,0) This was 'APS1' before. Also used to stop duplicate numbers. "^DD",200,200,53.2,1,1,"DT") 2930924 "^DD",200,200,53.2,1,2,0) 200^AMPI532^MUMPS "^DD",200,200,53.2,1,2,1) D XREF^XUMPI(DA) "^DD",200,200,53.2,1,2,2) D XREF^XUMPI(DA) "^DD",200,200,53.2,1,2,"%D",0) ^^4^4^3100903^ "^DD",200,200,53.2,1,2,"%D",1,0) This cross reference sets the Requires Transmission (#902) field if the "^DD",200,200,53.2,1,2,"%D",2,0) enumeration process has begun for this file. Setting that field will "^DD",200,200,53.2,1,2,"%D",3,0) result in a VPID being assigned or an update message being sent to the MPI "^DD",200,200,53.2,1,2,"%D",4,0) for this change in data. "^DD",200,200,53.2,1,2,"DT") 3100805 "^DD",200,200,53.2,3) Enter the DEA number 2 letters 7 numbers. "^DD",200,200,53.2,4) W:$X>5 ! W ?5,"Enter the DEA number as two upper case letters followed by 7 digits",!,?5,"e.g. AA1234567. Each provider must have a unique number.",! "^DD",200,200,53.2,20,0) ^.3LA^1^1 "^DD",200,200,53.2,20,1,0) PS "^DD",200,200,53.2,20,2,0) PSO "^DD",200,200,53.2,21,0) ^.001^3^3^3220311^^ "^DD",200,200,53.2,21,1,0) This field is used to enter the Drug Enforcement Agency (DEA) number. "^DD",200,200,53.2,21,2,0) Enter the DEA number as two upper case letters followed by 7 digits. "^DD",200,200,53.2,21,3,0) e.g., AA1234567. "^DD",200,200,53.2,23,0) ^^27^27^3220311^ "^DD",200,200,53.2,23,1,0) This is the algorithm for the DEA number "^DD",200,200,53.2,23,2,0) checking. "^DD",200,200,53.2,23,3,0) "^DD",200,200,53.2,23,4,0) The first letter for practitioners (physicians, "^DD",200,200,53.2,23,5,0) dentists, veterinarians, pharmacies, etc) is "^DD",200,200,53.2,23,6,0) either "A","B","F", or "G". The first letter "^DD",200,200,53.2,23,7,0) for mid-level practitioners (physician "^DD",200,200,53.2,23,8,0) assistants, nurse practitioners, etc.) is "^DD",200,200,53.2,23,9,0) usually an "M". This field is designed to "^DD",200,200,53.2,23,10,0) accept any upper case alphabetic letter. "^DD",200,200,53.2,23,11,0) "^DD",200,200,53.2,23,12,0) The second letter should be the first letter of "^DD",200,200,53.2,23,13,0) the practitioner's last name. Sometimes this "^DD",200,200,53.2,23,14,0) does not match if the registrant changed their "^DD",200,200,53.2,23,15,0) name or the DEA did not get it correct the "^DD",200,200,53.2,23,16,0) first time. "^DD",200,200,53.2,23,17,0) "^DD",200,200,53.2,23,18,0) The check digit algorithm is as follows: "^DD",200,200,53.2,23,19,0) AS1234563 "^DD",200,200,53.2,23,20,0) "^DD",200,200,53.2,23,21,0) 1 + 3 + 5 = 9 2 + 4 + 6 = 12 x 2 = 24 "^DD",200,200,53.2,23,22,0) 9 + 24 = 33 "^DD",200,200,53.2,23,23,0) "^DD",200,200,53.2,23,24,0) The last digit of the total must equal the "^DD",200,200,53.2,23,25,0) check digit (the last digit of the DEA number). "^DD",200,200,53.2,23,26,0) "^DD",200,200,53.2,23,27,0) (33#10)=$E("AS1234563",9) "^DD",200,200,53.2,"DT") 3220311 "^DD",200,200,53.21,0) NEW DEA #'S^200.5321^^PS4;0 "^DD",200,200,53.21,20,0) ^.3LA^1^1 "^DD",200,200,53.21,20,1,0) PS,PSO "^DD",200,200,53.21,"DT") 3171006 "^DD",200,200,9001,0) DETOX CALCULATED^C^^ ; ^S X=$$DETOX^XUSER(D0) "^DD",200,200,9001,9) ^ "^DD",200,200,9001,9.01) "^DD",200,200,9001,9.1) S X=$$DETOX^XUSER(D0) "^DD",200,200,9001,"DT") 3180813 "^DD",200,200.5321,0) NEW DEA #'S SUB-FIELD^^.02^3 "^DD",200,200.5321,0,"NM","NEW DEA #'S") "^DD",200,200.5321,.01,0) DEA NUMBER^MFXJ30^^0;1^K:'$$VALN1DEA^XUSER3(X) X "^DD",200,200.5321,.01,1,0) ^.1^^-1 "^DD",200,200.5321,.01,1,1,0) 200.5321^B "^DD",200,200.5321,.01,1,1,1) S ^VA(200,DA(1),"PS4","B",$E(X,1,30),DA)="" "^DD",200,200.5321,.01,1,1,2) K ^VA(200,DA(1),"PS4","B",$E(X,1,30),DA) "^DD",200,200.5321,.01,1,2,0) 200^PS4 "^DD",200,200.5321,.01,1,2,1) S ^VA(200,"PS4",$E(X,1,30),DA(1),DA)="" "^DD",200,200.5321,.01,1,2,2) K ^VA(200,"PS4",$E(X,1,30),DA(1),DA) "^DD",200,200.5321,.01,1,2,"%D",0) ^^2^2^3171006^ "^DD",200,200.5321,.01,1,2,"%D",1,0) This is the new index for the provider/DEA associations in the new person "^DD",200,200.5321,.01,1,2,"%D",2,0) file. "^DD",200,200.5321,.01,1,2,"DT") 3171006 "^DD",200,200.5321,.01,3) Enter DEA number in the format 2 upper case letters followed by 7 numbers. "^DD",200,200.5321,.01,21,0) ^.001^3^3^3220311^^^ "^DD",200,200.5321,.01,21,1,0) This field is used to enter the provider's Drug Enforcement Administration "^DD",200,200.5321,.01,21,2,0) (DEA) number(s). Enter the DEA number as two upper case letters followed "^DD",200,200.5321,.01,21,3,0) by 7 digits. e.g., AA1234567. "^DD",200,200.5321,.01,23,0) ^.001^27^27^3220311^^ "^DD",200,200.5321,.01,23,1,0) This is the algorithm for the DEA number "^DD",200,200.5321,.01,23,2,0) checking. "^DD",200,200.5321,.01,23,3,0) "^DD",200,200.5321,.01,23,4,0) The first letter for practitioners (physicians, "^DD",200,200.5321,.01,23,5,0) dentists, veterinarians, pharmacies, etc.) is "^DD",200,200.5321,.01,23,6,0) either "A","B","F", or "G". The first letter "^DD",200,200.5321,.01,23,7,0) for mid-level practitioners (physician "^DD",200,200.5321,.01,23,8,0) assistants, nurse practitioners, etc.) is "^DD",200,200.5321,.01,23,9,0) usually an "M". This field is designed "^DD",200,200.5321,.01,23,10,0) to accept any upper case alphabetic letter. "^DD",200,200.5321,.01,23,11,0) "^DD",200,200.5321,.01,23,12,0) The second letter should be the first letter of "^DD",200,200.5321,.01,23,13,0) the practitioner's last name. Sometimes this "^DD",200,200.5321,.01,23,14,0) does not match if the registrant changed their "^DD",200,200.5321,.01,23,15,0) name or the DEA did not get it correct the "^DD",200,200.5321,.01,23,16,0) first time. "^DD",200,200.5321,.01,23,17,0) "^DD",200,200.5321,.01,23,18,0) The check digit algorithm is as follows: "^DD",200,200.5321,.01,23,19,0) AS1234563 "^DD",200,200.5321,.01,23,20,0) "^DD",200,200.5321,.01,23,21,0) 1 + 3 + 5 = 9 2 + 4 + 6 = 12 x 2 = 24 "^DD",200,200.5321,.01,23,22,0) 9 + 24 = 33 "^DD",200,200.5321,.01,23,23,0) "^DD",200,200.5321,.01,23,24,0) The last digit of the total must equal the "^DD",200,200.5321,.01,23,25,0) check digit (the last digit of the DEA number). "^DD",200,200.5321,.01,23,26,0) "^DD",200,200.5321,.01,23,27,0) (33#10)=$E("AS1234563",9) "^DD",200,200.5321,.01,"DT") 3210507 "^DD",200,200.5321,.02,0) INDIVIDUAL DEA SUFFIX^FJ10X^^0;2^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 "^DD",200,200.5321,.02,1,0) ^.1^^0 "^DD",200,200.5321,.02,3) Enter the individual DEA suffix if this is an institutional DEA number. Answer must be 3-10 characters in length with NO spaces. "^DD",200,200.5321,.02,21,0) ^.001^2^2^3220117^^ "^DD",200,200.5321,.02,21,1,0) This is the individual DEA suffix related to an institutional DEA number. "^DD",200,200.5321,.02,21,2,0) This field is required if the DEA is an institutional DEA number. "^DD",200,200.5321,.02,"DT") 3181001 "^DD",200,200.5321,.03,0) DEA POINTER^*P8991.9'^XTV(8991.9,^0;3^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 "^DD",200,200.5321,.03,3) Select the DEA number from those available in the DEA NUMBERS FILE. "^DD",200,200.5321,.03,12) Entry must match the DEA NUMBER field (#.01) in the NEW DEA #'S multiple (#53.21) in the NEW PERSON file (#200). "^DD",200,200.5321,.03,12.1) S DIC("S")="I $P($G(^VA(200,DA(1),""PS4"",DA,0)),U)=$P($G(^XTV(8991.9,Y,0)),U)" "^DD",200,200.5321,.03,21,0) ^.001^5^5^3220311^^^ "^DD",200,200.5321,.03,21,1,0) This pointer field points to the DEA NUMBERS FILE #8991.9 that contains "^DD",200,200.5321,.03,21,2,0) the provider demographics and controlled substance schedule permissions. "^DD",200,200.5321,.03,21,3,0) "^DD",200,200.5321,.03,21,4,0) Enter the DEA number as two upper case letters followed by 7 digits, e.g., "^DD",200,200.5321,.03,21,5,0) AA1234567. "^DD",200,200.5321,.03,23,0) ^.001^27^27^3220311^^^^ "^DD",200,200.5321,.03,23,1,0) This is the algorithm for the DEA number "^DD",200,200.5321,.03,23,2,0) checking. "^DD",200,200.5321,.03,23,3,0) "^DD",200,200.5321,.03,23,4,0) The first letter for practitioners (physicians, "^DD",200,200.5321,.03,23,5,0) dentists, veterinarians, pharmacies, etc) is "^DD",200,200.5321,.03,23,6,0) either "A","B","F", or "G". The first letter "^DD",200,200.5321,.03,23,7,0) for mid-level practitioners (physician "^DD",200,200.5321,.03,23,8,0) assistants, nurse practitioners, etc.) is "^DD",200,200.5321,.03,23,9,0) usually an "M". This field is designed to "^DD",200,200.5321,.03,23,10,0) accept any upper case alphabetic letter. "^DD",200,200.5321,.03,23,11,0) "^DD",200,200.5321,.03,23,12,0) The second letter should be the first letter of "^DD",200,200.5321,.03,23,13,0) the practitioner's last name. Sometimes this "^DD",200,200.5321,.03,23,14,0) does not match if the registrant changed their "^DD",200,200.5321,.03,23,15,0) name or the DEA did not get it correct the "^DD",200,200.5321,.03,23,16,0) first time. "^DD",200,200.5321,.03,23,17,0) "^DD",200,200.5321,.03,23,18,0) The check digit algorithm is as follows: "^DD",200,200.5321,.03,23,19,0) AS1234563 "^DD",200,200.5321,.03,23,20,0) "^DD",200,200.5321,.03,23,21,0) 1 + 3 + 5 = 9 2 + 4 + 6 = 12 x 2 = 24 "^DD",200,200.5321,.03,23,22,0) 9 + 24 = 33 "^DD",200,200.5321,.03,23,23,0) "^DD",200,200.5321,.03,23,24,0) The last digit of the total must equal the "^DD",200,200.5321,.03,23,25,0) check digit (the last digit of the DEA number). "^DD",200,200.5321,.03,23,26,0) "^DD",200,200.5321,.03,23,27,0) (33#10)=$E("AS1234563",9) "^DD",200,200.5321,.03,"DT") 3210507 "^DD",8991.8,8991.8,0) FIELD^^2^5 "^DD",8991.8,8991.8,0,"DT") 3210727 "^DD",8991.8,8991.8,0,"IX","B",8991.8,.01) "^DD",8991.8,8991.8,0,"NM","DEA BUSINESS ACTIVITY CODES") "^DD",8991.8,8991.8,0,"PT",8991.9,.02) "^DD",8991.8,8991.8,0,"VRPK") XU "^DD",8991.8,8991.8,.01,0) FULL BUSINESS ACTIVITY CODE^RFJ4^^0;1^K:$L(X)>4!($L(X)<2)!'(X'?1P.E) X "^DD",8991.8,8991.8,.01,1,0) ^.1 "^DD",8991.8,8991.8,.01,1,1,0) 8991.8^B "^DD",8991.8,8991.8,.01,1,1,1) S ^XTV(8991.8,"B",$E(X,1,30),DA)="" "^DD",8991.8,8991.8,.01,1,1,2) K ^XTV(8991.8,"B",$E(X,1,30),DA) "^DD",8991.8,8991.8,.01,3) Enter the full business activity code. This is composed of the Business activity code and sub-code used for DEA numbers. Answer must be 2-4 characters in length. "^DD",8991.8,8991.8,.01,21,0) ^.001^11^11^3220118^^^^ "^DD",8991.8,8991.8,.01,21,1,0) DEA uses an alpha character business activity code to identify various "^DD",8991.8,8991.8,.01,21,2,0) categories of registrants. For example business activity code "C" "^DD",8991.8,8991.8,.01,21,3,0) indicates a "Practitioner". DEA added a business activity sub-code field "^DD",8991.8,8991.8,.01,21,4,0) to identify new sub-categories of registrants. "^DD",8991.8,8991.8,.01,21,5,0) For example business activity code "C" in combination with business "^DD",8991.8,8991.8,.01,21,6,0) activity sub-code "1" indicates a practitioner who has received a Drug "^DD",8991.8,8991.8,.01,21,7,0) Addiction Treatment Act (DATA) Waiver (DATA Waived or DW) to provide "^DD",8991.8,8991.8,.01,21,8,0) office based opioid treatment to 30 or 100 or 275 patients (DW/30, DW/100, "^DD",8991.8,8991.8,.01,21,9,0) DW/275). As new sub-categories of business activities become regulated, "^DD",8991.8,8991.8,.01,21,10,0) additional sub-code combinations (e.g. C-2, C-3, A-1, etc.) will be "^DD",8991.8,8991.8,.01,21,11,0) assigned. MLP = Mid-Level Practitioner. NG = National Guard. "^DD",8991.8,8991.8,.01,"DT") 3180627 "^DD",8991.8,8991.8,.02,0) BUSINESS ACTIVITY^FJ3^^0;2^K:$L(X)>3!($L(X)<1) X "^DD",8991.8,8991.8,.02,3) Enter the Business Activity value for used for DEA numbers. Answer must be 1-3 characters in length. "^DD",8991.8,8991.8,.02,21,0) ^.001^6^6^3220118^^^ "^DD",8991.8,8991.8,.02,21,1,0) This field holds the Business Activity value used for DEA numbers. This "^DD",8991.8,8991.8,.02,21,2,0) value can currently be one of the following: "^DD",8991.8,8991.8,.02,21,3,0) A,B,C,D,E,F,G,H,J,K,L,M,N,P,R,S,T or U "^DD",8991.8,8991.8,.02,21,4,0) "^DD",8991.8,8991.8,.02,21,5,0) This value, combined with a numeric business sub-type, categorizes a DEA "^DD",8991.8,8991.8,.02,21,6,0) number. "^DD",8991.8,8991.8,.02,"DT") 3171005 "^DD",8991.8,8991.8,.03,0) BUSINESS ACTIVITY SUB-CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<1) X "^DD",8991.8,8991.8,.03,3) Enter the business activity sub-code associated with the Business Activity Code. Answer must be 1-3 characters in length. "^DD",8991.8,8991.8,.03,21,0) ^.001^11^11^3220118^^^^ "^DD",8991.8,8991.8,.03,21,1,0) DEA uses an alpha character business activity code to identify various "^DD",8991.8,8991.8,.03,21,2,0) categories of registrants. For example business activity code "C" "^DD",8991.8,8991.8,.03,21,3,0) indicates a "Practitioner". DEA added a business activity sub-code field "^DD",8991.8,8991.8,.03,21,4,0) to identify new sub-categories of registrants. "^DD",8991.8,8991.8,.03,21,5,0) For example business activity code "C" in combination with business "^DD",8991.8,8991.8,.03,21,6,0) activity sub-code "1" indicates a practitioner who has received a Drug "^DD",8991.8,8991.8,.03,21,7,0) Addiction Treatment Act (DATA) Waiver (DATA Waived or DW) to provide "^DD",8991.8,8991.8,.03,21,8,0) office based opioid treatment to 30 or 100 or 275 patients (DW/30, DW/100, "^DD",8991.8,8991.8,.03,21,9,0) DW/275). As new sub-categories of business activities become regulated, "^DD",8991.8,8991.8,.03,21,10,0) additional sub-code combinations (e.g. C-2, C-3, A-1, etc.) will be "^DD",8991.8,8991.8,.03,21,11,0) assigned. MLP = Mid-Level Practitioner. NG = National Guard "^DD",8991.8,8991.8,.03,"DT") 3171005 "^DD",8991.8,8991.8,1,0) BUSINESS ACTIVITY DESCRIPTION^FJ60^^1;1^K:$L(X)>60!($L(X)<3) X "^DD",8991.8,8991.8,1,3) Enter the Business Activity description given for the Business Activity code and Business Activity Sub-code. Answer must be 3-60 characters in length. "^DD",8991.8,8991.8,1,21,0) ^.001^1^1^3220118^^ "^DD",8991.8,8991.8,1,21,1,0) This is the description given for the Business Activity Code and Sub-code. "^DD",8991.8,8991.8,1,"DT") 3171005 "^DD",8991.8,8991.8,2,0) MANUAL ENTRY DATE/TIME^D^^1;2^S %DT="EST" D ^%DT S X=Y K:Y<1 X "^DD",8991.8,8991.8,2,3) This is the date/time this Business Activity Code was manually entered. "^DD",8991.8,8991.8,2,21,0) ^.001^3^3^3220118^^^ "^DD",8991.8,8991.8,2,21,1,0) This field should only be populated when a new Business Activity Code "^DD",8991.8,8991.8,2,21,2,0) (BAC) is entered manually due to the failure of the PSO DOJ/DEA WEB "^DD",8991.8,8991.8,2,21,3,0) SERVICE to establish a connection to the DOJ web server. "^DD",8991.8,8991.8,2,"DT") 3210727 "^DD",8991.9,8991.9,0) FIELD^^.07^22 "^DD",8991.9,8991.9,0,"DT") 3220228 "^DD",8991.9,8991.9,0,"IX","AC",8991.9,.06) "^DD",8991.9,8991.9,0,"IX","B",8991.9,.01) "^DD",8991.9,8991.9,0,"NM","DEA NUMBERS") "^DD",8991.9,8991.9,0,"PT",200.5321,.03) "^DD",8991.9,8991.9,0,"VRPK") XU "^DD",8991.9,8991.9,.01,0) DEA NUMBER^RFJ9X^^0;1^K:'$$VALN2DEA^XUSER3(X) X "^DD",8991.9,8991.9,.01,1,0) ^.1 "^DD",8991.9,8991.9,.01,1,1,0) 8991.9^B "^DD",8991.9,8991.9,.01,1,1,1) S ^XTV(8991.9,"B",$E(X,1,30),DA)="" "^DD",8991.9,8991.9,.01,1,1,2) K ^XTV(8991.9,"B",$E(X,1,30),DA) "^DD",8991.9,8991.9,.01,3) Enter the DEA number in the format of 2 letters followed by 7 numbers. "^DD",8991.9,8991.9,.01,4) "^DD",8991.9,8991.9,.01,21,0) ^.001^3^3^3220311^^ "^DD",8991.9,8991.9,.01,21,1,0) This field is used to enter the providers' Drug Enforcement Administration "^DD",8991.9,8991.9,.01,21,2,0) (DEA) number. Enter the DEA number as two upper case letters followed "^DD",8991.9,8991.9,.01,21,3,0) by 7 digits. e.g., AA1234567. "^DD",8991.9,8991.9,.01,23,0) ^^28^28^3220311^ "^DD",8991.9,8991.9,.01,23,1,0) This is the algorithm for the DEA number "^DD",8991.9,8991.9,.01,23,2,0) checking. "^DD",8991.9,8991.9,.01,23,3,0) "^DD",8991.9,8991.9,.01,23,4,0) The first letter for practitioners (physicians, "^DD",8991.9,8991.9,.01,23,5,0) dentists, veterinarians, pharmacies, etc.) is "^DD",8991.9,8991.9,.01,23,6,0) either "A","B","F", or "G". The first letter "^DD",8991.9,8991.9,.01,23,7,0) for mid-level practitioners (physician "^DD",8991.9,8991.9,.01,23,8,0) assistants, nurse practitioners, etc.) is "^DD",8991.9,8991.9,.01,23,9,0) usually an "M". This field is designed to "^DD",8991.9,8991.9,.01,23,10,0) accept any upper case alphabetic letter. "^DD",8991.9,8991.9,.01,23,11,0) "^DD",8991.9,8991.9,.01,23,12,0) The second letter should be the first letter of "^DD",8991.9,8991.9,.01,23,13,0) the practitioner's last name. Sometimes this "^DD",8991.9,8991.9,.01,23,14,0) does not match if the registrant changed their "^DD",8991.9,8991.9,.01,23,15,0) name or the DEA did not get it correct the "^DD",8991.9,8991.9,.01,23,16,0) first time. "^DD",8991.9,8991.9,.01,23,17,0) "^DD",8991.9,8991.9,.01,23,18,0) The check digit algorithm is as follows: "^DD",8991.9,8991.9,.01,23,19,0) "^DD",8991.9,8991.9,.01,23,20,0) AS1234563 "^DD",8991.9,8991.9,.01,23,21,0) "^DD",8991.9,8991.9,.01,23,22,0) 1 + 3 + 5 = 9 2 + 4 + 6 = 12 x 2 = 24 "^DD",8991.9,8991.9,.01,23,23,0) 9 + 24 = 33 "^DD",8991.9,8991.9,.01,23,24,0) "^DD",8991.9,8991.9,.01,23,25,0) The last digit of the total must equal the "^DD",8991.9,8991.9,.01,23,26,0) check digit (the last digit of the DEA number). "^DD",8991.9,8991.9,.01,23,27,0) "^DD",8991.9,8991.9,.01,23,28,0) (33#10)=$E("AS1234563",9) "^DD",8991.9,8991.9,.01,"DT") 3210601 "^DD",8991.9,8991.9,.02,0) BUSINESS ACTIVITY CODE^P8991.8'^XTV(8991.8,^0;2^Q "^DD",8991.9,8991.9,.02,3) Enter the Business Activity code given to this DEA Number. "^DD",8991.9,8991.9,.02,21,0) ^.001^1^1^3220118^^ "^DD",8991.9,8991.9,.02,21,1,0) This is the business activity code related to this DEA Number. "^DD",8991.9,8991.9,.02,"DT") 3171005 "^DD",8991.9,8991.9,.03,0) DETOX NUMBER^FJ9^^0;3^K:$L(X)>9!($L(X)<9) X "^DD",8991.9,8991.9,.03,1,0) ^.1^^0 "^DD",8991.9,8991.9,.03,3) Enter the detox number associated with this DEA Number. Answer must be 9 characters in length. "^DD",8991.9,8991.9,.03,21,0) ^.001^2^2^3220118^^^ "^DD",8991.9,8991.9,.03,21,1,0) If the DEA provider has detox privileges, this field will be populated "^DD",8991.9,8991.9,.03,21,2,0) with a 'VX' or 'XA' followed by the numeric portion of the DEA number. "^DD",8991.9,8991.9,.03,"DT") 3210601 "^DD",8991.9,8991.9,.04,0) EXPIRATION DATE^D^^0;4^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",8991.9,8991.9,.04,3) Enter the date this DEA Number expires. "^DD",8991.9,8991.9,.04,21,0) ^.001^1^1^3220118^^^ "^DD",8991.9,8991.9,.04,21,1,0) This is the date of expiration for the DEA Number. "^DD",8991.9,8991.9,.04,"DT") 3190107 "^DD",8991.9,8991.9,.06,0) USE FOR INPATIENT ORDERS?^S^1:YES;0:NO;^0;6^Q "^DD",8991.9,8991.9,.06,1,0) ^.1 "^DD",8991.9,8991.9,.06,1,1,0) 8991.9^AC^MUMPS "^DD",8991.9,8991.9,.06,1,1,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") "^DD",8991.9,8991.9,.06,1,1,2) Q "^DD",8991.9,8991.9,.06,1,1,"%D",0) ^.101^3^3^3181126^^ "^DD",8991.9,8991.9,.06,1,1,"%D",1,0) This is a trigger to set the NEW PERSON FILE #200, DEA# FIELD #53.2 "^DD",8991.9,8991.9,.06,1,1,"%D",2,0) when the DEA NUMBERS FILE #8991.9 USE FOR INPATIENT ORDERS? FIELD "^DD",8991.9,8991.9,.06,1,1,"%D",3,0) #.06 is modified. "^DD",8991.9,8991.9,.06,1,1,"DT") 3181126 "^DD",8991.9,8991.9,.06,3) Can this DEA be used for inpatient orders? Answer 'YES' or 'NO'. "^DD",8991.9,8991.9,.06,21,0) ^.001^1^1^3220118^^ "^DD",8991.9,8991.9,.06,21,1,0) This field indicates if this DEA number can be used for inpatient orders. "^DD",8991.9,8991.9,.06,"DT") 3181126 "^DD",8991.9,8991.9,.07,0) TYPE^S^1:INSTITUTIONAL;2:INDIVIDUAL;^0;7^Q "^DD",8991.9,8991.9,.07,3) Enter the usage type for the DEA. The DEA usage type may be 'Individual', or 'Institutional. "^DD",8991.9,8991.9,.07,21,0) ^.001^2^2^3220118^^ "^DD",8991.9,8991.9,.07,21,1,0) This identifies whether the DEA number is an individual DEA number or an "^DD",8991.9,8991.9,.07,21,2,0) Institutional DEA number. "^DD",8991.9,8991.9,.07,"DT") 3180913 "^DD",8991.9,8991.9,1.1,0) NAME (PROVIDER OR INSTITUTION)^FJ40^^1;1^K:$L(X)>40!($L(X)<1) X "^DD",8991.9,8991.9,1.1,3) Enter the name associated with this DEA Number. Answer must be 1-40 characters in length. "^DD",8991.9,8991.9,1.1,21,0) ^.001^2^2^3220118^^ "^DD",8991.9,8991.9,1.1,21,1,0) This is the name of the facility or person who is associated with this "^DD",8991.9,8991.9,1.1,21,2,0) DEA Number. "^DD",8991.9,8991.9,1.1,"DT") 3171005 "^DD",8991.9,8991.9,1.2,0) ADDITIONAL COMPANY INFO^FJ40^^1;2^K:$L(X)>40!($L(X)<1) X "^DD",8991.9,8991.9,1.2,3) Enter additional company info for the given person/institution. Answer must be 1-40 characters in length. "^DD",8991.9,8991.9,1.2,21,0) ^^2^2^3220228^ "^DD",8991.9,8991.9,1.2,21,1,0) This is the additional company information of the person or institution "^DD",8991.9,8991.9,1.2,21,2,0) associated with this DEA Number. "^DD",8991.9,8991.9,1.2,"DT") 3220228 "^DD",8991.9,8991.9,1.3,0) STREET ADDRESS 1^FJ40^^1;3^K:$L(X)>40!($L(X)<1) X "^DD",8991.9,8991.9,1.3,3) Enter street address line 1 for the given person/institution. Answer must be 1-40 characters in length. "^DD",8991.9,8991.9,1.3,21,0) ^.001^2^2^3220228^^ "^DD",8991.9,8991.9,1.3,21,1,0) This is the first line of the street address of the permanent address of "^DD",8991.9,8991.9,1.3,21,2,0) the person or institution associated with this DEA Number. "^DD",8991.9,8991.9,1.3,"DT") 3220228 "^DD",8991.9,8991.9,1.4,0) STREET ADDRESS 2^FJ40^^1;4^K:$L(X)>40!($L(X)<1) X "^DD",8991.9,8991.9,1.4,3) Enter street address line 2 for the given person/institution. Answer must be 1-40 characters in length. "^DD",8991.9,8991.9,1.4,21,0) ^.001^2^2^3220228^^ "^DD",8991.9,8991.9,1.4,21,1,0) This is the second line of the street address of the permanent address of "^DD",8991.9,8991.9,1.4,21,2,0) the person or institution associated with this DEA Number. "^DD",8991.9,8991.9,1.4,"DT") 3220228 "^DD",8991.9,8991.9,1.5,0) CITY^FJ33^^1;5^K:$L(X)>33!($L(X)<1) X "^DD",8991.9,8991.9,1.5,3) 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. "^DD",8991.9,8991.9,1.5,21,0) ^.001^2^2^3220118^^ "^DD",8991.9,8991.9,1.5,21,1,0) This is the city of the permanent address of the person or institution "^DD",8991.9,8991.9,1.5,21,2,0) related to this DEA Number. "^DD",8991.9,8991.9,1.5,"DT") 3171005 "^DD",8991.9,8991.9,1.6,0) STATE^P5'^DIC(5,^1;6^Q "^DD",8991.9,8991.9,1.6,3) Enter the state of the permanent address associated with the person or institution associated with this DEA Number. "^DD",8991.9,8991.9,1.6,21,0) ^.001^2^2^3220118^^^ "^DD",8991.9,8991.9,1.6,21,1,0) This is the state of the permanent address of the person or institution "^DD",8991.9,8991.9,1.6,21,2,0) associated with this DEA Number. "^DD",8991.9,8991.9,1.6,"DT") 3180913 "^DD",8991.9,8991.9,1.7,0) ZIP CODE^FJ9^^1;7^K:$L(X)>9!($L(X)<5) X "^DD",8991.9,8991.9,1.7,3) Enter the ZIP CODE or ZIP+4. Answer must be 5-9 characters in length. "^DD",8991.9,8991.9,1.7,21,0) ^.001^2^2^3220118^^ "^DD",8991.9,8991.9,1.7,21,1,0) This is the postal ZIP code of the person or institution associated with "^DD",8991.9,8991.9,1.7,21,2,0) this DEA Number. "^DD",8991.9,8991.9,1.7,"DT") 3171005 "^DD",8991.9,8991.9,2.1,0) SCHEDULE II NARCOTIC^S^1:YES;0:NO;^2;1^Q "^DD",8991.9,8991.9,2.1,3) DEA number allows for schedule II drugs? "^DD",8991.9,8991.9,2.1,21,0) ^.001^2^2^3220118^^^ "^DD",8991.9,8991.9,2.1,21,1,0) This field is used to determine if the provider has privileges for "^DD",8991.9,8991.9,2.1,21,2,0) Schedule II drugs. "^DD",8991.9,8991.9,2.1,"DT") 3210923 "^DD",8991.9,8991.9,2.2,0) SCHEDULE II NON-NARCOTIC^S^1:YES;0:NO;^2;2^Q "^DD",8991.9,8991.9,2.2,3) Provider has privileges for schedule II non-narcotic? "^DD",8991.9,8991.9,2.2,21,0) ^.001^2^2^3220118^^^ "^DD",8991.9,8991.9,2.2,21,1,0) This field is used to determine if the provider has privileges for "^DD",8991.9,8991.9,2.2,21,2,0) Schedule II non-narcotic. "^DD",8991.9,8991.9,2.2,"DT") 3210923 "^DD",8991.9,8991.9,2.3,0) SCHEDULE III NARCOTIC^S^1:YES;0:NO;^2;3^Q "^DD",8991.9,8991.9,2.3,3) Provider has privileges for schedule III narcotic? "^DD",8991.9,8991.9,2.3,21,0) ^^2^2^3220228^ "^DD",8991.9,8991.9,2.3,21,1,0) This field is used to determine if the provider has privileges for "^DD",8991.9,8991.9,2.3,21,2,0) Schedule III narcotic. "^DD",8991.9,8991.9,2.3,"DT") 3210923 "^DD",8991.9,8991.9,2.4,0) SCHEDULE III NON-NARCOTIC^S^1:YES;0:NO;^2;4^Q "^DD",8991.9,8991.9,2.4,3) Provider has privileges for schedule III non-narcotic? "^DD",8991.9,8991.9,2.4,21,0) ^.001^2^2^3210923^^ "^DD",8991.9,8991.9,2.4,21,1,0) This field is used to determine if the provider has privileges for "^DD",8991.9,8991.9,2.4,21,2,0) Schedule III non-narcotic. "^DD",8991.9,8991.9,2.4,"DT") 3210923 "^DD",8991.9,8991.9,2.5,0) SCHEDULE IV^S^1:YES;0:NO;^2;5^Q "^DD",8991.9,8991.9,2.5,3) Provider has privileges for schedule IV? "^DD",8991.9,8991.9,2.5,21,0) ^.001^2^2^3210923^^ "^DD",8991.9,8991.9,2.5,21,1,0) This field is used to determine if the provider has privileges for "^DD",8991.9,8991.9,2.5,21,2,0) Schedule IV controlled substances. "^DD",8991.9,8991.9,2.5,"DT") 3210923 "^DD",8991.9,8991.9,2.6,0) SCHEDULE V^S^1:YES;0:NO;^2;6^Q "^DD",8991.9,8991.9,2.6,3) Provider has privileges for schedule V? "^DD",8991.9,8991.9,2.6,21,0) ^.001^2^2^3210923^^ "^DD",8991.9,8991.9,2.6,21,1,0) This field is used to determine if the provider has privileges for "^DD",8991.9,8991.9,2.6,21,2,0) Schedule V controlled substances. "^DD",8991.9,8991.9,2.6,"DT") 3210923 "^DD",8991.9,8991.9,10.1,0) LAST UPDATED BY^P200'^VA(200,^10;1^Q "^DD",8991.9,8991.9,10.1,3) Enter the person who last updated this DEA record. "^DD",8991.9,8991.9,10.1,21,0) ^.001^2^2^3220118^^ "^DD",8991.9,8991.9,10.1,21,1,0) This is the person from the NEW PERSON file who last initiated an update "^DD",8991.9,8991.9,10.1,21,2,0) to this DEA record. "^DD",8991.9,8991.9,10.1,"DT") 3171005 "^DD",8991.9,8991.9,10.2,0) LAST UPDATED DATE/TIME^D^^10;2^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X "^DD",8991.9,8991.9,10.2,3) Enter the date/time this DEA record was last updated. "^DD",8991.9,8991.9,10.2,21,0) ^.001^1^1^3220118^^ "^DD",8991.9,8991.9,10.2,21,1,0) This is the date/time of the last update to this DEA record. "^DD",8991.9,8991.9,10.2,"DT") 3171005 "^DD",8991.9,8991.9,10.3,0) LAST DOJ UPDATE DATE/TIME^D^^10;3^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X "^DD",8991.9,8991.9,10.3,3) Enter the date/time this DEA record was last updated by the DOJ source. "^DD",8991.9,8991.9,10.3,21,0) ^.001^2^2^3220118^^ "^DD",8991.9,8991.9,10.3,21,1,0) This is the date/time the DOJ (Department of Justice) data was used to "^DD",8991.9,8991.9,10.3,21,2,0) update this DEA record. "^DD",8991.9,8991.9,10.3,"DT") 3171005 "^DIC",8991.8,8991.8,0) DEA BUSINESS ACTIVITY CODES^8991.8 "^DIC",8991.8,8991.8,0,"GL") ^XTV(8991.8, "^DIC",8991.8,8991.8,"%",0) ^1.005^^0 "^DIC",8991.8,8991.8,"%D",0) ^^4^4^3220118^^ "^DIC",8991.8,8991.8,"%D",1,0) The DEA BUSINESS ACTIVITY CODES FILE is associated with the DEA numbers "^DIC",8991.8,8991.8,"%D",2,0) and provider information in the DEA NUMBERS file. This file links a "^DIC",8991.8,8991.8,"%D",3,0) provider with the type of service provided. It contains BUSINESS "^DIC",8991.8,8991.8,"%D",4,0) ACTIVITY CODES that are supplied by the DOJ/DEA web service. "^DIC",8991.8,"B","DEA BUSINESS ACTIVITY CODES",8991.8) "^DIC",8991.9,8991.9,0) DEA NUMBERS^8991.9 "^DIC",8991.9,8991.9,0,"GL") ^XTV(8991.9, "^DIC",8991.9,8991.9,"%",0) ^1.005^^0 "^DIC",8991.9,8991.9,"%D",0) ^^3^3^3220118^ "^DIC",8991.9,8991.9,"%D",1,0) The DEA NUMBERS FILE is designed to contain demographic and permission "^DIC",8991.9,8991.9,"%D",2,0) information about a provider related to the ability to order controlled "^DIC",8991.9,8991.9,"%D",3,0) substance prescriptions. "^DIC",8991.9,"B","DEA NUMBERS",8991.9) "BLD",11111,6) ^606 **END** **END**