Changeset 87 for ccr/trunk


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLPROBS.m

    r85 r87  
    3131          N RPCRSLT,J,K,PTMP,X,VMAP,TBUF
    3232          D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
    33           I '$D(RPCRSLT(0)) W "ERROR CALLING LIST^ORQQPL3 ",! Q
     33          I '$D(RPCRSLT(1)) D  ; RPC RETURNS NULL
     34          . W "NULL RESULT FROM LIST^ORQQPL3 ",!
     35          . S @OUTXML@(0)=0
     36          . Q
    3437          ZWR RPCRSLT
    3538          S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))

  • ccr/trunk/p/GPLVITALS.m

    r74 r87  
    2828          N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF
    2929          D VITALS^ORQQVI(.VITRSLT,DFN,"","")
    30           I '$D(VITRSLT(1)) W "ERROR RUNNINIG VITALS RPC",! Q
     30          I '$D(VITRSLT(1)) D  ; NULL RESULT FROM RPC
     31          . W "NULL RESULT FROM VITALS RPC",!
     32          . S @VITOUTXML@(0)=0
     33          . Q
    3134          ; ZWR RPCRSLT
    3235          S VITTVMAP=$NA(^TMP("GPLCCR",$J,"VITALS"))
Note: See TracChangeset for help on using the changeset viewer.