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

Timestamp:

Jan 19, 2009, 2:42:52 PM (15 years ago)

Author:

George Lilly

Message:

use DUZ("AG")="I" to test for RPMS

File:

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

ccr/trunk/p/CCRUNIT.m

@@ -4 +4 @@
         ;
 MEDS
-        N DEBUG S DEBUG=0
-        N DFN S DFN=1
+        N DEBUG S DEBUG=1
+        N DFN S DFN=5685
         K ^TMP($J)
         W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
@@ -17 +17 @@
         W "OUTXML will be ^TMP($J,""OUT"")",!
         N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
-        D EXTRACT^CCRMEDS($NA(MINXML),DFN,OUTXML)
+        D EXTRACT^CCRMEDS6($NA(MINXML),DFN,OUTXML)
         Q