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

PSJDEA.m

Go to the documentation of this file.
  1. PSJDEA ;BIR/CML3-HELP TEXT FOR DEA FIELD IN DRUG FILE ;20 JUN 94 / 5:24 PM
  1. ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
  1. N %,%Y,X,Y
  1. 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'."
  1. 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.",!
  1. I %=1 W ! F X=1:1 S Y=$P($T(L+X),";",3,99) Q:Y="" W !?10,Y
  1. W ! Q
  1. ;
  1. L ; list of codes
  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 (SCHEDULE 3, 4, 5 NARCOTICS ONLY)
  1. ;;W NOT RENEWABLE
  1. ;;
  1. ;
  1. EDIT ;
  1. 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
  1. Q