Procedure

TfrmSurgery.popNoteMemoPreviewClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure popNoteMemoPreviewClick(Sender: TObject);

Calls Hierarchy


TfrmSurgery.popNoteMemoPreviewClick
 └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...

Calls

Name Declaration Comments
TfrmDrawers.mnuPreviewTemplateClick procedure mnuPreviewTemplateClick(Sender: TObject); -


Source

2666  procedure TfrmSurgery.popNoteMemoPreviewClick(Sender: TObject);
2667  begin
2668    frmDrawers.mnuPreviewTemplateClick(Sender);
2669  end;