Changeset 97 for ccr/trunk


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

Location:
ccr/trunk/p
Files:
3 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))
  • ccr/trunk/p/GPLRIMA.m

    r96 r97  
    8484    N SBASE,SATTR
    8585    S SBASE=$NA(@RIMBASE@("VARS",SDFN))
     86    D APOST("SATTR","RIMTBL","HEADER")
    8687    I $D(@SBASE@("PROBLEMS",1)) D  ;
    8788    . D APOST("SATTR","RIMTBL","PROBLEMS")
  • ccr/trunk/p/GPLVITALS.m

    r93 r97  
    3535          S VITTVMAP=$NA(^TMP("GPLCCR",$J,"VITALS"))
    3636          S VITTARYTMP=$NA(^TMP("GPLCCR",$J,"VITALARYTMP"))
     37          K @VITTVMAP,@VITTARYTMP ; KILL OLD ARRAY VALUES
    3738          F J=1:1:VITRSLT(1)  D  ; FOR EACH VITAL IN THE LIST
    3839          . I $D(VITRSLT(J)) D
Note: See TracChangeset for help on using the changeset viewer.