persist NONVA Meds variables

2010-01-30 23:29:38 +00:00 · 2010-01-30 23:29:38 +00:00 · 779936bfda
parent d01e1a1d6d
commit 779936bfda
1 changed files with 3 additions and 0 deletions
--- a/p/C0CMED3.m
+++ b/p/C0CMED3.m
@ -252,5 +252,8 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT)	; Extract medications into provided xml temp
 I MEDTMP(0)>0 D  ; IF THERE ARE MISSING VARS - MARKED AS @@X@@
 . 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
 ;