Procedure

TfrmODLab.txtAddlCommentExit

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure txtAddlCommentExit(Sender: TObject);

Calls Hierarchy


TfrmODLab.txtAddlCommentExit
 └TfrmODLab.grpPeakTroughClick
   ├TLabTest.ChangeComment
   └TfrmODLab.ControlChange
     ├TResponses.FindResponseByName
     ├TResponses.Clear
     ├TResponses.Update
     │ ├TResponses.FindResponseByName
     │ └TResponses.IENForPrompt
     ├TLabTest.NameOfCollSamp
     │ └TLabTest.IndexOfCollSamp
     ├TLabTest.NameOfSpecimen
     │ └TLabTest.IndexOfCollSamp
     ├TLabTest.NameOfUrgency
     ├TfrmODLab.ValidCollTime
     │ └StrToFMDateTime
     └TResponses.GetOrderText
       ├TResponses.NextInstance
       ├TResponses.FindResponseByName
       ├TResponses.FormatResponse
       │ └TResponses.FindResponseByIEN
       └TResponses.AppendChildren
         ├TResponses.FindPromptByIEN
         ├TResponses.FindResponseByIEN
         └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODLab.grpPeakTroughClick procedure grpPeakTroughClick(Sender: TObject); -


Source

1769  procedure TfrmODLab.txtAddlCommentExit(Sender: TObject);
1770  begin
1771    if (not pnlPeakTrough.Visible) or (ALabTest = nil) then exit;
1772    grpPeakTroughClick(Sender);
1773  end;