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

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

initial load of FOIAVistA 6/30/08 version

File size: 946 bytes
Line 
1RGZOSF ;CAIRO/DKM - Platform-dependent operations;09-Oct-1998 08:25;DKM
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3 ;=================================================================
4CVTFN(RGFIL,RGROOT) ;
5 Q $$CVTFN^RGUTOS(.RGFIL,.RGROOT)
6RM(X) D RM^RGUTOS(.X)
7 Q
8TEST(X) Q $$TEST^RGUTOS(.X)
9ETRAP() Q $$ETRAP^RGUTOS
10OPENX(X1,X2) ;
11 Q $$OPENX^RGUTOS(.X1,.X2)
12VER() Q $$VER^RGUTOS
13OPEN(X1,X2) ;
14 D OPEN^RGUTOS(.X1,.X2)
15 Q
16CLOSE(X) D CLOSE^RGUTOS(.X)
17 Q
18CLOSEALL G CLOSEALL^RGUTOS
19EOF D EOF^RGUTOS
20 Q
21EOFERR() Q $$EOFERR^RGUTOS
22READ(X,Y) ;
23 Q $$READ^RGUTOS(.X,.Y)
24DELETE(X) ;
25 D DELETE^RGUTOS(.X)
26 Q
27RENAME(X1,X2) ;
28 D RENAME^RGUTOS(.X1,.X2)
29 Q
30DIR(X1,X2,X3) ;
31 D DIR^RGUTOS(.X1,.X2,.X3)
32 Q
33DIRDLM() Q $$DIRDLM^RGUTOS
34ERR(X1,X2,X3) ;
35 D ERR^RGUTOS(.X1,.X2,.X3)
36 Q
37FTP(X1,X2,X3,X4,X5,X6,X7) ;
38 D FTP^RGUTOS(.X1,.X2,.X3,.X4,.X5,.X6,.X7)
39 Q
40RAISE(X) D RAISE^RGUTOS(.X)
41 Q
42TRAP(X) Q $$TRAP^RGUTOS(.X)
43SIZE(X) Q $$SIZE^RGUTOS(.X)
44FREE(X) Q $$FREE^RGUTOS(.X)
Note: See TracBrowser for help on using the repository browser.