QANDIU ;WCIOFO/ERC-Delete obsolete files 513.72, 513.941 /9/25/97
;;2.0;Incident Reporting;**24**;10/6/92
; This routine deletes files 513.72 (*PATIENT QA EVENT FILE) and
; 513.941 (*INCIDENT TYPE FILE). These files were used in the
; precursor to the current Incident Reporting package, which uses
; files in the 742 file range.
N DIU
S DIU="^PRMQ(513.941,",DIU(0)="TSD"
D EN^DIU2
S DIU="^PRMQ(513.72,",DIU(0)="DST"
D EN^DIU2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQANDIU 453 printed Dec 13, 2024@01:59:47 Page 2
QANDIU ;WCIOFO/ERC-Delete obsolete files 513.72, 513.941 /9/25/97
+1 ;;2.0;Incident Reporting;**24**;10/6/92
+2 ; This routine deletes files 513.72 (*PATIENT QA EVENT FILE) and
+3 ; 513.941 (*INCIDENT TYPE FILE). These files were used in the
+4 ; precursor to the current Incident Reporting package, which uses
+5 ; files in the 742 file range.
+6 NEW DIU
+7 SET DIU="^PRMQ(513.941,"
SET DIU(0)="TSD"
+8 DO EN^DIU2
+9 SET DIU="^PRMQ(513.72,"
SET DIU(0)="DST"
+10 DO EN^DIU2
+11 QUIT
