Procedure

TfrmODMedIV.SetValuesFromResponses

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Comments

FInitialOrderID: boolean;

Visibility

Private

Owner

TfrmODMedIV

Declaration

procedure SetValuesFromResponses;

Calls Hierarchy


TfrmODMedIV.SetValuesFromResponses
 ├TResponses.SetControl
 │ ├TResponses.FindResponseByName
 │ └AssignBPText
 │   ├DisplayGroupToLinkType
 │   │ └DisplayGroupByName
 │   ├TResponses.EValueFor
 │   ├GetServiceIEN
 │   ├TResponses.IValueFor
 │   ├GetProcedureIEN
 │   ├ExpandOrderObjects
 │   │ ├TdmodShared.BoilerplateOK
 │   │ │ ├ErrCount
 │   │ │ ├AddErr
 │   │ │ └TdmodShared.LoadTIUObjects
 │   │ │   └GetObjectList
 │   │ └GetTemplateText
 │   │   └TEncounter.GetVisitStr
 │   │     └TEncounter.GetVisitCategory
 │   ├SetTemplateDialogCanceled
 │   ├CheckBoilerplate4Fields
 │   ├ExecuteTemplateOrBoilerPlate
 │   └WasTemplateDialogCanceled
 ├TfrmODBase.OrderForInpatient
 │ ├OrderEventTypeOnCreate
 │ └IsPassEvt1
 ├TResponses.NextInstance
 ├TResponses.FindResponseByName
 ├AmountsForIVFluid
 ├DEACheckFailedForIVOnOutPatient
 ├TfrmFrame.mnuFileEncounterClick
 │ ├UpdateEncounter
 │ │ ├ExternalName
 │ │ ├TfrmBase508Form.Create
 │ │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ │ ├UnfocusableControlEnter
 │ │ │ └AdjustControls
 │ │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │ │   └..(rec)..
 │ │ ├ReviewChanges
 │ │ │ ├TfrmBase508Form.Create...
 │ │ │ ├TfrmReview.CleanupChangesList
 │ │ │ ├TfrmReview.BuildFullList
 │ │ │ │ └TfrmReview.BuildList
 │ │ │ │   ├TSigItems.ResetOrders
 │ │ │ │   ├TfrmReview.AddHeader
 │ │ │ │   ├TfrmReview.AddItem
 │ │ │ │   ├rpcBuildSCIEList
 │ │ │ │   ├CompleteUnsignedBillingInfo
 │ │ │ │   │ ├InitializeUnsignedOrderRec
 │ │ │ │   │ ├LoadUnsignedOrderRec
 │ │ │ │   │ ├tempDxNodeExists
 │ │ │ │   │ ├SimpleAddTempDxList
 │ │ │ │   │ │ └TfrmBALocalDiagnoses.LoadTempRec
 │ │ │ │   │ │   ├TfrmFrame.GetTimedOut
 │ │ │ │   │ │   │ └TimedOut
 │ │ │ │   │ │   ├InitializeNewDxRec
 │ │ │ │   │ │   └StripTFactors
 │ │ │ │   │ ├PutBADxListForOrder
 │ │ │ │   │ ├GetBADxListForOrder
 │ │ │ │   │ └BuildSaveUnsignedList
 │ │ │ │   │   └SaveBillingData
 │ │ │ │   │     ├AttachDxToOrderList
 │ │ │ │   │     │ ├InitializeNewDxRec
 │ │ │ │   │     │ └GetBADxListForOrder
 │ │ │ │   │     └rpcSaveCIDCData
 │ │ │ │   │       └VerifyOrderIdExists
 │ │ │ │   ├rpcGetUnsignedOrdersBillingData
 │ │ │ │   ├IsPendingHold
 │ │ │ │   ├TSigItems.Add
 │ │ │ │   ├GetPKISite
 │ │ │ │   ├GetPKIUse
 │ │ │ │   ├DEACheckFailedAtSignature
 │ │ │ │   ├GetOrderableIen
 │ │ │ │   ├TfrmReview.AddCSHeader
 │ │ │ │   ├TfrmReview.AddCSItem
 │ │ │ │   ├TChanges.CanSign
 │ │ │ │   ├TfrmReview.SignRequiredForAny
 │ │ │ │   │ └AnyOrdersRequireSignature
 │ │ │ │   ├TfrmReview.ItemsAreChecked
 │ │ │ │   ├TfrmReview.AnyItemsAreChecked
 │ │ │ │   │ ├TfrmReview.ItemsAreChecked
 │ │ │ │   │ └TfrmReview.CSItemsAreChecked
 │ │ │ │   ├TfrmReview.txtESCodeChange
 │ │ │ │   │ └TfrmReview.AnyItemsAreChecked...
 │ │ │ │   ├GetUserParam
 │ │ │ │   ├TfrmReview.radReleaseClick
 │ │ │ │   ├TfrmReview.AdjustSignatureTop
 │ │ │ │   ├TSigItems.ClearDrawItems
 │ │ │ │   ├TSigItems.ClearFcb
 │ │ │ │   ├TSigItems.UpdateListBox
 │ │ │ │   │ ├notRightOne
 │ │ │ │   │ ├IsOrderBillable
 │ │ │ │   │ │ └PrepOrderID
 │ │ │ │   │ ├RemoveOrderFromDxList
 │ │ │ │   │ │ └tempDxNodeExists
 │ │ │ │   │ ├rpcGetSC4Orders
 │ │ │ │   │ ├OrderRequiresSCEI
 │ │ │ │   │ ├GetUnsignedOrderFlags
 │ │ │ │   │ ├GetConsultFlags
 │ │ │ │   │ │ └SetConsultFlags
 │ │ │ │   │ ├TSigItems.cbClicked
 │ │ │ │   │ │ └TSigItems.TagToItem
 │ │ │ │   │ ├SigItemHeight
 │ │ │ │   │ ├TSigItems.lbDrawItem
 │ │ │ │   │ │ └TSigItems.TagToItem
 │ │ │ │   │ ├CreateCB
 │ │ │ │   │ │ ├TSigItems.cbClicked...
 │ │ │ │   │ │ ├TSigItems.cbEnter
 │ │ │ │   │ │ └TSigItems.cbExit
 │ │ │ │   │ ├TSigItems.ItemToTag
 │ │ │ │   │ ├TSigItems.TagInfo
 │ │ │ │   │ └TSigItems.TagToItem
 │ │ │ │   └TfrmReview.lstReviewMeasureItem
 │ │ │ │     └SigItemHeight
 │ │ │ ├TfrmReview.cmdOKClick
 │ │ │ │ ├TfrmReview.AnyItemsAreChecked...
 │ │ │ │ ├ValidESCode
 │ │ │ │ ├ValidateOrderActionNature
 │ │ │ │ ├IsInvalidActionWarning
 │ │ │ │ │ ├IsLatestAction
 │ │ │ │ │ └ReportBox
 │ │ │ │ │   └CreateReportBox
 │ │ │ │ │     └TfrmBase508Form.Create...
 │ │ │ │ ├SignatureForItem
 │ │ │ │ │ └TfrmBase508Form.Create...
 │ │ │ │ ├PersonHasKey
 │ │ │ │ ├SaveUnsignedOrders
 │ │ │ │ ├TfrmReview.GetCheckBoxStatus
 │ │ │ │ │ └TSigItems.GetSigItems
 │ │ │ │ ├OrderRequiresSignature
 │ │ │ │ ├ExecuteSessionOrderChecks
 │ │ │ │ │ ├OrderChecksForSession
 │ │ │ │ │ ├TfrmBase508Form.Create...
 │ │ │ │ │ ├IsMonograph
 │ │ │ │ │ ├TOCRec.Create
 │ │ │ │ │ ├TextForOrder
 │ │ │ │ │ ├GetXtraTxt
 │ │ │ │ │ ├TfrmOCSession.SetReqJustify
 │ │ │ │ │ └TfrmFrame.SetActiveTab
 │ │ │ │ │   ├TfrmFrame.PageIDToTab
 │ │ │ │ │   └TfrmFrame.tabPageChange
 │ │ │ │ │     ├TfrmFrame.TabToPageID
 │ │ │ │ │     ├TfrmFrame.SwitchToPage
 │ │ │ │ │     └SpeakPatient
 │ │ │ │ ├IsUserNurseProvider
 │ │ │ │ │ └PersonHasKey
 │ │ │ │ ├TSigItems.OK2SaveSettings
 │ │ │ │ ├SetSAN
 │ │ │ │ │ ├tCryptography.Create
 │ │ │ │ │ │ ├tCryptography.Reset
 │ │ │ │ │ │ ├sCardReady
 │ │ │ │ │ │ │ ├SCardEstablishContext
 │ │ │ │ │ │ │ ├SCardListReadersA
 │ │ │ │ │ │ │ └SCardConnectA
 │ │ │ │ │ │ ├tCryptography.RaiseErr
 │ │ │ │ │ │ ├CryptAcquireContext
 │ │ │ │ │ │ └CryptGetProvParam
 │ │ │ │ │ └getSANFromCard
 │ │ │ │ │   ├checkPINValue
 │ │ │ │ │   │ ├sCardReady...
 │ │ │ │ │   │ ├CryptAcquireContext
 │ │ │ │ │   │ ├setPINValue
 │ │ │ │ │   │ │ ├CryptAcquireContext
 │ │ │ │ │   │ │ ├CryptSetProvParam
 │ │ │ │ │   │ │ └CryptReleaseContext
 │ │ │ │ │   │ └CryptReleaseContext
 │ │ │ │ │   └tCryptography.FindCert
 │ │ │ │ │     ├CertOpenSystemStore
 │ │ │ │ │     ├CertEnumCertificatesInStore
 │ │ │ │ │     ├CertGetNameString
 │ │ │ │ │     ├SerialNum
 │ │ │ │ │     ├CertDateTimeStr
 │ │ │ │ │     ├tCryptography.SigningCert
 │ │ │ │ │     │ └CertGetIntendedKeyUsage
 │ │ │ │ │     ├CertVerifyTimeValidity
 │ │ │ │ │     ├CertFindExtension
 │ │ │ │ │     ├tCryptography.CRLDistPoint
 │ │ │ │ │     │ └CryptDecodeObject
 │ │ │ │ │     ├Revco
 │ │ │ │ │     │ └CertVerifyRevocation
 │ │ │ │ │     └tCryptography.CertChainCheck
 │ │ │ │ │       ├CertCreateCertificateChainEngine
 │ │ │ │ │       ├Memo
 │ │ │ │ │       ├tCryptography.RaiseErr
 │ │ │ │ │       ├CertGetCertificateChain
 │ │ │ │ │       └SetStatus
 │ │ │ │ │         └Memo
 │ │ │ │ ├checkPINValue...
 │ │ │ │ ├tCryptography.Create...
 │ │ │ │ ├Piece2end
 │ │ │ │ ├tCryptography.Reset
 │ │ │ │ ├Log2File
 │ │ │ │ ├StoreDigitalSig
 │ │ │ │ ├UpdateOrderDGIfNeeded
 │ │ │ │ │ ├TPatient.Clear
 │ │ │ │ │ └TPatient.SetDFN
 │ │ │ │ │   ├TPatient.Clear
 │ │ │ │ │   └SelectPatient
 │ │ │ │ │     └FormatSSN
 │ │ │ │ ├BuildSaveUnsignedList...
 │ │ │ │ ├OrdersToBeSignedOrReleased
 │ │ │ │ ├BADxEntered
 │ │ │ │ │ ├IsOrderBillable...
 │ │ │ │ │ ├rpcOrderRequiresDx
 │ │ │ │ │ ├OrdersHaveDx
 │ │ │ │ │ │ ├InitializeNewDxRec
 │ │ │ │ │ │ ├tempDxNodeExists
 │ │ │ │ │ │ └GetBADxListForOrder
 │ │ │ │ │ └SaveBillingData...
 │ │ │ │ ├LockedForOrdering
 │ │ │ │ │ └LockPatient
 │ │ │ │ ├TfrmFrame.GetTimedOut...
 │ │ │ │ ├TfrmPrintLocation.rpcIsPatientOnWard
 │ │ │ │ ├TEncounter.GetLocationName
 │ │ │ │ │ └TEncounter.UpdateText
 │ │ │ │ │   └GetEncounterText
 │ │ │ │ ├TEncounter.GetLocationText
 │ │ │ │ │ └TEncounter.UpdateText...
 │ │ │ │ ├TEncounter.GetVisitCategory
 │ │ │ │ ├TfrmPrintLocation.PrintLocation
 │ │ │ │ │ ├TfrmBase508Form.Create...
 │ │ │ │ │ ├CurrentLocationForPatient
 │ │ │ │ │ ├TfrmPrintLocation.ProcessClinicOrders
 │ │ │ │ │ │ └TfrmPrintLocation.rpcChangeOrderLocation
 │ │ │ │ │ ├TEncounter.EncounterSwitch
 │ │ │ │ │ │ ├TEncounter.SetLocation
 │ │ │ │ │ │ ├TEncounter.SetVisitCategory
 │ │ │ │ │ │ └TEncounter.SetDateTime
 │ │ │ │ │ └TfrmFrame.DisplayEncounterText
 │ │ │ │ │   ├TEncounter.GetLocationText...
 │ │ │ │ │   ├TEncounter.GetProviderName
 │ │ │ │ │   │ └TEncounter.UpdateText...
 │ │ │ │ │   └TfrmFrame.FitToolbar
 │ │ │ │ ├TfrmPrintLocation.SwitchEncounterLoction
 │ │ │ │ │ ├TfrmBase508Form.Create...
 │ │ │ │ │ ├CurrentLocationForPatient
 │ │ │ │ │ ├TEncounter.SetLocation
 │ │ │ │ │ ├TfrmFrame.DisplayEncounterText...
 │ │ │ │ │ └TEncounter.EncounterSwitch...
 │ │ │ │ ├CurrentLocationForPatient
 │ │ │ │ ├TSigItems.SaveSettings
 │ │ │ │ │ └SaveCoPayStatus
 │ │ │ │ ├SendOrders
 │ │ │ │ ├TChanges.Locate
 │ │ │ │ ├NotifyOtherApps
 │ │ │ │ │ ├AppNotificationEnabled
 │ │ │ │ │ │ └TNotifyAppsThread.CreateThread
 │ │ │ │ │ └TNotifyAppsThread.ResumeIfIdle
 │ │ │ │ ├OrdersSignedOrReleased
 │ │ │ │ ├GetOrderStatus
 │ │ │ │ ├CheckForChangeFromLCtoWCOnRelease
 │ │ │ │ │ └FormatLCtoWCDisplayTextOnRelease
 │ │ │ │ │   └GetLCtoWCInstructions
 │ │ │ │ ├ReportBox...
 │ │ │ │ ├PrintOrdersOnSignReleaseMult
 │ │ │ │ │ └PrintOrdersOnSignRelease
 │ │ │ │ │   ├CurrentLocationForPatient
 │ │ │ │ │   ├TEncounter.SetLocation
 │ │ │ │ │   ├CommonLocationForOrders
 │ │ │ │ │   ├LookupLocation
 │ │ │ │ │   │ └TfrmBase508Form.Create...
 │ │ │ │ │   ├TfrmFrame.DisplayEncounterText...
 │ │ │ │ │   ├SetupOrdersPrint
 │ │ │ │ │   │ ├TfrmBase508Form.Create...
 │ │ │ │ │   │ ├OrderPrintDeviceInfo
 │ │ │ │ │   │ └TfrmOrdersPrint.SetupControls
 │ │ │ │ │   │   └TfrmOrdersPrint.SetupPrompting
 │ │ │ │ │   ├PrintOrdersOnReview
 │ │ │ │ │   └PrintServiceCopies
 │ │ │ │ ├PrintOrdersOnSignRelease...
 │ │ │ │ ├UpdateUnsignedOrderAlerts
 │ │ │ │ ├TNotifications.GetFollowUp
 │ │ │ │ ├UnsignedOrderAlertFollowup
 │ │ │ │ ├UpdateExpiringMedAlerts
 │ │ │ │ ├UpdateUnverifiedMedAlerts
 │ │ │ │ ├UpdateUnverifiedOrderAlerts
 │ │ │ │ ├TfrmNotes.SaveSignItem
 │ │ │ │ │ ├TfrmFrame.GetTimedOut...
 │ │ │ │ │ ├TfrmNotes.SaveCurrentNote
 │ │ │ │ │ │ └TfrmNotes.SaveEditedNote
 │ │ │ │ │ │   ├TfrmNotes.tvNotesChange
 │ │ │ │ │ │   │ ├CanBeAttached
 │ │ │ │ │ │   │ ├CanReceiveAttachment
 │ │ │ │ │ │   │ ├TraverseTree
 │ │ │ │ │ │   │ │ ├ContextMatch
 │ │ │ │ │ │   │ │ ├TextFound
 │ │ │ │ │ │   │ │ ├AddListViewItem
 │ │ │ │ │ │   │ │ └..(rec)..
 │ │ │ │ │ │   │ ├TfrmNotes.lvNotesSelectItem
 │ │ │ │ │ │   │ │ └TfrmNotes.lstNotesClick
 │ │ │ │ │ │   │ │   ├UpdateReminderFinish
 │ │ │ │ │ │   │ │   │ └TfrmRemDlg.UpdateButtons
 │ │ │ │ │ │   │ │   │   ├TfrmRemDlg.BackReminder
 │ │ │ │ │ │   │ │   │   │ └TfrmRemDlg.GetCurReminderList
 │ │ │ │ │ │   │ │   │   │   └TReminderDialog.GetIEN
 │ │ │ │ │ │   │ │   │   └TfrmRemDlg.NextReminder
 │ │ │ │ │ │   │ │   │     └TfrmRemDlg.GetCurReminderList...
 │ │ │ │ │ │   │ │   ├TfrmNotes.UpdateFormForInput
 │ │ │ │ │ │   │ │   │ └TimedOut
 │ │ │ │ │ │   │ │   ├LoadDocumentText
 │ │ │ │ │ │   │ │   ├TfrmReminderTree.EnableActions
 │ │ │ │ │ │   │ │   │ ├ReminderDialogActive
 │ │ │ │ │ │   │ │   │ ├NewRemCoverSheetListActive
 │ │ │ │ │ │   │ │   │ └CanEditAllRemCoverSheetLists
 │ │ │ │ │ │   │ │   │   └HasMenuOptionAccess
 │ │ │ │ │ │   │ │   ├TfrmNotes.DisplayPCE
 │ │ │ │ │ │   │ │   │ ├TPCEData.AddStrData
 │ │ │ │ │ │   │ │   │ │ ├Add
 │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrVisitType
 │ │ │ │ │ │   │ │   │ │ │ ├GetPCEDataText
 │ │ │ │ │ │   │ │   │ │ │ │ └GetDiagnosisText
 │ │ │ │ │ │   │ │   │ │ │ ├TPCEProc.ModText
 │ │ │ │ │ │   │ │   │ │ │ │ └ModifierName
 │ │ │ │ │ │   │ │   │ │ │ │   └ModifierIdx
 │ │ │ │ │ │   │ │   │ │ │ │     ├TPCEData.VisitDateTime
 │ │ │ │ │ │   │ │   │ │ │ │     │ └TPCEData.IsSecondaryVisit
 │ │ │ │ │ │   │ │   │ │ │ │     ├FMToday
 │ │ │ │ │ │   │ │   │ │ │ │     │ └FMNow
 │ │ │ │ │ │   │ │   │ │ │ │     └MixedCaseModifier
 │ │ │ │ │ │   │ │   │ │ │ └TPCEData.StrVisitType
 │ │ │ │ │ │   │ │   │ │ │   └AddTxt
 │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrDiagnoses
 │ │ │ │ │ │   │ │   │ │ │ └GetPCEDataText...
 │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrProcedures
 │ │ │ │ │ │   │ │   │ │ │ ├GetPCEDataText...
 │ │ │ │ │ │   │ │   │ │ │ └TPCEProc.ModText...
 │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrImmunizations
 │ │ │ │ │ │   │ │   │ │ │ └GetPCEDataText...
 │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrSkinTests
 │ │ │ │ │ │   │ │   │ │ │ └GetPCEDataText...
 │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrPatientEds
 │ │ │ │ │ │   │ │   │ │ │ └GetPCEDataText...
 │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrHealthFactors
 │ │ │ │ │ │   │ │   │ │ │ └GetPCEDataText...
 │ │ │ │ │ │   │ │   │ │ └TPCEData.StrExams
 │ │ │ │ │ │   │ │   │ │   └GetPCEDataText...
 │ │ │ │ │ │   │ │   │ ├GetVitalsFromDate
 │ │ │ │ │ │   │ │   │ │ ├TPCEData.IsSecondaryVisit
 │ │ │ │ │ │   │ │   │ │ └GetVitalsFromEncDateTime
 │ │ │ │ │ │   │ │   │ ├TPCEData.AddVitalData
 │ │ │ │ │ │   │ │   │ │ └FormatVitalForNote
 │ │ │ │ │ │   │ │   │ │   └ConvertVitalData
 │ │ │ │ │ │   │ │   │ ├TfrmNotes.ShowPCEButtons
 │ │ │ │ │ │   │ │   │ │ ├TfrmFrame.GetTimedOut...
 │ │ │ │ │ │   │ │   │ │ ├AnytimeEncounters
 │ │ │ │ │ │   │ │   │ │ ├CanEditPCE
 │ │ │ │ │ │   │ │   │ │ │ ├GetAskPCE
 │ │ │ │ │ │   │ │   │ │ │ └FutureEncounter
 │ │ │ │ │ │   │ │   │ │ │   └FMToday...
 │ │ │ │ │ │   │ │   │ │ └GetAskPCE
 │ │ │ │ │ │   │ │   │ ├TfrmNotes.ShowPCEControls
 │ │ │ │ │ │   │ │   │ ├InteractiveRemindersActive
 │ │ │ │ │ │   │ │   │ │ └GetRemindersActive
 │ │ │ │ │ │   │ │   │ ├GetReminderStatus
 │ │ │ │ │ │   │ │   │ ├FutureEncounter...
 │ │ │ │ │ │   │ │   │ ├TfrmDrawers.DisplayDrawers
 │ │ │ │ │ │   │ │   │ │ ├TfrmDrawers.EnableDrawers
 │ │ │ │ │ │   │ │   │ │ │ ├TfrmDrawers.EnableDrawer
 │ │ │ │ │ │   │ │   │ │ │ │ ├TfrmDrawers.GetDrawerControls
 │ │ │ │ │ │   │ │   │ │ │ │ ├TfrmDrawers.OpenDrawer
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├TfrmDrawers.StartInternalResize
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├TfrmDrawers.GetDrawerControls
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├TfrmDrawers.SetSplitterActive
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├TfrmDrawers.EndInternalResize
 │ │ │ │ │ │   │ │   │ │ │ │ │ └TfrmDrawers.ResizeToVisible
 │ │ │ │ │ │   │ │   │ │ │ │ │   ├AllCtrls
 │ │ │ │ │ │   │ │   │ │ │ │ │   │ └TfrmDrawers.GetDrawerControls
 │ │ │ │ │ │   │ │   │ │ │ │ │   ├TfrmDrawers.GetDrawerControls
 │ │ │ │ │ │   │ │   │ │ │ │ │   ├TfrmDrawers.ButtonHeights
 │ │ │ │ │ │   │ │   │ │ │ │ │   ├TfrmDrawers.MinDrawerControlHeight
 │ │ │ │ │ │   │ │   │ │ │ │ │   ├TfrmDrawers.StartInternalResize
 │ │ │ │ │ │   │ │   │ │ │ │ │   └TfrmDrawers.EndInternalResize
 │ │ │ │ │ │   │ │   │ │ │ │ └TfrmDrawers.ResizeToVisible...
 │ │ │ │ │ │   │ │   │ │ │ └TfrmDrawers.ResizeToVisible...
 │ │ │ │ │ │   │ │   │ │ ├TfrmDrawers.ShowDrawers
 │ │ │ │ │ │   │ │   │ │ │ ├TfrmDrawers.OpenDrawer...
 │ │ │ │ │ │   │ │   │ │ │ ├TfrmDrawers.GetDrawerControls
 │ │ │ │ │ │   │ │   │ │ │ ├TfrmDrawers.ResizeToVisible...
 │ │ │ │ │ │   │ │   │ │ │ ├NotifyWhenRemindersChange
 │ │ │ │ │ │   │ │   │ │ │ ├TfrmDrawers.RemindersChanged
 │ │ │ │ │ │   │ │   │ │ │ │ ├TfrmDrawers.EnableDrawer...
 │ │ │ │ │ │   │ │   │ │ │ │ ├GetReminderStatus
 │ │ │ │ │ │   │ │   │ │ │ │ ├BuildReminderTree
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├GetImageIndex
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├RemContextPopup
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ ├ReminderMenu
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ ├SetReminderPopupDlgRoutine
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │ └ReminderTreePopupDlg
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │   └ReminderMenuBuilder
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     ├Add
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├ReminderClinMaintClicked
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ ├ReportBox...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ ├DetailReminder
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ │ └InteractiveRemindersActive...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ └ReminderName
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │   └TReminderDialog.GetPrintName
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├ReminderEduClicked
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ ├ReportBox...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ └EducationTopicDetail
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├ReminderInqClicked
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ ├ReportBox...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ ├ReminderInquiry
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ └ReminderName...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├ReminderWebClicked
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ ├GotoWebPage
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ └GetWebPageAddress
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├ReminderEvalClicked
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ └EvalReminder
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │   ├EvaluateReminder
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │   │ └EvaluateReminders
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │   ├ReminderEvaluated
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │   └ReminderName...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├ReminderViewFolderClicked
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ ├GetRemFolders
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ │ └GetReminderFolders
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │ └SetRemFolders
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │   ├BeginReminderUpdate
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │   ├SetReminderFolders
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ │   └EndReminderUpdate
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├GetRemFolders...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ └ReminderIconLegendClicked
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │   └ShowIconLegend
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │     ├TfrmBase508Form.Create...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │     ├TfrmFrame.TabExists
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │     ├TfrmIconLegend.ShowTab
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │     └TfrmIconLegend.SetFontSize
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │       └TfrmIconLegend.SnapLabels
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     ├GetEducationTopics
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├GetEducationTopicsForReminder
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ └GetEducationSubtopics
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     ├AddEducationTopics
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├GetEducationTopics...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ ├Add...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ └..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     ├GetWebPages
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     │ └GetReminderWebPages
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │     └AddWebPages
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │       ├Add...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ │       └GetWebPageName
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │ └SetReminderPopupRoutine
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │   └ReminderTreePopup
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ │     └ReminderMenuBuilder...
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ └EvaluateCategoryClicked
 │ │ │ │ │ │   │ │   │ │ │ │ │ │   ├BeginReminderUpdate
 │ │ │ │ │ │   │ │   │ │ │ │ │ │   ├CheckReminders
 │ │ │ │ │ │   │ │   │ │ │ │ │ │   │ ├EvaluateReminders
 │ │ │ │ │ │   │ │   │ │ │ │ │ │   │ └ReminderEvaluated
 │ │ │ │ │ │   │ │   │ │ │ │ │ │   └EndReminderUpdate
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├GetRemFolders...
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├Add2Tree
 │ │ │ │ │ │   │ │   │ │ │ │ │ │ └GetRemFolders...
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├TReminderDialog.GetIEN
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├TReminderDialog.GetPrintName
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├TReminder.GetDueDateStr
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├TReminder.GetLastDateStr
 │ │ │ │ │ │   │ │   │ │ │ │ │ ├TReminder.GetStatus
 │ │ │ │ │ │   │ │   │ │ │ │ │ └TReminderDialog.Processing
 │ │ │ │ │ │   │ │   │ │ │ │ │   └CheckItem
 │ │ │ │ │ │   │ │   │ │ │ │ │     ├ChildrenChecked
 │ │ │ │ │ │   │ │   │ │ │ │ │     │ └CheckItem...
 │ │ │ │ │ │   │ │   │ │ │ │ │     └TRemDlgElement.Add2PN
 │ │ │ │ │ │   │ │   │ │ │ │ │       ├TRemDlgElement.ElemType
 │ │ │ │ │ │   │ │   │ │ │ │ │       └TRemDlgElement.AddData
 │ │ │ │ │ │   │ │   │ │ │ │ │         ├TRemDlgElement.Historical
 │ │ │ │ │ │   │ │   │ │ │ │ │         ├TPCEData.VisitDateTime...
 │ │ │ │ │ │   │ │   │ │ │ │ │         ├TRemData.AddData
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ ├Add
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ ├Code2DataType
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ ├TRemDlgElement.Historical
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ ├TRemPrompt.GetValue
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TRemDlgElement.Historical
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TPCEData.VisitDateTime...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TRemPrompt.RemDataActive
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ │ └TRemPrompt.CompareActiveDate
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ └TRemPrompt.RemDataChoiceActive
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ ├TPCEData.VisitDateTime...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ ├ValidateGAFDate
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TPatient.GetDateDied
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ │ └DateOfDeath
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ └FMToday...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ ├TPCEProviderList.PCEProvider
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├Check
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ │ └TPCEProviderList.IndexOfProvider
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ └TPCEProviderList.PrimaryIEN
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │   └TPCEProviderList.GetPrimaryIdx
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ ├AddPrompt
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TRemPrompt.PromptType
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ │ └Code2PromptType
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TPCEProviderList.PCEProvider...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TPCEData.VisitDateTime...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TRemPrompt.VitalValue
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ │ └TRemPrompt.GetValue...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TRemPrompt.VitalType
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ │ ├Code2VitalType
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ │ └TRemData.InternalValue
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TRemPrompt.VitalUnitValue
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ │ ├TRemPrompt.VitalType...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ │ └TRemPrompt.GetValue...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├ConvertVital
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├FormatVitalForNote...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ ├TRemPrompt.GetValue...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ │ └TRemDlgElement.Historical
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ │ └GetPCEDataText...
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ ├TRemDlgElement.Historical
 │ │ │ │ │ │   │ │   │ │ │ │ │         │ └TPCEData.VisitDateTime...
 │ │ │ │ │ │   │ │   │ │ │ │ │         ├TRemDlgElement.ElemType
 │ │ │ │ │ │   │ │   │ │ │ │ │         └..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │ └TfrmDrawers.tvRemindersMouseUp
 │ │ │ │ │ │   │ │   │ │ │ │   ├ViewReminderDialog
 │ │ │ │ │ │   │ │   │ │ │ │   │ ├ViewRemDlg
 │ │ │ │ │ │   │ │   │ │ │ │   │ │ └ViewRemDlgFromForm
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   ├TfrmNotes.AssignRemForm
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ ├TfrmNotes.CanFinishReminder
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ └TfrmNotes.DisplayPCE...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   ├FutureEncounter...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   ├TfrmConsults.AssignRemForm
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ ├TfrmConsults.CanFinishReminder
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ └TfrmConsults.DisplayPCE
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TPCEData.AddStrData...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├GetVitalsFromDate...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TPCEData.AddVitalData...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├CanEditPCE...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TfrmConsults.ShowPCEControls
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├InteractiveRemindersActive...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├GetReminderStatus
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TfrmDrawers.DisplayDrawers...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TfrmDrawers.DisplayDrawers
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├ActOnDocument
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TPCEData.PCEForNote
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TEncounter.GetVisitStr...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├VisitStrForNote
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEData.GetVisitString
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEData.VisitDateTime...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEData.CopyPCEData
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TPCEData.Clear
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├ClearList
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TPCEProc.Clear
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ └TPCEItem.Clear
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   └TPCEItem.SetComment
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TPCEProviderList.Clear
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   └TPCEProviderList.GetPrimaryIdx
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TPCEProc.CopyProc
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TPCEItem.SetComment
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TPCEProviderList.Assign
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEData.CopyPCEItems
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │   └TPCEItem.Assign
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │     └TPCEItem.SetComment
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEData.IsSecondaryVisit
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├GetLocSecondaryVisitCode
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEData.Clear...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├LoadPCEDataForNote
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├ListVisitTypeByLoc
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├SetRPCEncLocation
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├SCCValue
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEProviderList.Add
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TPCEProviderList.GetPrimaryIdx
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TPCEProviderList.IndexOfProvider
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEProviderList.SetPrimaryIdx
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │   ├TPCEProviderList.GetPrimaryIdx
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │   └TPCEProviderList.SetPrimary
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├AppendComment
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEDiag.SetFromString
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │   └TPCEItem.SetComment
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEProc.SetFromString
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEImm.SetFromString
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCESkin.SetFromString
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TPCEItem.SetFromString...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └StrToFMDateTime
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEPat.SetFromString
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEHealth.SetFromString
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └TPCEExams.SetFromString
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │   └TPCEItem.SetFromString...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   └GetVitalsFromNote
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     ├TPCEData.IsSecondaryVisit
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     ├GetVitalsFromEncDateTime
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     └GetVitalFromNoteIEN
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   ├TfrmBase508Form.Create...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   ├TfrmRemDlg.SetFontSize
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ └TfrmRemDlg.BuildControls
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TfrmRemDlg.GetBox
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TfrmRemDlg.ClearControls
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├WipeOutControls
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └TfrmRemDlg.GetBox
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TReminderDialog.GetPrintName
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├SetActiveVars
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └IsOnBox
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TReminderDialog.BuildControls
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TRemDlgElement.BuildControls
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.TrueIndent
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.Indent
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.Box
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.ChildrenIndent
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ElemType
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├GetPanel
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├GetDialogEntry
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ └TTemplateDialogEntry.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   ├TDlgFieldPanel.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   ├GetTemplateField
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   │ ├LoadTemplateFieldByIEN
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   │ ├LoadTemplateField
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   │ └TTemplateField.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   │   ├TemplateFieldCode2Field
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   │   └TemplateDateCode2DateType
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   ├TTemplateField.GetRequired
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   └TTemplateField.CreateDialogControls
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogFieldEdit.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TTemplateField.GetRequired
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├ht
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├wdth
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TTemplateField.Width
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └StripEmbedded
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TTemplateDialogEntry.DoChange
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogComboBox.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├StripEmbedded
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TfraTemplateFieldButton.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ ├TfraTemplateFieldButton.ButtonKeyDown
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ │ └TfraTemplateFieldButton.pnlBtnMouseDown
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ │   ├TfraTemplateFieldButton.GetButtonText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ │   └TfraTemplateFieldButton.SetButtonText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ ├TfraTemplateFieldButton.ButtonKeyUp
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ │ └TfraTemplateFieldButton.pnlBtnMouseUp
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TfraTemplateFieldButton.SetButtonText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogCheckBox.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├UpdateIndents
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └wdth
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├StrToFMDateTime
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogDateCombo.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogDateBox.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogNumber.CreatePanel
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TTemplateDialogEntry.UpDownChange
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ ├EnsureText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TTemplateDialogEntry.DoChange
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogHyperlinkLabel.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ ├TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogHyperlinkLabel.KeyPressed
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │   └TCPRSDialogHyperlinkLabel.Clicked
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │     └GotoWebPage
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogHyperlinkLabel.Init
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogHyperlinkLabel.Clicked...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │     └TCPRSDialogRichEdit.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │       └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TTemplateDialogEntry.SetFieldValues
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ └TTemplateDialogEntry.SetControlText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   └TfraTemplateFieldButton.SetButtonText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TTemplateDialogEntry.SetAutoDestroyOnPanelFree
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ └PanelDestroy
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.FieldPanelChange
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ ├TReminderDialog.BeginTextChanged
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ ├TTemplateDialogEntry.GetFieldValues
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ │ └TTemplateDialogEntry.GetControlText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ │   ├GetTemplateField...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ │   ├GetOriginalItem
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ │   │ ├GetTemplateField...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ │   │ └StripEmbedded
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ │   └TfraTemplateFieldButton.GetButtonText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ └TReminderDialog.EndTextChanged
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TTemplateDialogEntry.GetPanel
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├Init
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TTemplateDialogEntry.KillLabels
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_CurrentCheckBox
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │   └ScreenReaderSystem_Stop
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │     ├UpdateCheckBox
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │     ├UpdatePending
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │     └ScreenReaderSystem_Clear
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├Text508Work
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TTemplateDialogEntry.StripCode
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_Stop...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├StripSRCode
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_Continue
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TTemplateDialogEntry.StripCode
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├NextLine
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├DoLabel
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├Add2TabOrder
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_CurrentLabel
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ └ScreenReaderSystem_Stop...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_AddText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├Ctrl508Work
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_CurrentLabel...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_AddText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_Stop...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├Add2TabOrder
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_CurrentComponent
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │   ├UpdateCheckBox
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │   ├UpdatePending
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │   └ScreenReaderSystem_Stop...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TTemplateDialogEntry.SetFieldValues...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   └ScreenReaderSystem_Stop...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.EntryID
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├CRLFText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └InitText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├UpdatePrompts
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.FieldPanelEntered
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ └TDlgFieldPanel.SetTheFocus
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.FieldPanelExited
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ └TDlgFieldPanel.SetTheFocus
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └AddPrompts
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.PromptOK
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.PromptType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemDlgElement.Historical
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.RemDataActive...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └TRemPrompt.CompareActiveDate
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.Forced
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.PromptType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.Required
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └TRemPrompt.PromptType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogFieldEdit.Create...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.GetValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.EditKeyPress
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.PromptChange
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TReminderDialog.BeginTextChanged
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.GetValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.PromptType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├FMToday...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.Caption
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ └AssignFieldIDs
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │   └GetNewFieldID
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├SelectDevice
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ ├TfrmBase508Form.Create...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ └GetDefaultPrinter
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├FMNow
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├MHDLLFound
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ └CheckforMHDll
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │   ├LoadMHDLL
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │   └UnloadMHDLL
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TReminderDialog.BeginNeedRedraw
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.SetValue
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPrompt.Forced
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPrompt.PromptType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ ├FMToday...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPrompt.GetValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ ├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...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├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...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     └GetTemplateText...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├TRemDlgElement.Check4ChildrenSharedPrompts
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TRemDlgElement.ChildrenSharePrompts
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TRemDlgElement.GetData...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ └TRemPrompt.CanShare
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.Forced
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.Required...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.PromptType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.Add2PN
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ ├TRemPrompt.Forced
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ └TRemPrompt.PromptOK...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   └TRemPrompt.Caption...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├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.VitalUnitValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TReminderDialog.EndNeedRedraw
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └TReminderDialog.EndTextChanged
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogComboBox.Create...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.ComboBoxKeyDown
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├GetComboBoxMinMax
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├PCELoadORCombo
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └PCELoadORComboData
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │   ├GetPCECodes...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │   └GetComboBoxMinMax
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├GetDefLocations
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemData.DisplayWHResults
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├NextLine
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogButton.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.DoWHReport
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └ReportBox...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├ScreenReaderSupport
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_CurrentComponent...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_Stop...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogCheckBox.Create...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├ProcessLabel
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.Caption...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_CurrentLabel...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_AddText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.ViewWHText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └ReportBox...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogDateCombo.Create...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.Caption...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.ParentCBEnter
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.ParentCBExit
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.SubCommentChange
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.PromptType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.Caption...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └TRemPrompt.SetValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.VitalType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├InitPainCombo
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.VitalValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TVitalEdit.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.VitalVerify
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├ConvertHeight2Inches
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └VitalInvalid
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │   ├VerifyVital
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │   ├IsNumericWeight
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │   └VitalErrorText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TVitalComboBox.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └TCPRSDialogComponent.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├VitalControlTag
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TVitalComboBox.SelectByID
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.VitalUnitValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.Historical
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TPCEData.VisitDateTime...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TReminderDialog.ComboBoxCheckedText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TReminderDialog.ComboBoxResized
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├MHDLLFound...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.DoMHTest
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├MHTestAuthorized
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemData.Narrative
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TReminderDialog.BeginTextChanged
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemDlgElement.IncludeMHTestInPN
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.GetValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├PerformMHTest
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ └TfrmMHTest.CallMHDLL
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │   ├LoadMHDLL
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │   └UnloadMHDLL
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TimedOut
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├GetMHResultText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.SetValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├MentalHealthTestResults
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├ExpandTIUObjects...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └TReminderDialog.EndTextChanged
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.ForcedCaption
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.Caption...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.PromptType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.VitalType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └TRemData.Narrative
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├GAFURL
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.GAFHelp
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├GotoWebPage
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ └GAFURL
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.SameLine
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.TrueIndent...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├ScreenReaderSystem_CurrentComponent...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├ScreenReaderSystem_Stop...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   └TRemDlgElement.Enabled
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │     └TRemDlgElement.EnableChildren
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │       ├..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │       └TRemDlgElement.ElemType
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.cbClicked...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.cbEntered
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └UnfocusableControlEnter
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ParentCBExit
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.FieldPanelKeyPress
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.FieldPanelOnClick
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.FieldPanelOnClick
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.FieldPanelLabelOnClick
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.FieldPanelOnClick
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ChildrenRequired
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ShowChildren
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.ElemType
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.HideChildren
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.Box
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ChildrenIndent
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.BoxCaption
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.Box
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.EnableChildren...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├AddPrompts...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.SubCommentChange...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └ScreenReaderSystem_Stop...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └TReminderDialog.GetPrintName
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TfrmRemDlg.BoxUpdateDone
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └TfrmRemDlg.ClearControls...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├IsOnBox
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TfrmRemDlg.ControlsChanged
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └TfrmRemDlg.GetBox
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   └TfrmRemDlg.UpdateText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     ├TReminderDialog.AddText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ ├TRemDlgElement.AddText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.Add2PN...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.IndentPNLevel
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ ├..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ └TRemDlgElement.IndentChildrenInPN
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ ├CurrentReminderInDialog
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ ├ResolveTemplateFields
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ ├TTemplateDialogEntry.GetControlText...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ ├GetTemplateField...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ ├AddNewTxt
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ └WordWrapText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │   └WrappedText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.GetFieldValues
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ ├TRemDlgElement.ElemType
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ └..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.GetTemplateFieldValues
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ ├GetTemplateField...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ ├TTemplateField.GetTemplateFieldDefault
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ │ └StripEmbedded
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ └AddNewTxt
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ ├StripScreenReaderCodes
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ ├WordWrap
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ ├StripScreenReaderCodes
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ │ └InitText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.ElemType
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ │ └..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ ├TReminderDialog.GetPrintName
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ └StripScreenReaderCodes
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     ├ClinRemText
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     │ └GetProgressNoteHeader
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     └TPCEData.StrVisitType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   ├UpdateReminderFinish...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   ├TfrmRemDlg.ProcessTemplate
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ ├TReminderDialog.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │ └TReminderDialog.BaseCreate
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   ├TReminderDialog.GetDlgSL...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   ├TRemDlgElement.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   ├TRemDlgElement.ElemType
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   ├TRemDlgElement.Historical
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   ├TRemDlgElement.FindingType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   ├PrepText4NextLine
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   ├ExpandTIUObjects...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   ├AssignFieldIDs...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   ├TRemDlgElement.SetChecked...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ │   └TRemDlgElement.UpdateData...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ ├TTemplate.ReminderWipe
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ ├TfrmRemDlg.ClearControls...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ ├TfrmRemDlg.BuildControls...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ ├TfrmRemDlg.UpdateText...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   │ └TfrmRemDlg.UpdateButtons...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │   └TfrmRemDlg.ProcessReminder
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     ├GetReminder
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ └TReminder.Create
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │   └TReminderDialog.BaseCreate...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     ├TReminderDialog.FinishProblems
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ ├TReminderDialog.Processing...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ ├TRemDlgElement.FinishProblems
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├TRemPrompt.GetValue...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├TRemPrompt.PromptType...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├TRemPrompt.PromptOK...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├TRemPrompt.Forced
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├TRemPrompt.Required...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├WordWrap...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├TRemPrompt.ForcedCaption...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├TRemDlgElement.ElemType
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├TRemDlgElement.ChildrenRequired
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ ├TRemDlgElement.BoxCaption...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ │ └..(rec)..
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ ├TRemDlgElement.GetFieldValues...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ ├TReminderDialog.AddText...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │ └AreTemplateFieldsRequired
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │   ├GetTemplateField...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │   ├TTemplateField.GetRequired
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     │   └TTemplateDialogEntry.GetControlText...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     ├TfrmRemDlg.ClearControls...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     ├TfrmRemDlg.BuildControls...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     ├TfrmRemDlg.UpdateText...
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     ├TfrmRemDlg.PositionTrees
 │ │ │ │ │ │   │ │   │ │ │ │   │ │     └TfrmRemDlg.UpdateButtons...
 │ │ │ │ │ │   │ │   │ │ │ │   │ └HideReminderDialog
 │ │ │ │ │ │   │ │   │ │ │ │   └ReminderNode
 │ │ │ │ │ │   │ │   │ │ │ ├NotifyWhenProcessingReminderChanges
 │ │ │ │ │ │   │ │   │ │ │ ├TfrmDrawers.PositionToReminder
 │ │ │ │ │ │   │ │   │ │ │ ├RemoveNotifyRemindersChange
 │ │ │ │ │ │   │ │   │ │ │ └RemoveNotifyWhenProcessingReminderChanges
 │ │ │ │ │ │   │ │   │ │ └TfrmDrawers.SetSplitterActive
 │ │ │ │ │ │   │ │   │ ├ActOnDocument
 │ │ │ │ │ │   │ │   │ ├TPCEData.PCEForNote...
 │ │ │ │ │ │   │ │   │ └GetVitalsFromNote...
 │ │ │ │ │ │   │ │   └NotifyOtherApps...
 │ │ │ │ │ │   │ ├TfrmNotes.ShowPCEControls
 │ │ │ │ │ │   │ ├UpdateReminderFinish...
 │ │ │ │ │ │   │ ├TfrmNotes.ShowPCEButtons...
 │ │ │ │ │ │   │ └TfrmNotes.lstNotesClick...
 │ │ │ │ │ │   ├TfrmNotes.GetTitleText
 │ │ │ │ │ │   ├TfrmNotes.mnuActDeleteClick
 │ │ │ │ │ │   │ ├TfrmRemDlg.btnCancelClick
 │ │ │ │ │ │   │ │ └TfrmRemDlg.KillAll
 │ │ │ │ │ │   │ │   ├TfrmFrame.GetTimedOut...
 │ │ │ │ │ │   │ │   ├TReminderDialog.Processing...
 │ │ │ │ │ │   │ │   ├TReminderDialog.GetPrintName
 │ │ │ │ │ │   │ │   ├TReminderDialog.GetIEN
 │ │ │ │ │ │   │ │   ├RemoveMHTest
 │ │ │ │ │ │   │ │   │ ├LoadMHDLL
 │ │ │ │ │ │   │ │   │ └UnloadMHDLL
 │ │ │ │ │ │   │ │   └TfrmRemDlg.ResetProcessing
 │ │ │ │ │ │   │ │     ├TfrmRemDlg.ClearControls...
 │ │ │ │ │ │   │ │     ├TfrmRemDlg.PositionTrees
 │ │ │ │ │ │   │ │     └TfrmRemDlg.KillDlg
 │ │ │ │ │ │   │ ├ActOnDocument
 │ │ │ │ │ │   │ ├SelectDeleteReason
 │ │ │ │ │ │   │ │ ├JustifyDocumentDelete
 │ │ │ │ │ │   │ │ └TfrmBase508Form.Create...
 │ │ │ │ │ │   │ ├MakeNoteDisplayText
 │ │ │ │ │ │   │ ├TfrmNotes.LockConsultRequestAndNote
 │ │ │ │ │ │   │ │ ├TfrmConsults.ActiveEditOf
 │ │ │ │ │ │   │ │ │ └GetPackageRefForNote
 │ │ │ │ │ │   │ │ ├TChanges.Exist
 │ │ │ │ │ │   │ │ ├IsConsultTitle
 │ │ │ │ │ │   │ │ ├TitleForNote
 │ │ │ │ │ │   │ │ ├GetPackageRefForNote
 │ │ │ │ │ │   │ │ ├TfrmNotes.LockConsultRequest
 │ │ │ │ │ │   │ │ │ ├GetConsultOrderIEN
 │ │ │ │ │ │   │ │ │ └OrderCanBeLocked
 │ │ │ │ │ │   │ │ │   └LockOrder
 │ │ │ │ │ │   │ │ ├LockDocument
 │ │ │ │ │ │   │ │ └UnlockOrderIfAble
 │ │ │ │ │ │   │ │   └UnlockOrder
 │ │ │ │ │ │   │ ├JustifyDocumentDelete
 │ │ │ │ │ │   │ ├TfrmNotes.SaveCurrentNote...
 │ │ │ │ │ │   │ ├TfrmNotes.SetEditingIndex
 │ │ │ │ │ │   │ │ ├KillReminderDialog
 │ │ │ │ │ │   │ │ │ └TfrmRemDlg.ResetProcessing...
 │ │ │ │ │ │   │ │ └TfrmReminderTree.EnableActions...
 │ │ │ │ │ │   │ ├GetPackageRefForNote
 │ │ │ │ │ │   │ ├VisitStrForNote
 │ │ │ │ │ │   │ ├TfrmNotes.RemovePCEFromChanges
 │ │ │ │ │ │   │ │ ├VisitStrForNote
 │ │ │ │ │ │   │ │ └TChanges.Remove
 │ │ │ │ │ │   │ │   ├UnlockOrder
 │ │ │ │ │ │   │ │   └UnlockDocument
 │ │ │ │ │ │   │ ├DeleteDocument
 │ │ │ │ │ │   │ ├TChanges.Exist
 │ │ │ │ │ │   │ ├UnlockDocument
 │ │ │ │ │ │   │ ├TChanges.Remove...
 │ │ │ │ │ │   │ ├TfrmNotes.UnlockConsultRequest
 │ │ │ │ │ │   │ │ ├GetConsultIENforNote
 │ │ │ │ │ │   │ │ ├GetConsultOrderIEN
 │ │ │ │ │ │   │ │ └UnlockOrderIfAble...
 │ │ │ │ │ │   │ ├DeletePCE
 │ │ │ │ │ │   │ ├TfrmNotes.ClearEditControls
 │ │ │ │ │ │   │ │ ├TPCEData.Clear...
 │ │ │ │ │ │   │ │ └TfrmNotes.SetEditingIndex...
 │ │ │ │ │ │   │ ├TfrmNotes.LoadNotes
 │ │ │ │ │ │   │ │ ├KillDocTreeObjects
 │ │ │ │ │ │   │ │ │ └ResetDocTreeObjectStrings
 │ │ │ │ │ │   │ │ ├ListNotesForTree
 │ │ │ │ │ │   │ │ ├CreateListItemsForDocumentTree
 │ │ │ │ │ │   │ │ ├TfrmNotes.UpdateTreeView
 │ │ │ │ │ │   │ │ │ └BuildDocumentTree
 │ │ │ │ │ │   │ │ │   ├MakeNoteDisplayText
 │ │ │ │ │ │   │ │ │   ├MakeConsultNoteDisplayText
 │ │ │ │ │ │   │ │ │   ├MakeDCSummDisplayText
 │ │ │ │ │ │   │ │ │   ├MakeNoteTreeObject
 │ │ │ │ │ │   │ │ │   │ └MakeNoteDisplayText
 │ │ │ │ │ │   │ │ │   ├MakeConsultsNoteTreeObject
 │ │ │ │ │ │   │ │ │   │ ├MakeConsultNoteDisplayText
 │ │ │ │ │ │   │ │ │   │ └GetConsultOrderIEN
 │ │ │ │ │ │   │ │ │   ├MakeDCSummTreeObject
 │ │ │ │ │ │   │ │ │   │ └MakeDCSummDisplayText
 │ │ │ │ │ │   │ │ │   ├SetTreeNodeImagesAndFormatting
 │ │ │ │ │ │   │ │ │   │ ├ExternalName
 │ │ │ │ │ │   │ │ │   │ ├TextFound
 │ │ │ │ │ │   │ │ │   │ └MakeBold
 │ │ │ │ │ │   │ │ │   └..(rec)..
 │ │ │ │ │ │   │ │ ├TfrmNotes.SetNoteTreeLabel
 │ │ │ │ │ │   │ │ │ ├ExternalName
 │ │ │ │ │ │   │ │ │ └SetDateRangeText
 │ │ │ │ │ │   │ │ ├RemoveParentsWithNoChildren
 │ │ │ │ │ │   │ │ │ └KillDocTreeNode
 │ │ │ │ │ │   │ │ │   └ResetDocTreeObjectStrings
 │ │ │ │ │ │   │ │ └TfrmNotes.tvNotesChange...
 │ │ │ │ │ │   │ ├UpdateReminderFinish...
 │ │ │ │ │ │   │ ├TfrmNotes.ShowPCEControls
 │ │ │ │ │ │   │ └TfrmNotes.ShowPCEButtons...
 │ │ │ │ │ │   ├TPCEData.GetCPTRequired
 │ │ │ │ │ │   │ └TPCEData.NeededPCEData
 │ │ │ │ │ │   │   ├FutureEncounter...
 │ │ │ │ │ │   │   ├PromptForWorkload
 │ │ │ │ │ │   │   ├TPCEData.StandAlone
 │ │ │ │ │ │   │   │ └HasVisit
 │ │ │ │ │ │   │   ├TPCEData.GetHasCPTList
 │ │ │ │ │ │   │   │ └AddList
 │ │ │ │ │ │   │   │   └TPCEItem.HasCPTStr
 │ │ │ │ │ │   │   ├DataHasCPTCodes
 │ │ │ │ │ │   │   ├RequireExposures
 │ │ │ │ │ │   │   └EligbleConditions
 │ │ │ │ │ │   ├PutEditedNote
 │ │ │ │ │ │   │ └SetText
 │ │ │ │ │ │   │   └InitParams
 │ │ │ │ │ │   ├TfrmNotes.SetEditingIndex...
 │ │ │ │ │ │   └TfrmNotes.lstNotesClick...
 │ │ │ │ │ ├CosignDocument
 │ │ │ │ │ ├ActOnDocument
 │ │ │ │ │ ├NoteHasText
 │ │ │ │ │ ├LastSaveClean
 │ │ │ │ │ ├IsOK2Sign
 │ │ │ │ │ │ ├TPCEData.GetVisitString...
 │ │ │ │ │ │ ├VisitStrForNote
 │ │ │ │ │ │ ├TPCEData.OK2SignNote
 │ │ │ │ │ │ │ ├CanEditPCE...
 │ │ │ │ │ │ │ ├IsNonCountClinic
 │ │ │ │ │ │ │ ├IsCancelOrNoShow
 │ │ │ │ │ │ │ ├GetAskPCE
 │ │ │ │ │ │ │ ├TPCEData.NeededPCEData...
 │ │ │ │ │ │ │ ├TPCEProviderList.GetPrimaryIdx
 │ │ │ │ │ │ │ ├NoPrimaryPCEProvider
 │ │ │ │ │ │ │ │ ├TPCEProviderList.GetPrimaryIdx
 │ │ │ │ │ │ │ │ ├SetDefaultProvider
 │ │ │ │ │ │ │ │ │ ├InvalidPCEProviderTxt
 │ │ │ │ │ │ │ │ │ │ ├CheckActivePerson
 │ │ │ │ │ │ │ │ │ │ └IsUserAProvider
 │ │ │ │ │ │ │ │ │ ├TPCEData.PersonClassDate
 │ │ │ │ │ │ │ │ │ │ └FMToday...
 │ │ │ │ │ │ │ │ │ ├TEncounter.GetProviderName...
 │ │ │ │ │ │ │ │ │ ├DefaultProvider
 │ │ │ │ │ │ │ │ │ ├CheckActivePerson
 │ │ │ │ │ │ │ │ │ ├TIUSiteParams
 │ │ │ │ │ │ │ │ │ └TPCEProviderList.AddProvider
 │ │ │ │ │ │ │ │ │   └TPCEProviderList.Add...
 │ │ │ │ │ │ │ │ ├TfrmBase508Form.Create...
 │ │ │ │ │ │ │ │ ├TPCEProviderList.PendingIEN
 │ │ │ │ │ │ │ │ ├TPCEProviderList.PendingName
 │ │ │ │ │ │ │ │ ├TfrmPCEProvider.AskUser
 │ │ │ │ │ │ │ │ │ └TfrmPCEProvider.btnSelectClick
 │ │ │ │ │ │ │ │ └TPCEProviderList.AddProvider...
 │ │ │ │ │ │ │ ├TPCEProviderList.PendingIEN
 │ │ │ │ │ │ │ ├TPCEProviderList.IndexOfProvider
 │ │ │ │ │ │ │ ├TPCEProviderList.AddProvider...
 │ │ │ │ │ │ │ ├TPCEProviderList.PendingName
 │ │ │ │ │ │ │ ├Add
 │ │ │ │ │ │ │ ├ForcePCEEntry
 │ │ │ │ │ │ │ ├MissingProviderInfo
 │ │ │ │ │ │ │ │ ├TPCEData.Empty
 │ │ │ │ │ │ │ │ │ └TPCEProc.Empty
 │ │ │ │ │ │ │ │ ├TEncounter.NeedVisit
 │ │ │ │ │ │ │ │ ├TPCEData.SetEncUseCurr
 │ │ │ │ │ │ │ │ │ ├TEncounter.GetVisitCategory
 │ │ │ │ │ │ │ │ │ ├TPCEProviderList.SetPrimaryIdx...
 │ │ │ │ │ │ │ │ │ └SetRPCEncLocation
 │ │ │ │ │ │ │ │ └NoPrimaryPCEProvider...
 │ │ │ │ │ │ │ ├UpdatePCE
 │ │ │ │ │ │ │ │ ├TfrmBase508Form.Create...
 │ │ │ │ │ │ │ │ ├TPCEData.Empty...
 │ │ │ │ │ │ │ │ ├TEncounter.NeedVisit
 │ │ │ │ │ │ │ │ ├TPCEData.SetEncUseCurr...
 │ │ │ │ │ │ │ │ ├ExternalName
 │ │ │ │ │ │ │ │ ├TPCEData.VisitDateTime...
 │ │ │ │ │ │ │ │ ├TPCEProviderList.Assign
 │ │ │ │ │ │ │ │ ├SetDefaultProvider...
 │ │ │ │ │ │ │ │ ├TPCEProviderList.PendingIEN
 │ │ │ │ │ │ │ │ ├TPCEProviderList.IndexOfProvider
 │ │ │ │ │ │ │ │ ├AutoCheckout
 │ │ │ │ │ │ │ │ ├TPCEProviderList.AddProvider...
 │ │ │ │ │ │ │ │ ├TPCEProviderList.PendingName
 │ │ │ │ │ │ │ │ ├TfrmEncounterFrame.CreateChildForms
 │ │ │ │ │ │ │ │ │ ├TfrmEncounterFrame.LoadFormList
 │ │ │ │ │ │ │ │ │ │ └MHClinic
 │ │ │ │ │ │ │ │ │ │   └GAFOK
 │ │ │ │ │ │ │ │ │ ├TfrmEncounterFrame.AddTabs
 │ │ │ │ │ │ │ │ │ └TfrmEncounterFrame.CreateForms
 │ │ │ │ │ │ │ │ │   ├TfrmEncounterFrame.FormListContains
 │ │ │ │ │ │ │ │ │   ├TfrmPCEBase.CreateLinked
 │ │ │ │ │ │ │ │ │   │ └TfrmBase508Form.Create...
 │ │ │ │ │ │ │ │ │   ├TfrmEncounterFrame.PageIDToTab
 │ │ │ │ │ │ │ │ │   └TfrmEncounterFrame.PageIDToForm
 │ │ │ │ │ │ │ │ ├SetFormPosition
 │ │ │ │ │ │ │ │ │ └TSizeHolder.GetSize
 │ │ │ │ │ │ │ │ ├SetRPCEncLocation
 │ │ │ │ │ │ │ │ ├TfrmEncounterFrame.SynchPCEData
 │ │ │ │ │ │ │ │ │ ├TfrmEncounterFrame.FormListContains
 │ │ │ │ │ │ │ │ │ ├InitList
 │ │ │ │ │ │ │ │ │ │ ├TfrmEncounterFrame.FormListContains
 │ │ │ │ │ │ │ │ │ │ ├ListVisitTypeSections
 │ │ │ │ │ │ │ │ │ │ │ └LoadEncounterForm
 │ │ │ │ │ │ │ │ │ │ │   ├TPCEData.VisitDateTime...
 │ │ │ │ │ │ │ │ │ │ │   ├FMNow
 │ │ │ │ │ │ │ │ │ │ │   └AddProbsToDiagnoses
 │ │ │ │ │ │ │ │ │ │ │     ├TPCEData.VisitDateTime...
 │ │ │ │ │ │ │ │ │ │ │     ├rpcGetProviderPatientDaysDx
 │ │ │ │ │ │ │ │ │ │ │     └rpcGetPersonalDxList
 │ │ │ │ │ │ │ │ │ │ ├AutoSelectVisit
 │ │ │ │ │ │ │ │ │ │ ├PCERPCEncLocation
 │ │ │ │ │ │ │ │ │ │ └TfrmEncounterFrame.SectionClick
 │ │ │ │ │ │ │ │ │ │   ├TfrmEncounterFrame.FormListContains
 │ │ │ │ │ │ │ │ │ │   └TfrmVisitType.lstVTypeSectionClick
 │ │ │ │ │ │ │ │ │ │     ├ListVisitTypeCodes
 │ │ │ │ │ │ │ │ │ │     │ └InsertTab
 │ │ │ │ │ │ │ │ │ │     └TfrmVisitType.lbxVisitsClick
 │ │ │ │ │ │ │ │ │ │       └TfrmVisitType.ShowModifiers
 │ │ │ │ │ │ │ │ │ │         ├ListCPTModifiers
 │ │ │ │ │ │ │ │ │ │         │ ├ModifierList
 │ │ │ │ │ │ │ │ │ │         │ │ ├TPCEData.VisitDateTime...
 │ │ │ │ │ │ │ │ │ │         │ │ └MixedCaseModifier
 │ │ │ │ │ │ │ │ │ │         │ └ModifierIdx...
 │ │ │ │ │ │ │ │ │ │         └TfrmVisitType.CheckModifiers
 │ │ │ │ │ │ │ │ │ │           └UpdateVisitTypeModifierList
 │ │ │ │ │ │ │ │ │ │             └ModifierList...
 │ │ │ │ │ │ │ │ │ ├ListSCDisabilities
 │ │ │ │ │ │ │ │ │ ├EligbleConditions
 │ │ │ │ │ │ │ │ │ ├TfraVisitRelated.InitAllow
 │ │ │ │ │ │ │ │ │ │ └TfraVisitRelated.SetCheckEnable
 │ │ │ │ │ │ │ │ │ ├TfraVisitRelated.InitRelated
 │ │ │ │ │ │ │ │ │ │ └TfraVisitRelated.SetCheckState
 │ │ │ │ │ │ │ │ │ │   └TfraVisitRelated.chkClick
 │ │ │ │ │ │ │ │ │ │     ├DisableCheck
 │ │ │ │ │ │ │ │ │ │     └TfraVisitRelated.SetCheckEnable
 │ │ │ │ │ │ │ │ │ ├TfrmPCEBaseMain.InitTab
 │ │ │ │ │ │ │ │ │ │ ├TfrmPCEBaseMain.lbSectionClick
 │ │ │ │ │ │ │ │ │ │ │ ├TfrmPCEBaseGrid.ClearGrid
 │ │ │ │ │ │ │ │ │ │ │ │ └TfrmPCEBaseGrid.UpdateControls
 │ │ │ │ │ │ │ │ │ │ │ └TfrmPCEBaseMain.CheckOffEntries
 │ │ │ │ │ │ │ │ │ │ │   └TfrmPCEBaseMain.GetCat
 │ │ │ │ │ │ │ │ │ │ ├TfrmPCEBaseGrid.ClearGrid...
 │ │ │ │ │ │ │ │ │ │ └TfrmPCEBaseMain.GridChanged
 │ │ │ │ │ │ │ │ │ │   ├TfrmPCEBaseMain.BeginUpdate
 │ │ │ │ │ │ │ │ │ │   ├TfrmPCEBaseGrid.SaveGridSelected
 │ │ │ │ │ │ │ │ │ │   ├TPCEItem.ItemStr
 │ │ │ │ │ │ │ │ │ │   ├TfrmPCEBaseGrid.RestoreGridSelected
 │ │ │ │ │ │ │ │ │ │   ├TfrmPCEBaseGrid.SyncGridData
 │ │ │ │ │ │ │ │ │ │   │ ├TfrmPCEBaseGrid.SaveGridSelected
 │ │ │ │ │ │ │ │ │ │   │ ├TfrmPCEBaseGrid.RestoreGridSelected
 │ │ │ │ │ │ │ │ │ │   │ └TfrmPCEBaseGrid.SyncGridHeader
 │ │ │ │ │ │ │ │ │ │   ├TfrmPCEBaseMain.EndUpdate
 │ │ │ │ │ │ │ │ │ │   └TfrmPCEBaseMain.UpdateControls
 │ │ │ │ │ │ │ │ │ │     ├TfrmPCEBaseMain.NotUpdating
 │ │ │ │ │ │ │ │ │ │     ├TfrmPCEBaseMain.BeginUpdate
 │ │ │ │ │ │ │ │ │ │     ├TfrmPCEBaseGrid.GetGridIndex
 │ │ │ │ │ │ │ │ │ │     └TfrmPCEBaseMain.EndUpdate
 │ │ │ │ │ │ │ │ │ ├TPCEData.CopyDiagnoses
 │ │ │ │ │ │ │ │ │ │ └TPCEData.CopyPCEItems...
 │ │ │ │ │ │ │ │ │ ├ListDiagnosisSections
 │ │ │ │ │ │ │ │ │ │ └LoadEncounterForm...
 │ │ │ │ │ │ │ │ │ ├TfrmProcedures.InitTab
 │ │ │ │ │ │ │ │ │ ├TPCEData.CopyProcedures
 │ │ │ │ │ │ │ │ │ │ └TPCEData.CopyPCEItems...
 │ │ │ │ │ │ │ │ │ ├ListProcedureSections
 │ │ │ │ │ │ │ │ │ │ └LoadEncounterForm...
 │ │ │ │ │ │ │ │ │ ├TPCEData.CopyImmunizations
 │ │ │ │ │ │ │ │ │ │ └TPCEData.CopyPCEItems...
 │ │ │ │ │ │ │ │ │ ├ListImmunizSections
 │ │ │ │ │ │ │ │ │ │ └LoadEncounterForm...
 │ │ │ │ │ │ │ │ │ ├TPCEData.CopySkinTests
 │ │ │ │ │ │ │ │ │ │ └TPCEData.CopyPCEItems...
 │ │ │ │ │ │ │ │ │ ├ListSkinSections
 │ │ │ │ │ │ │ │ │ │ └LoadEncounterForm...
 │ │ │ │ │ │ │ │ │ ├TPCEData.CopyPatientEds
 │ │ │ │ │ │ │ │ │ │ └TPCEData.CopyPCEItems...
 │ │ │ │ │ │ │ │ │ ├ListPatientSections
 │ │ │ │ │ │ │ │ │ │ └LoadEncounterForm...
 │ │ │ │ │ │ │ │ │ ├TPCEData.CopyHealthFactors
 │ │ │ │ │ │ │ │ │ │ └TPCEData.CopyPCEItems...
 │ │ │ │ │ │ │ │ │ ├ListHealthSections
 │ │ │ │ │ │ │ │ │ │ └LoadEncounterForm...
 │ │ │ │ │ │ │ │ │ ├TPCEData.CopyExams
 │ │ │ │ │ │ │ │ │ │ └TPCEData.CopyPCEItems...
 │ │ │ │ │ │ │ │ │ ├ListExamsSections
 │ │ │ │ │ │ │ │ │ │ └LoadEncounterForm...
 │ │ │ │ │ │ │ │ │ ├TPCEProc.Assign
 │ │ │ │ │ │ │ │ │ │ └TPCEItem.Assign...
 │ │ │ │ │ │ │ │ │ └TfrmVisitType.MatchVType
 │ │ │ │ │ │ │ │ │   ├TfrmVisitType.lstVTypeSectionClick...
 │ │ │ │ │ │ │ │ │   └TfrmVisitType.lbxVisitsClickCheck
 │ │ │ │ │ │ │ │ │     ├TPCEProviderList.PrimaryIEN...
 │ │ │ │ │ │ │ │ │     ├TPCEProc.SetFromString...
 │ │ │ │ │ │ │ │ │     └TPCEProc.Clear...
 │ │ │ │ │ │ │ │ └TfrmEncounterFrame.TabControlChange
 │ │ │ │ │ │ │ │   ├TfrmEncounterFrame.PageIDToTab
 │ │ │ │ │ │ │ │   ├TfrmEncounterFrame.PageIDToForm
 │ │ │ │ │ │ │ │   └TfrmEncounterFrame.SwitchToPage
 │ │ │ │ │ │ │ │     └TfrmPCEBase.DisplayPage
 │ │ │ │ │ │ │ └TPCEData.Save
 │ │ │ │ │ │ │   ├TPCEData.IsSecondaryVisit
 │ │ │ │ │ │ │   ├GetLocSecondaryVisitCode
 │ │ │ │ │ │ │   ├GetVisitIEN
 │ │ │ │ │ │ │   ├TPCEDiag.DelimitedStr2
 │ │ │ │ │ │ │   ├TPCEProviderList.PCEProvider...
 │ │ │ │ │ │ │   ├TPCEDiag.DelimitedStr
 │ │ │ │ │ │ │   ├TPCEProc.DelimitedStr
 │ │ │ │ │ │ │   │ └ModifierCode
 │ │ │ │ │ │ │   │   └ModifierIdx...
 │ │ │ │ │ │ │   ├TPCEItem.DelimitedStr2
 │ │ │ │ │ │ │   ├TPCEImm.DelimitedStr
 │ │ │ │ │ │ │   ├TPCESkin.DelimitedStr
 │ │ │ │ │ │ │   ├TPCEPat.DelimitedStr
 │ │ │ │ │ │ │   ├TPCEHealth.DelimitedStr
 │ │ │ │ │ │ │   ├TPCEExams.DelimitedStr
 │ │ │ │ │ │ │   ├SavePCEData
 │ │ │ │ │ │ │   ├TPCEProviderList.GetProviderData
 │ │ │ │ │ │ │   ├TPCEProviderList.Delete
 │ │ │ │ │ │ │   ├TPCEProc.Clear...
 │ │ │ │ │ │ │   ├TPCEData.StrVisitType...
 │ │ │ │ │ │ │   ├TChanges.Add
 │ │ │ │ │ │ │   │ └TChangeItem.Create
 │ │ │ │ │ │ │   ├TPCEData.StrProcedures...
 │ │ │ │ │ │ │   ├TPCEData.StrDiagnoses...
 │ │ │ │ │ │ │   ├TPCEData.StrImmunizations...
 │ │ │ │ │ │ │   ├TPCEData.StrSkinTests...
 │ │ │ │ │ │ │   ├TPCEData.StrPatientEds...
 │ │ │ │ │ │ │   ├TPCEData.StrHealthFactors...
 │ │ │ │ │ │ │   └TPCEData.StrExams...
 │ │ │ │ │ │ ├TPCEData.Create
 │ │ │ │ │ │ └TPCEData.PCEForNote...
 │ │ │ │ │ ├TPCEData.CopyPCEData...
 │ │ │ │ │ ├TfrmNotes.lstNotesClick...
 │ │ │ │ │ ├TPCEData.Clear...
 │ │ │ │ │ ├SignDocument
 │ │ │ │ │ ├TfrmNotes.UnlockConsultRequest...
 │ │ │ │ │ └TfrmNotes.LoadNotes...
 │ │ │ │ ├TfrmConsults.SaveSignItem
 │ │ │ │ │ ├GetPackageRefForNote
 │ │ │ │ │ ├TfrmFrame.GetTimedOut...
 │ │ │ │ │ ├TfrmConsults.SaveCurrentNote
 │ │ │ │ │ │ └TfrmConsults.SaveEditedConsult
 │ │ │ │ │ │   ├TfrmConsults.LacksClinProcFields
 │ │ │ │ │ │   │ └AskCosignerForTitle
 │ │ │ │ │ │   │   └TIUPatch175Installed
 │ │ │ │ │ │   │     └ServerHasPatch
 │ │ │ │ │ │   ├TfrmConsults.cmdChangeClick
 │ │ │ │ │ │   │ ├ExecuteNoteProperties
 │ │ │ │ │ │   │ │ ├TfrmBase508Form.Create...
 │ │ │ │ │ │   │ │ ├FMToday...
 │ │ │ │ │ │   │ │ ├ListClinProcTitlesShort
 │ │ │ │ │ │   │ │ │ └LoadClinProcTitles
 │ │ │ │ │ │   │ │ │   ├IdentifyClinProcClass
 │ │ │ │ │ │   │ │ │   └TClinProcTitles.Create
 │ │ │ │ │ │   │ │ ├ListConsultTitlesShort
 │ │ │ │ │ │   │ │ │ └LoadConsultTitles
 │ │ │ │ │ │   │ │ │   ├IdentifyConsultsClass
 │ │ │ │ │ │   │ │ │   └TConsultTitles.Create
 │ │ │ │ │ │   │ │ ├ListSurgeryTitlesShort
 │ │ │ │ │ │   │ │ │ └LoadSurgeryTitles
 │ │ │ │ │ │   │ │ │   └TSurgeryTitles.Create
 │ │ │ │ │ │   │ │ ├GetUnresolvedConsultsInfo
 │ │ │ │ │ │   │ │ ├ListNoteTitlesShort
 │ │ │ │ │ │   │ │ │ └LoadNoteTitles
 │ │ │ │ │ │   │ │ │   └TNoteTitles.Create
 │ │ │ │ │ │   │ │ ├TfrmNoteProperties.ShowClinProcFields
 │ │ │ │ │ │   │ │ ├TfrmNoteProperties.SetCosignerRequired
 │ │ │ │ │ │   │ │ │ ├AskCosignerForDocument
 │ │ │ │ │ │   │ │ │ │ └TIUPatch175Installed...
 │ │ │ │ │ │   │ │ │ ├AskCosignerForTitle...
 │ │ │ │ │ │   │ │ │ └DefaultCosigner
 │ │ │ │ │ │   │ │ │   └LoadTIUPrefs
 │ │ │ │ │ │   │ │ │     └ExternalName
 │ │ │ │ │ │   │ │ ├TfrmNoteProperties.SetGenericFormSize
 │ │ │ │ │ │   │ │ ├TfrmNoteProperties.ShowRequestList
 │ │ │ │ │ │   │ │ │ └ListConsultRequests
 │ │ │ │ │ │   │ │ ├TfrmNoteProperties.ShowSurgCaseList
 │ │ │ │ │ │   │ │ │ └ListSurgeryCases
 │ │ │ │ │ │   │ │ ├TfrmNoteProperties.ShowPRFList
 │ │ │ │ │ │   │ │ │ ├TPRFActions.Create
 │ │ │ │ │ │   │ │ │ ├TPRFActions.Load
 │ │ │ │ │ │   │ │ │ └TPRFActions.ShowActionsOnList
 │ │ │ │ │ │   │ │ │   └TPRFActions.SelActionHasNote
 │ │ │ │ │ │   │ │ ├IsConsultTitle
 │ │ │ │ │ │   │ │ ├IsSurgeryTitle
 │ │ │ │ │ │   │ │ │ └ShowSurgeryTab
 │ │ │ │ │ │   │ │ ├IsPRFTitle
 │ │ │ │ │ │   │ │ ├TfrmNoteProperties.cboNewTitleExit
 │ │ │ │ │ │   │ │ │ └TfrmNoteProperties.cboNewTitleMouseClick
 │ │ │ │ │ │   │ │ │   ├IsConsultTitle
 │ │ │ │ │ │   │ │ │   ├TfrmNoteProperties.SetGenericFormSize
 │ │ │ │ │ │   │ │ │   ├TfrmNoteProperties.ShowRequestList...
 │ │ │ │ │ │   │ │ │   ├TfrmNoteProperties.ShowSurgCaseList...
 │ │ │ │ │ │   │ │ │   ├IsSurgeryTitle...
 │ │ │ │ │ │   │ │ │   ├TfrmNoteProperties.ShowPRFList...
 │ │ │ │ │ │   │ │ │   ├IsPRFTitle
 │ │ │ │ │ │   │ │ │   └TfrmNoteProperties.SetCosignerRequired...
 │ │ │ │ │ │   │ │ ├TfrmNoteProperties.FormatRequestList
 │ │ │ │ │ │   │ │ │ └TfrmNoteProperties.ShowRequestList...
 │ │ │ │ │ │   │ │ ├PrintNameForTitle
 │ │ │ │ │ │   │ │ ├TEncounter.GetLocationName...
 │ │ │ │ │ │   │ │ ├TPRFActions.GetPRF_IEN
 │ │ │ │ │ │   │ │ └TPRFActions.GetActionIEN
 │ │ │ │ │ │   │ ├TChanges.ReplaceSignState
 │ │ │ │ │ │   │ ├MakeConsultNoteDisplayText
 │ │ │ │ │ │   │ ├TChanges.ReplaceText
 │ │ │ │ │ │   │ ├TfrmConsults.GetTitleText
 │ │ │ │ │ │   │ │ └MakeConsultNoteDisplayText
 │ │ │ │ │ │   │ ├TfrmConsults.LockConsultRequest
 │ │ │ │ │ │   │ │ ├GetConsultOrderIEN
 │ │ │ │ │ │   │ │ ├TfrmNotes.ActiveEditOf
 │ │ │ │ │ │   │ │ └OrderCanBeLocked...
 │ │ │ │ │ │   │ ├UnlockOrderIfAble...
 │ │ │ │ │ │   │ ├GetConsultOrderIEN
 │ │ │ │ │ │   │ └TfrmConsults.mnuActLoadBoilerClick
 │ │ │ │ │ │   │   ├LoadBoilerPlate
 │ │ │ │ │ │   │   ├GetLinkedTemplate
 │ │ │ │ │ │   │   │ ├GetLinkedTemplateData
 │ │ │ │ │ │   │   │ └AddTemplate
 │ │ │ │ │ │   │   │   ├TTemplate.Create
 │ │ │ │ │ │   │   │   │ └TTemplate.ReminderDialogIEN
 │ │ │ │ │ │   │   │   └TTemplate.AddChild
 │ │ │ │ │ │   │   │     └TTemplate.GetItems
 │ │ │ │ │ │   │   │       └ExpandTemplate
 │ │ │ │ │ │   │   │         ├TTemplate.GetChildren
 │ │ │ │ │ │   │   │         ├GetTemplateChildren
 │ │ │ │ │ │   │   │         ├AddTemplate...
 │ │ │ │ │ │   │   │         └TTemplate.ItemIENs
 │ │ │ │ │ │   │   │           └TTemplate.GetItems...
 │ │ │ │ │ │   │   ├MakeXMLParamTIU
 │ │ │ │ │ │   │   │ └ExternalName
 │ │ │ │ │ │   │   ├AssignBoilerText
 │ │ │ │ │ │   │   │ └QuickCopyWith508Msg
 │ │ │ │ │ │   │   │   └SpeakTextInserted
 │ │ │ │ │ │   │   ├QueryBoilerPlate
 │ │ │ │ │ │   │   │ └TfrmBase508Form.Create...
 │ │ │ │ │ │   │   └QuickCopyWith508Msg...
 │ │ │ │ │ │   ├TfrmFrame.GetTimedOut...
 │ │ │ │ │ │   ├SaveOrAbort
 │ │ │ │ │ │   │ ├TfrmConsults.SetEditingIndex
 │ │ │ │ │ │   │ │ ├KillReminderDialog...
 │ │ │ │ │ │   │ │ └TfrmReminderTree.EnableActions...
 │ │ │ │ │ │   │ └TfrmConsults.lstNotesClick
 │ │ │ │ │ │   │   ├UpdateReminderFinish...
 │ │ │ │ │ │   │   ├MakeConsultNoteDisplayText
 │ │ │ │ │ │   │   ├GetDetailedMedicineResults
 │ │ │ │ │ │   │   ├NotifyOtherApps...
 │ │ │ │ │ │   │   ├LoadDocumentText
 │ │ │ │ │ │   │   ├TfrmReminderTree.EnableActions...
 │ │ │ │ │ │   │   ├TfrmConsults.DisplayPCE...
 │ │ │ │ │ │   │   └TfrmConsults.SetResultMenus
 │ │ │ │ │ │   │     ├CanReceiveAttachment
 │ │ │ │ │ │   │     ├TNotifications.GetFollowUp
 │ │ │ │ │ │   │     └TfrmConsults.UserIsSigner
 │ │ │ │ │ │   │       └GetCurrentSigners
 │ │ │ │ │ │   ├TfrmConsults.tvCsltNotesChange
 │ │ │ │ │ │   │ ├CanBeAttached
 │ │ │ │ │ │   │ ├CanReceiveAttachment
 │ │ │ │ │ │   │ ├UpdateReminderFinish...
 │ │ │ │ │ │   │ ├TfrmConsults.ShowPCEControls
 │ │ │ │ │ │   │ ├TfrmDrawers.DisplayDrawers...
 │ │ │ │ │ │   │ └TfrmConsults.lstNotesClick...
 │ │ │ │ │ │   ├TfrmConsults.GetTitleText...
 │ │ │ │ │ │   ├TfrmConsults.mnuActNoteDeleteClick
 │ │ │ │ │ │   │ ├ActOnDocument
 │ │ │ │ │ │   │ ├SelectDeleteReason...
 │ │ │ │ │ │   │ ├MakeNoteDisplayText
 │ │ │ │ │ │   │ ├TfrmConsults.LockConsultRequestAndNote
 │ │ │ │ │ │   │ │ ├TfrmNotes.ActiveEditOf
 │ │ │ │ │ │   │ │ ├TChanges.Exist
 │ │ │ │ │ │   │ │ ├IsConsultTitle
 │ │ │ │ │ │   │ │ ├TitleForNote
 │ │ │ │ │ │   │ │ ├GetPackageRefForNote
 │ │ │ │ │ │   │ │ ├TfrmConsults.LockConsultRequest...
 │ │ │ │ │ │   │ │ ├LockDocument
 │ │ │ │ │ │   │ │ └UnlockOrderIfAble...
 │ │ │ │ │ │   │ ├JustifyDocumentDelete
 │ │ │ │ │ │   │ ├TfrmConsults.SaveCurrentNote...
 │ │ │ │ │ │   │ ├TfrmConsults.SetEditingIndex...
 │ │ │ │ │ │   │ ├GetPackageRefForNote
 │ │ │ │ │ │   │ ├VisitStrForNote
 │ │ │ │ │ │   │ ├TfrmConsults.RemovePCEFromChanges
 │ │ │ │ │ │   │ │ ├VisitStrForNote
 │ │ │ │ │ │   │ │ └TChanges.Remove...
 │ │ │ │ │ │   │ ├DeleteDocument
 │ │ │ │ │ │   │ ├TChanges.Exist
 │ │ │ │ │ │   │ ├UnlockDocument
 │ │ │ │ │ │   │ ├TChanges.Remove...
 │ │ │ │ │ │   │ ├TfrmConsults.UnlockConsultRequest
 │ │ │ │ │ │   │ │ ├GetConsultIENforNote
 │ │ │ │ │ │   │ │ ├GetConsultOrderIEN
 │ │ │ │ │ │   │ │ └UnlockOrderIfAble...
 │ │ │ │ │ │   │ ├DeletePCE
 │ │ │ │ │ │   │ ├TfrmConsults.ClearEditControls
 │ │ │ │ │ │   │ │ ├TPCEData.Clear...
 │ │ │ │ │ │   │ │ ├TfrmConsults.SetEditingIndex...
 │ │ │ │ │ │   │ │ └TfrmConsults.ShowPCEControls
 │ │ │ │ │ │   │ ├UpdateReminderFinish...
 │ │ │ │ │ │   │ ├TfrmConsults.ShowPCEControls
 │ │ │ │ │ │   │ ├TfrmDrawers.DisplayDrawers...
 │ │ │ │ │ │   │ ├TfrmConsults.UpdateList
 │ │ │ │ │ │   │ │ ├StrToFMDateTime
 │ │ │ │ │ │   │ │ └TfrmConsults.LoadConsults
 │ │ │ │ │ │   │ │   ├KillDocTreeObjects...
 │ │ │ │ │ │   │ │   ├GetConsultsList
 │ │ │ │ │ │   │ │   │ └MakeConsultListItem
 │ │ │ │ │ │   │ │   ├StrToFMDateTime
 │ │ │ │ │ │   │ │   ├CreateListItemsForConsultTree
 │ │ │ │ │ │   │ │   ├TfrmConsults.UpdateConsultsTreeView
 │ │ │ │ │ │   │ │   │ └BuildConsultsTree
 │ │ │ │ │ │   │ │   │   ├MakeConsultListDisplayText
 │ │ │ │ │ │   │ │   │   ├SetNodeImage
 │ │ │ │ │ │   │ │   │   └..(rec)..
 │ │ │ │ │ │   │ │   └TfrmConsults.tvConsultsChange
 │ │ │ │ │ │   │ │     ├UpdateReminderFinish...
 │ │ │ │ │ │   │ │     ├TfrmConsults.ShowPCEControls
 │ │ │ │ │ │   │ │     ├TfrmDrawers.DisplayDrawers...
 │ │ │ │ │ │   │ │     ├KillDocTreeObjects...
 │ │ │ │ │ │   │ │     └TfrmConsults.lstConsultsClick
 │ │ │ │ │ │   │ │       ├TfrmConsults.ClearEditControls...
 │ │ │ │ │ │   │ │       ├GetConsultRec
 │ │ │ │ │ │   │ │       ├LoadConsultDetail
 │ │ │ │ │ │   │ │       ├KillDocTreeObjects...
 │ │ │ │ │ │   │ │       ├CreateListItemsForDocumentTree
 │ │ │ │ │ │   │ │       ├TfrmConsults.UpdateNoteTreeView
 │ │ │ │ │ │   │ │       │ └BuildDocumentTree...
 │ │ │ │ │ │   │ │       ├TfrmConsults.DisplayPCE...
 │ │ │ │ │ │   │ │       ├TfrmConsults.ShowPCEControls
 │ │ │ │ │ │   │ │       ├TfrmConsults.SetActionMenus
 │ │ │ │ │ │   │ │       │ ├GetActionMenuLevel
 │ │ │ │ │ │   │ │       │ │ └ConsultCanBeResubmitted
 │ │ │ │ │ │   │ │       │ └TNotifications.GetFollowUp
 │ │ │ │ │ │   │ │       └TfrmConsults.SetResultMenus...
 │ │ │ │ │ │   │ └TfrmConsults.tvConsultsClick
 │ │ │ │ │ │   │   ├KillDocTreeObjects...
 │ │ │ │ │ │   │   └TfrmConsults.tvConsultsChange...
 │ │ │ │ │ │   ├TPCEData.GetCPTRequired...
 │ │ │ │ │ │   ├PutEditedNote...
 │ │ │ │ │ │   ├TfrmConsults.SetEditingIndex...
 │ │ │ │ │ │   └TfrmConsults.lstNotesClick...
 │ │ │ │ │ ├CosignDocument
 │ │ │ │ │ ├ActOnDocument
 │ │ │ │ │ ├TfrmConsults.LacksClinProcFieldsForSignature
 │ │ │ │ │ │ ├GetConsultIENforNote
 │ │ │ │ │ │ ├GetActionMenuLevel...
 │ │ │ │ │ │ ├IsClinProcTitle
 │ │ │ │ │ │ ├TitleForNote
 │ │ │ │ │ │ ├GetSavedCPFields
 │ │ │ │ │ │ │ └StrToFMDateTime
 │ │ │ │ │ │ └TfrmConsults.LacksClinProcFields...
 │ │ │ │ │ ├NoteHasText
 │ │ │ │ │ ├LastSaveClean
 │ │ │ │ │ ├IsOK2Sign...
 │ │ │ │ │ ├TPCEData.CopyPCEData...
 │ │ │ │ │ ├TfrmConsults.lstNotesClick...
 │ │ │ │ │ ├TPCEData.Clear...
 │ │ │ │ │ ├SignDocument
 │ │ │ │ │ ├TfrmConsults.UnlockConsultRequest...
 │ │ │ │ │ ├UnlockDocument
 │ │ │ │ │ ├FindConsult
 │ │ │ │ │ │ └MakeConsultListItem
 │ │ │ │ │ ├MakeConsultListDisplayText
 │ │ │ │ │ ├SetNodeImage
 │ │ │ │ │ ├TfrmConsults.tvConsultsClick...
 │ │ │ │ │ └TfrmConsults.UpdateList...
 │ │ │ │ ├TfrmDCSumm.SaveSignItem
 │ │ │ │ │ ├TfrmFrame.GetTimedOut...
 │ │ │ │ │ ├TfrmDCSumm.SaveCurrentSumm
 │ │ │ │ │ │ └TfrmDCSumm.SaveEditedSumm
 │ │ │ │ │ │   ├TfrmDCSumm.tvSummsChange
 │ │ │ │ │ │   │ ├CanBeAttached
 │ │ │ │ │ │   │ ├CanReceiveAttachment
 │ │ │ │ │ │   │ ├TraverseTree...
 │ │ │ │ │ │   │ ├TfrmDCSumm.lvSummsSelectItem
 │ │ │ │ │ │   │ │ └TfrmDCSumm.lstSummsClick
 │ │ │ │ │ │   │ │   ├MakeDCSummDisplayText
 │ │ │ │ │ │   │ │   ├LoadDocumentText
 │ │ │ │ │ │   │ │   ├TfrmDCSumm.DisplayPCE
 │ │ │ │ │ │   │ │   │ ├TPCEData.AddStrData...
 │ │ │ │ │ │   │ │   │ ├GetVitalsFromDate...
 │ │ │ │ │ │   │ │   │ ├TPCEData.AddVitalData...
 │ │ │ │ │ │   │ │   │ ├CanEditPCE...
 │ │ │ │ │ │   │ │   │ ├TfrmDCSumm.ShowPCEControls
 │ │ │ │ │ │   │ │   │ ├TfrmDrawers.DisplayDrawers...
 │ │ │ │ │ │   │ │   │ ├ActOnDocument
 │ │ │ │ │ │   │ │   │ ├TPCEData.PCEForNote...
 │ │ │ │ │ │   │ │   │ └GetVitalsFromNote...
 │ │ │ │ │ │   │ │   └NotifyOtherApps...
 │ │ │ │ │ │   │ ├TfrmDCSumm.ShowPCEControls
 │ │ │ │ │ │   │ └TfrmDCSumm.lstSummsClick...
 │ │ │ │ │ │   ├TfrmDCSumm.GetTitleText
 │ │ │ │ │ │   ├TfrmDCSumm.mnuActDeleteClick
 │ │ │ │ │ │   │ ├TfrmDCSumm.NoSummSelected
 │ │ │ │ │ │   │ ├ActOnDocument
 │ │ │ │ │ │   │ ├SelectDeleteReason...
 │ │ │ │ │ │   │ ├MakeDCSummDisplayText
 │ │ │ │ │ │   │ ├TfrmDCSumm.LockSumm
 │ │ │ │ │ │   │ │ ├TChanges.Exist
 │ │ │ │ │ │   │ │ └LockDocument
 │ │ │ │ │ │   │ ├JustifyDocumentDelete
 │ │ │ │ │ │   │ ├TfrmDCSumm.SaveCurrentSumm...
 │ │ │ │ │ │   │ ├TfrmDCSumm.SetEditingIndex
 │ │ │ │ │ │   │ ├VisitStrForNote
 │ │ │ │ │ │   │ ├TfrmDCSumm.RemovePCEFromChanges
 │ │ │ │ │ │   │ │ ├VisitStrForNote
 │ │ │ │ │ │   │ │ └TChanges.Remove...
 │ │ │ │ │ │   │ ├DeleteDocument
 │ │ │ │ │ │   │ ├TChanges.Exist
 │ │ │ │ │ │   │ ├UnlockDocument
 │ │ │ │ │ │   │ ├TChanges.Remove...
 │ │ │ │ │ │   │ ├DeletePCE
 │ │ │ │ │ │   │ ├TfrmDCSumm.ClearEditControls
 │ │ │ │ │ │   │ │ ├TPCEData.Clear...
 │ │ │ │ │ │   │ │ └TfrmDCSumm.SetEditingIndex
 │ │ │ │ │ │   │ ├TfrmDCSumm.LoadSumms
 │ │ │ │ │ │   │ │ ├KillDocTreeObjects...
 │ │ │ │ │ │   │ │ ├ListSummsForTree
 │ │ │ │ │ │   │ │ ├CreateListItemsForDocumentTree
 │ │ │ │ │ │   │ │ ├TfrmDCSumm.UpdateTreeView
 │ │ │ │ │ │   │ │ │ └BuildDocumentTree...
 │ │ │ │ │ │   │ │ ├RemoveParentsWithNoChildren...
 │ │ │ │ │ │   │ │ └TfrmDCSumm.tvSummsChange...
 │ │ │ │ │ │   │ ├UpdateReminderFinish...
 │ │ │ │ │ │   │ ├TfrmDCSumm.ShowPCEControls
 │ │ │ │ │ │   │ └TfrmDrawers.DisplayDrawers...
 │ │ │ │ │ │   ├TfrmDCSumm.cmdChangeClick
 │ │ │ │ │ │   │ ├ExecuteDCSummProperties
 │ │ │ │ │ │   │ │ ├TfrmBase508Form.Create...
 │ │ │ │ │ │   │ │ ├ListDCSummTitlesShort
 │ │ │ │ │ │   │ │ │ └LoadDCSummTitles
 │ │ │ │ │ │   │ │ │   └TDCSummTitles.Create
 │ │ │ │ │ │   │ │ ├LoadDCUrgencies
 │ │ │ │ │ │   │ │ ├TfrmDCSummProperties.ShowAdmissionList
 │ │ │ │ │ │   │ │ │ └ListAdmitAll
 │ │ │ │ │ │   │ │ ├PrintNameForTitle
 │ │ │ │ │ │   │ │ ├StrToFMDateTime
 │ │ │ │ │ │   │ │ ├GetDischargeDate
 │ │ │ │ │ │   │ │ ├FMNow
 │ │ │ │ │ │   │ │ └GetTIUListItem
 │ │ │ │ │ │   │ ├TChanges.ReplaceSignState
 │ │ │ │ │ │   │ ├MakeDCSummDisplayText
 │ │ │ │ │ │   │ ├TChanges.ReplaceText
 │ │ │ │ │ │   │ ├TfrmDCSumm.GetTitleText
 │ │ │ │ │ │   │ └TfrmDCSumm.mnuActLoadBoilerClick
 │ │ │ │ │ │   │   ├TfrmDCSumm.NoSummSelected
 │ │ │ │ │ │   │   ├LoadBoilerPlate
 │ │ │ │ │ │   │   ├GetLinkedTemplate...
 │ │ │ │ │ │   │   ├MakeXMLParamTIU
 │ │ │ │ │ │   │   │ └ExternalName
 │ │ │ │ │ │   │   ├AssignBoilerText
 │ │ │ │ │ │   │   │ └QuickCopyWith508Msg...
 │ │ │ │ │ │   │   ├QueryBoilerPlate...
 │ │ │ │ │ │   │   └QuickAddWith508Msg
 │ │ │ │ │ │   │     └SpeakTextInserted
 │ │ │ │ │ │   ├TPCEData.GetCPTRequired...
 │ │ │ │ │ │   ├RequireMASVerification
 │ │ │ │ │ │   ├RequireRelease
 │ │ │ │ │ │   ├PutEditedDCSumm
 │ │ │ │ │ │   │ └SetText...
 │ │ │ │ │ │   ├TChanges.Remove...
 │ │ │ │ │ │   ├UnlockDocument
 │ │ │ │ │ │   ├TfrmDCSumm.SetEditingIndex
 │ │ │ │ │ │   └TfrmDCSumm.lstSummsClick...
 │ │ │ │ │ ├CosignDocument
 │ │ │ │ │ ├ActOnDocument
 │ │ │ │ │ ├NoteHasText
 │ │ │ │ │ ├LastSaveClean
 │ │ │ │ │ ├IsOK2Sign...
 │ │ │ │ │ ├TPCEData.CopyPCEData...
 │ │ │ │ │ ├TfrmDCSumm.lstSummsClick...
 │ │ │ │ │ ├TPCEData.Clear...
 │ │ │ │ │ ├SignDocument
 │ │ │ │ │ └TfrmDCSumm.LoadSumms...
 │ │ │ │ ├TfrmSurgery.SaveSignItem
 │ │ │ │ │ ├TfrmFrame.GetTimedOut...
 │ │ │ │ │ ├TfrmSurgery.SaveCurrentNote
 │ │ │ │ │ │ └TfrmSurgery.SaveEditedNote
 │ │ │ │ │ │   ├TfrmSurgery.tvSurgeryChange
 │ │ │ │ │ │   │ ├TfrmSurgery.EnableDisableMenus
 │ │ │ │ │ │   │ ├MakeSurgeryCaseDisplayText
 │ │ │ │ │ │   │ ├NotifyOtherApps...
 │ │ │ │ │ │   │ ├TfrmSurgery.lstNotesClick
 │ │ │ │ │ │   │ │ ├MakeSurgeryReportDisplayText
 │ │ │ │ │ │   │ │ ├LoadSurgReportText
 │ │ │ │ │ │   │ │ ├TfrmReminderTree.EnableActions...
 │ │ │ │ │ │   │ │ ├TfrmSurgery.DisplayPCE
 │ │ │ │ │ │   │ │ │ ├TfrmSurgery.ShowPCEControls
 │ │ │ │ │ │   │ │ │ ├TfrmDrawers.DisplayDrawers...
 │ │ │ │ │ │   │ │ │ ├TPCEData.AddStrData...
 │ │ │ │ │ │   │ │ │ ├GetVitalsFromDate...
 │ │ │ │ │ │   │ │ │ ├TPCEData.AddVitalData...
 │ │ │ │ │ │   │ │ │ ├TfrmSurgery.ShowPCEButtons
 │ │ │ │ │ │   │ │ │ │ ├AnytimeEncounters
 │ │ │ │ │ │   │ │ │ │ ├CanEditPCE...
 │ │ │ │ │ │   │ │ │ │ └GetAskPCE
 │ │ │ │ │ │   │ │ │ ├InteractiveRemindersActive...
 │ │ │ │ │ │   │ │ │ ├GetReminderStatus
 │ │ │ │ │ │   │ │ │ ├TfrmDrawers.DisplayDrawers...
 │ │ │ │ │ │   │ │ │ ├ActOnDocument
 │ │ │ │ │ │   │ │ │ ├TPCEData.PCEForNote...
 │ │ │ │ │ │   │ │ │ └GetVitalsFromNote...
 │ │ │ │ │ │   │ │ └NotifyOtherApps...
 │ │ │ │ │ │   │ ├TfrmSurgery.ShowPCEControls
 │ │ │ │ │ │   │ ├TfrmSurgery.ShowPCEButtons...
 │ │ │ │ │ │   │ ├TfrmReminderTree.EnableActions...
 │ │ │ │ │ │   │ └TfrmSurgery.DisplayPCE...
 │ │ │ │ │ │   ├TfrmSurgery.GetTitleText
 │ │ │ │ │ │   ├TfrmSurgery.mnuActDeleteClick
 │ │ │ │ │ │   │ ├ActOnDocument
 │ │ │ │ │ │   │ ├SelectDeleteReason...
 │ │ │ │ │ │   │ ├MakeNoteDisplayText
 │ │ │ │ │ │   │ ├LockDocument
 │ │ │ │ │ │   │ ├JustifyDocumentDelete
 │ │ │ │ │ │   │ ├TfrmSurgery.SaveCurrentNote...
 │ │ │ │ │ │   │ ├TfrmSurgery.SetEditingIndex
 │ │ │ │ │ │   │ │ ├KillReminderDialog...
 │ │ │ │ │ │   │ │ └TfrmReminderTree.EnableActions...
 │ │ │ │ │ │   │ ├VisitStrForNote
 │ │ │ │ │ │   │ ├TfrmSurgery.RemovePCEFromChanges
 │ │ │ │ │ │   │ │ ├VisitStrForNote
 │ │ │ │ │ │   │ │ └TChanges.Remove...
 │ │ │ │ │ │   │ ├DeleteDocument
 │ │ │ │ │ │   │ ├TChanges.Exist
 │ │ │ │ │ │   │ ├UnlockDocument
 │ │ │ │ │ │   │ ├TChanges.Remove...
 │ │ │ │ │ │   │ ├DeletePCE
 │ │ │ │ │ │   │ ├TfrmSurgery.ClearEditControls
 │ │ │ │ │ │   │ │ ├TPCEData.Clear...
 │ │ │ │ │ │   │ │ └TfrmSurgery.SetEditingIndex...
 │ │ │ │ │ │   │ ├TfrmSurgery.LoadSurgeryCases
 │ │ │ │ │ │   │ │ ├KillCaseTreeObjects
 │ │ │ │ │ │   │ │ │ └ResetCaseTreeObjectStrings
 │ │ │ │ │ │   │ │ ├TfrmSurgery.ShowPCEControls
 │ │ │ │ │ │   │ │ ├GetSurgCaseList
 │ │ │ │ │ │   │ │ ├CreateListItemsForCaseTree
 │ │ │ │ │ │   │ │ ├TfrmSurgery.UpdateTreeView
 │ │ │ │ │ │   │ │ │ └BuildCaseTree
 │ │ │ │ │ │   │ │ │   ├MakeSurgeryCaseDisplayText
 │ │ │ │ │ │   │ │ │   ├MakeSurgeryReportDisplayText
 │ │ │ │ │ │   │ │ │   ├MakeCaseTreeObject
 │ │ │ │ │ │   │ │ │   │ ├MakeSurgeryCaseDisplayText
 │ │ │ │ │ │   │ │ │   │ └MakeSurgeryReportDisplayText
 │ │ │ │ │ │   │ │ │   ├SetCaseTreeNodeImagesAndFormatting
 │ │ │ │ │ │   │ │ │   │ └SetImageFlag
 │ │ │ │ │ │   │ │ │   └..(rec)..
 │ │ │ │ │ │   │ │ ├RemoveParentsWithNoChildren
 │ │ │ │ │ │   │ │ │ └KillCaseTreeNode
 │ │ │ │ │ │   │ │ │   └ResetCaseTreeObjectStrings
 │ │ │ │ │ │   │ │ ├TfrmSurgery.SetSurgTreeLabel
 │ │ │ │ │ │   │ │ │ └SetDateRangeText
 │ │ │ │ │ │   │ │ └TfrmSurgery.tvSurgeryChange...
 │ │ │ │ │ │   │ ├UpdateReminderFinish...
 │ │ │ │ │ │   │ ├TfrmSurgery.ShowPCEControls
 │ │ │ │ │ │   │ └TfrmSurgery.ShowPCEButtons...
 │ │ │ │ │ │   ├TPCEData.GetCPTRequired...
 │ │ │ │ │ │   ├PutEditedNote...
 │ │ │ │ │ │   ├TfrmSurgery.SetEditingIndex...
 │ │ │ │ │ │   └TfrmSurgery.lstNotesClick...
 │ │ │ │ │ ├CosignDocument
 │ │ │ │ │ ├ActOnDocument
 │ │ │ │ │ ├NoteHasText
 │ │ │ │ │ ├LastSaveClean
 │ │ │ │ │ ├IsOK2Sign...
 │ │ │ │ │ ├TPCEData.CopyPCEData...
 │ │ │ │ │ ├TfrmSurgery.lstNotesClick...
 │ │ │ │ │ ├TPCEData.Clear...
 │ │ │ │ │ ├SignDocument
 │ │ │ │ │ └TfrmSurgery.LoadSurgeryCases...
 │ │ │ │ ├TChanges.Remove...
 │ │ │ │ └UnlockIfAble
 │ │ │ │   └UnlockPatient
 │ │ │ ├TChanges.CanSign
 │ │ │ ├TfrmReview.BuildSignList
 │ │ │ │ └TfrmReview.BuildList...
 │ │ │ ├TfrmReview.PlaceComponents
 │ │ │ │ ├TfrmReview.AnyItemsAreChecked...
 │ │ │ │ └TfrmReview.IsSignatureRequired
 │ │ │ ├CSRemaining
 │ │ │ │ ├LoadUnsignedOrders
 │ │ │ │ └TextForOrder
 │ │ │ └rpcNonBillableOrders
 │ │ ├TEncounter.SetProvider
 │ │ ├TEncounter.SetLocation
 │ │ ├TEncounter.SetDateTime
 │ │ ├TEncounter.SetVisitCategory
 │ │ └TEncounter.SetStandAlone
 │ └TfrmFrame.DisplayEncounterText...
 ├DEACheckFailed
 ├TfrmODMedIV.UpdateRoute
 │ └LoadDosageFormIVRoutes
 ├LoadAllIVRoutes
 ├AdminTimeHelpText
 ├TfrmODMedIV.SetSchedule
 ├DifferentOrderLocations
 ├TfrmODMedIV.ValidateInfusionRate
 ├TfrmODMedIV.SetLimitationControl
 ├TfrmODMedIV.UpdateDuration
 ├TfrmODMedIV.loadExpectFirstDose
 │ ├TfrmODMedIV.DisplayDoseNow
 │ ├LoadAdminInfo
 │ └FMToday...
 └TfrmODMedIV.ControlChange
   ├TfrmODMedIV.loadExpectFirstDose...
   ├TResponses.FindResponseByName
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├IsNumericRate
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Called-By Hierarchy


 TfrmODMedIV.SetValuesFromResponses
          TfrmODMedIV.SetupDialog┤ 
TfrmODMedIV.cboSolutionMouseClick┘ 
    TfrmODMedIV.cboSolutionExit┘   

Calls

Name Declaration Comments
AdminTimeHelpText function AdminTimeHelpText(): string; -
AmountsForIVFluid function AmountsForIVFluid(AnIEN: Integer; FluidType: Char): string; -
TfrmODMedIV.ControlChange procedure ControlChange(Sender: TObject); -
DEACheckFailed function DEACheckFailed(AnOI: Integer; ForInpatient: Boolean): string; -
DEACheckFailedForIVOnOutPatient function DEACheckFailedForIVOnOutPatient(AnOI: Integer; AnOIType: Char): string; -
DifferentOrderLocations function DifferentOrderLocations(ID: string; Loc: integer): boolean; -
TResponses.FindResponseByName function FindResponseByName(const APromptID: string; AnInstance: Integer): TResponse; -
LoadAllIVRoutes procedure LoadAllIVRoutes(Dest: TStrings); -
TfrmODMedIV.loadExpectFirstDose procedure loadExpectFirstDose; -
TfrmFrame.mnuFileEncounterClick procedure mnuFileEncounterClick(Sender: TObject); -
TResponses.NextInstance function NextInstance(const APromptID: string; LastInstance: Integer): Integer; -
TfrmODBase.OrderForInpatient function OrderForInpatient: Boolean; -
TResponses.SetControl procedure SetControl(AControl: TControl; const APromptID: string; AnInstance: Integer); -
TfrmODMedIV.SetLimitationControl procedure SetLimitationControl(aValue: string); -
TfrmODMedIV.SetSchedule procedure SetSchedule(const x: string); -
TfrmODMedIV.UpdateDuration procedure UpdateDuration(SchType: string); -
TfrmODMedIV.UpdateRoute procedure UpdateRoute; -
TfrmODMedIV.ValidateInfusionRate function ValidateInfusionRate(Rate: string): string; -

Called-By

Name Declaration Comments
TfrmODMedIV.cboSolutionMouseClick procedure cboSolutionMouseClick(Sender: TObject); -
TfrmODMedIV.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

775   procedure TfrmODMedIV.SetValuesFromResponses;
776   var
777     x, addRoute, tempSch, AdminTime, TempOrder, tmpSch, tempIRoute, tempRoute, PreAddFreq, DEAFailStr, TX_INFO: string;
778     AnInstance, i, idx, j: Integer;
779     AResponse, AddFreqResp: TResponse;
780     AnIVComponent: TIVComponent;
781     AllIVRoute: TStringList;
782     PQO: boolean;
783   begin
784     Changing := True;
785     //self.FInitialOrderID := false;
786     with Responses do
787     begin
788       SetControl(cboType, 'TYPE', 1);
789       if cboType.ItemIndex > -1 then  FIVTypeDefined := True;
790       FInpatient := OrderForInpatient;
791       AnInstance := NextInstance('ORDERABLE', 0);
792       while AnInstance > 0 do
793       begin
794         AResponse := FindResponseByName('ORDERABLE', AnInstance);
795         if AResponse <> nil then
796         begin
797           x := AmountsForIVFluid(StrToIntDef(AResponse.IValue, 0), 'B');
798           AnIVComponent := TIVComponent.Create;
799           AnIVComponent.IEN     := StrToIntDef(AResponse.IValue, 0);
800           DEAFailStr := '';
801           if not FInpatient then
802           begin
803             DEAFailStr := DEACheckFailedForIVOnOutPatient(AnIVComponent.IEN,'S');
804             while StrToIntDef(Piece(DEAFailStr,U,1),0) in [1..5] do
805               begin
806                 case StrToIntDef(Piece(DEAFailStr,U,1),0) of
807                   1:  TX_INFO := TX_DEAFAIL;  //prescriber has an invalid or no DEA#
808                   2:  TX_INFO := TX_SCHFAIL + Piece(DEAFailStr,U,2) + '.';  //prescriber has no schedule privileges in 2,2N,3,3N,4, or 5
809                   3:  TX_INFO := TX_NO_DETOX;  //prescriber has an invalid or no Detox#
810                   4:  TX_INFO := TX_EXP_DEA1 + Piece(DEAFailStr,U,2) + TX_EXP_DEA2;  //prescriber's DEA# expired and no VA# is assigned
811                   5:  TX_INFO := TX_EXP_DETOX1 + Piece(DEAFailStr,U,2) + TX_EXP_DETOX2;  //valid detox#, but expired DEA#
812                 end;
813                 if InfoBox(TX_INFO + TX_INSTRUCT, TC_DEAFAIL, MB_RETRYCANCEL) = IDRETRY then
814                   begin
815                     DEAContext := True;
816                     fFrame.frmFrame.mnuFileEncounterClick(self);
817                     DEAFailStr := '';
818                     DEAFailStr := DEACheckFailedForIVOnOutPatient(AnIVComponent.IEN,'S');
819                   end
820                 else
821                   begin
822                     cboAdditive.Text := '';
823                     AbortOrder := True;
824                     Exit;
825                   end;
826               end
827           end else
828           begin
829             DEAFailStr := DEACheckFailed(AnIVComponent.IEN, FInpatient);
830             while StrToIntDef(Piece(DEAFailStr,U,1),0) in [1..5] do
831               begin
832                 case StrToIntDef(Piece(DEAFailStr,U,1),0) of
833                   1:  TX_INFO := TX_DEAFAIL;  //prescriber has an invalid or no DEA#
834                   2:  TX_INFO := TX_SCHFAIL + Piece(DEAFailStr,U,2) + '.';  //prescriber has no schedule privileges in 2,2N,3,3N,4, or 5
835                   3:  TX_INFO := TX_NO_DETOX;  //prescriber has an invalid or no Detox#
836                   4:  TX_INFO := TX_EXP_DEA1 + Piece(DEAFailStr,U,2) + TX_EXP_DEA2;  //prescriber's DEA# expired and no VA# is assigned
837                   5:  TX_INFO := TX_EXP_DETOX1 + Piece(DEAFailStr,U,2) + TX_EXP_DETOX2;  //valid detox#, but expired DEA#
838                 end;
839                 if InfoBox(TX_INFO + TX_INSTRUCT, TC_DEAFAIL, MB_RETRYCANCEL) = IDRETRY then
840                   begin
841                     DEAContext := True;
842                     fFrame.frmFrame.mnuFileEncounterClick(self);
843                     DEAFailStr := '';
844                     DEAFailStr := DEACheckFailed(AnIVComponent.IEN, FInpatient);
845                   end
846                 else
847                   begin
848                     cboAdditive.Text := '';
849                     AbortOrder := True;
850                     Exit;
851                   end;
852               end
853           end;
854           AnIVComponent.Name    := AResponse.EValue;
855           AnIVComponent.Fluid   := 'B';
856           AnIVComponent.Amount  := StrToIntDef(Piece(x, U, 2), 0);
857           AnIVComponent.Units   := Piece(x, U, 1);
858           AnIVComponent.Volumes := Copy(x, Pos(U, x) + 1, Length(x));
859           with grdSelected do
860           begin
861             if Objects[0, RowCount - 1] <> nil then RowCount := RowCount + 1;
862             Objects[0, RowCount - 1] := AnIVComponent;
863             Cells[0, RowCount - 1] := AnIVComponent.Name;
864             if AnIVComponent.Amount <> 0 then
865               Cells[1, RowCount - 1] := IntToStr(AnIVComponent.Amount);
866             Cells[2, RowCount - 1] := AnIVComponent.Units;
867             Cells[3, RowCount - 1] := 'N/A';
868           end;
869         end;
870         AResponse := FindResponseByName('VOLUME', AnInstance);
871         if AResponse <> nil then with grdSelected do Cells[1, RowCount - 1] := AResponse.EValue;
872         AnInstance := NextInstance('ORDERABLE', AnInstance);
873       end; {while AnInstance - ORDERABLE}
874       AnInstance := NextInstance('ADDITIVE', 0);
875       while AnInstance > 0 do
876       begin
877         AResponse := FindResponseByName('ADDITIVE', AnInstance);
878         if AResponse <> nil then
879         begin
880           x := AmountsForIVFluid(StrToIntDef(AResponse.IValue, 0), 'A');
881           AnIVComponent := TIVComponent.Create;
882           AnIVComponent.IEN     := StrToIntDef(AResponse.IValue, 0);
883           DEAFailStr := '';
884           if not FInpatient then
885           begin
886             DEAFailStr := DEACheckFailedForIVOnOutPatient(AnIVComponent.IEN,'A');
887             while StrToIntDef(Piece(DEAFailStr,U,1),0) in [1..5] do
888               begin
889                 case StrToIntDef(Piece(DEAFailStr,U,1),0) of
890                   1:  TX_INFO := TX_DEAFAIL;  //prescriber has an invalid or no DEA#
891                   2:  TX_INFO := TX_SCHFAIL + Piece(DEAFailStr,U,2) + '.';  //prescriber has no schedule privileges in 2,2N,3,3N,4, or 5
892                   3:  TX_INFO := TX_NO_DETOX;  //prescriber has an invalid or no Detox#
893                   4:  TX_INFO := TX_EXP_DEA1 + Piece(DEAFailStr,U,2) + TX_EXP_DEA2;  //prescriber's DEA# expired and no VA# is assigned
894                   5:  TX_INFO := TX_EXP_DETOX1 + Piece(DEAFailStr,U,2) + TX_EXP_DETOX2;  //valid detox#, but expired DEA#
895                 end;
896                 if InfoBox(TX_INFO + TX_INSTRUCT, TC_DEAFAIL, MB_RETRYCANCEL) = IDRETRY then
897                   begin
898                     DEAContext := True;
899                     fFrame.frmFrame.mnuFileEncounterClick(self);
900                     DEAFailStr := '';
901                     DEAFailStr := DEACheckFailedForIVOnOutPatient(AnIVComponent.IEN,'A');
902                   end
903                 else
904                   begin
905                     cboAdditive.Text := '';
906                     AbortOrder := True;
907                     Exit;
908                   end;
909               end
910           end else
911           begin
912             DEAFailStr := DEACheckFailed(AnIVComponent.IEN, FInpatient);
913             while StrToIntDef(Piece(DEAFailStr,U,1),0) in [1..5] do
914               begin
915                 case StrToIntDef(Piece(DEAFailStr,U,1),0) of
916                   1:  TX_INFO := TX_DEAFAIL;  //prescriber has an invalid or no DEA#
917                   2:  TX_INFO := TX_SCHFAIL + Piece(DEAFailStr,U,2) + '.';  //prescriber has no schedule privileges in 2,2N,3,3N,4, or 5
918                   3:  TX_INFO := TX_NO_DETOX;  //prescriber has an invalid or no Detox#
919                   4:  TX_INFO := TX_EXP_DEA1 + Piece(DEAFailStr,U,2) + TX_EXP_DEA2;  //prescriber's DEA# expired and no VA# is assigned
920                   5:  TX_INFO := TX_EXP_DETOX1 + Piece(DEAFailStr,U,2) + TX_EXP_DETOX2;  //valid detox#, but expired DEA#
921                 end;
922                 if InfoBox(TX_INFO + TX_INSTRUCT, TC_DEAFAIL, MB_RETRYCANCEL) = IDRETRY then
923                   begin
924                     DEAContext := True;
925                     fFrame.frmFrame.mnuFileEncounterClick(self);
926                     DEAFailStr := '';
927                     DEAFailStr := DEACheckFailed(AnIVComponent.IEN, FInpatient);
928                   end
929                 else
930                   begin
931                     cboAdditive.Text := '';
932                     AbortOrder := True;
933                     Exit;
934                   end;
935               end
936           end;
937           AnIVComponent.Name    := AResponse.EValue;
938           AnIVComponent.Fluid   := 'A';
939           AnIVComponent.Amount  := StrToIntDef(Piece(x, U, 2), 0);
940           AnIVComponent.Units   := Piece(x, U, 1);
941           AnIVComponent.Volumes := Copy(x, Pos(U, x) + 1, Length(x));
942           //AGP ADDITIVE FREQUENCY CHANGES
943           AnIVComponent.AddFreq := '';
944           PreAddFreq := '';
945           AddFreqResp := FindResponseByName('ADDFREQ', AnInstance);
946           if AddFreqResp <> nil then
947             begin
948               if cboAddFreq.Items.IndexOf(AddFreqResp.IValue) = -1 then
949                    begin
950                      AnIvComponent.AddFreq := '';
951                    end
952               else AnIvComponent.AddFreq := AddFreqResp.IValue;
953               PreAddFreq := AddFreqResp.IValue;
954             end;
955           with grdSelected do
956           begin
957             if Objects[0, RowCount - 1] <> nil then RowCount := RowCount + 1;
958             Objects[0, RowCount - 1] := AnIVComponent;
959             Cells[0, RowCount - 1] := AnIVComponent.Name;
960             if AnIVComponent.Amount <> 0 then
961               Cells[1, RowCount - 1] := IntToStr(AnIVComponent.Amount);
962             Cells[2, RowCount - 1] := AnIVComponent.Units;
963             Cells[3, RowCount -1] := AnIVComponent.AddFreq;
964             if OrdAction in [ORDER_COPY, ORDER_EDIT] then Cells[4, RowCount -1] := PreAddFreq;
965           end;
966         end;
967         AResponse := FindResponseByName('STRENGTH', AnInstance);
968         if AResponse <> nil then with grdSelected do Cells[1, RowCount - 1] := AResponse.EValue;
969         AResponse := FindResponseByName('UNITS', AnInstance);
970         if AResponse <> nil then with grdSelected do Cells[2, RowCount - 1] := AResponse.EValue;
971         AnInstance := NextInstance('ADDITIVE', AnInstance);
972       end; {while AnInstance - ADDITIVE}
973       SetControl(cboType, 'TYPE', 1);
974       if self.grdSelected.RowCount > 0 then self.txtAllIVRoutes.Visible := True;    
975       UpdateRoute;
976       AResponse := FindResponseByName('ROUTE', 1);
977       if AResponse <> nil then
978         begin
979           tempRoute := AResponse.EValue;
980           if tempRoute <> '' then
981             begin
982              idx := self.cboRoute.Items.IndexOf(tempRoute);
983              if idx > -1 then self.cboRoute.ItemIndex := idx
984              else begin
985                tempIRoute := AResponse.IValue;
986                if tempIRoute <> '' then
987                  begin
988                   AllIVRoute := TStringList.Create;
989                   LoadAllIVRoutes(AllIVRoute);
990                   idx := -1;
991                   for i := 0 to AllIVRoute.Count - 1 do
992                     begin
993                       if Piece(AllIVRoute.Strings[i], U, 1) = tempIRoute then
994                         begin
995                           idx := i;
996                           break;
997                         end;
998                     end;
999                   if idx > -1 then
1000                    begin
1001                      self.cboRoute.Items.Add(AllIVRoute.Strings[idx]);
1002                      idx := self.cboRoute.Items.IndexOf(tempRoute);
1003                      if idx > -1 then self.cboRoute.ItemIndex := idx;
1004                    end;
1005                    AllIVRoute.Free;
1006                  //if Pos(U, tempIRoute) = 0 then tempIRoute := tempIRoute + U + tempRoute;
1007                  //self.cboRoute.Items.Add(tempIRoute);
1008                  //idx := self.cboRoute.Items.IndexOf(tempRoute);
1009                  //if idx > -1 then self.cboRoute.ItemIndex := idx;
1010                 end;
1011             end;
1012            end;
1013        end;
1014      //SetControl(cboRoute, 'ROUTE', 1);
1015      if (cboRoute.ItemIndex = -1) and (cboRoute.Text <> '') then cboRoute.Text := '';
1016      if self.cboType.Text = 'Intermittent' then
1017        begin
1018           lblInfusionRate.Caption := 'Infuse Over Time (Optional)';
1019           lblSchedule.Enabled := True;
1020           cboschedule.Enabled := True;
1021           //if popDuration.Items.IndexOf(popDoses) = -1 then popDuration.Items.Add(popDoses);
1022           if cboDuration.Items.IndexOf('doses') = -1 then cboDuration.Items.Add('doses');         
1023           txtNss.Visible := true;
1024           chkDoseNow.Visible := true;
1025           chkPRN.Enabled := True;
1026           tempSch := '';
1027           AdminTime := '';
1028           AResponse := FindResponseByName('SCHEDULE', 1);
1029           if AResponse <> nil then tempSch := AResponse.EValue;
1030           lblAdminTime.Visible := True;
1031           lblAdminTime.Hint := AdminTimeHelpText;
1032           lblAdminTime.ShowHint := True;
1033           //AResponse := Responses.FindResponseByName('ADMIN', 1);
1034           //if AResponse <> nil then AdminTime := AResponse.EValue;
1035           //if Action = Order_Copy then FOriginalAdminTime := AdminTime;
1036           SetSchedule(tempSch);
1037           //if (cboSchedule.ItemIndex > -1) then lblAdminTime.Caption := 'Admin. Time: ' + Piece(cboSchedule.Items.strings[cboSchedule.itemindex],U,5);
1038           //if (cboSchedule.ItemIndex > -1) and (Piece(lblAdminTime.Caption, ':' ,2) = ' ') then lblAdminTime.Caption := 'Admin. Time: ' + AdminTime;
1039           if (OrdAction in [ORDER_COPY, ORDER_EDIT])  then
1040             begin
1041              TempOrder := Piece(OrderIEN,';',1);
1042              TempOrder := Copy(tempOrder, 2, Length(tempOrder));
1043               if DifferentOrderLocations(tempOrder, Patient.Location) = false then
1044                begin
1045                  AResponse := Responses.FindResponseByName('ADMIN', 1);
1046                  if AResponse <> nil then AdminTime := AResponse.EValue;
1047                  //lblAdminTime.Caption := 'Admin. Time: ' + AdminTime;
1048                  if (cboSchedule.ItemIndex > -1) and (AdminTime <> '') then
1049                    begin
1050                      tmpSch := cboSchedule.Items.Strings[cboSchedule.itemindex];
1051                      setPiece(tmpSch,U,4,AdminTime);
1052                      cboSchedule.Items.Strings[cboSchedule.ItemIndex] := tmpSch;
1053                    end;
1054                end;
1055             end;
1056           //if Piece(lblAdminTime.Caption, ':' ,2) = ' ' then lblAdminTime.Caption := 'Admin. Time: Not Defined';
1057           SetControl(txtRate,     'RATE',    1);
1058           cboInfusionTime.Enabled := true;
1059           PQO := false;
1060           if Pos('INFUSE OVER',UpperCase(txtRate.Text)) > 0 then
1061             begin
1062               txtRate.Text := Copy(txtRate.Text,Length('Infuse over ')+1,Length(txtRate.text));
1063               PQO := True;
1064             end;
1065           if Pos('MINUTE',UpperCase(txtRate.Text))>0 then
1066             begin
1067               cboInfusionTime.Text := 'Minutes';
1068               cboInfusionTime.itemindex := 0;
1069               //txtRate.Text := Copy(txtRate.Text,Length('Infuse over ')+1,Length(txtRate.text));
1070               txtRate.Text := Copy(txtRate.Text, 1, Length(txtRate.Text) - 8);
1071             end
1072           else if Pos('HOUR',UpperCase(txtRate.Text))>0 then
1073             begin
1074               cboInfusionTime.Text := 'Hours';
1075               cboInfusionTime.ItemIndex := 1;
1076               //txtRate.Text := Copy(txtRate.Text,Length('Infuse over ')+1,Length(txtRate.text));
1077               txtRate.Text := Copy(txtRate.Text, 1, Length(txtRate.Text) - 6);
1078             end
1079           else if (txtRate.Text <> '') and (PQO = false) and (ValidateInfusionRate(txtRate.Text) ='') then
1080             begin
1081               cboInfusionTime.Text := 'Minutes';
1082               cboInfusionTime.itemindex := 0;
1083             end;
1084            For j := 0 to grdSelected.RowCount -1 do
1085              grdSelected.Cells[3,j] := 'N/A';
1086        end
1087      else
1088        begin
1089          lblSchedule.Enabled := false;
1090          cboSchedule.ItemIndex := -1;
1091          cboSchedule.Enabled := false;
1092          if chkDoseNow.Visible = true then  chkDoseNow.Checked := false;
1093          chkDoseNow.Visible := false;
1094          txtNSS.Visible := false;
1095          cboInfusionTime.ItemIndex := -1;
1096          cboInfusionTime.Text := '';
1097          cboInfusionTime.Enabled := false;
1098          chkPRN.Checked := false;
1099          chkPRN.Enabled := false;
1100          txtRate.Text := '';
1101          cboDuration.ItemIndex := -1;
1102          cboDuration.Text := '';
1103          txtXDuration.Text := '';
1104          SetControl(txtRate,     'RATE',    1);
1105          if LowerCase(Copy(ReverseStr(txtRate.Text), 1, 6)) = 'rh/lm '             {*kcm*}
1106            then txtRate.Text := Copy(txtRate.Text, 1, Length(txtRate.Text) - 6);
1107        end;
1108      SetControl(cboPriority, 'URGENCY', 1);
1109      SetControl(memComments, 'COMMENT', 1);
1110  
1111      AnInstance := NextInstance('DAYS', 0);
1112      if AnInstance > 0 then
1113      begin
1114        AResponse := FindResponseByName('DAYS', AnInstance);
1115        if AResponse <> nil then
1116            SetLimitationControl(AResponse.EValue);
1117      end;
1118    end; {if...with Responses}
1119    Changing := False;
1120    if self.cboSchedule.ItemIndex > -1 then UpdateDuration(Piece(cboSchedule.Items.Strings[cboSchedule.itemindex],U,3));
1121    loadExpectFirstDose;
1122    ControlChange(Self);
1123  end;