Procedure

TTemplate.SetReminderDialog

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Comments

Reminder Dialog IEN

Visibility

Protected

Owner

TTemplate

Declaration

procedure SetReminderDialog(const Value: string);     // Reminder Dialog IEN

Calls Hierarchy


TTemplate.SetReminderDialog
 ├TTemplate.CanModify
 │ ├TTemplate.ValidID
 │ └LockTemplate
 ├TTemplate.ValidID
 ├TTemplate.ReminderDialogIEN
 ├TTemplate.LinkType
 └TTemplate.SetFileLink
   └TTemplate.AssignFileLink
     ├TTemplate.CanModify...
     ├TTemplate.ValidID
     ├TTemplate.LinkType
     ├TTemplate.SetReminderDialog...
     ├TTemplate.GetItems
     │ └ExpandTemplate
     │   ├TTemplate.GetChildren
     │   ├GetTemplateChildren
     │   ├AddTemplate
     │   │ ├TTemplate.Create
     │   │ │ └TTemplate.ReminderDialogIEN
     │   │ └TTemplate.AddChild
     │   │   └TTemplate.GetItems...
     │   └TTemplate.ItemIENs
     │     └TTemplate.GetItems...
     └..(rec)..

Called-By Hierarchy


                           TTemplate.SetReminderDialog
                            TTemplate.AssignFileLink┤ 
                                         ..(rec)..┤ │ 
                             TTemplate.SetFileLink┘ │ 
                                     MarkDeleted┤   │ 
                                     ..(rec)..┤ │   │ 
              TfrmTemplateEditor.sbDeleteClick┤ │   │ 
       TfrmTemplateEditor.mnuNodeDeleteClick┤ │ │   │ 
            TfrmTemplateEditor.tvTreeKeyDown┘ │ │   │ 
                      TfrmTemplateEditor.Clone┘ │   │ 
              TfrmTemplateEditor.btnNewClick┤   │   │ 
                             EditTemplates┤ │   │   │ 
     TfrmDCSumm.popSummMemoTemplateClick┤ │ │   │   │ 
          TfrmDCSumm.mnuNewTemplateClick┤ │ │   │   │ 
        TfrmDCSumm.mnuEditTemplatesClick┤ │ │   │   │ 
  TfrmDCSumm.mnuEditSharedTemplatesClick┤ │ │   │   │ 
    TfrmDCSumm.mnuNewSharedTemplateClick┤ │ │   │   │ 
   TfrmConsults.popNoteMemoTemplateClick┤ │ │   │   │ 
      TfrmConsults.mnuEditTemplatesClick┤ │ │   │   │ 
        TfrmConsults.mnuNewTemplateClick┤ │ │   │   │ 
TfrmConsults.mnuEditSharedTemplatesClick┤ │ │   │   │ 
  TfrmConsults.mnuNewSharedTemplateClick┤ │ │   │   │ 
       TfrmDrawers.mnuEditTemplatesClick┤ │ │   │   │ 
         TfrmDrawers.mnuNewTemplateClick┤ │ │   │   │ 
    TfrmSurgery.popNoteMemoTemplateClick┤ │ │   │   │ 
       TfrmSurgery.mnuEditTemplatesClick┤ │ │   │   │ 
         TfrmSurgery.mnuNewTemplateClick┤ │ │   │   │ 
 TfrmSurgery.mnuEditSharedTemplatesClick┤ │ │   │   │ 
   TfrmSurgery.mnuNewSharedTemplateClick┤ │ │   │   │ 
      TfrmNotes.popNoteMemoTemplateClick┤ │ │   │   │ 
         TfrmNotes.mnuEditTemplatesClick┤ │ │   │   │ 
           TfrmNotes.mnuNewTemplateClick┤ │ │   │   │ 
   TfrmNotes.mnuEditSharedTemplatesClick┤ │ │   │   │ 
     TfrmNotes.mnuNewSharedTemplateClick┘ │ │   │   │ 
        TfrmTemplateEditor.mnuAutoGenClick┤ │   │   │ 
 TfrmTemplateEditor.mnuImportTemplateClick┘ │   │   │ 
         TfrmTemplateEditor.edtNameOldChange┤   │   │ 
       TfrmTemplateEditor.tvTreeNodeEdited┤ │   │   │ 
        TfrmTemplateEditor.mnuAutoGenClick┘ │   │   │ 
            TfrmTemplateEditor.cbActiveClick┤   │   │ 
           TfrmTemplateEditor.cbExcludeClick┤   │   │ 
             TfrmTemplateEditor.edtGapChange┤   │   │ 
            TfrmTemplateEditor.sbMoveUpClick┤   │   │ 
          TfrmTemplateEditor.sbMoveDownClick┤   │   │ 
         TfrmTemplateEditor.sbDeleteClick...┤   │   │ 
           TfrmTemplateEditor.tvTreeDragDrop┤   │   │ 
        TfrmTemplateEditor.sbCopyLeftClick┤ │   │   │ 
       TfrmTemplateEditor.sbCopyRightClick┤ │   │   │ 
      TfrmTemplateEditor.mnuNodePasteClick┘ │   │   │ 
                                   ..(rec)..┤   │   │ 
             TfrmTemplateEditor.reBoilChange┤   │   │ 
            TfrmTemplateEditor.reNotesChange┤   │   │ 
                  TfrmTemplateEditor.cbClick┤   │   │ 
     TfrmTemplateEditor.cbDisplayOnlyClick┤ │   │   │ 
       TfrmTemplateEditor.cbFirstLineClick┤ │   │   │ 
     TfrmTemplateEditor.cbOneItemOnlyClick┤ │   │   │ 
    TfrmTemplateEditor.cbHideDlgItemsClick┤ │   │   │ 
       TfrmTemplateEditor.cbHideItemsClick┤ │   │   │ 
          TfrmTemplateEditor.cbIndentClick┤ │   │   │ 
            TfrmTemplateEditor.cbLockClick┘ │   │   │ 
            TfrmTemplateEditor.cbxTypeChange┤   │   │ 
         TfrmTemplateEditor.cbxRemDlgsChange┘   │   │ 
                           TTemplate.SetRealType┤   │ 
                     TTemplate.SetTemplateType┤ │   │ 
              TfrmTemplateEditor.cbxTypeChange┘ │   │ 
                  TTemplate.SetReminderDialog...┤   │ 
                  TfrmTemplateEditor.cbxLinkExit┘   │ 
                 TfrmTemplateEditor.cbxRemDlgsChange┘ 

Calls

Name Declaration Comments
TTemplate.CanModify function CanModify: boolean; -
TTemplate.LinkType function LinkType: TTemplateLinkType; -
TTemplate.ReminderDialogIEN function ReminderDialogIEN: string; -
TTemplate.SetFileLink procedure SetFileLink(const Value: string); -
TTemplate.ValidID function ValidID: boolean; -

Called-By

Name Declaration Comments
TTemplate.AssignFileLink procedure AssignFileLink(const Value: string; Force: boolean); -
TfrmTemplateEditor.cbxRemDlgsChange procedure cbxRemDlgsChange(Sender: TObject); -


Source

2538  procedure TTemplate.SetReminderDialog(const Value: string);
2539  begin
2540    if(fReminderDialog <> Value) and CanModify then
2541    begin
2542      with FBkup do
2543      begin
2544        if(not SavedReminderDialog) and ValidID then
2545        begin
2546          BReminderDialog := fReminderDialog;
2547          SavedReminderDialog := TRUE;
2548        end;
2549      end;
2550      fReminderDialog := Value;
2551      FIsReminderDialog := (ReminderDialogIEN <> '');
2552      if FIsReminderDialog and (not (LinkType in [ltNone, ltTitle])) then
2553        SetFileLink('');
2554    end;
2555  end;