Procedure

TfrmODDiet.cboStrengthExit

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure cboStrengthExit(Sender: TObject);

Calls Hierarchy


TfrmODDiet.cboStrengthExit
 ├TfrmODDiet.TFSetAmountForRow
 │ ├TfrmODDiet.TFStrengthCode
 │ └ExpandedQuantity
 ├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...
 └TfrmODDiet.TFMoveToNextCell

Calls

Name Declaration Comments
TfrmODDiet.TFChange procedure TFChange(Sender: TObject); -
TfrmODDiet.TFMoveToNextCell procedure TFMoveToNextCell; -
TfrmODDiet.TFSetAmountForRow procedure TFSetAmountForRow(ARow: Integer); -


Source

1406  procedure TfrmODDiet.cboStrengthExit(Sender: TObject);
1407  begin
1408    inherited;
1409    with cboStrength do
1410    begin
1411      grdSelected.Cells[Tag div 256, Tag mod 256] := Text;
1412      TFSetAmountForRow(Tag mod 256);
1413      Tag := -1;
1414      Hide;
1415    end;
1416    TFChange(Sender);
1417    TFMoveToNextCell;
1418  end;