Procedure

LoadOrdersAbbr

Directives

Overload

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure LoadOrdersAbbr(DestDC,DestRL: TList; AView: TOrderView; APtEvtID: string); overload;

Calls Hierarchy


LoadOrdersAbbr
 ├LoadDGroupMap
 ├FMNow
 └SeqOfDGroup
   └LoadDGroupMap

Called-By Hierarchy


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

Calls

Name Declaration Comments
FMNow function FMNow: TFMDateTime; -
LoadDGroupMap procedure LoadDGroupMap; -
SeqOfDGroup function SeqOfDGroup(IEN: Integer): Integer; -

Called-By

Name Declaration Comments
TfrmOrders.RefreshOrderList procedure RefreshOrderList(FromServer: Boolean; APtEvtID: string = ''); -


Source

732   procedure LoadOrdersAbbr(DestDC,DestRL: TList; AView: TOrderView; APtEvtID: string);
733   var
734     i: Integer;
735     AnOrder: TOrder;
736     FilterTS: string;
737     DCStart: boolean;
738   begin
739     DCStart := False;
740     if uDGroupMap = nil then LoadDGroupMap;
741     FilterTS := IntToStr(AView.Filter) + U + IntToStr(AView.EventDelay.Specialty);
742     CallV('ORWORR RGET', [Patient.DFN, FilterTS, AView.DGroup, AView.TimeFrom, AView.TimeThru, APtEvtID]);
743     if RPCBrokerV.Results[0] = '0' then   // if no orders found (0 element is count)
744     begin
745       AnOrder := TOrder.Create;
746       with AnOrder do
747       begin
748         ID := '0';
749         DGroup := 0;
750         OrderTime := FMNow;
751         Status := 97;
752         Text := 'No orders found.';
753         Retrieved := True;
754       end;
755       DestDC.Add(AnOrder);
756       Exit;
757     end;
758     AView.TextView := StrToIntDef(Piece(RPCBrokerV.Results[0], U, 2), 0);
759     AView.CtxtTime := MakeFMDateTime(Piece(RPCBrokerV.Results[0], U, 3));
760     with RPCBrokerV do for i := 1 to Results.Count - 1 do   // if orders found (skip 0 element)
761     begin
762       if AnsiCompareText('DC START', Results[i]) = 0 then
763       begin
764         DCStart := True;
765         Continue;
766       end;
767       AnOrder := TOrder.Create;
768       with AnOrder do
769       begin
770         ID := Piece(Results[i], U, 1);
771         DGroup := StrToIntDef(Piece(Results[i], U, 2), 0);
772         OrderTime := MakeFMDateTime(Piece(Results[i], U, 3));
773         EventPtr  := Piece(Results[i],U,4);
774         EventName := Piece(Results[i],U,5);
775         DGroupSeq  := SeqOfDGroup(DGroup);
776       end;
777       if DCStart then
778         DestDC.Add(AnOrder)
779       else
780         DestRL.Add(AnOrder);
781     end;
782   end;