Function

TfraVisitRelated.GetCheckState

Module

mVisitRelated

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfraVisitRelated

Declaration

function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;

Called-By Hierarchy


           TfraVisitRelated.GetCheckState
            TfraVisitRelated.GetRelated┤ 
   TfrmEncounterFrame.UpdateEncounter┘ │ 
        TfrmEncounterFrame.SendData┤   │ 
TfrmEncounterFrame.FormCloseQuery┘ │   │ 
  TfrmEncounterFrame.FormCloseQuery┘   │ 
            TfraVisitRelated.GetRelated┘ 
             TfrmRemDlg.btnVisitClick┘   

Called-By

Name Declaration Comments
TfraVisitRelated.GetRelated procedure GetRelated(PCEData: TPCEData); overload; -
TfraVisitRelated.GetRelated procedure GetRelated(var ASCRelated, AAORelated, AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload; -


Source

143   function TfraVisitRelated.GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;
144   begin
145     Result := SCC_NA;
146     if CheckYes.Enabled and CheckYes.Checked then Result := SCC_YES;
147     if CheckNo.Enabled and CheckNo.Checked then Result := SCC_NO;
148   end;