Procedure

EditCoverSheetReminderList

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Declaration

procedure EditCoverSheetReminderList(AsUser: boolean);

Calls Hierarchy


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

Called-By Hierarchy


            EditCoverSheetReminderList
 TfrmReminderTree.mnuCoverSheetClick┤ 
              DialogOptionsReminders┘ 
TfrmOptions.btnCoverRemindersClick┘   

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
TfrmRemCoverSheet.Init procedure Init(AsUser: boolean); -
ResetReminderLoad procedure ResetReminderLoad; -

Called-By

Name Declaration Comments
DialogOptionsReminders procedure DialogOptionsReminders(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); -
TfrmReminderTree.mnuCoverSheetClick procedure mnuCoverSheetClick(Sender: TObject); -


Source

267   procedure EditCoverSheetReminderList(AsUser: boolean);
268   var
269     frmRemCoverSheet: TfrmRemCoverSheet;
270   
271   begin
272     frmRemCoverSheet := TfrmRemCoverSheet.Create(Application);
273     try
274       frmRemCoverSheet.Init(AsUser);
275       frmRemCoverSheet.ShowModal;
276       if frmRemCoverSheet.FDataSaved then
277         ResetReminderLoad;
278     finally
279       frmRemCoverSheet.Free;
280     end;
281   end;