Procedure

TfrmODCslt.cboServiceExit

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODCslt

Declaration

procedure cboServiceExit(Sender: TObject);

Calls Hierarchy


TfrmODCslt.cboServiceExit
 └TfrmODCslt.cboServiceSelect
   ├TfrmODCslt.setup508Label
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TfrmODBase.OrderMessage
   │ └TfrmODBase.ShowOrderMessage
   ├TResponses.SetQuickOrder
   │ ├TResponses.Clear
   │ └LoadResponses
   │   └ExtractToResponses
   │     └ExpandOrderObjects
   │       ├TdmodShared.BoilerplateOK
   │       │ ├ErrCount
   │       │ ├AddErr
   │       │ └TdmodShared.LoadTIUObjects
   │       │   └GetObjectList
   │       └GetTemplateText
   │         └TEncounter.GetVisitStr
   │           └TEncounter.GetVisitCategory
   ├TResponses.FindResponseByName
   ├TfrmODCslt.GetItemIndex
   ├TfrmODCslt.ShowPrerequisites
   │ ├GetServicePrerequisites
   │ └DisplayPrerequisites
   │   └CreateReportBox
   │     └TfrmBase508Form.Create
   │       ├TfrmBase508Form.UpdateAccessibilityActions
   │       ├UnfocusableControlEnter
   │       └AdjustControls
   │         ├TfrmBase508Form.ModifyUnfocusableControl
   │         └..(rec)..
   ├TResponses.SetControl
   │ ├TResponses.FindResponseByName
   │ └AssignBPText
   │   ├DisplayGroupToLinkType
   │   │ └DisplayGroupByName
   │   ├TResponses.EValueFor
   │   ├GetServiceIEN
   │   ├TResponses.IValueFor
   │   ├GetProcedureIEN
   │   ├ExpandOrderObjects...
   │   ├SetTemplateDialogCanceled
   │   ├CheckBoilerplate4Fields
   │   ├ExecuteTemplateOrBoilerPlate
   │   └WasTemplateDialogCanceled
   ├SetTemplateDialogCanceled
   ├WasTemplateDialogCanceled
   ├TfrmODCslt.SetupReasonForRequest
   │ ├TfrmODCslt.DefaultReasonForRequest
   │ │ ├GetDefaultReasonForRequest
   │ │ ├ExpandOrderObjects...
   │ │ ├WasTemplateDialogCanceled
   │ │ ├TemplateBPHasObjects
   │ │ └FastAssignWith508Msg
   │ │   └SpeakTextInserted
   │ ├ReasonForRequestEditable
   │ ├EnableReason
   │ └DisableReason
   ├TfrmODCslt.GetProvDxandValidateCode
   │ ├TResponses.FindResponseByName
   │ ├IsActiveICDCode
   │ │ └IsActiveCode
   │ └TfrmODCslt.SetUpCopyConsultDiagnoses
   │   ├IsOrderBillable
   │   │ └PrepOrderID
   │   └rpcRetrieveSelectedOrderInfo
   ├TfrmODCslt.DefaultReasonForRequest...
   ├TfrmODCslt.SetProvDiagPromptingMode
   │ ├GetProvDxMode
   │ └TfrmODCslt.ControlChange
   │   ├TResponses.Update...
   │   └TResponses.GetOrderText
   │     ├TResponses.NextInstance
   │     ├TResponses.FindResponseByName
   │     ├TResponses.FormatResponse
   │     │ └TResponses.FindResponseByIEN
   │     └TResponses.AppendChildren
   │       ├TResponses.FindPromptByIEN
   │       ├TResponses.FindResponseByIEN
   │       └TResponses.FormatResponse...
   ├ConsultMessage
   ├TfrmODCslt.ControlChange...
   └TfrmODCslt.SetUpEarliestDate
     ├IsProstheticsService
     └TResponses.Update...

Calls

Name Declaration Comments
TfrmODCslt.cboServiceSelect procedure cboServiceSelect(Sender: TObject); -


Source

1244  procedure TfrmODCslt.cboServiceExit(Sender: TObject);
1245  begin
1246    inherited;
1247    if Length(memOrder.Text) = 0 then Exit;
1248    if (Length(cboService.ItemID) = 0) or (cboService.ItemID = '0') then Exit;
1249    if cboService.ItemID = FLastServiceID then Exit;
1250    cboServiceSelect(cboService);
1251    // CQ #7490, following line commented out v26.24 (RV)
1252    // CQ #9610 and 10074 - uncommented and "if" added v26.54 (RV)
1253    if cboService.Enabled then cboService.SetFocus;
1254    PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
1255  end;