PSGWUTL2.m

PSGWUTL2 ;BIR/LDT-UTILITY ROUTINE FOR CLEANUP OF FILE 59.4 ;25 FEB 96 / 10:40AM

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

EN ; This routine will delete the data dictionary and the data from the

 ;subfile 59.41, PHARMACISTS field (#6) of the INPATIENT SITE file

 ;(#59.4).  This will cleanup the reference to the USER file (#3).

 W !,"This routine will delete the data dictionary and the data from the",!,"subfile 59.41, PHARMACISTS field (#6) of the INPATIENT SITE file",!,"(#59.4).  This will cleanup the reference to the USER file (#3).",!!

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

 W !,"DONE.",!!,"You can delete this routine now!"

 Q

PSGWUTL2  ;BIR/LDT-UTILITY ROUTINE FOR CLEANUP OF FILE 59.4 ;25 FEB 96 / 10:40AM

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

EN        ; This routine will delete the data dictionary and the data from the

 +1       ;subfile 59.41, PHARMACISTS field (#6) of the INPATIENT SITE file

 +2       ;(#59.4).  This will cleanup the reference to the USER file (#3).

 +3        WRITE !,"This routine will delete the data dictionary and the data from the",!,"subfile 59.41, PHARMACISTS field (#6) of the INPATIENT SITE file",!,"(#59.4).  This will cleanup the reference to the USER file (#3).",!!

 +4        SET DIU=59.41

           SET DIU(0)="DS"

           DO EN^DIU2

           KILL DIU

 +5        WRITE !,"DONE.",!!,"You can delete this routine now!"

 +6        QUIT