Changeset 85 for ccr/trunk


Ignore:
Timestamp:
Aug 6, 2008, 1:29:59 PM (16 years ago)
Author:
George Lilly
Message:

moved CCD Problems HTML narrative to the template

Location:
ccr/trunk/p
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLCCD1.m

    r75 r85  
    208208 ;;</documentationOf>
    209209 ;;<Body>
     210 ;;<PROBLEMS-HTML>
     211 ;;<text><table border="1" width="100%"><thead><tr><th>Condition</th><th>Effective Dates</th><th>Condition Status</th></tr></thead><tbody>
     212 ;;<tr><td>@@PROBLEMDESCRIPTION@@</td>
     213 ;;<td>@@PROBLEMDATEOFONSET@@</td>
     214 ;;<td>Active</td></tr>
     215 ;;</tbody></table></text>
     216 ;;</PROBLEMS-HTML>
    210217 ;;<Problems>
    211218 ;;<component>
  • ccr/trunk/p/GPLPROBS.m

    r77 r85  
    7575          ; GENERATE THE NARITIVE HTML FOR THE CCD
    7676          I CCD D  ; IF THIS IS FOR A CCD
    77           . N HTMP,I,ZX
    78           . S ZX="<text><table border=""1"" width=""100%""><thead><tr><th>Condition</th><th>Effective Dates</th><th>Condition Status</th></tr></thead><tbody>"
    79           . D PUSH^GPLXPATH("HTMP",ZX) ; HEADER OF THE TABLE
     77          . N HTMP,HOUT,HTMLO,I,ZX
    8078          . F I=1:1:RPCRSLT(0) D  ; FOR EACH PROBLEM
    8179          . . S VMAP=$NA(@TVMAP@(I))
    82           . . S ZX="<tr><td>" ; BEGIN ROW AND COL
    83           . . S ZX=ZX_@VMAP@("PROBLEMDESCRIPTION")
    84           . . S ZX=ZX_"</td><td>" ; NEXT COL
    85           . . D PUSH^GPLXPATH("HTMP",ZX) ; ADD TO BUFFER
    86           . . S ZX=@VMAP@("PROBLEMDATEOFONSET")
    87           . . I ZX="" S ZX="Unknown" ; SET TO UNKNOWN
    88           . . D PUSH^GPLXPATH("HTMP",ZX)
    89           . . S ZX="</td><td>" ; NEXT COL
    90           . . S ZX=ZX_"Active" ; WE ONLY DO ACTIVE
    91           . . S ZX=ZX_"</td></tr>" ; END OF COL AND ROW
    92           . . D PUSH^GPLXPATH("HTMP",ZX)
    93           . D PUSH^GPLXPATH("HTMP","</tbody></table></text>") ; END TABLE
    94           . D INSB4^GPLXPATH(OUTXML,"HTMP") ; INSERT AT TOP OF SECTION
     80          . . D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Body/PROBLEMS-HTML","HTMP") ; GET THE HTML FROM THE TEMPLATE
     81          . . D UNMARK^GPLXPATH("HTMP") ; REMOVE <PROBLEMS-HTML> MARKUP
     82          . . ; D PARY^GPLXPATH("HTMP") ; PRINT IT
     83          . . D MAP^GPLXPATH("HTMP",VMAP,"HOUT") ; MAP THE VARIABLES
     84          . . ; D PARY^GPLXPATH("HOUT") ; PRINT IT AGAIN
     85          . . I I=1 D  ; FIRST ONE IS JUST A COPY
     86          . . . D CP^GPLXPATH("HOUT","HTMLO")
     87          . . I I>1 D  ; AFTER THE FIRST, INSERT INNER HTML
     88          . . . D INSINNER^GPLXPATH("HOUT","HTMLO","//")
     89          . D INSB4^GPLXPATH(OUTXML,"HTMLO") ; INSERT AT TOP OF SECTION
    9590          N PROBSTMP,I
    9691          D MISSING^GPLXPATH(ARYTMP,"PROBSTMP") ; SEARCH XML FOR MISSING VARS
  • ccr/trunk/p/GPLUNIT.m

    r60 r85  
    6969          ;
    7070ZTEST(ZARY,WHICH)   ; try out the tests using a passed array ZTEST
    71           N I,ZX,ZR,ZP
     71          N ZI,ZX,ZR,ZP
    7272          S DEBUG=0
    7373          ; I WHICH="ALL" D  Q ; RUN ALL THE TESTS
     
    8585          S FIRST=$P(ZARY(WHICH),"^",1)
    8686          S LAST=$P(ZARY(WHICH),"^",2)
    87           F I=FIRST:1:LAST  D
    88           . I ZARY(I)?1">"1.E  D  ; NOT A TEST, JUST RUN THE STATEMENT
    89           . . S ZP=$E(ZARY(I),2,$L(ZARY(I)))
     87          F ZI=FIRST:1:LAST  D
     88          . I ZARY(ZI)?1">"1.E  D  ; NOT A TEST, JUST RUN THE STATEMENT
     89          . . S ZP=$E(ZARY(ZI),2,$L(ZARY(ZI)))
    9090          . . ;  W ZP,!
    9191          . . S ZX=ZP
     
    9393          . . X ZX
    9494          . . W "..SUCCESS: ",WHICH,!
    95           . I ZARY(I)?1"?"1.E  D  ; THIS IS A TEST
    96           . . S ZP=$E(ZARY(I),2,$L(ZARY(I)))
     95          . I ZARY(ZI)?1"?"1.E  D  ; THIS IS A TEST
     96          . . S ZP=$E(ZARY(ZI),2,$L(ZARY(ZI)))
    9797          . . S ZX="S ZR="_ZP
    9898          . . W "TRYING: "_ZP
Note: See TracChangeset for help on using the changeset viewer.