Procedure

TfrmODBBank.cboAvailCompExit

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODBBank

Declaration

procedure cboAvailCompExit(Sender: TObject);

Calls Hierarchy


TfrmODBBank.cboAvailCompExit
 └TfrmODBBank.cboAvailCompSelect
   ├TfrmODBBank.DisableDiagTestControls
   ├TfrmODBBank.EnableComponentControls
   │ └TResponses.Update
   │   ├TResponses.FindResponseByName
   │   └TResponses.IENForPrompt
   ├TfrmODBBank.lvSelectionListClick
   │ ├StrToFMDateTime
   │ ├TLabTest.Create
   │ │ ├LoadLabTestData
   │ │ ├GetOneSpecimen
   │ │ ├TLabTest.FillCollSampList
   │ │ ├TResponses.FindResponseByName
   │ │ ├TLabTest.IndexOfCollSamp
   │ │ ├GetOneCollSamp
   │ │ ├TLabTest.LoadAllSamples
   │ │ │ ├LoadSamples
   │ │ │ └TLabTest.FillCollSampList
   │ │ └TLabTest.SetCollSampDflts
   │ │   ├TResponses.FindResponseByName
   │ │   ├TLabTest.ChangeSpecimen
   │ │   └TLabTest.IndexOfCollSamp
   │ ├TfrmODBBank.DisableDiagTestControls
   │ ├TfrmODBBank.EnableComponentControls...
   │ ├TfrmODBBank.DisableComponentControls
   │ └TfrmODBBank.EnableDiagTestControls
   ├TLabTest.Create...
   ├GetSubtype
   ├TfrmODBBank.ExtractTests
   ├GetPatientBloodResults
   ├GetPatientBloodResultsRaw
   ├TResponses.Update...
   ├TfrmODBBank.ExtractTypeScreen
   ├TfrmODBBank.ExtractSpecimen
   ├TfrmODBBank.cboSurgeryChange
   │ ├TfrmODBBank.ExtractTypeScreen
   │ ├TLabTest.Create...
   │ ├TfrmODBBank.ExtractMSBOS
   │ ├TResponses.Update...
   │ ├TfrmODBBank.DisableComponentControls
   │ └TResponses.GetOrderText
   │   ├TResponses.NextInstance
   │   ├TResponses.FindResponseByName
   │   ├TResponses.FormatResponse
   │   │ └TResponses.FindResponseByIEN
   │   └TResponses.AppendChildren
   │     ├TResponses.FindPromptByIEN
   │     ├TResponses.FindResponseByIEN
   │     └TResponses.FormatResponse...
   ├TfrmODBBank.ExtractMSBOS
   ├TfrmODBBank.SpecimenNeeded
   │ └TfrmODBBank.ExtractSpecimen
   ├TfrmODBBank.ExtractSpecimens
   ├TfrmODBBank.ValidCollTime
   │ └StrToFMDateTime
   └TResponses.GetOrderText...

Calls

Name Declaration Comments
TfrmODBBank.cboAvailCompSelect procedure cboAvailCompSelect(Sender: TObject); -


Source

3164  procedure TfrmODBBank.cboAvailCompExit(Sender: TObject);
3165  begin
3166    inherited;
3167    if (Length(cboAvailComp.Text)>0) and (Length(cboAvailComp.ItemID) = 0) or (cboAvailComp.ItemID = '0') then
3168      begin
3169        ShowMsg('Invalid Component selection. Please select a valid Component.');
3170        cboAvailCompSelect(cboAvailComp);
3171        cboAvailComp.SetFocus;
3172        Exit;
3173      end;
3174    if cboAvailComp.ItemID = FLastLabID then Exit;
3175    if not (Length(cboAvailComp.ItemID) = 0) then cboAvailCompSelect(cboAvailComp);
3176  end;