Procedure

TfrmODLab.cboAvailTestExit

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure cboAvailTestExit(Sender: TObject);

Calls Hierarchy


TfrmODLab.cboAvailTestExit
 └TfrmODLab.cboAvailTestSelect
   ├TResponses.Clear
   ├TResponses.SetQuickOrder
   │ ├TResponses.Clear
   │ └LoadResponses
   │   └ExtractToResponses
   │     └ExpandOrderObjects
   │       ├TdmodShared.BoilerplateOK
   │       │ ├ErrCount
   │       │ ├AddErr
   │       │ └TdmodShared.LoadTIUObjects
   │       │   └GetObjectList
   │       └GetTemplateText
   │         └TEncounter.GetVisitStr
   │           └TEncounter.GetVisitCategory
   ├TResponses.SetControl
   │ ├TResponses.FindResponseByName
   │ └AssignBPText
   │   ├DisplayGroupToLinkType
   │   │ └DisplayGroupByName
   │   ├TResponses.EValueFor
   │   ├GetServiceIEN
   │   ├TResponses.IValueFor
   │   ├GetProcedureIEN
   │   ├ExpandOrderObjects...
   │   ├SetTemplateDialogCanceled
   │   ├CheckBoilerplate4Fields
   │   ├ExecuteTemplateOrBoilerPlate
   │   └WasTemplateDialogCanceled
   ├TLabTest.Create
   │ ├LoadLabTestData
   │ ├GetOneSpecimen
   │ ├TLabTest.FillCollSampList
   │ ├TResponses.FindResponseByName
   │ ├TLabTest.IndexOfCollSamp
   │ ├GetOneCollSamp
   │ ├TLabTest.LoadAllSamples
   │ │ ├LoadSamples
   │ │ └TLabTest.FillCollSampList
   │ └TLabTest.SetCollSampDflts
   │   ├TResponses.FindResponseByName
   │   ├TLabTest.ChangeSpecimen
   │   └TLabTest.IndexOfCollSamp
   ├TLabTest.LoadCollSamp
   ├TfrmODLab.cboCollSampChange
   │ ├TLabTest.ChangeCollSamp
   │ │ └TLabTest.SetCollSampDflts...
   │ ├TLabTest.LoadSpecimen
   │ │ ├TLabTest.ObtainSpecimen
   │ │ │ └TLabTest.IndexOfCollSamp
   │ │ ├LoadSpecimens
   │ │ ├TResponses.FindResponseByName
   │ │ ├TLabTest.IndexOfCollSamp
   │ │ ├GetOneSpecimen
   │ │ └TLabTest.ChangeSpecimen
   │ ├TfrmODLab.LoadCollType
   │ │ ├TCtrlInits.SetControl
   │ │ │ ├ClearControl
   │ │ │ └TCtrlInits.FindInitByName
   │ │ ├TLabTest.LabCanCollect
   │ │ │ └TLabTest.IndexOfCollSamp
   │ │ ├TfrmODBase.OrderForInpatient
   │ │ │ ├OrderEventTypeOnCreate
   │ │ │ └IsPassEvt1
   │ │ └TfrmODLab.SetupCollTimes
   │ │   ├GetLastCollectionTime
   │ │   ├TfrmODLab.ValidCollTime
   │ │   │ └StrToFMDateTime
   │ │   ├StrToFMDateTime
   │ │   ├TCtrlInits.SetControl...
   │ │   ├MakeRelativeDateTime
   │ │   │ └FMToday
   │ │   │   └FMNow
   │ │   └GetDefaultImmCollTime
   │ ├TLabTest.LoadUrgency
   │ │ └TLabTest.ObtainUrgency
   │ ├TLabTest.ObtainSpecimen...
   │ ├TfrmODLab.setup508Label
   │ ├TLabTest.ObtainComment
   │ ├TfrmODLab.LoadRequiredComment
   │ │ └TfrmODLab.DisableCommentPanels
   │ ├TfrmODLab.DisableCommentPanels
   │ ├TLabTest.IndexOfCollSamp
   │ ├TfrmODBase.OrderMessage
   │ │ └TfrmODBase.ShowOrderMessage
   │ └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...
   ├TLabTest.LoadSpecimen...
   ├TLabTest.LoadUrgency...
   ├TResponses.FindResponseByName
   ├TLabTest.LoadAllSamples...
   ├TfrmODLab.DetermineCollectionDefaults
   │ ├TResponses.FindResponseByName
   │ ├TLabTest.LabCanCollect...
   │ ├TfrmODLab.SetupCollTimes...
   │ ├TCtrlInits.SetControl...
   │ ├StrToFMDateTime
   │ └TfrmODLab.LoadCollType...
   ├TfrmODLab.cboFrequencyChange
   │ ├TfrmODLab.setup508Label
   │ └TfrmODLab.ControlChange...
   ├TLabTest.ObtainCollSamp
   ├TfrmODLab.setup508Label
   ├TLabTest.IndexOfCollSamp
   ├TfrmODBase.OrderMessage...
   ├TLabTest.ObtainSpecimen...
   ├TLabTest.ObtainUrgency
   ├TLabTest.ObtainComment
   ├TfrmODLab.LoadRequiredComment...
   ├TfrmODLab.DisableCommentPanels
   └TfrmODLab.ControlChange...

Calls

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


Source

1228  procedure TfrmODLab.cboAvailTestExit(Sender: TObject);
1229  begin
1230    inherited;
1231    if (Length(cboAvailTest.ItemID) = 0) or (cboAvailTest.ItemID = '0') then Exit;
1232    if cboAvailTest.ItemID = FLastLabID then Exit;
1233    cboAvailTestSelect(cboAvailTest);
1234    cboAvailTest.SetFocus;
1235    PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
1236  end;