|
Last change
on this file since 173 was 173, checked in by Sam Habiel, 16 years ago |
|
CCRMEDS: Processing of multiple directions.
|
|
File size:
776 bytes
|
| Rev | Line | |
|---|
| [101] | 1 | CCRUNIT ; A routine that tests some crap
|
|---|
| [122] | 2 | ;;0.1;CCDCCR;;JUL 13, 2007;Build 0
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| [101] | 5 | MEDS
|
|---|
| [122] | 6 | N DEBUG S DEBUG=0
|
|---|
| [173] | 7 | N DFN S DFN=1
|
|---|
| [122] | 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,!
|
|---|
| [173] | 13 | W "Getting Med Template into MINXML using",!
|
|---|
| 14 | W "QUERY^GPLXPATH(T,XPATH,""MINXML"")",!!
|
|---|
| 15 | D QUERY^GPLXPATH(T,XPATH,"MINXML")
|
|---|
| [162] | 16 | B
|
|---|
| [173] | 17 | W "Executing EXTRACT^CCRMEDS(MINXML,DFN,OUTXML)",!
|
|---|
| [122] | 18 | W "OUTXML will be ^TMP($J,""OUT"")",!
|
|---|
| 19 | N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
|
|---|
| [173] | 20 | D EXTRACT^CCRMEDS("MINXML",DFN,OUTXML)
|
|---|
| [122] | 21 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
