Function

EventInfo

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

Ptr to #100.2

Scope

Interfaced

Declaration

function EventInfo(APtEvtID: string): string; // ptr to #100.2

Called-By Hierarchy


                                                     EventInfo
                                        TResponses.SaveOrder┤ 
                                      TfrmODBase.ValidSave┘ │ 
                               TfrmODBase.cmdAcceptClick┤   │ 
                                   ActivateOrderDialog┘ │   │ 
                           TfrmRemDlg.btnFinishClick┤   │   │ 
           TfrmConsults.mnuActNewConsultRequestClick┤   │   │ 
                   TfrmConsults.cmdNewConsultClick┘ │   │   │ 
                TfrmConsults.mnuActNewProcedureClick┤   │   │ 
                      TfrmConsults.cmdNewProcClick┘ │   │   │ 
                                        ChangeOrders┤   │   │ 
                      TfrmOrders.mnuActChangeClick┤ │   │   │ 
                        TfrmMeds.mnuActChangeClick┘ │   │   │ 
                                     ChangeOrdersEvt┤   │   │ 
                                          CopyOrders┤   │   │ 
                        TfrmOrders.mnuActCopyClick┤ │   │   │ 
                          TfrmMeds.mnuActCopyClick┤ │   │   │ 
                           TfrmODActive.btnOKClick┘ │   │   │ 
                                      TransferOrders┤   │   │ 
                        TfrmOrders.mnuActCopyClick┤ │   │   │ 
                          TfrmMeds.mnuActCopyClick┤ │   │   │ 
                           TfrmODActive.btnOKClick┘ │   │   │ 
                            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...┤ │   │     │   │ 
                    TfrmOrders.lstWriteClick┤ │   │     │   │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │     │   │ 
                     TfrmMeds.mnuActNewClick┤ │   │     │   │ 
                TfrmOMNavA.ActivateDialog...┤ │   │     │   │ 
                     TfrmOMSet.DoNextItem...┘ │   │     │   │ 
                       TfrmOMNavA.DoSelectList┘   │     │   │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │     │   │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │     │   │ 
                                        SkipToNext┤     │   │ 
                         TfrmOMSet.DoNextItem...┘ │     │   │ 
                            TfrmOMSet.UMDelayEvent┘     │   │ 
                               TfrmODBase.FormCloseQuery┤   │ 
                                     TfrmODBase.TabClose┤   │ 
                            TfrmODAllergy.cmdAcceptClick┘   │ 
                                      ActivateOrderDialog...┤ 
                                  TfrmOrders.InitOrderSheets┤ 
                                    TfrmOrders.DisplayPage┤ │ 
                     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┤ │ │ │ 
                              TfrmOrders.DisplayPage┘ │ │ │ │ 
                                             ..(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.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...┘ │ 
                               TfrmODActive.LoadActiveOrders┤ 
                                   CopyActiveOrdersToEvent┘ │ 
                            TfrmOrders.ResetOrderPage...┤   │ 
                     TfrmOrders.DisplayDefaultDlgList...┘   │ 
                   TfrmOrdersEvntRelease.grdEvtListMouseDown┤ 
                            TfrmOrdersEvntRelease.btnOKClick┤ 
                  TfrmOrdersEvntRelease.grdEvtListKeyPress┤ │ 
                  TfrmOrdersEvntRelease.grdEvtListDblClick┘ │ 
                    TfrmOrdersEvntRelease.grdEvtListKeyPress┤ 
                                         ExecuteChangeEvt...┤ 
                                          ExecuteDCOrders...┘ 

Called-By

Name Declaration Comments
ActivateOrderDialog function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; -
TfrmOrdersEvntRelease.btnOKClick procedure btnOKClick(Sender: TObject); -
ExecuteChangeEvt function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): boolean; -
ExecuteDCOrders function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean; -
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; -
TfrmODActive.LoadActiveOrders procedure LoadActiveOrders; -
TResponses.SaveOrder procedure SaveOrder(var AnOrder: TOrder; DlgIEN: Integer; IsIMOOrder: boolean = False); -


Source

528   function EventInfo(APtEvtID: string): string;
529   begin
530     Result := SCallV('OREVNTX1 GTEVT', [APtEvtID]);
531   end;