Changeset 339 for ccr/trunk/p/CCRUNIT.m

Timestamp:

Jan 19, 2009, 4:20:15 PM (15 years ago)

Author:

George Lilly

Message:

CCRMEDS6 tested, now mostly working

File:

• ccr/trunk/p/CCRUNIT.m (modified) (2 diffs)

ccr/trunk/p/CCRUNIT.m

@@ -4 +4 @@
         ;
 MEDS
-        N DEBUG S DEBUG=1
+        N DEBUG S DEBUG=0
         N DFN S DFN=5685
         K ^TMP($J)
@@ -11 +11 @@
         N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications"
         W "XPATH is: "_XPATH,!
-        W "Getting Med Template into MINXML using",!
-        W "QUERY^GPLXPATH(T,XPATH,""MINXML"")",!!
-        D QUERY^GPLXPATH(T,XPATH,"MINXML")
-                W "Executing EXTRACT^CCRMEDS(MINXML,DFN,OUTXML)",!
+        W "Getting Med Template into INXML using",!
+        W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
+        D QUERY^GPLXPATH(T,XPATH,"INXML")
+        B
+                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($NA(MINXML),DFN,OUTXML)
+        D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML)
         Q