Procedure

TfrmODLab.cboCollTypeChange

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure cboCollTypeChange(Sender: TObject);

Calls Hierarchy


TfrmODLab.cboCollTypeChange
 ├TLabTest.LabCanCollect
 │ └TLabTest.IndexOfCollSamp
 ├TfrmODLab.SetupCollTimes
 │ ├GetLastCollectionTime
 │ ├TfrmODLab.ValidCollTime
 │ │ └StrToFMDateTime
 │ ├StrToFMDateTime
 │ ├TCtrlInits.SetControl
 │ │ ├ClearControl
 │ │ └TCtrlInits.FindInitByName
 │ ├MakeRelativeDateTime
 │ │ └FMToday
 │ │   └FMNow
 │ └GetDefaultImmCollTime
 ├TLabTest.LoadUrgency
 │ └TLabTest.ObtainUrgency
 └TfrmODLab.ControlChange
   ├TResponses.FindResponseByName
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TLabTest.NameOfCollSamp
   │ └TLabTest.IndexOfCollSamp
   ├TLabTest.NameOfSpecimen
   │ └TLabTest.IndexOfCollSamp
   ├TLabTest.NameOfUrgency
   ├TfrmODLab.ValidCollTime...
   └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); -
TLabTest.LabCanCollect function LabCanCollect: Boolean; -
TLabTest.LoadUrgency procedure LoadUrgency(CollType: string; AComboBox:TORComboBox); -
TfrmODLab.SetupCollTimes procedure SetupCollTimes(CollType: string); -


Source

1506  procedure TfrmODLab.cboCollTypeChange(Sender: TObject);
1507  begin
1508    if (ALabTest = nil) or Changing or (cboCollType.ItemID = '') then exit;
1509    if (cboCollType.ItemID = 'I') and (not ALabTest.LabCanCollect) then
1510      begin
1511        InfoBox(TX_NO_IMMED, TX_NO_IMMED_CAP, MB_OK or MB_ICONWARNING);
1512        cboCollType.ItemIndex := -1;
1513        Exit;
1514      end;
1515    SetupCollTimes(cboCollType.ItemID);
1516    ALabTest.LoadUrgency(cboCollType.ItemID, cboUrgency);
1517    ControlChange(Self);
1518  end;