source: FOIAVistA/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGUTIN.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1RGUTIN ;CAIRO/DKM - Platform specific inits;04-Sep-1998 11:26;DKM
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3 ;=================================================================
4 N RGOS,RGD,RGH,X
5 S U="^",X="ERROR^RGUTIN",@^%ZOSF("TRAP"),RGOS=$P(^%ZOSF("OS"),U,2)
6 I 'RGOS D
7 .D HOME^%ZIS,TITLE^RGUT("RTL Platform-specific Inits",1.6)
8 .S RGD(1)="$$TEST^RGUTIN(""RGUTIN""_%S)"
9 .S RGH(1)="Enter the name of this MUMPS environment for the RG-namespace"
10 .S RGH(2)="platform-specific initialization process."
11 .S RGOS=$$ENTRY^RGMSCLKP("^DD(""OS"")","UX","Operating System: ","B","*","RGD","",0,5,"","","HELP(.RGH)")
12 .W !!
13 D:RGOS>0 INIT(RGOS)
14 Q
15INIT(RGOS) ;
16 N I,X,Y,Z
17 S X="RGUTIN"_RGOS,I=0
18 I '$$TEST(X) D Q
19 .X "ZL RGUTOS1 ZS RGUTOS"
20 .W !!,"Init not found for specified OS. Will use generic init.",!!
21 K ^TMP($J)
22 F Z=0,RGOS F X=$S(Z:3,1:1):1 S Y=$T(+X^@("RGUTIN"_Z)) Q:Y="" S I=I+1,^TMP($J,I)=Y
23 S $P(^TMP($J,1),";")="RGUTOS "
24 X "ZR F Z=1:1:I ZI ^TMP($J,Z) ZS:Z=I RGUTOS"
25 W !!,"Initialization completed for "_$P(^DD("OS",RGOS,0),"^")_" operating system.",!!
26 K ^TMP($J)
27 Q
28TEST(X) X ^%ZOSF("TEST")
29 Q $T
30ERROR W !!,"An error has occurred during initialization.",!
31 Q
Note: See TracBrowser for help on using the repository browser.