source: ccr/trunk/p/CCRUNIT.m@ 110

Last change on this file since 110 was 101, checked in by Sam Habiel, 16 years ago

First stab at CCRMEDS to replace GPLMEDS; Refactoring of GPLMEDS.

File size: 620 bytes
Line 
1CCRUNIT ; A routine that tests some crap
2 Q
3 ;
4MEDS
5 N DEBUG S DEBUG=0
6 N DFN S DFN=1
7 K ^TMP($J)
8 W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
9 N T S T=$NA(^TMP($J,"CCR")) D LOAD^GPLCCR0(T)
10 B
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 N INXML
16 D QUERY^GPLXPATH(T,XPATH,"INXML")
17 B
18 W "Executing EXTRACT^GPLMEDS(""INXML"",DFN,OUTXML)",!
19 W "OUTXML will be ^TMP($J,""OUT"")",!
20 N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
21 D EXTRACT^GPLMEDS("INXML",DFN,OUTXML)
22 Q
Note: See TracBrowser for help on using the repository browser.