CCRUNIT ; A routine that tests some crap
	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)
	B
	N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications"
	W "XPATH is: "_XPATH,!
	W "Getting Med Template into INXML using",!
	W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
	N INXML
	D QUERY^GPLXPATH(T,XPATH,"INXML")
	B
	W "Executing EXTRACT^GPLMEDS(""INXML"",DFN,OUTXML)",!
	W "OUTXML will be ^TMP($J,""OUT"")",!
	N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
	D EXTRACT^GPLMEDS("INXML",DFN,OUTXML)
	Q
