Procedure

TfrmDCSumm.mnuActNewClick

Module

fDCSumm

Last Modified

7/15/2014 3:26:36 PM

Comments

Switches to current new Summ or creates a new Summ if none is being edited already

Visibility

Public/Published

Owner

TfrmDCSumm

Declaration

procedure mnuActNewClick(Sender: TObject);

Calls Hierarchy


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...

Called-By Hierarchy


   TfrmDCSumm.mnuActNewClick
TfrmDCSumm.cmdNewSummClick┘ 

Calls

Name Declaration Comments
TfrmDCSumm.InsertNewSumm procedure InsertNewSumm(IsIDChild: boolean; AnIDParent: integer); -
TfrmDCSumm.StartNewEdit function StartNewEdit(NewNoteType: integer): Boolean; -

Called-By

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


Source

1337  procedure TfrmDCSumm.mnuActNewClick(Sender: TObject);
1338  const
1339    IS_ID_CHILD = False;
1340  { switches to current new Summ or creates a new Summ if none is being edited already }
1341  begin
1342    inherited;
1343    if not StartNewEdit(DC_ACT_NEW_SUMM) then Exit;
1344    //LoadSumms;
1345    // a visit (time & location) need not be available before creating the summary,
1346    // since an admission will be prompted for to link the summary to.  (REV - v14d)
1347  (*  if Encounter.NeedVisit then
1348    begin
1349      UpdateVisit(Font.Size);
1350      frmFrame.DisplayEncounterText;
1351    end;
1352    if Encounter.NeedVisit then
1353    begin
1354      InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING);
1355      Exit;
1356    end;*)
1357  
1358    InsertNewSumm(IS_ID_CHILD, 0);
1359  end;