Function

TPCEDiag.ItemStr

Directives

Override

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

Function delimitedStrC: string;
function TPCEDiag.DelimitedStrC: string;
{created delimited string for internal use - keep comment in same string.}
begin
  Result := inherited DelimitedStr;
  Result := 'POV' + Result + U + BOOLCHAR[Primary] + U + IntToStr(Provider)+
  U + BOOLCHAR[AddProb] + U + U + U + comment;
end;


returns string to be assigned to Tlist in PCEData object

Visibility

Public

Overrides

TPCEItem.ItemStr

Owner

TPCEDiag

Declaration

function ItemStr: string; override;

Calls Hierarchy


TPCEDiag.ItemStr
 └GetDiagnosisText

Calls

Name Declaration Comments
GetDiagnosisText function GetDiagnosisText(Narrative: String; Code: String): String; -


Source

1589  function TPCEDiag.ItemStr: string;
1590  {returns string to be assigned to Tlist in PCEData object}
1591  begin
1592    if Primary then
1593      Result := 'Primary'
1594    else
1595      Result := 'Secondary';
1596  // This may change in the future if we add a check box to the grid    
1597    if(AddProb) then
1598      Result := 'Add' + U + Result
1599    else
1600      Result := U + Result;
1601  
1602    Result := Result + U + GetDiagnosisText((inherited ItemStr), Code);
1603  end;