Procedure

TfrmODDiet.txtQuantityExit

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure txtQuantityExit(Sender: TObject);

Calls Hierarchy


TfrmODDiet.txtQuantityExit
 ├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

1458  procedure TfrmODDiet.txtQuantityExit(Sender: TObject);
1459  begin
1460    inherited;
1461    with txtQuantity do
1462    begin
1463      grdSelected.Cells[Tag div 256, Tag mod 256] := Text;
1464      TFSetAmountForRow(Tag mod 256);
1465      Tag := -1;
1466      Hide;
1467    end;
1468    TFChange(Sender);
1469    TFMoveToNextCell;
1470  end;