Changeset 97 for ccr/trunk/p/GPLPROBS.m


Ignore:
Timestamp:
Aug 19, 2008, 8:47:22 PM (16 years ago)
Author:
George Lilly
Message:

killed value arrays at beginning of processing for Vitals and Problems

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLPROBS.m

    r93 r97  
    3838          S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))
    3939          S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))
     40          K @TVMAP,@TARYTMP ; KILL OLD ARRAY VALUES
    4041          F J=1:1:RPCRSLT(0)  D  ; FOR EACH PROBLEM IN THE LIST
    4142          . S VMAP=$NA(@TVMAP@(J))
Note: See TracChangeset for help on using the changeset viewer.