Function

isExistedEvent

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function isExistedEvent(const APtDFN: string; const AEvtID: string; var APtEvtID: string): Boolean;

Called-By Hierarchy


                                      isExistedEvent
                                  ActivateOrderSet┤ 
                       TfrmRemDlg.btnFinishClick┤ │ 
       TfrmConsults.mnuActNewConsultRequestClick┤ │ 
               TfrmConsults.cmdNewConsultClick┘ │ │ 
            TfrmConsults.mnuActNewProcedureClick┤ │ 
                  TfrmConsults.cmdNewProcClick┘ │ │ 
                        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...┤   │   │ 
                   TfrmOMNavA.DoSelectList┘   │   │ 
                 TfrmOMNavA.grdMenuKeyUp┤     │   │ 
               TfrmOMNavA.grdMenuMouseUp┘     │   │ 
                                    SkipToNext┤   │ 
                     TfrmOMSet.DoNextItem...┘ │   │ 
                        TfrmOMSet.UMDelayEvent┘   │ 
                                  ReadyForNewOrder┤ 
                       TfrmRemDlg.btnFinishClick┤ │ 
    TfrmConsults.mnuActNewConsultRequestClick...┤ │ 
         TfrmConsults.mnuActNewProcedureClick...┤ │ 
                                    ChangeOrders┤ │ 
                  TfrmOrders.mnuActChangeClick┤ │ │ 
                    TfrmMeds.mnuActChangeClick┘ │ │ 
                                 ChangeOrdersEvt┤ │ 
                                      CopyOrders┤ │ 
                    TfrmOrders.mnuActCopyClick┤ │ │ 
                      TfrmMeds.mnuActCopyClick┤ │ │ 
                       TfrmODActive.btnOKClick┘ │ │ 
                                  TransferOrders┤ │ 
                    TfrmOrders.mnuActCopyClick┤ │ │ 
                      TfrmMeds.mnuActCopyClick┤ │ │ 
                       TfrmODActive.btnOKClick┘ │ │ 
                        TfrmOrders.lstWriteClick┤ │ 
                         TfrmMeds.mnuActNewClick┘ │ 
                TfraEvntDelayList.mlstEventsChange┤ 
  TfrmOrdersTS.fraEvntDelayListcboEvntListChange┤ │ 
   TfrmOrdersTS.fraEvntDelayListmlstEventsChange┤ │ 
   TfrmMedCopy.fraEvntDelayListcboEvntListChange┤ │ 
    TfrmMedCopy.fraEvntDelayListmlstEventsChange┤ │ 
TfrmCopyOrders.fraEvntDelayListcboEvntListChange┤ │ 
 TfrmCopyOrders.fraEvntDelayListmlstEventsChange┘ │ 
                        TfrmOrders.mnuActCopyClick┤ 
                      TfrmOrders.ResetOrderPage...┤ 
               TfrmOrders.DisplayDefaultDlgList...┤ 
                          TfrmMeds.mnuActCopyClick┤ 
                            SetDelayEventForMed...┤ 
                                 SetViewForCopy...┤ 
                               ExecuteChangeEvt...┤ 
                                   ExecuteDCOrders┘ 
                        TfrmOrders.mnuActDCClick┤   
                          TfrmMeds.mnuActDCClick┘   

Called-By

Name Declaration Comments
ActivateOrderSet function ActivateOrderSet(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer): Boolean; -
TfrmOrders.DisplayDefaultDlgList function DisplayDefaultDlgList(ADest: TORListBox; ADlgList: TStringList): boolean; -
ExecuteChangeEvt function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): boolean; -
ExecuteDCOrders function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean; -
TfraEvntDelayList.mlstEventsChange procedure mlstEventsChange(Sender: TObject); -
TfrmOrders.mnuActCopyClick procedure mnuActCopyClick(Sender: TObject); -
TfrmMeds.mnuActCopyClick procedure mnuActCopyClick(Sender: TObject); -
ReadyForNewOrder function ReadyForNewOrder(AnEvent: TOrderDelayEvent): Boolean; -
TfrmOrders.ResetOrderPage procedure ResetOrderPage(AnEvent: TOrderDelayEvent; ADlgLst: TStringList; IsRealeaseNow: boolean); -
SetDelayEventForMed function SetDelayEventForMed(const RadCap: string; var ADelayEvent: TOrderDelayEvent; var IsNewEvent: Boolean; LimitEvent: Char): Boolean; -
SetViewForCopy function SetViewForCopy(var IsNewEvent: boolean; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): Boolean; -


Source

2006  function isExistedEvent(const APtDFN: string; const AEvtID: string; var APtEvtID: string): Boolean;
2007  begin
2008    Result := False;
2009    APtEvtID := SCallV('OREVNTX1 EXISTS', [APtDFN,AEvtID]);
2010    if StrToIntDef(APtEvtID,0) > 0 then
2011     Result := True;
2012  end;