Function

TPCEData.OK2SignNote

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TPCEData

Declaration

function OK2SignNote: boolean;

Calls Hierarchy


TPCEData.OK2SignNote
 ├CanEditPCE
 │ ├GetAskPCE
 │ └FutureEncounter
 │   └FMToday
 │     └FMNow
 ├IsNonCountClinic
 ├IsCancelOrNoShow
 ├GetAskPCE
 ├TPCEData.NeededPCEData
 │ ├FutureEncounter...
 │ ├PromptForWorkload
 │ ├TPCEData.StandAlone
 │ │ └HasVisit
 │ ├TPCEData.GetHasCPTList
 │ │ └AddList
 │ │   └TPCEItem.HasCPTStr
 │ ├DataHasCPTCodes
 │ ├RequireExposures
 │ └EligbleConditions
 ├TPCEProviderList.GetPrimaryIdx
 ├NoPrimaryPCEProvider
 │ ├TPCEProviderList.GetPrimaryIdx
 │ ├SetDefaultProvider
 │ │ ├InvalidPCEProviderTxt
 │ │ │ ├CheckActivePerson
 │ │ │ └IsUserAProvider
 │ │ ├TPCEData.PersonClassDate
 │ │ │ └FMToday...
 │ │ ├TEncounter.GetProviderName
 │ │ │ └TEncounter.UpdateText
 │ │ │   └GetEncounterText
 │ │ ├DefaultProvider
 │ │ ├CheckActivePerson
 │ │ ├TIUSiteParams
 │ │ └TPCEProviderList.AddProvider
 │ │   └TPCEProviderList.Add
 │ │     ├TPCEProviderList.GetPrimaryIdx
 │ │     ├TPCEProviderList.IndexOfProvider
 │ │     └TPCEProviderList.SetPrimaryIdx
 │ │       ├TPCEProviderList.GetPrimaryIdx
 │ │       └TPCEProviderList.SetPrimary
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ ├TPCEProviderList.PendingIEN
 │ ├TPCEProviderList.PendingName
 │ ├TfrmPCEProvider.AskUser
 │ │ └TfrmPCEProvider.btnSelectClick
 │ └TPCEProviderList.AddProvider...
 ├TPCEProviderList.PendingIEN
 ├TPCEProviderList.IndexOfProvider
 ├TPCEProviderList.AddProvider...
 ├TPCEProviderList.PendingName
 ├Add
 ├ForcePCEEntry
 ├MissingProviderInfo
 │ ├TPCEData.Empty
 │ │ └TPCEProc.Empty
 │ ├TEncounter.NeedVisit
 │ ├TPCEData.SetEncUseCurr
 │ │ ├TEncounter.GetVisitCategory
 │ │ ├TPCEProviderList.SetPrimaryIdx...
 │ │ └SetRPCEncLocation
 │ └NoPrimaryPCEProvider...
 ├UpdatePCE
 │ ├TfrmBase508Form.Create...
 │ ├TPCEData.Empty...
 │ ├TEncounter.NeedVisit
 │ ├TPCEData.SetEncUseCurr...
 │ ├ExternalName
 │ ├TPCEData.VisitDateTime
 │ │ └TPCEData.IsSecondaryVisit
 │ ├TPCEProviderList.Assign
 │ ├SetDefaultProvider...
 │ ├TPCEProviderList.PendingIEN
 │ ├TPCEProviderList.IndexOfProvider
 │ ├AutoCheckout
 │ ├TPCEProviderList.AddProvider...
 │ ├TPCEProviderList.PendingName
 │ ├TfrmEncounterFrame.CreateChildForms
 │ │ ├TfrmEncounterFrame.LoadFormList
 │ │ │ └MHClinic
 │ │ │   └GAFOK
 │ │ ├TfrmEncounterFrame.AddTabs
 │ │ └TfrmEncounterFrame.CreateForms
 │ │   ├TfrmEncounterFrame.FormListContains
 │ │   ├TfrmPCEBase.CreateLinked
 │ │   │ └TfrmBase508Form.Create...
 │ │   ├TfrmEncounterFrame.PageIDToTab
 │ │   └TfrmEncounterFrame.PageIDToForm
 │ ├SetFormPosition
 │ │ └TSizeHolder.GetSize
 │ ├SetRPCEncLocation
 │ ├TfrmEncounterFrame.SynchPCEData
 │ │ ├TfrmEncounterFrame.FormListContains
 │ │ ├InitList
 │ │ │ ├TfrmEncounterFrame.FormListContains
 │ │ │ ├ListVisitTypeSections
 │ │ │ │ └LoadEncounterForm
 │ │ │ │   ├TPCEData.VisitDateTime...
 │ │ │ │   ├FMNow
 │ │ │ │   └AddProbsToDiagnoses
 │ │ │ │     ├TPCEData.VisitDateTime...
 │ │ │ │     ├rpcGetProviderPatientDaysDx
 │ │ │ │     └rpcGetPersonalDxList
 │ │ │ ├AutoSelectVisit
 │ │ │ ├PCERPCEncLocation
 │ │ │ └TfrmEncounterFrame.SectionClick
 │ │ │   ├TfrmEncounterFrame.FormListContains
 │ │ │   └TfrmVisitType.lstVTypeSectionClick
 │ │ │     ├ListVisitTypeCodes
 │ │ │     │ └InsertTab
 │ │ │     └TfrmVisitType.lbxVisitsClick
 │ │ │       └TfrmVisitType.ShowModifiers
 │ │ │         ├ListCPTModifiers
 │ │ │         │ ├ModifierList
 │ │ │         │ │ ├TPCEData.VisitDateTime...
 │ │ │         │ │ └MixedCaseModifier
 │ │ │         │ └ModifierIdx
 │ │ │         │   ├TPCEData.VisitDateTime...
 │ │ │         │   ├FMToday...
 │ │ │         │   └MixedCaseModifier
 │ │ │         └TfrmVisitType.CheckModifiers
 │ │ │           └UpdateVisitTypeModifierList
 │ │ │             └ModifierList...
 │ │ ├ListSCDisabilities
 │ │ ├EligbleConditions
 │ │ ├TfraVisitRelated.InitAllow
 │ │ │ └TfraVisitRelated.SetCheckEnable
 │ │ ├TfraVisitRelated.InitRelated
 │ │ │ └TfraVisitRelated.SetCheckState
 │ │ │   └TfraVisitRelated.chkClick
 │ │ │     ├DisableCheck
 │ │ │     └TfraVisitRelated.SetCheckEnable
 │ │ ├TfrmPCEBaseMain.InitTab
 │ │ │ ├TfrmPCEBaseMain.lbSectionClick
 │ │ │ │ ├TfrmPCEBaseGrid.ClearGrid
 │ │ │ │ │ └TfrmPCEBaseGrid.UpdateControls
 │ │ │ │ └TfrmPCEBaseMain.CheckOffEntries
 │ │ │ │   └TfrmPCEBaseMain.GetCat
 │ │ │ ├TfrmPCEBaseGrid.ClearGrid...
 │ │ │ └TfrmPCEBaseMain.GridChanged
 │ │ │   ├TfrmPCEBaseMain.BeginUpdate
 │ │ │   ├TfrmPCEBaseGrid.SaveGridSelected
 │ │ │   ├TPCEItem.ItemStr
 │ │ │   ├TfrmPCEBaseGrid.RestoreGridSelected
 │ │ │   ├TfrmPCEBaseGrid.SyncGridData
 │ │ │   │ ├TfrmPCEBaseGrid.SaveGridSelected
 │ │ │   │ ├TfrmPCEBaseGrid.RestoreGridSelected
 │ │ │   │ └TfrmPCEBaseGrid.SyncGridHeader
 │ │ │   ├TfrmPCEBaseMain.EndUpdate
 │ │ │   └TfrmPCEBaseMain.UpdateControls
 │ │ │     ├TfrmPCEBaseMain.NotUpdating
 │ │ │     ├TfrmPCEBaseMain.BeginUpdate
 │ │ │     ├TfrmPCEBaseGrid.GetGridIndex
 │ │ │     └TfrmPCEBaseMain.EndUpdate
 │ │ ├TPCEData.CopyDiagnoses
 │ │ │ └TPCEData.CopyPCEItems
 │ │ │   └TPCEItem.Assign
 │ │ │     └TPCEItem.SetComment
 │ │ ├ListDiagnosisSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TfrmProcedures.InitTab
 │ │ ├TPCEData.CopyProcedures
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListProcedureSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopyImmunizations
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListImmunizSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopySkinTests
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListSkinSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopyPatientEds
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListPatientSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopyHealthFactors
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListHealthSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopyExams
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListExamsSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEProc.Assign
 │ │ │ └TPCEItem.Assign...
 │ │ └TfrmVisitType.MatchVType
 │ │   ├TfrmVisitType.lstVTypeSectionClick...
 │ │   └TfrmVisitType.lbxVisitsClickCheck
 │ │     ├TPCEProviderList.PrimaryIEN
 │ │     │ └TPCEProviderList.GetPrimaryIdx
 │ │     ├TPCEProc.SetFromString
 │ │     │ └TPCEItem.SetFromString
 │ │     │   └TPCEItem.SetComment
 │ │     └TPCEProc.Clear
 │ │       └TPCEItem.Clear
 │ │         └TPCEItem.SetComment
 │ └TfrmEncounterFrame.TabControlChange
 │   ├TfrmEncounterFrame.PageIDToTab
 │   ├TfrmEncounterFrame.PageIDToForm
 │   └TfrmEncounterFrame.SwitchToPage
 │     └TfrmPCEBase.DisplayPage
 └TPCEData.Save
   ├TPCEData.IsSecondaryVisit
   ├GetLocSecondaryVisitCode
   ├GetVisitIEN
   ├TPCEDiag.DelimitedStr2
   ├TPCEProviderList.PCEProvider
   │ ├Check
   │ │ └TPCEProviderList.IndexOfProvider
   │ └TPCEProviderList.PrimaryIEN...
   ├TPCEDiag.DelimitedStr
   ├TPCEProc.DelimitedStr
   │ └ModifierCode
   │   └ModifierIdx...
   ├TPCEItem.DelimitedStr2
   ├TPCEImm.DelimitedStr
   ├TPCESkin.DelimitedStr
   ├TPCEPat.DelimitedStr
   ├TPCEHealth.DelimitedStr
   ├TPCEExams.DelimitedStr
   ├SavePCEData
   ├TPCEProviderList.GetProviderData
   ├TPCEProviderList.Delete
   ├TPCEProc.Clear...
   ├TPCEData.StrVisitType
   │ ├GetPCEDataText
   │ │ └GetDiagnosisText
   │ ├TPCEProc.ModText
   │ │ └ModifierName
   │ │   └ModifierIdx...
   │ └TPCEData.StrVisitType
   │   └AddTxt
   ├TChanges.Add
   │ └TChangeItem.Create
   ├TPCEData.StrProcedures
   │ ├GetPCEDataText...
   │ └TPCEProc.ModText...
   ├TPCEData.StrDiagnoses
   │ └GetPCEDataText...
   ├TPCEData.StrImmunizations
   │ └GetPCEDataText...
   ├TPCEData.StrSkinTests
   │ └GetPCEDataText...
   ├TPCEData.StrPatientEds
   │ └GetPCEDataText...
   ├TPCEData.StrHealthFactors
   │ └GetPCEDataText...
   └TPCEData.StrExams
     └GetPCEDataText...

Called-By Hierarchy


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

Calls

Name Declaration Comments
Add procedure Add(Typ: tRequiredPCEDataType; txt: string); -
TPCEProviderList.AddProvider function AddProvider(AIEN, AName: string; APrimary: boolean): integer; -
CanEditPCE function CanEditPCE(APCEData: TPCEData): boolean; -
ForcePCEEntry function ForcePCEEntry(Loc: integer): boolean; -
GetAskPCE function GetAskPCE(Loc: integer): TAskPCE; -
TPCEProviderList.GetPrimaryIdx function GetPrimaryIdx: integer; -
TPCEProviderList.IndexOfProvider function IndexOfProvider(AIEN: string): integer; -
IsCancelOrNoShow function IsCancelOrNoShow(ANote: integer): boolean; -
IsNonCountClinic function IsNonCountClinic(ALocation: integer): boolean; -
MissingProviderInfo function MissingProviderInfo(PCEEdit: TPCEData; PCEType: TPCEType = ptEncounter): boolean; -
TPCEData.NeededPCEData function NeededPCEData: tRequiredPCEDataTypes; -
NoPrimaryPCEProvider function NoPrimaryPCEProvider(AProviders: TPCEProviderList; PCEData: TPCEData): boolean; -
TPCEProviderList.PendingIEN function PendingIEN(ADefault: boolean): Int64; -
TPCEProviderList.PendingName function PendingName(ADefault: boolean): string; -
TPCEData.Save procedure Save; -
UpdatePCE function UpdatePCE(PCEData: TPCEData; SaveOnExit: boolean = TRUE): boolean; -

Called-By

Name Declaration Comments
IsOK2Sign function IsOK2Sign(const PCEData: TPCEData; const IEN: integer) :boolean; -


Source

2972  function TPCEData.OK2SignNote: boolean;
2973  var
2974    Req: tRequiredPCEDataTypes;
2975    msg: string;
2976    Asked, DoAsk, Primary, Needed: boolean;
2977    Outpatient, First, DoSave, NeedSave, Done: boolean;
2978    Ans: integer;
2979    Flags: word;
2980    Ask: TAskPCE;
2981  
2982    procedure Add(Typ: tRequiredPCEDataType; txt: string);
2983    begin
2984      if(Typ in Req) then
2985        msg := msg + txt + CRLF;
2986    end;
2987  
2988  begin
2989    if not CanEditPCE(Self) then
2990    begin
2991      Result := TRUE;
2992      exit;
2993    end;
2994    if IsNonCountClinic(FEncLocation) then
2995    begin
2996      Result := TRUE;
2997      exit;
2998    end;
2999    if IsCancelOrNoShow(NoteIEN) then
3000    begin
3001      Result := TRUE;
3002      exit;
3003    end;
3004    Ask := GetAskPCE(FEncLocation);
3005    if(Ask = apNever) or (Ask = apDisable) then
3006      Result := TRUE
3007    else
3008    begin
3009      DoSave := FALSE;
3010      try
3011        Asked := FALSE;
3012        First := TRUE;
3013        Outpatient := ((FEncSvcCat = 'A') or (FEncSvcCat = 'I') or (FEncSvcCat = 'T'));
3014        repeat
3015          Result := TRUE;
3016          Done := TRUE;
3017          Req := NeededPCEData;
3018          Needed := (Req <> []);
3019          if(First) then
3020          begin
3021            if Needed and (not Outpatient) then
3022              OutPatient := TRUE;
3023            if((Ask = apPrimaryAlways) or Needed or
3024               ((Ask = apPrimaryOutpatient) and Outpatient)) then
3025            begin
3026              if(Providers.PrimaryIdx < 0) then
3027              begin
3028                NoPrimaryPCEProvider(FProviders, Self);
3029                if(not DoSave) then
3030                  DoSave := (Providers.PrimaryIdx >= 0);
3031                if(DoSave and (FProviders.PendingIEN(FALSE) <> 0) and
3032                  (FProviders.IndexOfProvider(IntToStr(FProviders.PendingIEN(FALSE))) < 0)) then
3033                  FProviders.AddProvider(IntToStr(FProviders.PendingIEN(FALSE)), FProviders.PendingName(FALSE), FALSE);
3034              end;
3035            end;
3036            First := FALSE;
3037          end;
3038          Primary := (Providers.PrimaryIEN = User.DUZ);
3039          case Ask of
3040            apPrimaryOutpatient: DoAsk := (Primary and Outpatient);
3041            apPrimaryAlways:     DoAsk := Primary;
3042            apNeeded:            DoAsk := Needed;
3043            apOutpatient:        DoAsk := Outpatient;
3044            apAlways:            DoAsk := TRUE;
3045            else
3046          { apPrimaryNeeded }    DoAsk := (Primary and Needed);
3047          end;
3048          if(DoAsk) then
3049          begin
3050            if(Asked and ((not Needed) or (not Primary))) then
3051              exit;
3052            if(Needed) then
3053            begin
3054              msg := TX_NEED1;
3055              Add(ndDiag, TX_NEED_DIAG);
3056              Add(ndProc, TX_NEED_PROC);
3057              Add(ndSC,   TX_NEED_SC);
3058              if(Primary and ForcePCEEntry(FEncLocation)) then
3059              begin
3060                Flags := MB_OKCANCEL;
3061                msg :=  msg + CRLF + TX_NEED3;
3062              end
3063              else
3064              begin
3065                if(Primary) then
3066                  Flags := MB_YESNOCANCEL
3067                else
3068                  Flags := MB_YESNO;
3069                msg :=  msg + CRLF + TX_NEED2;
3070              end;
3071              Flags := Flags + MB_ICONWARNING;
3072            end
3073            else
3074            begin
3075              Flags := MB_YESNO + MB_ICONQUESTION;
3076              msg :=  TX_NEED2;
3077            end;
3078            Ans := InfoBox(msg, TX_NEED_T, Flags);
3079            if(Ans = ID_CANCEL) then
3080            begin
3081              Result := FALSE;
3082              InfoBox(TX_NEEDABORT, TX_NEED_T, MB_OK);
3083              exit;
3084            end;
3085            Result := (Ans = ID_NO);
3086            if(not Result) then
3087            begin
3088              if(not MissingProviderInfo(Self)) then
3089              begin
3090                NeedSave := UpdatePCE(Self, FALSE);
3091                if(not DoSave) then
3092                  DoSave := NeedSave;
3093                FUpdated := TRUE;
3094              end;
3095              Done := frmFrame.Closing;
3096              Asked := TRUE;
3097            end;
3098          end;
3099        until(Done);
3100      finally
3101        if(DoSave) then
3102          Save;
3103      end;
3104    end;
3105  end;