Procedure

TfrmDCSumm.cmdPCEClick

Module

fDCSumm

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDCSumm

Declaration

procedure cmdPCEClick(Sender: TObject);

Calls Hierarchy


TfrmDCSumm.cmdPCEClick
 ├UpdatePCE
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ ├TPCEData.Empty
 │ │ └TPCEProc.Empty
 │ ├TEncounter.NeedVisit
 │ ├TPCEData.SetEncUseCurr
 │ │ ├TEncounter.GetVisitCategory
 │ │ ├TPCEProviderList.SetPrimaryIdx
 │ │ │ ├TPCEProviderList.GetPrimaryIdx
 │ │ │ └TPCEProviderList.SetPrimary
 │ │ └SetRPCEncLocation
 │ ├ExternalName
 │ ├TPCEData.VisitDateTime
 │ │ └TPCEData.IsSecondaryVisit
 │ ├TPCEProviderList.Assign
 │ ├SetDefaultProvider
 │ │ ├InvalidPCEProviderTxt
 │ │ │ ├CheckActivePerson
 │ │ │ └IsUserAProvider
 │ │ ├TPCEData.PersonClassDate
 │ │ │ └FMToday
 │ │ │   └FMNow
 │ │ ├TEncounter.GetProviderName
 │ │ │ └TEncounter.UpdateText
 │ │ │   └GetEncounterText
 │ │ ├DefaultProvider
 │ │ ├CheckActivePerson
 │ │ ├TIUSiteParams
 │ │ └TPCEProviderList.AddProvider
 │ │   └TPCEProviderList.Add
 │ │     ├TPCEProviderList.GetPrimaryIdx
 │ │     ├TPCEProviderList.IndexOfProvider
 │ │     └TPCEProviderList.SetPrimaryIdx...
 │ ├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
 │ │ │         │   ├TPCEData.VisitDateTime...
 │ │ │         │   ├FMToday...
 │ │ │         │   └MixedCaseModifier
 │ │ │         └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
 │ │ │   └TPCEItem.Assign
 │ │ │     └TPCEItem.SetComment
 │ │ ├ListDiagnosisSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TfrmProcedures.InitTab
 │ │ ├TPCEData.CopyProcedures
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListProcedureSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopyImmunizations
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListImmunizSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopySkinTests
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListSkinSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopyPatientEds
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListPatientSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopyHealthFactors
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListHealthSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEData.CopyExams
 │ │ │ └TPCEData.CopyPCEItems...
 │ │ ├ListExamsSections
 │ │ │ └LoadEncounterForm...
 │ │ ├TPCEProc.Assign
 │ │ │ └TPCEItem.Assign...
 │ │ └TfrmVisitType.MatchVType
 │ │   ├TfrmVisitType.lstVTypeSectionClick...
 │ │   └TfrmVisitType.lbxVisitsClickCheck
 │ │     ├TPCEProviderList.PrimaryIEN
 │ │     │ └TPCEProviderList.GetPrimaryIdx
 │ │     ├TPCEProc.SetFromString
 │ │     │ └TPCEItem.SetFromString
 │ │     │   └TPCEItem.SetComment
 │ │     └TPCEProc.Clear
 │ │       └TPCEItem.Clear
 │ │         └TPCEItem.SetComment
 │ └TfrmEncounterFrame.TabControlChange
 │   ├TfrmEncounterFrame.PageIDToTab
 │   ├TfrmEncounterFrame.PageIDToForm
 │   └TfrmEncounterFrame.SwitchToPage
 │     └TfrmPCEBase.DisplayPage
 └TfrmDCSumm.DisplayPCE
   ├TPCEData.AddStrData
   │ ├Add
   │ ├TPCEData.StrVisitType
   │ │ ├GetPCEDataText
   │ │ │ └GetDiagnosisText
   │ │ ├TPCEProc.ModText
   │ │ │ └ModifierName
   │ │ │   └ModifierIdx...
   │ │ └TPCEData.StrVisitType
   │ │   └AddTxt
   │ ├TPCEData.StrDiagnoses
   │ │ └GetPCEDataText...
   │ ├TPCEData.StrProcedures
   │ │ ├GetPCEDataText...
   │ │ └TPCEProc.ModText...
   │ ├TPCEData.StrImmunizations
   │ │ └GetPCEDataText...
   │ ├TPCEData.StrSkinTests
   │ │ └GetPCEDataText...
   │ ├TPCEData.StrPatientEds
   │ │ └GetPCEDataText...
   │ ├TPCEData.StrHealthFactors
   │ │ └GetPCEDataText...
   │ └TPCEData.StrExams
   │   └GetPCEDataText...
   ├GetVitalsFromDate
   │ ├TPCEData.IsSecondaryVisit
   │ └GetVitalsFromEncDateTime
   ├TPCEData.AddVitalData
   │ └FormatVitalForNote
   │   └ConvertVitalData
   ├CanEditPCE
   │ ├GetAskPCE
   │ └FutureEncounter
   │   └FMToday...
   ├TfrmDCSumm.ShowPCEControls
   ├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...
   │ ├TPCEData.IsSecondaryVisit
   │ ├GetLocSecondaryVisitCode
   │ ├TPCEData.Clear...
   │ ├LoadPCEDataForNote
   │ ├ListVisitTypeByLoc
   │ ├SetRPCEncLocation
   │ ├SCCValue
   │ ├TPCEProviderList.Add...
   │ ├AppendComment
   │ ├TPCEDiag.SetFromString
   │ │ └TPCEItem.SetFromString...
   │ ├TPCEProc.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

Calls

Name Declaration Comments
TfrmDCSumm.DisplayPCE procedure DisplayPCE; -
UpdatePCE function UpdatePCE(PCEData: TPCEData; SaveOnExit: boolean = TRUE): boolean; -


Source

1161  procedure TfrmDCSumm.cmdPCEClick(Sender: TObject);
1162  begin
1163    inherited;
1164    cmdPCE.Enabled := False;
1165    UpdatePCE(uPCEEdit);
1166    cmdPCE.Enabled := True;
1167    if frmFrame.Closing then exit;
1168    DisplayPCE;
1169  end;