Changeset 77 for ccr/trunk/p/GPLPROBS.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/GPLPROBS.m (modified) (1 diff)

ccr/trunk/p/GPLPROBS.m

@@ -81 +81 @@
           . . S VMAP=$NA(@TVMAP@(I))
           . . S ZX="<tr><td>" ; BEGIN ROW AND COL
+          . . S ZX=ZX_@VMAP@("PROBLEMDESCRIPTION")
+          . . S ZX=ZX_"</td><td>" ; NEXT COL
           . . D PUSH^GPLXPATH("HTMP",ZX) ; ADD TO BUFFER
-          . . S ZX=@VMAP@("PROBLEMDESCRIPTION")
-          . . I ZX="" S ZX=" " ; SET TO BLANK SO IT DOESN'T GET TRIMMED
-          . . D PUSH^GPLXPATH("HTMP",ZX)
-          . . D PUSH^GPLXPATH("HTMP","</td><td>") ; NEXT COL
           . . S ZX=@VMAP@("PROBLEMDATEOFONSET")
           . . I ZX="" S ZX="Unknown" ; SET TO UNKNOWN
           . . D PUSH^GPLXPATH("HTMP",ZX)
-          . . D PUSH^GPLXPATH("HTMP","</td><td>") ; NEXT COL
-          . . D PUSH^GPLXPATH("HTMP","Active") ; WE ONLY DO ACTIVE
-          . . D PUSH^GPLXPATH("HTMP","</td></tr>") ; END OF COL AND ROW
+          . . S ZX="</td><td>" ; NEXT COL
+          . . S ZX=ZX_"Active" ; WE ONLY DO ACTIVE
+          . . S ZX=ZX_"</td></tr>" ; END OF COL AND ROW
+          . . D PUSH^GPLXPATH("HTMP",ZX)
           . D PUSH^GPLXPATH("HTMP","</tbody></table></text>") ; END TABLE
           . D INSB4^GPLXPATH(OUTXML,"HTMP") ; INSERT AT TOP OF SECTION