Procedure

TfraVisitRelated.GetRelated

Directives

Overload

Module

mVisitRelated

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfraVisitRelated

Declaration

procedure GetRelated(PCEData: TPCEData); overload;

Calls Hierarchy


TfraVisitRelated.GetRelated
 ├TPCEData.SetSCRelated
 ├TfraVisitRelated.GetCheckState
 ├TPCEData.SetAORelated
 ├TPCEData.SetIRRelated
 ├TPCEData.SetECRelated
 ├TPCEData.SetMSTRelated
 ├TPCEData.SetHNCRelated
 ├TPCEData.SetCVRelated
 └TPCEData.SetSHADRelated

Called-By Hierarchy


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

Calls

Name Declaration Comments
TfraVisitRelated.GetCheckState function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer; -
TPCEData.SetAORelated procedure SetAORelated(Value: Integer); -
TPCEData.SetCVRelated procedure SetCVRelated(Value: Integer); -
TPCEData.SetECRelated procedure SetECRelated(Value: Integer); -
TPCEData.SetHNCRelated procedure SetHNCRelated(Value: Integer); -
TPCEData.SetIRRelated procedure SetIRRelated(Value: Integer); -
TPCEData.SetMSTRelated procedure SetMSTRelated(Value: Integer); -
TPCEData.SetSCRelated procedure SetSCRelated(Value: Integer); -
TPCEData.SetSHADRelated procedure SetSHADRelated(Value: Integer); -

Called-By

Name Declaration Comments
TfrmEncounterFrame.UpdateEncounter procedure UpdateEncounter(PCE: TPCEData); -


Source

150   procedure TfraVisitRelated.GetRelated(PCEData: TPCEData);
151   begin
152     PCEData.SCRelated  := GetCheckState(chkSCYes,  chkSCNo);
153     PCEData.AORelated  := GetCheckState(chkAOYes,  chkAONo);
154     PCEData.IRRelated  := GetCheckState(chkIRYes,  chkIRNo);
155     PCEData.ECRelated  := GetCheckState(chkECYes,  chkECNo);
156     PCEData.MSTRelated := GetCheckState(chkMSTYes, chkMSTNo);
157     PCEData.HNCRelated := GetCheckState(chkHNCYes, chkHNCNo);
158     PCEData.CVRelated  := GetCheckState(chkCVYes,  chkCVNo);
159     PCEData.SHADRelated := GetCheckState(chkSHDYes, chkSHDNo);
160   end;