Class

TfrmODGen

Module

fODGen

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODGen = class(TfrmODBase)
  sbxMain: TScrollBox;
  lblOrderSig: TLabel;
  VA508CompMemOrder: TVA508ComponentAccessibility;
  procedure FormCreate(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure cmdAcceptClick(Sender: TObject);
  procedure VA508CompMemOrderStateQuery(Sender: TObject; var Text: string);
private
  FilterOut: boolean;
  TsID: string; //treating specialty id
  TSDomain: string;
  AttendID: string;
  AttendDomain: string;
  procedure ControlChange(Sender: TObject);
  procedure LookupNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure PlaceControls;
  procedure PlaceDateTime(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);
  procedure PlaceFreeText(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);
  procedure PlaceHidden(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem);
  procedure PlaceNumeric(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);
  procedure PlaceSetOfCodes(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);
  procedure PlaceYesNo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);
  procedure PlaceLookup(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);
  procedure PlaceMemo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);
  procedure PlaceLabel(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem);
  procedure TrimAllMemos;
  procedure SetComponentName(Editor: TWinControl; Index: Integer; DialogCtrl: TDialogCtrl);
protected
  FFormCloseCalled : Boolean;
  FCharHt: Integer;
  FCharWd: Integer;
  FDialogItemList: TList;
  FDialogCtrlList: TList;
  FEditorLeft: Integer;
  FEditorTop: Integer;
  FFirstCtrl: TWinControl;
  FLabelWd: Integer;
  procedure InitDialog; override;
  procedure SetDialogIEN(Value: Integer); override;
  procedure Validate(var AnErrMsg: string); override;
  procedure UpdateAccessibilityActions(var Actions: TAccessibilityActions); override;
public
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
end;

DFM Objects


frmODGen : TfrmODGen
 ├lblOrderSig : TLabel
 ├memOrder : TCaptionMemo
 ├sbxMain : TScrollBox
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 ├amgrMain : TVA508AccessibilityManager
 └VA508CompMemOrder : TVA508ComponentAccessibility

Class Hierarchy


Class Fields

Name Type Scope Comments
AttendDomain UnicodeString Private -
AttendID UnicodeString Private -
FCharHt Integer Protected -
FCharWd Integer Protected -
FDialogCtrlList TList Protected -
FDialogItemList TList Protected -
FEditorLeft Integer Protected -
FEditorTop Integer Protected -
FFirstCtrl TWinControl Protected -
FFormCloseCalled Boolean Protected -
FilterOut Boolean Private -
FLabelWd Integer Protected -
lblOrderSig TLabel Public/Published -
sbxMain TScrollBox Public/Published -
TSDomain UnicodeString Private -
TsID UnicodeString Private Treating specialty id
VA508CompMemOrder TVA508ComponentAccessibility Public/Published -

Methods

Name Declaration Scope Comments
cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
InitDialog procedure InitDialog; override; Protected -
LookupNeedData procedure LookupNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Private -
PlaceControls procedure PlaceControls; Private -
PlaceDateTime procedure PlaceDateTime(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); Private -
PlaceFreeText procedure PlaceFreeText(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); Private -
PlaceHidden procedure PlaceHidden(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); Private -
PlaceLabel procedure PlaceLabel(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); Private -
PlaceLookup procedure PlaceLookup(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); Private -
PlaceMemo procedure PlaceMemo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); Private -
PlaceNumeric procedure PlaceNumeric(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); Private -
PlaceSetOfCodes procedure PlaceSetOfCodes(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); Private -
PlaceYesNo procedure PlaceYesNo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); Private -
SetComponentName procedure SetComponentName(Editor: TWinControl; Index: Integer; DialogCtrl: TDialogCtrl); Private -
SetDialogIEN procedure SetDialogIEN(Value: Integer); override; Protected Sets up a generic ordering dialog on the fly. Called before SetupDialog.
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
TrimAllMemos procedure TrimAllMemos; Private -
UpdateAccessibilityActions procedure UpdateAccessibilityActions(var Actions: TAccessibilityActions); override; Protected -
VA508CompMemOrderStateQuery procedure VA508CompMemOrderStateQuery(Sender: TObject; var Text: string); Public/Published -
Validate procedure Validate(var AnErrMsg: string); override; Protected -

Referenced By (2)

Module (line) Referrer Type
fODGen (70) frmODGen Read
uOrders (214) - Read