Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XTRGRPE

XTRGRPE.m

Go to the documentation of this file.

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  Apr 09, 2024@21:41:45                                                                                                                                                                                                      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