Changeset 398

Timestamp:

Mar 15, 2009, 8:27:26 PM (16 years ago)

Author:

Sam Habiel

Message:

Moved contents of CCRUNIT to C0CUNIT

Location:

ccr/trunk/p

Files:

• C0CUNIT.m (modified) (1 diff)
• CCRUNIT.m (deleted)

ccr/trunk/p/C0CUNIT.m

@@ -155 +155 @@
           Q
           ;
+MEDS
+ N DEBUG S DEBUG=0
+ N DFN S DFN=5685
+ K ^TMP($J)
+ W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
+ N T S T=$NA(^TMP($J,"CCR"))     D LOAD^GPLCCR0(T)
+ N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications"
+ W "XPATH is: "_XPATH,!
+ W "Getting Med Template into INXML using",!
+ W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
+ D QUERY^GPLXPATH(T,XPATH,"INXML")
+ W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
+ W "OUTXML will be ^TMP($J,""OUT"")",!
+ N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
+ D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML)
+ D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
+ Q