source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSODEA.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1PSODEA ;BHAM ISC/ - HELP TEXT FOR DEA FIELD IN DRUG FILE ; 10/17/07 7:41am
2 ;;7.0;OUTPATIENT PHARMACY;**206**;DEC 1997;Build 39
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 ONLY)
24 ;;W NOT RENEWABLE
25 ;;
26EDIT ;INPUT XFORM FOR DEA FIELD IN DRUG FILE
27 I X["B",(+X<3) W !,"The B designation is only valid for schedule 3, 4, 5 !",$C(7) K X Q
28 Q
Note: See TracBrowser for help on using the repository browser.