Procedure

TfrmRemDlg.btnFinishClick

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Comments

Prompt: TRemPrompt;
Test: String;

Visibility

Public/Published

Owner

TfrmRemDlg

Declaration

procedure btnFinishClick(Sender: TObject);

Calls Hierarchy


TfrmRemDlg.btnFinishClick
 ├TReminderDialog.GetIEN
 ├TReminderDialog.FinishProblems
 │ ├TReminderDialog.Processing
 │ │ └CheckItem
 │ │   ├ChildrenChecked
 │ │   │ └CheckItem...
 │ │   └TRemDlgElement.Add2PN
 │ │     ├TRemDlgElement.ElemType
 │ │     └TRemDlgElement.AddData
 │ │       ├TRemDlgElement.Historical
 │ │       ├TPCEData.VisitDateTime
 │ │       │ └TPCEData.IsSecondaryVisit
 │ │       ├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
 │ │       │ │ │   └FMNow
 │ │       │ │ ├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
 │ │       │ │ │ │ └ConvertVitalData
 │ │       │ │ │ ├TRemPrompt.GetValue...
 │ │       │ │ │ └TRemDlgElement.Historical
 │ │       │ │ └GetPCEDataText
 │ │       │ │   └GetDiagnosisText
 │ │       │ ├TRemDlgElement.Historical
 │ │       │ └TPCEData.VisitDateTime...
 │ │       ├TRemDlgElement.ElemType
 │ │       └..(rec)..
 │ ├TRemDlgElement.FinishProblems
 │ │ ├TRemPrompt.GetValue...
 │ │ ├TRemPrompt.PromptType...
 │ │ ├TRemPrompt.PromptOK
 │ │ │ ├TRemPrompt.PromptType...
 │ │ │ ├TRemDlgElement.Historical
 │ │ │ ├TRemPrompt.RemDataActive...
 │ │ │ └TRemPrompt.CompareActiveDate
 │ │ ├TRemPrompt.Forced
 │ │ ├TRemPrompt.Required
 │ │ │ └TRemPrompt.PromptType...
 │ │ ├WordWrap
 │ │ │ ├StripScreenReaderCodes
 │ │ │ └InitText
 │ │ ├TRemPrompt.ForcedCaption
 │ │ │ ├TRemPrompt.Caption
 │ │ │ │ └AssignFieldIDs
 │ │ │ │   └GetNewFieldID
 │ │ │ ├TRemPrompt.PromptType...
 │ │ │ ├TRemPrompt.VitalType...
 │ │ │ └TRemData.Narrative
 │ │ ├TRemDlgElement.ElemType
 │ │ ├TRemDlgElement.ChildrenRequired
 │ │ ├TRemDlgElement.BoxCaption
 │ │ │ └TRemDlgElement.Box
 │ │ └..(rec)..
 │ ├TRemDlgElement.GetFieldValues
 │ │ ├TRemDlgElement.ElemType
 │ │ └..(rec)..
 │ ├TReminderDialog.AddText
 │ │ ├TRemDlgElement.AddText
 │ │ │ ├TRemDlgElement.Add2PN...
 │ │ │ ├TRemDlgElement.IndentPNLevel
 │ │ │ │ ├..(rec)..
 │ │ │ │ └TRemDlgElement.IndentChildrenInPN
 │ │ │ ├CurrentReminderInDialog
 │ │ │ ├ResolveTemplateFields
 │ │ │ │ ├TTemplateDialogEntry.GetControlText
 │ │ │ │ │ ├GetTemplateField
 │ │ │ │ │ │ ├LoadTemplateFieldByIEN
 │ │ │ │ │ │ ├LoadTemplateField
 │ │ │ │ │ │ └TTemplateField.Create
 │ │ │ │ │ │   ├TemplateFieldCode2Field
 │ │ │ │ │ │   └TemplateDateCode2DateType
 │ │ │ │ │ ├GetOriginalItem
 │ │ │ │ │ │ ├GetTemplateField...
 │ │ │ │ │ │ └StripEmbedded
 │ │ │ │ │ └TfraTemplateFieldButton.GetButtonText
 │ │ │ │ ├GetTemplateField...
 │ │ │ │ ├AddNewTxt
 │ │ │ │ └WordWrapText
 │ │ │ │   └WrappedText
 │ │ │ ├TRemDlgElement.GetFieldValues...
 │ │ │ ├TRemDlgElement.GetTemplateFieldValues
 │ │ │ │ ├GetTemplateField...
 │ │ │ │ ├TTemplateField.GetTemplateFieldDefault
 │ │ │ │ │ └StripEmbedded
 │ │ │ │ └AddNewTxt
 │ │ │ ├StripScreenReaderCodes
 │ │ │ ├WordWrap...
 │ │ │ ├TRemDlgElement.ElemType
 │ │ │ └..(rec)..
 │ │ ├TReminderDialog.GetPrintName
 │ │ └StripScreenReaderCodes
 │ └AreTemplateFieldsRequired
 │   ├GetTemplateField...
 │   ├TTemplateField.GetRequired
 │   └TTemplateDialogEntry.GetControlText...
 ├InsertRemTextAtCursor
 ├TReminderDialog.AddText...
 ├ClinRemText
 │ └GetProgressNoteHeader
 ├TPCEData.NeedProviderInfo
 │ ├TPCEProviderList.GetPrimaryIdx
 │ ├AutoCheckout
 │ ├TPCEProviderList.GetProviderData
 │ ├TPCEData.GetHasCPTList
 │ │ └AddList
 │ │   └TPCEItem.HasCPTStr
 │ └DataHasCPTCodes
 ├MissingProviderInfo
 │ ├TPCEData.Empty
 │ │ └TPCEProc.Empty
 │ ├TEncounter.NeedVisit
 │ ├TPCEData.SetEncUseCurr
 │ │ ├TEncounter.GetVisitCategory
 │ │ ├TPCEProviderList.SetPrimaryIdx
 │ │ │ ├TPCEProviderList.GetPrimaryIdx
 │ │ │ └TPCEProviderList.SetPrimary
 │ │ └SetRPCEncLocation
 │ └NoPrimaryPCEProvider
 │   ├TPCEProviderList.GetPrimaryIdx
 │   ├SetDefaultProvider
 │   │ ├InvalidPCEProviderTxt
 │   │ │ ├CheckActivePerson
 │   │ │ └IsUserAProvider
 │   │ ├TPCEData.PersonClassDate
 │   │ │ └FMToday...
 │   │ ├TEncounter.GetProviderName
 │   │ │ └TEncounter.UpdateText
 │   │ │   └GetEncounterText
 │   │ ├DefaultProvider
 │   │ ├CheckActivePerson
 │   │ ├TIUSiteParams
 │   │ └TPCEProviderList.AddProvider
 │   │   └TPCEProviderList.Add
 │   │     ├TPCEProviderList.GetPrimaryIdx
 │   │     ├TPCEProviderList.IndexOfProvider
 │   │     └TPCEProviderList.SetPrimaryIdx...
 │   ├TfrmBase508Form.Create
 │   │ ├TfrmBase508Form.UpdateAccessibilityActions
 │   │ ├UnfocusableControlEnter
 │   │ └AdjustControls
 │   │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   │   └..(rec)..
 │   ├TPCEProviderList.PendingIEN
 │   ├TPCEProviderList.PendingName
 │   ├TfrmPCEProvider.AskUser
 │   │ └TfrmPCEProvider.btnSelectClick
 │   └TPCEProviderList.AddProvider...
 ├SpeakTextInserted
 ├TReminderDialog.Processing...
 ├TPCEData.Save
 │ ├TPCEData.IsSecondaryVisit
 │ ├GetLocSecondaryVisitCode
 │ ├GetVisitIEN
 │ ├TPCEDiag.DelimitedStr2
 │ ├TPCEProviderList.PCEProvider...
 │ ├TPCEDiag.DelimitedStr
 │ ├TPCEProc.DelimitedStr
 │ │ └ModifierCode
 │ │   └ModifierIdx
 │ │     ├TPCEData.VisitDateTime...
 │ │     ├FMToday...
 │ │     └MixedCaseModifier
 │ ├TPCEItem.DelimitedStr2
 │ ├TPCEImm.DelimitedStr
 │ ├TPCESkin.DelimitedStr
 │ ├TPCEPat.DelimitedStr
 │ ├TPCEHealth.DelimitedStr
 │ ├TPCEExams.DelimitedStr
 │ ├SavePCEData
 │ ├TPCEProviderList.GetProviderData
 │ ├TPCEProviderList.Delete
 │ ├TPCEProc.Clear
 │ │ └TPCEItem.Clear
 │ │   └TPCEItem.SetComment
 │ ├TPCEData.StrVisitType
 │ │ ├GetPCEDataText...
 │ │ ├TPCEProc.ModText
 │ │ │ └ModifierName
 │ │ │   └ModifierIdx...
 │ │ └TPCEData.StrVisitType
 │ │   └AddTxt
 │ ├TChanges.Add
 │ │ └TChangeItem.Create
 │ ├TPCEData.StrProcedures
 │ │ ├GetPCEDataText...
 │ │ └TPCEProc.ModText...
 │ ├TPCEData.StrDiagnoses
 │ │ └GetPCEDataText...
 │ ├TPCEData.StrImmunizations
 │ │ └GetPCEDataText...
 │ ├TPCEData.StrSkinTests
 │ │ └GetPCEDataText...
 │ ├TPCEData.StrPatientEds
 │ │ └GetPCEDataText...
 │ ├TPCEData.StrHealthFactors
 │ │ └GetPCEDataText...
 │ └TPCEData.StrExams
 │   └GetPCEDataText...
 ├TPCEData.Create
 ├GetVisitIEN
 ├CheckGECValue
 ├Add
 │ ├TPCEItem.SetFromString
 │ │ └TPCEItem.SetComment
 │ ├TPCEData.SetDiagnoses
 │ │ ├TPCEData.MarkDeletions
 │ │ │ ├TPCEItem.Match
 │ │ │ └TPCEItem.MatchProvider
 │ │ ├TPCEData.MatchItem
 │ │ │ ├TPCEItem.Match
 │ │ │ └TPCEItem.MatchProvider
 │ │ ├TPCEItem.SetComment
 │ │ └TPCEDiag.Assign
 │ │   └TPCEItem.Assign
 │ │     └TPCEItem.SetComment
 │ ├TPCEData.SetProcedures
 │ │ ├TPCEData.MarkDeletions...
 │ │ ├TPCEData.MatchItem...
 │ │ ├TPCEProc.Assign
 │ │ │ └TPCEItem.Assign...
 │ │ └TPCEItem.SetComment
 │ ├TPCEData.SetImmunizations
 │ │ ├TPCEData.MarkDeletions...
 │ │ ├TPCEData.MatchItem...
 │ │ ├TPCEItem.SetComment
 │ │ └TPCEImm.Assign
 │ │   └TPCEItem.Assign...
 │ ├TPCEData.SetSkinTests
 │ │ ├TPCEData.MarkDeletions...
 │ │ ├TPCEData.MatchItem...
 │ │ ├TPCEItem.SetComment
 │ │ └TPCESkin.Assign
 │ │   └TPCEItem.Assign...
 │ ├TPCEData.SetPatientEds
 │ │ ├TPCEData.MarkDeletions...
 │ │ ├TPCEData.MatchItem...
 │ │ ├TPCEItem.SetComment
 │ │ └TPCEPat.Assign
 │ │   └TPCEItem.Assign...
 │ ├TPCEData.SetHealthFactors
 │ │ ├TPCEData.MarkDeletions...
 │ │ ├TPCEData.MatchItem...
 │ │ ├TPCEItem.SetComment
 │ │ └TPCEHealth.Assign
 │ │   └TPCEItem.Assign...
 │ └TPCEData.SetExams
 │   ├TPCEData.MarkDeletions...
 │   ├TPCEData.MatchItem...
 │   ├TPCEItem.SetComment
 │   └TPCEExams.Assign
 │     └TPCEItem.Assign...
 ├GetVitalUser
 ├ValidVitalsDate
 │ ├FMNow
 │ └TfrmBase508Form.Create...
 ├GetVitalStr
 │ └ConvertVital
 ├SaveMSTData
 │ └SaveMSTDataFromReminder
 ├ValAndStoreVitals
 ├MHDLLFound
 │ └CheckforMHDll
 │   ├LoadMHDLL
 │   └UnloadMHDLL
 ├SaveGAFScore
 │ └GAFOK
 ├SaveMHTest
 │ ├LoadMHDLL
 │ └UnloadMHDLL
 ├TPCEData.VisitDateTime...
 ├SaveMentalHealthTest
 ├SaveWomenHealthData
 ├TfrmRemDlg.ResetProcessing
 │ ├TfrmRemDlg.ClearControls
 │ │ ├WipeOutControls
 │ │ │ └..(rec)..
 │ │ └TfrmRemDlg.GetBox
 │ ├TfrmRemDlg.PositionTrees
 │ └TfrmRemDlg.KillDlg
 ├ReadyForNewOrder
 │ ├AuthorizedUser
 │ ├EncounterPresentEDO
 │ │ ├PersonHasKey
 │ │ ├UpdateEncounter
 │ │ │ ├ExternalName
 │ │ │ ├TfrmBase508Form.Create...
 │ │ │ ├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...
 │ │ │ │ │ ├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...
 │ │ │ │ │ │   └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...
 │ │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrDiagnoses...
 │ │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrProcedures...
 │ │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrImmunizations...
 │ │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrSkinTests...
 │ │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrPatientEds...
 │ │ │ │ │ │ │   │ │   │ │ ├TPCEData.StrHealthFactors...
 │ │ │ │ │ │ │   │ │   │ │ └TPCEData.StrExams...
 │ │ │ │ │ │ │   │ │   │ ├GetVitalsFromDate
 │ │ │ │ │ │ │   │ │   │ │ ├TPCEData.IsSecondaryVisit
 │ │ │ │ │ │ │   │ │   │ │ └GetVitalsFromEncDateTime
 │ │ │ │ │ │ │   │ │   │ ├TPCEData.AddVitalData
 │ │ │ │ │ │ │   │ │   │ │ └FormatVitalForNote...
 │ │ │ │ │ │ │   │ │   │ ├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...
 │ │ │ │ │ │ │   │ │   │ │ │ │ └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
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TEncounter.GetVisitCategory
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├VisitStrForNote
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEData.GetVisitString
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEData.VisitDateTime...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEData.CopyPCEData
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TPCEData.Clear
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├ClearList
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ ├TPCEProc.Clear...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TPCEProviderList.Clear
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   └TPCEProviderList.GetPrimaryIdx
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TPCEProc.CopyProc
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ └TPCEItem.SetComment
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TPCEProviderList.Assign
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEData.CopyPCEItems
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │   └TPCEItem.Assign...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEData.IsSecondaryVisit
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├GetLocSecondaryVisitCode
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEData.Clear...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├LoadPCEDataForNote
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├ListVisitTypeByLoc
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├SetRPCEncLocation
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├SCCValue
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEProviderList.Add...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├AppendComment
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├TPCEDiag.SetFromString
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ ├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...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├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...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │   ├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...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │ │ └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.Forced
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.PromptType...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.Required...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogFieldEdit.Create...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.GetValue...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.EditKeyPress
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.PromptChange
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TReminderDialog.BeginTextChanged
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.GetValue...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.PromptType...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├FMToday...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.Caption...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├SelectDevice
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ ├TfrmBase508Form.Create...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ └GetDefaultPrinter
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├FMNow
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├MHDLLFound...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ ├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
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     │ ├ErrCount
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     │ ├AddErr
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     │ └TdmodShared.LoadTIUObjects
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     │   └GetObjectList
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     └GetTemplateText
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │       └TEncounter.GetVisitStr...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├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...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ │   ├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.EnableChildren...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├..(rec)..
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├AddPrompts...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.SubCommentChange...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ │ └ScreenReaderSystem_Stop...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └TReminderDialog.GetPrintName
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TfrmRemDlg.BoxUpdateDone
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └TfrmRemDlg.ClearControls...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├IsOnBox
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   ├TfrmRemDlg.ControlsChanged
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   │ └TfrmRemDlg.GetBox
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │   └TfrmRemDlg.UpdateText
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     ├TReminderDialog.AddText...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     ├ClinRemText...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │   │     └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...
 │ │ │ │ │ │ │   │ │   │ │ │ │   │ │     ├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...
 │ │ │ │ │ │ │   │ ├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...
 │ │ │ │ │ │ │   │   ├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.PendingIEN
 │ │ │ │ │ │ │ │ ├TPCEProviderList.IndexOfProvider
 │ │ │ │ │ │ │ │ ├TPCEProviderList.AddProvider...
 │ │ │ │ │ │ │ │ ├TPCEProviderList.PendingName
 │ │ │ │ │ │ │ │ ├Add
 │ │ │ │ │ │ │ │ ├ForcePCEEntry
 │ │ │ │ │ │ │ │ ├MissingProviderInfo...
 │ │ │ │ │ │ │ │ ├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...
 │ │ │ │ │ │ │ │ │ │ └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.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...
 │ ├EncounterPresent
 │ │ ├PersonHasKey
 │ │ ├UpdateEncounter...
 │ │ └TfrmFrame.DisplayEncounterText...
 │ ├LockedForOrdering...
 │ ├CloseOrdering
 │ ├isExistedEvent
 │ └PtEvtEmpty
 ├ActivateAction
 │ ├FormIDForDialog
 │ ├ARTPatchInstalled
 │ │ └ServerHasPatch
 │ ├EnterEditAllergy
 │ │ ├LockedForOrdering...
 │ │ ├TfrmBase508Form.Create...
 │ │ ├LoadAllergyForEdit
 │ │ │ └StrToFMDateTime
 │ │ ├TfrmARTAllergy.SetupDialog
 │ │ │ ├TfrmARTAllergy.lstAllergySelect
 │ │ │ │ └TfrmARTAllergy.ControlChange
 │ │ │ │   └FMNow
 │ │ │ ├TfrmARTAllergy.SetupVerifyFields
 │ │ │ │ ├FMNow
 │ │ │ │ └TfrmARTAllergy.ControlChange...
 │ │ │ ├TfrmARTAllergy.SetUpEnteredInErrorFields
 │ │ │ │ ├EnableErrorComments
 │ │ │ │ └TfrmARTAllergy.ControlChange...
 │ │ │ └TfrmARTAllergy.ControlChange...
 │ │ ├TfrmARTAllergy.SetupVerifyFields...
 │ │ ├TfrmARTAllergy.SetUpEnteredInErrorFields...
 │ │ ├AllergyLookup
 │ │ │ └TfrmBase508Form.Create...
 │ │ ├EnterNKAForPatient
 │ │ │ └RPCEnterNKAForPatient
 │ │ ├FMNow
 │ │ └TfrmARTAllergy.ControlChange...
 │ ├TfrmBase508Form.Create...
 │ └DestroyingOrderAction
 │   ├ActiveOrdering
 │   ├ClearOrderRecall
 │   └UnlockIfAble...
 ├ActivateOrderDialog
 │ ├ValidateOrderAction
 │ ├ValidateComplexOrderAct
 │ ├RetrieveOrderText
 │ │ └RetrieveOrderFields
 │ │   └SetOrderFields
 │ │     ├TOrder.Clear
 │ │     ├SeqOfDGroup
 │ │     │ └LoadDGroupMap
 │ │     └TopNameOfDGroup
 │ │       └LoadDGroupMap
 │ ├PassDrugTest
 │ ├IMOActionValidation
 │ │ ├IsIMOOrder
 │ │ ├AllowActionOnIMO
 │ │ │ ├FMToday...
 │ │ │ ├IsValidIMOLoc
 │ │ │ └IMOTimeFrame
 │ │ │   └FMNow
 │ │ ├RetrieveOrderText...
 │ │ └UnlockOrder
 │ ├IsIMODialog
 │ │ ├IMOTimeFrame...
 │ │ ├IsInptQO
 │ │ ├IsIVQO
 │ │ └IsValidIMOLoc
 │ ├GetOrderPtEvtID
 │ ├EventInfo
 │ ├BuildResponses
 │ │ ├CheckQOGroup
 │ │ └CheckOrderGroup
 │ ├GetKeyVars
 │ ├ResetDialogProperties
 │ │ └IsPassEvt
 │ ├IsValidQOSch
 │ ├IsValidSchedule
 │ ├HasTemplateField
 │ ├CheckForAutoDCDietOrders
 │ │ ├LoadOrdersAbbr
 │ │ │ ├ClearOrders
 │ │ │ ├LoadDGroupMap
 │ │ │ ├ExpiredOrdersStartDT
 │ │ │ ├FMNow
 │ │ │ └SeqOfDGroup...
 │ │ └RetrieveOrderFields...
 │ ├ShowVerifyText
 │ │ ├TfrmBase508Form.Create...
 │ │ ├CutoffOutptPrompts
 │ │ ├SetFormPosition...
 │ │ └ExpandOrderObjects
 │ │   ├TdmodShared.BoilerplateOK...
 │ │   └GetTemplateText...
 │ ├PushKeyVars
 │ ├CreateOrderDialog
 │ │ ├SetOrderEventTypeOnCreate
 │ │ ├SetOrderEventIDOnCreate
 │ │ ├SetOrderFormIDOnCreate
 │ │ ├UseNewMedDialogs
 │ │ ├TfrmBase508Form.Create...
 │ │ └DestroyingOrderDialog
 │ │   ├ActiveOrdering
 │ │   ├ClearOrderRecall
 │ │   └UnlockIfAble...
 │ ├DoesOIPIInSigForQO
 │ ├TfrmODBase.SetKeyVariables
 │ ├TResponses.SetEventDelay
 │ ├TfrmODBase.SetDisplayGroup
 │ ├TfrmODBase.SetDialogIEN
 │ ├TfrmODBase.SetupDialog
 │ │ ├SetTemplateDialogCanceled
 │ │ ├TResponses.SetEditOrder
 │ │ │ ├TResponses.Clear
 │ │ │ └LoadResponses
 │ │ │   └ExtractToResponses
 │ │ │     └ExpandOrderObjects...
 │ │ ├TResponses.SetCopyOrder
 │ │ │ ├TResponses.Clear
 │ │ │ └LoadResponses...
 │ │ └TResponses.SetQuickOrderByID
 │ │   ├TResponses.Clear
 │ │   └LoadResponses...
 │ ├TResponses.IValueFor
 │ ├GetPackageByOrderID
 │ ├DEACheckFailed
 │ ├TResponses.GetOrderText
 │ │ ├TResponses.NextInstance
 │ │ ├TResponses.FindResponseByName
 │ │ ├TResponses.FormatResponse
 │ │ │ └TResponses.FindResponseByIEN
 │ │ └TResponses.AppendChildren
 │ │   ├TResponses.FindPromptByIEN
 │ │   ├TResponses.FindResponseByIEN
 │ │   └TResponses.FormatResponse...
 │ ├TfrmFrame.mnuFileEncounterClick
 │ │ ├UpdateEncounter...
 │ │ └TfrmFrame.DisplayEncounterText...
 │ ├TChanges.ExistForOrder
 │ ├UnlockOrder
 │ ├IsPSOSupplyDlg
 │ ├GMRCCanCloseDialog
 │ │ ├CanFreeConsultDialog
 │ │ └CanFreeProcDialog
 │ ├TfrmODBase.SetDefaultCoPay
 │ │ └GetDefaultCopay
 │ ├TResponses.FindResponseByName
 │ ├IsActiveICDCode
 │ │ └IsActiveCode
 │ ├SetFormPosition...
 │ ├TResponses.NextInstance
 │ ├ValidateDrugAutoAccept
 │ │ ├DefaultDays
 │ │ ├DaysToQty
 │ │ └CalcMaxRefills
 │ ├GetServiceIEN
 │ └TfrmODBase.cmdAcceptClick
 │   ├IsCompletedPtEvt
 │   ├CheckForAutoDCDietOrders...
 │   ├CurrentDietText
 │   ├TfrmODBase.ValidSave
 │   │ ├TfrmODBase.Validate
 │   │ │ ├TResponses.IValueFor
 │   │ │ ├StrToFMDateTime
 │   │ │ ├FMToday...
 │   │ │ ├PersonHasKey
 │   │ │ ├IsPFSSActive
 │   │ │ ├TResponses.PromptExists
 │   │ │ ├TResponses.Update
 │   │ │ │ ├TResponses.FindResponseByName
 │   │ │ │ └TResponses.IENForPrompt
 │   │ │ └TEncounter.GetVisitStr...
 │   │ ├TfrmODBase.AcceptOrderChecks
 │   │ │ ├OrderChecksEnabled
 │   │ │ ├TResponses.BuildOCItems
 │   │ │ │ ├TResponses.IValueFor
 │   │ │ │ └TResponses.EValueFor
 │   │ │ ├OrderChecksOnAccept
 │   │ │ └AcceptOrderWithChecks
 │   │ │   ├TfrmBase508Form.Create...
 │   │ │   ├IsMonograph
 │   │ │   └GetXtraTxt
 │   │ ├TfrmFrame.GetTimedOut...
 │   │ ├AskAnotherOrder
 │   │ ├TfrmODBase.InitDialog
 │   │ │ ├TfrmODBase.ClearDialogControls
 │   │ │ │ ├ClearControl
 │   │ │ │ └TfrmODBase.ShowOrderMessage
 │   │ │ └TResponses.Clear
 │   │ ├TfrmODBase.ClearDialogControls...
 │   │ ├TfrmODBase.LESValidationCheck
 │   │ │ ├GetDispGroupForLES
 │   │ │ ├TResponses.IValueFor
 │   │ │ └LESValidationForChangedLabOrder
 │   │ ├TResponses.SaveOrder
 │   │ │ ├CheckQOGroup
 │   │ │ ├IsValidIMOLoc
 │   │ │ ├EventExist
 │   │ │ ├PutNewOrder
 │   │ │ │ ├SetupORDIALOG
 │   │ │ │ └SetOrderFields...
 │   │ │ ├EventInfo
 │   │ │ ├SaveEvtForOrder
 │   │ │ └rpcGetBAMasterSwStatus
 │   │ ├SetDefaultCoPayToNewOrder
 │   │ ├ProcessOrderAcceptEventHook
 │   │ │ ├GetOrderAcceptGUIDs
 │   │ │ ├EnsureEventHookObjects
 │   │ │ │ └TCPRSEventHookManager.Create
 │   │ │ │   ├TCPRSBroker.Create
 │   │ │ │   └TCPRSState.Create
 │   │ │ └TCPRSEventHookManager.ProcessComObject
 │   │ │   └TCPRSBroker.Initialize
 │   │ ├GetEventDefaultDlg
 │   │ └TChanges.Add...
 │   ├AskAnotherOrder
 │   ├TfrmODBase.InitDialog...
 │   ├LateTrayCheck
 │   │ ├TResponses.FindResponseByName
 │   │ └CheckLateTray
 │   │   ├StrToFMDateTime
 │   │   ├FMToday...
 │   │   ├FMNow
 │   │   ├LoadDietParams
 │   │   ├SetAvailTimes
 │   │   │ └AMPMToFMTime
 │   │   └TfrmBase508Form.Create...
 │   ├TfrmODBase.OrderForInpatient
 │   │ ├OrderEventTypeOnCreate
 │   │ └IsPassEvt1
 │   ├TfrmODBase.ClearDialogControls...
 │   ├LateTrayOrder
 │   │ ├OrderLateTray
 │   │ │ └SetOrderFromResults
 │   │ │   └SetOrderFields...
 │   │ └TChanges.Add...
 │   └TfrmOrders.GroupChangesUpdate
 │     ├TChanges.ChangeOrderGrp
 │     └TChanges.ReplaceODGrpName
 ├ActivateOrderMenu
 │ ├OrderDisabledMessage
 │ ├TfrmBase508Form.Create...
 │ ├SetFormPosition...
 │ ├TfrmOMNavA.SetEventDelay
 │ └TfrmOMNavA.SetNewMenu
 │   ├TfrmOMNavA.SetNavButtons
 │   ├TfrmOMNavA.PlaceMenuItems
 │   │ ├TfrmOMNavA.ClearMenuGrid
 │   │ └TfrmOMNavA.FindOrderMenu
 │   │   └LoadOrderMenu
 │   └PushKeyVars
 ├ActivateOrderSet
 │ ├OrderDisabledMessage
 │ ├FMNow
 │ ├LoadOrderSet
 │ ├isExistedEvent
 │ ├GetEventDefaultDlg
 │ ├TakeoutDuplicateDlg
 │ └ActivateOrderList
 │   ├TfrmBase508Form.Create...
 │   ├TfrmOMSet.SetEventDelay
 │   ├SetFormPosition...
 │   └TfrmOMSet.InsertList
 │     ├TfrmOMSet.DeaCheckPassed
 │     │ └DEACheckFailed
 │     ├TfrmFrame.mnuFileEncounterClick...
 │     ├PushKeyVars
 │     └TfrmOMSet.DoNextItem
 │       ├IsCompletedPtEvt
 │       ├TParentEvent.Create
 │       ├ActivateAction...
 │       ├TfrmOMSet.IsCreatedByMenu
 │       ├SkipToNext
 │       │ └TfrmOMSet.DoNextItem...
 │       ├ActivateOrderDialog...
 │       ├ActivateOrderMenu...
 │       └ActivateOrderSet...
 └ActivateOrderList...

Calls

Name Declaration Comments
ActivateAction function ActivateAction(const AnID: string; AnOwner: TComponent; ARefNum: Integer): Boolean; -
ActivateOrderDialog function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; -
ActivateOrderList function ActivateOrderList(AList: TStringList; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; const KeyVarStr, ACaption: string): Boolean; -
ActivateOrderMenu function ActivateOrderMenu(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer): Boolean; -
ActivateOrderSet function ActivateOrderSet(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer): Boolean; -
Add procedure Add(PCEItemClass: TPCEItemClass); -
TReminderDialog.AddText procedure AddText(Lst: TStrings); -
CheckGECValue function CheckGECValue(const RemIEN: string; NoteIEN: integer): String; -
ClinRemText function ClinRemText: string; -
TPCEData.Create constructor Create; -
TReminderDialog.FinishProblems procedure FinishProblems(List: TStrings; var MissingTemplateFields: boolean); -
TReminderDialog.GetIEN function GetIEN: string; virtual; -
GetVisitIEN function GetVisitIEN(NoteIEN: Integer): string; -
GetVitalStr function GetVitalStr(VType: TVitalType; rte, unt, UserStr, DateStr: string): string; -
GetVitalUser function GetVitalUser: string; -
InsertRemTextAtCursor function InsertRemTextAtCursor: boolean; -
MHDLLFound function MHDLLFound: boolean; -
MissingProviderInfo function MissingProviderInfo(PCEEdit: TPCEData; PCEType: TPCEType = ptEncounter): boolean; -
TPCEData.NeedProviderInfo function NeedProviderInfo: boolean; -
TReminderDialog.Processing function Processing: boolean; -
ReadyForNewOrder function ReadyForNewOrder(AnEvent: TOrderDelayEvent): Boolean; -
TfrmRemDlg.ResetProcessing procedure ResetProcessing(Wipe: string = ''); -
TPCEData.Save procedure Save; -
SaveGAFScore function SaveGAFScore(const Score: integer; GAFDate: TFMDateTime; Staff: Int64): boolean; -
SaveMentalHealthTest procedure SaveMentalHealthTest(const TestName: string; ADate: TFMDateTime; const AProvider: Int64; const Answers: string); -
SaveMHTest function SaveMHTest(TestName, Date, Loc: string): boolean; -
SaveMSTData procedure SaveMSTData(MSTVal: string); -
SaveWomenHealthData procedure SaveWomenHealthData(var WHData: TStringlist); -
SpeakTextInserted procedure SpeakTextInserted(docType: string = ''); -
ValAndStoreVitals function ValAndStoreVitals(VitalList: TStringList):string; -
ValidVitalsDate function ValidVitalsDate(var ADate: TFMDateTime; SkipFirst: boolean = FALSE; Show: boolean = true): boolean; -
TPCEData.VisitDateTime function VisitDateTime: TFMDateTime; -


Source

1068  procedure TfrmRemDlg.btnFinishClick(Sender: TObject);
1069  var
1070    i, cnt, lcnt,OldRemCount, OldCount, T: integer;
1071    CurDate, CurLoc: string;
1072    LastDate, LastLoc: string;
1073    Rem: TReminderDialog;
1074    Reminder: TReminder;
1075   // Prompt: TRemPrompt;
1076    RData: TRemData;
1077    TmpData: TORStringList;
1078    OrderList: TStringList;
1079    TmpText: TStringList;
1080    TmpList: TStringList;
1081    VitalList: TStringList;
1082    MHList: TStringList;
1083    WHList: TStringList;
1084    MSTList: TStringList;
1085    HistData, PCEObj: TPCEData;
1086    Cat: TPCEDataCat;
1087    VisitParent, Msg, tmp: string;
1088    DelayEvent: TOrderDelayEvent;
1089    Hist: boolean;
1090    v: TVitalType;
1091    UserStr: string;
1092    BeforeLine, AfterTop: integer;
1093    GAFScore: integer;
1094    TestDate: TFMDateTime;
1095    TestStaff: Int64;
1096    DoOrders, Done, Kill, Flds: boolean;
1097    TR: TEXTRANGE;
1098    buf: array[0..3] of char;
1099    AddLine: boolean;
1100    Process, StoreVitals: boolean;
1101    PCEType: TPCEType;
1102    WHNode,WHPrint,WHResult,WHTmp, WHValue: String;
1103    WHType: TStrings;
1104    //Test: String;
1105    MHLoc, WHCnt,x: Integer;
1106    WHArray: TStringlist;
1107    GecRemIen, GecRemStr, RemWipe: String;
1108  
1109    procedure Add(PCEItemClass: TPCEItemClass);
1110    var
1111      itm: TPCEItem;
1112      tmp: string;
1113  
1114    begin
1115      if(Cat in MSTDataTypes) then
1116      begin
1117        tmp := piece(TmpData[i],U,pnumMST);
1118        if (tmp <> '') then
1119        begin
1120          MSTList.Add(tmp);
1121          tmp := TmpData[i];
1122          setpiece(tmp,U,pnumMST,'');
1123          TmpData[i] := tmp;
1124        end;
1125      end;
1126      itm := PCEItemClass.Create;
1127      try
1128        itm.SetFromString(copy(TmpData[i], 2, MaxInt));
1129        TmpList.AddObject('',itm);
1130        if Cat = pdcHF then itm.FGecRem := GecRemStr;
1131        case Cat of
1132          pdcDiag: PCEObj.SetDiagnoses(TmpList, FALSE);
1133          pdcProc: PCEObj.SetProcedures(TmpList, FALSE);
1134          pdcImm:  PCEObj.SetImmunizations(TmpList, FALSE);
1135          pdcSkin: PCEObj.SetSkinTests(TmpList, FALSE);
1136          pdcPED:  PCEObj.SetPatientEds(TmpList, FALSE);
1137          pdcHF:   PCEObj.SetHealthFactors(TmpList, FALSE);
1138          pdcExam: PCEObj.SetExams(TmpList, FALSE);
1139        end;
1140        itm.Free;
1141        TmpList.Clear;
1142      except
1143        itm.free;
1144      end;
1145    end;
1146  
1147    procedure SaveMSTData(MSTVal: string);
1148    var
1149      vdate, s1, s2, prov, FType, FIEN: string;
1150  
1151    begin
1152      if MSTVal <> '' then
1153      begin
1154        s1    := piece(MSTVal, ';', 1);
1155        vdate := piece(MSTVal, ';', 2);
1156        prov  := piece(MSTVal, ';', 3);
1157        FIEN  := piece(MSTVal, ';', 4);
1158        if FIEN <> '' then
1159        begin
1160          s2 := s1;
1161          s1 := '';
1162          FType := RemDataCodes[dtExam];
1163        end
1164        else
1165        begin
1166          s2 := '';
1167          FType := RemDataCodes[dtHealthFactor];
1168        end;
1169        SaveMSTDataFromReminder(vdate, s1, Prov, FType, FIEN, s2);
1170      end;
1171    end;
1172  
1173  begin
1174    Kill := FALSE;
1175    GecRemIen := '0';
1176    WHList := nil;
1177    Rem := nil;
1178    RemWipe := '';   //AGP CHANGE 24.8
1179    try
1180      self.btnFinish.Enabled := false;
1181      OldRemCount := ProcessedReminders.Count;
1182      if not FProcessingTemplate then
1183        ProcessedReminders.Notifier.BeginUpdate;
1184      try
1185        TmpList := TStringList.Create;
1186        try
1187          i := 0;
1188          repeat
1189          //AGP Added RemWipe section this section will determine if the Dialog is a patient specific
1190            if FProcessingTemplate or (i < RemindersInProcess.Count) then
1191            begin
1192              if FProcessingTemplate then
1193                begin
1194                   Rem := FReminder;
1195                   if Rem.RemWipe = 1 then
1196                       RemWipe := Piece(Rem.DlgData,U,1);
1197                end
1198              else
1199                begin
1200                  Rem := TReminder(RemindersInProcess.Objects[i]);
1201                  if TReminderDialog(TReminder(RemindersInProcess.Objects[i])).RemWipe = 1 then
1202                     begin
1203                       if RemWipe ='' then RemWipe := TReminder(RemindersInProcess.Objects[i]).IEN
1204                       else RemWipe := RemWipe + U + TReminder(RemindersInProcess.Objects[i]).IEN;
1205                     end;
1206                  end;
1207  
1208              Flds := FALSE;
1209              OldCount := TmpList.Count;
1210              Rem.FinishProblems(TmpList, Flds);
1211              if(OldCount <> TmpList.Count) or Flds then
1212              begin
1213                TmpList.Insert(OldCount, '');
1214                if not FProcessingTemplate then
1215                  TmpList.Insert(OldCount+1, '   Reminder: ' + Rem.PrintName);
1216                if Flds then
1217                  TmpList.Add('      ' + MissingFieldsTxt);
1218              end;
1219              inc(i);
1220            end;
1221          until(FProcessingTemplate or (i >= RemindersInProcess.Count));
1222  
1223          if FProcessingTemplate then
1224            PCEType := ptTemplate
1225          else
1226            PCEType := ptReminder;
1227  
1228          Process := TRUE;
1229          if(TmpList.Count > 0) then
1230          begin
1231            Msg := REQ_TXT + TmpList.Text;
1232            InfoBox(Msg, REQ_HDR, MB_OK);
1233            Process := FALSE;
1234          end
1235          else
1236          begin
1237            TmpText := TStringList.Create;
1238            try
1239              if (not FProcessingTemplate) and (not InsertRemTextAtCursor) then
1240                RemForm.NewNoteRE.SelStart := MaxInt; // Move to bottom of note
1241              AddLine := FALSE;
1242              BeforeLine := SendMessage(RemForm.NewNoteRE.Handle, EM_EXLINEFROMCHAR, 0, RemForm.NewNoteRE.SelStart);
1243              if (SendMessage(RemForm.NewNoteRE.Handle, EM_LINEINDEX, BeforeLine, 0) <> RemForm.NewNoteRE.SelStart) then
1244              begin
1245                RemForm.NewNoteRE.SelStart := SendMessage(RemForm.NewNoteRE.Handle, EM_LINEINDEX, BeforeLine+1, 0);
1246                inc(BeforeLine);
1247              end;
1248              if(RemForm.NewNoteRE.SelStart > 0) then
1249              begin
1250                if(RemForm.NewNoteRE.SelStart = 1) then
1251                  AddLine := TRUE
1252                else
1253                begin
1254                  TR.chrg.cpMin := RemForm.NewNoteRE.SelStart-2;
1255                  TR.chrg.cpMax := TR.chrg.cpMin+2;
1256                  TR.lpstrText := @buf;
1257                  SendMessage(RemForm.NewNoteRE.Handle, EM_GETTEXTRANGE, 0, LPARAM(@TR));
1258                  if(buf[0] <> #13) or (buf[1] <> #10) then
1259                    AddLine := TRUE;
1260                end;
1261              end;
1262              if FProcessingTemplate then
1263                FReminder.AddText(TmpText)
1264              else
1265              begin
1266                for i := 0 to RemindersInProcess.Count-1 do
1267                  TReminder(RemindersInProcess.Objects[i]).AddText(TmpText);
1268              end;
1269              if(TmpText.Count > 0) then
1270              begin
1271                if not FProcessingTemplate then
1272                begin
1273                  tmp := ClinRemText;
1274                  if(tmp <> '') then
1275                  begin
1276                    i := RemForm.NewNoteRE.Lines.IndexOf(tmp);
1277                    if(i < 0) or (i > BeforeLine) then
1278                    begin
1279                      TmpText.Insert(0, tmp);
1280                      if(RemForm.NewNoteRE.SelStart > 0) then
1281                        TmpText.Insert(0, '');
1282                      if(BeforeLine < RemForm.NewNoteRE.Lines.Count) then
1283                        TmpText.Add('');
1284                    end;
1285                  end;
1286                end;
1287                if AddLine then
1288                  TmpText.Insert(0, '');
1289                CheckBoilerplate4Fields(TmpText, 'Unresolved template fields from processed Reminder Dialog(s)');
1290                if TmpText.Count = 0 then
1291                  Process := FALSE
1292                else
1293                begin
1294                  if RemForm.PCEObj.NeedProviderInfo and MissingProviderInfo(RemForm.PCEObj, PCEType) then
1295                    Process := FALSE
1296                  else
1297                  begin
1298                    RemForm.NewNoteRE.SelText := TmpText.Text;
1299                    SpeakTextInserted;
1300                  end;
1301                end;
1302              end;
1303              if(Process) then
1304              begin
1305                SendMessage(RemForm.NewNoteRE.Handle, EM_SCROLLCARET, 0, 0);
1306                AfterTop := SendMessage(RemForm.NewNoteRE.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
1307                SendMessage(RemForm.NewNoteRE.Handle, EM_LINESCROLL, 0, -1 * (AfterTop - BeforeLine));
1308              end;
1309            finally
1310              TmpText.Free;
1311            end;
1312          end;
1313          if(Process) then
1314          begin
1315            PCEObj := RemForm.PCEObj;
1316          (* AGP CHANGE 23.2 Remove this section base on the Clinical Workgroup decision
1317            if FSCPrompt and (ndSC in PCEObj.NeededPCEData) then
1318              btnVisitClick(nil);
1319            PCEObj.SCRelated  := FSCRelated;
1320            PCEObj.AORelated  := FAORelated;
1321            PCEObj.IRRelated  := FIRRelated;
1322            PCEObj.ECRelated  := FECRelated;
1323            PCEObj.MSTRelated := FMSTRelated;
1324            PCEObj.HNCRelated := FHNCRelated;
1325            PCEObj.CVRelated  := FCVRelated; *)
1326            if not FProcessingTemplate then
1327            begin
1328              for i := 0 to RemindersInProcess.Count-1 do
1329              begin
1330                Reminder := TReminder(RemindersInProcess.Objects[i]);
1331                if(Reminder.Processing) and (ProcessedReminders.IndexOf(Reminder.RemData) < 0) then
1332                  ProcessedReminders.Add(Copy(Reminder.RemData,2,MaxInt));
1333              end;
1334            end;
1335            OrderList := TStringList.Create;
1336            try
1337              MHList := TStringList.Create;
1338              try
1339                StoreVitals := TRUE;
1340                VitalList := TStringList.Create;
1341                try
1342                WHList := TStringList.Create;
1343                try
1344                  MSTList := TStringList.Create;
1345                  try
1346                    TmpData := TORStringList.Create;
1347                    try
1348                      UserStr := '';
1349                      LastDate := U;
1350                      LastLoc := U;
1351                      VisitParent := '';
1352                      HistData := nil;
1353                      for Hist := FALSE to TRUE do
1354                      begin
1355                        TmpData.Clear;
1356                        if FProcessingTemplate then
1357                          i := GetReminderData(FReminder, TmpData, TRUE, Hist)
1358                        else
1359                          GetReminderData(TmpData, TRUE, Hist);
1360                        if(TmpData.Count > 0) then
1361                        begin
1362                          if Hist then
1363                            TmpData.SortByPieces([pnumVisitDate, pnumVisitLoc])
1364                          else
1365                            TmpData.Sort;
1366                          TmpData.RemoveDuplicates;
1367                          TmpList.Clear;
1368                          for i := 0 to TmpData.Count-1 do
1369                          begin
1370                            if(Hist) then
1371                            begin
1372                              CurDate := Piece(TmpData[i], U, pnumVisitDate);
1373                              CurLoc := Piece(TmpData[i], U, pnumVisitLoc);
1374                              if(CurDate = '') then CurDate := FloatToStr(Encounter.DateTime);
1375                              if(LastDate <> CurDate) or (LastLoc <> CurLoc) then
1376                              begin
1377                                if(assigned(HistData)) then
1378                                begin
1379                                  HistData.Save;
1380                                  HistData.Free;
1381                                end;
1382                                LastDate := CurDate;
1383                                LastLoc := CurLoc;
1384                                HistData := TPCEData.Create;
1385                                HistData.DateTime := MakeFMDateTime(CurDate);
1386                                HistData.VisitCategory := 'E';
1387                                if(VisitParent = '') then
1388                                  VisitParent := GetVisitIEN(RemForm.NoteList.ItemIEN);
1389                                HistData.Parent := VisitParent;
1390                                if(StrToIntDef(CurLoc,0) = 0) then
1391                                  CurLoc := '0' + U + CurLoc;
1392                                HistData.HistoricalLocation := CurLoc;
1393                                PCEObj := HistData;
1394                              end;
1395                            end;
1396                            Cat := TPCEDataCat(ord(TmpData[i][1]) - ord('A'));
1397                            //check this for multiple process
1398                            //RData := TRemData(TmpData.Objects[i]);
1399                            if Cat = pdcHF then
1400                              begin
1401                                if not FProcessingTemplate and
1402                                 (GecRemIen <> TRemData(TmpData.Objects[i]).Parent.Reminder.IEN) then
1403                                   begin
1404                                     GecRemIen := TRemData(TmpData.Objects[i]).Parent.Reminder.IEN;
1405                                     GecRemStr := CheckGECValue('R' + GecRemIen, PCEObj.NoteIEN);
1406                                     //SetPiece(TmpData.Strings[i],U,11,GecRemStr);
1407                                   end;
1408                                 if FProcessingTemplate then
1409                                    begin
1410                                      if GecRemIen <> Rem.IEN then
1411                                        begin
1412                                          GecRemIen := Rem.IEN;
1413                                          GecRemStr := CheckGECValue(Rem.IEN, PCEObj.NoteIEN)
1414                                        end;
1415                                    end;
1416                            end;
1417                            case Cat of
1418                      //        pdcVisit:
1419                              pdcDiag:  Add(TPCEDiag);
1420                              pdcProc:  Add(TPCEProc);
1421                              pdcImm:   Add(TPCEImm);
1422                              pdcSkin:  Add(TPCESkin);
1423                              pdcPED:   Add(TPCEPat);
1424                              pdcHF:    Add(TPCEHealth);
1425                              pdcExam:  Add(TPCEExams);
1426  
1427  
1428                              pdcVital:
1429                                if (StoreVitals) then
1430                                begin
1431                                  Tmp := Piece(TmpData[i], U, 2);
1432                                  for v := low(TValidVitalTypes) to high(TValidVitalTypes) do
1433                                  begin
1434                                    if(Tmp = VitalCodes[v]) then
1435                                    begin
1436                                      if(UserStr = '') then
1437                                        UserStr := GetVitalUser;
1438  
1439                                      if(fVitalsDate = 0) then
1440                                      begin
1441                                        fVitalsDate := TRemData(TmpData.Objects[i]).Parent.VitalDateTime;
1442                                        StoreVitals := ValidVitalsDate(fVitalsDate, TRUE, FALSE);  //AGP Change 26.1
1443                                        if (not StoreVitals) then break;
1444                                      end;
1445  
1446                                      Tmp := GetVitalStr(v, Piece(TmpData[i], U, 3), '', UserStr, FloatToStr(fVitalsDate));
1447                                      if(Tmp <> '') then
1448                                        VitalList.Add(Tmp);
1449                                      break;
1450                                    end;
1451                                  end;
1452                                end;
1453  
1454                              pdcOrder: OrderList.Add(TmpData[i]);
1455                              pdcMH:    MHList.Add(TmpData[i]);
1456                              pdcWHR:
1457                                 begin
1458                                   WHNode := TmpData.Strings[i];
1459                                   SetPiece(WHNode,U,11,TRemData(TmpData.Objects[i]).Parent.WHResultChk);
1460                                   WHList.Add(WHNode);
1461                                 end;
1462  
1463                              pdcWH:
1464                                  begin
1465                                     WHPrint := TRemData(TmpData.Objects[i]).Parent.WHPrintDevice;
1466                                     WHNode := TmpData.Strings[i];
1467                                     SetPiece(WHNode,U,11,TRemData(TmpData.Objects[i]).Parent.WHResultNot);
1468                                     SetPiece(WHNode,U,12,Piece(WHPrint,U,1));
1469                                     SetPiece(WHNode,U,13,TRemData(TmpData.Objects[i]).Parent.Reminder.WHReviewIEN); //AGP CHANGE 23.13
1470                                     WHList.Add(WHNode);
1471                                   end;
1472                          end;
1473                    end;
1474                          if(Hist) then
1475                          begin
1476                            if(assigned(HistData)) then
1477                            begin
1478                              HistData.Save;
1479                              HistData.Free;
1480                              HistData := nil;
1481                            end;
1482                          end
1483                          else
1484                          begin
1485                            while RemForm.PCEObj.NeedProviderInfo do
1486                              MissingProviderInfo(RemForm.PCEObj, PCEType);
1487                            RemForm.PCEObj.Save;
1488                            VisitParent := GetVisitIEN(RemForm.NoteList.ItemIEN);
1489                          end;
1490                       end;
1491                      end;
1492  
1493                    finally
1494                      TmpData.Free;
1495                    end;
1496  
1497                    for i := 0 to MSTList.Count-1 do
1498                      SaveMSTData(MSTList[i]);
1499  
1500                  finally
1501                    MSTList.Free;
1502                  end;
1503  
1504                  if(StoreVitals) and (VitalList.Count > 0) then
1505                  begin
1506                    VitalList.Insert(0, VitalDateStr     + FloatToStr(fVitalsDate));
1507                    VitalList.Insert(1, VitalPatientStr  + Patient.DFN);
1508                    if IntToStr(Encounter.Location) <> '0' then //AGP change 26.9
1509                       VitalList.Insert(2, VitalLocationStr + IntToStr(Encounter.Location))
1510                    else
1511                       VitalList.Insert(2, VitalLocationStr + IntToStr(RemForm.PCEObj.Location));;
1512                    Tmp := ValAndStoreVitals(VitalList);
1513                    if (Tmp <> 'True') then
1514                      ShowMsg(Tmp);
1515                  end;
1516  
1517                finally
1518                  VitalList.Free;
1519                end;
1520  
1521                if(MHList.Count > 0) then
1522                begin
1523                  TestDate := 0;
1524                  for i := 0 to MHList.Count-1 do
1525                  begin
1526                    try
1527                      TestDate := StrToFloat(Piece(MHList[i],U,4));
1528                    except
1529                      on EConvertError do
1530                        TestDate := 0
1531                      else
1532                        raise;
1533                    end;
1534                    if(TestDate > 0) then
1535                    begin
1536                      TestStaff := StrToInt64Def(Piece(MHList[i],U,5), 0);
1537                      if TestStaff <= 0 then
1538                        TestStaff := User.DUZ;
1539                     if (Piece(MHList[i],U,3) = '1') and (MHDLLFound = false) then
1540                      begin
1541                        GAFScore := StrToIntDef(Piece(MHList[i],U,6),0);
1542                        if(GAFScore > 0) then
1543                          SaveGAFScore(GAFScore, TestDate, TestStaff);
1544                      end
1545                      else
1546                      begin
1547                        if Piece(MHLIst[i],U,6) = 'New MH dll' then
1548                          begin
1549                            //The dll take date and time the original code took only date.
1550                            if Encounter.Location <> FReminder.PCEDataObj.Location then
1551                              MHLoc := FReminder.PCEDataObj.Location
1552                              else MHLoc := Encounter.Location;
1553                            SaveMHTest(Piece(MHList[i],U,2), FloattoStr(FReminder.PCEDataObj.VisitDateTime), InttoStr(MHLoc));
1554                          end
1555                        else
1556                        SaveMentalHealthTest(Piece(MHList[i],U,2), TestDate, TestStaff,
1557                                             Piece(MHList[i],U,6));
1558                      end;
1559                    end;
1560                  end;
1561                end;
1562  
1563              finally
1564                MHList.Free;
1565                if (FReminder.MHTestArray <> nil) and (FReminder.MHTestArray.Count > 0) then FReminder.MHTestArray.Free;
1566              end;
1567  
1568              if(WHList.Count > 0) then
1569              begin
1570                WHResult :='';
1571                for i :=0 to WHList.Count-1 do
1572                  begin
1573                    WHNode := WHList.Strings[i];
1574                    if (Pos('N', Piece(WHNode,U,1)) <> 0) then
1575                      begin
1576                      SetPiece(WHResult,U,1,'WHIEN:'+Piece(WHNode,U,2));
1577                      SetPiece(WHResult,U,2,'DFN:'+Patient.DFN);
1578                      SetPiece(WHResult,U,3,'WHRES:'+Piece(WHNode,U,11));
1579                      SetPiece(WHResult,U,4,'Visit:'+Encounter.VisitStr);
1580                      if (not assigned(WHArray)) then WHArray := TStringList.Create;
1581                      WHArray.Add(WHResult);
1582                      end;
1583                    if (Pos('O', Piece(WHNode,U,1)) <> 0) then
1584                      begin
1585                      SetPiece(WHResult,U,1,'WHPur:'+Piece(WHNode,U,2));
1586                      SetPiece(WHResult,U,2,Piece(WHNode,U,11));
1587                      SetPiece(WHResult,U,3,Piece(WHNode,U,12));
1588                      SetPiece(WHResult,U,4,'DFN:'+Patient.DFN);
1589                      SetPiece(WHResult,U,5,Piece(WHNode,U,13)); //AGP CHANGE 23.13
1590                      if (not assigned(WHArray)) then WHArray := TStringList.Create;
1591                      WHArray.Add(WHResult);
1592                      end;
1593                  end;
1594                end;
1595                SaveWomenHealthData(WHArray);
1596            finally
1597            WHList.Free;
1598            end;
1599  
1600              ResetProcessing(RemWipe);
1601              Hide;
1602              Kill := TRUE;
1603              RemForm.DisplayPCEProc;
1604  
1605              // Process orders after PCE data saved in case of user input
1606              if(OrderList.Count > 0) then
1607              begin
1608                DelayEvent.EventType := 'C';
1609                DelayEvent.Specialty := 0;
1610                DelayEvent.Effective := 0;
1611                DelayEvent.PtEventIFN :=0;
1612                DelayEvent.EventIFN  := 0;
1613                DoOrders := TRUE;
1614                repeat
1615                  Done := TRUE;
1616                  if not ReadyForNewOrder(DelayEvent) then
1617                  begin
1618                    if(InfoBox('Unable to place orders.','Retry Orders?', MB_RETRYCANCEL or MB_ICONWARNING) = IDRETRY) then
1619                      Done := FALSE
1620                    else
1621                    begin
1622                      DoOrders := FALSE;
1623                      ShowMsg('No Orders Placed.');
1624                    end;
1625                  end;
1626                until(Done);
1627                if(DoOrders) then
1628                begin
1629                  if(OrderList.Count = 1) then
1630                  begin
1631                    case CharAt(Piece(OrderList[0], U, 3), 1) of
1632                      'A':      ActivateAction(     Piece(OrderList[0], U, 2), RemForm.Form, 0);
1633                      'D', 'Q': ActivateOrderDialog(Piece(OrderList[0], U, 2), DelayEvent, RemForm.Form, 0);
1634                      'M':      ActivateOrderMenu(  Piece(OrderList[0], U, 2), DelayEvent, RemForm.Form, 0);
1635                      'O':      ActivateOrderSet(   Piece(OrderList[0], U, 2), DelayEvent, RemForm.Form, 0);
1636                    end;
1637                  end
1638                  else
1639                  begin
1640                    for i := 0 to OrderList.Count-1 do
1641                    begin
1642                      tmp := Pieces(OrderList[i], U, 2, 4);
1643                      OrderList[i] := tmp;
1644                    end;
1645                    ActivateOrderList(OrderList, DelayEvent, RemForm.Form, 0, '', '');
1646                  end;
1647                end;
1648              end;
1649            finally
1650              OrderList.Free;
1651            end;
1652          end;
1653        finally
1654          TmpList.Free;
1655        end;
1656      finally
1657        if not FProcessingTemplate then
1658          ProcessedReminders.Notifier.EndUpdate(ProcessedReminders.Count <> OldRemCount);
1659      end;
1660    finally
1661      self.btnFinish.Enabled := true;
1662      if(Kill) then
1663      begin
1664        FExitOK := TRUE;
1665        Close;
1666      end;
1667    end;
1668  end;