source: WorldVistAEHR/trunk/r/CONTROLLED_SUBSTANCES-PSD/PSDAPU.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 382 bytes
Line 
1PSDAPU ;BIR/JPW-Mark/Unmark Drugs for CS Appl. Pkg. Use ; 8 Aug 94
2 ;;3.0; CONTROLLED SUBSTANCES ;**2**;13 Feb 97
3 S PSIUX="N^CONTROLLED SUBSTANCES"
4 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
5END K DIC,DTOUT,DUOUT,PSIUA,PSIUDA,PSIUX,X,Y
6 Q
7FLAG ; flag drugs
8 S X="PSSGIU" X ^%ZOSF("TEST") I $T D EN^PSSGIU Q
9 D EN^PSGIU
10 Q
Note: See TracBrowser for help on using the repository browser.