XTRGRPE ;SF/RWF - Routine group edit ; 12/21/88 14:49 ;
;;7.3;TOOLKIT;;Apr 25, 1995
A W !!,"Routine Group Edit",! X ^%ZOSF("RSEL") Q:$O(^UTILITY($J,0))']""
S RN=""
X "F II=0:0 S RN=$O(^UTILITY($J,RN)) Q:RN']"""" W !! ZL @RN X ^%Z"
W !!,"DONE" K RN,II,^UTILITY($J) Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTRGRPE 278 printed Nov 22, 2024@17:51:37 Page 2
XTRGRPE ;SF/RWF - Routine group edit ; 12/21/88 14:49 ;
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
A WRITE !!,"Routine Group Edit",!
XECUTE ^%ZOSF("RSEL")
if $ORDER(^UTILITY($JOB,0))']""
QUIT
+1 SET RN=""
+2 XECUTE "F II=0:0 S RN=$O(^UTILITY($J,RN)) Q:RN']"""" W !! ZL @RN X ^%Z"
+3 WRITE !!,"DONE"
KILL RN,II,^UTILITY($JOB)
QUIT
