Procedure

TfrmODLab.grpPeakTroughClick

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure grpPeakTroughClick(Sender: TObject);

Calls Hierarchy


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...

Called-By Hierarchy


  TfrmODLab.grpPeakTroughClick
TfrmODLab.txtAddlCommentExit┘ 

Calls

Name Declaration Comments
TLabTest.ChangeComment procedure ChangeComment(const CommentText: string); -
TfrmODLab.ControlChange procedure ControlChange(Sender: TObject); -

Called-By

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


Source

1714  procedure TfrmODLab.grpPeakTroughClick(Sender: TObject);
1715  begin
1716    inherited;
1717    if (not pnlPeakTrough.Visible) or (ALabTest = nil) then exit;
1718    with ALabTest,grpPeakTrough do
1719      if ItemIndex > -1 then
1720        begin
1721          Comment.Clear;
1722          ChangeComment('~For Test: ' + TestName);
1723          ChangeComment('~Dose is expected to be at ' + UpperCase(Items[ItemIndex]) + ' level.');
1724          ChangeComment(txtAddlComment.Text) ;
1725        end
1726      else
1727        Comment.Clear;
1728    ControlChange(Self);
1729  end;