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

RGUTPRE.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGUTPRE   304     printed  Apr 09, 2024@21:40:05                                                                                                                                                                                                      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