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

Timestamp:

Aug 30, 2008, 3:13:15 PM (16 years ago)

Author:

George Lilly

Message:

XINDEX fixes. almost clean except for long var names and big files

File:

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

ccr/trunk/p/CCRUNIT.m

@@ -1 +1 @@
 CCRUNIT ; A routine that tests some crap
-        Q
-        ;
+        ;;0.1;CCDCCR;;JUL 13, 2007;Build 0
+        Q
+        ;
 MEDS
-        N DEBUG S DEBUG=0
-        N DFN S DFN=1
-        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,!
-        W "Getting Med Template into INXML using",!
-        W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
-        N INXML
-        D QUERY^GPLXPATH(T,XPATH,"INXML")
-        B
-        W "Executing EXTRACT^GPLMEDS(""INXML"",DFN,OUTXML)",!
-        W "OUTXML will be ^TMP($J,""OUT"")",!
-        N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
-        D EXTRACT^GPLMEDS("INXML",DFN,OUTXML)
-        Q
+        N DEBUG S DEBUG=0
+        N DFN S DFN=1
+        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,!
+        W "Getting Med Template into INXML using",!
+        W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
+        N INXML
+        D QUERY^GPLXPATH(T,XPATH,"INXML")
+        B
+        W "Executing EXTRACT^GPLMEDS(""INXML"",DFN,OUTXML)",!
+        W "OUTXML will be ^TMP($J,""OUT"")",!
+        N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
+        D EXTRACT^GPLMEDS("INXML",DFN,OUTXML)
+        Q