Procedure

TfrmODLab.txtDoseTimeExit

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure txtDoseTimeExit(Sender: TObject);

Calls Hierarchy


TfrmODLab.txtDoseTimeExit
 ├StrToFMDateTime
 ├TfrmODLab.DoseDrawComment
 │ └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.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODLab.DoseDrawComment procedure DoseDrawComment; -
StrToFMDateTime function StrToFMDateTime(const AString: string): TFMDateTime; -


Source

1731  procedure TfrmODLab.txtDoseTimeExit(Sender: TObject);
1732  begin
1733    inherited;
1734    if (not pnlDoseDraw.Visible) or (ALabTest = nil) then exit;
1735    with txtDoseTime do
1736      if Length(Text)>0 then
1737        Text := FormatFMDateTime('mm/dd/yy hh:nn', StrToFMDateTime(Text))
1738      else
1739        Text := 'UNKNOWN';
1740    DoseDrawComment;
1741    ControlChange(Self);
1742  end;