Function

DispenseMessage

Module

rODBase

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function DispenseMessage(AnIEN: Integer): string;

Called-By Hierarchy


                              DispenseMessage
                TfrmODMedIn.cboDispenseExit┤ 
          TfrmODMedIn.cboDispenseMouseClick┤ 
          TfrmODMedIn.cboMedicationSelect┘ │ 
               TfrmODMedIn.CheckFormAlt┘   │ 
          TfrmODMedIn.cboDispenseExit┤     │ 
 TfrmODMedIn.cboDispenseMouseClick...┘     │ 
               TfrmODMedOut.cboDispenseExit┤ 
         TfrmODMedOut.cboDispenseMouseClick┤ 
         TfrmODMedOut.cboMedicationSelect┘ │ 
              TfrmODMedOut.CheckFormAlt┘   │ 
         TfrmODMedOut.cboDispenseExit┤     │ 
TfrmODMedOut.cboDispenseMouseClick...┘     │ 
                 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
TfrmODMedIn.cboDispenseExit procedure cboDispenseExit(Sender: TObject); -
TfrmODMedOut.cboDispenseExit procedure cboDispenseExit(Sender: TObject); -
TfrmODMedIn.cboDispenseMouseClick procedure cboDispenseMouseClick(Sender: TObject); -
TfrmODMedOut.cboDispenseMouseClick procedure cboDispenseMouseClick(Sender: TObject); -
TfrmODMeds.cboDosageClick procedure cboDosageClick(Sender: TObject); -
TfrmODMeds.cboXDosageClick procedure cboXDosageClick(Sender: TObject); -
TfrmODMeds.QuantityMessageCheck procedure QuantityMessageCheck(Tag: integer) ; -
TfrmODMeds.SetOnQuickOrder procedure SetOnQuickOrder; -


Source

755   function DispenseMessage(AnIEN: Integer): string;
756   var
757     x: string;
758   begin
759     if AnIEN = uLastDispenseIEN then Result := uLastDispenseMsg else
760     begin
761       x := sCallV('ORWDPS32 DRUGMSG', [AnIEN]);
762       uLastDispenseIEN := AnIEN;
763       uLastDispenseMsg := Piece(x, U, 1);
764       uLastQuantityMsg := Piece(x, U, 2);
765       Result := uLastDispenseMsg;
766     end;
767   end;