Procedure

TPCEData.SetAORelated

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TPCEData

Declaration

procedure SetAORelated(Value: Integer);

Called-By Hierarchy


                    TPCEData.SetAORelated
            TfraVisitRelated.GetRelated┘ 
   TfrmEncounterFrame.UpdateEncounter┘   
        TfrmEncounterFrame.SendData┤     
TfrmEncounterFrame.FormCloseQuery┘ │     
  TfrmEncounterFrame.FormCloseQuery┘     

Called-By

Name Declaration Comments
TfraVisitRelated.GetRelated procedure GetRelated(PCEData: TPCEData); overload; -


Source

2625  procedure TPCEData.SetAORelated(Value: Integer);
2626  begin
2627    if Value <> FAORelated then
2628    begin
2629      FAORelated := Value;
2630      FSCChanged := True;
2631    end;
2632  end;