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

Timestamp:

Sep 21, 2008, 8:24:01 PM (16 years ago)

Author:

Sam Habiel

Message:

CCRMEDS again

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=1
+        N DFN S DFN=3
         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)
-        B
         N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications"
         W "XPATH is: "_XPATH,!
@@ -16 +15 @@
         N INXML
         D QUERY^GPLXPATH(T,XPATH,"INXML")
-        B
-        W "Executing EXTRACT^GPLMEDS(""INXML"",DFN,OUTXML)",!
+        W "Executing EXTRACT^CCRMEDS(""INXML"",DFN,OUTXML)",!
         W "OUTXML will be ^TMP($J,""OUT"")",!
         N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
-        D EXTRACT^GPLMEDS("INXML",DFN,OUTXML)
+        D EXTRACT^CCRMEDS("INXML",DFN,OUTXML)
         Q