Procedure

TfrmBALocalDiagnoses.LoadEncounterForm

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Comments

Load the major coding lists that are used by the encounter form for a given location

Visibility

Private

Owner

TfrmBALocalDiagnoses

Declaration

procedure LoadEncounterForm;

Calls Hierarchy


TfrmBALocalDiagnoses.LoadEncounterForm
 ├FMToday
 │ └FMNow
 ├TfrmBALocalDiagnoses.AddProbsToDiagnosis
 │ ├FMToday...
 │ └AttachPLTFactorsToDx
 │   └ProcessProblemTFactors
 ├TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList
 │ └rpcGetPersonalDxList
 └TfrmBALocalDiagnoses.AddPCEToDiagnosis

Called-By Hierarchy


                          TfrmBALocalDiagnoses.LoadEncounterForm
                               TfrmBALocalDiagnoses.MainDriver┤ 
                             TfrmBALocalDiagnoses.FormCreate┘ │ 
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList1Click┤ 
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click┘ 

Calls

Name Declaration Comments
TfrmBALocalDiagnoses.AddPCEToDiagnosis procedure AddPCEToDiagnosis; -
TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList procedure AddPersonalDxToDiagnosisList; -
TfrmBALocalDiagnoses.AddProbsToDiagnosis procedure AddProbsToDiagnosis; -
FMToday function FMToday: TFMDateTime; -

Called-By

Name Declaration Comments
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList1Click procedure AddDiagnosistoPersonalDiagnosesList1Click(Sender: TObject); -
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click procedure AddDiagnosistoPersonalDiagnosesList2Click(Sender: TObject); -
TfrmBALocalDiagnoses.MainDriver procedure MainDriver; -


Source

331   procedure  TfrmBALocalDiagnoses.LoadEncounterForm;
332   { load the major coding lists that are used by the encounter form for a given location }
333   var
334     i: integer;
335     uTempList: TStringList;
336     EncDt: TFMDateTime;
337   begin
338       uLastLocation := Encounter.Location;
339       EncDt := Trunc(FMToday);
340     // ** add problems to the top of diagnoses.
341       uTempList := TstringList.Create;
342       BADiagnosis.clear;
343       tCallV(uTempList,'ORWPCE DIAG',  [uLastLocation, EncDt]);
344       BADiagnosis.add(utemplist.strings[0]);
345       AddProbsToDiagnosis;
346   
347       // ** Loading Diagnoses if previously entered via the Encounter Form
348       AddPersonalDxToDiagnosisList;
349   
350       if Assigned(BAPCEDiagList) then
351       begin
352          AddPCEToDiagnosis;
353       end;
354   
355       for i := 1 to (uTempList.Count-1) do
356          BADiagnosis.add(uTemplist.strings[i]);
357   
358   end;