Function

GetPCECodeString

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Scope

Global

Declaration

function GetPCECodeString(CodeType: integer; ID: string): string;

Calls Hierarchy


GetPCECodeString
 └CodeSetIndex
   ├LoadImmSeriesItems
   ├LoadImmReactionItems
   ├LoadSkResultsItems
   ├LoadPEDLevelItems
   ├LoadHFLevelItems
   └LoadXAMResultsItems

Called-By Hierarchy


    GetPCECodeString
 TPCEExams.ItemStr┤ 
  TPCESkin.ItemStr┤ 
TPCEHealth.ItemStr┤ 
   TPCEImm.ItemStr┤ 
   TPCEPat.ItemStr┘ 

Calls

Name Declaration Comments
CodeSetIndex function CodeSetIndex(CodeType: integer): integer; -

Called-By

Name Declaration Comments
TPCEExams.ItemStr function ItemStr: string; override; -
TPCESkin.ItemStr function ItemStr: string; override; -
TPCEHealth.ItemStr function ItemStr: string; override; -
TPCEImm.ItemStr function ItemStr: string; override; -
TPCEPat.ItemStr function ItemStr: string; override; -


Source

645   function GetPCECodeString(CodeType: integer; ID: string): string;
646   var
647     idx: integer;
648   
649   begin
650     Result := '';
651     if(CodeType <> TAG_HISTLOC) then
652     begin
653       if(not assigned(PCESetsOfCodes)) then
654         PCESetsOfCodes := TStringList.Create;
655       idx := CodeSetIndex(CodeType);
656       if(idx >= 0) then
657       begin
658         inc(idx);
659         while((idx < PCESetsOfCodes.Count) and
660               (copy(PCESetsOfCodes[idx],1,SOCHeaderLen) <> SetOfCodesHeader)) do
661         begin
662           if(Piece(PCESetsOfCodes[idx], U, 1) = ID) then
663           begin
664             Result := Piece(PCESetsOfCodes[idx], U, 2);
665             break;
666           end;
667           inc(idx);
668         end;
669       end;
670     end;
671   end;