Changeset 87 for ccr/trunk/p/GPLPROBS.m

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

File:

• ccr/trunk/p/GPLPROBS.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"))