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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1RGUTIN18 ;CAIRO/DKM - Inits for Open-M;04-Sep-1998 11:26;DKM
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3OPEN(X1,X2) ;
4 O X1:$S("Rr"[$G(X2):"RS","Ww"[X2:"WNS","Bb"[X2:"RF",1:""):0
5 E ZT "NOPEN"
6 U X1
7 S ^TMP("HFS",$J,X1)=""
8 Q
9CLOSE(X) C X
10 K ^TMP("HFS",$J,X)
11 Q
12CLOSEALL N Z
13 S Z=""
14 F S Z=$O(^TMP("HFS",$J,Z)) Q:Z="" C Z
15 K ^TMP("HFS",$J)
16 Q
17EOF ZT:$ZA=-1 "ENDOFFILE"
18 Q
19EOFERR() Q:$ZE["ENDOFFILE"
20READ(X,Y) ;
21 S $ZT="READX"
22 U $G(Y,$I)
23 R X
24 Q 0
25READX Q 1
26DELETE(X) ;
27 S X=$ZF(-1,"del """_X_"""")
28 Q
29RENAME(X1,X2) ;
30 S X1=$ZF(-1,"ren """_X1_""" """_X2_"""")
31 Q
32DIR(X1,X2,X3) ;
33 N Z,Z1
34 S X3=$G(X3,$NA(^UTILITY("DIR",$J)))
35 K @X3
36 S:'$G(X2) X2=9999999999
37 F Z=1:1:X2 S Z1=$ZSEARCH(X1),X1="" Q:Z1="" D
38 .S Z1=$P(Z1,"\",$L(Z1,"\"))
39 .S:$TR(Z1,".")'="" @X3@(Z1)=""
40 Q
41DIRDLM() Q "\\\"
42DEFDIR(X) ;
43 S X=$G(X,$P($G(^XTV(8989.3,1,"DEV")),U))
44 S:$E(X,$L(X))'="\" X=X_"\"
45 Q X
46ERR(X1,X2,X3) ;
47 S X1=$E($P($ZE,">"),2,99),X2=$P($P($ZE,">",2),":"),X3=X1
48 S:X2["*" X2=""
49 S:$E(X1)="Z" X3=$E(X1,2,99),X1="ZTRAP"
50 Q
51FTP(X1,X2,X3,X4,X5,X6,X7) ;
52 Q
53RAISE(X) ZT $G(X)
54TRAP(X) Q $S($D(X):"$ZT="""_X_"""",1:"$ZT")
55SIZE(X) Q 0
56FREE(X) Q 0
Note: See TracBrowser for help on using the repository browser.