Procedure

TfrmBAOptionsDiagnoses.FormCreate

Module

fBAOptionsDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmBAOptionsDiagnoses

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmBAOptionsDiagnoses.FormCreate
 ├TfrmBAOptionsDiagnoses.LoadEncounterDx
 │ ├FMToday
 │ │ └FMNow
 │ └TfrmBAOptionsDiagnoses.AddProblemsToDxList
 │   └FMToday...
 ├TfrmBAOptionsDiagnoses.ListDiagnosesSections
 └TfrmBAOptionsDiagnoses.LoadPersonalDxList
   ├rpcGetPersonalDxList
   └IsICD9CodeActive

Calls

Name Declaration Comments
TfrmBAOptionsDiagnoses.ListDiagnosesSections procedure ListDiagnosesSections(Dest: TStrings); -
TfrmBAOptionsDiagnoses.LoadEncounterDx procedure LoadEncounterDx; -
TfrmBAOptionsDiagnoses.LoadPersonalDxList procedure LoadPersonalDxList; -


Source

121   procedure TfrmBAOptionsDiagnoses.FormCreate(Sender: TObject);
122   begin
123       inactiveCodes := 0;
124       LoadEncounterDx;
125       ListDiagnosesSections(lbSections.Items);
126     //  lbPersonalDx.Items := rpcGetPersonalDxList(User.DUZ);
127       LoadPersonalDxList;
128       btnOK.Enabled := False;
129       hdrCntlDx.Sections[0].Width := lbPersonalDX.Width;
130       hdrCntlDxSections.Sections[0].Width := lbSections.Width;
131       hdrCntlDxAdd.Sections[0].Width := lbDiagnosis.Width;
132     //  lbPersonalDx.Sorted := false;
133    //  lbPersonalDx.Sorted := True;
134       lbPersonalDX.Repaint;
135   end;