Function

IsPassEvt

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function IsPassEvt(APtEvtID: integer; APtEvtType: char): boolean;

Called-By Hierarchy


                                                 IsPassEvt
                                   ResetDialogProperties┘ 
                                   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┘       

Called-By

Name Declaration Comments
ResetDialogProperties procedure ResetDialogProperties(const AnID: string; AnEvent: TOrderDelayEvent; var ResolvedDialog: TOrderDialogResolved); -


Source

2106  function IsPassEvt(APtEvtID: integer; APtEvtType: char): boolean;
2107  var
2108    rst: integer;
2109  begin
2110    Result := False;
2111    rst := StrToIntDef(SCallV('OREVNTX1 ISPASS',[APtEvtID, APtEvtType]),0);
2112    if rst = 1 then
2113      Result := True;
2114  end;