source: FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGUTIN16.m@ 1801

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1RGUTIN16 ;CAIRO/DKM - Inits for VMS;04-Sep-1998 11:26;DKM
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3OPEN(X1,X2) ;
4 N Z
5 S Z="X1"_$S("Rr"[$G(X2):":READONLY:0","Ww"[X2:":(NEWVERSION,RECORDSIZE=65535)","Bb"[X2:":(READONLY,BLOCKSIZE=0)",1:"")
6 O @Z
7 U X1
8 S ^TMP("HFS",$J,X1)=""
9 Q
10CLOSE(X) C X
11 K ^TMP("HFS",$J,X)
12 Q
13CLOSEALL N Z
14 S Z=""
15 F S Z=$O(^TMP("HFS",$J,Z)) Q:Z="" C Z
16 K ^TMP("HFS",$J)
17 Q
18EOF U $I:TRAP
19 Q
20EOFERR() Q $ZE["ENDOFILE"
21READ(X,Y) ;
22 U $G(Y,$I):NOTRAP
23 R X
24 Q $ZA=-1
25DELETE(X) ;
26 O X::0
27 C X:DELETE
28 Q
29RENAME(X1,X2) ;
30 O X1:READONLY:0
31 C X1:RENAME=X2
32 Q
33DIR(X1,X2,X3) ;
34 N Z,Z1
35 S $ZT="DIRX^RGUTOS",X3=$G(X3,"^UTILITY(""DIR"",$J)")
36 K @X3
37 S:'$G(X2) X2=9999999999
38 F Z=1:1:X2 S Z1=$ZSEARCH(X1),X1="" Q:Z1="" S @X3@($P(Z1,"]",2))=""
39DIRX Q
40DEFDIR(X) Q $G(X,$P($G(^XTV(8989.3,1,"DEV")),U))
41DIRDLM() Q "[.]"
42ERR(X1,X2,X3) ;
43 S X1=$P($P($ZE,", ",2),"-",3),X2=$P($P($ZE,", "),":"),X3=$P($ZE,", ",$S(X1="ZTRAP":4,1:3))
44 Q
45FTP(X1,X2,X3,X4,X5,X6,X7) ;
46 D VMS^RGUTFTP(.X1,.X2,.X3,.X4,.X5,.X6,.X7)
47 Q
48RAISE(X) ZT $G(X)
49TRAP(X) Q $S($D(X):"$ZT="""_X_"""",1:"$ZT")
50SIZE(X) Q $ZC(%GETFILE,X,"BLS")*$ZC(%GETFILE,X,"EOF")
51FREE(X) Q $ZC(%GETDVI,X,"FREEBLOCKS")/2048
Note: See TracBrowser for help on using the repository browser.