Procedure

TfrmODMeds.cboXRouteExit

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboXRouteExit(Sender: TObject);

Calls Hierarchy


TfrmODMeds.cboXRouteExit
 ├TfrmODMeds.cboXRouteClick
 │ └TfrmODMeds.ControlChange
 │   ├TResponses.Clear
 │   ├TResponses.Update
 │   │ ├TResponses.FindResponseByName
 │   │ └TResponses.IENForPrompt
 │   ├TfrmODMeds.FindCommonDrug
 │   │ ├TfrmODMeds.FindDoseFields
 │   │ ├SaveDrug
 │   │ └KillDrug
 │   ├TfrmODMeds.ConstructedDoseFields
 │   ├TfrmODMeds.ValueOf
 │   │ ├GetSingleDoseSchedule
 │   │ ├GetSingleDoseScheduleEX
 │   │ ├TfrmODMeds.FieldsForDose
 │   │ │ └TfrmODMeds.ConstructedDoseFields
 │   │ ├TfrmODMeds.FieldsForDrug
 │   │ ├GetComplexDoseSchedule
 │   │ │ └TfrmODMeds.ValFor
 │   │ └GetComplexDoseScheduleEX
 │   │   └TfrmODMeds.ValFor
 │   ├TfrmODMeds.lblAdminSchGetText
 │   ├TfrmODMeds.ValFor
 │   ├TfrmODMeds.InpatientSig
 │   │ ├TfrmODMeds.ValueOf...
 │   │ └TfrmODMeds.CheckDecimal
 │   │   └TfrmODMeds.TextDosage
 │   ├TfrmODMeds.OutpatientSig
 │   │ ├TfrmODMeds.ValueOf...
 │   │ └TfrmODMeds.CheckDecimal...
 │   └TResponses.GetOrderText
 │     ├TResponses.NextInstance
 │     ├TResponses.FindResponseByName
 │     ├TResponses.FormatResponse
 │     │ └TResponses.FindResponseByIEN
 │     └TResponses.AppendChildren
 │       ├TResponses.FindPromptByIEN
 │       ├TResponses.FindResponseByIEN
 │       └TResponses.FormatResponse...
 ├TfrmODMeds.RestoreDefaultButton
 └TfrmODMeds.RestoreCancelButton

Calls

Name Declaration Comments
TfrmODMeds.cboXRouteClick procedure cboXRouteClick(Sender: TObject); -
TfrmODMeds.RestoreCancelButton procedure RestoreCancelButton; -
TfrmODMeds.RestoreDefaultButton procedure RestoreDefaultButton; -


Source

3777  procedure TfrmODMeds.cboXRouteExit(Sender: TObject);
3778  begin
3779    inherited;
3780    //Removed based on Site feeback. See CQ: 7518
3781  {  if Not ValidateRoute(cboXRoute) then
3782      Exit; }
3783    if Trim(cboXRoute.Text) = '' then
3784    begin
3785      cboXRoute.ItemIndex := -1;
3786      Exit;
3787    end;  
3788    cboXRouteClick(Self);
3789    cboXRoute.Tag := -1;
3790    cboXRoute.Hide;
3791    RestoreDefaultButton;
3792    RestoreCancelButton;
3793    if (pnlMessage.Visible) and (memMessage.TabStop) then
3794    begin
3795      pnlMessage.Parent := grdDoses.Parent;
3796      pnlMessage.TabOrder := grdDoses.TabOrder;
3797      ActiveControl := memMessage;
3798    end
3799    else if grdDoses.Showing then
3800      ActiveControl := grdDoses
3801    else
3802      ActiveControl := cboDosage;
3803  end;