Class

TfrmProcedures

Module

fProcedure

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmPCEBaseMain

Declaration


TfrmProcedures = class(TfrmPCEBaseMain)
  lblProcQty: TLabel;
  spnProcQty: TUpDown;
  txtProcQty: TCaptionEdit;
  lbMods: TORListBox;
  splRight: TSplitter;
  lblMod: TLabel;
  cboProvider: TORComboBox;
  lblProvider: TLabel;
  procedure txtProcQtyChange(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormResize(Sender: TObject); override;
  procedure splRightMoved(Sender: TObject);
  procedure clbListClick(Sender: TObject);
  procedure lbGridSelect(Sender: TObject);
  procedure btnSelectAllClick(Sender: TObject);
  procedure lbModsClickCheck(Sender: TObject; Index: Integer);
  procedure lbSectionClick(Sender: TObject);
  procedure lbxSectionClickCheck(Sender: TObject; Index: Integer);
  procedure btnOtherClick(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure cboProviderNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboProviderChange(Sender: TObject);
  procedure lbxSectionExit(Sender: TObject);
  procedure lbModsExit(Sender: TObject);
  procedure btnOtherExit(Sender: TObject);
private
  FCheckingCode: boolean;
  FCheckingMods: boolean;
  FLastCPTCodes: string;
  FModsReadOnly: boolean;
  FProviderChanging: boolean;
  FModsROChecked: string;
  function MissingProvider: boolean;
protected
  procedure UpdateNewItemStr(var x: string); override;
  procedure UpdateControls; override;
  procedure ShowModifiers;
  procedure CheckModifiers;
public
  function OK2SaveProcedures: boolean;
  procedure InitTab(ACopyProc: TCopyItemsMethod; AListProc: TListSectionsProc);
end;

DFM Objects


frmProcedures : TfrmProcedures
 ├lblProcQty : TLabel
 ├lblSection : TLabel
 ├lblList : TLabel
 ├bvlMain : TBevel
 ├lblMod : TLabel
 ├lblProvider : TLabel
 ├btnOK : TBitBtn
 ├btnCancel : TBitBtn
 ├pnlGrid : TPanel
 │ ├lbGrid : TORListBox
 │ └hcGrid : THeaderControl
 ├edtComment : TCaptionEdit
 ├spnProcQty : TUpDown
 ├txtProcQty : TCaptionEdit
 ├cboProvider : TORComboBox
 ├btnRemove : TButton
 ├btnSelectAll : TButton
 ├pnlMain : TPanel
 │ ├splLeft : TSplitter
 │ ├splRight : TSplitter
 │ ├lbxSection : TORListBox
 │ ├pnlLeft : TPanel
 │ │ ├lbSection : TORListBox
 │ │ └btnOther : TButton
 │ └lbMods : TORListBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cboProvider TORComboBox Public/Published -
FCheckingCode Boolean Private -
FCheckingMods Boolean Private -
FLastCPTCodes UnicodeString Private -
FModsReadOnly Boolean Private -
FModsROChecked UnicodeString Private -
FProviderChanging Boolean Private -
lblMod TLabel Public/Published -
lblProcQty TLabel Public/Published -
lblProvider TLabel Public/Published -
lbMods TORListBox Public/Published -
splRight TSplitter Public/Published -
spnProcQty Simple (unknown) Public/Published -
txtProcQty Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
btnOtherClick procedure btnOtherClick(Sender: TObject); Public/Published -
btnOtherExit procedure btnOtherExit(Sender: TObject); Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
btnSelectAllClick procedure btnSelectAllClick(Sender: TObject); Public/Published -
cboProviderChange procedure cboProviderChange(Sender: TObject); Public/Published -
cboProviderNeedData procedure cboProviderNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
CheckModifiers procedure CheckModifiers; Protected -
clbListClick procedure clbListClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); override; Public/Published -
InitTab procedure InitTab(ACopyProc: TCopyItemsMethod; AListProc: TListSectionsProc); Public -
lbGridSelect procedure lbGridSelect(Sender: TObject); Public/Published -
lbModsClickCheck procedure lbModsClickCheck(Sender: TObject; Index: Integer); Public/Published -
lbModsExit procedure lbModsExit(Sender: TObject); Public/Published -
lbSectionClick procedure lbSectionClick(Sender: TObject); Public/Published -
lbxSectionClickCheck procedure lbxSectionClickCheck(Sender: TObject; Index: Integer); Public/Published -
lbxSectionExit procedure lbxSectionExit(Sender: TObject); Public/Published -
MissingProvider function MissingProvider: boolean; Private -
OK2SaveProcedures function OK2SaveProcedures: boolean; Public -
ShowModifiers procedure ShowModifiers; Protected Needed,
splRightMoved procedure splRightMoved(Sender: TObject); Public/Published -
txtProcQtyChange procedure txtProcQtyChange(Sender: TObject); Public/Published -
UpdateControls procedure UpdateControls; override; Protected -
UpdateNewItemStr procedure UpdateNewItemStr(var x: string); override; Protected -

Referenced By (3)

Module (line) Referrer Type
fEncounterFrame (263) - Read
fProcedure (59) frmProcedures Read
fProcedure (587) - Read