Changeset 89


Ignore:
Timestamp:
Aug 14, 2008, 12:24:07 PM (16 years ago)
Author:
George Lilly
Message:

fixed nul Problems processing

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLPROBS.m

    r88 r89  
    3131          N RPCRSLT,J,K,PTMP,X,VMAP,TBUF
    3232          D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
    33           I '$D(RPCRSLT(1)) D  ; RPC RETURNS NULL
     33          I '$D(RPCRSLT(1)) D  Q ; RPC RETURNS NULL
    3434          . W "NULL RESULT FROM LIST^ORQQPL3 ",!
    3535          . S @OUTXML@(0)=0
    36           . Q
     36          . ; Q
    3737          ZWR RPCRSLT
    3838          S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))
Note: See TracChangeset for help on using the changeset viewer.