source: FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSDAWUT.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 585 bytes
Line 
1PSSDAWUT ;BIRM/MFR - ECME (BPS) Utilities ;10/15/04
2 ;;1.0;PHARMACY DATA MANAGEMENT;**90**;9/30/97
3 ;Reference to File #9002313.24 supported by DBIA 4715
4 ;
5DAWEXT(CODE) ; Returns description for DAW code (Dispense as Written)
6 N DIC,X,Y
7 S DIC=9002313.24,DIC(0)="Z",X=CODE D ^DIC
8 Q $P($G(Y(0)),"^",2)
9 ;
10INPUT ; Input Transform for DAW CODE
11 I $L(X)<1!($L(X)>2)!'$D(X) K X Q
12 I X="?" X ^DD(50,81,4) Q
13 S DIC(0)="QM",DIC="^BPS(9002313.24," D ^DIC
14 S X=$P(Y,U,2) K:Y<0 X
15 Q
16 ;
17HLP ; Executable help for DAW CODE field
18 N DIC,D,DO
19 S DIC="^BPS(9002313.24,",D="B",DIC(0)="" D DQ^DICQ
20 Q
Note: See TracBrowser for help on using the repository browser.