- 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 Feb 18, 2025@23:25:54 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