Procedure

TfrmODMedIV.txtAllIVRoutesClick

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure txtAllIVRoutesClick(Sender: TObject);

Calls Hierarchy


TfrmODMedIV.txtAllIVRoutesClick
 ├TfrmODMedIV.cboRouteClick
 │ └TfrmODMedIV.CreateOtherRoute
 │   └ShowOtherRoutes
 │     ├TfrmBase508Form.Create
 │     │ ├TfrmBase508Form.UpdateAccessibilityActions
 │     │ ├UnfocusableControlEnter
 │     │ └AdjustControls
 │     │   ├TfrmBase508Form.ModifyUnfocusableControl
 │     │   └..(rec)..
 │     └SetFormPosition
 │       └TSizeHolder.GetSize
 └TfrmODMedIV.cboRouteChange
   ├TfrmODMedIV.cboRouteClick...
   └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...

Called-By Hierarchy


TfrmODMedIV.txtAllIVRoutesClick
  TfrmODMedIV.cboRouteKeyDown┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmODMedIV.cboRouteKeyDown procedure cboRouteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

2440  procedure TfrmODMedIV.txtAllIVRoutesClick(Sender: TObject);
2441  var
2442    i: integer;
2443    msg : String;
2444  begin
2445    inherited;
2446    msg := 'You can also select "OTHER" from the Route list'
2447       + ' to select a Route from the Expanded Med Route List.'
2448       + #13#10 + 'Click OK to launch the Expanded Med Route List.';
2449    if ShowMsg(msg, smiInfo, smbOKCancel) = smrOk then
2450    begin
2451        for I := 0 to cboRoute.Items.Count - 1 do if cboRoute.Items.Strings[i] = U + 'OTHER' then break;
2452        cboRoute.ItemIndex := i;
2453        cboRouteClick(self);
2454        cboRouteChange(self.cboRoute);
2455    end;
2456  end;