- 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 Feb 19, 2025@00:08:10 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
