Procedure

TfrmODMedIV.cboRouteKeyDown

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure cboRouteKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

Calls Hierarchy


TfrmODMedIV.cboRouteKeyDown
 ├TfrmODMedIV.IsAltCtrl_L_Pressed
 └TfrmODMedIV.txtAllIVRoutesClick
   ├TfrmODMedIV.cboRouteClick
   │ └TfrmODMedIV.CreateOtherRoute
   │   └ShowOtherRoutes
   │     ├TfrmBase508Form.Create
   │     │ ├TfrmBase508Form.UpdateAccessibilityActions
   │     │ ├UnfocusableControlEnter
   │     │ └AdjustControls
   │     │   ├TfrmBase508Form.ModifyUnfocusableControl
   │     │   └..(rec)..
   │     └SetFormPosition
   │       └TSizeHolder.GetSize
   └TfrmODMedIV.cboRouteChange
     ├TfrmODMedIV.cboRouteClick...
     └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...

Calls

Name Declaration Comments
TfrmODMedIV.IsAltCtrl_L_Pressed function IsAltCtrl_L_Pressed(Shift : TShiftState; Key : Word) : Boolean; -
TfrmODMedIV.txtAllIVRoutesClick procedure txtAllIVRoutesClick(Sender: TObject); -


Source

1571  procedure TfrmODMedIV.cboRouteKeyDown(Sender: TObject; var Key: Word;
1572    Shift: TShiftState);
1573  begin
1574    inherited;
1575    if IsAltCtrl_L_Pressed(Shift, Key) then
1576      txtAllIVRoutesClick(txtAllIVRoutes);
1577  end;