Function

TPCEProviderList.PCEProvider

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TPCEProviderList

Declaration

function PCEProvider: Int64;

Calls Hierarchy


TPCEProviderList.PCEProvider
 ├Check
 │ └TPCEProviderList.IndexOfProvider
 └TPCEProviderList.PrimaryIEN
   └TPCEProviderList.GetPrimaryIdx

Called-By Hierarchy


                                                          TPCEProviderList.PCEProvider
                                                                       TPCEData.Save┤ 
                                                              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...┘     │ │ 
                                                         TfrmRemDlg.btnFinishClick┤ │ 
                                                       TfrmEncounterFrame.SendData┘ │ 
                                               TfrmEncounterFrame.FormCloseQuery┘   │ 
                                                    TPCEProviderList.PCEProviderName┤ 
                                                                   TfrmGAF.BADData┤ │ 
                                                      TfrmGAF.cboGAFProviderExit┤ │ │ 
                                                          TfrmGAF.AllowTabChange┤ │ │ 
                                                             TfrmGAF.GetGAFScore┤ │ │ 
                                                TfrmEncounterFrame.SendData...┘ │ │ │ 
                                                            TfrmGAF.FormActivate┘ │ │ 
                                                              TfrmGAF.FormShow┤   │ │ 
                                                            TfrmGAF.FormCreate┘   │ │ 
                                                         TfrmProcedures.FormCreate┤ │ 
                                                     TfrmProcedures.UpdateControls┘ │ 
                                                     TfrmProcedures.clbListClick┘   │ 
                                                                  TfrmGAF.BADData...┤ 
                                                                           AddPrompt┤ 
                                                                               Add┘ │ 
                                                                TRemData.AddData┘   │ 
                                                        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...┘ │   │   │ │       │ 
                                       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...┤         │   │ │       │ 
                                         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...┤     │ │ │   │ │     │ │   │ │       │ 
               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...┤   │ │ │     │ │   │ │       │ 
                                 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)..┘       │ 
                                                                              Add...┤ 
                                                       TfrmPCEBaseMain.btnOtherClick┤ 
                                                TfrmPCEBaseMain.lbxSectionClickCheck┤ 
                                                 TfrmProcedures.lbxSectionClickCheck┘ 

Calls

Name Declaration Comments
Check function Check(AIEN: Int64): Int64; -
TPCEProviderList.PrimaryIEN function PrimaryIEN: int64; -

Called-By

Name Declaration Comments
Add procedure Add(Str: string; Root: TRemPCERoot); -
AddPrompt procedure AddPrompt(Prompt: TRemPrompt; dt: TRemDataType; var x: string); -
TfrmGAF.BADData function BADData(ShowMessage: boolean): boolean; -
TfrmPCEBaseMain.btnOtherClick procedure btnOtherClick(Sender: TObject); -
TfrmPCEBaseMain.lbxSectionClickCheck procedure lbxSectionClickCheck(Sender: TObject; Index: Integer); -
TfrmProcedures.lbxSectionClickCheck procedure lbxSectionClickCheck(Sender: TObject; Index: Integer); -
TPCEProviderList.PCEProviderName function PCEProviderName: string; -
TPCEData.Save procedure Save; -


Source

3356  function TPCEProviderList.PCEProvider: Int64;
3357  
3358    function Check(AIEN: Int64): Int64;
3359    begin
3360      if(AIEN = 0) or (IndexOfProvider(IntToStr(AIEN)) < 0) then
3361        Result := 0
3362      else
3363        Result := AIEN;
3364    end;
3365  
3366  begin
3367    Result := Check(Encounter.Provider);
3368    if(Result = 0) then Result := Check(User.DUZ);
3369    if(Result = 0) then Result := PrimaryIEN;
3370  end;