Procedure

TfrmODDiet.cmdRemoveClick

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure cmdRemoveClick(Sender: TObject);

Calls Hierarchy


TfrmODDiet.cmdRemoveClick
 └TfrmODDiet.DietChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODDiet.DietChange procedure DietChange(Sender: TObject); -


Source

1129  procedure TfrmODDiet.cmdRemoveClick(Sender: TObject);
1130  begin
1131    inherited;
1132    with lstDietSelect do if ItemIndex > -1 then Items.Delete(ItemIndex);
1133    DietChange(Sender);
1134    with lstDietSelect do if Items.Count = 0 then
1135    begin
1136      chkCancelTubefeeding.State := cbGrayed;
1137      chkCancelTubefeeding.Visible := False;
1138      lblDelivery.Visible := True;
1139      cboDelivery.Visible := True;
1140    end;
1141  end;