Procedure

TfrmODMeds.grdDosesExit

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure grdDosesExit(Sender: TObject);

Calls Hierarchy


TfrmODMeds.grdDosesExit
 ├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

3466  procedure TfrmODMeds.grdDosesExit(Sender: TObject);
3467  begin
3468    inherited;
3469    UpdateRelated(FALSE);
3470    RestoreDefaultButton;
3471    RestoreCancelButton;
3472  end;