Class

TfrmODAllergy

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODAllergy = class(TfrmODBase)
  btnAgent: TSpeedButton;
  cboReactionType: TORComboBox;
  lblReactionType: TOROffsetLabel;
  lblAgent: TOROffsetLabel;
  lblSymptoms: TOROffsetLabel;
  lblSelectedSymptoms: TOROffsetLabel;
  grpObsHist: TRadioGroup;
  memComments: TRichEdit;
  lblComments: TOROffsetLabel;
  lstSelectedSymptoms: TORListBox;
  ckNoKnownAllergies: TCheckBox;
  cboOriginator: TORComboBox;
  lblOriginator: TOROffsetLabel;
  Bevel1: TBevel;
  lstAllergy: TORListBox;
  cboSymptoms: TORComboBox;
  dlgReactionDateTime: TORDateTimeDlg;
  btnCurrent: TButton;
  lblObservedDate: TOROffsetLabel;
  calObservedDate: TORDateBox;
  lblSeverity: TOROffsetLabel;
  cboSeverity: TORComboBox;
  btnRemove: TButton;
  btnDateTime: TButton;
  procedure btnAgentClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure cboOriginatorNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboSymptomsNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure lstAllergySelect(Sender: TObject);
  procedure grpObsHistClick(Sender: TObject);
  procedure ControlChange(Sender: TObject);
  procedure memCommentsExit(Sender: TObject);
  procedure cboSymptomsClick(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure ckNoKnownAllergiesClick(Sender: TObject);
  procedure EnableControls;
  procedure DisableControls;
  procedure cmdAcceptClick(Sender: TObject);
  procedure btnCurrentClick(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure lstAllergyClick(Sender: TObject);
  procedure btnDateTimeClick(Sender: TObject);
  procedure cboSymptomsKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboSymptomsMouseClick(Sender: TObject);
  procedure memCommentsKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  FLastAllergyID: string;
  FNKAOrder: boolean;
protected
  procedure InitDialog; override;
  procedure Validate(var AnErrMsg: string); override;
public
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
end;

DFM Objects


frmODAllergy : TfrmODAllergy
 ├btnAgent : TSpeedButton
 ├lblReactionType : TOROffsetLabel
 ├lblAgent : TOROffsetLabel
 ├lblSymptoms : TOROffsetLabel
 ├lblSelectedSymptoms : TOROffsetLabel
 ├lblComments : TOROffsetLabel
 ├lblOriginator : TOROffsetLabel
 ├Bevel1 : TBevel
 ├lblObservedDate : TOROffsetLabel
 ├lblSeverity : TOROffsetLabel
 ├lstAllergy : TORListBox
 ├memOrder : TCaptionMemo
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 │ └memMessage : TRichEdit
 ├cboReactionType : TORComboBox
 ├grpObsHist : TRadioGroup
 ├memComments : TRichEdit
 ├lstSelectedSymptoms : TORListBox
 ├ckNoKnownAllergies : TCheckBox
 ├cboOriginator : TORComboBox
 ├cboSymptoms : TORComboBox
 ├btnCurrent : TButton
 ├calObservedDate : TORDateBox
 ├cboSeverity : TORComboBox
 ├btnRemove : TButton
 ├btnDateTime : TButton
 ├amgrMain : TVA508AccessibilityManager
 └dlgReactionDateTime : TORDateTimeDlg

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 TBevel Public/Published -
btnAgent TSpeedButton Public/Published -
btnCurrent TButton Public/Published -
btnDateTime TButton Public/Published -
btnRemove TButton Public/Published -
calObservedDate TORDateBox Public/Published -
cboOriginator TORComboBox Public/Published -
cboReactionType TORComboBox Public/Published -
cboSeverity TORComboBox Public/Published -
cboSymptoms TORComboBox Public/Published -
ckNoKnownAllergies TCheckBox Public/Published -
dlgReactionDateTime TORDateTimeDlg Public/Published -
FLastAllergyID UnicodeString Private -
FNKAOrder Boolean Private -
grpObsHist TRadioGroup Public/Published -
lblAgent TOROffsetLabel Public/Published -
lblComments TOROffsetLabel Public/Published -
lblObservedDate TOROffsetLabel Public/Published -
lblOriginator TOROffsetLabel Public/Published -
lblReactionType TOROffsetLabel Public/Published -
lblSelectedSymptoms TOROffsetLabel Public/Published -
lblSeverity TOROffsetLabel Public/Published -
lblSymptoms TOROffsetLabel Public/Published -
lstAllergy TORListBox Public/Published -
lstSelectedSymptoms TORListBox Public/Published -
memComments TRichEdit Public/Published -

Methods

Name Declaration Scope Comments
btnAgentClick procedure btnAgentClick(Sender: TObject); Public/Published -
btnCurrentClick procedure btnCurrentClick(Sender: TObject); Public/Published -
btnDateTimeClick procedure btnDateTimeClick(Sender: TObject); Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
cboOriginatorNeedData procedure cboOriginatorNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboSymptomsClick procedure cboSymptomsClick(Sender: TObject); Public/Published -
cboSymptomsKeyDown procedure cboSymptomsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboSymptomsMouseClick procedure cboSymptomsMouseClick(Sender: TObject); Public/Published -
cboSymptomsNeedData procedure cboSymptomsNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
ckNoKnownAllergiesClick procedure ckNoKnownAllergiesClick(Sender: TObject); Public/Published -
cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Public/Published -
DisableControls procedure DisableControls; Public/Published -
EnableControls procedure EnableControls; Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
grpObsHistClick procedure grpObsHistClick(Sender: TObject); Public/Published -
InitDialog procedure InitDialog; override; Protected -
lstAllergyClick procedure lstAllergyClick(Sender: TObject); Public/Published -
lstAllergySelect procedure lstAllergySelect(Sender: TObject); Public/Published -
memCommentsExit procedure memCommentsExit(Sender: TObject); Public/Published -
memCommentsKeyUp procedure memCommentsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
Validate procedure Validate(var AnErrMsg: string); override; Protected -

Referenced By (1)

Module (line) Referrer Type
fODAllgy (72) frmODAllergy Read