Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSODEA

PSODEA.m

Go to the documentation of this file.
  1. PSODEA ;BHAM ISC/ - HELP TEXT FOR DEA FIELD IN DRUG FILE ; 10/17/07 7:41am
  1. ;;7.0;OUTPATIENT PHARMACY;**206**;DEC 1997;Build 39
  1. 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,"
  1. W !,"A SCHEDULE 3 NARCOTIC WILL BE CODED '3A' AND A SCHEDULE 2 DEPRESSANT",!,"WILL BE CODED '2L'. THE CODES ARE:",!
  1. F I=1:1 S AA=$P($T(D+I),";",3,99) Q:AA="" W !?10,AA
  1. D K AA Q
  1. ;;0 MANUFACTURED IN PHARMACY
  1. ;;1 SCHEDULE 1 ITEM
  1. ;;2 SCHEDULE 2 ITEM
  1. ;;3 SCHEDULE 3 ITEM
  1. ;;4 SCHEDULE 4 ITEM
  1. ;;5 SCHEDULE 5 ITEM
  1. ;;6 LEGEND ITEM
  1. ;;9 OVER-THE-COUNTER
  1. ;;L DEPRESSANTS AND STIMULANTS
  1. ;;A NARCOTICS AND ALCOHOLICS
  1. ;;P DATED DRUGS
  1. ;;I INVESTIGATIONAL DRUGS
  1. ;;M BULK COMPOUND ITEMS
  1. ;;C CONTROLLED SUBSTANCES - NON NARCOTIC
  1. ;;R RESTRICTED ITEMS
  1. ;;S SUPPLY ITEMS
  1. ;;B ALLOW REFILL (SCH. 3, 4, 5 ONLY)
  1. ;;W NOT RENEWABLE
  1. ;;
  1. EDIT ;INPUT XFORM FOR DEA FIELD IN DRUG FILE
  1. I X["B",(+X<3) W !,"The B designation is only valid for schedule 3, 4, 5 !",$C(7) K X Q
  1. Q