Procedure

TfrmODMeds.DispOrderMessage

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMeds

Declaration

procedure DispOrderMessage(const AMessage: string);

Called-By Hierarchy


           TfrmODMeds.DispOrderMessage
              TfrmODMeds.SetupDialog┤ 
           TfrmODMeds.SetOnMedSelect┤ 
            TfrmODMeds.SetupDialog┤ │ 
         TfrmODMeds.btnSelectClick┤ │ 
         TfrmODMeds.UMDelayClick┘ │ │ 
       TfrmODMeds.CheckFormAltDose┘ │ 
       TfrmODMeds.cboDosageClick┘   │ 
     TfrmODMeds.cboDosageKeyUp┘     │ 
          TfrmODMeds.SetOnQuickOrder┤ 
            TfrmODMeds.SetupDialog┤ │ 
      TfrmODMeds.btnSelectClick...┘ │ 
        TfrmODMeds.cboDosageClick...┤ 
     TfrmODMeds.QuantityMessageCheck┤ 
        TfrmODMeds.cboXDosageEnter┤ │ 
TfrmODMeds.pnlXDurationButtonEnter┤ │ 
         TfrmODMeds.cboXRouteEnter┤ │ 
      TfrmODMeds.cboXSequenceEnter┤ │ 
      TfrmODMeds.cboXScheduleEnter┘ │ 
          TfrmODMeds.cboXDosageClick┘ 
         TfrmODMeds.cboXDosageExit┤   
        TfrmODMeds.cboXDosageKeyUp┘   

Called-By

Name Declaration Comments
TfrmODMeds.cboDosageClick procedure cboDosageClick(Sender: TObject); -
TfrmODMeds.cboXDosageClick procedure cboXDosageClick(Sender: TObject); -
TfrmODMeds.QuantityMessageCheck procedure QuantityMessageCheck(Tag: integer) ; -
TfrmODMeds.SetOnMedSelect procedure SetOnMedSelect; -
TfrmODMeds.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODMeds.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

5377  procedure TfrmODMeds.DispOrderMessage(const AMessage: string);
5378  begin
5379    if ContainsVisibleChar(AMessage) then
5380    begin
5381      image1.Visible := True;
5382      memDrugMsg.Visible := True;
5383      image1.Picture.Icon.Handle := LoadIcon(0, IDI_ASTERISK);
5384      memDrugMsg.Lines.Clear;
5385      memDrugMsg.Lines.SetText(PChar(AMessage));
5386      if fShrinkDrugMsg then
5387      begin
5388        pnlBottom.Height := pnlBottom.Height + memDrugMsg.Height + 2;
5389        fShrinkDrugMsg := False;
5390      end;
5391    end else
5392    begin
5393      image1.Visible := False;
5394      memDrugMsg.Visible := False;
5395      if not fShrinkDrugMsg then
5396      begin
5397        pnlBottom.Height := pnlBottom.Height - memDrugMsg.Height - 2;
5398        fShrinkDrugMsg := True;
5399      end;
5400    end;
5401  end;