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

PSSGENM.m

Go to the documentation of this file.
PSSGENM ;BIR/WRT-Input transform for .01 field in file 50 ; 09/02/97 8:36;
 ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97
EDIT K:$D(^PSDRUG("AQ",+$G(DA)))!(X["""")!($A(X)=45)!('$D(PSSZ))!(X[";") X I $D(X) K:$L(X)>40!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X
 Q