Changeset 973

Timestamp:

Sep 30, 2010, 11:49:16 AM (14 years ago)

Author:

George Lilly

Message:

update to always run NVA drugs

File:

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

ccr/trunk/p/C0CMED.m

@@ -81 +81 @@
  D EXTRACT^C0CMED1(MEDXML,DFN,HIST,.MEDCOUNT,C0CMFLAG) ; Historical OP Meds
  D:$P(C0CMFLAG,U,4) EXTRACT^C0CMED2(MEDXML,DFN,PEND,.MEDCOUNT) ; Pending Meds
- D:+C0CMFLAG EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds 
+ ;D:+C0CMFLAG EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds 
+ D EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds GPL
  I @HIST@(0)>0 D  
  . D CP^C0CXPATH(HIST,MEDOUTXML)