Procedure

TfrmNotes.mnuActChangeClick

Module

fNotes

Last Modified

7/15/2014 3:26:38 PM

Comments

Right panel (editor) events --------------------------------------------------------------

Visibility

Public/Published

Owner

TfrmNotes

Declaration

procedure mnuActChangeClick(Sender: TObject);

Calls Hierarchy


TfrmNotes.mnuActChangeClick
 └TfrmNotes.cmdChangeClick
   ├ExecuteNoteProperties
   │ ├TfrmBase508Form.Create
   │ │ ├TfrmBase508Form.UpdateAccessibilityActions
   │ │ ├UnfocusableControlEnter
   │ │ └AdjustControls
   │ │   ├TfrmBase508Form.ModifyUnfocusableControl
   │ │   └..(rec)..
   │ ├FMToday
   │ │ └FMNow
   │ ├ListClinProcTitlesShort
   │ │ └LoadClinProcTitles
   │ │   ├IdentifyClinProcClass
   │ │   └TClinProcTitles.Create
   │ ├ListConsultTitlesShort
   │ │ └LoadConsultTitles
   │ │   ├IdentifyConsultsClass
   │ │   └TConsultTitles.Create
   │ ├ListSurgeryTitlesShort
   │ │ └LoadSurgeryTitles
   │ │   └TSurgeryTitles.Create
   │ ├GetUnresolvedConsultsInfo
   │ ├ListNoteTitlesShort
   │ │ └LoadNoteTitles
   │ │   └TNoteTitles.Create
   │ ├TfrmNoteProperties.ShowClinProcFields
   │ ├TfrmNoteProperties.SetCosignerRequired
   │ │ ├AskCosignerForDocument
   │ │ │ └TIUPatch175Installed
   │ │ │   └ServerHasPatch
   │ │ ├AskCosignerForTitle
   │ │ │ └TIUPatch175Installed...
   │ │ └DefaultCosigner
   │ │   └LoadTIUPrefs
   │ │     └ExternalName
   │ ├TfrmNoteProperties.SetGenericFormSize
   │ ├TfrmNoteProperties.ShowRequestList
   │ │ └ListConsultRequests
   │ ├TfrmNoteProperties.ShowSurgCaseList
   │ │ └ListSurgeryCases
   │ ├TfrmNoteProperties.ShowPRFList
   │ │ ├TPRFActions.Create
   │ │ ├TPRFActions.Load
   │ │ └TPRFActions.ShowActionsOnList
   │ │   └TPRFActions.SelActionHasNote
   │ ├IsConsultTitle
   │ ├IsSurgeryTitle
   │ │ └ShowSurgeryTab
   │ ├IsPRFTitle
   │ ├TfrmNoteProperties.cboNewTitleExit
   │ │ └TfrmNoteProperties.cboNewTitleMouseClick
   │ │   ├IsConsultTitle
   │ │   ├TfrmNoteProperties.SetGenericFormSize
   │ │   ├TfrmNoteProperties.ShowRequestList...
   │ │   ├TfrmNoteProperties.ShowSurgCaseList...
   │ │   ├IsSurgeryTitle...
   │ │   ├TfrmNoteProperties.ShowPRFList...
   │ │   ├IsPRFTitle
   │ │   └TfrmNoteProperties.SetCosignerRequired...
   │ ├TfrmNoteProperties.FormatRequestList
   │ │ └TfrmNoteProperties.ShowRequestList...
   │ ├PrintNameForTitle
   │ ├TEncounter.GetLocationName
   │ │ └TEncounter.UpdateText
   │ │   └GetEncounterText
   │ ├TPRFActions.GetPRF_IEN
   │ └TPRFActions.GetActionIEN
   ├TChanges.ReplaceSignState
   ├MakeNoteDisplayText
   ├TChanges.ReplaceText
   ├TfrmNotes.GetTitleText
   ├TfrmNotes.LockConsultRequest
   │ ├GetConsultOrderIEN
   │ └OrderCanBeLocked
   │   └LockOrder
   ├UnlockOrderIfAble
   │ └UnlockOrder
   ├GetConsultOrderIEN
   └TfrmNotes.mnuActLoadBoilerClick
     ├LoadBoilerPlate
     ├GetLinkedTemplate
     │ ├GetLinkedTemplateData
     │ └AddTemplate
     │   ├TTemplate.Create
     │   │ └TTemplate.ReminderDialogIEN
     │   └TTemplate.AddChild
     │     └TTemplate.GetItems
     │       └ExpandTemplate
     │         ├TTemplate.GetChildren
     │         ├GetTemplateChildren
     │         ├AddTemplate...
     │         └TTemplate.ItemIENs
     │           └TTemplate.GetItems...
     ├MakeXMLParamTIU
     │ └ExternalName
     ├AssignBoilerText
     │ ├QuickCopyWith508Msg
     │ │ └SpeakTextInserted
     │ └TfrmNotes.UpdateNoteAuthor
     │   ├GetXMLParamReturnValueTIU
     │   ├ExternalName
     │   ├AskCosignerForTitle...
     │   └TfrmNotes.cmdChangeClick...
     ├QueryBoilerPlate
     │ └TfrmBase508Form.Create...
     ├QuickAddWith508Msg
     │ └SpeakTextInserted
     └TfrmNotes.UpdateNoteAuthor...

Calls

Name Declaration Comments
TfrmNotes.cmdChangeClick procedure cmdChangeClick(Sender: TObject); -


Source

1460  procedure TfrmNotes.mnuActChangeClick(Sender: TObject);
1461  begin
1462    inherited;
1463    if (FEditingIndex < 0) or (lstNotes.ItemIndex <> FEditingIndex) then Exit;
1464    cmdChangeClick(Sender);
1465  end;