Procedure

TfrmODCslt.txtProvDiagChange

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODCslt

Declaration

procedure txtProvDiagChange(Sender: TObject);

Calls Hierarchy


TfrmODCslt.txtProvDiagChange
 └TfrmODCslt.ControlChange
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

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


Source

1166  procedure TfrmODCslt.txtProvDiagChange(Sender: TObject);
1167  begin
1168    inherited;
1169    if ProvDx.PromptMode = 'F' then
1170    begin
1171      ProvDx.Text := txtProvDiag.Text;
1172       displayDxCode := ProvDx.Text;
1173    end;
1174    ControlChange(Self);
1175  end;