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

Timestamp:

Oct 3, 2008, 10:57:33 PM (16 years ago)

Author:

Sam Habiel

Message:

Refactored CCRDPT and updated GPLACTOR accordingly

File:

• ccr/trunk/p/CCRUNIT.m (modified) (1 diff)

ccr/trunk/p/CCRUNIT.m

@@ -14 +14 @@
         W "QUERY^GPLXPATH(T,XPATH,""MINXML"")",!!
         D QUERY^GPLXPATH(T,XPATH,"MINXML")
-        B
                 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("MINXML",DFN,OUTXML)
+        D EXTRACT^CCRMEDS($NA(MINXML),DFN,OUTXML)
         Q