Procedure

TfrmODMedIn.SetOnOISelect

Module

fODMedIn

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMedIn

Declaration

procedure SetOnOISelect;

Calls Hierarchy


TfrmODMedIn.SetOnOISelect
 ├TCtrlInits.LoadOrderItem
 │ ├TCtrlInits.ClearOI
 │ └TCtrlInits.ExtractInits
 │   └TCtrlInit.Create
 ├OIForMedIn
 ├TCtrlInits.SetControl
 │ ├ClearControl
 │ └TCtrlInits.FindInitByName
 ├TCtrlInits.DefaultText
 │ └TCtrlInits.FindInitByName
 ├TfrmODBase.OrderMessage
 │ └TfrmODBase.ShowOrderMessage
 └TCtrlInits.TextOf
   └TCtrlInits.FindInitByName

Called-By Hierarchy


                 TfrmODMedIn.SetOnOISelect
                 TfrmODMedIn.SetupDialog┤ 
         TfrmODMedIn.cboMedicationSelect┘ 
              TfrmODMedIn.CheckFormAlt┘   
         TfrmODMedIn.cboDispenseExit┤     
   TfrmODMedIn.cboDispenseMouseClick┘     
TfrmODMedIn.cboMedicationSelect...┘       

Calls

Name Declaration Comments
TCtrlInits.DefaultText function DefaultText(const ASection: string): string; -
TCtrlInits.LoadOrderItem procedure LoadOrderItem(Src: TStrings); -
OIForMedIn function OIForMedIn(AnIEN: Integer): TStrings; -
TfrmODBase.OrderMessage procedure OrderMessage(const AMessage: string); -
TCtrlInits.SetControl procedure SetControl(AControl: TControl; const ASection: string); -
TCtrlInits.TextOf function TextOf(const ASection: string): string; -

Called-By

Name Declaration Comments
TfrmODMedIn.cboMedicationSelect procedure cboMedicationSelect(Sender: TObject); -
TfrmODMedIn.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

227   procedure TfrmODMedIn.SetOnOISelect;
228   begin
229     with CtrlInits do
230     begin
231       FLastMedID := FMedCombo.ItemID;
232       LoadOrderItem(OIForMedIn(FMedCombo.ItemIEN));
233       SetControl(cboDispense, 'Dispense');
234       if cboDispense.Items.Count = 1 then cboDispense.ItemIndex := 0;
235       SetControl(txtDosage,   'Instruct');
236       SetControl(cboRoute,    'Route');
237       if cboRoute.Items.Count = 1 then cboRoute.ItemIndex := 0;
238       //cboRoute.InsertSeparator;
239       //AppendMedRoutes(cboRoute.Items);
240       if DefaultText('DefSched') <> '' then cboSchedule.SelectByID(DefaultText('DefSched'));
241       OrderMessage(TextOf('Message'));
242     end;
243   end;