Changeset 1433 for ccr/branches/ohum/p/C0CMED2.m

Timestamp:

May 17, 2012, 6:11:54 PM (12 years ago)

Author:

Sam Habiel

Message:

Update based on OHUM's latest routines

File:

• ccr/branches/ohum/p/C0CMED2.m (modified) (2 diffs)

ccr/branches/ohum/p/C0CMED2.m

@@ -1 +1 @@
 C0CMED2 ; WV/CCDCCR/SMH - CCR/CCD Meds - Pending for Vista
-        ;;1.2;C0C;;May 11, 2012;Build 46
+        ;;1.2;C0C;;May 11, 2012;Build 47
         ;;Last Modified Sat Jan 10 21:41:14 PST 2009
         ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
@@ -256 +256 @@
         . . . D INSERT^C0CXPATH(RESULT,DIRXML2,"//Medications/Medication")
         . I MEDFIRST D  ;
-        . . S MEDFIRST=0 ; RESET FIRST FLAG
+        . . ;S MEDFIRST=0 ; RESET FIRST FLAG ;OHUM/RUT COMMENTED (1ST PENDING MEDICATION WAS GETTING DUPLICATED)
         . . D CP^C0CXPATH(RESULT,OUTXML) ; First one is a copy
         . D:'MEDFIRST INSINNER^C0CXPATH(OUTXML,RESULT) ; AFTER FIRST, INSERT INNER
+        . I MEDFIRST S MEDFIRST=0 ;OHUM/RUT ADDED
         N MEDTMP,MEDI
         D MISSING^C0CXPATH(OUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS