Changeset 696 for ccr/trunk

Timestamp:

Jan 30, 2010, 6:29:38 PM (15 years ago)

Author:

George Lilly

Message:

persist NONVA Meds variables

File:

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

ccr/trunk/p/C0CMED3.m

@@ -253 +253 @@
  . W "MEDICATION MISSING ",!
  . F MEDI=1:1:MEDTMP(0) W MEDTMP(MEDI),!
+ N ZI
+ S ZI=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
+ M ^TMP("C0CRIM","VARS",DFN,"MEDS")=@ZI ; PERSIST MEDS VARIABLES
  Q
  ;