PSODEA.m

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

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