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 ---[H[J[2J[HSROQ 386 printed Dec 13, 2024@02:45:22 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
