Class

TfrmNoteProperties

Module

fNoteProps

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmNoteProperties = class(TfrmBase508Form)
  lblNewTitle: TLabel;
  cboNewTitle: TORComboBox;
  lblDateTime: TLabel;
  calNote: TORDateBox;
  lblAuthor: TLabel;
  cboAuthor: TORComboBox;
  lblCosigner: TLabel;
  cboCosigner: TORComboBox;
  cmdOK: TButton;
  cmdCancel: TButton;
  pnlConsults: TORAutoPanel;
  lblConsult1: TLabel;
  lblConsult2: TLabel;
  lblCsltDate: TLabel;
  lblCsltServ: TLabel;
  lblCsltProc: TLabel;
  lblCsltStat: TLabel;
  lblCsltNotes: TLabel;
  lstRequests: TORListBox;
  bvlConsult: TBevel;
  pnlSurgery: TORAutoPanel;
  lblSurgery1: TStaticText;
  lblSurgery2: TStaticText;
  lblSurgDate: TLabel;
  lblSurgProc: TLabel;
  lblSurgeon: TLabel;
  lstSurgery: TORListBox;
  bvlSurgery: TBevel;
  cboProcSummCode: TORComboBox;
  lblProcSummCode: TOROffsetLabel;
  calProcDateTime: TORDateBox;
  lblProcDateTime: TOROffsetLabel;
  btnShowList: TButton;
  pnlPRF: TORAutoPanel;
  lblPRF: TLabel;
  Bevel1: TBevel;
  lvPRF: TCaptionListView;
  btnDetails: TButton;
  procedure FormShow(Sender: TObject);
  procedure cboNewTitleNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure NewPersonNeedData(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 cboCosignerExit(Sender: TObject);
  procedure cboAuthorExit(Sender: TObject);
  procedure cboAuthorMouseClick(Sender: TObject);
  procedure cboAuthorEnter(Sender: TObject);
  procedure cboNewTitleDropDownClose(Sender: TObject);
  procedure cboNewTitleDblClick(Sender: TObject);
  procedure cboCosignerNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure btnShowListClick(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure calNoteEnter(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure btnDetailsClick(Sender: TObject);
  procedure lstRequestsChange(Sender: TObject);
private
  FIsNewNote : Boolean;     // Is set at the begining of the function: ExecuteNoteProperties
  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
  //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)
  FCallingTab: integer;
  FIDNoteTitlesOnly: boolean;
  FToday: string;
  FClassName: string;
  FIsClinProcNote: boolean;
  FProcSummCode: integer;
  FProcDateTime: TFMDateTime;
  FCPStatusFlag: integer;
  FPRFActions : TPRFActions;
  FStarting: boolean;
  procedure SetCosignerRequired(DoSetup: boolean);
  procedure FormatRequestList;
  procedure ShowRequestList(ShouldShow: Boolean);
  procedure ShowSurgCaseList(ShouldShow: Boolean);
  procedure ShowPRFList(ShouldShow: Boolean);
  procedure ShowClinProcFields(YesNo: boolean);
  procedure SetGenericFormSize;
  procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT;
public
  { Public declarations }

end;

DFM Objects


frmNoteProperties : TfrmNoteProperties
 ├lblNewTitle : TLabel
 ├lblDateTime : TLabel
 ├lblAuthor : TLabel
 ├lblCosigner : TLabel
 ├lblProcSummCode : TOROffsetLabel
 ├lblProcDateTime : TOROffsetLabel
 ├cboNewTitle : TORComboBox
 ├calNote : TORDateBox
 ├cboAuthor : TORComboBox
 ├cboCosigner : TORComboBox
 ├cmdOK : TButton
 ├cmdCancel : TButton
 ├cboProcSummCode : TORComboBox
 ├calProcDateTime : TORDateBox
 ├pnlSurgery : TORAutoPanel
 │ ├lblSurgDate : TLabel
 │ ├lblSurgProc : TLabel
 │ ├lblSurgeon : TLabel
 │ ├bvlSurgery : TBevel
 │ ├lblSurgery1 : TStaticText
 │ ├lblSurgery2 : TStaticText
 │ └lstSurgery : TORListBox
 ├pnlConsults : TORAutoPanel
 │ ├lblConsult1 : TLabel
 │ ├lblConsult2 : TLabel
 │ ├lblCsltDate : TLabel
 │ ├lblCsltServ : TLabel
 │ ├lblCsltProc : TLabel
 │ ├lblCsltStat : TLabel
 │ ├lblCsltNotes : TLabel
 │ ├bvlConsult : TBevel
 │ ├lstRequests : TORListBox
 │ ├btnShowList : TButton
 │ └btnDetails : TButton
 ├pnlPRF : TORAutoPanel
 │ ├lblPRF : TLabel
 │ ├Bevel1 : TBevel
 │ └lvPRF : TCaptionListView
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 TBevel Public/Published -
btnDetails TButton Public/Published -
btnShowList TButton Public/Published -
bvlConsult TBevel Public/Published -
bvlSurgery TBevel Public/Published -
calNote TORDateBox Public/Published -
calProcDateTime TORDateBox Public/Published -
cboAuthor TORComboBox Public/Published -
cboCosigner TORComboBox Public/Published -
cboNewTitle TORComboBox Public/Published -
cboProcSummCode TORComboBox Public/Published -
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
FAddend Integer Private Store IEN of note being addended (if make addendum)
FCallingTab Integer Private -
FClassName UnicodeString Private -
FCosignIEN Int64 Private Store cosigner that was passed in
FCosignName UnicodeString Private Store cosigner that was passed in
FCPStatusFlag Integer Private -
FDocType Integer Private Store document type that was passed in
FIDNoteTitlesOnly Boolean Private -
FIsClinProcNote Boolean Private -
FIsNewNote Boolean Private Is set at the begining of the function: ExecuteNoteProperties
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
FPRFActions TPRFActions Private -
FProcDateTime TFMDateTime Private -
FProcSummCode Integer Private -
FStarting Boolean Private -
FToday UnicodeString Private -
lblAuthor TLabel Public/Published -
lblConsult1 TLabel Public/Published -
lblConsult2 TLabel Public/Published -
lblCosigner TLabel Public/Published -
lblCsltDate TLabel Public/Published -
lblCsltNotes TLabel Public/Published -
lblCsltProc TLabel Public/Published -
lblCsltServ TLabel Public/Published -
lblCsltStat TLabel Public/Published -
lblDateTime TLabel Public/Published -
lblNewTitle TLabel Public/Published -
lblPRF TLabel Public/Published -
lblProcDateTime TOROffsetLabel Public/Published -
lblProcSummCode TOROffsetLabel Public/Published -
lblSurgDate TLabel Public/Published -
lblSurgeon TLabel Public/Published -
lblSurgery1 TStaticText Public/Published -
lblSurgery2 TStaticText Public/Published -
lblSurgProc TLabel Public/Published -
lstRequests TORListBox Public/Published -
lstSurgery TORListBox Public/Published -
lvPRF TCaptionListView Public/Published -
pnlConsults TORAutoPanel Public/Published -
pnlPRF TORAutoPanel Public/Published -
pnlSurgery TORAutoPanel Public/Published -

Methods

Name Declaration Scope Comments
btnDetailsClick procedure btnDetailsClick(Sender: TObject); Public/Published -
btnShowListClick procedure btnShowListClick(Sender: TObject); Public/Published -
calNoteEnter procedure calNoteEnter(Sender: TObject); Public/Published -
cboAuthorEnter procedure cboAuthorEnter(Sender: TObject); Public/Published -
cboAuthorExit procedure cboAuthorExit(Sender: TObject); Public/Published -
cboAuthorMouseClick procedure cboAuthorMouseClick(Sender: TObject); Public/Published -
cboCosignerExit procedure cboCosignerExit(Sender: TObject); Public/Published
Make sure FCosign fields stay up to date in case SetCosigner gets called again 
var x: string;
cboCosignerNeedData procedure cboCosignerNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); 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
FormatRequestList procedure FormatRequestList; Private -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published Form events
lstRequestsChange procedure lstRequestsChange(Sender: TObject); Public/Published -
NewPersonNeedData procedure NewPersonNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published CboAuthor & cboCosigner events
SetCosignerRequired procedure SetCosignerRequired(DoSetup: boolean); Private
General calls 

 called initially & whenever title or author changes
SetGenericFormSize procedure SetGenericFormSize; Private -
ShowClinProcFields procedure ShowClinProcFields(YesNo: boolean); Private -
ShowPRFList procedure ShowPRFList(ShouldShow: Boolean); Private -
ShowRequestList procedure ShowRequestList(ShouldShow: Boolean); Private Called initially & whenever title changes
ShowSurgCaseList procedure ShowSurgCaseList(ShouldShow: Boolean); Private Called initially & whenever title changes
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
fNoteProps (212) - Read
fNoteProps (214) - Read