Procedure

TfrmODMeds.cboXRouteClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboXRouteClick(Sender: TObject);

Calls Hierarchy


TfrmODMeds.cboXRouteClick
 └TfrmODMeds.ControlChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TfrmODMeds.FindCommonDrug
   │ ├TfrmODMeds.FindDoseFields
   │ ├SaveDrug
   │ └KillDrug
   ├TfrmODMeds.ConstructedDoseFields
   ├TfrmODMeds.ValueOf
   │ ├GetSingleDoseSchedule
   │ ├GetSingleDoseScheduleEX
   │ ├TfrmODMeds.FieldsForDose
   │ │ └TfrmODMeds.ConstructedDoseFields
   │ ├TfrmODMeds.FieldsForDrug
   │ ├GetComplexDoseSchedule
   │ │ └TfrmODMeds.ValFor
   │ └GetComplexDoseScheduleEX
   │   └TfrmODMeds.ValFor
   ├TfrmODMeds.lblAdminSchGetText
   ├TfrmODMeds.ValFor
   ├TfrmODMeds.InpatientSig
   │ ├TfrmODMeds.ValueOf...
   │ └TfrmODMeds.CheckDecimal
   │   └TfrmODMeds.TextDosage
   ├TfrmODMeds.OutpatientSig
   │ ├TfrmODMeds.ValueOf...
   │ └TfrmODMeds.CheckDecimal...
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Called-By Hierarchy


 TfrmODMeds.cboXRouteClick
TfrmODMeds.cboXRouteExit┘ 

Calls

Name Declaration Comments
TfrmODMeds.ControlChange procedure ControlChange(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmODMeds.cboXRouteExit procedure cboXRouteExit(Sender: TObject); -


Source

3767  procedure TfrmODMeds.cboXRouteClick(Sender: TObject);
3768  var
3769    x: string;
3770  begin
3771    inherited;
3772    with cboXRoute do if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text;
3773    grdDoses.Cells[COL_ROUTE, cboXRoute.Tag] := x;
3774    ControlChange(Self);
3775  end;