Class

TfrmODProc

Module

fODProc

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODProc = class(TfrmODBase)
  pnlMain: TPanel;
  pnlCombatVet: TPanel;
  lblProc: TLabel;
  lblService: TOROffsetLabel;
  lblReason: TLabel;
  lblUrgency: TStaticText;
  lblPlace: TStaticText;
  lblAttn: TStaticText;
  lblProvDiag: TStaticText;
  pnlReason: TPanel;
  memReason: TCaptionRichEdit;
  cboUrgency: TORComboBox;
  cboPlace: TORComboBox;
  txtAttn: TORComboBox;
  cboProc: TORComboBox;
  cboCategory: TORComboBox;
  cboService: TORComboBox;
  cmdLexSearch: TButton;
  gbInptOpt: TGroupBox;
  radInpatient: TRadioButton;
  radOutpatient: TRadioButton;
  txtProvDiag: TCaptionEdit;
  lblEarliest: TStaticText;
  calEarliest: TORDateBox;
  lblLatest: TStaticText;
  calLatest: TORDateBox;
  mnuPopProvDx: TPopupMenu;
  mnuPopProvDxDelete: TMenuItem;
  popReason: TPopupMenu;
  popReasonCut: TMenuItem;
  popReasonCopy: TMenuItem;
  popReasonPaste: TMenuItem;
  popReasonPaste2: TMenuItem;
  popReasonReformat: TMenuItem;
  txtCombatVet: TVA508StaticText;
  servicelbl508: TVA508StaticText;
  procedure FormCreate(Sender: TObject);
  procedure txtAttnNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboProcNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure radInpatientClick(Sender: TObject);
  procedure radOutpatientClick(Sender: TObject);
  procedure ControlChange(Sender: TObject);
  procedure cboProcSelect(Sender: TObject);
  procedure memReasonExit(Sender: TObject);
  procedure cmdLexSearchClick(Sender: TObject);
  procedure cboServiceChange(Sender: TObject);
  procedure mnuPopProvDxDeleteClick(Sender: TObject);
  procedure txtProvDiagChange(Sender: TObject);
  procedure popReasonCutClick(Sender: TObject);
  procedure popReasonCopyClick(Sender: TObject);
  procedure popReasonPasteClick(Sender: TObject);
  procedure popReasonPopup(Sender: TObject);
  procedure popReasonReformatClick(Sender: TObject);
  procedure memReasonKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure memReasonKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure memReasonKeyPress(Sender: TObject; var Key: Char);
  procedure FormResize(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormShow(Sender: TObject);
private
  FLastProcID: string;
  FEditCtrl: TCustomEdit;
  FNavigatingTab: boolean;
  procedure ReadServerVariables;
  procedure SetProvDiagPromptingMode;
  procedure SetupReasonForRequest(OrderAction: integer);
  procedure GetProvDxandValidateCode(AResponses: TResponses);
  function ShowPrerequisites: boolean;
  procedure DoSetFontSize( FontSize: integer);
  procedure SetUpCombatVet;
  procedure updateService;
  procedure setup508Label(text: string; lbl: TVA508StaticText; ctrl: TControl);
protected
  procedure InitDialog; override;
  procedure Validate(var AnErrMsg: string); override;
  function  DefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings;
public
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
  procedure SetFontSize( FontSize: integer); override;
end;

DFM Objects


frmODProc : TfrmODProc
 ├pnlCombatVet : TPanel
 │ └txtCombatVet : TVA508StaticText
 ├memOrder : TCaptionMemo
 ├pnlMain : TPanel
 │ ├lblProc : TLabel
 │ ├lblService : TOROffsetLabel
 │ ├lblReason : TLabel
 │ ├lblUrgency : TStaticText
 │ ├lblPlace : TStaticText
 │ ├lblAttn : TStaticText
 │ ├lblProvDiag : TStaticText
 │ ├pnlReason : TPanel
 │ │ └memReason : TCaptionRichEdit
 │ ├cboUrgency : TORComboBox
 │ ├cboPlace : TORComboBox
 │ ├txtAttn : TORComboBox
 │ ├cboProc : TORComboBox
 │ ├cboCategory : TORComboBox
 │ ├cboService : TORComboBox
 │ ├cmdLexSearch : TButton
 │ ├gbInptOpt : TGroupBox
 │ │ ├radInpatient : TRadioButton
 │ │ └radOutpatient : TRadioButton
 │ ├txtProvDiag : TCaptionEdit
 │ ├lblEarliest : TStaticText
 │ ├calEarliest : TORDateBox
 │ ├lblLatest : TStaticText
 │ ├calLatest : TORDateBox
 │ └servicelbl508 : TVA508StaticText
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 │ └memMessage : TRichEdit
 ├amgrMain : TVA508AccessibilityManager
 ├mnuPopProvDx : TPopupMenu
 │ └mnuPopProvDxDelete : TMenuItem
 └popReason : TPopupMenu
   ├popReasonCut : TMenuItem
   ├popReasonCopy : TMenuItem
   ├popReasonPaste : TMenuItem
   ├popReasonPaste2 : TMenuItem
   └popReasonReformat : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
calEarliest TORDateBox Public/Published -
calLatest TORDateBox Public/Published -
cboCategory TORComboBox Public/Published -
cboPlace TORComboBox Public/Published -
cboProc TORComboBox Public/Published -
cboService TORComboBox Public/Published -
cboUrgency TORComboBox Public/Published -
cmdLexSearch TButton Public/Published -
FEditCtrl Simple (unknown) Private -
FLastProcID UnicodeString Private -
FNavigatingTab Boolean Private -
gbInptOpt TGroupBox Public/Published -
lblAttn TStaticText Public/Published -
lblEarliest TStaticText Public/Published -
lblLatest TStaticText Public/Published -
lblPlace TStaticText Public/Published -
lblProc TLabel Public/Published -
lblProvDiag TStaticText Public/Published -
lblReason TLabel Public/Published -
lblService TOROffsetLabel Public/Published -
lblUrgency TStaticText Public/Published -
memReason Simple (unknown) Public/Published -
mnuPopProvDx TPopupMenu Public/Published -
mnuPopProvDxDelete TMenuItem Public/Published -
pnlCombatVet TPanel Public/Published -
pnlMain TPanel Public/Published -
pnlReason TPanel Public/Published -
popReason TPopupMenu Public/Published -
popReasonCopy TMenuItem Public/Published -
popReasonCut TMenuItem Public/Published -
popReasonPaste TMenuItem Public/Published -
popReasonPaste2 TMenuItem Public/Published -
popReasonReformat TMenuItem Public/Published -
radInpatient TRadioButton Public/Published -
radOutpatient TRadioButton Public/Published -
servicelbl508 TVA508StaticText Public/Published -
txtAttn TORComboBox Public/Published -
txtCombatVet TVA508StaticText Public/Published -
txtProvDiag TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
cboProcNeedData procedure cboProcNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboProcSelect procedure cboProcSelect(Sender: TObject); Public/Published -
cboServiceChange procedure cboServiceChange(Sender: TObject); Public/Published -
cmdLexSearchClick procedure cmdLexSearchClick(Sender: TObject); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Public/Published -
DefaultReasonForRequest function DefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings; Protected -
DoSetFontSize procedure DoSetFontSize( FontSize: integer); Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published ********************* TfrmODProc Methods ****************
FormResize procedure FormResize(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetProvDxandValidateCode procedure GetProvDxandValidateCode(AResponses: TResponses); Private -
InitDialog procedure InitDialog; override; Protected -
memReasonExit procedure memReasonExit(Sender: TObject); Public/Published -
memReasonKeyDown procedure memReasonKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
memReasonKeyPress procedure memReasonKeyPress(Sender: TObject; var Key: Char); Public/Published -
memReasonKeyUp procedure memReasonKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
mnuPopProvDxDeleteClick procedure mnuPopProvDxDeleteClick(Sender: TObject); Public/Published -
popReasonCopyClick procedure popReasonCopyClick(Sender: TObject); Public/Published -
popReasonCutClick procedure popReasonCutClick(Sender: TObject); Public/Published -
popReasonPasteClick procedure popReasonPasteClick(Sender: TObject); Public/Published -
popReasonPopup procedure popReasonPopup(Sender: TObject); Public/Published -
popReasonReformatClick procedure popReasonReformatClick(Sender: TObject); Public/Published -
radInpatientClick procedure radInpatientClick(Sender: TObject); Public/Published -
radOutpatientClick procedure radOutpatientClick(Sender: TObject); Public/Published -
ReadServerVariables procedure ReadServerVariables; Private -
SetFontSize procedure SetFontSize( FontSize: integer); override; Public -
SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; Private -
setup508Label procedure setup508Label(text: string; lbl: TVA508StaticText; ctrl: TControl); Private -
SetUpCombatVet procedure SetUpCombatVet; Private -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
SetupReasonForRequest procedure SetupReasonForRequest(OrderAction: integer); Private -
ShowPrerequisites function ShowPrerequisites: boolean; Private -
txtAttnNeedData procedure txtAttnNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
txtProvDiagChange procedure txtProvDiagChange(Sender: TObject); Public/Published -
updateService procedure updateService; Private -
Validate procedure Validate(var AnErrMsg: string); override; Protected -

Referenced By (2)

Module (line) Referrer Type
fODProc (135) - Read
uOrders (221) - Read