|
Last change
on this file since 1801 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
744 bytes
|
| Line | |
|---|
| 1 | RGUTIN0 ;CAIRO/DKM - Platform-dependent operations;04-Sep-1998 11:26;DKM
|
|---|
| 2 | ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
|
|---|
| 3 | ;=================================================================
|
|---|
| 4 | VER() Q $P($T(+2),";",3)
|
|---|
| 5 | CVTFN(RGFIL,RGROOT) ;
|
|---|
| 6 | N RGZ,RGZ1,RGD
|
|---|
| 7 | S RGD=$$DIRDLM,RGROOT=$G(RGROOT)
|
|---|
| 8 | S:$E(RGROOT,$L(RGROOT))=$E(RGD,3) RGROOT=$E(RGROOT,1,$L(RGROOT)-1)
|
|---|
| 9 | S RGZ=$L(RGFIL,"/"),RGZ1=$P(RGFIL,"/",1,RGZ-1),RGFIL=$P(RGFIL,"/",RGZ)
|
|---|
| 10 | S:$L(RGZ1) RGROOT=RGROOT_$E(RGD,$S($L(RGROOT):2,1:1))_$TR(RGZ1,"/.-",$E(RGD,2))
|
|---|
| 11 | Q RGROOT_$S($L(RGROOT):$E(RGD,3),1:"")_RGFIL
|
|---|
| 12 | RM(X) X ^%ZOSF("RM")
|
|---|
| 13 | Q
|
|---|
| 14 | TEST(X) N Z
|
|---|
| 15 | S:X[U Z=$P(X,U),X=$P(X,U,2)
|
|---|
| 16 | X ^%ZOSF("TEST")
|
|---|
| 17 | Q $S('$T:0,$G(Z)="":1,Z'?.1"%"1.AN:0,1:$T(@Z^@X)'="")
|
|---|
| 18 | ETRAP() Q $$NEWERR^%ZTER
|
|---|
| 19 | OPENX(X1,X2) ;
|
|---|
| 20 | D OPEN(.X1,.X2)
|
|---|
| 21 | Q X1
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
