Procedure

TfrmODMedNVA.cboRouteChange

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Comments

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

Visibility

Public/Published

Owner

TfrmODMedNVA

Declaration

procedure cboRouteChange(Sender: TObject);

Calls Hierarchy


TfrmODMedNVA.cboRouteChange
 └TfrmODMedNVA.ControlChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TfrmODMedNVA.FindCommonDrug
   │ ├TfrmODMedNVA.FindDoseFields
   │ ├SaveDrug
   │ └KillDrug
   ├TfrmODMedNVA.ConstructedDoseFields
   ├TfrmODMedNVA.ValueOf
   │ ├GetSchedule
   │ └GetScheduleEX
   ├TfrmODMedNVA.OutpatientSig
   │ ├TfrmODMedNVA.ValueOf...
   │ └TfrmODMedNVA.CheckDecimal
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Called-By Hierarchy


       TfrmODMedNVA.cboRouteChange
     TfrmODMedNVA.SetOnMedSelect┘ 
      TfrmODMedNVA.SetupDialog┤   
   TfrmODMedNVA.btnSelectClick┤   
   TfrmODMedNVA.UMDelayClick┘ │   
 TfrmODMedNVA.CheckFormAltDose┘   
 TfrmODMedNVA.cboDosageClick┘     
TfrmODMedNVA.cboDosageExit┘       

Calls

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

Called-By

Name Declaration Comments
TfrmODMedNVA.SetOnMedSelect procedure SetOnMedSelect; -


Source

1409  procedure TfrmODMedNVA.cboRouteChange(Sender: TObject);
1410  begin
1411    inherited;
1412    with cboRoute do
1413      if ItemIndex > -1 then
1414      begin
1415        if Piece(Items[ItemIndex], U, 5) = '1'
1416          then tabDose.Tabs[0] := 'Dosage / Rate'
1417          else tabDose.Tabs[0] := 'Dosage';
1418      end;
1419    cboDosage.Caption := tabDose.Tabs[0];
1420    if Sender <> Self then ControlChange(Sender);
1421  end;