Procedure

TfrmODMeds.cboXDosageEnter

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboXDosageEnter(Sender: TObject);

Calls Hierarchy


TfrmODMeds.cboXDosageEnter
 ├TfrmODMeds.DisableDefaultButton
 │ └..(rec)..
 ├TfrmODMeds.DisableCancelButton
 │ └..(rec)..
 └TfrmODMeds.QuantityMessageCheck
   ├TfrmODMeds.ValueOf
   │ ├GetSingleDoseSchedule
   │ ├GetSingleDoseScheduleEX
   │ ├TfrmODMeds.FieldsForDose
   │ │ └TfrmODMeds.ConstructedDoseFields
   │ ├TfrmODMeds.FieldsForDrug
   │ ├GetComplexDoseSchedule
   │ │ └TfrmODMeds.ValFor
   │ └GetComplexDoseScheduleEX
   │   └TfrmODMeds.ValFor
   ├TfrmODMeds.DispOrderMessage
   ├DispenseMessage
   └QuantityMessage

Calls

Name Declaration Comments
TfrmODMeds.DisableCancelButton function DisableCancelButton(Control: TWinControl): boolean; -
TfrmODMeds.DisableDefaultButton function DisableDefaultButton(Control: TWinControl): boolean; -
TfrmODMeds.QuantityMessageCheck procedure QuantityMessageCheck(Tag: integer) ; -


Source

3642  procedure TfrmODMeds.cboXDosageEnter(Sender: TObject);
3643  begin
3644    inherited;
3645    // if this was the last row, create a new last row
3646    if grdDoses.Row = Pred(grdDoses.RowCount) then grdDoses.RowCount := grdDoses.RowCount + 1;
3647    DisableDefaultButton(self);
3648    DisableCancelButton(self);
3649    QuantityMessageCheck(cboXDosage.Tag);
3650  end;