source: WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTRGRPE.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 272 bytes
Line 
1XTRGRPE ;SF/RWF - Routine group edit ; 12/21/88 14:49 ;
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3A W !!,"Routine Group Edit",! X ^%ZOSF("RSEL") Q:$O(^UTILITY($J,0))']""
4 S RN=""
5 X "F II=0:0 S RN=$O(^UTILITY($J,RN)) Q:RN']"""" W !! ZL @RN X ^%Z"
6 W !!,"DONE" K RN,II,^UTILITY($J) Q
Note: See TracBrowser for help on using the repository browser.