Function

QuantityMessage

Module

rODBase

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function QuantityMessage(AnIEN: Integer): string;

Called-By Hierarchy


                       QuantityMessage
       TfrmODMedOut.txtQuantityEnter┤ 
        TfrmODMedNVA.SetOnQuickOrder┤ 
          TfrmODMedNVA.SetupDialog┤ │ 
       TfrmODMedNVA.btnSelectClick┘ │ 
       TfrmODMedNVA.UMDelayClick┘   │ 
          TfrmODMeds.SetOnQuickOrder┤ 
            TfrmODMeds.SetupDialog┤ │ 
         TfrmODMeds.btnSelectClick┘ │ 
         TfrmODMeds.UMDelayClick┘   │ 
           TfrmODMeds.cboDosageClick┤ 
         TfrmODMeds.cboDosageKeyUp┘ │ 
     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) ; -
TfrmODMedNVA.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODMeds.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODMedOut.txtQuantityEnter procedure txtQuantityEnter(Sender: TObject); -


Source

769   function QuantityMessage(AnIEN: Integer): string;
770   var
771     x: string;
772   begin
773     if AnIEN = uLastDispenseIEN then Result := uLastQuantityMsg else
774     begin
775       x := sCallV('ORWDPS32 DRUGMSG', [AnIEN]);
776       uLastDispenseIEN := AnIEN;
777       uLastDispenseMsg := Piece(x, U, 1);
778       uLastQuantityMsg := Piece(x, U, 2);
779       Result := uLastQuantityMsg;
780     end;
781   end;