Procedure

TfrmODMedIV.cboDurationChange

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure cboDurationChange(Sender: TObject);

Calls Hierarchy


TfrmODMedIV.cboDurationChange
 └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...

Calls

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


Source

1458  procedure TfrmODMedIV.cboDurationChange(Sender: TObject);
1459  begin
1460    inherited;
1461    if (FOriginalDurationType > -1) and (FOriginalDurationType <> cboDuration.ItemIndex) then
1462      begin
1463        self.txtXDuration.Text := '';
1464        FOriginalDurationType := cboDuration.ItemIndex;
1465      end;
1466    if (FOriginalDurationType = -1) and (cboDuration.ItemIndex > -1) then FOriginalDurationType := cboDuration.ItemIndex;
1467    ControlChange(sender);
1468  end;