source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJDEA.m@ 1147

Last change on this file since 1147 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PSJDEA ;BIR/CML3-HELP TEXT FOR DEA FIELD IN DRUG FILE ;20 JUN 94 / 5:24 PM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 N %,%Y,X,Y
4 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'."
5 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.",!
6 I %=1 W ! F X=1:1 S Y=$P($T(L+X),";",3,99) Q:Y="" W !?10,Y
7 W ! Q
8 ;
9L ; list of codes
10 ;;0 MANUFACTURED IN PHARMACY
11 ;;1 SCHEDULE 1 ITEM
12 ;;2 SCHEDULE 2 ITEM
13 ;;3 SCHEDULE 3 ITEM
14 ;;4 SCHEDULE 4 ITEM
15 ;;5 SCHEDULE 5 ITEM
16 ;;6 LEGEND ITEM
17 ;;9 OVER-THE-COUNTER
18 ;;L DEPRESSANTS AND STIMULANTS
19 ;;A NARCOTICS AND ALCOHOLICS
20 ;;P DATED DRUGS
21 ;;I INVESTIGATIONAL DRUGS
22 ;;M BULK COMPOUND ITEMS
23 ;;C CONTROLLED SUBSTANCES - NON NARCOTIC
24 ;;R RESTRICTED ITEMS
25 ;;S SUPPLY ITEMS
26 ;;B ALLOW REFILL (SCHEDULE 3, 4, 5 NARCOTICS ONLY)
27 ;;W NOT RENEWABLE
28 ;;
29 ;
30EDIT ;
31 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
32 Q
Note: See TracBrowser for help on using the repository browser.