Procedure

TfrmEncVitals.cboHeightExit

Module

fEncVitals

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmEncVitals

Declaration

procedure cboHeightExit(Sender: TObject);

Calls Hierarchy


TfrmEncVitals.cboHeightExit
 ├TfrmPCEBase.ActiveCtrl
 ├VitalInvalid
 │ ├VerifyVital
 │ ├IsNumericWeight
 │ └VitalErrorText
 ├TfrmEncVitals.GetVitHTRate
 │ └ConvertHeight2Inches
 └TfrmEncVitals.ChangeFocus

Calls

Name Declaration Comments
TfrmPCEBase.ActiveCtrl function ActiveCtrl: TWinControl; -
TfrmEncVitals.ChangeFocus procedure ChangeFocus(Control: TWinControl); -
TfrmEncVitals.GetVitHTRate function GetVitHTRate: String; -
VitalInvalid function VitalInvalid(VitalControl: TControl; UnitsControl: TControl = nil; OverrideValue: string = NoVitalOverrideValue): boolean; -


Source

363   procedure TfrmEncVitals.cboHeightExit(Sender: TObject);
364   begin
365     inherited;
366     if(ActiveCtrl <> txtMeasHt) then
367     begin
368       if VitalInvalid(txtMeasHt, cboHeight, GetVitHTRate) then
369         ChangeFocus(txtMeasHt);
370     end;
371   end;