Procedure

TfrmODDiet.cboStrengthChange

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure cboStrengthChange(Sender: TObject);

Calls Hierarchy


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

1395  procedure TfrmODDiet.cboStrengthChange(Sender: TObject);
1396  begin
1397    inherited;
1398    with cboStrength do
1399    begin
1400      if Tag < 0 then Exit;
1401      grdSelected.Cells[Tag div 256, Tag mod 256] := Text;
1402    end;
1403    TFChange(Sender);
1404  end;