SROQ.m

SROQ ;BIR/ADM - QUARTERLY REPORT ;08/23/2011

 ;;3.0;Surgery;**62,70,95,176**;24 Jun 93;Build 8

 ;** NOTICE: This routine is part of an implementation of a nationally

 ;**         controlled procedure.  Local modifications to this routine

 ;**         are prohibited.

 ;

 W @IOF,!,"This report is no longer available."

 W !! K DIR S DIR(0)="E" D ^DIR K DIR

 D ^%ZISC W @IOF

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROQ   386     printed  Mar 13, 2025@21:50:34                                                                                                                                                                                                         Page 2

SROQ      ;BIR/ADM - QUARTERLY REPORT ;08/23/2011

 +1       ;;3.0;Surgery;**62,70,95,176**;24 Jun 93;Build 8

 +2       ;** NOTICE: This routine is part of an implementation of a nationally

 +3       ;**         controlled procedure.  Local modifications to this routine

 +4       ;**         are prohibited.

 +5       ;

 +6        WRITE @IOF,!,"This report is no longer available."

 +7        WRITE !!

           KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           KILL DIR

 +8        DO ^%ZISC

           WRITE @IOF

 +9        QUIT