Procedure

TfrmODMeds.FormKeyDown

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

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

Calls Hierarchy


TfrmODMeds.FormKeyDown
 └TfrmODMeds.tabDoseChange
   ├TfrmODMeds.ValFor
   ├TfrmODMeds.ShowControlsSimple
   ├TfrmODMeds.ResetOnTabChange
   │ ├TResponses.Clear
   │ └TfrmODMeds.lblAdminSchSetText
   ├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.lblAdminSchGetText
   ├TfrmODMeds.ShowControlsComplex
   │ ├TfrmODMeds.lblAdminSchSetText
   │ ├MoveCombo
   │ └TfrmODMeds.pnlFieldsResize
   │   └TfrmODMeds.ShowEditor
   │     ├TfrmODMeds.ValFor
   │     ├SynchCombo
   │     ├PlaceControl
   │     └TfrmODMeds.UpdateDurationControls
   └TfrmODMeds.UpdateStartExpires
     ├TfrmODMeds.ValFor
     ├TfrmODMeds.lblAdminSchSetText
     ├TfrmODMeds.lblAdminSchGetText
     ├LoadAdminInfo
     ├FMToday
     │ └FMNow
     └TfrmODMeds.DisplayDoseNow

Calls

Name Declaration Comments
TfrmODMeds.tabDoseChange procedure tabDoseChange(Sender: TObject); -


Source

5167  procedure TfrmODMeds.FormKeyDown(Sender: TObject; var Key: Word;
5168    Shift: TShiftState);
5169  begin
5170    inherited;
5171    if (Key = VK_TAB) and (ssCtrl in Shift) and (ActiveControl <> grdDoses) then
5172    begin
5173      //Back-tab works the same as forward-tab because there are only two tabs.
5174      tabDose.TabIndex := (tabDose.TabIndex + 1) mod tabDose.Tabs.Count;
5175      Key := 0;
5176      tabDoseChange(tabDose);
5177    end;
5178  end;