Function

TRemDlgElement.AddData

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Visibility

Protected

Owner

TRemDlgElement

Declaration

function AddData(Lst: TStrings; Finishing: boolean; AHistorical: boolean = FALSE): integer;

Calls Hierarchy


TRemDlgElement.AddData
 ├TRemDlgElement.Historical
 ├TPCEData.VisitDateTime
 │ └TPCEData.IsSecondaryVisit
 ├TRemData.AddData
 │ ├Add
 │ │ ├Code2DataType
 │ │ ├TRemDlgElement.Historical
 │ │ ├TRemPrompt.GetValue
 │ │ │ ├TRemDlgElement.Historical
 │ │ │ ├TPCEData.VisitDateTime...
 │ │ │ ├TRemPrompt.RemDataActive
 │ │ │ │ └TRemPrompt.CompareActiveDate
 │ │ │ └TRemPrompt.RemDataChoiceActive
 │ │ ├TPCEData.VisitDateTime...
 │ │ ├ValidateGAFDate
 │ │ │ ├TPatient.GetDateDied
 │ │ │ │ └DateOfDeath
 │ │ │ └FMToday
 │ │ │   └FMNow
 │ │ ├TPCEProviderList.PCEProvider
 │ │ │ ├Check
 │ │ │ │ └TPCEProviderList.IndexOfProvider
 │ │ │ └TPCEProviderList.PrimaryIEN
 │ │ │   └TPCEProviderList.GetPrimaryIdx
 │ │ ├AddPrompt
 │ │ │ ├TRemPrompt.PromptType
 │ │ │ │ └Code2PromptType
 │ │ │ ├TPCEProviderList.PCEProvider...
 │ │ │ ├TPCEData.VisitDateTime...
 │ │ │ ├TRemPrompt.VitalValue
 │ │ │ │ └TRemPrompt.GetValue...
 │ │ │ ├TRemPrompt.VitalType
 │ │ │ │ ├Code2VitalType
 │ │ │ │ └TRemData.InternalValue
 │ │ │ ├TRemPrompt.VitalUnitValue
 │ │ │ │ ├TRemPrompt.VitalType...
 │ │ │ │ └TRemPrompt.GetValue...
 │ │ │ ├ConvertVital
 │ │ │ ├FormatVitalForNote
 │ │ │ │ └ConvertVitalData
 │ │ │ ├TRemPrompt.GetValue...
 │ │ │ └TRemDlgElement.Historical
 │ │ └GetPCEDataText
 │ │   └GetDiagnosisText
 │ ├TRemDlgElement.Historical
 │ └TPCEData.VisitDateTime...
 ├TRemDlgElement.ElemType
 └..(rec)..

Called-By Hierarchy


                                                            TRemDlgElement.AddData
                                                         TReminderDialog.AddData┤ 
                                                               GetReminderData┤ │ 
                                                               GetReminderData┘ │ 
                                                           TRemDlgElement.Add2PN┤ 
                                                                     CheckItem┤ │ 
                                                             ChildrenChecked┤ │ │ 
                                                              CheckItem...┘ │ │ │ 
                                                  TReminderDialog.Processing┘ │ │ 
                                                  TfrmRemDlg.btnClearClick┤   │ │ 
                                                        TfrmRemDlg.KillAll┤   │ │ 
                                               TfrmRemDlg.FormCloseQuery┤ │   │ │ 
                                               TfrmRemDlg.btnCancelClick┘ │   │ │ 
                                          TfrmNotes.AllowContextChange┤   │   │ │ 
                                     TfrmFrame.AllowContextChangeAll┘ │   │   │ │ 
                                          TfrmFrame.FormCloseQuery┤   │   │   │ │ 
                                        TfrmFrame.mnuFileNextClick┤   │   │   │ │ 
                                      TfrmFrame.mnuFileOpenClick┤ │   │   │   │ │ 
                                          TfrmFrame.UMInitiate┤ │ │   │   │   │ │ 
                                 TfrmFrame.mnuFileNextClick...┤ │ │   │   │   │ │ 
                                 TfrmFrame.mnuFileRefreshClick┤ │ │   │   │   │ │ 
                                 TfrmOrders.CheckOrderStatus┤ │ │ │   │   │   │ │ 
                             TfrmOrders.mnuActChgEvntClick┤ │ │ │ │   │   │   │ │ 
                                TfrmOrders.mnuActHoldClick┤ │ │ │ │   │   │   │ │ 
                              TfrmOrders.mnuActUnholdClick┤ │ │ │ │   │   │   │ │ 
                               TfrmOrders.mnuActRenewClick┤ │ │ │ │   │   │   │ │ 
                              TfrmOrders.mnuActChangeClick┤ │ │ │ │   │   │   │ │ 
                                TfrmOrders.mnuActCopyClick┘ │ │ │ │   │   │   │ │ 
                                      TfrmMeds.mnuActDCClick┤ │ │ │   │   │   │ │ 
                                     TfrmMeds.CheckMedStatus┘ │ │ │   │   │   │ │ 
                                  TfrmMeds.mnuActHoldClick┤   │ │ │   │   │   │ │ 
                                 TfrmMeds.mnuActRenewClick┤   │ │ │   │   │   │ │ 
                                TfrmMeds.mnuActUnholdClick┤   │ │ │   │   │   │ │ 
                                TfrmMeds.mnuActChangeClick┤   │ │ │   │   │   │ │ 
                                  TfrmMeds.mnuActCopyClick┤   │ │ │   │   │   │ │ 
                                TfrmMeds.mnuActRefillClick┘   │ │ │   │   │   │ │ 
                                            TfrmFrame.ViewInfo┘ │ │   │   │   │ │ 
                                         TfrmDCSumm.ViewInfo┤   │ │   │   │   │ │ 
                                       TfrmConsults.ViewInfo┤   │ │   │   │   │ │ 
                               TfrmFrame.pnlRemindersMouseUp┤   │ │   │   │   │ │ 
                                TfrmFrame.RemindersChanged┘ │   │ │   │   │   │ │ 
                                    TfrmFrame.FormCreate┘   │   │ │   │   │   │ │ 
                                      TfrmFrame.pnlCIRNClick┤   │ │   │   │   │ │ 
                                TfrmFrame.pnlVistaWebClick┤ │   │ │   │   │   │ │ 
                                     TfrmFrame.FormKeyDown┘ │   │ │   │   │   │ │ 
                                   TfrmFrame.pnlPatientClick┤   │ │   │   │   │ │ 
                                     TfrmFrame.pnlVisitClick┤   │ │   │   │   │ │ 
                               TfrmFrame.pnlPrimaryCareClick┤   │ │   │   │   │ │ 
                                 TfrmFrame.pnlRemindersClick┤   │ │   │   │   │ │ 
                                  TfrmFrame.pnlPostingsClick┤   │ │   │   │   │ │ 
                                      TfrmFrame.pnlFlagClick┤   │ │   │   │   │ │ 
                                        TfrmFrame.laMHVClick┤   │ │   │   │   │ │ 
                                       TfrmFrame.laVAA2Click┤   │ │   │   │   │ │ 
                                         TfrmOrders.ViewInfo┤   │ │   │   │   │ │ 
                                           TfrmMeds.ViewInfo┤   │ │   │   │   │ │ 
                                        TfrmSurgery.ViewInfo┤   │ │   │   │   │ │ 
                                          TfrmNotes.ViewInfo┤   │ │   │   │   │ │ 
                                       TfrmProblems.ViewInfo┘   │ │   │   │   │ │ 
                               TfrmFrame.mnuFileNotifRemoveClick┤ │   │   │   │ │ 
                                       TfrmFrame.NextButtonClick┘ │   │   │   │ │ 
                                     TfrmFrame.SetUpNextButton┘   │   │   │   │ │ 
                               TfrmFrame.mnuFileOpenClick...┤     │   │   │   │ │ 
                                        TfrmFrame.FormResize┘     │   │   │   │ │ 
                                      TfrmFrame.ChangeFont┘       │   │   │   │ │ 
                              TfrmFrame.LoadSizesForUser┤         │   │   │   │ │ 
                         TfrmFrame.LoadUserPreferences┘ │         │   │   │   │ │ 
                                TfrmFrame.UMInitiate┘   │         │   │   │   │ │ 
                              TfrmFrame.mnuFontSizeClick┘         │   │   │   │ │ 
                                     TfrmFrame.mnuFileOpenClick...┤   │   │   │ │ 
                                     TfrmFrame.ctxContextorPending┤   │   │   │ │ 
                                    TfrmFrame.StartCCOWContextor┘ │   │   │   │ │ 
                                          TfrmFrame.FormCreate┘   │   │   │   │ │ 
                                   TfrmFrame.ctxContextorCommitted┤   │   │   │ │ 
                                 TfrmFrame.StartCCOWContextor...┘ │   │   │   │ │ 
                            TfrmFrame.mnuFileResumeContextGetClick┤   │   │   │ │ 
                            TfrmFrame.mnuFileResumeContextSetClick┘   │   │   │ │ 
                                           TfrmNotes.mnuActDeleteClick┘   │   │ │ 
                                            TfrmNotes.SaveEditedNote┘     │   │ │ 
                                         TfrmNotes.SaveCurrentNote┘       │   │ │ 
                                 TfrmNotes.AllowContextChange...┤         │   │ │ 
                                       TfrmNotes.LstNotesToPrint┤         │   │ │ 
                      TfrmFrame.mnuFilePrintSelectedItemsClick┘ │         │   │ │ 
                                          TfrmNotes.RequestPrint┤         │   │ │ 
                                   TfrmFrame.mnuFilePrintClick┘ │         │   │ │ 
                                          TfrmNotes.mnuViewClick┤         │   │ │ 
                                      TfrmNotes.SetViewContext┤ │         │   │ │ 
                                       TfrmNotes.DisplayPage┤ │ │         │   │ │ 
                       TfrmNotes.mnuViewReturntoDefaultClick┘ │ │         │   │ │ 
                           TfrmNotes.mnuViewSaveAsDefaultClick┘ │         │   │ │ 
                                          TfrmNotes.StartNewEdit┤         │   │ │ 
                                      TfrmNotes.mnuActNewClick┤ │         │   │ │ 
                                   TfrmNotes.cmdNewNoteClick┘ │ │         │   │ │ 
                               TfrmNotes.mnuActAddIDEntryClick┤ │         │   │ │ 
                                   TfrmNotes.mnuActAddendClick┤ │         │   │ │ 
                                     TfrmNotes.mnuActEditClick┘ │         │   │ │ 
                         TfrmNotes.mnuActDetachFromIDParentClick┤         │   │ │ 
                                  TfrmNotes.mnuActDeleteClick...┤         │   │ │ 
                                       TfrmNotes.mnuActSaveClick┤         │   │ │ 
                                       TfrmNotes.mnuActSignClick┤         │   │ │ 
                                          TfrmNotes.SaveSignItem┤         │   │ │ 
                                         TfrmReview.cmdOKClick┘ │         │   │ │ 
                                               ReviewChanges┘   │         │   │ │ 
                        TfrmFrame.AllowContextChangeAll...┤     │         │   │ │ 
                                  TfrmFrame.FormCloseQuery┤     │         │   │ │ 
                              TfrmFrame.mnuFileReviewClick┤     │         │   │ │ 
                                           UpdateEncounter┘     │         │   │ │ 
                         TfrmFrame.mnuFileEncounterClick┤       │         │   │ │ 
                                 TfrmFrame.ViewInfo...┤ │       │         │   │ │ 
                    TfrmODMedIV.SetValuesFromResponses┤ │       │         │   │ │ 
                             TfrmODMedIV.SetupDialog┤ │ │       │         │   │ │ 
                   TfrmODMedIV.cboSolutionMouseClick┘ │ │       │         │   │ │ 
                       TfrmODMedIV.cboSolutionExit┘   │ │       │         │   │ │ 
                  TfrmODMedIV.cboSolutionMouseClick...┤ │       │         │   │ │ 
                     TfrmODMedIV.cboAdditiveMouseClick┤ │       │         │   │ │ 
                         TfrmODMedIV.cboAdditiveExit┘ │ │       │         │   │ │ 
                                TfrmODAuto.SetupDialog┤ │       │         │   │ │ 
                                   ActivateOrderDialog┤ │       │         │   │ │ 
                           TfrmRemDlg.btnFinishClick┤ │ │       │         │   │ │ 
           TfrmConsults.mnuActNewConsultRequestClick┤ │ │       │         │   │ │ 
                   TfrmConsults.cmdNewConsultClick┘ │ │ │       │         │   │ │ 
                TfrmConsults.mnuActNewProcedureClick┤ │ │       │         │   │ │ 
                      TfrmConsults.cmdNewProcClick┘ │ │ │       │         │   │ │ 
                                        ChangeOrders┤ │ │       │         │   │ │ 
                      TfrmOrders.mnuActChangeClick┤ │ │ │       │         │   │ │ 
                        TfrmMeds.mnuActChangeClick┘ │ │ │       │         │   │ │ 
                                     ChangeOrdersEvt┤ │ │       │         │   │ │ 
                                          CopyOrders┤ │ │       │         │   │ │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │         │   │ │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │         │   │ │ 
                           TfrmODActive.btnOKClick┘ │ │ │       │         │   │ │ 
                                      TransferOrders┤ │ │       │         │   │ │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │         │   │ │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │         │   │ │ 
                           TfrmODActive.btnOKClick┘ │ │ │       │         │   │ │ 
                            TfrmOrders.lstWriteClick┤ │ │       │         │   │ │ 
               TfrmOrders.PlaceOrderForDefaultDialog┤ │ │       │         │   │ │ 
                  TfrmOrders.DisplayDefaultDlgList┤ │ │ │       │         │   │ │ 
                       TfrmOrders.ResetOrderPage┘ │ │ │ │       │         │   │ │ 
               TfrmOrders.btnDelayedOrderClick┘   │ │ │ │       │         │   │ │ 
                                 DisplayEvntDialog┤ │ │ │       │         │   │ │ 
                             SetDelayEventForMed┘ │ │ │ │       │         │   │ │ 
                      TfrmMeds.mnuActCopyClick┘   │ │ │ │       │         │   │ │ 
                                 DisplayEvntDialog┤ │ │ │       │         │   │ │ 
                                  SetViewForCopy┘ │ │ │ │       │         │   │ │ 
                    TfrmOrders.mnuActCopyClick┘   │ │ │ │       │         │   │ │ 
                                 DisplayEvntDialog┘ │ │ │       │         │   │ │ 
                                ExecuteChangeEvt┘   │ │ │       │         │   │ │ 
                 TfrmOrders.mnuActChgEvntClick┘     │ │ │       │         │   │ │ 
                             TfrmMeds.mnuActNewClick┤ │ │       │         │   │ │ 
                           TfrmOMNavA.ActivateDialog┤ │ │       │         │   │ │ 
                         TfrmOMNavA.grdMenuKeyDown┤ │ │ │       │         │   │ │ 
                         TfrmOMNavA.grdMenuMouseUp┘ │ │ │       │         │   │ │ 
                                TfrmOMSet.DoNextItem┘ │ │       │         │   │ │ 
                              TfrmOMSet.InsertList┤   │ │       │         │   │ │ 
                               ActivateOrderList┘ │   │ │       │         │   │ │ 
                     TfrmRemDlg.btnFinishClick┤   │   │ │       │         │   │ │ 
                             ActivateOrderHTML┤   │   │ │       │         │   │ │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │         │   │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │   │ │       │         │   │ │ 
                              ActivateOrderSet┤   │   │ │       │         │   │ │ 
                   TfrmRemDlg.btnFinishClick┤ │   │   │ │       │         │   │ │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │   │ │       │         │   │ │ 
     TfrmConsults.mnuActNewProcedureClick...┤ │   │   │ │       │         │   │ │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │         │   │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │   │ │       │         │   │ │ 
                     TfrmMeds.mnuActNewClick┤ │   │   │ │       │         │   │ │ 
                TfrmOMNavA.ActivateDialog...┤ │   │   │ │       │         │   │ │ 
                     TfrmOMSet.DoNextItem...┘ │   │   │ │       │         │   │ │ 
                       TfrmOMNavA.DoSelectList┘   │   │ │       │         │   │ │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │   │ │       │         │   │ │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │   │ │       │         │   │ │ 
                                        SkipToNext┤   │ │       │         │   │ │ 
                         TfrmOMSet.DoNextItem...┘ │   │ │       │         │   │ │ 
                            TfrmOMSet.UMDelayEvent┘   │ │       │         │   │ │ 
                               TfrmOMSet.InsertList...┤ │       │         │   │ │ 
                                TfrmODMeds.SetupDialog┤ │       │         │   │ │ 
                             TfrmODMeds.btnSelectClick┤ │       │         │   │ │ 
                             TfrmODMeds.UMDelayClick┘ │ │       │         │   │ │ 
                                    ExecuteRenewOrders┘ │       │         │   │ │ 
                         TfrmOrders.mnuActRenewClick┤   │       │         │   │ │ 
                           TfrmMeds.mnuActRenewClick┘   │       │         │   │ │ 
                                        EncounterPresent┤       │         │   │ │ 
                                      ReadyForNewOrder┤ │       │         │   │ │ 
                           TfrmRemDlg.btnFinishClick┤ │ │       │         │   │ │ 
        TfrmConsults.mnuActNewConsultRequestClick...┤ │ │       │         │   │ │ 
             TfrmConsults.mnuActNewProcedureClick...┤ │ │       │         │   │ │ 
                                     ChangeOrders...┤ │ │       │         │   │ │ 
                                     ChangeOrdersEvt┤ │ │       │         │   │ │ 
                                       CopyOrders...┤ │ │       │         │   │ │ 
                                   TransferOrders...┤ │ │       │         │   │ │ 
                            TfrmOrders.lstWriteClick┤ │ │       │         │   │ │ 
                             TfrmMeds.mnuActNewClick┘ │ │       │         │   │ │ 
                                     ReadyForNewOrder1┤ │       │         │   │ │ 
            TfrmOrders.PlaceOrderForDefaultDialog...┘ │ │       │         │   │ │ 
                              TfrmOrders.mnuActDCClick┤ │       │         │   │ │ 
                             TfrmOrders.mnuActRelClick┤ │       │         │   │ │ 
                            TfrmOrders.mnuActHoldClick┤ │       │         │   │ │ 
                          TfrmOrders.mnuActUnholdClick┤ │       │         │   │ │ 
                           TfrmOrders.mnuActRenewClick┤ │       │         │   │ │ 
                         TfrmOrders.mnuActReleaseClick┤ │       │         │   │ │ 
                         TfrmOrders.mnuActOnChartClick┤ │       │         │   │ │ 
                            TfrmOrders.mnuActSignClick┤ │       │         │   │ │ 
                                TfrmMeds.mnuActDCClick┤ │       │         │   │ │ 
                              TfrmMeds.mnuActHoldClick┤ │       │         │   │ │ 
                             TfrmMeds.mnuActRenewClick┤ │       │         │   │ │ 
                            TfrmMeds.mnuActUnholdClick┤ │       │         │   │ │ 
                              TfrmMeds.mnuActCopyClick┤ │       │         │   │ │ 
                            TfrmMeds.mnuActRefillClick┘ │       │         │   │ │ 
                                     EncounterPresentEDO┤       │         │   │ │ 
                                   ReadyForNewOrder...┤ │       │         │   │ │ 
                         TfrmOrders.mnuActChgEvntClick┤ │       │         │   │ │ 
                          TfrmOrders.mnuActChangeClick┤ │       │         │   │ │ 
                            TfrmOrders.mnuActCopyClick┤ │       │         │   │ │ 
                       TfrmOrders.btnDelayedOrderClick┤ │       │         │   │ │ 
                            TfrmMeds.mnuActChangeClick┤ │       │         │   │ │ 
                              TfrmMeds.mnuActCopyClick┘ │       │         │   │ │ 
                                             UpdateVisit┤       │         │   │ │ 
                                           EditPCEData┤ │       │         │   │ │ 
                             TfrmSurgery.cmdPCEClick┤ │ │       │         │   │ │ 
                                 UpdateEncounterInfo┘ │ │       │         │   │ │ 
                             TfrmNotes.cmdPCEClick┘   │ │       │         │   │ │ 
                        TfrmVitals.btnEnterVitalsClick┘ │       │         │   │ │ 
                                             UpdateVisit┤       │         │   │ │ 
                                        EncounterPresent┘       │         │   │ │ 
                         TfrmProblems.lstProbActsClick┘         │         │   │ │ 
                     TfrmProblems.wgProbDataDblClick┤           │         │   │ │ 
                           TfrmProblems.lstViewClick┘           │         │   │ │ 
                   TfrmProblems.HighlightDuplicate┘             │         │   │ │ 
                         TfrmProblems.AddProblem┤               │         │   │ │ 
              TfrmProblems.lstProbActsClick...┤ │               │         │   │ │ 
                 TfrmProblems.lstProbPickClick┤ │               │         │   │ │ 
              TfrmProblems.lstProbPickDblClick┤ │               │         │   │ │ 
              TfrmProblems.edProbEntKeyPress┘ │ │               │         │   │ │ 
                      TfrmProblems.UMPLLexicon┘ │               │         │   │ │ 
                   TfrmdlgProb.bbChangeProbClick┘               │         │   │ │ 
                                             TfrmNotes.FormClose┤         │   │ │ 
                        TfrmNotes.mnuActIdentifyAddlSignersClick┤         │   │ │ 
                            TfrmNotes.popNoteMemoAddlSignClick┘ │         │   │ │ 
                                  TfrmNotes.ProcessNotifications┤         │   │ │ 
                                         TfrmNotes.DisplayPage┘ │         │   │ │ 
                                     TfrmNotes.SetViewContext...┤         │   │ │ 
                                       TfrmNotes.tvNotesDragDrop┤         │   │ │ 
                           TfrmNotes.mnuActAttachtoIDParentClick┘         │   │ │ 
                                                 TfrmRemDlg.btnFinishClick┤   │ │ 
                                                    ProcessingChangeString┤   │ │ 
                                                       ClearReminderData┤ │   │ │ 
                                                TfrmFrame.ClearPatient┘ │ │   │ │ 
                                              TfrmFrame.SetupPatient┘   │ │   │ │ 
                                         UpdatePatientInfoForAlert┤     │ │   │ │ 
                                   TfrmFrame.mnuFileNextClick...┘ │     │ │   │ │ 
                                     TfrmFrame.mnuFileOpenClick...┤     │ │   │ │ 
                                  TfrmFrame.AllowCCOWContextChange┤     │ │   │ │ 
                                   TfrmFrame.mnuFileNextClick...┤ │     │ │   │ │ 
                                   TfrmFrame.mnuFileOpenClick...┤ │     │ │   │ │ 
                          TfrmFrame.mnuFileResumeContextSetClick┘ │     │ │   │ │ 
                                       TfrmFrame.UpdateCCOWContext┤     │ │   │ │ 
                                   TfrmFrame.mnuFileOpenClick...┤ │     │ │   │ │ 
                              TfrmFrame.ctxContextorCommitted...┤ │     │ │   │ │ 
                          TfrmFrame.mnuFileResumeContextGetClick┘ │     │ │   │ │ 
                            TfrmFrame.mnuFileResumeContextSetClick┘     │ │   │ │ 
                                               RemindersInProcessChanged┘ │   │ │ 
                                                   InitReminderObjects┘   │   │ │ 
                                           uReminders.initialization┘     │   │ │ 
                                                         BuildReminderTree┤   │ │ 
                                            TfrmDrawers.RemindersChanged┤ │   │ │ 
                                               TfrmDrawers.ShowDrawers┘ │ │   │ │ 
                                           TfrmDrawers.CreateDrawers┤   │ │   │ │ 
                                             TfrmDCSumm.FormCreate┤ │   │ │   │ │ 
                                           TfrmConsults.FormCreate┤ │   │ │   │ │ 
                                            TfrmSurgery.FormCreate┤ │   │ │   │ │ 
                                              TfrmNotes.FormCreate┘ │   │ │   │ │ 
                                          TfrmDrawers.DisplayDrawers┘   │ │   │ │ 
                                           TfrmConsults.DisplayPCE┤     │ │   │ │ 
                                   TfrmConsults.lstConsultsClick┤ │     │ │   │ │ 
                                 TfrmConsults.tvConsultsChange┘ │ │     │ │   │ │ 
                  TfrmConsults.mnuActDetachFromIDParentClick┤   │ │     │ │   │ │ 
                                    TfrmConsults.NotifyOrder┤   │ │     │ │   │ │ 
                                      TfrmFrame.UMNewOrder┘ │   │ │     │ │   │ │ 
                      TfrmConsults.mnuActDisplayDetailsClick┤   │ │     │ │   │ │ 
                 TfrmConsults.mnuActIdentifyAddlSignersClick┤   │ │     │ │   │ │ 
                     TfrmConsults.popNoteMemoAddlSignClick┘ │   │ │     │ │   │ │ 
                           TfrmConsults.ProcessNotifications┤   │ │     │ │   │ │ 
                                  TfrmConsults.DisplayPage┘ │   │ │     │ │   │ │ 
                                   TfrmConsults.LoadConsults┤   │ │     │ │   │ │ 
                                   TfrmConsults.UpdateList┤ │   │ │     │ │   │ │ 
                               TfrmConsults.mnuViewClick┤ │ │   │ │     │ │   │ │ 
                           TfrmConsults.SetViewContext┘ │ │ │   │ │     │ │   │ │ 
                            TfrmConsults.DisplayPage┤   │ │ │   │ │     │ │   │ │ 
            TfrmConsults.mnuViewReturntoDefaultClick┘   │ │ │   │ │     │ │   │ │ 
                      TfrmConsults.mnuActNoteDeleteClick┤ │ │   │ │     │ │   │ │ 
                        TfrmConsults.SaveEditedConsult┘ │ │ │   │ │     │ │   │ │ 
                        TfrmConsults.SaveCurrentNote┘   │ │ │   │ │     │ │   │ │ 
                   TfrmConsults.AllowContextChange┤     │ │ │   │ │     │ │   │ │ 
              TfrmFrame.AllowContextChangeAll...┘ │     │ │ │   │ │     │ │   │ │ 
                    TfrmConsults.SetViewContext...┤     │ │ │   │ │     │ │   │ │ 
                      TfrmConsults.mnuViewClick...┤     │ │ │   │ │     │ │   │ │ 
        TfrmConsults.mnuActDetachFromIDParentClick┤     │ │ │   │ │     │ │   │ │ 
             TfrmConsults.mnuActNoteDeleteClick...┤     │ │ │   │ │     │ │   │ │ 
             TfrmConsults.mnuActSignatureSaveClick┤     │ │ │   │ │     │ │   │ │ 
             TfrmConsults.mnuActSignatureSignClick┤     │ │ │   │ │     │ │   │ │ 
                         TfrmConsults.SaveSignItem┤     │ │ │   │ │     │ │   │ │ 
                        TfrmReview.cmdOKClick...┘ │     │ │ │   │ │     │ │   │ │ 
                   TfrmConsults.mnuActConsultClick┤     │ │ │   │ │     │ │   │ │ 
                         TfrmConsults.RequestPrint┤     │ │ │   │ │     │ │   │ │ 
              TfrmConsults.mnuActPrintSF513Click┤ │     │ │ │   │ │     │ │   │ │ 
                     TfrmFrame.mnuFilePrintClick┘ │     │ │ │   │ │     │ │   │ │ 
            TfrmConsults.mnuActDisplayResultsClick┤     │ │ │   │ │     │ │   │ │ 
            TfrmConsults.ProcessNotifications...┘ │     │ │ │   │ │     │ │   │ │ 
              TfrmConsults.mnuActDisplaySF513Click┤     │ │ │   │ │     │ │   │ │ 
                TfrmConsults.mnuActPrintSF513Click┤     │ │ │   │ │     │ │   │ │ 
            TfrmConsults.mnuActDisplayDetailsClick┤     │ │ │   │ │     │ │   │ │ 
                            TfrmConsults.FormClose┤     │ │ │   │ │     │ │   │ │ 
    TfrmConsults.mnuActIdentifyAddlSignersClick...┤     │ │ │   │ │     │ │   │ │ 
              TfrmConsults.ProcessNotifications...┤     │ │ │   │ │     │ │   │ │ 
                 TfrmConsults.mnuActNotePrintClick┤     │ │ │   │ │     │ │   │ │ 
              TfrmConsults.popNoteMemoPrintClick┘ │     │ │ │   │ │     │ │   │ │ 
                         TfrmConsults.StartNewEdit┤     │ │ │   │ │     │ │   │ │ 
                TfrmConsults.mnuActCompleteClick┤ │     │ │ │   │ │     │ │   │ │ 
              TfrmConsults.mnuActAddIDEntryClick┤ │     │ │ │   │ │     │ │   │ │ 
            TfrmConsults.mnuActMakeAddendumClick┤ │     │ │ │   │ │     │ │   │ │ 
                TfrmConsults.mnuActNoteEditClick┘ │     │ │ │   │ │     │ │   │ │ 
              TfrmConsults.mnuActCompleteClick┘   │     │ │ │   │ │     │ │   │ │ 
                  TfrmConsults.tvCsltNotesDragDrop┤     │ │ │   │ │     │ │   │ │ 
                 TfrmConsults.tvCsltNotesStartDrag┤     │ │ │   │ │     │ │   │ │ 
          TfrmConsults.mnuActAttachtoIDParentClick┤     │ │ │   │ │     │ │   │ │ 
                   TfrmConsults.LstConsultsToPrint┘     │ │ │   │ │     │ │   │ │ 
        TfrmFrame.mnuFilePrintSelectedItemsClick┘       │ │ │   │ │     │ │   │ │ 
                   TfrmConsults.mnuActSignatureSaveClick┤ │ │   │ │     │ │   │ │ 
                   TfrmConsults.mnuActSignatureSignClick┤ │ │   │ │     │ │   │ │ 
                            TfrmConsults.SaveSignItem...┤ │ │   │ │     │ │   │ │ 
                         TfrmConsults.mnuActConsultClick┤ │ │   │ │     │ │   │ │ 
                             TfrmConsults.NotifyOrder...┤ │ │   │ │     │ │   │ │ 
                                 TfrmConsults.UMNewOrder┤ │ │   │ │     │ │   │ │ 
                          TfrmConsults.ProcessMedResults┘ │ │   │ │     │ │   │ │ 
                     TfrmConsults.mnuActAttachMedClick┤   │ │   │ │     │ │   │ │ 
                     TfrmConsults.mnuActRemoveMedClick┘   │ │   │ │     │ │   │ │ 
                      TfrmConsults.mnuActEditResubmitClick┤ │   │ │     │ │   │ │ 
                       TfrmConsults.cmdEditResubmitClick┘ │ │   │ │     │ │   │ │ 
                        TfrmConsults.LstConsultsToPrint...┘ │   │ │     │ │   │ │ 
                                TfrmConsults.tvConsultsClick┤   │ │     │ │   │ │ 
                              TfrmConsults.mnuViewClick...┤ │   │ │     │ │   │ │ 
                TfrmConsults.mnuActDetachFromIDParentClick┤ │   │ │     │ │   │ │ 
                     TfrmConsults.mnuActNoteDeleteClick...┤ │   │ │     │ │   │ │ 
                     TfrmConsults.mnuActSignatureSaveClick┤ │   │ │     │ │   │ │ 
                     TfrmConsults.mnuActSignatureSignClick┤ │   │ │     │ │   │ │ 
                              TfrmConsults.SaveSignItem...┤ │   │ │     │ │   │ │ 
                           TfrmConsults.mnuActConsultClick┤ │   │ │     │ │   │ │ 
                   TfrmConsults.mnuActEditResubmitClick...┤ │   │ │     │ │   │ │ 
                              TfrmConsults.StartNewEdit...┤ │   │ │     │ │   │ │ 
                         TfrmConsults.ProcessMedResults...┤ │   │ │     │ │   │ │ 
                  TfrmConsults.mnuActAttachtoIDParentClick┘ │   │ │     │ │   │ │ 
                                TfrmConsults.DoAttachIDChild┤   │ │     │ │   │ │ 
                          TfrmConsults.tvCsltNotesDragDrop┤ │   │ │     │ │   │ │ 
                  TfrmConsults.mnuActAttachtoIDParentClick┘ │   │ │     │ │   │ │ 
                                TfrmConsults.tvConsultsKeyUp┘   │ │     │ │   │ │ 
                                        TfrmConsults.cmdPCEClick┤ │     │ │   │ │ 
                                      TfrmConsults.lstNotesClick┤ │     │ │   │ │ 
                                  TfrmConsults.CompleteConsult┤ │ │     │ │   │ │ 
                            TfrmConsults.mnuActCompleteClick┤ │ │ │     │ │   │ │ 
                          TfrmConsults.mnuActAddIDEntryClick┘ │ │ │     │ │   │ │ 
                                   TfrmConsults.InsertAddendum┤ │ │     │ │   │ │ 
                        TfrmConsults.mnuActMakeAddendumClick┘ │ │ │     │ │   │ │ 
                                      TfrmConsults.LoadForEdit┤ │ │     │ │   │ │ 
                         TfrmConsults.mnuActNoteEditClick...┘ │ │ │     │ │   │ │ 
                                                   SaveOrAbort┤ │ │     │ │   │ │ 
                           TfrmConsults.SaveEditedConsult...┘ │ │ │     │ │   │ │ 
                             TfrmConsults.SaveEditedConsult...┤ │ │     │ │   │ │ 
                         TfrmConsults.mnuActSignatureSignClick┤ │ │     │ │   │ │ 
                                  TfrmConsults.SaveSignItem...┤ │ │     │ │   │ │ 
                TfrmConsults.mnuActIdentifyAddlSignersClick...┤ │ │     │ │   │ │ 
                                TfrmConsults.tvCsltNotesChange┘ │ │     │ │   │ │ 
                           TfrmConsults.SaveEditedConsult...┤   │ │     │ │   │ │ 
                       TfrmConsults.mnuActSignatureSignClick┤   │ │     │ │   │ │ 
                        TfrmConsults.ProcessNotifications...┘   │ │     │ │   │ │ 
                                      TfrmConsults.AssignRemForm┘ │     │ │   │ │ 
                                            ViewRemDlgFromForm┘   │     │ │   │ │ 
                                                  ViewRemDlg┤     │     │ │   │ │ 
                                        ViewReminderDialog┤ │     │     │ │   │ │ 
                          TfrmDrawers.tvRemindersMouseUp┤ │ │     │     │ │   │ │ 
                       TfrmDrawers.RemindersChanged...┘ │ │ │     │     │ │   │ │ 
                          TfrmDrawers.tvRemindersKeyDown┘ │ │     │     │ │   │ │ 
                                ViewReminderDialogTemplate┘ │     │     │ │   │ │ 
                                  ViewRemDlgTemplateFromForm┘     │     │ │   │ │ 
                           TTemplate.ExecuteReminderDialog┘       │     │ │   │ │ 
                            ExecuteTemplateOrBoilerPlate┤         │     │ │   │ │ 
                                  TfrmDrawers.InsertText┘         │     │ │   │ │ 
                       TfrmDrawers.tvTemplatesDblClick┤           │     │ │   │ │ 
                        TfrmDrawers.tvTemplatesKeyDown┤           │     │ │   │ │ 
                            TfrmDrawers.NewRECDragDrop┤           │     │ │   │ │ 
                      TfrmDrawers.SetRichEditControl┘ │           │     │ │   │ │ 
                             TfrmDCSumm.FormCreate┤   │           │     │ │   │ │ 
                           TfrmConsults.FormCreate┤   │           │     │ │   │ │ 
                            TfrmSurgery.FormCreate┤   │           │     │ │   │ │ 
                              TfrmNotes.FormCreate┘   │           │     │ │   │ │ 
                    TfrmDrawers.mnuInsertTemplateClick┘           │     │ │   │ │ 
              TfrmDCSumm.popSummMemoInsTemplateClick┤             │     │ │   │ │ 
            TfrmConsults.popNoteMemoInsTemplateClick┤             │     │ │   │ │ 
             TfrmSurgery.popNoteMemoInsTemplateClick┤             │     │ │   │ │ 
               TfrmNotes.popNoteMemoInsTemplateClick┘             │     │ │   │ │ 
                                            TfrmSurgery.DisplayPCE┤     │ │   │ │ 
                                         TfrmSurgery.cmdPCEClick┤ │     │ │   │ │ 
                                     TfrmSurgery.tvSurgeryChange┤ │     │ │   │ │ 
                                    TfrmSurgery.SaveEditedNote┤ │ │     │ │   │ │ 
                                 TfrmSurgery.SaveCurrentNote┘ │ │ │     │ │   │ │ 
                            TfrmSurgery.AllowContextChange┤   │ │ │     │ │   │ │ 
                      TfrmFrame.AllowContextChangeAll...┘ │   │ │ │     │ │   │ │ 
                                TfrmSurgery.SetViewContext┤   │ │ │     │ │   │ │ 
                                 TfrmSurgery.DisplayPage┤ │   │ │ │     │ │   │ │ 
                 TfrmSurgery.mnuViewReturntoDefaultClick┘ │   │ │ │     │ │   │ │ 
                                  TfrmSurgery.RequestPrint┤   │ │ │     │ │   │ │ 
                             TfrmFrame.mnuFilePrintClick┘ │   │ │ │     │ │   │ │ 
                                  TfrmSurgery.mnuViewClick┤   │ │ │     │ │   │ │ 
                           TfrmSurgery.SetViewContext...┘ │   │ │ │     │ │   │ │ 
                                  TfrmSurgery.StartNewEdit┤   │ │ │     │ │   │ │ 
                              TfrmSurgery.mnuActNewClick┤ │   │ │ │     │ │   │ │ 
                           TfrmSurgery.cmdNewNoteClick┘ │ │   │ │ │     │ │   │ │ 
                           TfrmSurgery.mnuActAddendClick┤ │   │ │ │     │ │   │ │ 
                             TfrmSurgery.mnuActEditClick┘ │   │ │ │     │ │   │ │ 
                             TfrmSurgery.mnuActDeleteClick┤   │ │ │     │ │   │ │ 
                           TfrmSurgery.SaveEditedNote...┘ │   │ │ │     │ │   │ │ 
                               TfrmSurgery.mnuActSaveClick┤   │ │ │     │ │   │ │ 
                               TfrmSurgery.mnuActSignClick┤   │ │ │     │ │   │ │ 
                                  TfrmSurgery.SaveSignItem┤   │ │ │     │ │   │ │ 
                                TfrmReview.cmdOKClick...┘ │   │ │ │     │ │   │ │ 
                                     TfrmSurgery.FormClose┤   │ │ │     │ │   │ │ 
                TfrmSurgery.mnuActIdentifyAddlSignersClick┤   │ │ │     │ │   │ │ 
                    TfrmSurgery.popNoteMemoAddlSignClick┘ │   │ │ │     │ │   │ │ 
                          TfrmSurgery.ProcessNotifications┘   │ │ │     │ │   │ │ 
                                 TfrmSurgery.DisplayPage┘     │ │ │     │ │   │ │ 
                                   TfrmSurgery.mnuActSignClick┤ │ │     │ │   │ │ 
                                TfrmSurgery.mnuViewDetailClick┤ │ │     │ │   │ │ 
                           TfrmSurgery.ProcessNotifications...┤ │ │     │ │   │ │ 
                                  TfrmSurgery.LoadSurgeryCases┘ │ │     │ │   │ │ 
                                 TfrmSurgery.mnuViewClick...┤   │ │     │ │   │ │ 
                                 TfrmSurgery.StartNewEdit...┤   │ │     │ │   │ │ 
                            TfrmSurgery.mnuActDeleteClick...┤   │ │     │ │   │ │ 
                                 TfrmSurgery.mnuActSaveClick┤   │ │     │ │   │ │ 
                                 TfrmSurgery.mnuActSignClick┤   │ │     │ │   │ │ 
                                 TfrmSurgery.SaveSignItem...┤   │ │     │ │   │ │ 
               TfrmSurgery.mnuActIdentifyAddlSignersClick...┘   │ │     │ │   │ │ 
                                       TfrmSurgery.lstNotesClick┘ │     │ │   │ │ 
                                     TfrmSurgery.InsertNewNote┤   │     │ │   │ │ 
                               TfrmSurgery.mnuActNewClick...┘ │   │     │ │   │ │ 
                                    TfrmSurgery.InsertAddendum┤   │     │ │   │ │ 
                               TfrmSurgery.mnuActAddendClick┘ │   │     │ │   │ │ 
                                       TfrmSurgery.LoadForEdit┤   │     │ │   │ │ 
                                 TfrmSurgery.mnuActEditClick┘ │   │     │ │   │ │ 
                                 TfrmSurgery.SaveEditedNote...┤   │     │ │   │ │ 
                                   TfrmSurgery.mnuActSignClick┤   │     │ │   │ │ 
                                   TfrmSurgery.SaveSignItem...┤   │     │ │   │ │ 
                 TfrmSurgery.mnuActIdentifyAddlSignersClick...┤   │     │ │   │ │ 
                                TfrmSurgery.tvSurgeryChange...┘   │     │ │   │ │ 
                                              TfrmNotes.DisplayPCE┘     │ │   │ │ 
                                         TfrmNotes.lstNotesClick┤       │ │   │ │ 
                                       TfrmNotes.InsertNewNote┤ │       │ │   │ │ 
                                 TfrmNotes.mnuActNewClick...┤ │ │       │ │   │ │ 
                             TfrmNotes.mnuActAddIDEntryClick┘ │ │       │ │   │ │ 
                                      TfrmNotes.InsertAddendum┤ │       │ │   │ │ 
                                 TfrmNotes.mnuActAddendClick┘ │ │       │ │   │ │ 
                                         TfrmNotes.LoadForEdit┤ │       │ │   │ │ 
                                   TfrmNotes.mnuActEditClick┘ │ │       │ │   │ │ 
                                   TfrmNotes.SaveEditedNote...┤ │       │ │   │ │ 
                                     TfrmNotes.mnuActSignClick┤ │       │ │   │ │ 
                                     TfrmNotes.SaveSignItem...┤ │       │ │   │ │ 
                                  TfrmNotes.mnuViewDetailClick┤ │       │ │   │ │ 
                   TfrmNotes.mnuActIdentifyAddlSignersClick...┤ │       │ │   │ │ 
                                       TfrmNotes.tvNotesChange┤ │       │ │   │ │ 
                                 TfrmNotes.SaveEditedNote...┤ │ │       │ │   │ │ 
                                   TfrmNotes.mnuActSignClick┤ │ │       │ │   │ │ 
                           TfrmNotes.ProcessNotifications...┤ │ │       │ │   │ │ 
                                         TfrmNotes.LoadNotes┘ │ │       │ │   │ │ 
                              TfrmNotes.LstNotesToPrint...┤   │ │       │ │   │ │ 
                                 TfrmNotes.mnuViewClick...┤   │ │       │ │   │ │ 
                                 TfrmNotes.StartNewEdit...┤   │ │       │ │   │ │ 
                   TfrmNotes.mnuActDetachFromIDParentClick┤   │ │       │ │   │ │ 
                            TfrmNotes.mnuActDeleteClick...┤   │ │       │ │   │ │ 
                                 TfrmNotes.mnuActSaveClick┤   │ │       │ │   │ │ 
                                 TfrmNotes.mnuActSignClick┤   │ │       │ │   │ │ 
                                 TfrmNotes.SaveSignItem...┤   │ │       │ │   │ │ 
               TfrmNotes.mnuActIdentifyAddlSignersClick...┤   │ │       │ │   │ │ 
                     TfrmNotes.mnuActAttachtoIDParentClick┤   │ │       │ │   │ │ 
                                 TfrmNotes.DoAttachIDChild┘   │ │       │ │   │ │ 
                               TfrmNotes.tvNotesDragDrop┤     │ │       │ │   │ │ 
                   TfrmNotes.mnuActAttachtoIDParentClick┘     │ │       │ │   │ │ 
                                   TfrmNotes.lvNotesSelectItem┘ │       │ │   │ │ 
                                  TfrmNotes.tvNotesChange...┘   │       │ │   │ │ 
                                          UpdateEncounterInfo...┤       │ │   │ │ 
                                         TfrmNotes.AssignRemForm┘       │ │   │ │ 
                                         ViewRemDlgFromForm...┘         │ │   │ │ 
                                       TfrmReminderTree.RemindersChanged┘ │   │ │ 
                                           TfrmReminderTree.FormCreate┤   │   │ │ 
                                          TfrmReminderTree.FormDestroy┘   │   │ │ 
                                            TReminderDialog.FinishProblems┘   │ │ 
                                              TfrmRemDlg.ProcessReminder┤     │ │ 
                                                 ViewRemDlgFromForm...┤ │     │ │ 
                                              TfrmRemDlg.btnClearClick┤ │     │ │ 
                                 TfrmRemDlg.ProcessReminderFromNodeStr┘ │     │ │ 
                                             TfrmRemDlg.btnNextClick┤   │     │ │ 
                                             TfrmRemDlg.btnBackClick┘   │     │ │ 
                                               TfrmRemDlg.btnFinishClick┘     │ │ 
                                                        TRemDlgElement.AddText┘ │ 
                                                     TReminderDialog.AddText┤   │ 
                                                     TfrmRemDlg.UpdateText┤ │   │ 
                                           TfrmRemDlg.ProcessReminder...┤ │ │   │ 
                                                TfrmRemDlg.BuildControls┤ │ │   │ 
                                         TfrmRemDlg.ProcessReminder...┤ │ │ │   │ 
                                                TfrmRemDlg.UMResyncRem┤ │ │ │   │ 
                                            TfrmRemDlg.ProcessTemplate┤ │ │ │   │ 
                                               ViewRemDlgFromForm...┘ │ │ │ │   │ 
                                                TfrmRemDlg.SetFontSize┘ │ │ │   │ 
                                               ViewRemDlgFromForm...┤   │ │ │   │ 
                                             TfrmFrame.ChangeFont...┘   │ │ │   │ 
                                                TfrmRemDlg.btnVisitClick┤ │ │   │ 
                                           TfrmRemDlg.ProcessTemplate...┘ │ │   │ 
                                                 TfrmRemDlg.btnFinishClick┤ │   │ 
                                         TReminderDialog.FinishProblems...┘ │   │ 
                                                                   ..(rec)..┘   │ 
                                                                       ..(rec)..┘ 

Calls

Name Declaration Comments
TRemData.AddData function AddData(List: TStrings; Finishing: boolean): integer; -
TRemDlgElement.AddData function AddData(Lst: TStrings; Finishing: boolean; AHistorical: boolean = FALSE): integer; -
TRemDlgElement.ElemType function ElemType: TRDElemType; -
TRemDlgElement.Historical function Historical: boolean; -
TPCEData.VisitDateTime function VisitDateTime: TFMDateTime; -

Called-By

Name Declaration Comments
TRemDlgElement.Add2PN function Add2PN: boolean; -
TReminderDialog.AddData function AddData(Lst: TStrings; Finishing: boolean = FALSE; Historical: boolean = FALSE): integer; -
TRemDlgElement.AddData function AddData(Lst: TStrings; Finishing: boolean; AHistorical: boolean = FALSE): integer; -


Source

4709  function TRemDlgElement.AddData(Lst: TStrings; Finishing: boolean;
4710                                  AHistorical: boolean = FALSE): integer;
4711  var
4712    i, j: integer;
4713    OK: boolean;
4714    ActDt, InActDt, EncDt: double;
4715    RData: TRemData;
4716  
4717  begin
4718    Result := 0;
4719  //  OK := ((ElemType <> etDisplayOnly) and FChecked);
4720    OK := FChecked;
4721    if(OK and Finishing) then
4722      OK := (Historical = AHistorical);
4723    if OK then
4724    begin
4725      if(assigned(FData)) then
4726      begin
4727        if Self.Historical then
4728          EncDt := DateTimeToFMDateTime(Date)
4729        else
4730          EncDt := RemForm.PCEObj.VisitDateTime;
4731        for i := 0 to FData.Count-1 do
4732          begin
4733            RData := TRemData(FData[i]);
4734            if assigned(RData.FActiveDates) then
4735              for j := 0 to (TRemData(FData[i]).FActiveDates.Count - 1) do
4736                begin
4737                  ActDt := StrToIntDef(Piece(TRemData(FData[i]).FActiveDates[j],':',1), 0);
4738                  InActDt := StrToIntDef(Piece(TRemData(FData[i]).FActiveDates[j], ':', 2), 9999999);
4739                  if (EncDt >= ActDt) and (EncDt <= InActDt) then
4740                    begin
4741                      inc(Result, TRemData(FData[i]).AddData(Lst, Finishing));
4742                      Break;
4743                    end;
4744                end
4745            else
4746              inc(Result, TRemData(FData[i]).AddData(Lst, Finishing));
4747          end;
4748      end;
4749    end;
4750    if (assigned(FChildren)) and (FChecked or (ElemType = etDisplayOnly)) then
4751    begin
4752      for i := 0 to FChildren.Count-1 do
4753        inc(Result, TRemDlgElement(FChildren[i]).AddData(Lst, Finishing, AHistorical));
4754    end;
4755  end;