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

Timestamp:

Sep 28, 2008, 11:32:16 AM (16 years ago)

Author:

Sam Habiel

Message:

CCRMEDS: Processing of multiple directions.

File:

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

ccr/trunk/p/CCRUNIT.m

@@ -5 +5 @@
 MEDS
         N DEBUG S DEBUG=0
-        N DFN S DFN=3
+        N DFN S DFN=1
         K ^TMP($J)
         W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
@@ -11 +11 @@
         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 "Getting Med Template into MINXML using",!
+        W "QUERY^GPLXPATH(T,XPATH,""MINXML"")",!!
+        D QUERY^GPLXPATH(T,XPATH,"MINXML")
         B
-                W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
+                W "Executing EXTRACT^CCRMEDS(MINXML,DFN,OUTXML)",!
         W "OUTXML will be ^TMP($J,""OUT"")",!
         N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
-        D EXTRACT^CCRMEDS(.INXML,DFN,OUTXML)
+        D EXTRACT^CCRMEDS("MINXML",DFN,OUTXML)
         Q