Procedure

TfrmODBase.OrderMessage

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Comments

Caller needs to set pnlMessage.TabOrder

Visibility

Public

Owner

TfrmODBase

Declaration

procedure OrderMessage(const AMessage: string);

Calls Hierarchy


TfrmODBase.OrderMessage
 └TfrmODBase.ShowOrderMessage

Called-By Hierarchy


                      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┘   

Calls

Name Declaration Comments
TfrmODBase.ShowOrderMessage procedure ShowOrderMessage(Show: boolean); -

Called-By

Name Declaration Comments
TfrmODLab.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODBBank.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODLab.cboCollSampChange procedure cboCollSampChange(Sender: TObject); -
TfrmODDiet.cboDietAvailMouseClick procedure cboDietAvailMouseClick(Sender: TObject); -
TfrmODMedIn.cboDispenseExit procedure cboDispenseExit(Sender: TObject); -
TfrmODMedOut.cboDispenseExit procedure cboDispenseExit(Sender: TObject); -
TfrmODMedIn.cboDispenseMouseClick procedure cboDispenseMouseClick(Sender: TObject); -
TfrmODMedOut.cboDispenseMouseClick procedure cboDispenseMouseClick(Sender: TObject); -
TfrmODDiet.cboOPDietAvailMouseClick procedure cboOPDietAvailMouseClick(Sender: TObject); -
TfrmODRad.cboProcedureSelect procedure cboProcedureSelect(Sender: TObject); -
TfrmODProc.cboProcSelect procedure cboProcSelect(Sender: TObject); -
TfrmODDiet.cboProductMouseClick procedure cboProductMouseClick(Sender: TObject); -
TfrmODMedOut.cboSCEnter procedure cboSCEnter(Sender: TObject); -
TfrmODCslt.cboServiceSelect procedure cboServiceSelect(Sender: TObject); -
TfrmODMedOut.memCommentsEnter procedure memCommentsEnter(Sender: TObject); -
TfrmODDiet.nbkDietChange procedure nbkDietChange(Sender: TObject); -
TfrmODMedIn.SetOnOISelect procedure SetOnOISelect; -
TfrmODMedOut.SetOnOISelect procedure SetOnOISelect; -
TfrmODBBank.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODMedOut.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODProc.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODRad.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODBBank.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODCslt.treServiceChange procedure treServiceChange(Sender: TObject; Node: TTreeNode); -
TfrmODCslt.treServiceExit procedure treServiceExit(Sender: TObject); -
TfrmODMedOut.txtQuantityEnter procedure txtQuantityEnter(Sender: TObject); -


Source

1323  procedure TfrmODBase.OrderMessage(const AMessage: string);
1324  {Caller needs to set pnlMessage.TabOrder}
1325  begin
1326    //TDP - Added pnlMessage.Caption for screen reader readability
1327    pnlMessage.Caption := 'Informational Message.';
1328    memMessage.Lines.SetText(PChar(AMessage));
1329    //begin CQ: 2640
1330    memMessage.SelStart := 0; // Put at first character
1331    SendMessage(memMessage.Handle, WM_VSCROLL, SB_TOP, 0);
1332    //End CQ: 2640
1333    ShowOrderMessage(ContainsVisibleChar(AMessage));
1334  end;