Procedure

TPCEData.SetSHADRelated

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TPCEData

Declaration

procedure SetSHADRelated(Value: Integer);

Called-By Hierarchy


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

Called-By

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


Source

2680  procedure TPCEData.SetSHADRelated(Value: Integer);
2681  begin
2682    if (Value <> FSHADRelated) then
2683    begin
2684      FSHADRelated := Value;
2685      FSCChanged   := True;
2686    end;
2687  end;