Procedure

TfrmBALocalDiagnoses.MainDriver

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmBALocalDiagnoses

Declaration

procedure MainDriver;

Calls Hierarchy


TfrmBALocalDiagnoses.MainDriver
 ├TfrmBALocalDiagnoses.DeselectGridItems
 ├TfrmBALocalDiagnoses.ListConsultDX
 ├TfrmBALocalDiagnoses.ListGlobalDx
 │ └tempDxNodeExists
 ├TfrmBALocalDiagnoses.LoadEncounterForm
 │ ├FMToday
 │ │ └FMNow
 │ ├TfrmBALocalDiagnoses.AddProbsToDiagnosis
 │ │ ├FMToday...
 │ │ └AttachPLTFactorsToDx
 │ │   └ProcessProblemTFactors
 │ ├TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList
 │ │ └rpcGetPersonalDxList
 │ └TfrmBALocalDiagnoses.AddPCEToDiagnosis
 ├TfrmBALocalDiagnoses.ListDiagnosisSections
 ├TfrmBALocalDiagnoses.ListSelectedOrders
 └TfrmBALocalDiagnoses.LoadTempDXLists

Called-By Hierarchy


  TfrmBALocalDiagnoses.MainDriver
TfrmBALocalDiagnoses.FormCreate┘ 

Calls

Name Declaration Comments
TfrmBALocalDiagnoses.DeselectGridItems procedure DeselectGridItems; -
TfrmBALocalDiagnoses.ListConsultDX procedure ListConsultDX(pOrderDxList: TStringList); -
TfrmBALocalDiagnoses.ListDiagnosisSections procedure ListDiagnosisSections(Dest: TStrings); -
TfrmBALocalDiagnoses.ListGlobalDx procedure ListGlobalDx(pOrderIDList: TStringList); -
TfrmBALocalDiagnoses.ListSelectedOrders procedure ListSelectedOrders; -
TfrmBALocalDiagnoses.LoadEncounterForm procedure LoadEncounterForm; -
TfrmBALocalDiagnoses.LoadTempDXLists procedure LoadTempDXLists; -

Called-By

Name Declaration Comments
TfrmBALocalDiagnoses.FormCreate procedure FormCreate(Sender: TObject); -


Source

188   procedure TfrmBALocalDiagnoses.MainDriver;
189   begin
190       BADiagnosis := TStringList.Create;
191       ECFDiagnosis := TStringList.Create;
192       uProblems := TStringList.Create;
193       lblPatientName.Caption := Patient.Name + ' Selected Orders';
194       DeselectGridItems;
195       
196       if whoCalled = F_CONSULTS then
197          ListConsultDX(UBAGlobals.BAConsultDxList)
198       else
199          ListGlobalDx(currentOrderIDList);
200   
201       LoadEncounterForm;
202       ListDiagnosisSections(lbSections.Items);
203       ListSelectedOrders;
204       LoadTempDXLists;
205   end;