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

Timestamp:

Jul 27, 2008, 4:37:10 PM (16 years ago)

Author:

George Lilly

Message:

Fixed CCD structure, added Narrative to Problems

File:

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

ccr/trunk/p/GPLPROBS.m

@@ -73 +73 @@
           ; ZWR @OUTXML
           ; $$HTML^DILF(
+          ; 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
+          . F I=1:1:RPCRSLT(0) D  ; FOR EACH PROBLEM
+          . . S VMAP=$NA(@TVMAP@(I))
+          . . S ZX="<tr><td>" ; BEGIN ROW AND 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
+          . D PUSH^GPLXPATH("HTMP","</tbody></table></text>") ; END TABLE
+          . D INSB4^GPLXPATH(OUTXML,"HTMP") ; INSERT AT TOP OF SECTION
           N PROBSTMP,I
           D MISSING^GPLXPATH(ARYTMP,"PROBSTMP") ; SEARCH XML FOR MISSING VARS