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
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS1P23   164     printed  Sep 23, 2025@20:05:05                                                                                                                                                                                                      Page 2
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