Class

TfrmOptionsPatientSelection

Module

fOptionsPatientSelection

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOptionsPatientSelection = class(TfrmBase508Form)
  pnlBottom: TPanel;
  btnOK: TButton;
  btnCancel: TButton;
  cboProvider: TORComboBox;
  cboTreating: TORComboBox;
  cboTeam: TORComboBox;
  cboWard: TORComboBox;
  cboMonday: TORComboBox;
  cboTuesday: TORComboBox;
  cboWednesday: TORComboBox;
  cboThursday: TORComboBox;
  cboFriday: TORComboBox;
  cboSaturday: TORComboBox;
  cboSunday: TORComboBox;
  txtVisitStart: TCaptionEdit;
  txtVisitStop: TCaptionEdit;
  spnVisitStart: TUpDown;
  spnVisitStop: TUpDown;
  lblClinicDays: TLabel;
  lblMonday: TLabel;
  lblTuesday: TLabel;
  lblWednesday: TLabel;
  lblThursday: TLabel;
  lblFriday: TLabel;
  lblSaturday: TLabel;
  lblSunday: TLabel;
  lblVisitStart: TLabel;
  lblVisitStop: TLabel;
  lblVisitDateRange: TMemo;
  lblInfo: TMemo;
  lbWard: TLabel;
  lblTeam: TLabel;
  lblTreating: TLabel;
  lblProvider: TLabel;
  radListSource: TRadioGroup;
  grpSortOrder: TGroupBox;
  radAlphabetical: TRadioButton;
  radRoomBed: TRadioButton;
  radAppointmentDate: TRadioButton;
  radTerminalDigit: TRadioButton;
  radSource: TRadioButton;
  bvlBottom: TBevel;
  procedure FormCreate(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure spnVisitStartClick(Sender: TObject; Button: TUDBtnType);
  procedure spnVisitStopClick(Sender: TObject; Button: TUDBtnType);
  procedure btnOKClick(Sender: TObject);
  procedure txtVisitStartExit(Sender: TObject);
  procedure txtVisitStopExit(Sender: TObject);
  procedure txtVisitStartKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure txtVisitStopKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboProviderExit(Sender: TObject);
  procedure radListSourceClick(Sender: TObject);
  procedure cboMondayNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboTuesdayNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboWednesdayNeedData(Sender: TObject;
    const StartFrom: String; Direction, InsertAt: Integer);
  procedure cboThursdayNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboFridayNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboSaturdayNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboSundayNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboProviderNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure txtVisitStartKeyPress(Sender: TObject; var Key: Char);
  procedure txtVisitStopKeyPress(Sender: TObject; var Key: Char);
  procedure cboProviderKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  { Private declarations }
  FStartEntered: boolean;
  FStopEntered: boolean;
  FProviderSpecial: boolean;   // used to avoid duplicate action on cboProviderKeyUp
public
  { Public declarations }
  procedure NextControl(Key: Char);
end;

DFM Objects


frmOptionsPatientSelection : TfrmOptionsPatientSelection
 ├lblClinicDays : TLabel
 ├lblMonday : TLabel
 ├lblTuesday : TLabel
 ├lblWednesday : TLabel
 ├lblThursday : TLabel
 ├lblFriday : TLabel
 ├lblSaturday : TLabel
 ├lblSunday : TLabel
 ├lblVisitStart : TLabel
 ├lblVisitStop : TLabel
 ├lbWard : TLabel
 ├lblTeam : TLabel
 ├lblTreating : TLabel
 ├lblProvider : TLabel
 ├lblVisitDateRange : TMemo
 ├lblInfo : TMemo
 ├pnlBottom : TPanel
 │ ├bvlBottom : TBevel
 │ ├btnOK : TButton
 │ └btnCancel : TButton
 ├cboProvider : TORComboBox
 ├cboTreating : TORComboBox
 ├cboTeam : TORComboBox
 ├cboWard : TORComboBox
 ├cboMonday : TORComboBox
 ├cboTuesday : TORComboBox
 ├cboWednesday : TORComboBox
 ├cboThursday : TORComboBox
 ├cboFriday : TORComboBox
 ├cboSaturday : TORComboBox
 ├cboSunday : TORComboBox
 ├txtVisitStart : TCaptionEdit
 ├txtVisitStop : TCaptionEdit
 ├spnVisitStart : TUpDown
 ├spnVisitStop : TUpDown
 ├radListSource : TRadioGroup
 ├grpSortOrder : TGroupBox
 │ ├radAlphabetical : TRadioButton
 │ ├radRoomBed : TRadioButton
 │ ├radAppointmentDate : TRadioButton
 │ ├radTerminalDigit : TRadioButton
 │ └radSource : TRadioButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnCancel TButton Public/Published -
btnOK TButton Public/Published -
bvlBottom TBevel Public/Published -
cboFriday TORComboBox Public/Published -
cboMonday TORComboBox Public/Published -
cboProvider TORComboBox Public/Published -
cboSaturday TORComboBox Public/Published -
cboSunday TORComboBox Public/Published -
cboTeam TORComboBox Public/Published -
cboThursday TORComboBox Public/Published -
cboTreating TORComboBox Public/Published -
cboTuesday TORComboBox Public/Published -
cboWard TORComboBox Public/Published -
cboWednesday TORComboBox Public/Published -
FProviderSpecial Boolean Private Used to avoid duplicate action on cboProviderKeyUp
FStartEntered Boolean Private Private declarations
FStopEntered Boolean Private -
grpSortOrder TGroupBox Public/Published -
lblClinicDays TLabel Public/Published -
lblFriday TLabel Public/Published -
lblInfo TMemo Public/Published -
lblMonday TLabel Public/Published -
lblProvider TLabel Public/Published -
lblSaturday TLabel Public/Published -
lblSunday TLabel Public/Published -
lblTeam TLabel Public/Published -
lblThursday TLabel Public/Published -
lblTreating TLabel Public/Published -
lblTuesday TLabel Public/Published -
lblVisitDateRange TMemo Public/Published -
lblVisitStart TLabel Public/Published -
lblVisitStop TLabel Public/Published -
lblWednesday TLabel Public/Published -
lbWard TLabel Public/Published -
pnlBottom TPanel Public/Published -
radAlphabetical TRadioButton Public/Published -
radAppointmentDate TRadioButton Public/Published -
radListSource TRadioGroup Public/Published -
radRoomBed TRadioButton Public/Published -
radSource TRadioButton Public/Published -
radTerminalDigit TRadioButton Public/Published -
spnVisitStart TUpDown Public/Published -
spnVisitStop TUpDown Public/Published -
txtVisitStart TCaptionEdit Public/Published -
txtVisitStop TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
cboFridayNeedData procedure cboFridayNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboMondayNeedData procedure cboMondayNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboProviderExit procedure cboProviderExit(Sender: TObject); Public/Published -
cboProviderKeyUp procedure cboProviderKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboProviderNeedData procedure cboProviderNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboSaturdayNeedData procedure cboSaturdayNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboSundayNeedData procedure cboSundayNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboThursdayNeedData procedure cboThursdayNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboTuesdayNeedData procedure cboTuesdayNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboWednesdayNeedData procedure cboWednesdayNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
NextControl procedure NextControl(Key: Char); Public Public declarations
radListSourceClick procedure radListSourceClick(Sender: TObject); Public/Published -
spnVisitStartClick procedure spnVisitStartClick(Sender: TObject; Button: TUDBtnType); Public/Published -
spnVisitStopClick procedure spnVisitStopClick(Sender: TObject; Button: TUDBtnType); Public/Published -
txtVisitStartExit procedure txtVisitStartExit(Sender: TObject); Public/Published -
txtVisitStartKeyPress procedure txtVisitStartKeyPress(Sender: TObject; var Key: Char); Public/Published -
txtVisitStartKeyUp procedure txtVisitStartKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
txtVisitStopExit procedure txtVisitStopExit(Sender: TObject); Public/Published -
txtVisitStopKeyPress procedure txtVisitStopKeyPress(Sender: TObject; var Key: Char); Public/Published -
txtVisitStopKeyUp procedure txtVisitStopKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptionsPatientSelection (98) frmOptionsPatientSelection Read
fOptionsPatientSelection (111) - Read
fOptionsPatientSelection (113) - Read