Procedure

TfrmODMedNVA.UpdateRelated

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMedNVA

Declaration

procedure UpdateRelated(DelayUpdate: Boolean = TRUE);

Calls Hierarchy


TfrmODMedNVA.UpdateRelated
 └TfrmODMedNVA.timCheckChangesTimer
   ├TfrmODMedNVA.ControlChange
   │ ├TResponses.Clear
   │ ├TResponses.Update
   │ │ ├TResponses.FindResponseByName
   │ │ └TResponses.IENForPrompt
   │ ├TfrmODMedNVA.FindCommonDrug
   │ │ ├TfrmODMedNVA.FindDoseFields
   │ │ ├SaveDrug
   │ │ └KillDrug
   │ ├TfrmODMedNVA.ConstructedDoseFields
   │ ├TfrmODMedNVA.ValueOf
   │ │ ├GetSchedule
   │ │ └GetScheduleEX
   │ ├TfrmODMedNVA.OutpatientSig
   │ │ ├TfrmODMedNVA.ValueOf...
   │ │ └TfrmODMedNVA.CheckDecimal
   │ └TResponses.GetOrderText
   │   ├TResponses.NextInstance
   │   ├TResponses.FindResponseByName
   │   ├TResponses.FormatResponse
   │   │ └TResponses.FindResponseByIEN
   │   └TResponses.AppendChildren
   │     ├TResponses.FindPromptByIEN
   │     ├TResponses.FindResponseByIEN
   │     └TResponses.FormatResponse...
   ├TResponses.NextInstance
   ├TfrmODMedNVA.ValueOfResponse
   │ └TResponses.IValueFor
   ├TfrmODMedNVA.ValueOf...
   └TfrmODMedNVA.UpdateStartExpires
     ├LoadAdminInfo
     └FMToday
       └FMNow

Called-By Hierarchy


      TfrmODMedNVA.UpdateRelated
      TfrmODMedNVA.SetupDialog┤ 
   TfrmODMedNVA.btnSelectClick┤ 
   TfrmODMedNVA.UMDelayClick┘ │ 
   TfrmODMedNVA.cboDosageClick┤ 
  TfrmODMedNVA.cboDosageExit┘ │ 
  TfrmODMedNVA.cboDosageChange┤ 
 TfrmODMedNVA.cboScheduleClick┤ 
TfrmODMedNVA.cboScheduleChange┤ 
     TfrmODMedNVA.grdDosesExit┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmODMedNVA.btnSelectClick procedure btnSelectClick(Sender: TObject); -
TfrmODMedNVA.cboDosageChange procedure cboDosageChange(Sender: TObject); -
TfrmODMedNVA.cboDosageClick procedure cboDosageClick(Sender: TObject); -
TfrmODMedNVA.cboScheduleChange procedure cboScheduleChange(Sender: TObject); -
TfrmODMedNVA.cboScheduleClick procedure cboScheduleClick(Sender: TObject); -
TfrmODMedNVA.grdDosesExit procedure grdDosesExit(Sender: TObject); -
TfrmODMedNVA.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

1927  procedure TfrmODMedNVA.UpdateRelated(DelayUpdate: Boolean = TRUE);
1928  begin
1929    timCheckChanges.Enabled := False;               // turn off timer
1930    if DelayUpdate
1931      then timCheckChanges.Enabled := True          // restart timer
1932      else timCheckChangesTimer(Self);              // otherwise call directly
1933  end;