| 
            Last change
 on this file since 1313 was             623, checked in by George Lilly, 16 years ago           | 
        
        
          | 
             
revised back to 6/30/08 version 
 
           | 
        
        
          | 
            File size:
            1.2 KB
           | 
        
      
      
| Rev | Line |   | 
|---|
| [623] | 1 | PSODEA ;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
 | 
|---|
 | 6 | D 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 |  ;;
 | 
|---|
 | 26 | EDIT ;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.