Procedure

TfraVisitRelated.InitRelated

Directives

Overload

Module

mVisitRelated

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfraVisitRelated

Declaration

procedure InitRelated(const ASCRelated, AAORelated, AIRRelated,
                            AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload;

Calls Hierarchy


TfraVisitRelated.InitRelated
 └TfraVisitRelated.SetCheckState
   └TfraVisitRelated.chkClick
     ├DisableCheck
     └TfraVisitRelated.SetCheckEnable

Called-By Hierarchy


TfraVisitRelated.InitRelated
  TfrmRemDlg.btnVisitClick┘ 

Calls

Name Declaration Comments
TfraVisitRelated.SetCheckState procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer); -

Called-By

Name Declaration Comments
TfrmRemDlg.btnVisitClick procedure btnVisitClick(Sender: TObject); -


Source

210   procedure TfraVisitRelated.InitRelated(const ASCRelated, AAORelated, AIRRelated,
211     AECRelated, AMSTRelated, AHNCRelated, ACVRelated, ASHDRelated: integer);
212   begin
213     SetCheckState(chkSCYes,  chkSCNo,  ASCRelated);
214     SetCheckState(chkAOYes,  chkAONo,  AAORelated);
215     SetCheckState(chkIRYes,  chkIRNo,  AIRRelated);
216     SetCheckState(chkECYes,  chkECNo,  AECRelated);
217     SetCheckState(chkMSTYes, chkMSTNo, AMSTRelated);
218     SetCheckState(chkHNCYes, chkHNCNo, AHNCRelated);
219     SetCheckState(chkCVYes,  chkCVNo,  ACVRelated);
220     SetCheckState(chkSHDYes, chkSHDNo, ASHDRelated);
221      //HDS00015356: GWOT Default, if Related no specified default to "Yes"
222      // -1=Null, 0=No, 1 = Yes
223     if FSCCond.CVAllow then
224     begin
225       if ACVRelated = SCC_NA then
226          chkCVYes.Checked := True;
227     end;
228   end;