Procedure

TfrmDCSumm.mnuActChangeClick

Module

fDCSumm

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDCSumm

Declaration

procedure mnuActChangeClick(Sender: TObject);

Calls Hierarchy


TfrmDCSumm.mnuActChangeClick
 ├TfrmDCSumm.NoSummSelected
 └TfrmDCSumm.cmdChangeClick
   ├ExecuteDCSummProperties
   │ ├TfrmBase508Form.Create
   │ │ ├TfrmBase508Form.UpdateAccessibilityActions
   │ │ ├UnfocusableControlEnter
   │ │ └AdjustControls
   │ │   ├TfrmBase508Form.ModifyUnfocusableControl
   │ │   └..(rec)..
   │ ├ListDCSummTitlesShort
   │ │ └LoadDCSummTitles
   │ │   └TDCSummTitles.Create
   │ ├LoadDCUrgencies
   │ ├TfrmDCSummProperties.ShowAdmissionList
   │ │ └ListAdmitAll
   │ ├PrintNameForTitle
   │ ├StrToFMDateTime
   │ ├GetDischargeDate
   │ ├FMNow
   │ └GetTIUListItem
   ├TChanges.ReplaceSignState
   ├MakeDCSummDisplayText
   ├TChanges.ReplaceText
   ├TfrmDCSumm.GetTitleText
   └TfrmDCSumm.mnuActLoadBoilerClick
     ├TfrmDCSumm.NoSummSelected
     ├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
     ├QueryBoilerPlate
     │ └TfrmBase508Form.Create...
     └QuickAddWith508Msg
       └SpeakTextInserted

Calls

Name Declaration Comments
TfrmDCSumm.cmdChangeClick procedure cmdChangeClick(Sender: TObject); -
TfrmDCSumm.NoSummSelected function NoSummSelected : Boolean; -


Source

2483  procedure TfrmDCSumm.mnuActChangeClick(Sender: TObject);
2484  begin
2485    inherited;
2486    if NoSummSelected() then Exit;
2487    if (FEditingIndex < 0) or (lstSumms.ItemIndex <> FEditingIndex) then Exit;
2488    cmdChangeClick(Sender);
2489  end;