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

PSSDAWUT.m

Go to the documentation of this file.
  1. PSSDAWUT ;BIRM/MFR - ECME (BPS) Utilities ;10/15/04
  1. ;;1.0;PHARMACY DATA MANAGEMENT;**90,260**;9/30/97;Build 14
  1. ; Reference to File #9002313.24 in ICR #4715
  1. ;
  1. DAWEXT(CODE) ; Returns description for DAW code (Dispense as Written)
  1. N DIC,X,Y
  1. S DIC=9002313.24,DIC(0)="Z",X=CODE D ^DIC
  1. Q $P($G(Y(0)),"^",2)
  1. ;
  1. INPUT ; Input Transform for DAW CODE
  1. I $L(X)<1!($L(X)>2)!'$D(X) K X Q
  1. I X="?" X ^DD(50,81,4) Q
  1. S DIC("S")="I $P($G(^(0)),""^"",3)'=1"
  1. S DIC(0)="QM",DIC="^BPS(9002313.24," D ^DIC
  1. S X=$P(Y,U,2) K:Y<0 X
  1. Q
  1. ;
  1. HLP ; Executable help for DAW CODE field
  1. N DIC,D,DO
  1. S DIC("S")="I $P($G(^(0)),""^"",3)'=1"
  1. S DIC="^BPS(9002313.24,",D="B",DIC(0)="" D DQ^DICQ
  1. Q