PSODEA ;BHAM ISC/ - HELP TEXT FOR DEA FIELD IN DRUG FILE ; 10/17/07 7:41am
;;7.0;OUTPATIENT PHARMACY;**206**;DEC 1997;Build 39
W !,"THE SPECIAL HANDLING CODE IS A 2 TO 6 POSTION FIELD. IF APPLICABLE,",!,"A SCHEDULE CODE MUST APPEAR IN THE FIRST POSITION. FOR EXAMPLE,"
W !,"A SCHEDULE 3 NARCOTIC WILL BE CODED '3A' AND A SCHEDULE 2 DEPRESSANT",!,"WILL BE CODED '2L'. THE CODES ARE:",!
F I=1:1 S AA=$P($T(D+I),";",3,99) Q:AA="" W !?10,AA
D K AA Q
;;0 MANUFACTURED IN PHARMACY
;;1 SCHEDULE 1 ITEM
;;2 SCHEDULE 2 ITEM
;;3 SCHEDULE 3 ITEM
;;4 SCHEDULE 4 ITEM
;;5 SCHEDULE 5 ITEM
;;6 LEGEND ITEM
;;9 OVER-THE-COUNTER
;;L DEPRESSANTS AND STIMULANTS
;;A NARCOTICS AND ALCOHOLICS
;;P DATED DRUGS
;;I INVESTIGATIONAL DRUGS
;;M BULK COMPOUND ITEMS
;;C CONTROLLED SUBSTANCES - NON NARCOTIC
;;R RESTRICTED ITEMS
;;S SUPPLY ITEMS
;;B ALLOW REFILL (SCH. 3, 4, 5 ONLY)
;;W NOT RENEWABLE
;;
EDIT ;INPUT XFORM FOR DEA FIELD IN DRUG FILE
I X["B",(+X<3) W !,"The B designation is only valid for schedule 3, 4, 5 !",$C(7) K X Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSODEA 1230 printed Sep 23, 2025@20:02:47 Page 2
PSODEA ;BHAM ISC/ - HELP TEXT FOR DEA FIELD IN DRUG FILE ; 10/17/07 7:41am
+1 ;;7.0;OUTPATIENT PHARMACY;**206**;DEC 1997;Build 39
+2 WRITE !,"THE SPECIAL HANDLING CODE IS A 2 TO 6 POSTION FIELD. IF APPLICABLE,",!,"A SCHEDULE CODE MUST APPEAR IN THE FIRST POSITION. FOR EXAMPLE,"
+3 WRITE !,"A SCHEDULE 3 NARCOTIC WILL BE CODED '3A' AND A SCHEDULE 2 DEPRESSANT",!,"WILL BE CODED '2L'. THE CODES ARE:",!
+4 FOR I=1:1
SET AA=$PIECE($TEXT(D+I),";",3,99)
if AA=""
QUIT
WRITE !?10,AA
D KILL AA
QUIT
+1 ;;0 MANUFACTURED IN PHARMACY
+2 ;;1 SCHEDULE 1 ITEM
+3 ;;2 SCHEDULE 2 ITEM
+4 ;;3 SCHEDULE 3 ITEM
+5 ;;4 SCHEDULE 4 ITEM
+6 ;;5 SCHEDULE 5 ITEM
+7 ;;6 LEGEND ITEM
+8 ;;9 OVER-THE-COUNTER
+9 ;;L DEPRESSANTS AND STIMULANTS
+10 ;;A NARCOTICS AND ALCOHOLICS
+11 ;;P DATED DRUGS
+12 ;;I INVESTIGATIONAL DRUGS
+13 ;;M BULK COMPOUND ITEMS
+14 ;;C CONTROLLED SUBSTANCES - NON NARCOTIC
+15 ;;R RESTRICTED ITEMS
+16 ;;S SUPPLY ITEMS
+17 ;;B ALLOW REFILL (SCH. 3, 4, 5 ONLY)
+18 ;;W NOT RENEWABLE
+19 ;;
EDIT ;INPUT XFORM FOR DEA FIELD IN DRUG FILE
+1 IF X["B"
IF (+X<3)
WRITE !,"The B designation is only valid for schedule 3, 4, 5 !",$CHAR(7)
KILL X
QUIT
+2 QUIT
