Procedure

TfrmODMeds.pnlXScheduleExit

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure pnlXScheduleExit(Sender: TObject);

Calls Hierarchy


TfrmODMeds.pnlXScheduleExit
 ├TfrmODMeds.cboXScheduleClick
 │ ├TfrmODMeds.UpdateStartExpires
 │ │ ├TfrmODMeds.ValFor
 │ │ ├TfrmODMeds.lblAdminSchSetText
 │ │ ├TfrmODMeds.lblAdminSchGetText
 │ │ ├LoadAdminInfo
 │ │ ├FMToday
 │ │ │ └FMNow
 │ │ └TfrmODMeds.DisplayDoseNow
 │ └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...
 │     ├IsClozapineOrder
 │     ├TfrmODMeds.UpdateDefaultSupply
 │     │ ├TResponses.IValueFor
 │     │ ├IsClozapineOrder
 │     │ ├DefaultDays
 │     │ └DaysToQty
 │     ├TfrmODMeds.UpdateSupplyQuantity
 │     │ ├TfrmODMeds.DurationToDays
 │     │ │ └TfrmODMeds.ValFor
 │     │ ├DaysToQty
 │     │ └QtyToDays
 │     └TfrmODMeds.UpdateRefills
 │       └CalcMaxRefills
 ├TfrmODMeds.UpdateRelated...
 ├TfrmODMeds.RestoreDefaultButton
 └TfrmODMeds.RestoreCancelButton

Calls

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


Source

3881  procedure TfrmODMeds.pnlXScheduleExit(Sender: TObject);
3882  begin
3883    inherited;
3884    if Not FShowPnlXScheduleOk then   //Added for CQ: 7370
3885      Exit;
3886    cboXScheduleClick(Self);
3887    pnlXSchedule.Tag := -1;
3888    pnlXSchedule.Hide;
3889    UpdateRelated;
3890    RestoreDefaultButton;
3891    RestoreCancelButton;
3892    if (pnlMessage.Visible) and (memMessage.TabStop) then
3893    begin
3894      pnlMessage.Parent := grdDoses.Parent;
3895      pnlMessage.TabOrder := grdDoses.TabOrder;
3896      ActiveControl := memMessage;
3897    end
3898    else if grdDoses.Showing then
3899      ActiveControl := grdDoses
3900    else
3901      ActiveControl := cboDosage;
3902    //AGP Start Expired commented out the line
3903    //updateStartExpires(valFor(COL_SCHEDULE,self.grdDoses.Row));
3904  end;