21 lines
773 B
Mathematica
21 lines
773 B
Mathematica
CCRUNIT ; A routine that tests some crap
|
|
;;0.1;CCDCCR;;JUL 13, 2007;Build 0
|
|
Q
|
|
;
|
|
MEDS
|
|
N DEBUG S DEBUG=1
|
|
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 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^CCRMEDS6($NA(MINXML),DFN,OUTXML)
|
|
Q
|