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

PSDAPU.m

Go to the documentation of this file.
  1. PSDAPU ;BIR/JPW-Mark/Unmark Drugs for CS Appl. Pkg. Use ; 8 Aug 94
  1. ;;3.0; CONTROLLED SUBSTANCES ;**2**;13 Feb 97
  1. S PSIUX="N^CONTROLLED SUBSTANCES"
  1. K DIC F W ! S DIC=50,DIC("A")="Select DRUG: ",DIC(0)="QEAMZ" D ^DIC K DIC Q:Y<0 S PSIUDA=+Y D FLAG
  1. END K DIC,DTOUT,DUOUT,PSIUA,PSIUDA,PSIUX,X,Y
  1. Q
  1. FLAG ; flag drugs
  1. S X="PSSGIU" X ^%ZOSF("TEST") I $T D EN^PSSGIU Q
  1. D EN^PSGIU
  1. Q