iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed nul Problems processing

This commit is contained in:
george 2008-08-14 16:24:07 +00:00
parent c0f8b2738c
commit 2740f017cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
p/GPLPROBS.m
View File

@ -30,10 +30,10 @@ EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT PROBLEMS INTO PROVIDED XML TEMPLATE
; ;
N RPCRSLT,J,K,PTMP,X,VMAP,TBUF N RPCRSLT,J,K,PTMP,X,VMAP,TBUF
D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
I '$D(RPCRSLT(1)) D ; RPC RETURNS NULL I '$D(RPCRSLT(1)) D Q ; RPC RETURNS NULL
. W "NULL RESULT FROM LIST^ORQQPL3 ",! . W "NULL RESULT FROM LIST^ORQQPL3 ",!
. S @OUTXML@(0)=0 . S @OUTXML@(0)=0
. Q . ; Q
ZWR RPCRSLT ZWR RPCRSLT
S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS")) S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))
S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP")) S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))