Procedure

TfrmODMeds.UpdateRelated

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMeds

Declaration

procedure UpdateRelated(DelayUpdate: Boolean = TRUE);

Calls Hierarchy


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

Called-By Hierarchy


       TfrmODMeds.UpdateRelated
       TfrmODMeds.SetupDialog┤ 
    TfrmODMeds.btnSelectClick┤ 
    TfrmODMeds.UMDelayClick┘ │ 
    TfrmODMeds.cboDosageClick┤ 
  TfrmODMeds.cboDosageKeyUp┘ │ 
   TfrmODMeds.cboDosageChange┤ 
     TfrmODMeds.cboDosageExit┤ 
  TfrmODMeds.cboScheduleClick┤ 
  TfrmODMeds.cmdAcceptClick┤ │ 
     TfrmODMeds.chkPRNClick┤ │ 
     TfrmODMeds.txtNSSClick┤ │ 
TfrmODMeds.cboScheduleEnter┤ │ 
TfrmODMeds.UMShowNSSBuilder┘ │ 
 TfrmODMeds.cboScheduleChange┤ 
   TfrmODMeds.txtSupplyChange┤ 
 TfrmODMeds.txtQuantityChange┤ 
      TfrmODMeds.grdDosesExit┤ 
  TfrmODMeds.cboXDosageChange┤ 
   TfrmODMeds.cboXDosageClick┤ 
  TfrmODMeds.cboXDosageExit┤ │ 
 TfrmODMeds.cboXDosageKeyUp┘ │ 
    TfrmODMeds.cboXDosageExit┤ 
TfrmODMeds.cboXScheduleChange┤ 
     TfrmODMeds.txtNSSClick┘ │ 
 TfrmODMeds.cboXScheduleClick┤ 
    TfrmODMeds.chkXPRNClick┤ │ 
TfrmODMeds.pnlXScheduleExit┘ │ 
  TfrmODMeds.pnlXScheduleExit┤ 
TfrmODMeds.txtXDurationChange┤ 
TfrmODMeds.popDurationClick┘ │ 
  TfrmODMeds.pnlXDurationExit┤ 
       TfrmODMeds.chkPRNClick┤ 
   TfrmODMeds.cboScheduleExit┤ 
    TfrmODMeds.cboDosageKeyUp┤ 
   TfrmODMeds.cboXDosageKeyUp┘ 

Calls

Name Declaration Comments
TfrmODMeds.timCheckChangesTimer procedure timCheckChangesTimer(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmODMeds.btnSelectClick procedure btnSelectClick(Sender: TObject); -
TfrmODMeds.cboDosageChange procedure cboDosageChange(Sender: TObject); -
TfrmODMeds.cboDosageClick procedure cboDosageClick(Sender: TObject); -
TfrmODMeds.cboDosageExit procedure cboDosageExit(Sender: TObject); -
TfrmODMeds.cboDosageKeyUp procedure cboDosageKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); -
TfrmODMeds.cboScheduleChange procedure cboScheduleChange(Sender: TObject); -
TfrmODMeds.cboScheduleClick procedure cboScheduleClick(Sender: TObject); -
TfrmODMeds.cboScheduleExit procedure cboScheduleExit(Sender: TObject); -
TfrmODMeds.cboXDosageChange procedure cboXDosageChange(Sender: TObject); -
TfrmODMeds.cboXDosageClick procedure cboXDosageClick(Sender: TObject); -
TfrmODMeds.cboXDosageExit procedure cboXDosageExit(Sender: TObject); -
TfrmODMeds.cboXDosageKeyUp procedure cboXDosageKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); -
TfrmODMeds.cboXScheduleChange procedure cboXScheduleChange(Sender: TObject); -
TfrmODMeds.cboXScheduleClick procedure cboXScheduleClick(Sender: TObject); -
TfrmODMeds.chkPRNClick procedure chkPRNClick(Sender: TObject); -
TfrmODMeds.grdDosesExit procedure grdDosesExit(Sender: TObject); -
TfrmODMeds.pnlXDurationExit procedure pnlXDurationExit(Sender: TObject); -
TfrmODMeds.pnlXScheduleExit procedure pnlXScheduleExit(Sender: TObject); -
TfrmODMeds.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODMeds.txtQuantityChange procedure txtQuantityChange(Sender: TObject); -
TfrmODMeds.txtSupplyChange procedure txtSupplyChange(Sender: TObject); -
TfrmODMeds.txtXDurationChange procedure txtXDurationChange(Sender: TObject); -


Source

4692  procedure TfrmODMeds.UpdateRelated(DelayUpdate: Boolean = TRUE);
4693  begin
4694    timCheckChanges.Enabled := False;               // turn off timer
4695    if DelayUpdate
4696      then timCheckChanges.Enabled := True          // restart timer
4697      else timCheckChangesTimer(Self);              // otherwise call directly
4698  end;