Procedure

TfrmODMeds.cboRouteChange

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Comments

CboRoute --------------------------------------

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboRouteChange(Sender: TObject);

Calls Hierarchy


TfrmODMeds.cboRouteChange
 └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.cboRouteChange
      TfrmODMeds.SetOnMedSelect┘ 
       TfrmODMeds.SetupDialog┤   
    TfrmODMeds.btnSelectClick┤   
    TfrmODMeds.UMDelayClick┘ │   
  TfrmODMeds.CheckFormAltDose┘   
  TfrmODMeds.cboDosageClick┘     
TfrmODMeds.cboDosageKeyUp┘       

Calls

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

Called-By

Name Declaration Comments
TfrmODMeds.SetOnMedSelect procedure SetOnMedSelect; -


Source

2562  procedure TfrmODMeds.cboRouteChange(Sender: TObject);
2563  begin
2564    inherited;
2565    with cboRoute do
2566      if ItemIndex > -1 then
2567      begin
2568        if Piece(Items[ItemIndex], U, 5) = '1'
2569          then tabDose.Tabs[0] := 'Dosage / Rate'
2570          else tabDose.Tabs[0] := 'Dosage';
2571      end;
2572    cboDosage.Caption := tabDose.Tabs[0];
2573    if Sender <> Self then ControlChange(Sender);
2574  end;