Procedure

TfrmSurgery.mnuActChangeClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Comments

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

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure mnuActChangeClick(Sender: TObject);

Calls Hierarchy


TfrmSurgery.mnuActChangeClick
 └TfrmSurgery.cmdChangeClick
   ├IsNonORProcedure
   ├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
   ├TfrmSurgery.GetTitleText
   └TfrmSurgery.mnuActLoadBoilerClick
     ├LoadBoilerPlate
     ├GetLinkedTemplate
     │ ├GetLinkedTemplateData
     │ └AddTemplate
     │   ├TTemplate.Create
     │   │ └TTemplate.ReminderDialogIEN
     │   └TTemplate.AddChild
     │     └TTemplate.GetItems
     │       └ExpandTemplate
     │         ├TTemplate.GetChildren
     │         ├GetTemplateChildren
     │         ├AddTemplate...
     │         └TTemplate.ItemIENs
     │           └TTemplate.GetItems...
     ├AssignBoilerText
     ├MakeXMLParamTIU
     │ └ExternalName
     └QueryBoilerPlate
       └TfrmBase508Form.Create...

Calls

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


Source

1263  procedure TfrmSurgery.mnuActChangeClick(Sender: TObject);
1264  begin
1265    inherited;
1266    if (FEditingIndex < 0) or (lstNotes.ItemIndex <> FEditingIndex) then Exit;
1267    cmdChangeClick(Sender);
1268  end;