Procedure

TfrmODBBank.cboAvailTestExit

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODBBank

Declaration

procedure cboAvailTestExit(Sender: TObject);

Calls Hierarchy


TfrmODBBank.cboAvailTestExit
 └TfrmODBBank.cboAvailTestSelect
   ├TfrmODBBank.DisableComponentControls
   ├TfrmODBBank.EnableDiagTestControls
   ├TLabTest.Create
   │ ├LoadLabTestData
   │ ├GetOneSpecimen
   │ ├TLabTest.FillCollSampList
   │ ├TResponses.FindResponseByName
   │ ├TLabTest.IndexOfCollSamp
   │ ├GetOneCollSamp
   │ ├TLabTest.LoadAllSamples
   │ │ ├LoadSamples
   │ │ └TLabTest.FillCollSampList
   │ └TLabTest.SetCollSampDflts
   │   ├TResponses.FindResponseByName
   │   ├TLabTest.ChangeSpecimen
   │   └TLabTest.IndexOfCollSamp
   ├GetSubtype
   ├TfrmODBBank.DetermineCollectionDefaults
   │ ├TResponses.FindResponseByName
   │ ├TLabTest.LabCanCollect
   │ │ └TLabTest.IndexOfCollSamp
   │ ├TfrmODBBank.SetupCollTimes
   │ │ ├GetLastCollectionTime
   │ │ ├TfrmODBBank.ValidCollTime
   │ │ │ └StrToFMDateTime
   │ │ ├StrToFMDateTime
   │ │ ├RemoveCollTimeDefault
   │ │ ├TCtrlInits.SetControl
   │ │ │ ├ClearControl
   │ │ │ └TCtrlInits.FindInitByName
   │ │ ├MakeRelativeDateTime
   │ │ │ └FMToday
   │ │ │   └FMNow
   │ │ └GetDefaultImmCollTime
   │ ├TCtrlInits.SetControl...
   │ ├StrToFMDateTime
   │ └TfrmODBBank.LoadCollType
   │   ├TCtrlInits.SetControl...
   │   ├TLabTest.LabCanCollect...
   │   ├TfrmODBase.OrderForInpatient
   │   │ ├OrderEventTypeOnCreate
   │   │ └IsPassEvt1
   │   └TfrmODBBank.SetupCollTimes...
   ├TfrmODBBank.lvSelectionListClick
   │ ├StrToFMDateTime
   │ ├TLabTest.Create...
   │ ├TfrmODBBank.DisableDiagTestControls
   │ ├TfrmODBBank.EnableComponentControls
   │ │ └TResponses.Update
   │ │   ├TResponses.FindResponseByName
   │ │   └TResponses.IENForPrompt
   │ ├TfrmODBBank.DisableComponentControls
   │ └TfrmODBBank.EnableDiagTestControls
   ├TfrmODBBank.ExtractTypeScreen
   ├TNSDaysBack
   ├TLabTest.ObtainCollSamp
   ├TLabTest.IndexOfCollSamp
   ├TfrmODBase.OrderMessage
   │ └TfrmODBase.ShowOrderMessage
   ├TResponses.Update...
   ├TfrmODBBank.ValidCollTime...
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

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


Source

3133  procedure TfrmODBBank.cboAvailTestExit(Sender: TObject);
3134  begin
3135    inherited;
3136    if (Length(cboAvailTest.Text)>0) and (Length(cboAvailTest.ItemID) = 0) or (cboAvailTest.ItemID = '0') then
3137      begin
3138        ShowMsg('Invalid Test Selection. Please select a valid Test.');
3139        cboAvailTestSelect(cboAvailTest);
3140        cboAvailTest.SetFocus;
3141        Exit;
3142      end;
3143    if cboAvailTest.ItemID = FLastLabID then Exit;
3144    if not (Length(cboAvailTest.ItemID) = 0) then cboAvailTestSelect(cboAvailTest);
3145  end;