Function

TPCEImm.ItemStr

Directives

Override

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

Function delimitedStrC: string;
returns string to be assigned to Tlist in PCEData object

Visibility

Public

Overrides

TPCEItem.ItemStr

Owner

TPCEImm

Declaration

function ItemStr: string; override;

Calls Hierarchy


TPCEImm.ItemStr
 └GetPCECodeString
   └CodeSetIndex
     ├LoadImmSeriesItems
     ├LoadImmReactionItems
     ├LoadSkResultsItems
     ├LoadPEDLevelItems
     ├LoadHFLevelItems
     └LoadXAMResultsItems

Calls

Name Declaration Comments
GetPCECodeString function GetPCECodeString(CodeType: integer; ID: string): string; -


Source

1287  function TPCEImm.ItemStr: string;
1288  {returns string to be assigned to Tlist in PCEData object}
1289  begin
1290    if(Series <> NoPCEValue) then
1291      Result := GetPCECodeString(TAG_IMMSERIES, Series)
1292    else
1293      Result := '';
1294    Result := Result + U;
1295    if(Reaction <> NoPCEValue) then
1296      Result := Result + GetPCECodeString(TAG_IMMREACTION, Reaction);
1297    Result := Result + U;
1298    if(Contraindicated) then
1299      Result := Result + 'X';
1300    Result := Result + U + inherited ItemStr;
1301  end;