Procedure

TfrmTemplateEditor.mnuBPTryClick

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure mnuBPTryClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.mnuBPTryClick
 ├TfrmTemplateEditor.mnuBPErrorCheckClick
 │ ├TdmodShared.TemplateOK
 │ │ ├TdmodShared.BoilerplateOK
 │ │ │ ├ErrCount
 │ │ │ ├AddErr
 │ │ │ └TdmodShared.LoadTIUObjects
 │ │ │   └GetObjectList
 │ │ └BoilerplateTemplateFieldsOK
 │ │   └ListTemplateFields
 │ │     └GetTemplateField
 │ │       ├LoadTemplateFieldByIEN
 │ │       ├LoadTemplateField
 │ │       └TTemplateField.Create
 │ │         ├TemplateFieldCode2Field
 │ │         └TemplateDateCode2DateType
 │ └TestBoilerplate
 ├TTemplate.GetText
 │ ├TTemplate.IsDialog
 │ ├TTemplate.FullBoilerplate
 │ │ ├TTemplate.GetBoilerplate
 │ │ │ └GetTemplateBoilerplate
 │ │ ├TTemplate.ItemBoilerplate
 │ │ │ ├TTemplate.GetItems
 │ │ │ │ └ExpandTemplate
 │ │ │ │   ├TTemplate.GetChildren
 │ │ │ │   ├GetTemplateChildren
 │ │ │ │   ├AddTemplate
 │ │ │ │   │ ├TTemplate.Create
 │ │ │ │   │ │ └TTemplate.ReminderDialogIEN
 │ │ │ │   │ └TTemplate.AddChild
 │ │ │ │   │   └TTemplate.GetItems...
 │ │ │ │   └TTemplate.ItemIENs
 │ │ │ │     └TTemplate.GetItems...
 │ │ │ ├TTemplate.GetTemplateType
 │ │ │ ├DlgText
 │ │ │ └TTemplate.DialogProperties
 │ │ │   ├TTemplate.GetBoilerplate...
 │ │ │   └TTemplate.DlgID
 │ │ ├DlgText
 │ │ └TTemplate.DialogProperties...
 │ ├SetTemplateBPHasObjects
 │ ├GetTemplateText
 │ │ └TEncounter.GetVisitStr
 │ │   └TEncounter.GetVisitCategory
 │ └DoTemplateDialog
 │   ├SetTemplateDialogCanceled
 │   ├TfrmBase508Form.Create
 │   │ ├TfrmBase508Form.UpdateAccessibilityActions
 │   │ ├UnfocusableControlEnter
 │   │ └AdjustControls
 │   │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   │   └..(rec)..
 │   ├AssignFieldIDs
 │   │ └AssignFieldIDs
 │   │   └GetNewFieldID
 │   ├CountDlgProps
 │   │ └IncDlgID
 │   ├TfrmTemplateDialog.BuildAllControls
 │   │ └TfrmTemplateDialog.BuildCB
 │   │   ├TfrmTemplateDialog.FindObjectByID
 │   │   │ └TfrmTemplateDialog.GetObjectID
 │   │   ├GetDialogEntry
 │   │   │ └TTemplateDialogEntry.Create
 │   │   │   ├TDlgFieldPanel.Create
 │   │   │   ├GetTemplateField...
 │   │   │   ├TTemplateField.GetRequired
 │   │   │   └TTemplateField.CreateDialogControls
 │   │   │     ├TCPRSDialogFieldEdit.Create
 │   │   │     │ └TCPRSDialogComponent.Create
 │   │   │     ├TTemplateField.GetRequired
 │   │   │     ├ht
 │   │   │     ├wdth
 │   │   │     ├TTemplateField.Width
 │   │   │     │ └StripEmbedded
 │   │   │     ├TTemplateDialogEntry.DoChange
 │   │   │     ├TCPRSDialogComboBox.Create
 │   │   │     │ └TCPRSDialogComponent.Create
 │   │   │     ├StripEmbedded
 │   │   │     ├TfraTemplateFieldButton.Create
 │   │   │     │ ├TfraTemplateFieldButton.ButtonKeyDown
 │   │   │     │ │ └TfraTemplateFieldButton.pnlBtnMouseDown
 │   │   │     │ │   ├TfraTemplateFieldButton.GetButtonText
 │   │   │     │ │   └TfraTemplateFieldButton.SetButtonText
 │   │   │     │ ├TfraTemplateFieldButton.ButtonKeyUp
 │   │   │     │ │ └TfraTemplateFieldButton.pnlBtnMouseUp
 │   │   │     │ └TCPRSDialogComponent.Create
 │   │   │     ├TfraTemplateFieldButton.SetButtonText
 │   │   │     ├TCPRSDialogCheckBox.Create
 │   │   │     │ └TCPRSDialogComponent.Create
 │   │   │     ├UpdateIndents
 │   │   │     │ └wdth
 │   │   │     ├StrToFMDateTime
 │   │   │     ├TCPRSDialogDateCombo.Create
 │   │   │     │ └TCPRSDialogComponent.Create
 │   │   │     ├TCPRSDialogDateBox.Create
 │   │   │     │ └TCPRSDialogComponent.Create
 │   │   │     ├TCPRSDialogNumber.CreatePanel
 │   │   │     │ └TCPRSDialogComponent.Create
 │   │   │     ├TTemplateDialogEntry.UpDownChange
 │   │   │     │ ├EnsureText
 │   │   │     │ └TTemplateDialogEntry.DoChange
 │   │   │     ├TCPRSDialogHyperlinkLabel.Create
 │   │   │     │ ├TCPRSDialogComponent.Create
 │   │   │     │ └TCPRSDialogHyperlinkLabel.KeyPressed
 │   │   │     │   └TCPRSDialogHyperlinkLabel.Clicked
 │   │   │     │     └GotoWebPage
 │   │   │     ├TCPRSDialogHyperlinkLabel.Init
 │   │   │     │ └TCPRSDialogHyperlinkLabel.Clicked...
 │   │   │     └TCPRSDialogRichEdit.Create
 │   │   │       └TCPRSDialogComponent.Create
 │   │   ├TTemplateDialogEntry.SetAutoDestroyOnPanelFree
 │   │   │ └PanelDestroy
 │   │   ├TfrmTemplateDialog.EntryDestroyed
 │   │   ├TTemplateDialogEntry.GetPanel
 │   │   │ ├Init
 │   │   │ │ ├TTemplateDialogEntry.KillLabels
 │   │   │ │ └ScreenReaderSystem_CurrentCheckBox
 │   │   │ │   └ScreenReaderSystem_Stop
 │   │   │ │     ├UpdateCheckBox
 │   │   │ │     ├UpdatePending
 │   │   │ │     └ScreenReaderSystem_Clear
 │   │   │ ├Text508Work
 │   │   │ │ ├TTemplateDialogEntry.StripCode
 │   │   │ │ ├ScreenReaderSystem_Stop...
 │   │   │ │ ├StripSRCode
 │   │   │ │ └ScreenReaderSystem_Continue
 │   │   │ ├TTemplateDialogEntry.StripCode
 │   │   │ ├NextLine
 │   │   │ ├DoLabel
 │   │   │ │ ├Add2TabOrder
 │   │   │ │ ├ScreenReaderSystem_CurrentLabel
 │   │   │ │ │ └ScreenReaderSystem_Stop...
 │   │   │ │ └ScreenReaderSystem_AddText
 │   │   │ ├Ctrl508Work
 │   │   │ │ ├ScreenReaderSystem_CurrentLabel...
 │   │   │ │ ├ScreenReaderSystem_AddText
 │   │   │ │ ├ScreenReaderSystem_Stop...
 │   │   │ │ ├Add2TabOrder
 │   │   │ │ └ScreenReaderSystem_CurrentComponent
 │   │   │ │   ├UpdateCheckBox
 │   │   │ │   ├UpdatePending
 │   │   │ │   └ScreenReaderSystem_Stop...
 │   │   │ ├TTemplateDialogEntry.SetFieldValues
 │   │   │ │ └TTemplateDialogEntry.SetControlText
 │   │   │ │   └TfraTemplateFieldButton.SetButtonText
 │   │   │ └ScreenReaderSystem_Stop...
 │   │   ├TTemplateDialogEntry.GetText
 │   │   │ └ResolveTemplateFields
 │   │   │   ├TTemplateDialogEntry.GetControlText
 │   │   │   │ ├GetTemplateField...
 │   │   │   │ ├GetOriginalItem
 │   │   │   │ │ ├GetTemplateField...
 │   │   │   │ │ └StripEmbedded
 │   │   │   │ └TfraTemplateFieldButton.GetButtonText
 │   │   │   ├GetTemplateField...
 │   │   │   ├AddNewTxt
 │   │   │   └WordWrapText
 │   │   │     └WrappedText
 │   │   ├TfrmTemplateDialog.FieldChanged
 │   │   │ └TTemplateDialogEntry.GetText...
 │   │   ├TfrmTemplateDialog.ParentCBEnter
 │   │   ├TfrmTemplateDialog.ParentCBExit
 │   │   ├TfrmTemplateDialog.ItemChecked
 │   │   └NextTabCtrl
 │   ├GetText
 │   │ └ResolveTemplateFields...
 │   ├TimedOut
 │   └CheckBoilerplate4Fields
 │     ├HasTemplateField
 │     ├BoilerplateTemplateFieldsOK...
 │     ├DoTemplateDialog...
 │     └StripScreenReaderCodes
 │       └StripScreenReaderCodes
 ├TTemplate.GetDialogAborted
 └ShowTemplateData
   ├TfrmBase508Form.Create...
   ├TfrmTemplateView.AlignButtons
   └CheckBoilerplate4Fields...

Called-By Hierarchy


  TfrmTemplateEditor.mnuBPTryClick
TfrmTemplateEditor.tvTreeKeyDown┘ 

Calls

Name Declaration Comments
TTemplate.GetDialogAborted function GetDialogAborted: boolean; -
TTemplate.GetText function GetText: string; -
TfrmTemplateEditor.mnuBPErrorCheckClick procedure mnuBPErrorCheckClick(Sender: TObject); -
ShowTemplateData procedure ShowTemplateData(Form: TForm; const Title, Text: string); -

Called-By

Name Declaration Comments
TfrmTemplateEditor.tvTreeKeyDown procedure tvTreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

3216  procedure TfrmTemplateEditor.mnuBPTryClick(Sender: TObject);
3217  var
3218    R: TRect;
3219    Move: boolean;
3220    tmpl: TTemplate;
3221    txt: string;
3222  
3223  begin
3224    mnuBPErrorCheckClick(nil);
3225    if (FBPOK) or (reBoil.Lines.Count = 0) then
3226    begin
3227      Move := assigned(frmTemplateView);
3228      if (Move) then
3229      begin
3230        R := frmTemplateView.BoundsRect;
3231        frmTemplateView.Free;
3232        frmTemplateView := nil;
3233      end;
3234      tmpl := TTemplate(FCurTree.Selected.Data);
3235      tmpl.TemplatePreviewMode := TRUE; // Prevents "Are you sure?" dialog when canceling
3236      txt := tmpl.Text;
3237      if (not tmpl.DialogAborted) then
3238        ShowTemplateData(Self, tmpl.PrintName, txt);
3239      if (Move) then
3240        frmTemplateView.BoundsRect := R;
3241      tmpl.TemplatePreviewMode := FALSE;
3242    end;
3243  end;