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