source: WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGUTSRV.m@ 1166

Last change on this file since 1166 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 857 bytes
Line 
1RGUTSRV ;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
23ERR S ^XTMP("RGUTSRV",RGX,0,RGUCI)=$$EC^%ZOSV
24 Q
Note: See TracBrowser for help on using the repository browser.