Procedure

TfrmODLab.txtAntiCoagulantExit

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure txtAntiCoagulantExit(Sender: TObject);

Calls Hierarchy


TfrmODLab.txtAntiCoagulantExit
 ├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
TLabTest.ChangeComment procedure ChangeComment(const CommentText: string); -
TfrmODLab.ControlChange procedure ControlChange(Sender: TObject); -


Source

1686  procedure TfrmODLab.txtAntiCoagulantExit(Sender: TObject);
1687  begin
1688    inherited;
1689    if (not pnlAntiCoagulation.Visible) or (ALabTest = nil) then exit;
1690    with ALabTest do
1691        if Length(txtAntiCoagulant.Text)>0 then
1692         begin
1693          Comment.Clear;
1694          ChangeComment('~For Test: ' + TestName);
1695          ChangeComment('~ANTICOAGULANT: ' + txtAntiCoagulant.Text);
1696         end
1697        else
1698          Comment.Clear;
1699    ControlChange(Self);
1700  end;