QANDIU.m

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 ---QANDIU   453     printed  Apr 09, 2024@21:01:28                                                                                                                                                                                                       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