Procedure

TfrmODBase.ShowOrderMessage

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Visibility

Protected

Owner

TfrmODBase

Declaration

procedure ShowOrderMessage(Show: boolean);

Called-By Hierarchy


                                     TfrmODBase.ShowOrderMessage
                                TfrmODBase.ClearDialogControls┤ 
                                       TfrmODBase.InitDialog┤ │ 
                                      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┘ │ │ │ 
                              TfrmODBase.cmdAcceptClick...┤ │ │ 
                                       TfrmODBase.TabClose┘ │ │ 
                                     TfrmODBase.ValidSave...┤ │ 
                                TfrmODBase.cmdAcceptClick...┘ │ 
                                       TfrmODBase.OrderMessage┤ 
                                   TfrmODMedIn.SetOnOISelect┤ │ 
                                   TfrmODMedIn.SetupDialog┤ │ │ 
                           TfrmODMedIn.cboMedicationSelect┘ │ │ 
                                TfrmODMedIn.CheckFormAlt┘   │ │ 
                           TfrmODMedIn.cboDispenseExit┤     │ │ 
                     TfrmODMedIn.cboDispenseMouseClick┘     │ │ 
                  TfrmODMedIn.cboMedicationSelect...┘       │ │ 
                                 TfrmODMedIn.cboDispenseExit┤ │ 
                        TfrmODMedIn.cboDispenseMouseClick...┤ │ 
                                    TfrmODMedOut.SetupDialog┤ │ 
                                  TfrmODMedOut.SetOnOISelect┤ │ 
                                  TfrmODMedOut.SetupDialog┤ │ │ 
                          TfrmODMedOut.cboMedicationSelect┘ │ │ 
                               TfrmODMedOut.CheckFormAlt┘   │ │ 
                          TfrmODMedOut.cboDispenseExit┤     │ │ 
                    TfrmODMedOut.cboDispenseMouseClick┘     │ │ 
                 TfrmODMedOut.cboMedicationSelect...┘       │ │ 
                                TfrmODMedOut.cboDispenseExit┤ │ 
                       TfrmODMedOut.cboDispenseMouseClick...┤ │ 
                               TfrmODMedOut.txtQuantityEnter┤ │ 
                                     TfrmODMedOut.cboSCEnter┤ │ 
                               TfrmODMedOut.memCommentsEnter┤ │ 
                                      TfrmODProc.SetupDialog┤ │ 
                                    TfrmODProc.cboProcSelect┤ │ 
                                 TfrmODCslt.treServiceChange┤ │ 
                              TfrmODCslt.treServiceKeyDown┘ │ │ 
                                   TfrmODCslt.treServiceExit┤ │ 
                                 TfrmODCslt.cboServiceSelect┤ │ 
                                 TfrmODCslt.cboServiceExit┘ │ │ 
                                       TfrmODRad.SetupDialog┤ │ 
                                TfrmODRad.cboProcedureSelect┤ │ 
                                TfrmODRad.cboProcedureExit┘ │ │ 
                                TfrmODLab.cboAvailTestSelect┤ │ 
                                     TfrmODLab.SetupDialog┤ │ │ 
                                TfrmODLab.cboAvailTestExit┘ │ │ 
                                 TfrmODLab.cboCollSampChange┤ │ 
                                     TfrmODLab.SetupDialog┤ │ │ 
                           TfrmODLab.cboAvailTestSelect...┘ │ │ 
                                     TfrmODBBank.SetupDialog┤ │ 
                                 TfrmODBBank.SetOnQuickOrder┤ │ 
                                 TfrmODBBank.cboQuickClick┘ │ │ 
                              TfrmODBBank.cboAvailTestSelect┤ │ 
                                   TfrmODBBank.SetupDialog┤ │ │ 
                              TfrmODBBank.cboAvailTestExit┘ │ │ 
                                    TfrmODDiet.nbkDietChange┤ │ 
                                     TfrmODDiet.InitDialog┤ │ │ 
                                    TfrmODDiet.SetupDialog┤ │ │ 
                                                 ..(rec)..┘ │ │ 
                           TfrmODDiet.cboDietAvailMouseClick┤ │ 
                               TfrmODDiet.cboDietAvailExit┘ │ │ 
                             TfrmODDiet.cboProductMouseClick┤ │ 
                                 TfrmODDiet.cboProductExit┘ │ │ 
                         TfrmODDiet.cboOPDietAvailMouseClick┘ │ 
                               TfrmODDiet.nbkDietChange...┤   │ 
                             TfrmODDiet.cboOPDietAvailExit┤   │ 
                          TfrmODDiet.cboOPDietAvailKeyDown┘   │ 
                                  TfrmODBase.memMessageMouseUp┤ 
                                     TfrmODBase.pnlMessageExit┘ 

Called-By

Name Declaration Comments
TfrmODBase.ClearDialogControls procedure ClearDialogControls; -
TfrmODBase.memMessageMouseUp procedure memMessageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); -
TfrmODBase.OrderMessage procedure OrderMessage(const AMessage: string); -
TfrmODBase.pnlMessageExit procedure pnlMessageExit(Sender: TObject); -


Source

1307  procedure TfrmODBase.ShowOrderMessage(Show: boolean);
1308  begin
1309    if Show then
1310    begin
1311      pnlMessage.Visible := True;
1312      pnlMessage.BringToFront;
1313      memMessage.TabStop := True;
1314    end
1315    else
1316    begin
1317      pnlMessage.Visible := False;
1318      pnlMessage.SendToBack;
1319      memMessage.TabStop := False;
1320    end;
1321  end;