FIX TO IMMUNIZATIONS FOR NULLS

2009-02-04 20:30:53 +00:00 · 2009-02-04 20:30:53 +00:00 · f17f45589b
parent 39dad84c43
commit f17f45589b
1 changed files with 1 additions and 2 deletions
--- a/p/GPLIMMU.m
+++ b/p/GPLIMMU.m
@ -62,8 +62,7 @@ EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT IMMUNIZATIONS INTO VARIABLES
 D IMMUN^PXRHS03(DFN) ;
 I $O(@IMMA@(""))="" D  Q  ; RPC RETURNS NULL
 . W "NULL RESULT FROM IMMUN^PXRHS03 ",!
- . S @OUTXML@(0)=0
- ;S @TVMAP@(0)=RPCRSLT(0) ; SAVE NUMBER OF PROBLEMS
+ . S @TVMAP@(0)=0
 N C0CIM,C0CC,C0CIMD,C0CIEN,C0CT ; 
 S C0CIM=""
 S C0CC=0 ; COUNT