Procedure

TfrmODMeds.cboDosageClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboDosageClick(Sender: TObject);

Calls Hierarchy


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

Called-By Hierarchy


  TfrmODMeds.cboDosageClick
TfrmODMeds.cboDosageKeyUp┘ 

Calls

Name Declaration Comments
TfrmODMeds.CheckFormAltDose procedure CheckFormAltDose(DispDrug: Integer); -
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.cboDosageKeyUp procedure cboDosageKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

2454  procedure TfrmODMeds.cboDosageClick(Sender: TObject);
2455  var
2456    DispDrug: Integer;
2457    x: string;
2458  begin
2459    inherited;
2460    if FSuppressMsg then
2461    begin
2462       if PnlMessage.Visible = true then
2463       begin
2464         memMessage.SendToBack;
2465         PnlMessage.Visible := False;
2466       end;
2467    end;
2468    UpdateRelated(False);
2469    DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID), 0);
2470    if DispDrug > 0 then
2471    begin
2472      if not FSuppressMsg then
2473      begin
2474          DispOrderMessage(DispenseMessage(DispDrug));
2475      end;
2476      x := QuantityMessage(DispDrug);
2477    end
2478    else x := '';
2479    if Length(ValueOf(FLD_QTYDISP))>10 then
2480    begin
2481      lblQuantity.Caption := Copy(ValueOf(FLD_QTYDISP),0,7) + '...';
2482      lblQuantity.Hint := ValueOf(FLD_QTYDISP);
2483    end else
2484    begin
2485      lblQuantity.Caption := ValueOf(FLD_QTYDISP);
2486      lblQuantity.Hint := '';
2487    end;
2488    if Length(x) > 0
2489      then lblQtyMsg.Caption := TX_QTY_PRE + x + TX_QTY_POST
2490      else lblQtyMsg.Caption := '';
2491    with cboDosage do
2492      if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 3) = 'NF')
2493        then CheckFormAltDose(DispDrug);
2494  end;