From f17f45589b09be8a747ae0920994d9b0417c28c5 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Wed, 4 Feb 2009 20:30:53 +0000
Subject: [PATCH] FIX TO IMMUNIZATIONS FOR NULLS

---
 p/GPLIMMU.m | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/p/GPLIMMU.m b/p/GPLIMMU.m
index a01a0ce..0e34ba1 100644
--- 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