Procedure

LoadOrderViewDefault

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure LoadOrderViewDefault(AView: TOrderView);

Called-By Hierarchy


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

Called-By

Name Declaration Comments
TfrmOrders.DfltViewForEvtDelay procedure DfltViewForEvtDelay; -
TfrmOrders.InitOrderSheets2 procedure InitOrderSheets2(AnItem: string = ''); -
TfrmOrders.mnuViewDfltShowClick procedure mnuViewDfltShowClick(Sender: TObject); -


Source

807   procedure LoadOrderViewDefault(AView: TOrderView);
808   var
809     x: string;
810   begin
811     x := sCallV('ORWOR VWGET', [nil]);
812     with AView do
813     begin
814       Changed   := False;
815       DGroup    := StrToIntDef(Piece(x, ';', 4), 0);
816       Filter    := StrToIntDef(Piece(x, ';', 3), 0);
817       InvChrono := Piece(x, ';', 6) = 'R';
818       ByService := Piece(x, ';', 7) = '1';
819       TimeFrom  := StrToFloat(Piece(x, ';', 1));
820       TimeThru  := StrToFloat(Piece(x, ';', 2));
821       CtxtTime  := 0;
822       TextView  := 0;
823       ViewName  := Piece(x, ';', 8);
824       EventDelay.EventType := 'C';
825       EventDelay.Specialty := 0;
826       EventDelay.Effective := 0;
827     end;
828   end;