Function

TPCEItem.Match

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

Checks for match of Code, Category. and Item

Visibility

Public

Owner

TPCEItem

Declaration

function Match(AnItem: TPCEItem): Boolean;

Called-By Hierarchy


                             TPCEItem.Match
                       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...┘ │ 
                    TPCEData.SetVisitType┘ 
  TfrmEncounterFrame.UpdateEncounter...┘   

Called-By

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


Source

978   function TPCEItem.Match(AnItem: TPCEItem): Boolean;
979   {checks for match of Code, Category. and Item}
980   begin
981     Result := False;
982     if (Code = AnItem.Code) and (Category = AnItem.Category) and (Narrative = AnItem.Narrative)
983       then Result := True;
984   end;