| 1 | RGUTRPC ;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
|
|---|
| 5 | DIC(RGDATA,RGBM,RGCMD,RGARG) ;
|
|---|
| 6 | S RGDATA(0)=$$ENTRY^RGUTDIC(RGBM,RGCMD)
|
|---|
| 7 | Q
|
|---|
| 8 | ; RGUTSTX
|
|---|
| 9 | MSYNTAX(RGDATA,RGCODE,RGOPT) ;
|
|---|
| 10 | S RGDATA=$$ENTRY^RGUTSTX(RGCODE,.RGOPT)
|
|---|
| 11 | Q
|
|---|
| 12 | ; Show all entries for a file
|
|---|
| 13 | FILENT(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
|
|---|
| 21 | FILNXT(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
|
|---|
