- 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 Apr 23, 2025@18:51:59 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
