|
Last change
on this file since 677 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
585 bytes
|
| Line | |
|---|
| 1 | PSSDAWUT ;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 | ;
|
|---|
| 5 | DAWEXT(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 | ;
|
|---|
| 10 | INPUT ; 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 | ;
|
|---|
| 17 | HLP ; 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.
