Function

IsPassEvt1

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function IsPassEvt1(AnEvtID: integer; AnEvtType: char): boolean;

Called-By Hierarchy


                                                  IsPassEvt1
                              TfrmODBase.OrderForInpatient┘ 
                               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┘     │   
                                    TfrmODMedIn.Validate┤   
                                   TfrmODProc.InitDialog┤   
                                 TfrmODProc.FormCreate┤ │   
                              TfrmODProc.cboProcSelect┘ │   
                                   TfrmODCslt.InitDialog┤   
                                 TfrmODCslt.FormCreate┘ │   
                                    TfrmODRad.InitDialog┤   
                                 TfrmODRad.SetupDialog┤ │   
                             TfrmODRad.ImageTypeChange┘ │   
                             TfrmODRad.cboImTypeExit┤   │   
                    TfrmODRad.cboImTypeDropDownClose┘   │   
                                     GetOrderingLocation┤   
                                    TfrmODRad.Validate┘ │   
                                TfrmODRad.cmdRemoveClick┤   
                                    TfrmODLab.FormCreate┤   
                                  TfrmODLab.LoadCollType┤   
                           TfrmODLab.cboCollSampChange┤ │   
                               TfrmODLab.SetupDialog┤ │ │   
                        TfrmODLab.cboAvailTestSelect┘ │ │   
                             TfrmODLab.SetupDialog┤   │ │   
                        TfrmODLab.cboAvailTestExit┘   │ │   
                 TfrmODLab.DetermineCollectionDefaults┘ │   
                               TfrmODLab.SetupDialog┤   │   
                     TfrmODLab.cboAvailTestSelect...┘   │   
                                      TfrmODLab.Validate┤   
                               TfrmODLab.cboCollTimeExit┤   
                                  TfrmODBBank.FormCreate┤   
                                 TfrmODBBank.ValidateAdd┤   
                                  TfrmODBBank.Validate┤ │   
                                  TfrmODBBank.ValidAdd┘ │   
                          TfrmODBBank.cmdAcceptClick┘   │   
                                TfrmODBBank.LoadCollType┤   
               TfrmODBBank.DetermineCollectionDefaults┘ │   
                      TfrmODBBank.cboAvailTestSelect┘   │   
                           TfrmODBBank.SetupDialog┤     │   
                      TfrmODBBank.cboAvailTestExit┘     │   
                      TfrmODMedIV.SetValuesFromResponses┤   
                               TfrmODMedIV.SetupDialog┤ │   
                     TfrmODMedIV.cboSolutionMouseClick┘ │   
                         TfrmODMedIV.cboSolutionExit┘   │   
                    TfrmODMedIV.cboSolutionMouseClick...┤   
                       TfrmODMedIV.cboAdditiveMouseClick┤   
                           TfrmODMedIV.cboAdditiveExit┘ │   
                                  TfrmODAuto.SetupDialog┤   
                                   TfrmODMeds.FormCreate┤   
                                   TfrmODDiet.FormCreate┤   
                                  TfrmODDiet.SetupDialog┤   
                                     TfrmODDiet.Validate┤   
                                             ..(rec)..┘ │   
                                TfrmODDiet.nbkDietChange┤   
                                 TfrmODDiet.InitDialog┤ │   
                                TfrmODDiet.SetupDialog┤ │   
                                             ..(rec)..┘ │   
                     TfrmODDiet.SetValuesFromResponsesTF┤   
                                TfrmODDiet.SetupDialog┤ │   
                       TfrmODDiet.cboProductMouseClick┘ │   
                           TfrmODDiet.cboProductExit┘   │   
                                     TfrmODDiet.TFChange┤   
                TfrmODDiet.SetValuesFromResponsesTF...┤ │   
                    TfrmODDiet.cboProductMouseClick...┤ │   
                          TfrmODDiet.cboStrengthChange┤ │   
                            TfrmODDiet.cboStrengthExit┤ │   
                          TfrmODDiet.txtQuantityChange┤ │   
                            TfrmODDiet.txtQuantityExit┤ │   
                           TfrmODDiet.cmdTFRemoveClick┘ │   
                     TfrmODDiet.SetValuesFromResponsesEL┤   
                                TfrmODDiet.SetupDialog┘ │   
                                 TfrmODDiet.grpMealClick┤   
                TfrmODDiet.SetValuesFromResponsesEL...┘ │   
                               TfrmODDiet.calELStartExit┤   
                                     TfrmODDiet.ELChange┤   
                TfrmODDiet.SetValuesFromResponsesEL...┤ │   
                            TfrmODDiet.grpMealClick...┤ │   
                           TfrmODDiet.calELStartChange┤ │   
                            TfrmODDiet.calELStopChange┘ │   
              TfrmODDiet.SetValuesFromResponsesEL...┘   │   
                                     TfrmODDiet.AOChange┤   
                   TfrmODDiet.SetValuesFromResponsesAO┘ │   
                              TfrmODDiet.SetupDialog┘   │   
                               TfrmODDiet.cmdAcceptClick┘   
                            TfrmODDiet.nbkDietChanging┘     

Called-By

Name Declaration Comments
TfrmODBase.OrderForInpatient function OrderForInpatient: Boolean; -


Source

2116  function IsPassEvt1(AnEvtID: integer; AnEvtType: char): boolean;
2117  var
2118    rst: integer;
2119  begin
2120    Result := False;
2121    rst := StrToIntDef(SCallV('OREVNTX1 ISPASS1',[AnEvtID, AnEvtType]),0);
2122    if rst = 1 then
2123      Result := True;
2124  end;