Procedure

TfrmDrawers.mnuPreviewTemplateClick

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDrawers

Declaration

procedure mnuPreviewTemplateClick(Sender: TObject);

Calls Hierarchy


TfrmDrawers.mnuPreviewTemplateClick
 ├TdmodShared.TemplateOK
 │ ├TdmodShared.BoilerplateOK
 │ │ ├ErrCount
 │ │ ├AddErr
 │ │ └TdmodShared.LoadTIUObjects
 │ │   └GetObjectList
 │ └BoilerplateTemplateFieldsOK
 │   └ListTemplateFields
 │     └GetTemplateField
 │       ├LoadTemplateFieldByIEN
 │       ├LoadTemplateField
 │       └TTemplateField.Create
 │         ├TemplateFieldCode2Field
 │         └TemplateDateCode2DateType
 ├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


   TfrmDrawers.mnuPreviewTemplateClick
  TfrmDCSumm.popSummMemoPreviewClick┤ 
TfrmConsults.popNoteMemoPreviewClick┤ 
 TfrmSurgery.popNoteMemoPreviewClick┤ 
   TfrmNotes.popNoteMemoPreviewClick┘ 

Calls

Name Declaration Comments
TTemplate.GetDialogAborted function GetDialogAborted: boolean; -
TTemplate.GetText function GetText: string; -
ShowTemplateData procedure ShowTemplateData(Form: TForm; const Title, Text: string); -
TdmodShared.TemplateOK function TemplateOK(tmpl: TTemplate; Msg: string = ''): boolean; -

Called-By

Name Declaration Comments
TfrmConsults.popNoteMemoPreviewClick procedure popNoteMemoPreviewClick(Sender: TObject); -
TfrmSurgery.popNoteMemoPreviewClick procedure popNoteMemoPreviewClick(Sender: TObject); -
TfrmNotes.popNoteMemoPreviewClick procedure popNoteMemoPreviewClick(Sender: TObject); -
TfrmDCSumm.popSummMemoPreviewClick procedure popSummMemoPreviewClick(Sender: TObject); -


Source

942   procedure TfrmDrawers.mnuPreviewTemplateClick(Sender: TObject);
943   var
944     tmpl: TTemplate;
945     txt: String;
946   
947   begin
948     if(assigned(tvTemplates.Selected)) then
949     begin
950       if(dmodShared.TemplateOK(tvTemplates.Selected.Data,'template preview')) then
951       begin
952         tmpl := TTemplate(tvTemplates.Selected.Data);
953         tmpl.TemplatePreviewMode := TRUE; // Prevents "Are you sure?" dialog when canceling
954         txt := tmpl.Text;
955         if(not tmpl.DialogAborted) then
956           ShowTemplateData(Self, tmpl.PrintName, txt);
957       end;
958     end;
959   end;