Procedure

TfrmDCSumm.cmdNewSummClick

Module

fDCSumm

Last Modified

7/15/2014 3:26:36 PM

Comments

Maps 'New Summ' button to the New Discharge Summary menu item

Visibility

Public/Published

Owner

TfrmDCSumm

Declaration

procedure cmdNewSummClick(Sender: TObject);

Calls Hierarchy


TfrmDCSumm.cmdNewSummClick
 └TfrmDCSumm.mnuActNewClick
   ├TfrmDCSumm.StartNewEdit
   │ ├MakeDCSummDisplayText
   │ ├TfrmDCSumm.SaveCurrentSumm
   │ │ └TfrmDCSumm.SaveEditedSumm
   │ │   ├TfrmDCSumm.tvSummsChange
   │ │   │ ├CanBeAttached
   │ │   │ ├CanReceiveAttachment
   │ │   │ ├TraverseTree
   │ │   │ │ ├ContextMatch
   │ │   │ │ ├TextFound
   │ │   │ │ ├AddListViewItem
   │ │   │ │ └..(rec)..
   │ │   │ ├TfrmDCSumm.lvSummsSelectItem
   │ │   │ │ └TfrmDCSumm.lstSummsClick
   │ │   │ │   ├MakeDCSummDisplayText
   │ │   │ │   ├LoadDocumentText
   │ │   │ │   ├TfrmDCSumm.DisplayPCE
   │ │   │ │   │ ├TPCEData.AddStrData
   │ │   │ │   │ │ ├Add
   │ │   │ │   │ │ ├TPCEData.StrVisitType
   │ │   │ │   │ │ │ ├GetPCEDataText
   │ │   │ │   │ │ │ │ └GetDiagnosisText
   │ │   │ │   │ │ │ ├TPCEProc.ModText
   │ │   │ │   │ │ │ │ └ModifierName
   │ │   │ │   │ │ │ │   └ModifierIdx
   │ │   │ │   │ │ │ │     ├TPCEData.VisitDateTime
   │ │   │ │   │ │ │ │     │ └TPCEData.IsSecondaryVisit
   │ │   │ │   │ │ │ │     ├FMToday
   │ │   │ │   │ │ │ │     │ └FMNow
   │ │   │ │   │ │ │ │     └MixedCaseModifier
   │ │   │ │   │ │ │ └TPCEData.StrVisitType
   │ │   │ │   │ │ │   └AddTxt
   │ │   │ │   │ │ ├TPCEData.StrDiagnoses
   │ │   │ │   │ │ │ └GetPCEDataText...
   │ │   │ │   │ │ ├TPCEData.StrProcedures
   │ │   │ │   │ │ │ ├GetPCEDataText...
   │ │   │ │   │ │ │ └TPCEProc.ModText...
   │ │   │ │   │ │ ├TPCEData.StrImmunizations
   │ │   │ │   │ │ │ └GetPCEDataText...
   │ │   │ │   │ │ ├TPCEData.StrSkinTests
   │ │   │ │   │ │ │ └GetPCEDataText...
   │ │   │ │   │ │ ├TPCEData.StrPatientEds
   │ │   │ │   │ │ │ └GetPCEDataText...
   │ │   │ │   │ │ ├TPCEData.StrHealthFactors
   │ │   │ │   │ │ │ └GetPCEDataText...
   │ │   │ │   │ │ └TPCEData.StrExams
   │ │   │ │   │ │   └GetPCEDataText...
   │ │   │ │   │ ├GetVitalsFromDate
   │ │   │ │   │ │ ├TPCEData.IsSecondaryVisit
   │ │   │ │   │ │ └GetVitalsFromEncDateTime
   │ │   │ │   │ ├TPCEData.AddVitalData
   │ │   │ │   │ │ └FormatVitalForNote
   │ │   │ │   │ │   └ConvertVitalData
   │ │   │ │   │ ├CanEditPCE
   │ │   │ │   │ │ ├GetAskPCE
   │ │   │ │   │ │ └FutureEncounter
   │ │   │ │   │ │   └FMToday...
   │ │   │ │   │ ├TfrmDCSumm.ShowPCEControls
   │ │   │ │   │ ├TfrmDrawers.DisplayDrawers
   │ │   │ │   │ │ └..(rec)..
   │ │   │ │   │ ├ActOnDocument
   │ │   │ │   │ ├TPCEData.PCEForNote
   │ │   │ │   │ │ ├TEncounter.GetVisitStr
   │ │   │ │   │ │ │ └TEncounter.GetVisitCategory
   │ │   │ │   │ │ ├VisitStrForNote
   │ │   │ │   │ │ ├TPCEData.GetVisitString
   │ │   │ │   │ │ │ └TPCEData.VisitDateTime...
   │ │   │ │   │ │ ├TPCEData.CopyPCEData
   │ │   │ │   │ │ │ ├TPCEData.Clear
   │ │   │ │   │ │ │ │ ├ClearList
   │ │   │ │   │ │ │ │ ├TPCEProc.Clear
   │ │   │ │   │ │ │ │ │ └TPCEItem.Clear
   │ │   │ │   │ │ │ │ │   └TPCEItem.SetComment
   │ │   │ │   │ │ │ │ └TPCEProviderList.Clear
   │ │   │ │   │ │ │ │   └TPCEProviderList.GetPrimaryIdx
   │ │   │ │   │ │ │ ├TPCEProc.CopyProc
   │ │   │ │   │ │ │ │ └TPCEItem.SetComment
   │ │   │ │   │ │ │ ├TPCEProviderList.Assign
   │ │   │ │   │ │ │ └TPCEData.CopyPCEItems
   │ │   │ │   │ │ │   └TPCEItem.Assign
   │ │   │ │   │ │ │     └TPCEItem.SetComment
   │ │   │ │   │ │ ├TPCEData.IsSecondaryVisit
   │ │   │ │   │ │ ├GetLocSecondaryVisitCode
   │ │   │ │   │ │ ├TPCEData.Clear...
   │ │   │ │   │ │ ├LoadPCEDataForNote
   │ │   │ │   │ │ ├ListVisitTypeByLoc
   │ │   │ │   │ │ ├SetRPCEncLocation
   │ │   │ │   │ │ ├SCCValue
   │ │   │ │   │ │ ├TPCEProviderList.Add
   │ │   │ │   │ │ │ ├TPCEProviderList.GetPrimaryIdx
   │ │   │ │   │ │ │ ├TPCEProviderList.IndexOfProvider
   │ │   │ │   │ │ │ └TPCEProviderList.SetPrimaryIdx
   │ │   │ │   │ │ │   ├TPCEProviderList.GetPrimaryIdx
   │ │   │ │   │ │ │   └TPCEProviderList.SetPrimary
   │ │   │ │   │ │ ├AppendComment
   │ │   │ │   │ │ ├TPCEDiag.SetFromString
   │ │   │ │   │ │ │ └TPCEItem.SetFromString
   │ │   │ │   │ │ │   └TPCEItem.SetComment
   │ │   │ │   │ │ ├TPCEProc.SetFromString
   │ │   │ │   │ │ │ └TPCEItem.SetFromString...
   │ │   │ │   │ │ ├TPCEImm.SetFromString
   │ │   │ │   │ │ │ └TPCEItem.SetFromString...
   │ │   │ │   │ │ ├TPCESkin.SetFromString
   │ │   │ │   │ │ │ ├TPCEItem.SetFromString...
   │ │   │ │   │ │ │ └StrToFMDateTime
   │ │   │ │   │ │ ├TPCEPat.SetFromString
   │ │   │ │   │ │ │ └TPCEItem.SetFromString...
   │ │   │ │   │ │ ├TPCEHealth.SetFromString
   │ │   │ │   │ │ │ └TPCEItem.SetFromString...
   │ │   │ │   │ │ └TPCEExams.SetFromString
   │ │   │ │   │ │   └TPCEItem.SetFromString...
   │ │   │ │   │ └GetVitalsFromNote
   │ │   │ │   │   ├TPCEData.IsSecondaryVisit
   │ │   │ │   │   ├GetVitalsFromEncDateTime
   │ │   │ │   │   └GetVitalFromNoteIEN
   │ │   │ │   └NotifyOtherApps
   │ │   │ │     ├AppNotificationEnabled
   │ │   │ │     │ └TNotifyAppsThread.CreateThread
   │ │   │ │     └TNotifyAppsThread.ResumeIfIdle
   │ │   │ ├TfrmDCSumm.ShowPCEControls
   │ │   │ └TfrmDCSumm.lstSummsClick...
   │ │   ├TfrmDCSumm.GetTitleText
   │ │   ├TfrmDCSumm.mnuActDeleteClick
   │ │   │ ├TfrmDCSumm.NoSummSelected
   │ │   │ ├ActOnDocument
   │ │   │ ├SelectDeleteReason
   │ │   │ │ ├JustifyDocumentDelete
   │ │   │ │ └TfrmBase508Form.Create
   │ │   │ │   ├TfrmBase508Form.UpdateAccessibilityActions
   │ │   │ │   ├UnfocusableControlEnter
   │ │   │ │   └AdjustControls
   │ │   │ │     ├TfrmBase508Form.ModifyUnfocusableControl
   │ │   │ │     └..(rec)..
   │ │   │ ├MakeDCSummDisplayText
   │ │   │ ├TfrmDCSumm.LockSumm
   │ │   │ │ ├TChanges.Exist
   │ │   │ │ └LockDocument
   │ │   │ ├JustifyDocumentDelete
   │ │   │ ├TfrmDCSumm.SaveCurrentSumm...
   │ │   │ ├TfrmDCSumm.SetEditingIndex
   │ │   │ ├VisitStrForNote
   │ │   │ ├TfrmDCSumm.RemovePCEFromChanges
   │ │   │ │ ├VisitStrForNote
   │ │   │ │ └TChanges.Remove
   │ │   │ │   ├UnlockOrder
   │ │   │ │   └UnlockDocument
   │ │   │ ├DeleteDocument
   │ │   │ ├TChanges.Exist
   │ │   │ ├UnlockDocument
   │ │   │ ├TChanges.Remove...
   │ │   │ ├DeletePCE
   │ │   │ ├TfrmDCSumm.ClearEditControls
   │ │   │ │ ├TPCEData.Clear...
   │ │   │ │ └TfrmDCSumm.SetEditingIndex
   │ │   │ ├TfrmDCSumm.LoadSumms
   │ │   │ │ ├KillDocTreeObjects
   │ │   │ │ │ └ResetDocTreeObjectStrings
   │ │   │ │ ├ListSummsForTree
   │ │   │ │ ├CreateListItemsForDocumentTree
   │ │   │ │ ├TfrmDCSumm.UpdateTreeView
   │ │   │ │ │ └BuildDocumentTree
   │ │   │ │ │   ├MakeNoteDisplayText
   │ │   │ │ │   ├MakeConsultNoteDisplayText
   │ │   │ │ │   ├MakeDCSummDisplayText
   │ │   │ │ │   ├MakeNoteTreeObject
   │ │   │ │ │   │ └MakeNoteDisplayText
   │ │   │ │ │   ├MakeConsultsNoteTreeObject
   │ │   │ │ │   │ ├MakeConsultNoteDisplayText
   │ │   │ │ │   │ └GetConsultOrderIEN
   │ │   │ │ │   ├MakeDCSummTreeObject
   │ │   │ │ │   │ └MakeDCSummDisplayText
   │ │   │ │ │   ├SetTreeNodeImagesAndFormatting
   │ │   │ │ │   │ ├ExternalName
   │ │   │ │ │   │ ├TextFound
   │ │   │ │ │   │ └MakeBold
   │ │   │ │ │   └..(rec)..
   │ │   │ │ ├RemoveParentsWithNoChildren
   │ │   │ │ │ └KillDocTreeNode
   │ │   │ │ │   └ResetDocTreeObjectStrings
   │ │   │ │ └TfrmDCSumm.tvSummsChange...
   │ │   │ ├UpdateReminderFinish
   │ │   │ │ └TfrmRemDlg.UpdateButtons
   │ │   │ │   ├TfrmRemDlg.BackReminder
   │ │   │ │   │ └TfrmRemDlg.GetCurReminderList
   │ │   │ │   │   └TReminderDialog.GetIEN
   │ │   │ │   └TfrmRemDlg.NextReminder
   │ │   │ │     └TfrmRemDlg.GetCurReminderList...
   │ │   │ ├TfrmDCSumm.ShowPCEControls
   │ │   │ └TfrmDrawers.DisplayDrawers...
   │ │   ├TfrmDCSumm.cmdChangeClick
   │ │   │ ├ExecuteDCSummProperties
   │ │   │ │ ├TfrmBase508Form.Create...
   │ │   │ │ ├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
   │ │   ├TPCEData.GetCPTRequired
   │ │   │ └TPCEData.NeededPCEData
   │ │   │   ├FutureEncounter...
   │ │   │   ├PromptForWorkload
   │ │   │   ├TPCEData.StandAlone
   │ │   │   │ └HasVisit
   │ │   │   ├TPCEData.GetHasCPTList
   │ │   │   │ └AddList
   │ │   │   │   └TPCEItem.HasCPTStr
   │ │   │   ├DataHasCPTCodes
   │ │   │   ├RequireExposures
   │ │   │   └EligbleConditions
   │ │   ├RequireMASVerification
   │ │   ├RequireRelease
   │ │   ├PutEditedDCSumm
   │ │   │ └SetText
   │ │   │   └InitParams
   │ │   ├TChanges.Remove...
   │ │   ├UnlockDocument
   │ │   ├TfrmDCSumm.SetEditingIndex
   │ │   └TfrmDCSumm.lstSummsClick...
   │ └TfrmDCSumm.LoadSumms...
   └TfrmDCSumm.InsertNewSumm
     ├TfrmDCSumm.ClearEditControls...
     ├DfltDCSummTitle
     │ └LoadDCSummTitles...
     ├DfltDCSummTitleName
     │ └LoadDCSummTitles...
     ├CanTitleBeIDChild
     ├FMNow
     ├TfrmDCSumm.LacksRequiredForCreate
     │ ├AskCosignerForDocument
     │ │ └TIUPatch175Installed
     │ │   └ServerHasPatch
     │ └AskCosignerForTitle
     │   └TIUPatch175Installed...
     ├TfrmDCSumm.VerifySummTitle
     │ └GetUserParam
     ├ExecuteDCSummProperties...
     ├MakeDCSummDisplayText
     ├TfrmDCSumm.SaveCurrentSumm...
     ├TfrmDCSumm.lstSummsClick...
     ├TfrmDCSumm.LoadForEdit
     │ ├TfrmDCSumm.ClearEditControls...
     │ ├TfrmDCSumm.LockSumm...
     │ ├TfrmDCSumm.SetEditingIndex
     │ ├TChanges.Add
     │ │ └TChangeItem.Create
     │ ├TfrmDCSumm.GetTitleText
     │ ├GetDCSummForEdit
     │ │ ├FindInt
     │ │ ├FindExt
     │ │ ├FindDT
     │ │ └FindInt64
     │ ├MakeDCSummTreeObject...
     │ ├MakeDCSummDisplayText
     │ ├TPCEData.PCEForNote...
     │ ├TPCEData.GetCPTRequired...
     │ ├TfrmDCSumm.cmdChangeClick...
     │ └TfrmDCSumm.lstSummsClick...
     ├TPCEData.SetEncUseCurr
     │ ├TEncounter.GetVisitCategory
     │ ├TPCEProviderList.SetPrimaryIdx...
     │ └SetRPCEncLocation
     ├TPCEData.PCEForNote...
     ├TPCEData.GetCPTRequired...
     ├PutNewDCSumm
     │ └SetText...
     ├LockDocument
     ├MakeDCSummTreeObject...
     ├TChanges.Add...
     ├TfrmDCSumm.GetTitleText
     ├TfrmDCSumm.SetEditingIndex
     ├LoadBoilerPlate
     ├TfrmDCSumm.cmdChangeClick...
     ├MakeXMLParamTIU...
     └QuickCopyWith508Msg...

Calls

Name Declaration Comments
TfrmDCSumm.mnuActNewClick procedure mnuActNewClick(Sender: TObject); -


Source

1154  procedure TfrmDCSumm.cmdNewSummClick(Sender: TObject);
1155  { maps 'New Summ' button to the New Discharge Summary menu item }
1156  begin
1157    inherited;
1158    mnuActNewClick(Self);
1159  end;