Procedure

TfrmBALocalDiagnoses.FormCreate

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmBALocalDiagnoses

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmBALocalDiagnoses.FormCreate
 ├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
 └TfrmBALocalDiagnoses.ClearAndDisableCBoxes

Calls

Name Declaration Comments
TfrmBALocalDiagnoses.ClearAndDisableCBoxes procedure ClearAndDisableCBoxes; -
TfrmBALocalDiagnoses.MainDriver procedure MainDriver; -


Source

163   procedure TfrmBALocalDiagnoses.FormCreate(Sender: TObject);
164   begin
165        MaxDx := 4;
166        inactiveCodes := 0;
167        MainDriver;
168        GridItems := 0;
169        PrimaryChanged := False;
170        FLastHintItemNum := -1;
171        ClearAndDisableCBoxes
172   end;