Procedure

TfrmODMeds.popDurationClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure popDurationClick(Sender: TObject);

Calls Hierarchy


TfrmODMeds.popDurationClick
 ├TfrmODMeds.UpdateDurationControls
 ├TfrmODMeds.txtXDurationChange
 │ ├TfrmODMeds.UpdateDurationControls
 │ ├TfrmODMeds.ValFor
 │ ├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.UpdateRelated
 │   └TfrmODMeds.timCheckChangesTimer
 │     ├TfrmODMeds.ControlChange...
 │     ├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.ControlChange...

Calls

Name Declaration Comments
TfrmODMeds.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMeds.txtXDurationChange procedure txtXDurationChange(Sender: TObject); -
TfrmODMeds.UpdateDurationControls procedure UpdateDurationControls( FreeText: boolean); -


Source

2662  procedure TfrmODMeds.popDurationClick(Sender: TObject);
2663  var
2664    x: string;
2665  begin
2666    inherited;
2667    with TMenuItem(Sender) do
2668    begin
2669      if Tag > 0 then
2670      begin
2671        x := LowerCase(Caption);
2672        //Make sure duration is integer
2673        txtXDuration.Text := IntToStr(StrToIntDef(txtXDuration.Text,0));
2674        UpdateDurationControls(False);
2675      end
2676      else begin
2677        x := '';
2678        txtXDuration.Text := '';
2679        UpdateDurationControls(True);
2680      end;
2681    end;
2682    btnXDuration.Caption := x;
2683    txtXDurationChange(Sender);
2684    ControlChange(Sender);
2685  end;