Procedure

LoadWriteOrdersED

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure LoadWriteOrdersED(Dest: TStrings; EvtID: string);

Called-By Hierarchy


                                      LoadWriteOrdersED
                            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┤   
                           TfrmOrders.DisplayPage┘ │   
                                          ..(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┘     

Called-By

Name Declaration Comments
TfrmOrders.lstSheetsClick procedure lstSheetsClick(Sender: TObject); -


Source

1333  procedure LoadWriteOrdersED(Dest: TStrings; EvtID: string);
1334  begin
1335    CallV('OREVNTX1 WRLSTED', [Encounter.Location,EvtID]);
1336    if RPCBrokerV.Results.count > 0 then
1337    begin
1338      Dest.Clear;
1339    FastAssign(RPCBrokerV.Results, Dest);
1340    end
1341  end;