Changeset 357 for ccr/trunk


Ignore:
Timestamp:
Feb 4, 2009, 3:30:53 PM (16 years ago)
Author:
George Lilly
Message:

FIX TO IMMUNIZATIONS FOR NULLS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLIMMU.m

    r356 r357  
    6363 I $O(@IMMA@(""))="" D  Q  ; RPC RETURNS NULL
    6464 . W "NULL RESULT FROM IMMUN^PXRHS03 ",!
    65  . S @OUTXML@(0)=0
    66  ;S @TVMAP@(0)=RPCRSLT(0) ; SAVE NUMBER OF PROBLEMS
     65 . S @TVMAP@(0)=0
    6766 N C0CIM,C0CC,C0CIMD,C0CIEN,C0CT ;
    6867 S C0CIM=""
Note: See TracChangeset for help on using the changeset viewer.