Procedure

TPCEData.SetIRRelated

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TPCEData

Declaration

procedure SetIRRelated(Value: Integer);

Called-By Hierarchy


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

Called-By

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


Source

2634  procedure TPCEData.SetIRRelated(Value: Integer);
2635  begin
2636    if Value <> FIRRelated then
2637    begin
2638      FIRRelated := Value;
2639      FSCChanged := True;
2640    end;
2641  end;