Procedure

TfrmODLab.cboCollTimeChange

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure cboCollTimeChange(Sender: TObject);

Calls Hierarchy


TfrmODLab.cboCollTimeChange
 ├GetFutureLabTime
 │ └TfrmBase508Form.Create
 │   ├TfrmBase508Form.UpdateAccessibilityActions
 │   ├UnfocusableControlEnter
 │   └AdjustControls
 │     ├TfrmBase508Form.ModifyUnfocusableControl
 │     └..(rec)..
 ├FMToday
 │ └FMNow
 └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); -
FMToday function FMToday: TFMDateTime; -
GetFutureLabTime function GetFutureLabTime(ACollDate: TFMDateTime): string; -


Source

1453  procedure TfrmODLab.cboCollTimeChange(Sender: TObject);
1454  var
1455    CollType: string;
1456  const
1457    TX_BAD_TIME         = ' is not a routine lab collection time.' ;
1458    TX_BAD_TIME_CAP     = 'Invalid Time';
1459  begin
1460    CollType := 'LC';
1461    with cboCollTime do if ItemID = 'LO' then
1462      begin
1463        ItemIndex := -1;
1464        Text := GetFutureLabTime(FMToday);
1465      end;
1466    //cboCollType.SelectByID(CollType);
1467    ControlChange(Self);
1468  end;