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

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

initial load of FOIAVistA 6/30/08 version

File size: 813 bytes
Line 
1RGUTRPC ;CAIRO/DKM - RPC Encapsulations for RGUT routines ;04-Sep-1998 11:26;DKM
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3 ;=================================================================
4 ; RGUTDIC
5DIC(RGDATA,RGBM,RGCMD,RGARG) ;
6 S RGDATA(0)=$$ENTRY^RGUTDIC(RGBM,RGCMD)
7 Q
8 ; RGUTSTX
9MSYNTAX(RGDATA,RGCODE,RGOPT) ;
10 S RGDATA=$$ENTRY^RGUTSTX(RGCODE,.RGOPT)
11 Q
12 ; Show all entries for a file
13FILENT(RGDATA,RGGBL) ;
14 N RGZ,RGC
15 S:RGGBL=+RGGBL RGGBL=$$ROOT^DILFD(RGGBL,,1)
16 S RGC=0,RGDATA=$$TMPGBL^RGCODRPC
17 F RGZ=0:0 S RGZ=$O(@RGGBL@(RGZ)) Q:'RGZ D
18 .S @RGDATA@(RGC)=RGZ_U_$P(@RGGBL@(RGZ,0),U),RGC=RGC+1
19 Q
20 ; Show IEN of next/previous entry in a file
21FILNXT(RGDATA,RGGBL,RGIEN) ;
22 N RGD
23 S:RGGBL=+RGGBL RGGBL=$$ROOT^DILFD(RGGBL,,1)
24 I RGIEN<0 S RGIEN=-RGIEN,RGD=-1
25 E S RGD=1
26 S RGDATA=+$O(@RGGBL@(RGIEN),RGD)
27 Q
Note: See TracBrowser for help on using the repository browser.