Changeset 1325 for ccr/branches/ohum/p/C0CMED.m

Timestamp:

Dec 31, 2011, 12:08:05 AM (12 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

• ccr/branches/ohum/p/C0CMED.m (modified) (4 diffs)

ccr/branches/ohum/p/C0CMED.m

@@ -1 +1 @@
 C0CMED ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
- ;;1.0;C0C;;May 19, 2009;Build 38
+ ;;1.0;C0C;;May 19, 2009;Build 39
  ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
  ; Licensed under the terms of the GNU General Public License.
@@ -79 +79 @@
  S @HIST@(0)=0,@PEND@(0)=0,@NVA@(0)=0 ; At first, they are all empty... (prevent undefined errors)
  ; N IPIV ; Inpatient IV Meds
- N IPUD S IPUD=$NA(^TMP($J,"MED","IPUD")) ; Inpatient UD Meds
- K @IPUD
- S @IPUD@(0)=0
- ;
+ ; N IPUD ; Inpatient UD Meds
  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 EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds GPL
- D EXTRACT^C0CNMED4(MEDXML,DFN,IPUD,.MEDCOUNT) ; inpatient gpl
  I @HIST@(0)>0 D  
  . D CP^C0CXPATH(HIST,MEDOUTXML)
@@ -99 +95 @@
  . E  D CP^C0CXPATH(NVA,MEDOUTXML) 
  . W:$G(DEBUG) "HAS NON-VA MEDS",!
- I @IPUD@(0)>0 D 
- . I @HIST@(0)>0!(@PEND@(0)>0)!(@NVA@(0)>0) D INSINNER^C0CXPATH(MEDOUTXML,IPUD) 
- . E  D CP^C0CXPATH(IPUD,MEDOUTXML) 
- . W:$G(DEBUG) "HAS INPATIENT MEDS",!
  N ZI
  S ZI=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
@@ -110 +102 @@
  K @HIST
  K @NVA
- K @IPUD
  Q