Changeset 85 for ccr/trunk/p/GPLPROBS.m

Timestamp:

Aug 6, 2008, 1:29:59 PM (16 years ago)

Author:

George Lilly

Message:

moved CCD Problems HTML narrative to the template

File:

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

ccr/trunk/p/GPLPROBS.m

@@ -75 +75 @@
           ; GENERATE THE NARITIVE HTML FOR THE CCD
           I CCD D  ; IF THIS IS FOR A CCD
-          . N HTMP,I,ZX
-          . S ZX="<text><table border=""1"" width=""100%""><thead><tr><th>Condition</th><th>Effective Dates</th><th>Condition Status</th></tr></thead><tbody>"
-          . D PUSH^GPLXPATH("HTMP",ZX) ; HEADER OF THE TABLE
+          . N HTMP,HOUT,HTMLO,I,ZX
           . F I=1:1:RPCRSLT(0) D  ; FOR EACH PROBLEM
           . . 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@("PROBLEMDATEOFONSET")
-          . . I ZX="" S ZX="Unknown" ; SET TO UNKNOWN
-          . . D PUSH^GPLXPATH("HTMP",ZX)
-          . . 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
+          . . D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Body/PROBLEMS-HTML","HTMP") ; GET THE HTML FROM THE TEMPLATE
+          . . D UNMARK^GPLXPATH("HTMP") ; REMOVE <PROBLEMS-HTML> MARKUP
+          . . ; D PARY^GPLXPATH("HTMP") ; PRINT IT
+          . . D MAP^GPLXPATH("HTMP",VMAP,"HOUT") ; MAP THE VARIABLES
+          . . ; D PARY^GPLXPATH("HOUT") ; PRINT IT AGAIN
+          . . I I=1 D  ; FIRST ONE IS JUST A COPY
+          . . . D CP^GPLXPATH("HOUT","HTMLO")
+          . . I I>1 D  ; AFTER THE FIRST, INSERT INNER HTML
+          . . . D INSINNER^GPLXPATH("HOUT","HTMLO","//")
+          . D INSB4^GPLXPATH(OUTXML,"HTMLO") ; INSERT AT TOP OF SECTION
           N PROBSTMP,I
           D MISSING^GPLXPATH(ARYTMP,"PROBSTMP") ; SEARCH XML FOR MISSING VARS