source:
ccr/trunk/p/CCRUNIT.m@
392
Last change on this file since 392 was 342, checked in by , 16 years ago | |
---|---|
File size: 805 bytes |
Line | |
---|---|
1 | CCRUNIT ; A routine that tests some crap |
2 | ;;0.1;CCDCCR;;JUL 13, 2007;Build 0 |
3 | Q |
4 | ; |
5 | MEDS |
6 | N DEBUG S DEBUG=0 |
7 | N DFN S DFN=5685 |
8 | K ^TMP($J) |
9 | W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!! |
10 | N T S T=$NA(^TMP($J,"CCR")) D LOAD^GPLCCR0(T) |
11 | N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications" |
12 | W "XPATH is: "_XPATH,! |
13 | W "Getting Med Template into INXML using",! |
14 | W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!! |
15 | D QUERY^GPLXPATH(T,XPATH,"INXML") |
16 | W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",! |
17 | W "OUTXML will be ^TMP($J,""OUT"")",! |
18 | N OUTXML S OUTXML=$NA(^TMP($J,"OUT")) |
19 | D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML) |
20 | D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml") |
21 | Q |
Note:
See TracBrowser
for help on using the repository browser.