Changeset 696


Ignore:
Timestamp:
Jan 30, 2010, 6:29:38 PM (14 years ago)
Author:
George Lilly
Message:

persist NONVA Meds variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CMED3.m

    r691 r696  
    253253 . W "MEDICATION MISSING ",!
    254254 . F MEDI=1:1:MEDTMP(0) W MEDTMP(MEDI),!
     255 N ZI
     256 S ZI=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
     257 M ^TMP("C0CRIM","VARS",DFN,"MEDS")=@ZI ; PERSIST MEDS VARIABLES
    255258 Q
    256259 ;
Note: See TracChangeset for help on using the changeset viewer.