PSGWP15.m

PSGWP15 ;BIR/MAM-INSTALL ROUTINE FOR PATCH 15 ;29 DEC 98 / 1:18 PM

 ;;2.3; Automatic Replenishment/Ward Stock ; **15** ;4 JAN 94

 S DIU="^DIC(58.5,",DIU(0)="" D EN^DIU2

 Q

PSGWP15   ;BIR/MAM-INSTALL ROUTINE FOR PATCH 15 ;29 DEC 98 / 1:18 PM

 +1       ;;2.3; Automatic Replenishment/Ward Stock ; **15** ;4 JAN 94

 +2        SET DIU="^DIC(58.5,"

           SET DIU(0)=""

           DO EN^DIU2

 +3        QUIT