Procedure

TfrmODMeds.cboXDosageClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboXDosageClick(Sender: TObject);

Calls Hierarchy


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

Called-By Hierarchy


  TfrmODMeds.cboXDosageClick
 TfrmODMeds.cboXDosageExit┤ 
TfrmODMeds.cboXDosageKeyUp┘ 

Calls

Name Declaration Comments
DispenseMessage function DispenseMessage(AnIEN: Integer): string; -
TfrmODMeds.DispOrderMessage procedure DispOrderMessage(const AMessage: string); -
QuantityMessage function QuantityMessage(AnIEN: Integer): string; -
TfrmODMeds.UpdateRelated procedure UpdateRelated(DelayUpdate: Boolean = TRUE); -
TfrmODMeds.ValueOf function ValueOf(FieldID: Integer; ARow: Integer = -1): string; -

Called-By

Name Declaration Comments
TfrmODMeds.cboXDosageExit procedure cboXDosageExit(Sender: TObject); -
TfrmODMeds.cboXDosageKeyUp procedure cboXDosageKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

3673  procedure TfrmODMeds.cboXDosageClick(Sender: TObject);
3674  var
3675    DispDrug: Integer;
3676    x: string;
3677  begin
3678    inherited;
3679    if FSuppressMsg then
3680    begin
3681       if PnlMessage.Visible = true then
3682       begin
3683         memMessage.SendToBack;
3684         PnlMessage.Visible := False;
3685       end;
3686    end;
3687  
3688    with cboXDosage do if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text;
3689    grdDoses.Cells[COL_DOSAGE, cboXDosage.Tag] := x;
3690    UpdateRelated(FALSE);
3691    DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID, cboXDosage.Tag), 0);
3692    if DispDrug > 0 then
3693    begin
3694      if not FSuppressMsg then
3695      begin
3696        DispOrderMessage(DispenseMessage(DispDrug));
3697        FSuppressMsg  := False;
3698      end;
3699      x := QuantityMessage(DispDrug);
3700    end
3701    else x := '';
3702    if Length(x) > 0
3703      then lblQtyMsg.Caption := TX_QTY_PRE + x + TX_QTY_POST
3704      else lblQtyMsg.Caption := '';
3705  end;