Function

ActiveOrdering

Module

uOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function ActiveOrdering: Boolean;

Called-By Hierarchy


                                               ActiveOrdering
                                               ChangeOrders┤ 
                             TfrmOrders.mnuActChangeClick┤ │ 
                               TfrmMeds.mnuActChangeClick┘ │ 
                                            ChangeOrdersEvt┤ 
                                      DestroyingOrderAction┤ 
                                           ActivateAction┘ │ 
                              TfrmRemDlg.btnFinishClick┤   │ 
              TfrmConsults.mnuActNewConsultRequestClick┤   │ 
                      TfrmConsults.cmdNewConsultClick┘ │   │ 
                               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┤ │   │     │ 
                 TfrmConsults.cmdNewProcClick┘ │ │   │     │ 
                       TfrmOrders.lstWriteClick┤ │   │     │ 
       TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │     │ 
                        TfrmMeds.mnuActNewClick┤ │   │     │ 
                   TfrmOMNavA.ActivateDialog...┤ │   │     │ 
                        TfrmOMSet.DoNextItem...┘ │   │     │ 
                          TfrmOMNavA.DoSelectList┘   │     │ 
                        TfrmOMNavA.grdMenuKeyUp┤     │     │ 
                      TfrmOMNavA.grdMenuMouseUp┘     │     │ 
                                           SkipToNext┤     │ 
                            TfrmOMSet.DoNextItem...┘ │     │ 
                               TfrmOMSet.UMDelayEvent┘     │ 
                                      DestroyingOrderDialog┤ 
                                        CreateOrderDialog┘ │ 
                                    ActivateOrderDialog┘   │ 
                            TfrmRemDlg.btnFinishClick┤     │ 
         TfrmConsults.mnuActNewConsultRequestClick...┤     │ 
              TfrmConsults.mnuActNewProcedureClick...┤     │ 
                                      ChangeOrders...┤     │ 
                                      ChangeOrdersEvt┤     │ 
                                           CopyOrders┤     │ 
                         TfrmOrders.mnuActCopyClick┤ │     │ 
                           TfrmMeds.mnuActCopyClick┤ │     │ 
                            TfrmODActive.btnOKClick┘ │     │ 
                                       TransferOrders┤     │ 
                         TfrmOrders.mnuActCopyClick┤ │     │ 
                           TfrmMeds.mnuActCopyClick┤ │     │ 
                            TfrmODActive.btnOKClick┘ │     │ 
                             TfrmOrders.lstWriteClick┤     │ 
             TfrmOrders.PlaceOrderForDefaultDialog...┤     │ 
                              TfrmMeds.mnuActNewClick┤     │ 
                         TfrmOMNavA.ActivateDialog...┤     │ 
                              TfrmOMSet.DoNextItem...┘     │ 
                                        DestroyingOrderHTML┤ 
                                   TfrmOMHTML.FormDestroy┘ │ 
                                        DestroyingOrderMenu┤ 
                                   TfrmOMNavA.FormDestroy┘ │ 
                                         DestroyingOrderSet┤ 
                                    TfrmOMSet.FormDestroy┘ │ 
                              TfrmOrders.AllowContextChange┤ 
                          TfrmFrame.AllowContextChangeAll┘ │ 
                               TfrmFrame.FormCloseQuery┤   │ 
                             TfrmFrame.mnuFileNextClick┤   │ 
                           TfrmFrame.mnuFileOpenClick┤ │   │ 
                               TfrmFrame.UMInitiate┤ │ │   │ 
                      TfrmFrame.mnuFileNextClick...┤ │ │   │ 
                      TfrmFrame.mnuFileRefreshClick┤ │ │   │ 
                      TfrmOrders.CheckOrderStatus┤ │ │ │   │ 
                  TfrmOrders.mnuActChgEvntClick┤ │ │ │ │   │ 
                     TfrmOrders.mnuActHoldClick┤ │ │ │ │   │ 
                   TfrmOrders.mnuActUnholdClick┤ │ │ │ │   │ 
                    TfrmOrders.mnuActRenewClick┤ │ │ │ │   │ 
                   TfrmOrders.mnuActChangeClick┤ │ │ │ │   │ 
                     TfrmOrders.mnuActCopyClick┘ │ │ │ │   │ 
                           TfrmMeds.mnuActDCClick┤ │ │ │   │ 
                          TfrmMeds.CheckMedStatus┘ │ │ │   │ 
                       TfrmMeds.mnuActHoldClick┤   │ │ │   │ 
                      TfrmMeds.mnuActRenewClick┤   │ │ │   │ 
                     TfrmMeds.mnuActUnholdClick┤   │ │ │   │ 
                     TfrmMeds.mnuActChangeClick┤   │ │ │   │ 
                       TfrmMeds.mnuActCopyClick┤   │ │ │   │ 
                     TfrmMeds.mnuActRefillClick┘   │ │ │   │ 
                                 TfrmFrame.ViewInfo┘ │ │   │ 
                              TfrmDCSumm.ViewInfo┤   │ │   │ 
                            TfrmConsults.ViewInfo┤   │ │   │ 
                    TfrmFrame.pnlRemindersMouseUp┤   │ │   │ 
                     TfrmFrame.RemindersChanged┘ │   │ │   │ 
                         TfrmFrame.FormCreate┘   │   │ │   │ 
                           TfrmFrame.pnlCIRNClick┤   │ │   │ 
                     TfrmFrame.pnlVistaWebClick┤ │   │ │   │ 
                          TfrmFrame.FormKeyDown┘ │   │ │   │ 
                        TfrmFrame.pnlPatientClick┤   │ │   │ 
                          TfrmFrame.pnlVisitClick┤   │ │   │ 
                    TfrmFrame.pnlPrimaryCareClick┤   │ │   │ 
                      TfrmFrame.pnlRemindersClick┤   │ │   │ 
                       TfrmFrame.pnlPostingsClick┤   │ │   │ 
                           TfrmFrame.pnlFlagClick┤   │ │   │ 
                             TfrmFrame.laMHVClick┤   │ │   │ 
                            TfrmFrame.laVAA2Click┤   │ │   │ 
                              TfrmOrders.ViewInfo┤   │ │   │ 
                                TfrmMeds.ViewInfo┤   │ │   │ 
                             TfrmSurgery.ViewInfo┤   │ │   │ 
                               TfrmNotes.ViewInfo┤   │ │   │ 
                            TfrmProblems.ViewInfo┘   │ │   │ 
                    TfrmFrame.mnuFileNotifRemoveClick┤ │   │ 
                            TfrmFrame.NextButtonClick┘ │   │ 
                          TfrmFrame.SetUpNextButton┘   │   │ 
                    TfrmFrame.mnuFileOpenClick...┤     │   │ 
                             TfrmFrame.FormResize┘     │   │ 
                           TfrmFrame.ChangeFont┘       │   │ 
                   TfrmFrame.LoadSizesForUser┤         │   │ 
              TfrmFrame.LoadUserPreferences┘ │         │   │ 
                     TfrmFrame.UMInitiate┘   │         │   │ 
                   TfrmFrame.mnuFontSizeClick┘         │   │ 
                          TfrmFrame.mnuFileOpenClick...┤   │ 
                          TfrmFrame.ctxContextorPending┤   │ 
                         TfrmFrame.StartCCOWContextor┘ │   │ 
                               TfrmFrame.FormCreate┘   │   │ 
                        TfrmFrame.ctxContextorCommitted┤   │ 
                      TfrmFrame.StartCCOWContextor...┘ │   │ 
                 TfrmFrame.mnuFileResumeContextGetClick┤   │ 
                 TfrmFrame.mnuFileResumeContextSetClick┘   │ 
                              TfrmOrders.CanChangeOrderView┤ 
                                  TfrmOrders.SetOrderView┤ │ 
                          TfrmOrders.mnuViewActiveClick┤ │ │ 
                         TfrmOrders.mnuViewCurrentClick┤ │ │ 
                        TfrmOrders.mnuViewExpiringClick┤ │ │ 
                         TfrmOrders.mnuViewExpiredClick┤ │ │ 
                        TfrmOrders.mnuViewUnsignedClick┤ │ │ 
                      TfrmOrders.ProcessNotifications┘ │ │ │ 
                             TfrmOrders.DisplayPage┘   │ │ │ 
                           TfrmOrders.ViewAlertedOrders┘ │ │ 
                   TfrmOrders.ProcessNotifications...┘   │ │ 
                            TfrmOrders.mnuViewCustomClick┤ │ 
                          TfrmOrders.mnuViewDfltShowClick┤ │ 
                                 TfrmOrders.DisplayPage┘ │ │ 
                           TfrmOrders.DfltViewForEvtDelay┤ │ 
                  TfrmOrders.InitOrderSheetsForEvtDelay┘ │ │ 
                            TfrmOrders.lstSheetsClick┤   │ │ 
                       TfraEvntDelayList.CheckMatch┤ │   │ │ 
                          TfrmOrdersTS.cmdOKClick┘ │ │   │ │ 
TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick┤   │ │   │ │ 
                       TfrmOrdersTS.FormKeyDown┘   │ │   │ │ 
                 TfraEvntDelayList.mlstEventsChange┤ │   │ │ 
   TfrmOrdersTS.fraEvntDelayListcboEvntListChange┤ │ │   │ │ 
    TfrmOrdersTS.fraEvntDelayListmlstEventsChange┤ │ │   │ │ 
    TfrmMedCopy.fraEvntDelayListcboEvntListChange┤ │ │   │ │ 
     TfrmMedCopy.fraEvntDelayListmlstEventsChange┤ │ │   │ │ 
 TfrmCopyOrders.fraEvntDelayListcboEvntListChange┤ │ │   │ │ 
  TfrmCopyOrders.fraEvntDelayListmlstEventsChange┘ │ │   │ │ 
                 TfrmOrders.mnuViewDfltShowClick...┤ │   │ │ 
                                          ..(rec)..┤ │   │ │ 
                           TfrmOrders.lstWriteClick┤ │   │ │ 
                         TfrmOrders.mnuActCopyClick┤ │   │ │ 
                         TfrmOrders.mnuActSignClick┤ │   │ │ 
                       TfrmOrders.ResetOrderPage...┤ │   │ │ 
           TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │ │ 
                           TfrmOrders.ClickLstSheet┤ │   │ │ 
            TfraEvntDelayList.mlstEventsChange...┤ │ │   │ │ 
                     TfrmOrders.ResetOrderPage...┤ │ │   │ │ 
                        ExecuteReleaseEventOrders┘ │ │   │ │ 
                      TfrmOrders.mnuActRelClick┘   │ │   │ │ 
                        TfrmOrders.InitOrderSheets2┤ │   │ │ 
                     TfrmFrame.mnuFileReviewClick┘ │ │   │ │ 
                          TfrmOrders.PtEvtCompleted┤ │   │ │ 
                       TfrmFrame.DetermineNextTab┤ │ │   │ │ 
                  TfrmFrame.mnuFileOpenClick...┤ │ │ │   │ │ 
                    TfrmFrame.UpdateCCOWContext┘ │ │ │   │ │ 
                TfrmFrame.mnuFileOpenClick...┤   │ │ │   │ │ 
           TfrmFrame.ctxContextorCommitted...┤   │ │ │   │ │ 
       TfrmFrame.mnuFileResumeContextGetClick┘   │ │ │   │ │ 
                     TfrmFrame.mnuFileReviewClick┤ │ │   │ │ 
                     TfrmOrders.lstSheetsClick...┤ │ │   │ │ 
                         TfrmOrders.lstWriteClick┤ │ │   │ │ 
                         TfrmOrders.mnuActDCClick┤ │ │   │ │ 
                    TfrmOrders.mnuActChgEvntClick┤ │ │   │ │ 
                       TfrmOrders.mnuActHoldClick┤ │ │   │ │ 
                       TfrmOrders.mnuActFlagClick┤ │ │   │ │ 
                    TfrmOrders.mnuActCommentClick┤ │ │   │ │ 
                     TfrmOrders.mnuActChangeClick┤ │ │   │ │ 
                       TfrmOrders.mnuActCopyClick┤ │ │   │ │ 
                       TfrmOrders.mnuActSignClick┤ │ │   │ │ 
                  TfrmOrders.btnDelayedOrderClick┤ │ │   │ │ 
                         TfrmMeds.mnuActCopyClick┤ │ │   │ │ 
                          TfrmODActive.btnOKClick┘ │ │   │ │ 
                            TfrmOrders.UMEventOccur┤ │   │ │ 
                           TfrmMeds.mnuActCopyClick┤ │   │ │ 
                            TfrmMeds.mnuActNewClick┤ │   │ │ 
                             SetDelayEventForMed...┤ │   │ │ 
                                  SetViewForCopy...┤ │   │ │ 
                          TfrmCopyOrders.cmdOKClick┤ │   │ │ 
                      TfrmCopyOrders.UMStillDelay┤ │ │   │ │ 
TfrmCopyOrders.fraEvntDelayListmlstEventsDblClick┤ │ │   │ │ 
                       TfrmCopyOrders.FormKeyDown┘ │ │   │ │ 
                                ExecuteChangeEvt...┤ │   │ │ 
                                    ExecuteDCOrders┘ │   │ │ 
                         TfrmOrders.mnuActDCClick┤   │   │ │ 
                           TfrmMeds.mnuActDCClick┘   │   │ │ 
                             TfrmOrders.lstWriteClick┤   │ │ 
                           TfrmOrders.mnuActCopyClick┤   │ │ 
                           TfrmOrders.mnuActSignClick┤   │ │ 
                         TfrmOrders.PtEvtCompleted...┤   │ │ 
                        TfrmOrders.RefreshToFirstItem┤   │ │ 
                              TfrmOrders.UMEventOccur┤   │ │ 
                             TfrmMeds.mnuActCopyClick┤   │ │ 
                                            Highlight┤   │ │ 
                             SetDelayEventForMed...┘ │   │ │ 
                                            Highlight┤   │ │ 
                                  SetViewForCopy...┘ │   │ │ 
                         ExecuteReleaseEventOrders...┤   │ │ 
                                  ExecuteChangeEvt...┤   │ │ 
                               TfrmChgEvent.Highlight┤   │ │ 
                                ExecuteChangeEvt...┘ │   │ │ 
                                   ExecuteDCOrders...┘   │ │ 
                     TfrmOrders.EventRealeasedOrder1Click┘ │ 
                                   TfrmOrders.lstWriteClick┤ 
                   TfrmOrders.PlaceOrderForDefaultDialog...┘ 

Called-By

Name Declaration Comments
TfrmOrders.AllowContextChange function AllowContextChange(var WhyNot: string): Boolean; override; -
TfrmOrders.CanChangeOrderView function CanChangeOrderView: Boolean; -
ChangeOrders procedure ChangeOrders(AList: TStringList; AnEvent: TOrderDelayEvent); -
ChangeOrdersEvt function ChangeOrdersEvt(AnOrderID: string; AnEvent: TOrderDelayEvent): boolean; -
DestroyingOrderAction procedure DestroyingOrderAction; -
DestroyingOrderDialog procedure DestroyingOrderDialog; -
DestroyingOrderHTML procedure DestroyingOrderHTML; -
DestroyingOrderMenu procedure DestroyingOrderMenu; -
DestroyingOrderSet procedure DestroyingOrderSet; -
TfrmOrders.lstWriteClick procedure lstWriteClick(Sender: TObject); -
TfrmOrders.PlaceOrderForDefaultDialog function PlaceOrderForDefaultDialog(ADlgInfo: string; IsDefaultDialog: boolean; AEvent: TOrderDelayEvent): boolean; -


Source

1525  function ActiveOrdering: Boolean;
1526  begin
1527    if (uOrderDialog = nil) and (uOrderMenu = nil) and (uOrderSet = nil) and
1528       (uOrderAction = nil) and (uOrderHTML = nil)
1529      then Result := False
1530      else Result := True;
1531  end;