Procedure

TfrmODMedNVA.grdDosesExit

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedNVA

Declaration

procedure grdDosesExit(Sender: TObject);

Calls Hierarchy


TfrmODMedNVA.grdDosesExit
 ├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
 ├TfrmODMedNVA.RestoreDefaultButton
 └TfrmODMedNVA.RestoreCancelButton

Calls

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


Source

1756  procedure TfrmODMedNVA.grdDosesExit(Sender: TObject);
1757  begin
1758    inherited;
1759    UpdateRelated(FALSE);
1760    RestoreDefaultButton;
1761    RestoreCancelButton;
1762  end;