Last change
on this file since 338 was 335, checked in by George Lilly, 16 years ago |
use DUZ("AG")="I" to test for RPMS
|
File size:
773 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=1
|
---|
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 MINXML using",!
|
---|
14 | W "QUERY^GPLXPATH(T,XPATH,""MINXML"")",!!
|
---|
15 | D QUERY^GPLXPATH(T,XPATH,"MINXML")
|
---|
16 | W "Executing EXTRACT^CCRMEDS(MINXML,DFN,OUTXML)",!
|
---|
17 | W "OUTXML will be ^TMP($J,""OUT"")",!
|
---|
18 | N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
|
---|
19 | D EXTRACT^CCRMEDS6($NA(MINXML),DFN,OUTXML)
|
---|
20 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.