Changeset 77


Ignore:
Timestamp:
Jul 28, 2008, 5:09:22 PM (16 years ago)
Author:
George Lilly
Message:

Variable assigned in Results section of CCR template

Location:
ccr/trunk/p
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLCCR.m

    r76 r77  
    5151    S DEBUG=0
    5252    S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
     53    I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
    5354    S TGLOBAL=$NA(^TMP("GPLCCR",$J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
    5455    S CCRGLO=$NA(^TMP("GPLCCR",$J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
    … …  
    105106    ;D PUSH^GPLXPATH(TAB,"EXTRACT;GPLMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")")
    106107    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITALS;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
     108    I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
    107109    Q
    108110    ;

  • ccr/trunk/p/GPLCCR0.m

    r72 r77  
    383383 ;;<Results>
    384384 ;;<Result>
    385  ;;<CCRDataObjectID>7d5a02b0-67a4-11db-bd13-0800200c9a66</CCRDataObjectID>
     385 ;;<CCRDataObjectID>@@RESULTOBJECTID@@</CCRDataObjectID>
    386386 ;;<DateTime>
    387387 ;;<Type>
    388388 ;;<Text>Assessment Time</Text>
    389389 ;;</Type>
    390  ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
     390 ;;<ExactDateTime>@@RESULTASSESSMENTDATETIME@@</ExactDateTime>
    391391 ;;</DateTime>
    392392 ;;<Description>
    393  ;;<Text>CBC WO DIFFERENTIAL</Text>
    394  ;;<Code>
    395  ;;<Value>43789009</Value>
    396  ;;<CodingSystem>SNOMED CT</CodingSystem>
     393 ;;<Text>@@RESULTDESCRIPTIONTEXT@@</Text>
     394 ;;<Code>
     395 ;;<Value>@@RESULTCODE@@</Value>
     396 ;;<CodingSystem>@@RESULTCODINGSYSTEM@@</CodingSystem>
    397397 ;;</Code>
    398398 ;;</Description>
    399399 ;;<Status>
    400  ;;<Text>Final Results</Text>
     400 ;;<Text>@@RESULTSTATUS@@</Text>
    401401 ;;</Status>
    402402 ;;<Source>
    403403 ;;<Actor>
    404  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    405  ;;</Actor>
    406  ;;</Source>
    407  ;;<Test_1>
    408  ;;<CCRDataObjectID>107c2dc0-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
     404 ;;<ActorID>@@RESULTSOURCEACTORID@@</ActorID>
     405 ;;</Actor>
     406 ;;</Source>
     407 ;;<TEST_NORMALDESCRIPTION>
     408 ;;<Test>
     409 ;;<CCRDataObjectID>@@RESULTTESTOBJECTID@@</CCRDataObjectID>
    409410 ;;<DateTime>
    410411 ;;<Type>
    411412 ;;<Text>Assessment Time</Text>
    412413 ;;</Type>
    413  ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
     414 ;;<ExactDateTime>@@RESULTTESTDATETIME@@</ExactDateTime>
    414415 ;;</DateTime>
    415416 ;;<Description>
    416  ;;<Text>HGB</Text>
    417  ;;<Code>
    418  ;;<Value>30313-1</Value>
    419  ;;<CodingSystem>LOINC</CodingSystem>
     417 ;;<Text>@@RESULTTESTDESCRIPTIONTEXT@@</Text>
     418 ;;<Code>
     419 ;;<Value>@@RESULTTESTCODE@@</Value>
     420 ;;<CodingSystem>@@RESULTTESTCODINGSYSTEM@@</CodingSystem>
    420421 ;;</Code>
    421422 ;;</Description>
    422423 ;;<Status>
    423  ;;<Text>Final Results</Text>
     424 ;;<Text>@@RESULTTESTSTATUSTEXT@@</Text>
    424425 ;;</Status>
    425426 ;;<Source>
    426427 ;;<Actor>
    427  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
     428 ;;<ActorID>@@RESULTTESTSOURCEACTORID@@</ActorID>
    428429 ;;</Actor>
    429430 ;;</Source>
    430431 ;;<TestResult>
    431  ;;<Value>13.2</Value>
     432 ;;<Value>@@RESULTTESTVALUE@@</Value>
    432433 ;;<Units>
    433  ;;<Unit>g/dl</Unit>
     434 ;;<Unit>@@RESULTTESTUNITS@@</Unit>
    434435 ;;</Units>
    435436 ;;</TestResult>
    … …  
    437438 ;;<Normal>
    438439 ;;<Description>
    439  ;;<Text>M 13-18 g/dl; F 12-16 g/dl</Text>
    440  ;;</Description>
    441  ;;<Source>
    442  ;;<Actor>
    443  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
     440 ;;<Text>@@RESULTTESTNORMALDESCRIPTIONTEXT@@</Text>
     441 ;;</Description>
     442 ;;<Source>
     443 ;;<Actor>
     444 ;;<ActorID>@@RESULTTESTNORMALSOURCEACTORID@@</ActorID>
    444445 ;;</Actor>
    445446 ;;</Source>
    446447 ;;</Normal>
    447448 ;;</NormalResult>
    448  ;;</Test_1>
    449  ;;<Test_2>
    450  ;;<CCRDataObjectID>8b3fa370-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
     449 ;;<Flag>
     450 ;;<Text>@@RESULTTESTFLAG@@</Text>
     451 ;;</Flag>
     452 ;;</Test>
     453 ;;</TEST_NORMALDESCRIPTION>
     454 ;;<TEST_NORMALSEQUENCE>
     455 ;;<Test>
     456 ;;<CCRDataObjectID>@@RESULTTESTOBJECTID@@</CCRDataObjectID>
    451457 ;;<DateTime>
    452458 ;;<Type>
    453459 ;;<Text>Assessment Time</Text>
    454460 ;;</Type>
    455  ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
     461 ;;<ExactDateTime>@@RESULTTESTDATETIME@@</ExactDateTime>
    456462 ;;</DateTime>
    457463 ;;<Description>
    458  ;;<Text>WBC</Text>
    459  ;;<Code>
    460  ;;<Value>33765-9</Value>
    461  ;;<CodingSystem>LOINC</CodingSystem>
     464 ;;<Text>@@RESULTTESTDESCRIPTIONTEXT@@</Text>
     465 ;;<Code>
     466 ;;<Value>@@RESULTTESTVALUE@@</Value>
     467 ;;<CodingSystem>@@RESULTTESTCODINGSYSTEM@@</CodingSystem>
    462468 ;;</Code>
    463469 ;;</Description>
    464470 ;;<Status>
    465  ;;<Text>Final Results</Text>
     471 ;;<Text>@@RESULTTESTSTATUSTEXT@@</Text>
    466472 ;;</Status>
    467473 ;;<Source>
    468474 ;;<Actor>
    469  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
     475 ;;<ActorID>@@RESULTTESTSOURCEACTORID@@</ActorID>
    470476 ;;</Actor>
    471477 ;;</Source>
    472478 ;;<TestResult>
    473  ;;<Value>6.7</Value>
     479 ;;<Value>@@RESULTTESTVALUE@@</Value>
    474480 ;;<Units>
    475  ;;<Unit>10+3/ul</Unit>
     481 ;;<Unit>@@RESULTTESTUNITS@@</Unit>
    476482 ;;</Units>
    477483 ;;</TestResult>
    478484 ;;<NormalResult>
    479485 ;;<Normal>
    480  ;;<Value>4.3</Value>
     486 ;;<Value>@@RESULTTESTNORMALVALUESEQ1@@</Value>
    481487 ;;<Units>
    482  ;;<Unit>10+3/ul</Unit>
     488 ;;<Unit>@@RESULTTESTNORMALUNITSEQ1@@</Unit>
    483489 ;;</Units>
    484490 ;;<ValueSequencePosition>1</ValueSequencePosition>
    485491 ;;<Source>
    486492 ;;<Actor>
    487  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
     493 ;;<ActorID>@@RESULTTESTNORMALSOURCEACTORID@@</ActorID>
    488494 ;;</Actor>
    489495 ;;</Source>
    490496 ;;</Normal>
    491497 ;;<Normal>
    492  ;;<Value>10.8</Value>
     498 ;;<Value>@@RESULTTESTNORMALVALUESEQ2@@</Value>
    493499 ;;<Units>
    494  ;;<Unit>10+3/ul</Unit>
     500 ;;<Unit>@@RESULTTESTNORMALUNITSEQ2@@</Unit>
    495501 ;;</Units>
    496502 ;;<ValueSequencePosition>2</ValueSequencePosition>
    497503 ;;<VariableNomalModifier>
    498  ;;<Text>TO</Text>
     504 ;;<Text>@@RESULTTESTNORMALMODIFIER@@</Text>
    499505 ;;</VariableNomalModifier>
    500506 ;;<Source>
    501507 ;;<Actor>
    502  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    503  ;;</Actor>
    504  ;;</Source>
    505  ;;</Normal>
    506  ;;</NormalResult>
    507  ;;</Test_2>
    508  ;;<Test_3>
    509  ;;<CCRDataObjectID>80a6c740-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
    510  ;;<DateTime>
    511  ;;<Type>
    512  ;;<Text>Assessment Time</Text>
    513  ;;</Type>
    514  ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
    515  ;;</DateTime>
    516  ;;<Description>
    517  ;;<Text>PLT</Text>
    518  ;;<Code>
    519  ;;<Value>123</Value>
    520  ;;<CodingSystem>LOINC</CodingSystem>
    521  ;;</Code>
    522  ;;</Description>
    523  ;;<Status>
    524  ;;<Text>Final Results</Text>
    525  ;;</Status>
    526  ;;<Source>
    527  ;;<Actor>
    528  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    529  ;;</Actor>
    530  ;;</Source>
    531  ;;<TestResult>
    532  ;;<Value>153</Value>
    533  ;;<Units>
    534  ;;<Unit>10+3/ul</Unit>
    535  ;;</Units>
    536  ;;</TestResult>
    537  ;;<NormalResult>
    538  ;;<Normal>
    539  ;;<Value>150</Value>
    540  ;;<Units>
    541  ;;<Unit>10+3/ul</Unit>
    542  ;;</Units>
    543  ;;<ValueSequencePosition>1</ValueSequencePosition>
    544  ;;<Source>
    545  ;;<Actor>
    546  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    547  ;;</Actor>
    548  ;;</Source>
    549  ;;</Normal>
    550  ;;<Normal>
    551  ;;<Value>350</Value>
    552  ;;<Units>
    553  ;;<Unit>10+3/ul</Unit>
    554  ;;</Units>
    555  ;;<ValueSequencePosition>2</ValueSequencePosition>
    556  ;;<VariableNomalModifier>
    557  ;;<Text>TO</Text>
    558  ;;</VariableNomalModifier>
    559  ;;<Source>
    560  ;;<Actor>
    561  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
     508 ;;<ActorID>@@RESULTTESTNORMALSOURCEACTORID@@</ActorID>
    562509 ;;</Actor>
    563510 ;;</Source>
    … …  
    565512 ;;</NormalResult>
    566513 ;;<Flag>
    567  ;;<Text>LOW</Text>
    568  ;;</Flag>
    569  ;;</Test_3>
    570  ;;</Result>
    571  ;;<Result>
    572  ;;<CCRDataObjectID>a40027e0-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
    573  ;;<DateTime>
    574  ;;<Type>
    575  ;;<Text>Assessment Time</Text>
    576  ;;</Type>
    577  ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
    578  ;;</DateTime>
    579  ;;<Description>
    580  ;;<Text>LYTES</Text>
    581  ;;<Code>
    582  ;;<Value>20109005</Value>
    583  ;;<CodingSystem>SNOMED CT</CodingSystem>
    584  ;;</Code>
    585  ;;</Description>
    586  ;;<Status>
    587  ;;<Text>Final Results</Text>
    588  ;;</Status>
    589  ;;<Source>
    590  ;;<Actor>
    591  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    592  ;;</Actor>
    593  ;;</Source>
    594  ;;<Test>
    595  ;;<CCRDataObjectID>a40027e1-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
    596  ;;<DateTime>
    597  ;;<Type>
    598  ;;<Text>Assessment Time</Text>
    599  ;;</Type>
    600  ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
    601  ;;</DateTime>
    602  ;;<Description>
    603  ;;<Text>NA</Text>
    604  ;;<Code>
    605  ;;<Value>2951-2</Value>
    606  ;;<CodingSystem>LOINC</CodingSystem>
    607  ;;</Code>
    608  ;;</Description>
    609  ;;<Status>
    610  ;;<Text>Final Results</Text>
    611  ;;</Status>
    612  ;;<Source>
    613  ;;<Actor>
    614  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    615  ;;</Actor>
    616  ;;</Source>
    617  ;;<TestResult>
    618  ;;<Value>140</Value>
    619  ;;<Units>
    620  ;;<Unit>meq/l</Unit>
    621  ;;</Units>
    622  ;;</TestResult>
    623  ;;<NormalResult>
    624  ;;<Normal>
    625  ;;<Value>135</Value>
    626  ;;<Units>
    627  ;;<Unit>meq/l</Unit>
    628  ;;</Units>
    629  ;;<ValueSequencePosition>1</ValueSequencePosition>
    630  ;;<Source>
    631  ;;<Actor>
    632  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    633  ;;</Actor>
    634  ;;</Source>
    635  ;;</Normal>
    636  ;;<Normal>
    637  ;;<Value>145</Value>
    638  ;;<Units>
    639  ;;<Unit>meq/l</Unit>
    640  ;;</Units>
    641  ;;<ValueSequencePosition>2</ValueSequencePosition>
    642  ;;<VariableNomalModifier>
    643  ;;<Text>TO</Text>
    644  ;;</VariableNomalModifier>
    645  ;;<Source>
    646  ;;<Actor>
    647  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    648  ;;</Actor>
    649  ;;</Source>
    650  ;;</Normal>
    651  ;;</NormalResult>
    652  ;;</Test>
    653  ;;<Test>
    654  ;;<CCRDataObjectID>a40027e2-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
    655  ;;<DateTime>
    656  ;;<Type>
    657  ;;<Text>Assessment Time</Text>
    658  ;;</Type>
    659  ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
    660  ;;</DateTime>
    661  ;;<Description>
    662  ;;<Text>K</Text>
    663  ;;<Code>
    664  ;;<Value>2823-3</Value>
    665  ;;<CodingSystem>LOINC</CodingSystem>
    666  ;;</Code>
    667  ;;</Description>
    668  ;;<Status>
    669  ;;<Text>Final Results</Text>
    670  ;;</Status>
    671  ;;<Source>
    672  ;;<Actor>
    673  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    674  ;;</Actor>
    675  ;;</Source>
    676  ;;<TestResult>
    677  ;;<Value>4.0</Value>
    678  ;;<Units>
    679  ;;<Unit>meq/l</Unit>
    680  ;;</Units>
    681  ;;</TestResult>
    682  ;;<NormalResult>
    683  ;;<Normal>
    684  ;;<Value>3.5</Value>
    685  ;;<Units>
    686  ;;<Unit>meq/l</Unit>
    687  ;;</Units>
    688  ;;<ValueSequencePosition>1</ValueSequencePosition>
    689  ;;<Source>
    690  ;;<Actor>
    691  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    692  ;;</Actor>
    693  ;;</Source>
    694  ;;</Normal>
    695  ;;<Normal>
    696  ;;<Value>5.0</Value>
    697  ;;<Units>
    698  ;;<Unit>meq/l</Unit>
    699  ;;</Units>
    700  ;;<ValueSequencePosition>2</ValueSequencePosition>
    701  ;;<VariableNomalModifier>
    702  ;;<Text>TO</Text>
    703  ;;</VariableNomalModifier>
    704  ;;<Source>
    705  ;;<Actor>
    706  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    707  ;;</Actor>
    708  ;;</Source>
    709  ;;</Normal>
    710  ;;</NormalResult>
    711  ;;</Test>
    712  ;;<Test>
    713  ;;<CCRDataObjectID>a40027e3-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
    714  ;;<DateTime>
    715  ;;<Type>
    716  ;;<Text>Assessment Time</Text>
    717  ;;</Type>
    718  ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
    719  ;;</DateTime>
    720  ;;<Description>
    721  ;;<Text>CL</Text>
    722  ;;<Code>
    723  ;;<Value>2075-0</Value>
    724  ;;<CodingSystem>LOINC</CodingSystem>
    725  ;;</Code>
    726  ;;</Description>
    727  ;;<Status>
    728  ;;<Text>Final Results</Text>
    729  ;;</Status>
    730  ;;<Source>
    731  ;;<Actor>
    732  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    733  ;;</Actor>
    734  ;;</Source>
    735  ;;<TestResult>
    736  ;;<Value>102</Value>
    737  ;;<Units>
    738  ;;<Unit>meq/l</Unit>
    739  ;;</Units>
    740  ;;</TestResult>
    741  ;;<NormalResult>
    742  ;;<Normal>
    743  ;;<Value>98</Value>
    744  ;;<Units>
    745  ;;<Unit>meq/l</Unit>
    746  ;;</Units>
    747  ;;<ValueSequencePosition>1</ValueSequencePosition>
    748  ;;<Source>
    749  ;;<Actor>
    750  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    751  ;;</Actor>
    752  ;;</Source>
    753  ;;</Normal>
    754  ;;<Normal>
    755  ;;<Value>106</Value>
    756  ;;<Units>
    757  ;;<Unit>meq/l</Unit>
    758  ;;</Units>
    759  ;;<ValueSequencePosition>2</ValueSequencePosition>
    760  ;;<VariableNomalModifier>
    761  ;;<Text>TO</Text>
    762  ;;</VariableNomalModifier>
    763  ;;<Source>
    764  ;;<Actor>
    765  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    766  ;;</Actor>
    767  ;;</Source>
    768  ;;</Normal>
    769  ;;</NormalResult>
    770  ;;</Test>
    771  ;;<Test>
    772  ;;<CCRDataObjectID>a40027e4-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
    773  ;;<DateTime>
    774  ;;<Type>
    775  ;;<Text>Assessment Time</Text>
    776  ;;</Type>
    777  ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
    778  ;;</DateTime>
    779  ;;<Description>
    780  ;;<Text>HCO3</Text>
    781  ;;<Code>
    782  ;;<Value>1963-8</Value>
    783  ;;<CodingSystem>LOINC</CodingSystem>
    784  ;;</Code>
    785  ;;</Description>
    786  ;;<Status>
    787  ;;<Text>Final Results</Text>
    788  ;;</Status>
    789  ;;<Source>
    790  ;;<Actor>
    791  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    792  ;;</Actor>
    793  ;;</Source>
    794  ;;<TestResult>
    795  ;;<Value>35</Value>
    796  ;;<Units>
    797  ;;<Unit>meq/l</Unit>
    798  ;;</Units>
    799  ;;</TestResult>
    800  ;;<NormalResult>
    801  ;;<Normal>
    802  ;;<Value>18</Value>
    803  ;;<Units>
    804  ;;<Unit>meq/l</Unit>
    805  ;;</Units>
    806  ;;<ValueSequencePosition>1</ValueSequencePosition>
    807  ;;<Source>
    808  ;;<Actor>
    809  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    810  ;;</Actor>
    811  ;;</Source>
    812  ;;</Normal>
    813  ;;<Normal>
    814  ;;<Value>23</Value>
    815  ;;<Units>
    816  ;;<Unit>meq/l</Unit>
    817  ;;</Units>
    818  ;;<ValueSequencePosition>2</ValueSequencePosition>
    819  ;;<VariableNomalModifier>
    820  ;;<Text>TO</Text>
    821  ;;</VariableNomalModifier>
    822  ;;<Source>
    823  ;;<Actor>
    824  ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
    825  ;;</Actor>
    826  ;;</Source>
    827  ;;</Normal>
    828  ;;</NormalResult>
    829  ;;<Flag>
    830  ;;<Text>HIGH</Text>
     514 ;;<Text>@@RESULTTESTFLAG@@</Text>
    831515 ;;</Flag>
    832516 ;;</Test>
     517 ;;</TEST_NORMALSEQUENCE>
    833518 ;;</Result>
    834519 ;;</Results>

  • ccr/trunk/p/GPLPROBS.m

    r76 r77  
    8181          . . S VMAP=$NA(@TVMAP@(I))
    8282          . . S ZX="<tr><td>" ; BEGIN ROW AND COL
     83          . . S ZX=ZX_@VMAP@("PROBLEMDESCRIPTION")
     84          . . S ZX=ZX_"</td><td>" ; NEXT COL
    8385          . . D PUSH^GPLXPATH("HTMP",ZX) ; ADD TO BUFFER
    84           . . S ZX=@VMAP@("PROBLEMDESCRIPTION")
    85           . . I ZX="" S ZX=" " ; SET TO BLANK SO IT DOESN'T GET TRIMMED
    86           . . D PUSH^GPLXPATH("HTMP",ZX)
    87           . . D PUSH^GPLXPATH("HTMP","</td><td>") ; NEXT COL
    8886          . . S ZX=@VMAP@("PROBLEMDATEOFONSET")
    8987          . . I ZX="" S ZX="Unknown" ; SET TO UNKNOWN
    9088          . . D PUSH^GPLXPATH("HTMP",ZX)
    91           . . D PUSH^GPLXPATH("HTMP","</td><td>") ; NEXT COL
    92           . . D PUSH^GPLXPATH("HTMP","Active") ; WE ONLY DO ACTIVE
    93           . . D PUSH^GPLXPATH("HTMP","</td></tr>") ; END OF COL AND ROW
     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)
    9493          . D PUSH^GPLXPATH("HTMP","</tbody></table></text>") ; END TABLE
    9594          . D INSB4^GPLXPATH(OUTXML,"HTMP") ; INSERT AT TOP OF SECTION
Note: See TracChangeset for help on using the changeset viewer.