Procedure

TfrmODMeds.cboXDosageKeyUp

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

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

Calls Hierarchy


TfrmODMeds.cboXDosageKeyUp
 ├TfrmODMeds.cboXDosageClick
 │ ├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.UpdateRelated...

Calls

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


Source

5692  procedure TfrmODMeds.cboXDosageKeyUp(Sender: TObject; var Key: Word;
5693    Shift: TShiftState);
5694  begin
5695    inherited;
5696    if (Key = VK_BACK) and (cboXDosage.Text = '') then cboXDosage.itemindex := -1;
5697    //Fix for CQ: 7545
5698    if cboXDosage.ItemIndex > -1 then
5699      cboXDosageClick(Sender)
5700    else
5701      begin
5702        grdDoses.Cells[COL_DOSAGE, cboXDosage.Tag] := cboXDosage.Text;
5703        UpdateRelated;
5704      end;
5705  end;