Class

TfrmARTAllergy

Module

fARTAllgy

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmOMAction

Declaration


TfrmARTAllergy = class(TfrmOMAction)
  pnlBase: TORAutoPanel;
  cmdOK: TButton;
  cmdCancel: TButton;
  pgAllergy: TPageControl;
  tabGeneral: TTabSheet;
  tabVerify: TTabSheet;
  ckNoKnownAllergies: TCheckBox;
  btnCurrent: TButton;
  lblAgent: TOROffsetLabel;
  lstAllergy: TORListBox;
  btnAgent1: TSpeedButton;
  lblOriginator: TOROffsetLabel;
  cboOriginator: TORComboBox;
  lblOriginateDate: TOROffsetLabel;
  calOriginated: TORDateBox;
  ckChartMarked: TCheckBox;
  ckIDBand: TCheckBox;
  lblVerifier: TOROffsetLabel;
  ckVerified: TCheckBox;
  cboVerifier: TORComboBox;
  calVerifyDate: TORDateBox;
  lblVerifyDate: TOROffsetLabel;
  Bevel1: TBevel;
  lblSymptoms: TOROffsetLabel;
  cboSymptoms: TORComboBox;
  lblSelectedSymptoms: TOROffsetLabel;
  lstSelectedSymptoms: TORListBox;
  btnRemove: TButton;
  grpObsHist: TRadioGroup;
  lblSeverity: TOROffsetLabel;
  cboSeverity: TORComboBox;
  lblObservedDate: TOROffsetLabel;
  calObservedDate: TORDateBox;
  cmdPrevObs: TButton;
  lblComments: TOROffsetLabel;
  memComments: TRichEdit;
  cmdPrevCmts: TButton;
  tabEnteredInError: TTabSheet;
  ckEnteredInError: TCheckBox;
  memErrCmts: TRichEdit;
  lblErrCmts: TLabel;
  lblEnteredInError: TLabel;
  lblAllergyType: TOROffsetLabel;
  cboAllergyType: TORComboBox;
  cboNatureOfReaction: TORComboBox;
  lblNatureOfReaction: TOROffsetLabel;
  btnSevHelp: TORAlignButton;
  VA508ComponentAccessibility1: TVA508ComponentAccessibility;
  VA508ComponentAccessibility2: TVA508ComponentAccessibility;
  origlbl508: TVA508StaticText;
  origdtlbl508: TVA508StaticText;
  SymptomDateBox: TORDateBox;
  btnAgent: TButton;
  VA508ComponentAccessibility3: TVA508ComponentAccessibility;
  NoAllergylbl508: TVA508StaticText;
  procedure btnAgent1Click(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 cmdOKClick(Sender: TObject);
  procedure btnCurrentClick(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure lstAllergyClick(Sender: TObject);
  procedure cboSymptomsMouseClick(Sender: TObject);
  procedure cboSymptomsKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cmdCancelClick(Sender: TObject);
  procedure cmdPrevCmtsClick(Sender: TObject);
  procedure cmdPrevObsClick(Sender: TObject);
  procedure lstSelectedSymptomsChange(Sender: TObject);
  procedure cboVerifierNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  procedure btnSevHelpClick(Sender: TObject);
  procedure VA508ComponentAccessibility1StateQuery(Sender: TObject;
    var Text: string);
  procedure VA508ComponentAccessibility2ValueQuery(Sender: TObject;
    var Text: string);
  procedure VA508ComponentAccessibility2StateQuery(Sender: TObject;
    var Text: string);
  procedure VA508ComponentAccessibility2ItemInstructionsQuery(Sender: TObject;
    var Text: string);
  procedure VA508ComponentAccessibility2ItemQuery(Sender: TObject;
    var Item: TObject);
  procedure VA508ComponentAccessibility2InstructionsQuery(Sender: TObject;
    var Text: string);
  procedure VA508ComponentAccessibility2ComponentNameQuery(Sender: TObject;
    var Text: string);
  procedure VA508ComponentAccessibility2CaptionQuery(Sender: TObject;
    var Text: string);
  procedure SymptomDateBoxExit(Sender: TObject);
  procedure SymptomDateBoxDateDialogClosed(Sender: TObject);
  procedure calObservedDateExit(Sender: TObject);
  procedure VA508ComponentAccessibility3StateQuery(Sender: TObject;
    var Text: string);
  procedure memErrCmtsExit(Sender: TObject);
private
  FLastAllergyID: string;
  FEditAllergyIEN: integer;
  FNKAOrder: boolean;
  FChanged: Boolean;
  FOldHintPause : integer;
  procedure SetDate;
protected
  procedure EnableDisableControls(EnabledStatus: boolean);
  procedure InitDialog; override;
  procedure Validate(var AnErrMsg: string);
  function  ValidSave: Boolean;
  procedure SetupDialog;
  procedure SetupVerifyFields(ARec: TAllergyRec);
  procedure SetUpEnteredInErrorFields(ARec: TAllergyRec);
end;

DFM Objects


frmARTAllergy : TfrmARTAllergy
 ├pnlBase : TORAutoPanel
 │ ├lblAllergyType : TOROffsetLabel
 │ ├cmdOK : TButton
 │ ├cmdCancel : TButton
 │ ├pgAllergy : TPageControl
 │ │ ├tabGeneral : TTabSheet
 │ │ │ ├lblAgent : TOROffsetLabel
 │ │ │ ├btnAgent1 : TSpeedButton
 │ │ │ ├lblOriginator : TOROffsetLabel
 │ │ │ ├lblOriginateDate : TOROffsetLabel
 │ │ │ ├Bevel1 : TBevel
 │ │ │ ├lblSymptoms : TOROffsetLabel
 │ │ │ ├lblSelectedSymptoms : TOROffsetLabel
 │ │ │ ├lblSeverity : TOROffsetLabel
 │ │ │ ├lblObservedDate : TOROffsetLabel
 │ │ │ ├lblComments : TOROffsetLabel
 │ │ │ ├lblNatureOfReaction : TOROffsetLabel
 │ │ │ ├ckNoKnownAllergies : TCheckBox
 │ │ │ ├btnCurrent : TButton
 │ │ │ ├lstAllergy : TORListBox
 │ │ │ ├cboOriginator : TORComboBox
 │ │ │ ├calOriginated : TORDateBox
 │ │ │ ├ckChartMarked : TCheckBox
 │ │ │ ├ckIDBand : TCheckBox
 │ │ │ ├cboSymptoms : TORComboBox
 │ │ │ ├lstSelectedSymptoms : TORListBox
 │ │ │ ├btnRemove : TButton
 │ │ │ ├grpObsHist : TRadioGroup
 │ │ │ ├cboSeverity : TORComboBox
 │ │ │ ├calObservedDate : TORDateBox
 │ │ │ ├cmdPrevObs : TButton
 │ │ │ ├memComments : TRichEdit
 │ │ │ ├cmdPrevCmts : TButton
 │ │ │ ├cboNatureOfReaction : TORComboBox
 │ │ │ ├btnSevHelp : TORAlignButton
 │ │ │ ├origlbl508 : TVA508StaticText
 │ │ │ ├origdtlbl508 : TVA508StaticText
 │ │ │ ├SymptomDateBox : TORDateBox
 │ │ │ ├btnAgent : TButton
 │ │ │ └NoAllergylbl508 : TVA508StaticText
 │ │ ├tabVerify : TTabSheet
 │ │ │ ├lblVerifier : TOROffsetLabel
 │ │ │ ├lblVerifyDate : TOROffsetLabel
 │ │ │ ├ckVerified : TCheckBox
 │ │ │ ├cboVerifier : TORComboBox
 │ │ │ └calVerifyDate : TORDateBox
 │ │ └tabEnteredInError : TTabSheet
 │ │   ├lblErrCmts : TLabel
 │ │   ├lblEnteredInError : TLabel
 │ │   ├ckEnteredInError : TCheckBox
 │ │   └memErrCmts : TRichEdit
 │ └cboAllergyType : TORComboBox
 ├amgrMain : TVA508AccessibilityManager
 ├VA508ComponentAccessibility1 : TVA508ComponentAccessibility
 ├VA508ComponentAccessibility2 : TVA508ComponentAccessibility
 └VA508ComponentAccessibility3 : TVA508ComponentAccessibility

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 Simple (unknown) Public/Published -
btnAgent TButton Public/Published -
btnAgent1 Simple (unknown) Public/Published -
btnCurrent TButton Public/Published -
btnRemove TButton Public/Published -
btnSevHelp Simple (unknown) Public/Published -
calObservedDate TORDateBox Public/Published -
calOriginated TORDateBox Public/Published -
calVerifyDate TORDateBox Public/Published -
cboAllergyType TORComboBox Public/Published -
cboNatureOfReaction TORComboBox Public/Published -
cboOriginator TORComboBox Public/Published -
cboSeverity TORComboBox Public/Published -
cboSymptoms TORComboBox Public/Published -
cboVerifier TORComboBox Public/Published -
ckChartMarked TCheckBox Public/Published -
ckEnteredInError TCheckBox Public/Published -
ckIDBand TCheckBox Public/Published -
ckNoKnownAllergies TCheckBox Public/Published -
ckVerified TCheckBox Public/Published -
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
cmdPrevCmts TButton Public/Published -
cmdPrevObs TButton Public/Published -
FChanged Boolean Private -
FEditAllergyIEN Integer Private -
FLastAllergyID UnicodeString Private -
FNKAOrder Boolean Private -
FOldHintPause Integer Private -
grpObsHist Simple (unknown) Public/Published -
lblAgent TOROffsetLabel Public/Published -
lblAllergyType TOROffsetLabel Public/Published -
lblComments TOROffsetLabel Public/Published -
lblEnteredInError TLabel Public/Published -
lblErrCmts TLabel Public/Published -
lblNatureOfReaction TOROffsetLabel Public/Published -
lblObservedDate TOROffsetLabel Public/Published -
lblOriginateDate TOROffsetLabel Public/Published -
lblOriginator TOROffsetLabel Public/Published -
lblSelectedSymptoms TOROffsetLabel Public/Published -
lblSeverity TOROffsetLabel Public/Published -
lblSymptoms TOROffsetLabel Public/Published -
lblVerifier TOROffsetLabel Public/Published -
lblVerifyDate TOROffsetLabel Public/Published -
lstAllergy TORListBox Public/Published -
lstSelectedSymptoms TORListBox Public/Published -
memComments TRichEdit Public/Published -
memErrCmts TRichEdit Public/Published -
NoAllergylbl508 TVA508StaticText Public/Published -
origdtlbl508 TVA508StaticText Public/Published -
origlbl508 TVA508StaticText Public/Published -
pgAllergy Simple (unknown) Public/Published -
pnlBase TORAutoPanel Public/Published -
SymptomDateBox TORDateBox Public/Published -
tabEnteredInError Simple (unknown) Public/Published -
tabGeneral Simple (unknown) Public/Published -
tabVerify Simple (unknown) Public/Published -
VA508ComponentAccessibility1 TVA508ComponentAccessibility Public/Published -
VA508ComponentAccessibility2 TVA508ComponentAccessibility Public/Published -
VA508ComponentAccessibility3 TVA508ComponentAccessibility Public/Published -

Methods

Name Declaration Scope Comments
btnAgent1Click procedure btnAgent1Click(Sender: TObject); Public/Published -
btnCurrentClick procedure btnCurrentClick(Sender: TObject); Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
btnSevHelpClick procedure btnSevHelpClick(Sender: TObject); Public/Published -
calObservedDateExit procedure calObservedDateExit(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 -
cboVerifierNeedData procedure cboVerifierNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
ckNoKnownAllergiesClick procedure ckNoKnownAllergiesClick(Sender: TObject); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
cmdPrevCmtsClick procedure cmdPrevCmtsClick(Sender: TObject); Public/Published -
cmdPrevObsClick procedure cmdPrevObsClick(Sender: TObject); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Public/Published -
EnableDisableControls procedure EnableDisableControls(EnabledStatus: boolean); Protected -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCloseQuery procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); 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 ErrMsg: string;
lstAllergyClick procedure lstAllergyClick(Sender: TObject); Public/Published -
lstAllergySelect procedure lstAllergySelect(Sender: TObject); Public/Published -
lstSelectedSymptomsChange procedure lstSelectedSymptomsChange(Sender: TObject); Public/Published -
memCommentsExit procedure memCommentsExit(Sender: TObject); Public/Published -
memErrCmtsExit procedure memErrCmtsExit(Sender: TObject); Public/Published -
SetDate procedure SetDate; Private -
SetupDialog procedure SetupDialog; Protected -
SetUpEnteredInErrorFields procedure SetUpEnteredInErrorFields(ARec: TAllergyRec); Protected -
SetupVerifyFields procedure SetupVerifyFields(ARec: TAllergyRec); Protected -
SymptomDateBoxDateDialogClosed procedure SymptomDateBoxDateDialogClosed(Sender: TObject); Public/Published -
SymptomDateBoxExit procedure SymptomDateBoxExit(Sender: TObject); Public/Published -
VA508ComponentAccessibility1StateQuery procedure VA508ComponentAccessibility1StateQuery(Sender: TObject; var Text: string); Public/Published -
VA508ComponentAccessibility2CaptionQuery procedure VA508ComponentAccessibility2CaptionQuery(Sender: TObject; var Text: string); Public/Published -
VA508ComponentAccessibility2ComponentNameQuery procedure VA508ComponentAccessibility2ComponentNameQuery(Sender: TObject; var Text: string); Public/Published -
VA508ComponentAccessibility2InstructionsQuery procedure VA508ComponentAccessibility2InstructionsQuery(Sender: TObject; var Text: string); Public/Published -
VA508ComponentAccessibility2ItemInstructionsQuery procedure VA508ComponentAccessibility2ItemInstructionsQuery(Sender: TObject; var Text: string); Public/Published -
VA508ComponentAccessibility2ItemQuery procedure VA508ComponentAccessibility2ItemQuery(Sender: TObject; var Item: TObject); Public/Published -
VA508ComponentAccessibility2StateQuery procedure VA508ComponentAccessibility2StateQuery(Sender: TObject; var Text: string); Public/Published -
VA508ComponentAccessibility2ValueQuery procedure VA508ComponentAccessibility2ValueQuery(Sender: TObject; var Text: string); Public/Published -
VA508ComponentAccessibility3StateQuery procedure VA508ComponentAccessibility3StateQuery(Sender: TObject; var Text: string); Public/Published -
Validate procedure Validate(var AnErrMsg: string); Protected -
ValidSave function ValidSave: Boolean; Protected -

Referenced By (2)

Module (line) Referrer Type
fARTAllgy (141) frmARTAllergy Read
fARTAllgy (232) - Read