Procedure

TfrmODMeds.QuantityMessageCheck

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure QuantityMessageCheck(Tag: integer)  ;

Calls Hierarchy


TfrmODMeds.QuantityMessageCheck
 ├TfrmODMeds.ValueOf
 │ ├GetSingleDoseSchedule
 │ ├GetSingleDoseScheduleEX
 │ ├TfrmODMeds.FieldsForDose
 │ │ └TfrmODMeds.ConstructedDoseFields
 │ ├TfrmODMeds.FieldsForDrug
 │ ├GetComplexDoseSchedule
 │ │ └TfrmODMeds.ValFor
 │ └GetComplexDoseScheduleEX
 │   └TfrmODMeds.ValFor
 ├TfrmODMeds.DispOrderMessage
 ├DispenseMessage
 └QuantityMessage

Called-By Hierarchy


     TfrmODMeds.QuantityMessageCheck
        TfrmODMeds.cboXDosageEnter┤ 
TfrmODMeds.pnlXDurationButtonEnter┤ 
         TfrmODMeds.cboXRouteEnter┤ 
      TfrmODMeds.cboXSequenceEnter┤ 
      TfrmODMeds.cboXScheduleEnter┘ 

Calls

Name Declaration Comments
DispenseMessage function DispenseMessage(AnIEN: Integer): string; -
TfrmODMeds.DispOrderMessage procedure DispOrderMessage(const AMessage: string); -
QuantityMessage function QuantityMessage(AnIEN: Integer): string; -
TfrmODMeds.ValueOf function ValueOf(FieldID: Integer; ARow: Integer = -1): string; -

Called-By

Name Declaration Comments
TfrmODMeds.cboXDosageEnter procedure cboXDosageEnter(Sender: TObject); -
TfrmODMeds.cboXRouteEnter procedure cboXRouteEnter(Sender: TObject); -
TfrmODMeds.cboXScheduleEnter procedure cboXScheduleEnter(Sender: TObject); -
TfrmODMeds.cboXSequenceEnter procedure cboXSequenceEnter(Sender: TObject); -
TfrmODMeds.pnlXDurationButtonEnter procedure pnlXDurationButtonEnter(Sender: TObject); -


Source

2687  procedure TfrmODMeds.QuantityMessageCheck(tag: integer);
2688  var
2689  DispDrug: integer;
2690  x: string;
2691  
2692  begin
2693    if FInptDlg then Exit;
2694    DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID, tag), 0);
2695    if DispDrug > 0 then
2696    begin
2697      if not FSuppressMsg then
2698      begin
2699        DispOrderMessage(DispenseMessage(DispDrug));
2700        FSuppressMsg  := False;
2701      end;
2702      x := QuantityMessage(DispDrug);
2703    end
2704    else x := '';
2705    if Length(x) > 0
2706      then lblQtyMsg.Caption := TX_QTY_PRE + x + TX_QTY_POST
2707      else lblQtyMsg.Caption := '';
2708  end;