Class

TfrmPatientEd

Module

fPatientEd

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmPCEBaseMain

Declaration


TfrmPatientEd = class(TfrmPCEBaseMain)
  lblUnderstanding: TLabel;
  cboPatUnderstanding: TORComboBox;
  procedure cboPatUnderstandingChange(Sender: TObject);
  procedure FormCreate(Sender: TObject);
private
protected
  procedure UpdateNewItemStr(var x: string); override;
  procedure UpdateControls; override;
public
end;

DFM Objects


frmPatientEd : TfrmPatientEd
 ├lblUnderstanding : TLabel
 ├lblSection : TLabel
 ├btnOK : TBitBtn
 ├btnCancel : TBitBtn
 ├pnlGrid : TPanel
 │ ├lbGrid : TORListBox
 │ └hcGrid : THeaderControl
 ├edtComment : TCaptionEdit
 ├cboPatUnderstanding : TORComboBox
 ├btnRemove : TButton
 ├btnSelectAll : TButton
 ├pnlMain : TPanel
 │ ├lbxSection : TORListBox
 │ └pnlLeft : TPanel
 │   ├lbSection : TORListBox
 │   └btnOther : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cboPatUnderstanding TORComboBox Public/Published -
lblUnderstanding TLabel Public/Published -

Methods

Name Declaration Scope Comments
cboPatUnderstandingChange procedure cboPatUnderstandingChange(Sender: TObject); Public/Published
//Name:procedure tfrmPatientEd.cboPatUnderstandingChange(Sender: TObject);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description:Change the level of understanding assigned to the education item.
///////////////////////////////////////////////////////////////////////////////
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
UpdateControls procedure UpdateControls; override; Protected -
UpdateNewItemStr procedure UpdateNewItemStr(var x: string); override; Protected -

Referenced By (3)

Module (line) Referrer Type
fEncounterFrame (271) - Read
fPatientEd (24) frmPatientEd Read
fPatientEd (124) - Read