Function

TPCEItem.MatchProvider

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

Function MatchProvider(AnItem: TPCEItem):Boolean;
function TPCEItem.MatchProvider(AnItem: TPCEItem): Boolean;
begin
  Result := False;
  if (Provider = AnItem.Provider) then Result := True;
end;

Visibility

Public

Owner

TPCEItem

Declaration

function MatchProvider(AnItem: TPCEItem):Boolean;

Called-By Hierarchy


                     TPCEItem.MatchProvider
                       TPCEData.MatchItem┤ 
                  TPCEData.SetDiagnoses┤ │ 
                                  Add┤ │ │ 
          TfrmRemDlg.btnFinishClick┘ │ │ │ 
   TfrmEncounterFrame.UpdateEncounter┘ │ │ 
        TfrmEncounterFrame.SendData┤   │ │ 
TfrmEncounterFrame.FormCloseQuery┘ │   │ │ 
  TfrmEncounterFrame.FormCloseQuery┘   │ │ 
                 TPCEData.SetProcedures┤ │ 
                               Add...┤ │ │ 
TfrmEncounterFrame.UpdateEncounter...┘ │ │ 
              TPCEData.SetImmunizations┤ │ 
                               Add...┤ │ │ 
TfrmEncounterFrame.UpdateEncounter...┘ │ │ 
                  TPCEData.SetSkinTests┤ │ 
                               Add...┤ │ │ 
TfrmEncounterFrame.UpdateEncounter...┘ │ │ 
                 TPCEData.SetPatientEds┤ │ 
                               Add...┤ │ │ 
TfrmEncounterFrame.UpdateEncounter...┘ │ │ 
              TPCEData.SetHealthFactors┤ │ 
                               Add...┤ │ │ 
TfrmEncounterFrame.UpdateEncounter...┘ │ │ 
                      TPCEData.SetExams┘ │ 
                               Add...┤   │ 
TfrmEncounterFrame.UpdateEncounter...┘   │ 
                   TPCEData.MarkDeletions┘ 
               TPCEData.SetDiagnoses...┤   
              TPCEData.SetProcedures...┤   
           TPCEData.SetImmunizations...┤   
               TPCEData.SetSkinTests...┤   
              TPCEData.SetPatientEds...┤   
           TPCEData.SetHealthFactors...┤   
                   TPCEData.SetExams...┘   

Called-By

Name Declaration Comments
TPCEData.MarkDeletions procedure MarkDeletions(PreList: TList; PostList: TStrings); -
TPCEData.MatchItem function MatchItem(AList: TList; AnItem: TPCEItem): Integer; -


Source

2864  function TPCEItem.MatchProvider(AnItem: TPCEItem): Boolean;
2865  begin
2866    Result := False;
2867    if (Provider = AnItem.Provider) then Result := True;
2868  end;