Procedure

TfrmODCslt.mnuPopProvDxDeleteClick

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODCslt

Declaration

procedure mnuPopProvDxDeleteClick(Sender: TObject);

Calls Hierarchy


TfrmODCslt.mnuPopProvDxDeleteClick
 └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

1157  procedure TfrmODCslt.mnuPopProvDxDeleteClick(Sender: TObject);
1158  begin
1159    inherited;
1160    ProvDx.Text := '';
1161    ProvDx.Code := '';
1162    txtProvDiag.Text := '';
1163    ControlChange(Self);
1164  end;