Procedure

TRemPrompt.SetValue

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Visibility

Protected

Owner

TRemPrompt

Declaration

procedure SetValue(Value: string);

Calls Hierarchy


TRemPrompt.SetValue
 ├TRemPrompt.Forced
 ├TRemPrompt.PromptType
 │ └Code2PromptType
 ├FMToday
 │ └FMNow
 ├TRemPrompt.GetValue
 │ ├TRemDlgElement.Historical
 │ ├TPCEData.VisitDateTime
 │ │ └TPCEData.IsSecondaryVisit
 │ ├TRemPrompt.RemDataActive
 │ │ └TRemPrompt.CompareActiveDate
 │ └TRemPrompt.RemDataChoiceActive
 ├TPCEData.VisitDateTime...
 ├TRemData.InternalValue
 ├TRemDlgElement.Historical
 ├TRemPrompt.RemDataActive...
 ├TRemPrompt.RemDataChoiceActive
 ├IsSyncPrompt
 ├TRemPCERoot.Sync
 │ ├TRemPrompt.PromptType...
 │ ├TRemPrompt.GetValue...
 │ ├TRemPrompt.Forced
 │ ├TRemDlgElement.IsChecked
 │ ├TRemPrompt.SetValue...
 │ └TRemDlgElement.cbClicked
 │   ├TReminderDialog.BeginTextChanged
 │   ├TReminderDialog.BeginNeedRedraw
 │   ├TRemDlgElement.SetChecked
 │   │ ├TRemDlgElement.GetData
 │   │ │ ├GetDialogPrompts
 │   │ │ ├TRemDlgElement.Historical
 │   │ │ ├TRemDlgElement.FindingType
 │   │ │ │ └TRemDlgElement.ElemType
 │   │ │ ├TReminderDialog.GetDlgSL
 │   │ │ │ ├TReminderDialog.GetIEN
 │   │ │ │ └GetDialogInfo
 │   │ │ └TRemDlgElement.UpdateData
 │   │ │   ├TReminderDialog.GetDlgSL...
 │   │ │   ├Code2DataType
 │   │ │   ├MHTestsOK
 │   │ │   ├TRemPrompt.Create
 │   │ │   ├TRemData.Add2PN
 │   │ │   ├TPCEData.VisitDateTime...
 │   │ │   ├TRemDlgElement.OneValidCode
 │   │ │   │ ├TRemPrompt.Create
 │   │ │   │ └TRemPrompt.CompareActiveDate
 │   │ │   ├TRemDlgElement.setActiveDates
 │   │ │   ├TRemPCERoot.GetRoot
 │   │ │   ├TRemDlgElement.Historical
 │   │ │   ├Code2VitalType
 │   │ │   ├MHDLLFound
 │   │ │   │ └CheckforMHDll
 │   │ │   │   ├LoadMHDLL
 │   │ │   │   └UnloadMHDLL
 │   │ │   ├Code2PromptType
 │   │ │   ├TRemPrompt.InitValue
 │   │ │   │ ├TRemPrompt.InternalValue
 │   │ │   │ ├TRemPrompt.PromptType...
 │   │ │   │ ├GetPCECodes
 │   │ │   │ │ ├LoadHistLocations
 │   │ │   │ │ └CodeSetIndex
 │   │ │   │ │   ├LoadImmSeriesItems
 │   │ │   │ │   ├LoadImmReactionItems
 │   │ │   │ │   ├LoadSkResultsItems
 │   │ │   │ │   ├LoadPEDLevelItems
 │   │ │   │ │   ├LoadHFLevelItems
 │   │ │   │ │   └LoadXAMResultsItems
 │   │ │   │ ├TRemPrompt.Forced
 │   │ │   │ ├IsSyncPrompt
 │   │ │   │ ├TRemPCERoot.GetValue
 │   │ │   │ └TRemPrompt.SetValueFromParent
 │   │ │   │   └TRemPrompt.SetValue...
 │   │ │   ├PrepText4NextLine
 │   │ │   └ExpandTIUObjects
 │   │ │     ├TdmodShared.BoilerplateOK
 │   │ │     │ ├ErrCount
 │   │ │     │ ├AddErr
 │   │ │     │ └TdmodShared.LoadTIUObjects
 │   │ │     │   └GetObjectList
 │   │ │     └GetTemplateText
 │   │ │       └TEncounter.GetVisitStr
 │   │ │         └TEncounter.GetVisitCategory
 │   │ ├TRemDlgElement.Check4ChildrenSharedPrompts
 │   │ │ ├TRemDlgElement.ChildrenSharePrompts
 │   │ │ ├TRemDlgElement.GetData...
 │   │ │ └TRemPrompt.CanShare
 │   │ │   ├TRemPrompt.Forced
 │   │ │   ├TRemPrompt.Required
 │   │ │   │ └TRemPrompt.PromptType...
 │   │ │   ├TRemPrompt.PromptType...
 │   │ │   ├TRemPrompt.Add2PN
 │   │ │   │ ├TRemPrompt.Forced
 │   │ │   │ └TRemPrompt.PromptOK
 │   │ │   │   ├TRemPrompt.PromptType...
 │   │ │   │   ├TRemDlgElement.Historical
 │   │ │   │   ├TRemPrompt.RemDataActive...
 │   │ │   │   └TRemPrompt.CompareActiveDate
 │   │ │   └TRemPrompt.Caption
 │   │ │     └AssignFieldIDs
 │   │ │       └GetNewFieldID
 │   │ ├TRemDlgElement.ChildrenRequired
 │   │ ├..(rec)..
 │   │ ├UpdateForcedValues
 │   │ │ ├TRemDlgElement.IsChecked
 │   │ │ ├TRemPrompt.Forced
 │   │ │ ├TRemPrompt.SetValueFromParent...
 │   │ │ └..(rec)..
 │   │ ├TRemPrompt.Forced
 │   │ ├IsSyncPrompt
 │   │ ├TRemPrompt.PromptType...
 │   │ └TRemPCERoot.UnSync
 │   │   └TRemPrompt.Forced
 │   ├TReminderDialog.EndNeedRedraw
 │   └TReminderDialog.EndTextChanged
 ├TReminderDialog.Visible
 │ └CurrentReminderInDialog
 ├TRemPrompt.VitalValue
 │ └TRemPrompt.GetValue...
 └TRemPrompt.VitalUnitValue
   ├TRemPrompt.VitalType
   │ ├Code2VitalType
   │ └TRemData.InternalValue
   └TRemPrompt.GetValue...

Called-By Hierarchy


                                                                                           TRemPrompt.SetValue
                                                                             TRemDlgElement.SubCommentChange┤ 
                                                                                                AddPrompts┤ │ 
                                                                                           UpdatePrompts┤ │ │ 
                                                                          TRemDlgElement.BuildControls┘ │ │ │ 
                                                                       TReminderDialog.BuildControls┤   │ │ │ 
                                                                          TfrmRemDlg.BuildControls┘ │   │ │ │ 
                                                                      TfrmRemDlg.ProcessReminder┤   │   │ │ │ 
                                                                            ViewRemDlgFromForm┤ │   │   │ │ │ 
                                                                                  ViewRemDlg┤ │ │   │   │ │ │ 
                                                                        ViewReminderDialog┤ │ │ │   │   │ │ │ 
                                                          TfrmDrawers.tvRemindersMouseUp┤ │ │ │ │   │   │ │ │ 
                                                          TfrmDrawers.RemindersChanged┘ │ │ │ │ │   │   │ │ │ 
                                                             TfrmDrawers.ShowDrawers┘   │ │ │ │ │   │   │ │ │ 
                                                         TfrmDrawers.CreateDrawers┤     │ │ │ │ │   │   │ │ │ 
                                                           TfrmDCSumm.FormCreate┤ │     │ │ │ │ │   │   │ │ │ 
                                                         TfrmConsults.FormCreate┤ │     │ │ │ │ │   │   │ │ │ 
                                                          TfrmSurgery.FormCreate┤ │     │ │ │ │ │   │   │ │ │ 
                                                            TfrmNotes.FormCreate┘ │     │ │ │ │ │   │   │ │ │ 
                                                        TfrmDrawers.DisplayDrawers┘     │ │ │ │ │   │   │ │ │ 
                                                         TfrmConsults.DisplayPCE┤       │ │ │ │ │   │   │ │ │ 
                                                 TfrmConsults.lstConsultsClick┤ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmConsults.tvConsultsChange┘ │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmConsults.mnuActDetachFromIDParentClick┤   │ │       │ │ │ │ │   │   │ │ │ 
                                                  TfrmConsults.NotifyOrder┤   │ │       │ │ │ │ │   │   │ │ │ 
                                                    TfrmFrame.UMNewOrder┘ │   │ │       │ │ │ │ │   │   │ │ │ 
                                    TfrmConsults.mnuActDisplayDetailsClick┤   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmConsults.mnuActIdentifyAddlSignersClick┤   │ │       │ │ │ │ │   │   │ │ │ 
                                   TfrmConsults.popNoteMemoAddlSignClick┘ │   │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmConsults.ProcessNotifications┤   │ │       │ │ │ │ │   │   │ │ │ 
                                                TfrmConsults.DisplayPage┘ │   │ │       │ │ │ │ │   │   │ │ │ 
                                                 TfrmConsults.LoadConsults┤   │ │       │ │ │ │ │   │   │ │ │ 
                                                 TfrmConsults.UpdateList┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                             TfrmConsults.mnuViewClick┤ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmConsults.SetViewContext┘ │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                          TfrmConsults.DisplayPage┤   │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmConsults.mnuViewReturntoDefaultClick┘   │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                    TfrmConsults.mnuActNoteDeleteClick┤ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                      TfrmConsults.SaveEditedConsult┘ │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                      TfrmConsults.SaveCurrentNote┘   │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmConsults.AllowContextChange┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmFrame.AllowContextChangeAll┘ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                    TfrmFrame.FormCloseQuery┤   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                  TfrmFrame.mnuFileNextClick┤   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmFrame.mnuFileOpenClick┤ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                    TfrmFrame.UMInitiate┤ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmFrame.mnuFileNextClick...┤ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmFrame.mnuFileRefreshClick┤ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmOrders.CheckOrderStatus┤ │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                       TfrmOrders.mnuActChgEvntClick┤ │ │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmOrders.mnuActHoldClick┤ │ │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmOrders.mnuActUnholdClick┤ │ │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmOrders.mnuActRenewClick┤ │ │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmOrders.mnuActChangeClick┤ │ │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmOrders.mnuActCopyClick┘ │ │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmMeds.mnuActDCClick┤ │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmMeds.CheckMedStatus┘ │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmMeds.mnuActHoldClick┤   │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmMeds.mnuActRenewClick┤   │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmMeds.mnuActUnholdClick┤   │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmMeds.mnuActChangeClick┤   │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmMeds.mnuActCopyClick┤   │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmMeds.mnuActRefillClick┘   │ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                      TfrmFrame.ViewInfo┘ │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   TfrmDCSumm.ViewInfo┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmConsults.ViewInfo┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmFrame.pnlRemindersMouseUp┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmFrame.RemindersChanged┘ │   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmFrame.FormCreate┘   │   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmFrame.pnlCIRNClick┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmFrame.pnlVistaWebClick┤ │   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmFrame.FormKeyDown┘ │   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmFrame.pnlPatientClick┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmFrame.pnlVisitClick┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmFrame.pnlPrimaryCareClick┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmFrame.pnlRemindersClick┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmFrame.pnlPostingsClick┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmFrame.pnlFlagClick┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                  TfrmFrame.laMHVClick┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmFrame.laVAA2Click┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   TfrmOrders.ViewInfo┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                     TfrmMeds.ViewInfo┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                  TfrmSurgery.ViewInfo┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                    TfrmNotes.ViewInfo┤   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmProblems.ViewInfo┘   │ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmFrame.mnuFileNotifRemoveClick┤ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmFrame.NextButtonClick┘ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmFrame.SetUpNextButton┘   │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmFrame.mnuFileOpenClick...┤     │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                  TfrmFrame.FormResize┘     │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmFrame.ChangeFont┘       │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmFrame.LoadSizesForUser┤         │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                   TfrmFrame.LoadUserPreferences┘ │         │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmFrame.UMInitiate┘   │         │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmFrame.mnuFontSizeClick┘         │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmFrame.mnuFileOpenClick...┤   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmFrame.ctxContextorPending┤   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmFrame.StartCCOWContextor┘ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                    TfrmFrame.FormCreate┘   │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmFrame.ctxContextorCommitted┤   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmFrame.StartCCOWContextor...┘ │   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                      TfrmFrame.mnuFileResumeContextGetClick┤   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                      TfrmFrame.mnuFileResumeContextSetClick┘   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                  TfrmConsults.SetViewContext...┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                    TfrmConsults.mnuViewClick...┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                      TfrmConsults.mnuActDetachFromIDParentClick┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmConsults.mnuActNoteDeleteClick...┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmConsults.mnuActSignatureSaveClick┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmConsults.mnuActSignatureSignClick┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                       TfrmConsults.SaveSignItem┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmReview.cmdOKClick┘ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                               ReviewChanges┘   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmFrame.AllowContextChangeAll...┤     │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                  TfrmFrame.FormCloseQuery┤     │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmFrame.mnuFileReviewClick┤     │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                           UpdateEncounter┘     │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmFrame.mnuFileEncounterClick┤       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmFrame.ViewInfo...┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                    TfrmODMedIV.SetValuesFromResponses┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmODMedIV.SetupDialog┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                   TfrmODMedIV.cboSolutionMouseClick┘ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                       TfrmODMedIV.cboSolutionExit┘   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                  TfrmODMedIV.cboSolutionMouseClick...┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                     TfrmODMedIV.cboAdditiveMouseClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmODMedIV.cboAdditiveExit┘ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmODAuto.SetupDialog┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   ActivateOrderDialog┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmRemDlg.btnFinishClick┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
           TfrmConsults.mnuActNewConsultRequestClick┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                   TfrmConsults.cmdNewConsultClick┘ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                TfrmConsults.mnuActNewProcedureClick┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                      TfrmConsults.cmdNewProcClick┘ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                        ChangeOrders┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                      TfrmOrders.mnuActChangeClick┤ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmMeds.mnuActChangeClick┘ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                     ChangeOrdersEvt┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                          CopyOrders┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmODActive.btnOKClick┘ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                      TransferOrders┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmODActive.btnOKClick┘ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmOrders.lstWriteClick┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
               TfrmOrders.PlaceOrderForDefaultDialog┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                  TfrmOrders.DisplayDefaultDlgList┤ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                       TfrmOrders.ResetOrderPage┘ │ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
               TfrmOrders.btnDelayedOrderClick┘   │ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 DisplayEvntDialog┤ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             SetDelayEventForMed┘ │ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                      TfrmMeds.mnuActCopyClick┘   │ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 DisplayEvntDialog┤ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                  SetViewForCopy┘ │ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                    TfrmOrders.mnuActCopyClick┘   │ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 DisplayEvntDialog┘ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                ExecuteChangeEvt┘   │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                 TfrmOrders.mnuActChgEvntClick┘     │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmMeds.mnuActNewClick┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmOMNavA.ActivateDialog┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmOMNavA.grdMenuKeyDown┤ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmOMNavA.grdMenuMouseUp┘ │ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmOMSet.DoNextItem┘ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmOMSet.InsertList┤   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               ActivateOrderList┘ │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                     TfrmRemDlg.btnFinishClick┤   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             ActivateOrderHTML┤   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              ActivateOrderSet┤   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                   TfrmRemDlg.btnFinishClick┤ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
     TfrmConsults.mnuActNewProcedureClick...┤ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                     TfrmMeds.mnuActNewClick┤ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                TfrmOMNavA.ActivateDialog...┤ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                     TfrmOMSet.DoNextItem...┘ │   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                       TfrmOMNavA.DoSelectList┘   │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                        SkipToNext┤   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmOMSet.DoNextItem...┘ │   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmOMSet.UMDelayEvent┘   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmOMSet.InsertList...┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmODMeds.SetupDialog┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmODMeds.btnSelectClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmODMeds.UMDelayClick┘ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                    ExecuteRenewOrders┘ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmOrders.mnuActRenewClick┤   │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmMeds.mnuActRenewClick┘   │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                        EncounterPresent┤       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                      ReadyForNewOrder┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmRemDlg.btnFinishClick┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
        TfrmConsults.mnuActNewConsultRequestClick...┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
             TfrmConsults.mnuActNewProcedureClick...┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                     ChangeOrders...┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                     ChangeOrdersEvt┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                       CopyOrders...┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   TransferOrders...┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmOrders.lstWriteClick┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmMeds.mnuActNewClick┘ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                     ReadyForNewOrder1┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
            TfrmOrders.PlaceOrderForDefaultDialog...┘ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmOrders.mnuActDCClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmOrders.mnuActRelClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmOrders.mnuActHoldClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmOrders.mnuActUnholdClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmOrders.mnuActRenewClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmOrders.mnuActReleaseClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmOrders.mnuActOnChartClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmOrders.mnuActSignClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmMeds.mnuActDCClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmMeds.mnuActHoldClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmMeds.mnuActRenewClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmMeds.mnuActUnholdClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmMeds.mnuActCopyClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmMeds.mnuActRefillClick┘ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                     EncounterPresentEDO┤       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   ReadyForNewOrder...┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmOrders.mnuActChgEvntClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmOrders.mnuActChangeClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmOrders.mnuActCopyClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                       TfrmOrders.btnDelayedOrderClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmMeds.mnuActChangeClick┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmMeds.mnuActCopyClick┘ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                             UpdateVisit┤       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                           EditPCEData┤ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmSurgery.cmdPCEClick┤ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 UpdateEncounterInfo┘ │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmNotes.cmdPCEClick┘   │ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmVitals.btnEnterVitalsClick┘ │       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                             UpdateVisit┤       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                        EncounterPresent┘       │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmProblems.lstProbActsClick┘         │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                     TfrmProblems.wgProbDataDblClick┤           │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                           TfrmProblems.lstViewClick┘           │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                   TfrmProblems.HighlightDuplicate┘             │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                         TfrmProblems.AddProblem┤               │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
              TfrmProblems.lstProbActsClick...┤ │               │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                 TfrmProblems.lstProbPickClick┤ │               │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
              TfrmProblems.lstProbPickDblClick┤ │               │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
              TfrmProblems.edProbEntKeyPress┘ │ │               │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                      TfrmProblems.UMPLLexicon┘ │               │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                   TfrmdlgProb.bbChangeProbClick┘               │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmConsults.mnuActConsultClick┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                       TfrmConsults.RequestPrint┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmConsults.mnuActPrintSF513Click┤ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   TfrmFrame.mnuFilePrintClick┘ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmConsults.mnuActDisplayResultsClick┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmConsults.ProcessNotifications...┘ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmConsults.mnuActDisplaySF513Click┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmConsults.mnuActPrintSF513Click┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmConsults.mnuActDisplayDetailsClick┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                          TfrmConsults.FormClose┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                  TfrmConsults.mnuActIdentifyAddlSignersClick...┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmConsults.ProcessNotifications...┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmConsults.mnuActNotePrintClick┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmConsults.popNoteMemoPrintClick┘ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                       TfrmConsults.StartNewEdit┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmConsults.mnuActCompleteClick┤ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmConsults.mnuActAddIDEntryClick┤ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                          TfrmConsults.mnuActMakeAddendumClick┤ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmConsults.mnuActNoteEditClick┘ │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                            TfrmConsults.mnuActCompleteClick┘   │     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmConsults.tvCsltNotesDragDrop┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmConsults.tvCsltNotesStartDrag┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                        TfrmConsults.mnuActAttachtoIDParentClick┤     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmConsults.LstConsultsToPrint┘     │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                      TfrmFrame.mnuFilePrintSelectedItemsClick┘       │ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmConsults.mnuActSignatureSaveClick┤ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmConsults.mnuActSignatureSignClick┤ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                          TfrmConsults.SaveSignItem...┤ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                       TfrmConsults.mnuActConsultClick┤ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                           TfrmConsults.NotifyOrder...┤ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmConsults.UMNewOrder┤ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                        TfrmConsults.ProcessMedResults┘ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   TfrmConsults.mnuActAttachMedClick┤   │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   TfrmConsults.mnuActRemoveMedClick┘   │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                    TfrmConsults.mnuActEditResubmitClick┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                     TfrmConsults.cmdEditResubmitClick┘ │ │   │ │       │ │ │ │ │   │   │ │ │ 
                                      TfrmConsults.LstConsultsToPrint...┘ │   │ │       │ │ │ │ │   │   │ │ │ 
                                              TfrmConsults.tvConsultsClick┤   │ │       │ │ │ │ │   │   │ │ │ 
                                            TfrmConsults.mnuViewClick...┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmConsults.mnuActDetachFromIDParentClick┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   TfrmConsults.mnuActNoteDeleteClick...┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   TfrmConsults.mnuActSignatureSaveClick┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                   TfrmConsults.mnuActSignatureSignClick┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                            TfrmConsults.SaveSignItem...┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmConsults.mnuActConsultClick┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                 TfrmConsults.mnuActEditResubmitClick...┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                            TfrmConsults.StartNewEdit...┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                       TfrmConsults.ProcessMedResults...┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmConsults.mnuActAttachtoIDParentClick┘ │   │ │       │ │ │ │ │   │   │ │ │ 
                                              TfrmConsults.DoAttachIDChild┤   │ │       │ │ │ │ │   │   │ │ │ 
                                        TfrmConsults.tvCsltNotesDragDrop┤ │   │ │       │ │ │ │ │   │   │ │ │ 
                                TfrmConsults.mnuActAttachtoIDParentClick┘ │   │ │       │ │ │ │ │   │   │ │ │ 
                                              TfrmConsults.tvConsultsKeyUp┘   │ │       │ │ │ │ │   │   │ │ │ 
                                                      TfrmConsults.cmdPCEClick┤ │       │ │ │ │ │   │   │ │ │ 
                                                    TfrmConsults.lstNotesClick┤ │       │ │ │ │ │   │   │ │ │ 
                                                TfrmConsults.CompleteConsult┤ │ │       │ │ │ │ │   │   │ │ │ 
                                          TfrmConsults.mnuActCompleteClick┤ │ │ │       │ │ │ │ │   │   │ │ │ 
                                        TfrmConsults.mnuActAddIDEntryClick┘ │ │ │       │ │ │ │ │   │   │ │ │ 
                                                 TfrmConsults.InsertAddendum┤ │ │       │ │ │ │ │   │   │ │ │ 
                                      TfrmConsults.mnuActMakeAddendumClick┘ │ │ │       │ │ │ │ │   │   │ │ │ 
                                                    TfrmConsults.LoadForEdit┤ │ │       │ │ │ │ │   │   │ │ │ 
                                       TfrmConsults.mnuActNoteEditClick...┘ │ │ │       │ │ │ │ │   │   │ │ │ 
                                                                 SaveOrAbort┤ │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmConsults.SaveEditedConsult...┘ │ │ │       │ │ │ │ │   │   │ │ │ 
                                           TfrmConsults.SaveEditedConsult...┤ │ │       │ │ │ │ │   │   │ │ │ 
                                       TfrmConsults.mnuActSignatureSignClick┤ │ │       │ │ │ │ │   │   │ │ │ 
                                                TfrmConsults.SaveSignItem...┤ │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmConsults.mnuActIdentifyAddlSignersClick...┤ │ │       │ │ │ │ │   │   │ │ │ 
                                              TfrmConsults.tvCsltNotesChange┘ │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmConsults.SaveEditedConsult...┤   │ │       │ │ │ │ │   │   │ │ │ 
                                     TfrmConsults.mnuActSignatureSignClick┤   │ │       │ │ │ │ │   │   │ │ │ 
                                      TfrmConsults.ProcessNotifications...┘   │ │       │ │ │ │ │   │   │ │ │ 
                                                    TfrmConsults.AssignRemForm┘ │       │ │ │ │ │   │   │ │ │ 
                                                       ViewRemDlgFromForm...┘   │       │ │ │ │ │   │   │ │ │ 
                                                          TfrmSurgery.DisplayPCE┤       │ │ │ │ │   │   │ │ │ 
                                                       TfrmSurgery.cmdPCEClick┤ │       │ │ │ │ │   │   │ │ │ 
                                                   TfrmSurgery.tvSurgeryChange┤ │       │ │ │ │ │   │   │ │ │ 
                                                  TfrmSurgery.SaveEditedNote┤ │ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.SaveCurrentNote┘ │ │ │       │ │ │ │ │   │   │ │ │ 
                                          TfrmSurgery.AllowContextChange┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                    TfrmFrame.AllowContextChangeAll...┘ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                              TfrmSurgery.SetViewContext┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.DisplayPage┤ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                               TfrmSurgery.mnuViewReturntoDefaultClick┘ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                                TfrmSurgery.RequestPrint┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                           TfrmFrame.mnuFilePrintClick┘ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                                TfrmSurgery.mnuViewClick┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmSurgery.SetViewContext...┘ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                                TfrmSurgery.StartNewEdit┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                            TfrmSurgery.mnuActNewClick┤ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmSurgery.cmdNewNoteClick┘ │ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmSurgery.mnuActAddendClick┤ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                           TfrmSurgery.mnuActEditClick┘ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                           TfrmSurgery.mnuActDeleteClick┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmSurgery.SaveEditedNote...┘ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                             TfrmSurgery.mnuActSaveClick┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                             TfrmSurgery.mnuActSignClick┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                                TfrmSurgery.SaveSignItem┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                              TfrmReview.cmdOKClick...┘ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                                   TfrmSurgery.FormClose┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                              TfrmSurgery.mnuActIdentifyAddlSignersClick┤   │ │ │       │ │ │ │ │   │   │ │ │ 
                                  TfrmSurgery.popNoteMemoAddlSignClick┘ │   │ │ │       │ │ │ │ │   │   │ │ │ 
                                        TfrmSurgery.ProcessNotifications┘   │ │ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.DisplayPage┘     │ │ │       │ │ │ │ │   │   │ │ │ 
                                                 TfrmSurgery.mnuActSignClick┤ │ │       │ │ │ │ │   │   │ │ │ 
                                              TfrmSurgery.mnuViewDetailClick┤ │ │       │ │ │ │ │   │   │ │ │ 
                                         TfrmSurgery.ProcessNotifications...┤ │ │       │ │ │ │ │   │   │ │ │ 
                                                TfrmSurgery.LoadSurgeryCases┘ │ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.mnuViewClick...┤   │ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.StartNewEdit...┤   │ │       │ │ │ │ │   │   │ │ │ 
                                          TfrmSurgery.mnuActDeleteClick...┤   │ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.mnuActSaveClick┤   │ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.mnuActSignClick┤   │ │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.SaveSignItem...┤   │ │       │ │ │ │ │   │   │ │ │ 
                             TfrmSurgery.mnuActIdentifyAddlSignersClick...┘   │ │       │ │ │ │ │   │   │ │ │ 
                                                     TfrmSurgery.lstNotesClick┘ │       │ │ │ │ │   │   │ │ │ 
                                                   TfrmSurgery.InsertNewNote┤   │       │ │ │ │ │   │   │ │ │ 
                                             TfrmSurgery.mnuActNewClick...┘ │   │       │ │ │ │ │   │   │ │ │ 
                                                  TfrmSurgery.InsertAddendum┤   │       │ │ │ │ │   │   │ │ │ 
                                             TfrmSurgery.mnuActAddendClick┘ │   │       │ │ │ │ │   │   │ │ │ 
                                                     TfrmSurgery.LoadForEdit┤   │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.mnuActEditClick┘ │   │       │ │ │ │ │   │   │ │ │ 
                                               TfrmSurgery.SaveEditedNote...┤   │       │ │ │ │ │   │   │ │ │ 
                                                 TfrmSurgery.mnuActSignClick┤   │       │ │ │ │ │   │   │ │ │ 
                                                 TfrmSurgery.SaveSignItem...┤   │       │ │ │ │ │   │   │ │ │ 
                               TfrmSurgery.mnuActIdentifyAddlSignersClick...┤   │       │ │ │ │ │   │   │ │ │ 
                                              TfrmSurgery.tvSurgeryChange...┘   │       │ │ │ │ │   │   │ │ │ 
                                                            TfrmNotes.DisplayPCE┘       │ │ │ │ │   │   │ │ │ 
                                                       TfrmNotes.lstNotesClick┤         │ │ │ │ │   │   │ │ │ 
                                                     TfrmNotes.InsertNewNote┤ │         │ │ │ │ │   │   │ │ │ 
                                                  TfrmNotes.mnuActNewClick┤ │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.cmdNewNoteClick┘ │ │ │         │ │ │ │ │   │   │ │ │ 
                                           TfrmNotes.mnuActAddIDEntryClick┘ │ │         │ │ │ │ │   │   │ │ │ 
                                                    TfrmNotes.InsertAddendum┤ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.mnuActAddendClick┘ │ │         │ │ │ │ │   │   │ │ │ 
                                                       TfrmNotes.LoadForEdit┤ │         │ │ │ │ │   │   │ │ │ 
                                                 TfrmNotes.mnuActEditClick┘ │ │         │ │ │ │ │   │   │ │ │ 
                                                    TfrmNotes.SaveEditedNote┤ │         │ │ │ │ │   │   │ │ │ 
                                                 TfrmNotes.SaveCurrentNote┘ │ │         │ │ │ │ │   │   │ │ │ 
                                            TfrmNotes.AllowContextChange┤   │ │         │ │ │ │ │   │   │ │ │ 
                                    TfrmFrame.AllowContextChangeAll...┘ │   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.LstNotesToPrint┤   │ │         │ │ │ │ │   │   │ │ │ 
                              TfrmFrame.mnuFilePrintSelectedItemsClick┘ │   │ │         │ │ │ │ │   │   │ │ │ 
                                                  TfrmNotes.RequestPrint┤   │ │         │ │ │ │ │   │   │ │ │ 
                                           TfrmFrame.mnuFilePrintClick┘ │   │ │         │ │ │ │ │   │   │ │ │ 
                                                  TfrmNotes.mnuViewClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                              TfrmNotes.SetViewContext┤ │   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.DisplayPage┤ │ │   │ │         │ │ │ │ │   │   │ │ │ 
                               TfrmNotes.mnuViewReturntoDefaultClick┘ │ │   │ │         │ │ │ │ │   │   │ │ │ 
                                   TfrmNotes.mnuViewSaveAsDefaultClick┘ │   │ │         │ │ │ │ │   │   │ │ │ 
                                                  TfrmNotes.StartNewEdit┤   │ │         │ │ │ │ │   │   │ │ │ 
                                           TfrmNotes.mnuActNewClick...┤ │   │ │         │ │ │ │ │   │   │ │ │ 
                                       TfrmNotes.mnuActAddIDEntryClick┤ │   │ │         │ │ │ │ │   │   │ │ │ 
                                           TfrmNotes.mnuActAddendClick┤ │   │ │         │ │ │ │ │   │   │ │ │ 
                                             TfrmNotes.mnuActEditClick┘ │   │ │         │ │ │ │ │   │   │ │ │ 
                                 TfrmNotes.mnuActDetachFromIDParentClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                             TfrmNotes.mnuActDeleteClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                           TfrmNotes.SaveEditedNote...┘ │   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.mnuActSaveClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.mnuActSignClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                                  TfrmNotes.SaveSignItem┤   │ │         │ │ │ │ │   │   │ │ │ 
                                              TfrmReview.cmdOKClick...┘ │   │ │         │ │ │ │ │   │   │ │ │ 
                                                     TfrmNotes.FormClose┤   │ │         │ │ │ │ │   │   │ │ │ 
                                TfrmNotes.mnuActIdentifyAddlSignersClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                    TfrmNotes.popNoteMemoAddlSignClick┘ │   │ │         │ │ │ │ │   │   │ │ │ 
                                          TfrmNotes.ProcessNotifications┤   │ │         │ │ │ │ │   │   │ │ │ 
                                                 TfrmNotes.DisplayPage┘ │   │ │         │ │ │ │ │   │   │ │ │ 
                                             TfrmNotes.SetViewContext...┤   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.tvNotesDragDrop┤   │ │         │ │ │ │ │   │   │ │ │ 
                                   TfrmNotes.mnuActAttachtoIDParentClick┘   │ │         │ │ │ │ │   │   │ │ │ 
                                                   TfrmNotes.mnuActSignClick┤ │         │ │ │ │ │   │   │ │ │ 
                                                   TfrmNotes.SaveSignItem...┤ │         │ │ │ │ │   │   │ │ │ 
                                                TfrmNotes.mnuViewDetailClick┤ │         │ │ │ │ │   │   │ │ │ 
                                 TfrmNotes.mnuActIdentifyAddlSignersClick...┤ │         │ │ │ │ │   │   │ │ │ 
                                                     TfrmNotes.tvNotesChange┤ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.SaveEditedNote...┤ │ │         │ │ │ │ │   │   │ │ │ 
                                                 TfrmNotes.mnuActSignClick┤ │ │         │ │ │ │ │   │   │ │ │ 
                                         TfrmNotes.ProcessNotifications...┤ │ │         │ │ │ │ │   │   │ │ │ 
                                                       TfrmNotes.LoadNotes┘ │ │         │ │ │ │ │   │   │ │ │ 
                                            TfrmNotes.LstNotesToPrint...┤   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.mnuViewClick...┤   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.StartNewEdit...┤   │ │         │ │ │ │ │   │   │ │ │ 
                                 TfrmNotes.mnuActDetachFromIDParentClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                          TfrmNotes.mnuActDeleteClick...┤   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.mnuActSaveClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.mnuActSignClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.SaveSignItem...┤   │ │         │ │ │ │ │   │   │ │ │ 
                             TfrmNotes.mnuActIdentifyAddlSignersClick...┤   │ │         │ │ │ │ │   │   │ │ │ 
                                   TfrmNotes.mnuActAttachtoIDParentClick┤   │ │         │ │ │ │ │   │   │ │ │ 
                                               TfrmNotes.DoAttachIDChild┘   │ │         │ │ │ │ │   │   │ │ │ 
                                             TfrmNotes.tvNotesDragDrop┤     │ │         │ │ │ │ │   │   │ │ │ 
                                 TfrmNotes.mnuActAttachtoIDParentClick┘     │ │         │ │ │ │ │   │   │ │ │ 
                                                 TfrmNotes.lvNotesSelectItem┘ │         │ │ │ │ │   │   │ │ │ 
                                                TfrmNotes.tvNotesChange...┘   │         │ │ │ │ │   │   │ │ │ 
                                                        UpdateEncounterInfo...┤         │ │ │ │ │   │   │ │ │ 
                                                       TfrmNotes.AssignRemForm┘         │ │ │ │ │   │   │ │ │ 
                                                       ViewRemDlgFromForm...┘           │ │ │ │ │   │   │ │ │ 
                                                          TfrmDrawers.tvRemindersKeyDown┘ │ │ │ │   │   │ │ │ 
                                                                ViewReminderDialogTemplate┘ │ │ │   │   │ │ │ 
                                                                  ViewRemDlgTemplateFromForm┘ │ │   │   │ │ │ 
                                                           TTemplate.ExecuteReminderDialog┘   │ │   │   │ │ │ 
                                                            ExecuteTemplateOrBoilerPlate┤     │ │   │   │ │ │ 
                                                                  TfrmDrawers.InsertText┘     │ │   │   │ │ │ 
                                                       TfrmDrawers.tvTemplatesDblClick┤       │ │   │   │ │ │ 
                                                        TfrmDrawers.tvTemplatesKeyDown┤       │ │   │   │ │ │ 
                                                            TfrmDrawers.NewRECDragDrop┤       │ │   │   │ │ │ 
                                                      TfrmDrawers.SetRichEditControl┘ │       │ │   │   │ │ │ 
                                                             TfrmDCSumm.FormCreate┤   │       │ │   │   │ │ │ 
                                                           TfrmConsults.FormCreate┤   │       │ │   │   │ │ │ 
                                                            TfrmSurgery.FormCreate┤   │       │ │   │   │ │ │ 
                                                              TfrmNotes.FormCreate┘   │       │ │   │   │ │ │ 
                                                    TfrmDrawers.mnuInsertTemplateClick┘       │ │   │   │ │ │ 
                                              TfrmDCSumm.popSummMemoInsTemplateClick┤         │ │   │   │ │ │ 
                                            TfrmConsults.popNoteMemoInsTemplateClick┤         │ │   │   │ │ │ 
                                             TfrmSurgery.popNoteMemoInsTemplateClick┤         │ │   │   │ │ │ 
                                               TfrmNotes.popNoteMemoInsTemplateClick┘         │ │   │   │ │ │ 
                                                                      TfrmRemDlg.btnClearClick┤ │   │   │ │ │ 
                                                         TfrmRemDlg.ProcessReminderFromNodeStr┘ │   │   │ │ │ 
                                                                     TfrmRemDlg.btnNextClick┤   │   │   │ │ │ 
                                                                     TfrmRemDlg.btnBackClick┘   │   │   │ │ │ 
                                                                          TfrmRemDlg.UMResyncRem┤   │   │ │ │ 
                                                                      TfrmRemDlg.ProcessTemplate┤   │   │ │ │ 
                                                                         ViewRemDlgFromForm...┘ │   │   │ │ │ 
                                                                          TfrmRemDlg.SetFontSize┘   │   │ │ │ 
                                                                         ViewRemDlgFromForm...┤     │   │ │ │ 
                                                                       TfrmFrame.ChangeFont...┘     │   │ │ │ 
                                                                                           ..(rec)..┘   │ │ │ 
                                                                         TRemDlgElement.BuildControls...┘ │ │ 
                                                                           TRemDlgElement.BuildControls...┘ │ 
                                                                                     TRemPrompt.PromptChange┤ 
                                                                                             AddPrompts...┘ │ 
                                                                               TRemPrompt.SetValueFromParent┤ 
                                                                                        UpdateForcedValues┤ │ 
                                                                                               ..(rec)..┤ │ │ 
                                                                               TRemDlgElement.SetChecked┘ │ │ 
                                                                            TReminderDialog.BaseCreate┤   │ │ 
                                                                              TReminderDialog.Create┤ │   │ │ 
                                                                     TfrmRemDlg.ProcessTemplate...┘ │ │   │ │ 
                                                                                    TReminder.Create┘ │   │ │ 
                                                                                       GetReminder┘   │   │ │ 
                                                                   TfrmRemDlg.ProcessReminder...┘     │   │ │ 
                                                                                             ..(rec)..┤   │ │ 
                                                                              TRemDlgElement.cbClicked┘   │ │ 
                                                                     TRemDlgElement.BuildControls...┤     │ │ 
                                                                                    TRemPCERoot.Sync┘     │ │ 
                                                                            TRemPrompt.SetValue...┘       │ │ 
                                                                                      TRemPrompt.InitValue┘ │ 
                                                                               TRemDlgElement.UpdateData┘   │ 
                                                                         TReminderDialog.BaseCreate...┤     │ 
                                                                                TRemDlgElement.GetData┘     │ 
                                                                        TRemDlgElement.SetChecked...┤       │ 
                                                          TRemDlgElement.Check4ChildrenSharedPrompts┘       │ 
                                                                      TRemDlgElement.SetChecked...┘         │ 
                                                                                         TRemPrompt.DoMHTest┤ 
                                                                                             AddPrompts...┘ │ 
                                                                                         TRemPCERoot.Sync...┘ 

Calls

Name Declaration Comments
FMToday function FMToday: TFMDateTime; -
TRemPrompt.Forced function Forced: boolean; -
TRemPrompt.GetValue function GetValue: string; -
TRemDlgElement.Historical function Historical: boolean; -
TRemData.InternalValue function InternalValue: string; -
IsSyncPrompt function IsSyncPrompt(pt: TRemPromptType): boolean; -
TRemPrompt.PromptType function PromptType: TRemPromptType; -
TRemPrompt.RemDataActive function RemDataActive(RData: TRemData; EncDt: TFMDateTime):Boolean; -
TRemPrompt.RemDataChoiceActive function RemDataChoiceActive(RData: TRemData; j: integer; EncDt: TFMDateTime):Boolean; -
TRemPCERoot.Sync procedure Sync(Prompt: TRemPrompt); -
TReminderDialog.Visible function Visible: boolean; -
TPCEData.VisitDateTime function VisitDateTime: TFMDateTime; -
TRemPrompt.VitalUnitValue function VitalUnitValue: string; -
TRemPrompt.VitalValue function VitalValue: string; -

Called-By

Name Declaration Comments
TRemPrompt.DoMHTest procedure DoMHTest(Sender: TObject); -
TRemPrompt.PromptChange procedure PromptChange(Sender: TObject); -
TRemPrompt.SetValueFromParent procedure SetValueFromParent(Value: string); -
TRemDlgElement.SubCommentChange procedure SubCommentChange(Sender: TObject); -
TRemPCERoot.Sync procedure Sync(Prompt: TRemPrompt); -


Source

6398  procedure TRemPrompt.SetValue(Value: string);
6399  var
6400    pt: TRemPromptType;
6401    i, j, k : integer;
6402    RData: TRemData;
6403    Primary, Done: boolean;
6404    Tmp: string;
6405    OK, NeedRefresh: boolean;
6406    EncDt:  TFMDateTime;
6407  
6408  begin
6409    NeedRefresh := (not FFromControl);
6410    if(Forced and (not FFromParent)) then exit;
6411    pt := PromptType;
6412    if(pt = ptVisitDate) then
6413    begin
6414      if(Value = '') then
6415        Value := '0'
6416      else
6417      begin
6418        try
6419          if(StrToFloat(Value) > FMToday) then
6420          begin
6421            Value := '0';
6422            InfoBox('Can not enter a future date for a historical event.',
6423                    'Invalid Future Date', MB_OK + MB_ICONERROR);
6424          end;
6425        except
6426          on EConvertError do
6427            Value := '0'
6428          else
6429            raise;
6430        end;
6431        if(Value = '0') then
6432          NeedRefresh := TRUE;
6433      end;
6434    end;
6435    if(GetValue <> Value) or (FFromParent) then
6436    begin
6437      FValue := Value;
6438      EncDt := RemForm.PCEObj.VisitDateTime;
6439      if((pt = ptExamResults) and assigned(FParent) and assigned(FParent.FData) and
6440         (FParent.FData.Count > 0) and assigned(FParent.FMSTPrompt)) then
6441      begin
6442        FParent.FMSTPrompt.SetValueFromParent(Value);
6443        if (FParent.FMSTPrompt.FMiscText = '') then
6444        // Assumes first finding item is MST finding
6445          FParent.FMSTPrompt.FMiscText := TRemData(FParent.FData[0]).InternalValue;
6446      end;
6447  
6448      OK := (assigned(FParent) and assigned(FParent.FData) and
6449            (Piece(FRec4, U, 4) = RemPromptCodes[ptPrimaryDiag]));
6450      if (OK = false) and (Value = 'New MH dll') then OK := true;
6451      if OK then
6452        OK := (not FParent.Historical);
6453      if OK then
6454      begin
6455        Done := FALSE;
6456        Primary := (Value = BOOLCHAR[TRUE]);
6457        for i := 0 to FParent.FData.Count-1 do
6458        begin
6459          RData := TRemData(FParent.FData[i]);
6460          if(RData.DataType = dtDiagnosis) then
6461          begin
6462            if(assigned(RData.FPCERoot)) and (RemDataActive(RData, EncDt)) then
6463            begin
6464              if(Primary) then
6465              begin
6466                PrimaryDiagRoot := RData.FPCERoot;
6467                Done := TRUE;
6468              end
6469              else
6470              begin
6471                if(PrimaryDiagRoot = RData.FPCERoot) then
6472                begin
6473                  PrimaryDiagRoot := nil;
6474                  Done := TRUE;
6475                end;
6476              end;
6477            end
6478            else
6479            if(assigned(RData.FChoices)) and (assigned(RData.FChoicePrompt)) then
6480            begin
6481              k := 0;                                                
6482              for j := 0 to RData.FChoices.Count-1 do
6483              begin
6484               if RemDataChoiceActive(RData, j, EncDt) then
6485               begin                                             
6486                if(Primary) then
6487                begin
6488                  if(assigned(RData.FChoices.Objects[j])) and  
6489                    (copy(RData.FChoicePrompt.FValue,k+1,1)='1') then
6490                  begin
6491                    PrimaryDiagRoot := TRemPCERoot(RData.FChoices.Objects[j]);
6492                    Done := TRUE;
6493                    break;
6494                  end;
6495                end
6496                else
6497                begin
6498                  if(assigned(RData.FChoices.Objects[j])) and
6499                    (PrimaryDiagRoot = TRemPCERoot(RData.FChoices.Objects[j])) then
6500                  begin
6501                    PrimaryDiagRoot := nil;
6502                    Done := TRUE;
6503                    break;
6504                  end;
6505                end;
6506                inc(k);
6507               end;                                       
6508              end;
6509            end;
6510          end;
6511          if Done then break;
6512        end;
6513      end;
6514      if(assigned(FParent) and assigned(FParent.FData) and IsSyncPrompt(pt)) then
6515      begin
6516        for i := 0 to FParent.FData.Count-1 do    
6517        begin
6518          RData := TRemData(FParent.FData[i]); 
6519          if(assigned(RData.FPCERoot)) and (RemDataActive(RData, EncDt)) then 
6520            RData.FPCERoot.Sync(Self);
6521          if(assigned(RData.FChoices)) then
6522          begin
6523            for j := 0 to RData.FChoices.Count-1 do
6524            begin
6525              if(assigned(RData.FChoices.Objects[j])) and
6526                        RemDataChoiceActive(RData, j, EncDt) then
6527                TRemPCERoot(RData.FChoices.Objects[j]).Sync(Self);
6528            end;
6529          end;
6530        end;
6531      end;
6532    end;
6533    if(not NeedRefresh) then
6534      NeedRefresh := (GetValue <> Value);
6535    if(NeedRefresh and assigned(FCurrentControl) and FParent.FReminder.Visible) then
6536    begin
6537      case pt of
6538        ptComment:
6539          (FCurrentControl as TEdit).Text := GetValue;
6540  
6541        ptQuantity:
6542          (FCurrentControl as TUpDown).Position := StrToIntDef(GetValue,1);
6543  
6544       (* ptSkinReading:
6545          (FCurrentControl as TUpDown).Position := StrToIntDef(GetValue,0); *)
6546  
6547        ptVisitDate:
6548          begin
6549            try
6550              (FCurrentControl as TORDateCombo).FMDate := StrToFloat(GetValue);
6551            except
6552              on EConvertError do
6553                (FCurrentControl as TORDateCombo).FMDate := 0;
6554              else
6555                raise;
6556            end;
6557          end;
6558  
6559        ptPrimaryDiag, ptAdd2PL, ptContraindicated:
6560          (FCurrentControl as TORCheckBox).Checked := (GetValue = BOOLCHAR[TRUE]);
6561  
6562        ptVisitLocation:
6563          begin
6564            Tmp := GetValue;
6565            with (FCurrentControl as TORComboBox) do
6566            begin
6567              if(piece(Tmp,U,1)= '0') then
6568              begin
6569                Items[0] := Tmp;
6570                SelectByID('0');
6571              end
6572              else
6573                SelectByID(Tmp);
6574            end;
6575          end;
6576  
6577        ptWHPapResult:
6578          (FCurrentControl as TORCheckBox).Checked := (GetValue = BOOLCHAR[TRUE]);
6579  
6580         ptWHNotPurp:
6581          (FCurrentControl as TORCheckBox).Checked := (GetValue = BOOLCHAR[TRUE]);
6582  
6583        ptExamResults, ptSkinResults, ptLevelSeverity,
6584        ptSeries, ptReaction, ptLevelUnderstanding, ptSkinReading: //(AGP Change 26.1)
6585          (FCurrentControl as TORComboBox).SelectByID(GetValue);
6586  
6587        else
6588          if(pt = ptVitalEntry) then
6589          begin
6590            if(FCurrentControl is TORComboBox) then
6591              (FCurrentControl as TORComboBox).SelectByID(VitalValue)
6592            else
6593            if(FCurrentControl is TVitalEdit) then
6594            begin
6595              with (FCurrentControl as TVitalEdit) do
6596              begin
6597                Text := VitalValue;
6598                if(assigned(LinkedCombo)) then
6599                begin
6600                  Tmp := VitalUnitValue;
6601                  if(Tmp <> '') then
6602                    LinkedCombo.Text := VitalUnitValue
6603                  else
6604                    LinkedCombo.ItemIndex := 0;
6605                end;
6606              end;
6607            end;
6608          end;
6609      end;
6610    end;
6611  end;