Procedure

TfrmODDiet.txtQuantityChange

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure txtQuantityChange(Sender: TObject);

Calls Hierarchy


TfrmODDiet.txtQuantityChange
 └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

1447  procedure TfrmODDiet.txtQuantityChange(Sender: TObject);
1448  begin
1449    inherited;
1450    with txtQuantity do
1451    begin
1452      if Tag < 0 then Exit;
1453      grdSelected.Cells[Tag div 256, Tag mod 256] := Text;
1454    end;
1455    TFChange(Sender);
1456  end;