RGUTRPC ;CAIRO/DKM - RPC Encapsulations for RGUT routines ;04-Sep-1998 11:26;DKM
;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
;=================================================================
; RGUTDIC
DIC(RGDATA,RGBM,RGCMD,RGARG) ;
S RGDATA(0)=$$ENTRY^RGUTDIC(RGBM,RGCMD)
Q
; RGUTSTX
MSYNTAX(RGDATA,RGCODE,RGOPT) ;
S RGDATA=$$ENTRY^RGUTSTX(RGCODE,.RGOPT)
Q
; Show all entries for a file
FILENT(RGDATA,RGGBL) ;
N RGZ,RGC
S:RGGBL=+RGGBL RGGBL=$$ROOT^DILFD(RGGBL,,1)
S RGC=0,RGDATA=$$TMPGBL^RGCODRPC
F RGZ=0:0 S RGZ=$O(@RGGBL@(RGZ)) Q:'RGZ D
.S @RGDATA@(RGC)=RGZ_U_$P(@RGGBL@(RGZ,0),U),RGC=RGC+1
Q
; Show IEN of next/previous entry in a file
FILNXT(RGDATA,RGGBL,RGIEN) ;
N RGD
S:RGGBL=+RGGBL RGGBL=$$ROOT^DILFD(RGGBL,,1)
I RGIEN<0 S RGIEN=-RGIEN,RGD=-1
E S RGD=1
S RGDATA=+$O(@RGGBL@(RGIEN),RGD)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGUTRPC 840 printed Nov 22, 2024@17:47:25 Page 2
RGUTRPC ;CAIRO/DKM - RPC Encapsulations for RGUT routines ;04-Sep-1998 11:26;DKM
+1 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
+2 ;=================================================================
+3 ; RGUTDIC
DIC(RGDATA,RGBM,RGCMD,RGARG) ;
+1 SET RGDATA(0)=$$ENTRY^RGUTDIC(RGBM,RGCMD)
+2 QUIT
+3 ; RGUTSTX
MSYNTAX(RGDATA,RGCODE,RGOPT) ;
+1 SET RGDATA=$$ENTRY^RGUTSTX(RGCODE,.RGOPT)
+2 QUIT
+3 ; Show all entries for a file
FILENT(RGDATA,RGGBL) ;
+1 NEW RGZ,RGC
+2 if RGGBL=+RGGBL
SET RGGBL=$$ROOT^DILFD(RGGBL,,1)
+3 SET RGC=0
SET RGDATA=$$TMPGBL^RGCODRPC
+4 FOR RGZ=0:0
SET RGZ=$ORDER(@RGGBL@(RGZ))
if 'RGZ
QUIT
Begin DoDot:1
+5 SET @RGDATA@(RGC)=RGZ_U_$PIECE(@RGGBL@(RGZ,0),U)
SET RGC=RGC+1
End DoDot:1
+6 QUIT
+7 ; Show IEN of next/previous entry in a file
FILNXT(RGDATA,RGGBL,RGIEN) ;
+1 NEW RGD
+2 if RGGBL=+RGGBL
SET RGGBL=$$ROOT^DILFD(RGGBL,,1)
+3 IF RGIEN<0
SET RGIEN=-RGIEN
SET RGD=-1
+4 IF '$TEST
SET RGD=1
+5 SET RGDATA=+$ORDER(@RGGBL@(RGIEN),RGD)
+6 QUIT
