Procedure

TfrmODLab.cboFrequencyChange

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure cboFrequencyChange(Sender: TObject);

Calls Hierarchy


TfrmODLab.cboFrequencyChange
 ├TfrmODLab.setup508Label
 └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.cboFrequencyChange
       TfrmODLab.SetupDialog┤ 
TfrmODLab.cboAvailTestSelect┘ 
     TfrmODLab.SetupDialog┤   
TfrmODLab.cboAvailTestExit┘   

Calls

Name Declaration Comments
TfrmODLab.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODLab.setup508Label procedure setup508Label(text: string; lbl: TVA508StaticText; ctrl: TControl; lbl2: string); -

Called-By

Name Declaration Comments
TfrmODLab.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODLab.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

1470  procedure TfrmODLab.cboFrequencyChange(Sender: TObject);
1471  var
1472    x, HowManyText: string;
1473  const
1474    HINT_TEXT1 = 'Enter a number of days';
1475    HINT_TEXT2 = ', or an "X" followed by a number of times.';
1476  begin
1477    with cboFrequency do if ItemIndex > -1 then x := Items[ItemIndex];
1478    with cboFrequency do
1479      if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 3) <> 'O') then
1480        begin
1481          lblHowManyDays.Enabled := True;
1482          if Piece(Items[ItemIndex], U, 3) = 'C' then
1483            txtDays.Hint := HINT_TEXT1 + HINT_TEXT2
1484          else
1485            txtDays.Hint := '';
1486          txtDays.Enabled := True;
1487          //TDP - txtDays 508 changes
1488          if txtDays.Text = '' then HowManyText := 'no value'
1489          else HowManyText := txtDays.Text;
1490          setup508Label(HowManyText, HowManyDayslbl508, txtDays, lblHowManyDays.Caption);
1491          txtDays.Showhint := True;
1492        end
1493      else
1494        begin
1495          txtDays.Text := '';
1496          lblHowManyDays.Enabled := False;
1497          txtDays.Enabled := False;
1498          //TDP - txtDays 508 changes
1499          HowManyText := 'no value';
1500          setup508Label(HowManyText, HowManyDayslbl508, txtDays, lblHowManyDays.Caption);
1501          txtDays.ShowHint := False;
1502        end;
1503    ControlChange(Self);
1504  end;