Changeset 973 for ccr/trunk/p


Ignore:
Timestamp:
Sep 30, 2010, 11:49:16 AM (14 years ago)
Author:
George Lilly
Message:

update to always run NVA drugs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CMED.m

    r691 r973  
    8181 D EXTRACT^C0CMED1(MEDXML,DFN,HIST,.MEDCOUNT,C0CMFLAG) ; Historical OP Meds
    8282 D:$P(C0CMFLAG,U,4) EXTRACT^C0CMED2(MEDXML,DFN,PEND,.MEDCOUNT) ; Pending Meds
    83  D:+C0CMFLAG EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds
     83 ;D:+C0CMFLAG EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds
     84 D EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds GPL
    8485 I @HIST@(0)>0 D 
    8586 . D CP^C0CXPATH(HIST,MEDOUTXML)
Note: See TracChangeset for help on using the changeset viewer.