source: WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGUTPRE.m@ 1111

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

initial load of WorldVistAEHR

File size: 292 bytes
RevLine 
[613]1RGUTPRE ;CAIRO/RJS - PRE-INIT TO RENAME RUN TIME LIBRARY;22-Mar-1999 08:53;RJS
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3 ;;
4EN ;
5 N IEN,DATA
6 S IEN=$O(^DIC(9.4,"C","RGUT",0))
7 Q:'IEN
8 S DATA="RUN TIME LIBRARY"
9 S DA=IEN,DIE="^DIC(9.4,",DR=".01///^S X=DATA;2///^S X=DATA"
10 D ^DIE
11 K DIE,DA,DR
12 Q
Note: See TracBrowser for help on using the repository browser.