Procedure

TfrmODCslt.treServiceKeyDown

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODCslt

Declaration

procedure treServiceKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

Calls Hierarchy


TfrmODCslt.treServiceKeyDown
 ├TfrmODCslt.treServiceChange
 │ ├TfrmODBase.OrderMessage
 │ │ └TfrmODBase.ShowOrderMessage
 │ ├TResponses.Update
 │ │ ├TResponses.FindResponseByName
 │ │ └TResponses.IENForPrompt
 │ ├TResponses.Clear
 │ ├TResponses.SetQuickOrder
 │ │ ├TResponses.Clear
 │ │ └LoadResponses
 │ │   └ExtractToResponses
 │ │     └ExpandOrderObjects
 │ │       ├TdmodShared.BoilerplateOK
 │ │       │ ├ErrCount
 │ │       │ ├AddErr
 │ │       │ └TdmodShared.LoadTIUObjects
 │ │       │   └GetObjectList
 │ │       └GetTemplateText
 │ │         └TEncounter.GetVisitStr
 │ │           └TEncounter.GetVisitCategory
 │ ├TResponses.FindResponseByName
 │ ├TfrmODCslt.setup508Label
 │ ├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.DefaultReasonForRequest
 │ │ ├GetDefaultReasonForRequest
 │ │ ├ExpandOrderObjects...
 │ │ ├WasTemplateDialogCanceled
 │ │ ├TemplateBPHasObjects
 │ │ └FastAssignWith508Msg
 │ │   └SpeakTextInserted
 │ ├TfrmODCslt.SetupReasonForRequest
 │ │ ├TfrmODCslt.DefaultReasonForRequest...
 │ │ ├ReasonForRequestEditable
 │ │ ├EnableReason
 │ │ └DisableReason
 │ ├TfrmODCslt.GetProvDxandValidateCode
 │ │ ├TResponses.FindResponseByName
 │ │ ├IsActiveICDCode
 │ │ │ └IsActiveCode
 │ │ └TfrmODCslt.SetUpCopyConsultDiagnoses
 │ │   ├IsOrderBillable
 │ │   │ └PrepOrderID
 │ │   └rpcRetrieveSelectedOrderInfo
 │ ├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...
 │ ├TfrmODCslt.SetUpEarliestDate
 │ │ ├IsProstheticsService
 │ │ └TResponses.Update...
 │ ├ConsultMessage
 │ └TfrmODCslt.ControlChange...
 └TfrmODCslt.btnServiceTreeClick

Calls

Name Declaration Comments
TfrmODCslt.btnServiceTreeClick procedure btnServiceTreeClick(Sender: TObject); -
TfrmODCslt.treServiceChange procedure treServiceChange(Sender: TObject; Node: TTreeNode); -


Source

1349  procedure TfrmODCslt.treServiceKeyDown(Sender: TObject; var Key: Word;
1350    Shift: TShiftState);
1351  begin
1352    inherited;
1353    case Key of
1354    VK_SPACE, VK_RETURN:
1355      begin
1356        Key := 0;
1357        FKeyBoarding := False;
1358        treServiceChange(Sender, treService.Selected);
1359      end;
1360    VK_ESCAPE:
1361      begin
1362        key := 0;
1363        btnServiceTreeClick(Self);
1364      end    
1365    else
1366      FKeyBoarding := True;
1367    end;
1368  end;