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

Timestamp:

Jul 28, 2008, 5:09:22 PM (16 years ago)

Author:

George Lilly

Message:

Variable assigned in Results section of CCR template

File:

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

ccr/trunk/p/GPLCCR.m

@@ -51 +51 @@
     S DEBUG=0
     S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
+    I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
     S TGLOBAL=$NA(^TMP("GPLCCR",$J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
     S CCRGLO=$NA(^TMP("GPLCCR",$J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
@@ -105 +106 @@
     ;D PUSH^GPLXPATH(TAB,"EXTRACT;GPLMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")")
     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITALS;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
+    I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
     Q
     ;