Procedure

TfrmODMedIV.InitDialog

Directives

Override

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Comments

TfrmODBase overrides

Visibility

Public

Overrides

TfrmODBase.InitDialog

Owner

TfrmODMedIV

Declaration

procedure InitDialog; override;

Calls Hierarchy


TfrmODMedIV.InitDialog
 ├TfrmODMedIV.ClearAllFields
 │ └TfrmODMedIV.cboTypeChange
 │   ├TfrmODMedIV.UpdateDuration
 │   └TfrmODMedIV.ControlChange
 │     ├TfrmODMedIV.loadExpectFirstDose
 │     │ ├TfrmODMedIV.DisplayDoseNow
 │     │ ├LoadAdminInfo
 │     │ └FMToday
 │     │   └FMNow
 │     ├TResponses.FindResponseByName
 │     ├TResponses.Clear
 │     ├TResponses.Update
 │     │ ├TResponses.FindResponseByName
 │     │ └TResponses.IENForPrompt
 │     ├IsNumericRate
 │     └TResponses.GetOrderText
 │       ├TResponses.NextInstance
 │       ├TResponses.FindResponseByName
 │       ├TResponses.FormatResponse
 │       │ └TResponses.FindResponseByIEN
 │       └TResponses.AppendChildren
 │         ├TResponses.FindPromptByIEN
 │         ├TResponses.FindResponseByIEN
 │         └TResponses.FormatResponse...
 ├TfrmODMedIV.IVTypeHelpText
 ├TCtrlInits.SetControl
 │ ├ClearControl
 │ └TCtrlInits.FindInitByName
 ├LoadSchedules
 ├TfrmODMedIV.UpdateDuration
 └TfrmODMedIV.tabFluidChange

Called-By Hierarchy


  TfrmODMedIV.InitDialog
TfrmODMedIV.FormCreate┘ 

Calls

Name Declaration Comments
TfrmODMedIV.ClearAllFields procedure ClearAllFields; -
TfrmODMedIV.IVTypeHelpText function IVTypeHelpText: string; -
LoadSchedules procedure LoadSchedules(Dest: TStrings; IsInptDlg: boolean = False); -
TCtrlInits.SetControl procedure SetControl(AControl: TControl; const ASection: string); -
TfrmODMedIV.tabFluidChange procedure tabFluidChange(Sender: TObject); -
TfrmODMedIV.UpdateDuration procedure UpdateDuration(SchType: string); -

Called-By

Name Declaration Comments
TfrmODMedIV.FormCreate procedure FormCreate(Sender: TObject); -


Source

316   procedure TfrmODMedIV.InitDialog;
317   const
318     NOSELECTION: TGridRect = (Left: -1; Top: -1; Right: -1; Bottom: -1);
319   var
320     i: Integer;
321   begin
322     inherited;
323     //grdSelected.Selection := NOSELECTION;
324     //FRouteConflict := False;
325     //lblTypeHelp.Hint := IVTypeHelpText;
326     ClearAllFields;
327     //FIVTypeDefined := false;
328     lblType.Hint := IVTypeHelpText;
329     cboType.Hint := IVTypeHelpText;
330     with grdSelected do for i := 0 to RowCount - 1 do
331     begin
332        TIVComponent(Objects[0, i]).Free;
333        Rows[i].Clear;
334     end;
335     grdSelected.RowCount := 1;
336     //txtRate.Text := ' ml/hr';   {*kcm*}
337     with CtrlInits do
338     begin
339       SetControl(cboSolution, 'ShortList');
340       cboSolution.InsertSeparator;
341       SetControl(cboPriority, 'Priorities');
342       cboType.Items.Add('Continuous');
343       cboType.Items.Add('Intermittent');
344       cboType.ItemIndex := -1;
345       cboType.SelLength := 0;
346       //SetControl(cboRoute, 'Route');
347       if (cboRoute.ItemIndex = -1) and (cboRoute.Text <> '') then cboRoute.Text := '';
348       //SetControl(cboSchedule, 'Schedules');
349       LoadSchedules(cboSchedule.Items, patient.Inpatient);
350       //if (Patient.Inpatient) and (cboSchedule.Items.IndexOfName('Other')<0) then
351       if cboSchedule.Items.IndexOf('Other') = -1 then cboSchedule.Items.Add('OTHER');
352       cboSchedule.Enabled := False;
353       lblschedule.Enabled := False;
354       if cboInfusionTime.Items.Count = 0 then
355          begin
356           cboInfusionTime.Items.add('Minutes');
357           cboInfusionTime.Items.Add('Hours');
358          end;
359       cboInfusionTime.Enabled := false;
360       UpdateDuration('');
361       if cboDuration.Items.Count = 0 then
362         begin
363           cboDuration.Items.Add('L');
364           cboDuration.Items.Add('ml');
365           cboDuration.Items.Add('days');
366           cboDuration.Items.Add('hours');
367         end;
368       cboDuration.ItemIndex := -1;
369       cboDuration.Text := '';
370       if self.txtXDuration.Text <> '' then self.txtXDuration.Text := '';
371       txtNSS.Visible := false;
372       if (chkDoseNow.Visible = true) and (chkDoseNow.Checked = true) then chkDoseNow.Checked := false;
373       chkDoseNow.Visible := false;
374       chkPRN.Enabled := false;
375       //AGP ADDITIVE FREQUENCY CHANGES
376       if cboAddFreq.Items.Count = 0 then
377         begin
378           cboAddFreq.Items.Add('1 Bag/Day');
379           cboAddFreq.Items.Add('All Bags');
380           cboAddFreq.Items.Add('See Comments');
381         end;
382     end;
383     tabFluid.TabIndex := 0;
384     tabFluidChange(Self);            // this makes cboSolution visible
385     cboSolution.InitLongList('');
386     cboAdditive.InitLongList('');
387     JAWSON := true;
388     if ScreenReaderActive = false then
389       begin
390         lblAdminTime.TabStop := false;
391         lblFirstDose.TabStop := false;
392         memOrder.TabStop := false;
393         JAWSON := false;
394       end;
395     ActiveControl := cboSolution;  //SetFocusedControl(cboSolution);
396     StatusText('');
397     OSolIEN := 0;
398     OAddIEN := 0;
399     OSchedule := '';
400     oAdmin := '';
401     self.txtAllIVRoutes.Visible := false;
402     memorder.text := '';
403     memOrder.Lines.Clear;
404   end;