Changeset 266 for ccr/trunk/p/GPLCCR.m

Timestamp:

Nov 9, 2008, 11:56:39 AM (16 years ago)

Author:

George Lilly

Message:

integrate LABS with ANALYZE^{GPLRIMA attribute categories}

File:

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

ccr/trunk/p/GPLCCR.m

@@ -109 +109 @@
     . ; W OXML,!
     . S CALL="D "_TAG_"^"_RTN_"(IXML,DFN,OXML)" ; SETUP THE CALL
-    . I DEBUG W "RUNNING ",CALL,!
+    . W "RUNNING ",CALL,!
     . X CALL
     . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
@@ -134 +134 @@
     D PUSH^GPLXPATH(TAB,"EXTRACT;CCRMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")")
     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
-    I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
+    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
     I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALERT;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")")
     Q