Function

DGroupAll

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

Display Group & List functions

Scope

Interfaced

Declaration

function DGroupAll: Integer;

Called-By Hierarchy


                                                DGroupAll
                            TfrmOrders.RefreshOrderList┤ 
                               TfrmOrders.NotifyOrder┤ │ 
                               TfrmFrame.UMNewOrder┘ │ │ 
                              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.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.btnDelayedOrderClick┘ │ │ │ 
              TfrmOrders.PlaceOrderForDefaultDialog┤ │ │ 
                 TfrmOrders.DisplayDefaultDlgList┤ │ │ │ 
                   TfrmOrders.ResetOrderPage...┘ │ │ │ │ 
                                DisplayEvntDialog┤ │ │ │ 
                            SetDelayEventForMed┘ │ │ │ │ 
                     TfrmMeds.mnuActCopyClick┘   │ │ │ │ 
                                DisplayEvntDialog┤ │ │ │ 
                                 SetViewForCopy┘ │ │ │ │ 
                   TfrmOrders.mnuActCopyClick┘   │ │ │ │ 
                                DisplayEvntDialog┘ │ │ │ 
                               ExecuteChangeEvt┘   │ │ │ 
                TfrmOrders.mnuActChgEvntClick┘     │ │ │ 
                           TfrmOrders.ClickLstSheet┤ │ │ 
            TfraEvntDelayList.mlstEventsChange...┤ │ │ │ 
                     TfrmOrders.ResetOrderPage...┤ │ │ │ 
                        ExecuteReleaseEventOrders┘ │ │ │ 
                      TfrmOrders.mnuActRelClick┘   │ │ │ 
                        TfrmOrders.InitOrderSheets2┤ │ │ 
                     TfrmFrame.mnuFileReviewClick┘ │ │ │ 
                          TfrmOrders.PtEvtCompleted┤ │ │ 
                       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┘   │ │ │ │ 
                     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.SaveSignOrders┤ │ 
                          TfrmOrders.NotifyOrder...┘ │ │ 
                           TfrmOrders.mnuActSignClick┤ │ 
                 TfrmOrders.EventRealeasedOrder1Click┤ │ 
                         TfrmOrders.ResetOrderPage...┤ │ 
                         TfrmOrders.PtEvtCompleted...┤ │ 
                        TfrmOrders.RefreshToFirstItem┤ │ 
                              TfrmOrders.UMEventOccur┤ │ 
                          TfrmOrders.hdrOrdersMouseUp┘ │ 
                          TfrmOrders.mnuViewActiveClick┤ 
                         TfrmOrders.mnuViewCurrentClick┤ 
                        TfrmOrders.mnuViewExpiringClick┤ 
                         TfrmOrders.mnuViewExpiredClick┤ 
                     TfrmOrders.mnuViewUnsignedClick...┤ 
                             TfrmOrders.InitOrderSheets┤ 
                               TfrmOrders.DisplayPage┤ │ 
                TfrmOrders.InitOrderSheetsForEvtDelay┤ │ 
                       TfrmOrders.lstSheetsClick...┤ │ │ 
                           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.InitOrderSheets2...┘ │ 
                        TfrmOrders.ViewAlertedOrders...┤ 
                   TfrmOrders.EventRealeasedOrder1Click┤ 
                           TfrmOrders.ResetOrderPage...┤ 
              TfrmOrdersEvntRelease.grdEvtListMouseDown┤ 
                       TfrmOrdersEvntRelease.btnOKClick┤ 
             TfrmOrdersEvntRelease.grdEvtListKeyPress┤ │ 
             TfrmOrdersEvntRelease.grdEvtListDblClick┘ │ 
               TfrmOrdersEvntRelease.grdEvtListKeyPress┘ 

Called-By

Name Declaration Comments
TfrmOrdersEvntRelease.btnOKClick procedure btnOKClick(Sender: TObject); -
TfrmOrders.EventRealeasedOrder1Click procedure EventRealeasedOrder1Click(Sender: TObject); -
TfrmOrdersEvntRelease.grdEvtListKeyPress procedure grdEvtListKeyPress(Sender: TObject; var Key: Char); -
TfrmOrdersEvntRelease.grdEvtListMouseDown procedure grdEvtListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); -
TfrmOrders.InitOrderSheets procedure InitOrderSheets; -
TfrmOrders.mnuViewActiveClick procedure mnuViewActiveClick(Sender: TObject); -
TfrmOrders.mnuViewCurrentClick procedure mnuViewCurrentClick(Sender: TObject); -
TfrmOrders.mnuViewExpiredClick procedure mnuViewExpiredClick(Sender: TObject); -
TfrmOrders.mnuViewExpiringClick procedure mnuViewExpiringClick(Sender: TObject); -
TfrmOrders.mnuViewUnsignedClick procedure mnuViewUnsignedClick(Sender: TObject); -
TfrmOrders.RefreshOrderList procedure RefreshOrderList(FromServer: Boolean; APtEvtID: string = ''); -
TfrmOrders.ResetOrderPage procedure ResetOrderPage(AnEvent: TOrderDelayEvent; ADlgLst: TStringList; IsRealeaseNow: boolean); -
TfrmOrders.ViewAlertedOrders procedure ViewAlertedOrders(OrderIEN: string; Status: integer; DispGrp: string; BySvc, InvDate: boolean; Title: string); -


Source

1027  function DGroupAll: Integer;
1028  var
1029    x: string;
1030  begin
1031    if uDGroupAll = 0 then
1032    begin
1033      x := sCallV('ORWORDG IEN', ['ALL']);
1034      uDGroupAll := StrToIntDef(x, 1);
1035    end;
1036    Result := uDGroupAll;
1037  end;