2008-08-25 04:25:29 -04:00
|
|
|
CCRUNIT ; A routine that tests some crap
|
2008-08-30 15:13:15 -04:00
|
|
|
;;0.1;CCDCCR;;JUL 13, 2007;Build 0
|
|
|
|
|
Q
|
|
|
|
|
;
|
2008-08-25 04:25:29 -04:00
|
|
|
MEDS
|
2009-01-19 16:20:15 -05:00
|
|
|
N DEBUG S DEBUG=0
|
2009-01-19 14:42:52 -05:00
|
|
|
N DFN S DFN=5685
|
2008-08-30 15:13:15 -04:00
|
|
|
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,!
|
2009-01-19 16:20:15 -05:00
|
|
|
W "Getting Med Template into INXML using",!
|
|
|
|
|
W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
|
|
|
|
|
D QUERY^GPLXPATH(T,XPATH,"INXML")
|
|
|
|
|
B
|
|
|
|
|
W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
|
2008-08-30 15:13:15 -04:00
|
|
|
W "OUTXML will be ^TMP($J,""OUT"")",!
|
|
|
|
|
N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
|
2009-01-19 16:20:15 -05:00
|
|
|
D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML)
|
2008-08-30 15:13:15 -04:00
|
|
|
Q
|
