- 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 Feb 18, 2025@23:52:59 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