Procedure

TfrmODMedIV.txtSelectedChange

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Comments

Text editor for grid

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure txtSelectedChange(Sender: TObject);

Calls Hierarchy


TfrmODMedIV.txtSelectedChange
 └TfrmODMedIV.ControlChange
   ├TfrmODMedIV.loadExpectFirstDose
   │ ├TfrmODMedIV.DisplayDoseNow
   │ ├LoadAdminInfo
   │ └FMToday
   │   └FMNow
   ├TResponses.FindResponseByName
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├IsNumericRate
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODMedIV.ControlChange procedure ControlChange(Sender: TObject); -


Source

1761  procedure TfrmODMedIV.txtSelectedChange(Sender: TObject);   // text editor for grid
1762  begin
1763    inherited;
1764    with txtSelected do
1765    begin
1766      if Tag < 0 then Exit;
1767      grdSelected.Cells[Tag div 256, Tag mod 256] := Text;
1768    end;
1769    ControlChange(Sender);
1770  end;