RGUTRPC.m

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 ---RGUTRPC   840     printed  Apr 09, 2024@21:40:02                                                                                                                                                                                                      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