Changeset 421 for ccr/trunk/p/C0CMED.m

Timestamp:

Mar 29, 2009, 4:19:05 PM (15 years ago)

Author:

Sam Habiel

Message:

Refactor of Med Routines, part 1

File:

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

ccr/trunk/p/C0CMED.m

@@ -41 +41 @@
         ;
         ; --Prep variables      
-        D:$$RPMS^C0CUTIL() RPMS QUIT
-        D:($$VISTA^C0CUTIL())!($$WV^C0CUTIL()) VISTA QUIT
-        D EXTRACT^C0CMED1(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
-        I @MEDOUTXML@(0)>0 D  ; C0CMED FOUND ACTIVE OP MEDS
-        . W "HAS ACTIVE OP MEDS",!
-        N PENDINGXML
-        S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
-        D EXTRACT^C0CMED2(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS
-        I @PENDINGXML@(0)>0 D  ; C0CMED FOUND PENDING OP MEDS
-        . I @MEDOUTXML@(0)>0 D  ; IF WE NEED TO COMBINE MEDS
-        . . D INSINNER^C0CXPATH(MEDOUTXML,PENDINGXML) ;ADD PENDING TO ACTIVE
-        . E  D CP^C0CXPATH(PENDINGXML,MEDOUTXML) ; NO ACTIVE MEDS, JUST COPY
-        . W "HAS OP PENDING MEDS",!
-        N PENDINGXML
-        S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
-        D EXTRACT^C0CMED3(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS
-        I @PENDINGXML@(0)>0 D  ; C0CMED FOUND PENDING OP MEDS
-        . I @MEDOUTXML@(0)>0 D  ; IF WE NEED TO COMBINE MEDS
-        . . D INSINNER^C0CXPATH(MEDOUTXML,PENDINGXML) ;ADD NON-VA TO MEDS
-        . E  D CP^C0CXPATH(PENDINGXML,MEDOUTXML) ; NO PREVIOUS MEDS, JUST COPY
+        I $$RPMS^C0CUTIL() D RPMS QUIT
+        I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT
+        ; Extraction Sections
+RPMS    
+        D EXTRACT^C0CMED6(MEDXML,DFN,MEDOUTXML) QUIT
+VISTA   
+        N MEDCOUNT S MEDCOUNT=0
+        N HIST S HIST=$NA(^TMP($J,"MED","HIST")) ; Meds already dispensed
+        N PEND S PEND=$NA(^TMP($J,"MED","PEND")) ; Pending Meds
+        N NVA S NVA=$NA(^TMP($J,"MED","NVA")) ; non-VA Meds
+        ; N IPIV ; Inpatient IV Meds
+        ; N IPUD ; Inpatient UD Meds
+        K ^TMP($J,"MED")
+        D EXTRACT^C0CMED1(MEDXML,DFN,HIST,.MEDCOUNT) ; Historical OP Meds
+        D EXTRACT^C0CMED2(MEDXML,DFN,PEND,.MEDCOUNT) ; Pending Meds
+        D EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds 
+        I @HIST@(0)>0 D  
+        . D CP^C0CXPATH(HIST,MEDOUTXML)
+        . W:$G(DEBUG) "HAS ACTIVE OP MEDS",!
+        I @PEND@(0)>0 D  
+        . I @HIST@(0)>0 D INSINNER^C0CXPATH(MEDOUTXML,PEND) ;Add Pending to Historical
+        . E  D CP^C0CXPATH(PEND,MEDOUTXML) ; No historical, just copy
+        . W:$G(DEBUG) "HAS OP PENDING MEDS",!
+        I @NVA@(0)>0 D 
+        . I @HIST@(0)>0!(@PEND@(0)>0) D INSINNER^C0CXPATH(MEDOUTXML,NVA) 
+        . E  D CP^C0CXPATH(NVA,MEDOUTXML) 
         . W:$G(DEBUG) "HAS NON-VA MEDS",!
         Q
-        ; Extraction Sections
-RPMS
-        D EXTRACT^C0CMED6(MEDXML,DFN,MEDOUTXML) QUIT
-VISTA