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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSGENM   250     printed  Nov 22, 2024@17:41:37                                                                                                                                                                                                      Page 2

PSSGENM   ;BIR/WRT-Input transform for .01 field in file 50 ; 09/02/97 8:36;

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97

EDIT       if $DATA(^PSDRUG("AQ",+$GET(DA)))!(X["""")!($ASCII(X)=45)!('$DATA(PSSZ))!(X[";")

               KILL X

           IF $DATA(X)

               if $LENGTH(X)>40!($LENGTH(X)<1)!'(X'?1P.E)!(X'?.ANP)

                   KILL X

 +1        QUIT