Procedure

TfrmFrame.DetermineNextTab

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Visibility

Private

Owner

TfrmFrame

Declaration

procedure DetermineNextTab;

Calls Hierarchy


TfrmFrame.DetermineNextTab
 ├TfrmFrame.TabToPageID
 ├TfrmFrame.TabExists
 └TfrmOrders.PtEvtCompleted
   ├IsCompletedPtEvt
   ├TfrmOrders.GroupChangesUpdate
   │ ├TChanges.ChangeOrderGrp
   │ └TChanges.ReplaceODGrpName
   ├TfrmOrders.InitOrderSheetsForEvtDelay
   │ ├TfrmOrders.InitOrderSheets
   │ │ ├TfrmOrders.ClearOrderSheets
   │ │ ├LoadOrderSheetsED
   │ │ ├DGroupAll
   │ │ └EventInfo
   │ └TfrmOrders.DfltViewForEvtDelay
   │   ├TfrmOrders.CanChangeOrderView
   │   │ └ActiveOrdering
   │   └LoadOrderViewDefault
   ├TfrmOrders.lstSheetsClick
   │ ├CloseOrdering
   │ ├TfrmOrders.PtEvtCompleted...
   │ ├DeleteEmptyEvt
   │ │ ├PtEvtEmpty
   │ │ ├GetEventName
   │ │ └DeletePtEvent
   │ ├TfrmOrders.ChangesUpdate
   │ │ ├TheParentPtEvt
   │ │ └TChanges.Remove
   │ │   ├UnlockOrder
   │ │   └UnlockDocument
   │ ├TfrmOrders.InitOrderSheetsForEvtDelay...
   │ ├..(rec)..
   │ ├LoadWriteOrdersED
   │ ├LoadWriteOrders
   │ ├TfrmOrders.RefreshOrderList
   │ │ ├LoadOrdersAbbr
   │ │ │ ├ClearOrders
   │ │ │ ├LoadDGroupMap
   │ │ │ ├ExpiredOrdersStartDT
   │ │ │ ├FMNow
   │ │ │ └SeqOfDGroup
   │ │ │   └LoadDGroupMap
   │ │ ├ClearOrders
   │ │ ├LoadOrdersAbbr
   │ │ │ ├LoadDGroupMap
   │ │ │ ├FMNow
   │ │ │ └SeqOfDGroup...
   │ │ ├TfrmOrders.ExpandEventSection
   │ │ ├TfrmOrders.CompressEventSection
   │ │ ├SortOrders
   │ │ │ ├InverseByGroup
   │ │ │ │ └TChanges.Exist
   │ │ │ ├ForwardByGroup
   │ │ │ │ └TChanges.Exist
   │ │ │ ├InverseChrono
   │ │ │ └ForwardChrono
   │ │ ├TfrmOrders.AddToListBox
   │ │ │ └TfrmOrders.GetPlainText
   │ │ │   └TfrmOrders.GetOrderText
   │ │ │     ├LoadFlagReason
   │ │ │     ├TfrmOrders.GetStartStopText
   │ │ │     └NameOfStatus
   │ │ └DGroupAll
   │ ├PtEvtEmpty
   │ └DeletePtEvent
   └TfrmOrders.RefreshOrderList...

Called-By Hierarchy


                   TfrmFrame.DetermineNextTab
                 TfrmFrame.mnuFileOpenClick┤ 
                     TfrmFrame.UMInitiate┤ │ 
               TfrmFrame.mnuFileNextClick┤ │ 
          TfrmFrame.mnuFileOpenClick...┤ │ │ 
      TfrmFrame.mnuFileNotifRemoveClick┤ │ │ 
              TfrmFrame.NextButtonClick┘ │ │ 
            TfrmFrame.SetUpNextButton┘   │ │ 
      TfrmFrame.mnuFileOpenClick...┤     │ │ 
               TfrmFrame.FormResize┘     │ │ 
             TfrmFrame.ChangeFont┘       │ │ 
     TfrmFrame.LoadSizesForUser┤         │ │ 
TfrmFrame.LoadUserPreferences┘ │         │ │ 
       TfrmFrame.UMInitiate┘   │         │ │ 
     TfrmFrame.mnuFontSizeClick┘         │ │ 
            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.UpdateCCOWContext┘ 
            TfrmFrame.mnuFileOpenClick...┤   
          TfrmFrame.ctxContextorCommitted┤   
           TfrmFrame.StartCCOWContextor┘ │   
                 TfrmFrame.FormCreate┘   │   
   TfrmFrame.mnuFileResumeContextGetClick┘   

Calls

Name Declaration Comments
TfrmOrders.PtEvtCompleted function PtEvtCompleted(APtEvtID: integer; APtEvtName: string; FromMeds: boolean = False; Signing: boolean = False): boolean; -
TfrmFrame.TabExists function TabExists(ATabID: integer): boolean; -
TfrmFrame.TabToPageID function TabToPageID(Tab: Integer): Integer; -

Called-By

Name Declaration Comments
TfrmFrame.mnuFileOpenClick procedure mnuFileOpenClick(Sender: TObject); -
TfrmFrame.UpdateCCOWContext procedure UpdateCCOWContext; -


Source

1908  procedure TfrmFrame.DetermineNextTab;
1909  begin
1910    if (FRefreshing or User.UseLastTab) and (not FFirstLoad) then
1911      begin
1912        if (tabPage.TabIndex < 0) then
1913          NextTab := LastTab
1914        else
1915          NextTab := TabToPageID(tabPage.TabIndex);
1916      end
1917    else
1918      NextTab := User.InitialTab;
1919    if NextTab = CT_NOPAGE then NextTab := User.InitialTab;
1920    if User.IsReportsOnly then // Reports Only tab.
1921      NextTab := CT_REPORTS; // Only one tab should exist by this point in "REPORTS ONLY" mode.
1922    if not TabExists(NextTab) then NextTab := CT_COVER;
1923    if NextTab = CT_NOPAGE then NextTab := User.InitialTab;
1924    if NextTab = CT_ORDERS then
1925      if frmOrders <> nil then with frmOrders do
1926      begin
1927        if (lstSheets.ItemIndex > -1 ) and (TheCurrentView <> nil) and (theCurrentView.EventDelay.PtEventIFN>0) then
1928          PtEvtCompleted(TheCurrentView.EventDelay.PtEventIFN, TheCurrentView.EventDelay.EventName);
1929      end;
1930  end;