Procedure

TfrmODMedNVA.UMDelayClick

Directives

Message

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMedNVA

Declaration

procedure UMDelayClick(var Message: TMessage); message UM_DELAYCLICK;

Calls Hierarchy


TfrmODMedNVA.UMDelayClick
 └TfrmODMedNVA.btnSelectClick
   ├TfrmODMedNVA.ResetOnMedChange
   │ ├ResetControl
   │ └TResponses.Clear
   ├TResponses.SetQuickOrder
   │ ├TResponses.Clear
   │ └LoadResponses
   │   └ExtractToResponses
   │     └ExpandOrderObjects
   │       ├TdmodShared.BoilerplateOK
   │       │ ├ErrCount
   │       │ ├AddErr
   │       │ └TdmodShared.LoadTIUObjects
   │       │   └GetObjectList
   │       └GetTemplateText
   │         └TEncounter.GetVisitStr
   │           └TEncounter.GetVisitCategory
   ├TResponses.IValueFor
   ├IsActivateOI
   ├TfrmODMedNVA.SetOnMedSelect
   │ ├GetPKISite
   │ ├TCtrlInits.LoadOrderItem
   │ │ ├TCtrlInits.ClearOI
   │ │ └TCtrlInits.ExtractInits
   │ │   └TCtrlInit.Create
   │ ├OIForNVA
   │ ├TCtrlInits.SetControl
   │ │ ├ClearControl
   │ │ └TCtrlInits.FindInitByName
   │ ├TfrmODMedNVA.cboRouteChange
   │ │ └TfrmODMedNVA.ControlChange
   │ │   ├TResponses.Clear
   │ │   ├TResponses.Update
   │ │   │ ├TResponses.FindResponseByName
   │ │   │ └TResponses.IENForPrompt
   │ │   ├TfrmODMedNVA.FindCommonDrug
   │ │   │ ├TfrmODMedNVA.FindDoseFields
   │ │   │ ├SaveDrug
   │ │   │ └KillDrug
   │ │   ├TfrmODMedNVA.ConstructedDoseFields
   │ │   ├TfrmODMedNVA.ValueOf
   │ │   │ ├GetSchedule
   │ │   │ └GetScheduleEX
   │ │   ├TfrmODMedNVA.OutpatientSig
   │ │   │ ├TfrmODMedNVA.ValueOf...
   │ │   │ └TfrmODMedNVA.CheckDecimal
   │ │   └TResponses.GetOrderText
   │ │     ├TResponses.NextInstance
   │ │     ├TResponses.FindResponseByName
   │ │     ├TResponses.FormatResponse
   │ │     │ └TResponses.FindResponseByIEN
   │ │     └TResponses.AppendChildren
   │ │       ├TResponses.FindPromptByIEN
   │ │       ├TResponses.FindResponseByIEN
   │ │       └TResponses.FormatResponse...
   │ ├TCtrlInits.DefaultText
   │ │ └TCtrlInits.FindInitByName
   │ ├TfrmODMedNVA.ValueOf...
   │ └TCtrlInits.TextOf
   │   └TCtrlInits.FindInitByName
   ├TfrmODMedNVA.SetOnQuickOrder
   │ ├TResponses.InstanceCount
   │ ├TResponses.NextInstance
   │ ├TfrmODMedNVA.SetDosage
   │ ├TResponses.IValueFor
   │ ├TResponses.SetControl
   │ │ ├TResponses.FindResponseByName
   │ │ └AssignBPText
   │ │   ├DisplayGroupToLinkType
   │ │   │ └DisplayGroupByName
   │ │   ├TResponses.EValueFor
   │ │   ├GetServiceIEN
   │ │   ├TResponses.IValueFor
   │ │   ├GetProcedureIEN
   │ │   ├ExpandOrderObjects...
   │ │   ├SetTemplateDialogCanceled
   │ │   ├CheckBoilerplate4Fields
   │ │   ├ExecuteTemplateOrBoilerPlate
   │ │   └WasTemplateDialogCanceled
   │ ├TfrmODMedNVA.SetSchedule
   │ ├TfrmODMedNVA.ValueOf...
   │ ├QuantityMessage
   │ ├TfrmODMedNVA.SetStartDate
   │ ├TResponses.EValueFor
   │ ├TfrmODMedNVA.SetStatements
   │ │ └TfrmODMedNVA.SearchStatements
   │ ├QOHasRouteDefined
   │ ├GetPickupForLocation
   │ ├TResponses.FindResponseByName
   │ ├NameOfDGroup
   │ │ └LoadDGroupMap
   │ ├TfrmODMedNVA.ValueOfResponse
   │ │ └TResponses.IValueFor
   │ └TfrmODMedNVA.UpdateStartExpires
   │   ├LoadAdminInfo
   │   └FMToday
   │     └FMNow
   ├TfrmODMedNVA.ShowMedFields
   │ └TfrmODMedNVA.ShowControlsSimple
   ├TfrmODMedNVA.UpdateRelated
   │ └TfrmODMedNVA.timCheckChangesTimer
   │   ├TfrmODMedNVA.ControlChange...
   │   ├TResponses.NextInstance
   │   ├TfrmODMedNVA.ValueOfResponse...
   │   ├TfrmODMedNVA.ValueOf...
   │   └TfrmODMedNVA.UpdateStartExpires...
   ├TfrmODMedNVA.ControlChange...
   └TfrmODMedNVA.ShowMedSelect
     └TfrmODMedNVA.ChangeDelayed
       ├TfrmODMedNVA.FindQuickOrder
       ├IndexOfOrderable
       ├TfrmODMedNVA.isUniqueQuickOrder
       └TfrmODMedNVA.ScrollToVisible

Calls

Name Declaration Comments
TfrmODMedNVA.btnSelectClick procedure btnSelectClick(Sender: TObject); -


Source

765   procedure TfrmODMedNVA.UMDelayClick(var Message: TMessage);
766   begin
767     btnSelectClick(Self);
768   end;