Changeset 357

Timestamp:

Feb 4, 2009, 3:30:53 PM (16 years ago)

Author:

George Lilly

Message:

FIX TO IMMUNIZATIONS FOR NULLS

File:

• ccr/trunk/p/GPLIMMU.m (modified) (1 diff)

ccr/trunk/p/GPLIMMU.m

@@ -63 +63 @@
  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=""