Procedure

TfrmEncounterFrame.UpdateEncounter

Module

fEncounterFrame

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfrmEncounterFrame

Declaration

procedure UpdateEncounter(PCE: TPCEData);

Calls Hierarchy


TfrmEncounterFrame.UpdateEncounter
 ├TfrmEncounterFrame.FormListContains
 ├TPCEData.SetVisitType
 │ ├TPCEItem.Match
 │ └TPCEProc.Assign
 │   └TPCEItem.Assign
 │     └TPCEItem.SetComment
 ├TfraVisitRelated.GetRelated
 │ ├TPCEData.SetSCRelated
 │ ├TfraVisitRelated.GetCheckState
 │ ├TPCEData.SetAORelated
 │ ├TPCEData.SetIRRelated
 │ ├TPCEData.SetECRelated
 │ ├TPCEData.SetMSTRelated
 │ ├TPCEData.SetHNCRelated
 │ ├TPCEData.SetCVRelated
 │ └TPCEData.SetSHADRelated
 ├TPCEProviderList.Merge
 │ ├TPCEProviderList.IndexOfProvider
 │ └TPCEProviderList.Add
 │   ├TPCEProviderList.GetPrimaryIdx
 │   ├TPCEProviderList.IndexOfProvider
 │   └TPCEProviderList.SetPrimaryIdx
 │     ├TPCEProviderList.GetPrimaryIdx
 │     └TPCEProviderList.SetPrimary
 ├TPCEData.SetDiagnoses
 │ ├TPCEData.MarkDeletions
 │ │ ├TPCEItem.Match
 │ │ └TPCEItem.MatchProvider
 │ ├TPCEData.MatchItem
 │ │ ├TPCEItem.Match
 │ │ └TPCEItem.MatchProvider
 │ ├TPCEItem.SetComment
 │ └TPCEDiag.Assign
 │   └TPCEItem.Assign...
 ├TPCEData.SetProcedures
 │ ├TPCEData.MarkDeletions...
 │ ├TPCEData.MatchItem...
 │ ├TPCEProc.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...

Called-By Hierarchy


   TfrmEncounterFrame.UpdateEncounter
        TfrmEncounterFrame.SendData┤ 
TfrmEncounterFrame.FormCloseQuery┘ │ 
  TfrmEncounterFrame.FormCloseQuery┘ 

Calls

Name Declaration Comments
TfrmEncounterFrame.FormListContains function FormListContains(item: string): Boolean; -
TfraVisitRelated.GetRelated procedure GetRelated(PCEData: TPCEData); overload; -
TPCEProviderList.Merge procedure Merge(AList: TPCEProviderList); -
TPCEData.SetDiagnoses procedure SetDiagnoses(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetExams procedure SetExams(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetHealthFactors Procedure SetHealthFactors(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetImmunizations procedure SetImmunizations(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetPatientEds Procedure SetPatientEds(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetProcedures procedure SetProcedures(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetSkinTests procedure SetSkinTests(Src: TStrings; FromForm: boolean = TRUE); -
TPCEData.SetVisitType procedure SetVisitType(Value: TPCEProc); -

Called-By

Name Declaration Comments
TfrmEncounterFrame.FormCloseQuery procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); -
TfrmEncounterFrame.SendData procedure SendData; -


Source

710   procedure TfrmEncounterFrame.UpdateEncounter(PCE: TPCEData);
711   begin
712     with PCE do
713     begin
714       if FormListContains(CT_VisitNm) then
715       begin
716         VisitType := uVisitType;
717         frmVisitType.fraVisitRelated.GetRelated(uEncPCEData);
718         Providers.Merge(uProviders);
719       end;
720   
721       if FormListContains(CT_DiagNm) then
722         SetDiagnoses(frmDiagnoses.lbGrid.Items);
723       if FormListContains(CT_ProcNm) then
724         SetProcedures(frmProcedures.lbGrid.Items);
725       if FormListContains(CT_ImmNm) then
726         SetImmunizations(frmImmunizations.lbGrid.Items);
727       if FormListContains(CT_SkinNm) then
728         SetSkinTests(frmSkinTests.lbGrid.Items);
729       if FormListContains(CT_PedNm) then
730         SetPatientEds(frmPatientEd.lbGrid.Items);
731       if FormListContains(CT_HlthNm) then
732         SetHealthFactors(frmHealthFactors.lbGrid.Items);
733       if FormListContains(CT_XamNm) then
734         SetExams(frmExams.lbGrid.Items);
735     end;
736   end;