RGUTPRE ;CAIRO/RJS - PRE-INIT TO RENAME RUN TIME LIBRARY;22-Mar-1999 08:53;RJS
;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
;;
EN ;
N IEN,DATA
S IEN=$O(^DIC(9.4,"C","RGUT",0))
Q:'IEN
S DATA="RUN TIME LIBRARY"
S DA=IEN,DIE="^DIC(9.4,",DR=".01///^S X=DATA;2///^S X=DATA"
D ^DIE
K DIE,DA,DR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGUTPRE 304 printed Dec 13, 2024@02:37:26 Page 2
RGUTPRE ;CAIRO/RJS - PRE-INIT TO RENAME RUN TIME LIBRARY;22-Mar-1999 08:53;RJS
+1 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
+2 ;;
EN ;
+1 NEW IEN,DATA
+2 SET IEN=$ORDER(^DIC(9.4,"C","RGUT",0))
+3 if 'IEN
QUIT
+4 SET DATA="RUN TIME LIBRARY"
+5 SET DA=IEN
SET DIE="^DIC(9.4,"
SET DR=".01///^S X=DATA;2///^S X=DATA"
+6 DO ^DIE
+7 KILL DIE,DA,DR
+8 QUIT
