- PSJDEA ;BIR/CML3-HELP TEXT FOR DEA FIELD IN DRUG FILE ;20 JUN 94 / 5:24 PM
- ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
- N %,%Y,X,Y
- W !,"The special handling code is 1 to 6 characters. If applicable, the schedule",!,"code must appear in the first position. For example, a schedule 3 narcotic",!,"would be coded as '3A' and a schedule 2 depressant would be coded as '2L'."
- W ! F S %=2 W !,"Would you like a list of the codes" D YN^DICN Q:% W !!,"Answer 'YES' to view a list of the available codes.",!
- I %=1 W ! F X=1:1 S Y=$P($T(L+X),";",3,99) Q:Y="" W !?10,Y
- W ! Q
- ;
- L ; list of codes
- ;;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 (SCHEDULE 3, 4, 5 NARCOTICS ONLY)
- ;;W NOT RENEWABLE
- ;;
- ;
- EDIT ;
- I X["B",X<3!(X'["A") W !," The B designation is only valid for schedule 3, 4, and 5 narcotics!",$C(7) K X Q
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJDEA 1371 printed Feb 18, 2025@23:33:02 Page 2
- PSJDEA ;BIR/CML3-HELP TEXT FOR DEA FIELD IN DRUG FILE ;20 JUN 94 / 5:24 PM
- +1 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
- +2 NEW %,%Y,X,Y
- +3 WRITE !,"The special handling code is 1 to 6 characters. If applicable, the schedule",!,"code must appear in the first position. For example, a schedule 3 narcotic",!,"would be coded as '3A' and a schedule 2 depressant would be coded as '2L'.
- "
- +4 WRITE !
- FOR
- SET %=2
- WRITE !,"Would you like a list of the codes"
- DO YN^DICN
- if %
- QUIT
- WRITE !!,"Answer 'YES' to view a list of the available codes.",!
- +5 IF %=1
- WRITE !
- FOR X=1:1
- SET Y=$PIECE($TEXT(L+X),";",3,99)
- if Y=""
- QUIT
- WRITE !?10,Y
- +6 WRITE !
- QUIT
- +7 ;
- L ; list of codes
- +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 (SCHEDULE 3, 4, 5 NARCOTICS ONLY)
- +18 ;;W NOT RENEWABLE
- +19 ;;
- +20 ;
- EDIT ;
- +1 IF X["B"
- IF X<3!(X'["A")
- WRITE !," The B designation is only valid for schedule 3, 4, and 5 narcotics!",$CHAR(7)
- KILL X
- QUIT
- +2 QUIT