Class

TfrmDCSummProperties

Module

fDCSummProps

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmDCSummProperties = class(TfrmBase508Form)
  bvlConsult: TBevel;
  pnlFields: TORAutoPanel;
  lblNewTitle: TLabel;
  lblDateTime: TLabel;
  lblAuthor: TLabel;
  lblCosigner: TLabel;
  cboNewTitle: TORComboBox;
  calSumm: TORDateBox;
  cboAuthor: TORComboBox;
  cboAttending: TORComboBox;
  pnlTranscription: TORAutoPanel;
  lblTranscriptionist: TLabel;
  lblUrgency: TLabel;
  cboTranscriptionist: TORComboBox;
  cboUrgency: TORComboBox;
  pnlAdmissions: TORAutoPanel;
  cmdOK: TButton;
  cmdCancel: TButton;
  pnlLabels: TORAutoPanel;
  lblDCSumm1: TStaticText;
  lblDCSumm2: TStaticText;
  lblLocation: TLabel;
  lblDate: TLabel;
  lblType: TLabel;
  lblSummStatus: TLabel;
  lstAdmissions: TORListBox;
  procedure FormShow(Sender: TObject);
  procedure cboNewTitleNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboAuthorNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboAttendingNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure cboNewTitleExit(Sender: TObject);
  procedure cboNewTitleMouseClick(Sender: TObject);
  procedure cboNewTitleEnter(Sender: TObject);
  procedure cboAttendingExit(Sender: TObject);
  procedure cboAuthorExit(Sender: TObject);
  procedure cboAuthorMouseClick(Sender: TObject);
  procedure cboAuthorEnter(Sender: TObject);
  procedure cboNewTitleDropDownClose(Sender: TObject);
  procedure lstAdmissionsChange(Sender: TObject);
  procedure cboNewTitleDblClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure cboNewTitleChange(Sender: TObject);
private
  FCosignIEN: Int64;      // store cosigner that was passed in
  FCosignName: string;    // store cosigner that was passed in
  FDocType: Integer;      // store document type that was passed in
  FAddend: Integer;       // store IEN of note being addended (if make addendum)
  FLastAuthor: Int64;     // set by mouseclick to avoid redundant call on exit
  FLastTitle: Integer;    // set by mouseclick to avoid redundant call on exit
  FAdmitDateTime: string  ;
  FLocation: integer;
  FLocationName: string;
  FVisitStr: string;
  FEditIEN: integer;
  //FFixCursor: Boolean;    // to fix the problem where the list box is an I-bar
  FLastCosigner: Int64;      // holds cosigner from previous note (for defaulting)
  FLastCosignerName: string; // holds cosigner from previous note (for defaulting)
  FShowAdmissions: Boolean;
  FIDNoteTitlesOnly: boolean;
  procedure SetCosignerRequired;
  procedure ShowAdmissionList;
  procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT;
public
  { Public declarations }
end;

DFM Objects


frmDCSummProperties : TfrmDCSummProperties
 ├bvlConsult : TBevel
 ├pnlFields : TORAutoPanel
 │ ├lblNewTitle : TLabel
 │ ├lblDateTime : TLabel
 │ ├lblAuthor : TLabel
 │ ├lblCosigner : TLabel
 │ ├cboNewTitle : TORComboBox
 │ ├calSumm : TORDateBox
 │ ├cboAuthor : TORComboBox
 │ ├cboAttending : TORComboBox
 │ ├cmdOK : TButton
 │ └cmdCancel : TButton
 ├pnlTranscription : TORAutoPanel
 │ ├lblTranscriptionist : TLabel
 │ ├lblUrgency : TLabel
 │ ├cboTranscriptionist : TORComboBox
 │ └cboUrgency : TORComboBox
 ├pnlAdmissions : TORAutoPanel
 │ └lstAdmissions : TORListBox
 ├pnlLabels : TORAutoPanel
 │ ├lblLocation : TLabel
 │ ├lblDate : TLabel
 │ ├lblType : TLabel
 │ ├lblSummStatus : TLabel
 │ ├lblDCSumm1 : TStaticText
 │ └lblDCSumm2 : TStaticText
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
bvlConsult TBevel Public/Published -
calSumm TORDateBox Public/Published -
cboAttending TORComboBox Public/Published -
cboAuthor TORComboBox Public/Published -
cboNewTitle TORComboBox Public/Published -
cboTranscriptionist TORComboBox Public/Published -
cboUrgency TORComboBox Public/Published -
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
FAddend Integer Private Store IEN of note being addended (if make addendum)
FAdmitDateTime UnicodeString Private -
FCosignIEN Int64 Private Store cosigner that was passed in
FCosignName UnicodeString Private Store cosigner that was passed in
FDocType Integer Private Store document type that was passed in
FEditIEN Integer Private -
FIDNoteTitlesOnly Boolean Private -
FLastAuthor Int64 Private Set by mouseclick to avoid redundant call on exit
FLastCosigner Int64 Private
FFixCursor: Boolean;    // to fix the problem where the list box is an I-bar

 holds cosigner from previous note (for defaulting)
FLastCosignerName UnicodeString Private Holds cosigner from previous note (for defaulting)
FLastTitle Integer Private Set by mouseclick to avoid redundant call on exit
FLocation Integer Private -
FLocationName UnicodeString Private -
FShowAdmissions Boolean Private -
FVisitStr UnicodeString Private -
lblAuthor TLabel Public/Published -
lblCosigner TLabel Public/Published -
lblDate TLabel Public/Published -
lblDateTime TLabel Public/Published -
lblDCSumm1 TStaticText Public/Published -
lblDCSumm2 TStaticText Public/Published -
lblLocation TLabel Public/Published -
lblNewTitle TLabel Public/Published -
lblSummStatus TLabel Public/Published -
lblTranscriptionist TLabel Public/Published -
lblType TLabel Public/Published -
lblUrgency TLabel Public/Published -
lstAdmissions TORListBox Public/Published -
pnlAdmissions TORAutoPanel Public/Published -
pnlFields TORAutoPanel Public/Published -
pnlLabels TORAutoPanel Public/Published -
pnlTranscription TORAutoPanel Public/Published -

Methods

Name Declaration Scope Comments
cboAttendingExit procedure cboAttendingExit(Sender: TObject); Public/Published Make sure FCosign fields stay up to date in case SetCosigner gets called again
cboAttendingNeedData procedure cboAttendingNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboAuthorEnter procedure cboAuthorEnter(Sender: TObject); Public/Published -
cboAuthorExit procedure cboAuthorExit(Sender: TObject); Public/Published -
cboAuthorMouseClick procedure cboAuthorMouseClick(Sender: TObject); Public/Published -
cboAuthorNeedData procedure cboAuthorNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published CboAuthor & cboAttending events
cboNewTitleChange procedure cboNewTitleChange(Sender: TObject); Public/Published -
cboNewTitleDblClick procedure cboNewTitleDblClick(Sender: TObject); Public/Published -
cboNewTitleDropDownClose procedure cboNewTitleDropDownClose(Sender: TObject); Public/Published -
cboNewTitleEnter procedure cboNewTitleEnter(Sender: TObject); Public/Published -
cboNewTitleExit procedure cboNewTitleExit(Sender: TObject); Public/Published -
cboNewTitleMouseClick procedure cboNewTitleMouseClick(Sender: TObject); Public/Published -
cboNewTitleNeedData procedure cboNewTitleNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published CboNewTitle events
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published Command Button events
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published Form events
lstAdmissionsChange procedure lstAdmissionsChange(Sender: TObject); Public/Published -
SetCosignerRequired procedure SetCosignerRequired; Private
General calls 

 called initially & whenever title or author changes
ShowAdmissionList procedure ShowAdmissionList; Private -
UMDelayEvent procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT; Private
Let the window finish displaying before dropping list box, otherwise listbox drop
  in the design position rather then new windows position (ORCtrls bug?)

Referenced By (2)

Module (line) Referrer Type
fDCSummProps (122) - Read
fDCSummProps (125) - Read