source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSODEA.m@ 1685

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

revised back to 6/30/08 version

File size: 1.2 KB
RevLine 
[623]1PSODEA ;BHAM ISC/ - HELP TEXT FOR DEA FIELD IN DRUG FILE ; 06/03/92 17:28
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3 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,"
4 W !,"A SCHEDULE 3 NARCOTIC WILL BE CODED '3A' AND A SCHEDULE 2 DEPRESSANT",!,"WILL BE CODED '2L'. THE CODES ARE:",!
5 F I=1:1 S AA=$P($T(D+I),";",3,99) Q:AA="" W !?10,AA
6D K AA Q
7 ;;0 MANUFACTURED IN PHARMACY
8 ;;1 SCHEDULE 1 ITEM
9 ;;2 SCHEDULE 2 ITEM
10 ;;3 SCHEDULE 3 ITEM
11 ;;4 SCHEDULE 4 ITEM
12 ;;5 SCHEDULE 5 ITEM
13 ;;6 LEGEND ITEM
14 ;;9 OVER-THE-COUNTER
15 ;;L DEPRESSANTS AND STIMULANTS
16 ;;A NARCOTICS AND ALCOHOLICS
17 ;;P DATED DRUGS
18 ;;I INVESTIGATIONAL DRUGS
19 ;;M BULK COMPOUND ITEMS
20 ;;C CONTROLLED SUBSTANCES - NON NARCOTIC
21 ;;R RESTRICTED ITEMS
22 ;;S SUPPLY ITEMS
23 ;;B ALLOW REFILL (SCH. 3, 4, 5 NARCOTICS ONLY)
24 ;;W NOT RENEWABLE
25 ;;
26EDIT ;INPUT XFORM FOR DEA FIELD IN DRUG FILE
27 I X["B",(+X<3!(X'["A")) W !,"The B designation is only valid for schedule 3, 4, 5 narcotics !",$C(7) K X Q
28 Q
Note: See TracBrowser for help on using the repository browser.