Procedure

TfrmODMeds.pnlXDurationExit

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure pnlXDurationExit(Sender: TObject);

Calls Hierarchy


TfrmODMeds.pnlXDurationExit
 ├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.RestoreDefaultButton
 └TfrmODMeds.RestoreCancelButton

Calls

Name Declaration Comments
TfrmODMeds.RestoreCancelButton procedure RestoreCancelButton; -
TfrmODMeds.RestoreDefaultButton procedure RestoreDefaultButton; -
TfrmODMeds.UpdateRelated procedure UpdateRelated(DelayUpdate: Boolean = TRUE); -


Source

3994  procedure TfrmODMeds.pnlXDurationExit(Sender: TObject);
3995  begin
3996    inherited;
3997    pnlXDuration.Tag := -1;
3998    pnlXDuration.Hide;
3999    UpdateRelated;
4000    RestoreDefaultButton;
4001    RestoreCancelButton;
4002    if (pnlMessage.Visible) and (memMessage.TabStop) then
4003    begin
4004      pnlMessage.Parent := grdDoses.Parent;
4005      pnlMessage.TabOrder := grdDoses.TabOrder;
4006      ActiveControl := memMessage;
4007    end
4008    else if grdDoses.Showing then
4009      ActiveControl := grdDoses
4010    else
4011      ActiveControl := cboDosage;
4012  end;