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

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 
1CCRUNIT ; A routine that tests some crap
2 ;;0.1;CCDCCR;;JUL 13, 2007;Build 0
3 Q
4 ;
5MEDS
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.