Class

TfrmODBase

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Inherited by

TfrmODAllergy
TfrmODAuto
TfrmODBBank
TfrmODCslt
TfrmODDiet
TfrmODGen
TfrmODLab
TfrmODMedIn
TfrmODMedIV
TfrmODMedNVA
TfrmODMedOut
TfrmODMeds
TfrmODMisc
TfrmODProc
TfrmODRad
TfrmODText
TfrmODVitals

Declaration


TfrmODBase = class(TfrmAutoSz)
  memOrder: TCaptionMemo;
  cmdAccept: TButton;
  cmdQuit: TButton;
  pnlMessage: TPanel;
  imgMessage: TImage;
  memMessage: TRichEdit;
  procedure cmdQuitClick(Sender: TObject);
  procedure cmdAcceptClick(Sender: TObject);
  procedure FormKeyPress(Sender: TObject; var Key: Char);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  procedure memMessageMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure pnlMessageExit(Sender: TObject);
  procedure pnlMessageMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure pnlMessageMouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
private
  FIsSupply:  Boolean;
  FAbortOrder:   Boolean;
  FAllowQO:      Boolean;
  FAutoAccept:   Boolean;
  FClosing:      Boolean;
  FChanging:     Boolean;
  FDialogIEN:    Integer;
  FDisplayGroup: Integer;
  FFillerID:     string;
  FFromQuit:     Boolean;
  FAcceptOK:     Boolean;
  FCtrlInits:    TCtrlInits;
  FResponses:    TResponses;
  FPreserve:     TList;
  FRefNum:       Integer;
  FOrderAction:  Integer;
  FKeyVariables: string;
  FCallOnExit:   TCallOnExit;
  FTestMode:     Boolean;
  FDlgFormID:    Integer;
  FDfltCopay:    String;
  FEvtForPassDischarge:  Char;
  FEvtID    :    Integer;
  FEvtType  :    Char;
  FEvtName  :    string;
  FIncludeOIPI:  boolean;
  FIsIMO:        boolean;  //imo
  FMessageClickX: integer;
  FMessageClickY: integer;
  function AcceptOrderChecks: Boolean;
  procedure ClearDialogControls;
  function GetKeyVariable(const Index: string): string;
  function GetEffectiveDate: TFMDateTime;
  procedure SetDisplayGroup(Value: Integer);
  procedure SetFillerID(const Value: string);
  procedure DoSetFontSize( FontSize: integer);
protected
  function LESValidationCheck: boolean;
  procedure InitDialog; virtual;
  procedure SetDialogIEN(Value: Integer); virtual;
  procedure Validate(var AnErrMsg: string); virtual;
  procedure updateSig; virtual;
  function ValidSave: Boolean;
  procedure ShowOrderMessage(Show: boolean);
public
  function OrderForInpatient: Boolean;
  procedure SetDefaultCoPay(AnOrderID: string);
  procedure OrderMessage(const AMessage: string);
  procedure PreserveControl(AControl: TControl);
  procedure SetupDialog(OrderAction: Integer; const ID: string); virtual;
  procedure SetFontSize( FontSize: integer); virtual;
  procedure SetKeyVariables(const VarStr: string);
  procedure TabClose(var CanClose: Boolean);
  property AbortOrder:  Boolean       read FAbortOrder   write FAbortOrder;
  property AcceptOK:  Boolean         read FAcceptOK;
  property AllowQuickOrder: Boolean   read FAllowQO      write FAllowQO;
  property AutoAccept: Boolean        read FAutoAccept   write FAutoAccept;
  property CallOnExit: TCallOnExit    read FCallOnExit   write FCallOnExit;
  property Changing:  Boolean         read FChanging     write FChanging;
  property Closing:   Boolean         read FClosing;
  property CtrlInits: TCtrlInits      read FCtrlInits    write FCtrlInits;
  property DialogIEN: Integer         read FDialogIEN    write SetDialogIEN;
  property DisplayGroup: Integer      read FDisplayGroup write SetDisplayGroup;
  property EffectiveDate: TFMDateTime read GetEffectiveDate;
  property FillerID: string           read FFillerID     write SetFillerID;
  property KeyVariable[const Index: string]: string read GetKeyVariable;
  property RefNum: Integer            read FRefNum       write FRefNum;
  property Responses: TResponses      read FResponses    write FResponses;
  property TestMode: Boolean          read FTestMode     write FTestMode;
  property DlgFormID: Integer         read FDlgFormID    write FDlgFormID;
  property DfltCopay: string          read FDfltCopay    write FDfltCopay;
  property EvtForPassDischarge: Char  read FEvtForPassDischarge  write FEvtForPassDischarge;
  property EvtID: integer             read FEvtID        write FEvtID;
  property EvtType: Char              read FEvtType      write FEvtType;
  property EvtName: String            read FEvtName      write FEvtName;
  property IncludeOIPI: boolean       read FIncludeOIPI  write FIncludeOIPI;
  property IsIMO:boolean              read FIsIMO        write FIsIMO;
  property IsSupply: boolean          read FIsSupply     write FIsSupply;
end;

DFM Objects


frmODBase : TfrmODBase
 ├memOrder : TCaptionMemo
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 │ ├imgMessage : TImage
 │ └memMessage : TRichEdit
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdAccept TButton Public/Published -
cmdQuit TButton Public/Published -
FAbortOrder Boolean Private -
FAcceptOK Boolean Private -
FAllowQO Boolean Private -
FAutoAccept Boolean Private -
FCallOnExit Private -
FChanging Boolean Private -
FClosing Boolean Private -
FCtrlInits TCtrlInits Private -
FDfltCopay UnicodeString Private -
FDialogIEN Integer Private -
FDisplayGroup Integer Private -
FDlgFormID Integer Private -
FEvtForPassDischarge Char Private -
FEvtID Integer Private -
FEvtName UnicodeString Private -
FEvtType Char Private -
FFillerID UnicodeString Private -
FFromQuit Boolean Private -
FIncludeOIPI Boolean Private -
FIsIMO Boolean Private Imo
FIsSupply Boolean Private -
FKeyVariables UnicodeString Private -
FMessageClickX Integer Private -
FMessageClickY Integer Private -
FOrderAction Integer Private -
FPreserve TList Private -
FRefNum Integer Private -
FResponses TResponses Private -
FTestMode Boolean Private -
imgMessage Simple (unknown) Public/Published -
memMessage Simple (unknown) Public/Published -
memOrder Simple (unknown) Public/Published -
pnlMessage TPanel Public/Published -

Properties

Name Type Scope Comments
AbortOrder Boolean Public -
AcceptOK Boolean Public -
AllowQuickOrder Boolean Public -
AutoAccept Boolean Public -
CallOnExit Public -
Changing Boolean Public -
Closing Boolean Public -
CtrlInits TCtrlInits Public -
DfltCopay UnicodeString Public -
DialogIEN Integer Public -
DisplayGroup Integer Public -
DlgFormID Integer Public -
EffectiveDate TFMDateTime Public -
EvtForPassDischarge Char Public -
EvtID Integer Public -
EvtName UnicodeString Public -
EvtType Char Public -
FillerID UnicodeString Public -
IncludeOIPI Boolean Public -
IsIMO Boolean Public -
IsSupply Boolean Public -
KeyVariable Array (static) Public -
RefNum Integer Public -
Responses TResponses Public -
TestMode Boolean Public -

Methods

Name Declaration Scope Comments
AcceptOrderChecks function AcceptOrderChecks: Boolean; Private
Accept & Quit Buttons 

 returns True if order was accepted with order checks, false if order should be cancelled
ClearDialogControls procedure ClearDialogControls; Private Private calls
cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); Public/Published -
cmdQuitClick procedure cmdQuitClick(Sender: TObject); Public/Published -
DoSetFontSize procedure DoSetFontSize( FontSize: integer); Private -
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 Form Calls
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormKeyPress procedure FormKeyPress(Sender: TObject; var Key: Char); Public/Published Causes RETURN to be treated as pressing a tab key (need to have user preference)
GetEffectiveDate function GetEffectiveDate: TFMDateTime; Private -
GetKeyVariable function GetKeyVariable(const Index: string): string; Private -
InitDialog procedure InitDialog; virtual; Protected Protected Calls (used by descendant forms)
LESValidationCheck function LESValidationCheck: boolean; Protected -
memMessageMouseUp procedure memMessageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
OrderForInpatient function OrderForInpatient: Boolean; Public -
OrderMessage procedure OrderMessage(const AMessage: string); Public Caller needs to set pnlMessage.TabOrder
pnlMessageExit procedure pnlMessageExit(Sender: TObject); Public/Published -
pnlMessageMouseDown procedure pnlMessageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlMessageMouseMove procedure pnlMessageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
PreserveControl procedure PreserveControl(AControl: TControl); Public -
SetDefaultCoPay procedure SetDefaultCoPay(AnOrderID: string); Public -
SetDialogIEN procedure SetDialogIEN(Value: Integer); virtual; Protected -
SetDisplayGroup procedure SetDisplayGroup(Value: Integer); Private -
SetFillerID procedure SetFillerID(const Value: string); Private -
SetFontSize procedure SetFontSize( FontSize: integer); virtual; Public -
SetKeyVariables procedure SetKeyVariables(const VarStr: string); Public -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); virtual; Public -
ShowOrderMessage procedure ShowOrderMessage(Show: boolean); Protected -
TabClose procedure TabClose(var CanClose: Boolean); Public -
updateSig procedure updateSig; virtual; Protected -
Validate procedure Validate(var AnErrMsg: string); virtual; Protected -
ValidSave function ValidSave: Boolean; Protected ThisSourceOrder: TOrder;

Referenced By (26)

Module (line) Referrer Type
fODAllgy (11) TfrmODAllergy Read
fODAuto (11) TfrmODAuto Read
fODBase (226) frmODBase Read
fODBBank (10) TfrmODBBank Read
fODConsult (14) TfrmODCslt Read
fODConsult (139) CanFreeConsultDialog Read
fODConsult (185) - Read
fODDiet (11) TfrmODDiet Read
fODGen (22) TfrmODGen Read
fODLab (11) TfrmODLab Read
fODMedIn (13) TfrmODMedIn Read
fODMedIV (11) TfrmODMedIV Read
fODMedNVA (17) TfrmODMedNVA Read
fODMedOut (11) TfrmODMedOut Read
fODMeds (16) TfrmODMeds Read
fODMisc (11) TfrmODMisc Read
fODProc (11) TfrmODProc Read
fODProc (98) CanFreeProcDialog Read
fODProc (132) - Read
fODRad (11) TfrmODRad Read
fODText (11) TfrmODText Read
fODVitals (11) TfrmODVitals Read
uOrders (119) uOrderDialog Read
uOrders (176) CreateOrderDialog Read
uOrders (179) - Read
uOrders (567) GMRCCanCloseDialog Read