Class

TfrmBAOptionsDiagnoses

Module

fBAOptionsDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmBAOptionsDiagnoses = class(TfrmAutoSz)
  Panel1: TPanel;
  Panel2: TPanel;
  Splitter1: TSplitter;
  Splitter2: TSplitter;
  Splitter3: TSplitter;
  pnlBottom: TPanel;
  btnOther: TButton;
  btnOK: TButton;
  Panel3: TPanel;
  lbSections: TORListBox;
  Panel4: TPanel;
  lbDiagnosis: TORListBox;
  Panel5: TPanel;
  lbPersonalDx: TORListBox;
  pnlTop: TPanel;
  Panel7: TPanel;
  btnAdd: TBitBtn;
  btnDelete: TBitBtn;
  Splitter5: TSplitter;
  Button1: TButton;
  StaticText3: TStaticText;
  hdrCntlDx: THeaderControl;
  hdrCntlDxSections: THeaderControl;
  hdrCntlDxAdd: THeaderControl;
  procedure FormCreate(Sender: TObject);
  procedure btnOtherClick(Sender: TObject);
  procedure lbSectionsClick(Sender: TObject);
  procedure lbSectionsEnter(Sender: TObject);
  procedure lbDiagnosisClick(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure btnOKClick(Sender: TObject);
  procedure btnAddClick(Sender: TObject);
  procedure btnDeleteClick(Sender: TObject);
  procedure lbDiagnosisChange(Sender: TObject);
  procedure lbPersonalDxClick(Sender: TObject);
  procedure lbDiagnosisEnter(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure Button1Click(Sender: TObject);
  procedure FormActivate(Sender: TObject);
  function  IsDXInList(ADXCode: string):boolean;
  procedure LoadPersonalDxList;
  procedure btnRemoveAllClick(Sender: TObject);
  procedure btnAddAllClick(Sender: TObject);
  procedure hdrCntlDxSectionClick(HeaderControl: THeaderControl;
    Section: THeaderSection);
  procedure FormResize(Sender: TObject);
private
  { Private declarations }
  procedure LoadEncounterDx;
  procedure ListDiagnosesSections(Dest: TStrings);
  procedure AddProblemsToDxList;
  procedure ListDiagnosesCodes(Section: String);
  procedure InactiveICDNotification;
  procedure SyncDxDeleteList;
  procedure SyncDxNewList;

public
  { Public declarations }
end;

DFM Objects


frmBAOptionsDiagnoses : TfrmBAOptionsDiagnoses
 ├Panel1 : TPanel
 │ └Panel2 : TPanel
 │   ├Splitter1 : TSplitter
 │   ├Splitter2 : TSplitter
 │   ├Splitter3 : TSplitter
 │   ├Splitter5 : TSplitter
 │   ├pnlBottom : TPanel
 │   │ ├btnOther : TButton
 │   │ ├btnOK : TButton
 │   │ └Button1 : TButton
 │   ├Panel3 : TPanel
 │   │ ├lbSections : TORListBox
 │   │ └hdrCntlDxSections : THeaderControl
 │   ├Panel4 : TPanel
 │   │ ├lbDiagnosis : TORListBox
 │   │ └hdrCntlDxAdd : THeaderControl
 │   ├Panel5 : TPanel
 │   │ ├lbPersonalDx : TORListBox
 │   │ └hdrCntlDx : THeaderControl
 │   ├pnlTop : TPanel
 │   │ └StaticText3 : TStaticText
 │   └Panel7 : TPanel
 │     ├btnAdd : TBitBtn
 │     └btnDelete : TBitBtn
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnAdd TBitBtn Public/Published -
btnDelete TBitBtn Public/Published -
btnOK TButton Public/Published -
btnOther TButton Public/Published -
Button1 TButton Public/Published -
hdrCntlDx THeaderControl Public/Published -
hdrCntlDxAdd THeaderControl Public/Published -
hdrCntlDxSections THeaderControl Public/Published -
lbDiagnosis TORListBox Public/Published -
lbPersonalDx TORListBox Public/Published -
lbSections TORListBox Public/Published -
Panel1 TPanel Public/Published -
Panel2 TPanel Public/Published -
Panel3 TPanel Public/Published -
Panel4 TPanel Public/Published -
Panel5 TPanel Public/Published -
Panel7 TPanel Public/Published -
pnlBottom TPanel Public/Published -
pnlTop TPanel Public/Published -
Splitter1 TSplitter Public/Published -
Splitter2 TSplitter Public/Published -
Splitter3 TSplitter Public/Published -
Splitter5 TSplitter Public/Published -
StaticText3 TStaticText Public/Published -

Methods

Name Declaration Scope Comments
AddProblemsToDxList procedure AddProblemsToDxList; Private -
btnAddAllClick procedure btnAddAllClick(Sender: TObject); Public/Published -
btnAddClick procedure btnAddClick(Sender: TObject); Public/Published -
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnDeleteClick procedure btnDeleteClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnOtherClick procedure btnOtherClick(Sender: TObject); Public/Published -
btnRemoveAllClick procedure btnRemoveAllClick(Sender: TObject); Public/Published -
Button1Click procedure Button1Click(Sender: TObject); Public/Published -
FormActivate procedure FormActivate(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
hdrCntlDxSectionClick procedure hdrCntlDxSectionClick(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
InactiveICDNotification procedure InactiveICDNotification; Private -
IsDXInList function IsDXInList(ADXCode: string):boolean; Public/Published X,y: string;
lbDiagnosisChange procedure lbDiagnosisChange(Sender: TObject); Public/Published -
lbDiagnosisClick procedure lbDiagnosisClick(Sender: TObject); Public/Published -
lbDiagnosisEnter procedure lbDiagnosisEnter(Sender: TObject); Public/Published -
lbPersonalDxClick procedure lbPersonalDxClick(Sender: TObject); Public/Published -
lbSectionsClick procedure lbSectionsClick(Sender: TObject); Public/Published -
lbSectionsEnter procedure lbSectionsEnter(Sender: TObject); Public/Published -
ListDiagnosesCodes procedure ListDiagnosesCodes(Section: String); Private -
ListDiagnosesSections procedure ListDiagnosesSections(Dest: TStrings); Private -
LoadEncounterDx procedure LoadEncounterDx; Private
Private declarations
load the major coding lists that are used by the encounter form for a given location
LoadPersonalDxList procedure LoadPersonalDxList; Public/Published -
SyncDxDeleteList procedure SyncDxDeleteList; Private -
SyncDxNewList procedure SyncDxNewList; Private -

Referenced By (2)

Module (line) Referrer Type
fBAOptionsDiagnoses (101) - Read
fBAOptionsDiagnoses (103) - Read