Index: ccr/branches/ohum/p/C0CACTOR.m
===================================================================
--- ccr/branches/ohum/p/C0CACTOR.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CACTOR.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CACTOR	 ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CALERT.m
===================================================================
--- ccr/branches/ohum/p/C0CALERT.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CALERT.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CALERT	 ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota and others.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CBAT.m
===================================================================
--- ccr/branches/ohum/p/C0CBAT.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CBAT.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CBAT	  ; CCDCCR/GPL - CCR Batch utilities; 4/21/09
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CCCD.m
===================================================================
--- ccr/branches/ohum/p/C0CCCD.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CCCD.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CCCD	  ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CCCD1.m
===================================================================
--- ccr/branches/ohum/p/C0CCCD1.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CCCD1.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CCCD1	; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CCCR.m
===================================================================
--- ccr/branches/ohum/p/C0CCCR.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CCCR.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CCCR	  ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CCCR0.m
===================================================================
--- ccr/branches/ohum/p/C0CCCR0.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CCCR0.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CCCR0	; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CCMT.m
===================================================================
--- ccr/branches/ohum/p/C0CCMT.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CCMT.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CCMT	 ; CCDCCR/GPL - CCR/CCD PROCESSING FOR COMMENTS ; 05/21/10
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2010 George Lilly, University of Minnesota and others.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CCPT.m
===================================================================
--- ccr/branches/ohum/p/C0CCPT.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CCPT.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CCPT	;;BSL;RETURN CPT DATA;
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Sequence Managers Software GPL;;;;;Build 2
 	;Copied into C0C namespace from SQMCPT with permission from
Index: ccr/branches/ohum/p/C0CDIC.m
===================================================================
--- ccr/branches/ohum/p/C0CDIC.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CDIC.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CDIC	  ; CCDCCR/GPL - CCR Dictionary utilities; 6/1/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CDOM.m
===================================================================
--- ccr/branches/ohum/p/C0CDOM.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CDOM.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CDOM	  ; GPL - DOM PROCESSING ROUTINES ;6/6/11  17:05
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CDPT.m
===================================================================
--- ccr/branches/ohum/p/C0CDPT.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CDPT.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CDPT	;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;
 	; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
Index: ccr/branches/ohum/p/C0CENC.m
===================================================================
--- ccr/branches/ohum/p/C0CENC.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CENC.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CENC	 ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ENCOUNTERS ; 05/21/10
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2010 George Lilly, University of Minnesota and others.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CENV.m
===================================================================
--- ccr/branches/ohum/p/C0CENV.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CENV.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CENV	;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;
 	;
Index: ccr/branches/ohum/p/C0CEVC.m
===================================================================
--- ccr/branches/ohum/p/C0CEVC.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CEVC.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CEVC	  ; CCDCCR/GPL - SUPPORT FOR EWD VISTCOM PAGES ; 3/1/2010
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 gpltest2	; experiment with sending a CCR to an ewd page
 	N ZI
Index: ccr/branches/ohum/p/C0CEWD.m
===================================================================
--- ccr/branches/ohum/p/C0CEWD.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CEWD.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CEWD	  ; CCDCCR/GPL - CCR EWD utilities; 1/6/11
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CEWD1.m
===================================================================
--- ccr/branches/ohum/p/C0CEWD1.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CEWD1.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CEWD1	  ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CFM1.m
===================================================================
--- ccr/branches/ohum/p/C0CFM1.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CFM1.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CFM1	  ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CFM2.m
===================================================================
--- ccr/branches/ohum/p/C0CFM2.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CFM2.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CFM2	  ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CFM3.m
===================================================================
--- ccr/branches/ohum/p/C0CFM3.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CFM3.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CFM3	  ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CIM2.m
===================================================================
--- ccr/branches/ohum/p/C0CIM2.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CIM2.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CIM2	 ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 01/27/10
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2010 George Lilly, University of Minnesota and others.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CIMMU.m
===================================================================
--- ccr/branches/ohum/p/C0CIMMU.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CIMMU.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CIMMU	; CCDCCR/GPL - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 2/2/09
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CIN.m
===================================================================
--- ccr/branches/ohum/p/C0CIN.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CIN.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CIN	  ; CCDCCR/GPL - CCR IMPORT utilities; 9/20/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CLA7DD.m
===================================================================
--- ccr/branches/ohum/p/C0CLA7DD.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CLA7DD.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CLA7DD	;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;
 	; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file.
Index: ccr/branches/ohum/p/C0CLA7Q.m
===================================================================
--- ccr/branches/ohum/p/C0CLA7Q.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CLA7Q.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CLA7Q	;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;
 	;
Index: ccr/branches/ohum/p/C0CLABS.m
===================================================================
--- ccr/branches/ohum/p/C0CLABS.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CLABS.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CLABS	; CCDCCR/GPL - CCR/CCD PROCESSING FOR LAB RESULTS ; 10/01/08 ; 5/10/12 2:49pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CMAIL.m
===================================================================
--- ccr/branches/ohum/p/C0CMAIL.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMAIL.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMAIL	; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr
-V	;;1.2;C0C;;May 11, 2012;Build 46
+V	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2011 Chris Richardson, Richardson Computer Research
 	; Modified 3110516@1818
Index: ccr/branches/ohum/p/C0CMAIL2.m
===================================================================
--- ccr/branches/ohum/p/C0CMAIL2.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMAIL2.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMAIL2	; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr  ; 5/10/12 2:50pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2011 Chris Richardson, Richardson Computer Research
 	; Modified 3110615@1040
Index: ccr/branches/ohum/p/C0CMAIL3.m
===================================================================
--- ccr/branches/ohum/p/C0CMAIL3.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMAIL3.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMAIL3	; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr   ; 5/10/12 2:51pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2011 Chris Richardson, Richardson Computer Research
 	; Modified 3110619@2038
Index: ccr/branches/ohum/p/C0CMCCD.m
===================================================================
--- ccr/branches/ohum/p/C0CMCCD.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMCCD.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMCCD	  ; GPL - MXML based CCD utilities;12/04/09  17:05
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CMED.m
===================================================================
--- ccr/branches/ohum/p/C0CMED.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMED.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMED	; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
 	; Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CMED1.m
===================================================================
--- ccr/branches/ohum/p/C0CMED1.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMED1.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMED1	; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;;Last modified Sat Jan 10 21:42:27 PST 2009
 	; Copyright 2009 WorldVistA.  Licensed under the terms of the GNU
@@ -43,4 +43,5 @@
 	N ALL S ALL=+FLAGS
 	N ACTIVE S ACTIVE=$P(FLAGS,U,3)
+	N PENDING S PENDING=$P(FLAGS,U,4) ;OHUM/RUT 3120504 ADDED FOR VALIDATION OF PENDING MEDICATIONS
 	; Below, X1 is today; X2 is the number of days we want to go back
 	; X is the result of this calculation using C^%DTC.
@@ -62,4 +63,5 @@
 	. N MED M MED=MEDS(RXIEN)
 	. I 'ALL,ACTIVE,$P(MED(100),U,2)'="ACTIVE" QUIT
+	. I 'ALL,PENDING,$P(MED(100),U,2)'="PENDING" QUIT ;OHUM/RUT 3120504 ADDED FOR VALIDATION OF PENDING MEDICATIONS
 	. S MEDCOUNT=MEDCOUNT+1
 	. W:$G(DEBUG) "RXIEN IS ",RXIEN,!
Index: ccr/branches/ohum/p/C0CMED2.m
===================================================================
--- ccr/branches/ohum/p/C0CMED2.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMED2.m	(revision 1433)
@@ -1,4 +1,4 @@
 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,7 +256,8 @@
 	. . . 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
Index: ccr/branches/ohum/p/C0CMED3.m
===================================================================
--- ccr/branches/ohum/p/C0CMED3.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMED3.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMED3	; WV/CCDCCR/SMH - Meds: Non-VA/Outside Meds for Vista
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;;Last Modified: Sun Jan 11 05:45:03 UTC 2009
 	; Copyright 2009 WorldVistA.  Licensed under the terms of the GNU
Index: ccr/branches/ohum/p/C0CMED4.m
===================================================================
--- ccr/branches/ohum/p/C0CMED4.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMED4.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMED4	        ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08 ; 5/10/12 2:38pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 	; General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CMED6.m
===================================================================
--- ccr/branches/ohum/p/C0CMED6.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMED6.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMED6	; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 	; General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CMIME.m
===================================================================
--- ccr/branches/ohum/p/C0CMIME.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMIME.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMIME	; CCDCCR/GPL - MIME manipulation utilities; 3/8/11 ; 5/16/11 2:32pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CMXML.m
===================================================================
--- ccr/branches/ohum/p/C0CMXML.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMXML.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMXML	  ; GPL - MXML based XPath utilities;10/13/09  17:05
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CMXMLB.m
===================================================================
--- ccr/branches/ohum/p/C0CMXMLB.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMXMLB.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMXMLB	;;ISF/RWF - Tool to build XML ; 5/10/12 2:51pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	QUIT
 	;
Index: ccr/branches/ohum/p/C0CMXP.m
===================================================================
--- ccr/branches/ohum/p/C0CMXP.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CMXP.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CMXP	  ; GPL - MXML based XPath utilities;12/04/09  17:05
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CNHIN.m
===================================================================
--- ccr/branches/ohum/p/C0CNHIN.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CNHIN.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CNHIN	  ; GPL - PROCESSING FOR OUTPUT OF NHINV ROUTINES;6/3/11  17:05
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CNMED2.m
===================================================================
--- ccr/branches/ohum/p/C0CNMED2.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CNMED2.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CNMED2	; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009 ; 5/10/12 2:53pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
 	; Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CNMED4.m
===================================================================
--- ccr/branches/ohum/p/C0CNMED4.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CNMED4.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CNMED4	; WV/CCDCCR/SMH/gpl - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08 ; 5/10/12 2:54pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 	; General Public License See attached copy of the License.
@@ -61,6 +61,14 @@
 	S MEDMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP")) 
 	;N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
+	S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING") ;SETTING FLAG
 	N I S I=0 
 	F  S I=$O(MEDS("med",I)) Q:'I  D  ; For each medication
+	. ;OHUM/RUT 3120507 ;STATUS VALIDATION FOR INPATIENT
+	       . I ($P(C0CMFLAG,"^",1)'=1) D
+	       . . I ($P(C0CMFLAG,"^",3)=1)&(MEDS("med",I,"vaStatus@value")'="ACTIVE") D
+	       . . . K MEDS("med",I) Q
+	       . . I ($P(C0CMFLAG,"^",4)=1)&(MEDS("med",I,"vaStatus@value")'="PENDING") D
+	       . . . K MEDS("med",I) Q
+	       . ;OHUM/RUT
 	. N MED M MED=MEDS("med",I)
 	. I $G(MED("vaType@value"))'="I" Q  ; not inpatient
Index: ccr/branches/ohum/p/C0CORSLT.m
===================================================================
--- ccr/branches/ohum/p/C0CORSLT.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CORSLT.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CORSLT	; CCDCCR/GPL - CCR/CCD PROCESSING ADDITIONAL RESULTS ; 06/27/11
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2011 George Lilly.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0COVREL.m
===================================================================
--- ccr/branches/ohum/p/C0COVREL.m	(revision 1432)
+++ ccr/branches/ohum/p/C0COVREL.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0COVREL	; CCDCCR/ELN - CCR/CCD PROCESSING FOR LAB,RAD,TIU RESULTS ; 10/12/15
-	       ;;1.2;C0C;;May 11, 2012;Build 46
+	       ;;1.2;C0C;;May 11, 2012;Build 47
 LIST	   ; LIST THE HL7 MESSAGE; ALSO, EXTRACT THE RESULT VARIABLES TO C0CLB
 	       N C0CI,C0CJ,C0COBT,C0CHB,C0CVAR,C0CLB2,C0CLB,C0CLI,C0CLOBX,C0CTAB,C0CTYP
Index: ccr/branches/ohum/p/C0COVRES.m
===================================================================
--- ccr/branches/ohum/p/C0COVRES.m	(revision 1432)
+++ ccr/branches/ohum/p/C0COVRES.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0COVRES	; CCDCCR/ELN - CCR/CCD PROCESSING FOR LAB,RAD,TIU RESULTS ; 10/12/15
-	       ;;1.2;C0C;;May 11, 2012;Build 46
+	       ;;1.2;C0C;;May 11, 2012;Build 47
 	       ;
 MAP(MIXML,DFN,MOXML)	   ;TO MAKE THIS COMPATIBLE WITH OLD CALLING FOR EXTRACT
Index: ccr/branches/ohum/p/C0COVREU.m
===================================================================
--- ccr/branches/ohum/p/C0COVREU.m	(revision 1432)
+++ ccr/branches/ohum/p/C0COVREU.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0COVREU	; CCDCCR/ELN - CCR/CCD PROCESSING FOR LAB,RAD,TIU RESULTS ; 10/12/15
-	       ;;1.2;C0C;;May 11, 2012;Build 46
+	       ;;1.2;C0C;;May 11, 2012;Build 47
 	       ;
 	       ;
Index: ccr/branches/ohum/p/C0CPARMS.m
===================================================================
--- ccr/branches/ohum/p/C0CPARMS.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CPARMS.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CPARMS	; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
@@ -60,8 +60,8 @@
 	;I '$D(@C0CPARMS@("TIUSTART")) S @C0CPARMS@("TIUSTART")="T" ;TODAY
 	;;OHUM/RUT
-	S @C0CPARMS@("LABLIMIT")=$P(^C0CPARM(1,0),"^",2),@C0CPARMS@("LABSTART")=$P(^C0CPARM(1,0),"^",3),@C0CPARMS@("VITLIMIT")=$P(^C0CPARM(1,0),"^",4),@C0CPARMS@("VITSTART")=$P(^C0CPARM(1,1),"^",1),@C0CPARMS@("MEDLIMIT")=$P(^C0CPARM(1,1),"^",2),@C0CPARMS@("MEDSTART")=$P(^C0CPARM(1,1),"^",3)
+	S @C0CPARMS@("LABLIMIT")=$P(^C0CPARM(1,0),"^",2),@C0CPARMS@("LABSTART")=$P(^C0CPARM(1,0),"^",3),@C0CPARMS@("VITLIMIT")=$P(^C0CPARM(1,0),"^",4),@C0CPARMS@("VITSTART")=$P(^C0CPARM(1,1),"^",1),@C0CPARMS@("MEDLIMIT")=$P(^C0CPARM(1,1),"^",2),@C0CPARMS@("MEDSTART")=$P(^C0CPARM(1,1),"^",3),@C0CPARMS@("MEDACTIVE")=0,@C0CPARMS@("MEDPENDING")=0,@C0CPARMS@("MEDALL")=0 ;OHUM/RUT 3120504 INITIALISING MEDICATION STATUS VARIABLES WITH ZERO
 	I $P(^C0CPARM(1,1),"^",4)="ACT" S @C0CPARMS@("MEDACTIVE")=1
 	I $P(^C0CPARM(1,1),"^",4)="PEN" S @C0CPARMS@("MEDPENDING")=1
-	I $P(^C0CPARM(1,1),"^",4)="ALL" S @C0CPARMS@("MEDALL")=1
+	I $P(^C0CPARM(1,1),"^",4)="ALL" S @C0CPARMS@("MEDALL")=1,@C0CPARMS@("MEDPENDING")=1 ;OHUM/RUT 3120504 ADDED FOR INCLUDING PENDING MEDICATIONS FOR STATUS "ALL"
 	;S ^TMP("C0CCCR","TIULIMIT")="",^TMP("C0CCCR","TIUSTART")=""
 	I $P(^C0CPARM(1,2),"^",3)=1 S @C0CPARMS@("TIULIMIT")=$P(^C0CPARM(1,2),"^",1),@C0CPARMS@("TIUSTART")=$P(^C0CPARM(1,2),"^",2)
Index: ccr/branches/ohum/p/C0CPROBS.m
===================================================================
--- ccr/branches/ohum/p/C0CPROBS.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CPROBS.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CPROBS	; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CPROC.m
===================================================================
--- ccr/branches/ohum/p/C0CPROC.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CPROC.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CPROC	 ; CCDCCR/GPL - CCR/CCD PROCESSING FOR PROCEDURES ; 01/21/10
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2010 George Lilly, University of Minnesota and others.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CPXRM.m
===================================================================
--- ccr/branches/ohum/p/C0CPXRM.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CPXRM.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CPXRM	; 
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 DOIT	;
 	S G="PXRMXSEPCLINIC3110302.224804" ZWR ^XTMP(G,*)
Index: ccr/branches/ohum/p/C0CQRY1.m
===================================================================
--- ccr/branches/ohum/p/C0CQRY1.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CQRY1.m	(revision 1433)
@@ -1,4 +1,4 @@
 LA7QRY1	;DALOI/JMC - Lab HL7 Query Utility ;01/19/99  13:48
-	       ;;1.2;C0C;;May 11, 2012;Build 46
+	       ;;1.2;C0C;;May 11, 2012;Build 47
 	       ;
 	       Q
Index: ccr/branches/ohum/p/C0CQRY2.m
===================================================================
--- ccr/branches/ohum/p/C0CQRY2.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CQRY2.m	(revision 1433)
@@ -1,4 +1,4 @@
 LA7QRY2	;DALOI/JMC - Lab HL7 Query Utility ; 04/13/09
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	; JMC - mods to check for IHS V LAB file
 	;
Index: ccr/branches/ohum/p/C0CRAHL7.m
===================================================================
--- ccr/branches/ohum/p/C0CRAHL7.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CRAHL7.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CRAHL7	; C0C/ELN - CCR/CCD PROCESSING FOR RAD REPORT ; 25/10/2010
-	       ;;1.2;C0C;;May 11, 2012;Build 46
+	       ;;1.2;C0C;;May 11, 2012;Build 47
 	       ;;
 	       Q
Index: ccr/branches/ohum/p/C0CRARPT.m
===================================================================
--- ccr/branches/ohum/p/C0CRARPT.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CRARPT.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CRARPT	       ; C0C/ELN - CCR/CCD PROCESSING FOR RAD REPORT ; 19/10/2010
-	       ;;1.2;C0C;;May 11, 2012;Build 46
+	       ;;1.2;C0C;;May 11, 2012;Build 47
 MAP(MIXML,DFN,MOXML)	   ;TO MAKE THIS COMPATIBLE WITH OLD CALLING FOR EXTRACT
 	       ; ASSUMES THAT EXTRACT HAS BEEN RUN AND THE VARIABLES STORED IN MIVAR
Index: ccr/branches/ohum/p/C0CRIMA.m
===================================================================
--- ccr/branches/ohum/p/C0CRIMA.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CRIMA.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CRIMA	  ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CRNF.m
===================================================================
--- ccr/branches/ohum/p/C0CRNF.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CRNF.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CRNF	  ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CRNFRP.m
===================================================================
--- ccr/branches/ohum/p/C0CRNFRP.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CRNFRP.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CRNFRP	; CCDCCR/GPL - Reference Name Format (RNF) RPCs; 12/9/09 ; 5/10/12 2:56pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CRPMS.m
===================================================================
--- ccr/branches/ohum/p/C0CRPMS.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CRPMS.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CRPMS	; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09  14:33
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CRXN.m
===================================================================
--- ccr/branches/ohum/p/C0CRXN.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CRXN.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CRXN	  ; CCDCCR/GPL - CCR RXN utilities; 12/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CRXNRD.m
===================================================================
--- ccr/branches/ohum/p/C0CRXNRD.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CRXNRD.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CRXNRD	; WV/SMH - CCR/CCD PROJECT: Routine to Read RxNorm files;11/15/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	W "No entry from top" Q
 IMPORT(PATH)	
Index: ccr/branches/ohum/p/C0CSNOA.m
===================================================================
--- ccr/branches/ohum/p/C0CSNOA.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CSNOA.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CSNOA	  ; CCDCCR/GPL - SNOMED CT ANALYSIS ROUTINES; 10/14/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CSOAP.m
===================================================================
--- ccr/branches/ohum/p/C0CSOAP.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CSOAP.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CSOAP	 ; CCDCCR/GPL - SOAP WEB SERVICE utilities; 8/25/09
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CSQMB.m
===================================================================
--- ccr/branches/ohum/p/C0CSQMB.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CSQMB.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CSQMB	; SQMCCR/ELN  - BATCH PROGRAM ;16/11/2010
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;
 EN	;Traverse the DPT global and export CCR xml for each DFN
Index: ccr/branches/ohum/p/C0CSUB1.m
===================================================================
--- ccr/branches/ohum/p/C0CSUB1.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CSUB1.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CSUB1	  ; CCDCCR/GPL - CCR SUBSCRIPTION utilities; 12/6/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CSYS.m
===================================================================
--- ccr/branches/ohum/p/C0CSYS.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CSYS.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CSYS	;WV/C0C/SMH - Routine to Get EHR System Information;6JUL2008
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 	; General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CTIU.m
===================================================================
--- ccr/branches/ohum/p/C0CTIU.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CTIU.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CTIU	; C0C/ELN - PROCESSING FOR TIU NOTES ; 19/10/2010
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;
 	;
Index: ccr/branches/ohum/p/C0CTIU1.m
===================================================================
--- ccr/branches/ohum/p/C0CTIU1.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CTIU1.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CTIU1	; C0C/ELN - PROCESSING FOR TIU NOTES Contd. ; 19/10/2010
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;ELN UTILITY PROGRAM TO SUPPORT C0CTIU
 C0CDATE(EDTE)	; Converts external date to internal date format
Index: ccr/branches/ohum/p/C0CUNIT.m
===================================================================
--- ccr/branches/ohum/p/C0CUNIT.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CUNIT.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CUNIT	; CCDCCR/GPL - Unit Testing Library; 5/07/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008 George Lilly. Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CUTIL.m
===================================================================
--- ccr/branches/ohum/p/C0CUTIL.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CUTIL.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CUTIL	;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008-2009 Sam Habiel & George Lilly.  
 	;Licensed under the terms of the GNU
Index: ccr/branches/ohum/p/C0CVA200.m
===================================================================
--- ccr/branches/ohum/p/C0CVA200.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CVA200.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CVA200	;WV/C0C/SMH - Routine to get Provider Data;07/13/2008
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008 Sam Habiel.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CVALID.m
===================================================================
--- ccr/branches/ohum/p/C0CVALID.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CVALID.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CVALID	; C0C/OHUM/RUT - PROCESSING FOR DATE LIMITS, NOTES ; 22/12/2011
-	;;1.2;C0C;;May 11, 2012;Build 46;Build 2
+	;;1.2;C0C;;May 11, 2012;Build 47;Build 2
 	S ^TMP("C0CCCR","LABLIMIT")="",^TMP("C0CCCR","VITLIMIT")="",^TMP("C0CCCR","MEDLIMIT")="",^TMP("C0CCCR","TIULIMIT")=""
 	S %DT="AEX",%DT("A")="LAB Report From: ",%DT("B")="T-36500" D ^%DT S ^TMP("C0CCCR","LABLIMIT")=Y
Index: ccr/branches/ohum/p/C0CVIT2.m
===================================================================
--- ccr/branches/ohum/p/C0CVIT2.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CVIT2.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CVIT2	; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota and others.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CVITAL.m
===================================================================
--- ccr/branches/ohum/p/C0CVITAL.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CVITAL.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CVITAL	; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008,2009 George Lilly, University of Minnesota and others.
 	;Licensed under the terms of the GNU General Public License.
Index: ccr/branches/ohum/p/C0CVOBX1.m
===================================================================
--- ccr/branches/ohum/p/C0CVOBX1.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CVOBX1.m	(revision 1433)
@@ -1,4 +1,4 @@
 LA7VOBX1	;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/21/09
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	; JMC - mods to check for IHS V LAB file
 	;
Index: ccr/branches/ohum/p/C0CVORU.m
===================================================================
--- ccr/branches/ohum/p/C0CVORU.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CVORU.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0C7VORU	;WV/JMC - Builder of HL7 Lab Results OBR/OBX/NTE based on RPMS V LAB file ;Jun 16, 2009 ; 5/10/12 5:19pm
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;
 EN(LA)	; called from C0CVLAB
Index: ccr/branches/ohum/p/C0CXEWD.m
===================================================================
--- ccr/branches/ohum/p/C0CXEWD.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CXEWD.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CXEWD	  ; C0C/GPL - EWD based XPath utilities; 10/11/09
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CXPAT0.m
===================================================================
--- ccr/branches/ohum/p/C0CXPAT0.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CXPAT0.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CXPAT0	  ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
Index: ccr/branches/ohum/p/C0CXPATH.m
===================================================================
--- ccr/branches/ohum/p/C0CXPATH.m	(revision 1432)
+++ ccr/branches/ohum/p/C0CXPATH.m	(revision 1433)
@@ -1,4 +1,4 @@
 C0CXPATH	  ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
-	;;1.2;C0C;;May 11, 2012;Build 46
+	;;1.2;C0C;;May 11, 2012;Build 47
 	;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.