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=1
        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 MINXML using",!
        W "QUERY^GPLXPATH(T,XPATH,""MINXML"")",!!
        D QUERY^GPLXPATH(T,XPATH,"MINXML")
		W "Executing EXTRACT^CCRMEDS(MINXML,DFN,OUTXML)",!
        W "OUTXML will be ^TMP($J,""OUT"")",!
        N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
        D EXTRACT^CCRMEDS($NA(MINXML),DFN,OUTXML)
        Q