| [613] | 1 | RGUTSRV ;CAIRO/DKM - Server for remote routine utilities;09-Sep-1998 08:31;DKM
|
|---|
| 2 | ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
|
|---|
| 3 | ;=================================================================
|
|---|
| 4 | N RGUCI,RGX,RGRTN,RGZ,X
|
|---|
| 5 | S RGUCI=$$UCI^RGUTRRT
|
|---|
| 6 | L +^XTMP("RGUTSRV",RGUCI):0
|
|---|
| 7 | E Q
|
|---|
| 8 | I $$NEWERR^%ZTER N $ET S $ET=""
|
|---|
| 9 | S X=10
|
|---|
| 10 | X ^%ZOSF("MAXSIZ")
|
|---|
| 11 | F D I $G(^XTMP("RGUTSRV",RGUCI,0)) K ^(0) Q
|
|---|
| 12 | .F RGX=0:0 S RGX=+$O(^XTMP("RGUTSRV",RGUCI,RGX)) Q:'RGX D
|
|---|
| 13 | ..S @$$TRAP^RGZOSF("ERR^RGUTSRV")
|
|---|
| 14 | ..S RGRTN=$G(^XTMP("RGUTSRV",RGX))
|
|---|
| 15 | ..I RGRTN'="" D
|
|---|
| 16 | ...X "ZR F RGZ=0:0 S RGZ=$O(^XTMP(""RGUTSRV"",RGX,RGZ)) ZI:RGZ ^(RGZ) I 'RGZ ZS "_RGRTN_" Q"
|
|---|
| 17 | ...K ^XTMP("RGUTSRV",RGX,0,RGUCI)
|
|---|
| 18 | ...K:'$D(^XTMP("RGUTSRV",RGX,0)) ^XTMP("RGUTSRV",RGX),^XTMP("RGUTSRV","B",RGRTN,RGX)
|
|---|
| 19 | ..K ^XTMP("RGUTSRV",RGUCI,RGX)
|
|---|
| 20 | .H 5
|
|---|
| 21 | L -^XTMP("RGUTSRV",RGUCI)
|
|---|
| 22 | Q
|
|---|
| 23 | ERR S ^XTMP("RGUTSRV",RGX,0,RGUCI)=$$EC^%ZOSV
|
|---|
| 24 | Q
|
|---|
