Procedure

TfrmOptions.btnCoverRemindersClick

Module

fOptions

Last Modified

7/15/2014 3:26:40 PM

Comments

Display Clinical Reminder Options

Visibility

Public/Published

Owner

TfrmOptions

Declaration

procedure btnCoverRemindersClick(Sender: TObject);

Calls Hierarchy


TfrmOptions.btnCoverRemindersClick
 ├TfrmOptions.Offset
 └DialogOptionsReminders
   ├NewRemCoverSheetListActive
   ├EditCoverSheetReminderList
   │ ├TfrmBase508Form.Create
   │ │ ├TfrmBase508Form.UpdateAccessibilityActions
   │ │ ├UnfocusableControlEnter
   │ │ └AdjustControls
   │ │   ├TfrmBase508Form.ModifyUnfocusableControl
   │ │   └..(rec)..
   │ ├TfrmRemCoverSheet.Init
   │ │ ├GetAllRemindersAndCategories
   │ │ ├TfrmRemCoverSheet.GetUserInfo
   │ │ │ └UserDivClassInfo
   │ │ ├GetPCECodes
   │ │ │ ├LoadHistLocations
   │ │ │ └CodeSetIndex
   │ │ │   ├LoadImmSeriesItems
   │ │ │   ├LoadImmReactionItems
   │ │ │   ├LoadSkResultsItems
   │ │ │   ├LoadPEDLevelItems
   │ │ │   ├LoadHFLevelItems
   │ │ │   └LoadXAMResultsItems
   │ │ ├TfrmRemCoverSheet.GetExternalName
   │ │ │ └GetNameFromList
   │ │ │   └ExternalName
   │ │ ├TfrmRemCoverSheet.UpdateView
   │ │ │ └TfrmRemCoverSheet.GetCurrent
   │ │ │   └TfrmRemCoverSheet.GetCoverSheetLvlData
   │ │ │     └GetCoverSheetLevelData
   │ │ └TfrmRemCoverSheet.UpdateButtons
   │ │   ├TfrmRemCoverSheet.GetCurrent...
   │ │   ├TfrmRemCoverSheet.GetIndex
   │ │   └TfrmRemCoverSheet.LockButtonUpdate
   │ │     ├TfrmRemCoverSheet.btnLockClick
   │ │     │ └TfrmRemCoverSheet.ChangeStatus
   │ │     │   ├TfrmRemCoverSheet.GetCurrent...
   │ │     │   ├TfrmRemCoverSheet.GetIndex
   │ │     │   ├TfrmRemCoverSheet.MarkListAsChanged
   │ │     │   │ └TfrmRemCoverSheet.UpdateView...
   │ │     │   ├TfrmRemCoverSheet.SetupItem
   │ │     │   └TfrmRemCoverSheet.LockButtonUpdate...
   │ │     └TfrmRemCoverSheet.btnAddClick
   │ │       └TfrmRemCoverSheet.ChangeStatus...
   │ └ResetReminderLoad
   │   └LoadReminderData
   │     ├BeginReminderUpdate
   │     ├GetCurrentReminders
   │     ├CheckReminders
   │     │ ├EvaluateReminders
   │     │ └ReminderEvaluated
   │     ├GetOtherReminders
   │     └EndReminderUpdate
   └TfrmBase508Form.Create...

Calls

Name Declaration Comments
DialogOptionsReminders procedure DialogOptionsReminders(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); -
TfrmOptions.Offset procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer); -


Source

300   procedure TfrmOptions.btnCoverRemindersClick(Sender: TObject);
301   // display Clinical Reminder Options
302   var
303     topsize, leftsize, value: integer;
304   begin
305     value := 0;
306     Offset(topsize, -60, leftsize, -60);
307     DialogOptionsReminders(topsize, leftsize, Font.Size, value);
308   end;