Procedure

TPCEProviderList.Merge

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TPCEProviderList

Declaration

procedure Merge(AList: TPCEProviderList);

Calls Hierarchy


TPCEProviderList.Merge
 ├TPCEProviderList.IndexOfProvider
 └TPCEProviderList.Add
   ├TPCEProviderList.GetPrimaryIdx
   ├TPCEProviderList.IndexOfProvider
   └TPCEProviderList.SetPrimaryIdx
     ├TPCEProviderList.GetPrimaryIdx
     └TPCEProviderList.SetPrimary

Called-By Hierarchy


                 TPCEProviderList.Merge
   TfrmEncounterFrame.UpdateEncounter┘ 
        TfrmEncounterFrame.SendData┤   
TfrmEncounterFrame.FormCloseQuery┘ │   
  TfrmEncounterFrame.FormCloseQuery┘   

Calls

Name Declaration Comments
TPCEProviderList.Add function Add(const S: string): Integer; override; -
TPCEProviderList.IndexOfProvider function IndexOfProvider(AIEN: string): integer; -

Called-By

Name Declaration Comments
TfrmEncounterFrame.UpdateEncounter procedure UpdateEncounter(PCE: TPCEData); -


Source

3408  procedure TPCEProviderList.Merge(AList: TPCEProviderList);
3409  var
3410    i, idx: integer;
3411    tmp: string;
3412  
3413  begin
3414    for i := 0 to Count-1 do
3415    begin
3416      tmp := Strings[i];
3417      idx := AList.IndexOfProvider(Piece(tmp, U, pnumPrvdrIEN));
3418      if(idx < 0) then
3419      begin
3420        SetPiece(tmp, U, 1, 'PRV-');
3421        Strings[i] := tmp;
3422      end;
3423    end;
3424    for i := 0 to AList.Count-1 do
3425      Add(AList.Strings[i]); // Add already filters out duplicates
3426  end;