Procedure

TPCEData.CopyPCEItems

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TPCEData

Declaration

procedure CopyPCEItems(Src: TList; Dest: TObject; ItemClass: TPCEItemClass);

Calls Hierarchy


TPCEData.CopyPCEItems
 └TPCEItem.Assign
   └TPCEItem.SetComment

Called-By Hierarchy


                                                       TPCEData.CopyPCEItems
                                                    TPCEData.CopyDiagnoses┤ 
                                         TfrmEncounterFrame.SynchPCEData┘ │ 
                                                             UpdatePCE┘   │ 
                                                TPCEData.OK2SignNote┤     │ 
                                                         IsOK2Sign┘ │     │ 
                                      TfrmDCSumm.mnuActSignClick┤   │     │ 
                                         TfrmDCSumm.SaveSignItem┤   │     │ 
                                         TfrmReview.cmdOKClick┘ │   │     │ 
                                               ReviewChanges┘   │   │     │ 
                           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┘ │     │   │     │ 
                                  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┘               │   │     │ 
                           TfrmConsults.mnuActSignatureSignClick┤   │     │ 
                                       TfrmConsults.SaveSignItem┤   │     │ 
                                      TfrmReview.cmdOKClick...┘ │   │     │ 
                                     TfrmSurgery.mnuActSignClick┤   │     │ 
                                        TfrmSurgery.SaveSignItem┤   │     │ 
                                      TfrmReview.cmdOKClick...┘ │   │     │ 
                                       TfrmNotes.mnuActSignClick┤   │     │ 
                                          TfrmNotes.SaveSignItem┘   │     │ 
                                      TfrmReview.cmdOKClick...┘     │     │ 
                                              TfrmDCSumm.cmdPCEClick┤     │ 
                                            TfrmConsults.cmdPCEClick┤     │ 
                                                      EditPCEData...┤     │ 
                                             TfrmSurgery.cmdPCEClick┤     │ 
                                              UpdateEncounterInfo...┘     │ 
                                                   TPCEData.CopyProcedures┤ 
                                      TfrmEncounterFrame.SynchPCEData...┘ │ 
                                                TPCEData.CopyImmunizations┤ 
                                      TfrmEncounterFrame.SynchPCEData...┘ │ 
                                                    TPCEData.CopySkinTests┤ 
                                      TfrmEncounterFrame.SynchPCEData...┘ │ 
                                                   TPCEData.CopyPatientEds┤ 
                                      TfrmEncounterFrame.SynchPCEData...┘ │ 
                                                TPCEData.CopyHealthFactors┤ 
                                      TfrmEncounterFrame.SynchPCEData...┘ │ 
                                                        TPCEData.CopyExams┤ 
                                      TfrmEncounterFrame.SynchPCEData...┘ │ 
                                                      TPCEData.CopyPCEData┘ 
                                                     TPCEData.PCEForNote┤   
                                                          IsOK2Sign...┤ │   
                                                 TfrmDCSumm.DisplayPCE┤ │   
                                            TfrmDCSumm.lstSummsClick┤ │ │   
                                          TfrmDCSumm.InsertNewSumm┤ │ │ │   
                                       TfrmDCSumm.mnuActNewClick┤ │ │ │ │   
                                    TfrmDCSumm.cmdNewSummClick┘ │ │ │ │ │   
                                TfrmDCSumm.mnuActAddIDEntryClick┘ │ │ │ │   
                                         TfrmDCSumm.InsertAddendum┤ │ │ │   
                                    TfrmDCSumm.mnuActAddendClick┘ │ │ │ │   
                                            TfrmDCSumm.LoadForEdit┤ │ │ │   
                                     TfrmDCSumm.InsertNewSumm...┤ │ │ │ │   
                                      TfrmDCSumm.mnuActEditClick┘ │ │ │ │   
                                         TfrmDCSumm.SaveEditedSumm┤ │ │ │   
                                      TfrmDCSumm.SaveCurrentSumm┘ │ │ │ │   
                                 TfrmDCSumm.AllowContextChange┤   │ │ │ │   
                          TfrmFrame.AllowContextChangeAll...┘ │   │ │ │ │   
                                    TfrmDCSumm.LstSummsToPrint┤   │ │ │ │   
                    TfrmFrame.mnuFilePrintSelectedItemsClick┘ │   │ │ │ │   
                                       TfrmDCSumm.RequestPrint┤   │ │ │ │   
                                 TfrmFrame.mnuFilePrintClick┘ │   │ │ │ │   
                                   TfrmDCSumm.InsertNewSumm...┤   │ │ │ │   
                                       TfrmDCSumm.mnuViewClick┤   │ │ │ │   
                                   TfrmDCSumm.SetViewContext┤ │   │ │ │ │   
                                    TfrmDCSumm.DisplayPage┤ │ │   │ │ │ │   
                    TfrmDCSumm.mnuViewReturntoDefaultClick┘ │ │   │ │ │ │   
                        TfrmDCSumm.mnuViewSaveAsDefaultClick┘ │   │ │ │ │   
                                       TfrmDCSumm.StartNewEdit┤   │ │ │ │   
                                TfrmDCSumm.mnuActNewClick...┤ │   │ │ │ │   
                            TfrmDCSumm.mnuActAddIDEntryClick┤ │   │ │ │ │   
                                TfrmDCSumm.mnuActAddendClick┤ │   │ │ │ │   
                                  TfrmDCSumm.mnuActEditClick┘ │   │ │ │ │   
                      TfrmDCSumm.mnuActDetachFromIDParentClick┤   │ │ │ │   
                                  TfrmDCSumm.mnuActDeleteClick┤   │ │ │ │   
                                TfrmDCSumm.SaveEditedSumm...┘ │   │ │ │ │   
                                    TfrmDCSumm.mnuActSaveClick┤   │ │ │ │   
                                    TfrmDCSumm.mnuActSignClick┤   │ │ │ │   
                                    TfrmDCSumm.SaveSignItem...┤   │ │ │ │   
                                          TfrmDCSumm.FormClose┤   │ │ │ │   
                     TfrmDCSumm.mnuActIdentifyAddlSignersClick┤   │ │ │ │   
                         TfrmDCSumm.popSummMemoAddlSignClick┘ │   │ │ │ │   
                               TfrmDCSumm.ProcessNotifications┤   │ │ │ │   
                                      TfrmDCSumm.DisplayPage┘ │   │ │ │ │   
                                  TfrmDCSumm.SetViewContext...┤   │ │ │ │   
                                    TfrmDCSumm.tvSummsDragDrop┤   │ │ │ │   
                                   TfrmDCSumm.tvSummsStartDrag┤   │ │ │ │   
                        TfrmDCSumm.mnuActAttachtoIDParentClick┘   │ │ │ │   
                                        TfrmDCSumm.mnuActSignClick┤ │ │ │   
                                        TfrmDCSumm.SaveSignItem...┤ │ │ │   
                                     TfrmDCSumm.mnuViewDetailClick┤ │ │ │   
                      TfrmDCSumm.mnuActIdentifyAddlSignersClick...┤ │ │ │   
                                          TfrmDCSumm.tvSummsChange┤ │ │ │   
                                    TfrmDCSumm.SaveEditedSumm...┤ │ │ │ │   
                                      TfrmDCSumm.mnuActSignClick┤ │ │ │ │   
                              TfrmDCSumm.ProcessNotifications...┤ │ │ │ │   
                                            TfrmDCSumm.LoadSumms┘ │ │ │ │   
                                 TfrmDCSumm.LstSummsToPrint...┤   │ │ │ │   
                                    TfrmDCSumm.mnuViewClick...┤   │ │ │ │   
                                    TfrmDCSumm.StartNewEdit...┤   │ │ │ │   
                      TfrmDCSumm.mnuActDetachFromIDParentClick┤   │ │ │ │   
                               TfrmDCSumm.mnuActDeleteClick...┤   │ │ │ │   
                                    TfrmDCSumm.mnuActSaveClick┤   │ │ │ │   
                                    TfrmDCSumm.mnuActSignClick┤   │ │ │ │   
                                    TfrmDCSumm.SaveSignItem...┤   │ │ │ │   
                  TfrmDCSumm.mnuActIdentifyAddlSignersClick...┤   │ │ │ │   
                        TfrmDCSumm.mnuActAttachtoIDParentClick┤   │ │ │ │   
                                    TfrmDCSumm.DoAttachIDChild┘   │ │ │ │   
                                  TfrmDCSumm.tvSummsDragDrop┤     │ │ │ │   
                      TfrmDCSumm.mnuActAttachtoIDParentClick┘     │ │ │ │   
                                      TfrmDCSumm.lvSummsSelectItem┘ │ │ │   
                                     TfrmDCSumm.tvSummsChange...┘   │ │ │   
                                              TfrmDCSumm.cmdPCEClick┘ │ │   
                                           TfrmDCSumm.InsertNewSumm...┤ │   
                                          TfrmDCSumm.InsertAddendum...┤ │   
                                             TfrmDCSumm.LoadForEdit...┤ │   
                                          TfrmConsults.CompleteConsult┤ │   
                                    TfrmConsults.mnuActCompleteClick┤ │ │   
                                  TfrmConsults.mnuActAddIDEntryClick┘ │ │   
                                           TfrmConsults.InsertAddendum┤ │   
                                TfrmConsults.mnuActMakeAddendumClick┘ │ │   
                                              TfrmConsults.LoadForEdit┤ │   
                                    TfrmConsults.mnuActNoteEditClick┘ │ │   
                                  TfrmConsults.mnuActCompleteClick┘   │ │   
                                               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...┤     │ │ │   │ │ │   
                       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.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.InsertAddendum...┤ │ │ │   
                                       TfrmConsults.LoadForEdit...┤ │ │ │   
                                                       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.ShowDrawers┘   │ │ │     │ │   
                             TfrmDrawers.CreateDrawers┤     │ │ │     │ │   
                               TfrmDCSumm.FormCreate┤ │     │ │ │     │ │   
                             TfrmConsults.FormCreate┤ │     │ │ │     │ │   
                              TfrmSurgery.FormCreate┤ │     │ │ │     │ │   
                                TfrmNotes.FormCreate┘ │     │ │ │     │ │   
                            TfrmDrawers.DisplayDrawers┘     │ │ │     │ │   
                          TfrmConsults.DisplayPCE...┤       │ │ │     │ │   
                              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...┤   │ │ │       │ │ │     │ │   
                       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.cmdNewNoteClick┘ │ │ │         │ │ │     │ │   
               TfrmNotes.mnuActAddIDEntryClick┘ │ │         │ │ │     │ │   
                        TfrmNotes.InsertAddendum┤ │         │ │ │     │ │   
                   TfrmNotes.mnuActAddendClick┘ │ │         │ │ │     │ │   
                           TfrmNotes.LoadForEdit┤ │         │ │ │     │ │   
                     TfrmNotes.mnuActEditClick┘ │ │         │ │ │     │ │   
                        TfrmNotes.SaveEditedNote┤ │         │ │ │     │ │   
                     TfrmNotes.SaveCurrentNote┘ │ │         │ │ │     │ │   
                TfrmNotes.AllowContextChange┤   │ │         │ │ │     │ │   
        TfrmFrame.AllowContextChangeAll...┘ │   │ │         │ │ │     │ │   
                   TfrmNotes.LstNotesToPrint┤   │ │         │ │ │     │ │   
  TfrmFrame.mnuFilePrintSelectedItemsClick┘ │   │ │         │ │ │     │ │   
                      TfrmNotes.RequestPrint┤   │ │         │ │ │     │ │   
               TfrmFrame.mnuFilePrintClick┘ │   │ │         │ │ │     │ │   
                      TfrmNotes.mnuViewClick┤   │ │         │ │ │     │ │   
                  TfrmNotes.SetViewContext┤ │   │ │         │ │ │     │ │   
                   TfrmNotes.DisplayPage┤ │ │   │ │         │ │ │     │ │   
   TfrmNotes.mnuViewReturntoDefaultClick┘ │ │   │ │         │ │ │     │ │   
       TfrmNotes.mnuViewSaveAsDefaultClick┘ │   │ │         │ │ │     │ │   
                      TfrmNotes.StartNewEdit┤   │ │         │ │ │     │ │   
               TfrmNotes.mnuActNewClick...┤ │   │ │         │ │ │     │ │   
           TfrmNotes.mnuActAddIDEntryClick┤ │   │ │         │ │ │     │ │   
               TfrmNotes.mnuActAddendClick┤ │   │ │         │ │ │     │ │   
                 TfrmNotes.mnuActEditClick┘ │   │ │         │ │ │     │ │   
     TfrmNotes.mnuActDetachFromIDParentClick┤   │ │         │ │ │     │ │   
                 TfrmNotes.mnuActDeleteClick┤   │ │         │ │ │     │ │   
               TfrmNotes.SaveEditedNote...┘ │   │ │         │ │ │     │ │   
                   TfrmNotes.mnuActSaveClick┤   │ │         │ │ │     │ │   
                   TfrmNotes.mnuActSignClick┤   │ │         │ │ │     │ │   
                   TfrmNotes.SaveSignItem...┤   │ │         │ │ │     │ │   
                         TfrmNotes.FormClose┤   │ │         │ │ │     │ │   
    TfrmNotes.mnuActIdentifyAddlSignersClick┤   │ │         │ │ │     │ │   
        TfrmNotes.popNoteMemoAddlSignClick┘ │   │ │         │ │ │     │ │   
              TfrmNotes.ProcessNotifications┤   │ │         │ │ │     │ │   
                     TfrmNotes.DisplayPage┘ │   │ │         │ │ │     │ │   
                 TfrmNotes.SetViewContext...┤   │ │         │ │ │     │ │   
                   TfrmNotes.tvNotesDragDrop┤   │ │         │ │ │     │ │   
       TfrmNotes.mnuActAttachtoIDParentClick┘   │ │         │ │ │     │ │   
                       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...┘           │ │ │     │ │   
                              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┘             │ │   
                                                        EditPCEData...┤ │   
                                             TfrmSurgery.DisplayPCE...┤ │   
                                          TfrmSurgery.InsertNewNote...┤ │   
                                         TfrmSurgery.InsertAddendum...┤ │   
                                            TfrmSurgery.LoadForEdit...┤ │   
                                               TfrmNotes.DisplayPCE...┤ │   
                                            TfrmNotes.InsertNewNote...┤ │   
                                           TfrmNotes.InsertAddendum...┤ │   
                                              TfrmNotes.LoadForEdit...┘ │   
                                              TfrmDCSumm.mnuActSignClick┤   
                                              TfrmDCSumm.SaveSignItem...┤   
                                   TfrmConsults.mnuActSignatureSignClick┤   
                                            TfrmConsults.SaveSignItem...┤   
                                       TfrmEncounterFrame.FormCloseQuery┤   
                                                          EditPCEData...┤   
                                                 TfrmSurgery.cmdPCEClick┤   
                                             TfrmSurgery.mnuActSignClick┤   
                                             TfrmSurgery.SaveSignItem...┤   
                                                  UpdateEncounterInfo...┤   
                                                   TfrmNotes.cmdPCEClick┤   
                                               TfrmNotes.mnuActSignClick┤   
                                               TfrmNotes.SaveSignItem...┘   

Calls

Name Declaration Comments
TPCEItem.Assign procedure Assign(Src: TPCEItem); virtual; -

Called-By

Name Declaration Comments
TPCEData.CopyDiagnoses procedure CopyDiagnoses(Dest: TStrings); -
TPCEData.CopyExams procedure CopyExams(Dest: TStrings); -
TPCEData.CopyHealthFactors procedure CopyHealthFactors(Dest: TStrings); -
TPCEData.CopyImmunizations procedure CopyImmunizations(Dest: TStrings); -
TPCEData.CopyPatientEds procedure CopyPatientEds(Dest: TStrings); -
TPCEData.CopyPCEData procedure CopyPCEData(Dest: TPCEData); -
TPCEData.CopyProcedures procedure CopyProcedures(Dest: TStrings); -
TPCEData.CopySkinTests procedure CopySkinTests(Dest: TStrings); -


Source

3237  procedure TPCEData.CopyPCEItems(Src: TList; Dest: TObject; ItemClass: TPCEItemClass);
3238  var
3239    AItem: TPCEItem;
3240    i: Integer;
3241    IsStrings: boolean;
3242    
3243  begin
3244    if(Dest is TStrings) then
3245      IsStrings := TRUE
3246    else
3247    if(Dest is TList) then
3248      IsStrings := FALSE
3249    else
3250      exit;
3251    for i := 0 to Src.Count - 1 do
3252    begin
3253      if(not TPCEItem(Src[i]).FDelete) then
3254      begin
3255        AItem := ItemClass.Create;
3256        AItem.Assign(TPCEItem(Src[i]));
3257        if(IsStrings) then
3258          TStrings(Dest).AddObject(AItem.ItemStr, AItem)
3259        else
3260          TList(Dest).Add(AItem);
3261      end;
3262    end;
3263  end;