Changeset 87

Timestamp:

Aug 12, 2008, 1:37:18 PM (16 years ago)

Author:

George Lilly

Message:

fixed handling of nul results from Vitals and Problems RPCs

Location:

ccr/trunk/p

Files:

• GPLPROBS.m (modified) (1 diff)
• GPLVITALS.m (modified) (1 diff)

ccr/trunk/p/GPLPROBS.m

@@ -31 +31 @@
           N RPCRSLT,J,K,PTMP,X,VMAP,TBUF
           D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
-          I '$D(RPCRSLT(0)) W "ERROR CALLING LIST^ORQQPL3 ",! Q
+          I '$D(RPCRSLT(1)) D  ; RPC RETURNS NULL
+          . W "NULL RESULT FROM LIST^ORQQPL3 ",!
+          . S @OUTXML@(0)=0
+          . Q
           ZWR RPCRSLT
           S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))

ccr/trunk/p/GPLVITALS.m

@@ -28 +28 @@
           N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF
           D VITALS^ORQQVI(.VITRSLT,DFN,"","")
-          I '$D(VITRSLT(1)) W "ERROR RUNNINIG VITALS RPC",! Q
+          I '$D(VITRSLT(1)) D  ; NULL RESULT FROM RPC
+          . W "NULL RESULT FROM VITALS RPC",!
+          . S @VITOUTXML@(0)=0
+          . Q
           ; ZWR RPCRSLT
           S VITTVMAP=$NA(^TMP("GPLCCR",$J,"VITALS"))