Procedure

TfrmODMeds.cboDosageKeyUp

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

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

Calls Hierarchy


TfrmODMeds.cboDosageKeyUp
 ├TfrmODMeds.cboDosageClick
 │ ├TfrmODMeds.UpdateRelated
 │ │ └TfrmODMeds.timCheckChangesTimer
 │ │   ├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...
 │ │   ├TResponses.NextInstance
 │ │   ├TfrmODMeds.ValueOfResponse
 │ │   │ └TResponses.IValueFor
 │ │   ├TfrmODMeds.ValueOf...
 │ │   ├TfrmODMeds.UpdateStartExpires
 │ │   │ ├TfrmODMeds.ValFor
 │ │   │ ├TfrmODMeds.lblAdminSchSetText
 │ │   │ ├TfrmODMeds.lblAdminSchGetText
 │ │   │ ├LoadAdminInfo
 │ │   │ ├FMToday
 │ │   │ │ └FMNow
 │ │   │ └TfrmODMeds.DisplayDoseNow
 │ │   ├IsClozapineOrder
 │ │   ├TfrmODMeds.UpdateDefaultSupply
 │ │   │ ├TResponses.IValueFor
 │ │   │ ├IsClozapineOrder
 │ │   │ ├DefaultDays
 │ │   │ └DaysToQty
 │ │   ├TfrmODMeds.UpdateSupplyQuantity
 │ │   │ ├TfrmODMeds.DurationToDays
 │ │   │ │ └TfrmODMeds.ValFor
 │ │   │ ├DaysToQty
 │ │   │ └QtyToDays
 │ │   └TfrmODMeds.UpdateRefills
 │ │     └CalcMaxRefills
 │ ├TfrmODMeds.ValueOf...
 │ ├TfrmODMeds.DispOrderMessage
 │ ├DispenseMessage
 │ ├QuantityMessage
 │ └TfrmODMeds.CheckFormAltDose
 │   ├CheckFormularyDose
 │   │ ├LoadFormularyAltDose
 │   │ └TfrmBase508Form.Create
 │   │   ├TfrmBase508Form.UpdateAccessibilityActions
 │   │   ├UnfocusableControlEnter
 │   │   └AdjustControls
 │   │     ├TfrmBase508Form.ModifyUnfocusableControl
 │   │     └..(rec)..
 │   ├TfrmODMeds.ResetOnMedChange
 │   │ └TResponses.Clear
 │   └TfrmODMeds.SetOnMedSelect
 │     ├GetPKISite
 │     ├TCtrlInits.LoadOrderItem
 │     │ ├TCtrlInits.ClearOI
 │     │ └TCtrlInits.ExtractInits
 │     │   └TCtrlInit.Create
 │     ├OIForMed
 │     ├TCtrlInits.SetControl
 │     │ ├ClearControl
 │     │ └TCtrlInits.FindInitByName
 │     ├TfrmODMeds.cboRouteChange
 │     │ └TfrmODMeds.ControlChange...
 │     ├TCtrlInits.DefaultText
 │     │ └TCtrlInits.FindInitByName
 │     ├TResponses.FindResponseByName
 │     ├TfrmODMeds.SetSchedule
 │     ├TfrmODMeds.ValueOf...
 │     ├TCtrlInits.TextOf
 │     │ └TCtrlInits.FindInitByName
 │     ├TfrmODMeds.lblAdminSchSetText
 │     ├TfrmODMeds.SetPickup
 │     └TfrmODMeds.DispOrderMessage
 └TfrmODMeds.UpdateRelated...

Calls

Name Declaration Comments
TfrmODMeds.cboDosageClick procedure cboDosageClick(Sender: TObject); -
TfrmODMeds.UpdateRelated procedure UpdateRelated(DelayUpdate: Boolean = TRUE); -


Source

5672  procedure TfrmODMeds.cboDosageKeyUp(Sender: TObject; var Key: Word;
5673    Shift: TShiftState);
5674  begin
5675    inherited;
5676    if (Key = VK_BACK) and (cboDosage.Text = '') then cboDosage.ItemIndex := -1;
5677    //Fix for CQ: 7545
5678    if cboDosage.ItemIndex > -1 then
5679      cboDosageClick(Sender)
5680    else
5681      UpdateRelated;
5682  end;