Procedure

TfrmODLab.txtUrineVolumeExit

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure txtUrineVolumeExit(Sender: TObject);

Calls Hierarchy


TfrmODLab.txtUrineVolumeExit
 ├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

1702  procedure TfrmODLab.txtUrineVolumeExit(Sender: TObject);
1703  begin
1704    inherited;
1705    if (not pnlUrineVolume.Visible) or (ALabTest = nil) then exit;
1706    with ALabTest do
1707     begin
1708      Comment.Clear;
1709      ChangeComment(txtUrineVolume.Text) ;
1710     end;
1711    ControlChange(Self);
1712  end;