Index: /ccr/trunk/p/C0CUNIT.m
===================================================================
--- /ccr/trunk/p/C0CUNIT.m	(revision 397)
+++ /ccr/trunk/p/C0CUNIT.m	(revision 398)
@@ -155,2 +155,19 @@
           Q
           ;
+MEDS
+ N DEBUG S DEBUG=0
+ N DFN S DFN=5685
+ K ^TMP($J)
+ W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
+ N T S T=$NA(^TMP($J,"CCR"))     D LOAD^GPLCCR0(T)
+ N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications"
+ W "XPATH is: "_XPATH,!
+ W "Getting Med Template into INXML using",!
+ W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
+ D QUERY^GPLXPATH(T,XPATH,"INXML")
+ W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
+ W "OUTXML will be ^TMP($J,""OUT"")",!
+ N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
+ D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML)
+ D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
+ Q
Index: r/trunk/p/CCRUNIT.m
===================================================================
--- /ccr/trunk/p/CCRUNIT.m	(revision 397)
+++ 	(revision )
@@ -1,21 +1,0 @@
-CCRUNIT ; A routine that tests some crap
-        ;;0.1;CCDCCR;;JUL 13, 2007;Build 0
-        Q
-        ;
-MEDS
-        N DEBUG S DEBUG=0
-        N DFN S DFN=5685
-        K ^TMP($J)
-        W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
-        N T S T=$NA(^TMP($J,"CCR"))     D LOAD^GPLCCR0(T)
-        N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications"
-        W "XPATH is: "_XPATH,!
-        W "Getting Med Template into INXML using",!
-        W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
-        D QUERY^GPLXPATH(T,XPATH,"INXML")
-	W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
-        W "OUTXML will be ^TMP($J,""OUT"")",!
-        N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
-        D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML)
-	D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
-        Q