Class

TfrmDiagnoses

Module

fDiagnoses

Last Modified

3/11/2015 8:41:48 AM

Scope

Interfaced

Inherits from

TfrmPCEBaseMain

Declaration


TfrmDiagnoses = class(TfrmPCEBaseMain)
  cmdDiagPrimary: TButton;
  ckbDiagProb: TCheckBox;
  procedure cmdDiagPrimaryClick(Sender: TObject);
  procedure ckbDiagProbClicked(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure FormResize(Sender: TObject); override;
  procedure lbxSectionClickCheck(Sender: TObject; Index: Integer);
  procedure btnOKClick(Sender: TObject);  override;
  procedure lbSectionClick(Sender: TObject);
  procedure GetEncounterDiagnoses;
  procedure lbSectionDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  procedure lbxSectionDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  procedure lbGridSelect(Sender: TObject);
private
  procedure EnsurePrimaryDiag;
  procedure GetSCTforICD(ADiagnosis: TPCEDiag);
  procedure UpdateProblem(AplIEN: String; AICDCode: String; ASCTCode: String = '');
  function isProblem(diagnosis: TPCEDiag): Boolean;
  function isEncounterDx(problem: string): Boolean;
protected
  procedure UpdateNewItemStr(var x: string); override;
  procedure UpdateControls; override;
public
end;

DFM Objects


frmDiagnoses : TfrmDiagnoses
 ├lblSection : TLabel
 ├lblList : TLabel
 ├lblComment : TLabel
 ├bvlMain : TBevel
 ├btnOK : TBitBtn
 ├btnCancel : TBitBtn
 ├pnlGrid : TPanel
 │ ├lbGrid : TORListBox
 │ └hcGrid : THeaderControl
 ├edtComment : TCaptionEdit
 ├cmdDiagPrimary : TButton
 ├ckbDiagProb : TCheckBox
 ├btnRemove : TButton
 ├btnSelectAll : TButton
 ├pnlMain : TPanel
 │ ├splLeft : TSplitter
 │ ├lbxSection : TORListBox
 │ └pnlLeft : TPanel
 │   ├lbSection : TORListBox
 │   └btnOther : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
ckbDiagProb TCheckBox Public/Published -
cmdDiagPrimary TButton Public/Published -

Methods

Name Declaration Scope Comments
btnOKClick procedure btnOKClick(Sender: TObject); override; Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
ckbDiagProbClicked procedure ckbDiagProbClicked(Sender: TObject); Public/Published -
cmdDiagPrimaryClick procedure cmdDiagPrimaryClick(Sender: TObject); Public/Published -
EnsurePrimaryDiag procedure EnsurePrimaryDiag; Private -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); override; Public/Published -
GetEncounterDiagnoses procedure GetEncounterDiagnoses; Public/Published -
GetSCTforICD procedure GetSCTforICD(ADiagnosis: TPCEDiag); Private -
isEncounterDx function isEncounterDx(problem: string): Boolean; Private -
isProblem function isProblem(diagnosis: TPCEDiag): Boolean; Private -
lbGridSelect procedure lbGridSelect(Sender: TObject); Public/Published -
lbSectionClick procedure lbSectionClick(Sender: TObject); Public/Published -
lbSectionDrawItem procedure lbSectionDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
lbxSectionClickCheck procedure lbxSectionClickCheck(Sender: TObject; Index: Integer); Public/Published -
lbxSectionDrawItem procedure lbxSectionDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
UpdateControls procedure UpdateControls; override; Protected -
UpdateNewItemStr procedure UpdateNewItemStr(var x: string); override; Protected -
UpdateProblem procedure UpdateProblem(AplIEN: String; AICDCode: String; ASCTCode: String = ''); Private -

Referenced By (3)

Module (line) Referrer Type
fDiagnoses (67) frmDiagnoses Read
fDiagnoses (744) - Read
fEncounterFrame (261) - Read