PSS1P23.m

PSS1P23 ;BIR/MAM-DELETE PHARMACISTS SUB-FILE ;03/03/99 13:21

 ;;1.0;PHARMACY DATA MANAGEMENT;**23**;9/30/97

 ;

 ;

 S DIU=59.41,DIU(0)="DS" D EN^DIU2 K DIU

 Q

PSS1P23   ;BIR/MAM-DELETE PHARMACISTS SUB-FILE ;03/03/99 13:21

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

 +2       ;

 +3       ;

 +4        SET DIU=59.41

           SET DIU(0)="DS"

           DO EN^DIU2

           KILL DIU

 +5        QUIT