Procedure

TfrmODMedIV.ClearAllFields

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Comments

GrdSelected events

Visibility

Private

Owner

TfrmODMedIV

Declaration

procedure ClearAllFields;

Calls Hierarchy


TfrmODMedIV.ClearAllFields
 └TfrmODMedIV.cboTypeChange
   ├TfrmODMedIV.UpdateDuration
   └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.ClearAllFields
    TfrmODMedIV.InitDialog┤ 
  TfrmODMedIV.FormCreate┘ │ 
TfrmODMedIV.cmdRemoveClick┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmODMedIV.cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); -
TfrmODMedIV.InitDialog procedure InitDialog; override; -


Source

1682  procedure TfrmODMedIV.ClearAllFields;
1683  begin
1684    self.cboType.ItemIndex := -1;
1685    self.cboType.Text := '';
1686    self.memComments.Text := '';
1687    self.txtRate.Text := '';
1688    self.txtXDuration.text := '';
1689    self.cboDuration.ItemIndex := -1;
1690    self.cboDuration.Text := '';
1691    self.txtAllIVRoutes.Visible := false;
1692    //self.FInitialOrderID := True;
1693    cboTypeChange(self.cboType);
1694    if self.cboroute.Items.Count > 0 then self.cboRoute.Clear;
1695    FIVTypeDefined := false;
1696  end;