Procedure

TfrmODDiet.cmdTFRemoveClick

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure cmdTFRemoveClick(Sender: TObject);

Calls Hierarchy


TfrmODDiet.cmdTFRemoveClick
 └TfrmODDiet.TFChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TfrmODDiet.TFStrengthCode
   ├TfrmODBase.OrderForInpatient
   │ ├OrderEventTypeOnCreate
   │ └IsPassEvt1
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

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


Source

1472  procedure TfrmODDiet.cmdTFRemoveClick(Sender: TObject);
1473  var
1474    i: Integer;
1475  begin
1476    inherited;
1477    with grdSelected do
1478    begin
1479      if Row < 0 then Exit;
1480      if Objects[0, Row] <> nil then TTFProduct(Objects[0, Row]).Free;
1481      for i := Row to RowCount - 2 do Rows[i] := Rows[i + 1];
1482      Rows[RowCount - 1].Clear;
1483      RowCount := RowCount - 1;
1484    end;
1485    TFChange(Sender);
1486  end;