Procedure

TfrmODMedIV.cboRouteChange

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure cboRouteChange(Sender: TObject);

Calls Hierarchy


TfrmODMedIV.cboRouteChange
 ├TfrmODMedIV.cboRouteClick
 │ └TfrmODMedIV.CreateOtherRoute
 │   └ShowOtherRoutes
 │     ├TfrmBase508Form.Create
 │     │ ├TfrmBase508Form.UpdateAccessibilityActions
 │     │ ├UnfocusableControlEnter
 │     │ └AdjustControls
 │     │   ├TfrmBase508Form.ModifyUnfocusableControl
 │     │   └..(rec)..
 │     └SetFormPosition
 │       └TSizeHolder.GetSize
 └TfrmODMedIV.ControlChange
   ├TfrmODMedIV.loadExpectFirstDose
   │ ├TfrmODMedIV.DisplayDoseNow
   │ ├LoadAdminInfo
   │ └FMToday
   │   └FMNow
   ├TResponses.FindResponseByName
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├IsNumericRate
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Called-By Hierarchy


       TfrmODMedIV.cboRouteChange
TfrmODMedIV.txtAllIVRoutesClick┘ 
  TfrmODMedIV.cboRouteKeyDown┘   

Calls

Name Declaration Comments
TfrmODMedIV.cboRouteClick procedure cboRouteClick(Sender: TObject); -
TfrmODMedIV.ControlChange procedure ControlChange(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmODMedIV.txtAllIVRoutesClick procedure txtAllIVRoutesClick(Sender: TObject); -


Source

1518  procedure TfrmODMedIV.cboRouteChange(Sender: TObject);
1519  begin
1520    inherited;
1521    if cboRoute.ItemIndex = cboRoute.Items.IndexOf('OTHER') then cboRouteClick(cboRoute);
1522    ControlChange(sender);
1523  end;