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 Dec 13, 2024@02:06:39 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
