Class

TfrmEditCslt

Module

fEditConsult

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmEditCslt = class(TfrmAutoSz)
  pnlMessage: TPanel;
  imgMessage: TImage;
  memMessage: TRichEdit;
  cmdAccept: TButton;
  cmdQuit: TButton;
  pnlMain: TPanel;
  lblService: TLabel;
  lblReason: TLabel;
  lblComment: TLabel;
  lblComments: TLabel;
  lblUrgency: TStaticText;
  lblPlace: TStaticText;
  lblAttn: TStaticText;
  lblProvDiag: TStaticText;
  lblInpOutp: TStaticText;
  memReason: TRichEdit;
  cboService: TORComboBox;
  cboUrgency: TORComboBox;
  radInpatient: TRadioButton;
  radOutpatient: TRadioButton;
  cboPlace: TORComboBox;
  txtProvDiag: TCaptionEdit;
  txtAttn: TORComboBox;
  cboCategory: TORComboBox;
  memComment: TRichEdit;
  btnCmtCancel: TButton;
  btnCmtOther: TButton;
  cmdLexSearch: TButton;
  lblEarliest: TStaticText;
  calEarliest: TORDateBox;
  lblLatest: TStaticText;
  calLatest: TORDateBox;
  mnuPopProvDx: TPopupMenu;
  mnuPopProvDxDelete: TMenuItem;
  popReason: TPopupMenu;
  popReasonCut: TMenuItem;
  popReasonCopy: TMenuItem;
  popReasonPaste: TMenuItem;
  popReasonPaste2: TMenuItem;
  popReasonReformat: TMenuItem;
  pnlCombatVet: TPanel;
  txtCombatVet: TVA508StaticText;
  procedure txtAttnNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure radInpatientClick(Sender: TObject);
  procedure radOutpatientClick(Sender: TObject);
  procedure ControlChange(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure cmdQuitClick(Sender: TObject);
  procedure cmdAcceptClick(Sender: TObject);
  procedure memReasonExit(Sender: TObject);
  procedure OrderMessage(const AMessage: string);
  procedure btnCmtCancelClick(Sender: TObject);
  procedure btnCmtOtherClick(Sender: TObject);
  procedure cmdLexSearchClick(Sender: TObject);
  procedure mnuPopProvDxDeleteClick(Sender: TObject);
  procedure popReasonCutClick(Sender: TObject);
  procedure popReasonCopyClick(Sender: TObject);
  procedure popReasonPasteClick(Sender: TObject);
  procedure popReasonPopup(Sender: TObject);
  procedure popReasonReformatClick(Sender: TObject);
  procedure memCommentKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure memCommentKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure memCommentKeyPress(Sender: TObject; var Key: Char);
  procedure calEarliestExit(Sender: TObject);
  procedure calLatestExit(Sender: TObject);
  procedure memCommentExit(Sender: TObject);
private
  FLastServiceID: string;
  FChanged: boolean;
  FChanging: boolean;
  FEditCtrl: TCustomEdit;
  FNavigatingTab: boolean;
  FEarliestDate: TFMDateTime;
  FProstheticsSvc: boolean;
  //FLatestDate: TFMDateTime;
  procedure SetProvDiagPromptingMode;
  procedure SetUpCombatVet;
  procedure SetUpEarliestDate;
protected
  procedure InitDialog;
  procedure Validate(var AnErrMsg: string);
  function  ValidSave: Boolean;
end;

DFM Objects


frmEditCslt : TfrmEditCslt
 ├pnlCombatVet : TPanel
 │ └txtCombatVet : TVA508StaticText
 ├pnlMessage : TPanel
 │ ├imgMessage : TImage
 │ └memMessage : TRichEdit
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMain : TPanel
 │ ├lblService : TLabel
 │ ├lblReason : TLabel
 │ ├lblComment : TLabel
 │ ├lblComments : TLabel
 │ ├lblUrgency : TStaticText
 │ ├lblPlace : TStaticText
 │ ├lblAttn : TStaticText
 │ ├lblProvDiag : TStaticText
 │ ├lblInpOutp : TStaticText
 │ ├memReason : TRichEdit
 │ ├cboService : TORComboBox
 │ ├cboUrgency : TORComboBox
 │ ├radInpatient : TRadioButton
 │ ├radOutpatient : TRadioButton
 │ ├cboPlace : TORComboBox
 │ ├txtProvDiag : TCaptionEdit
 │ ├txtAttn : TORComboBox
 │ ├cboCategory : TORComboBox
 │ ├memComment : TRichEdit
 │ ├btnCmtCancel : TButton
 │ ├btnCmtOther : TButton
 │ ├cmdLexSearch : TButton
 │ ├lblEarliest : TStaticText
 │ ├calEarliest : TORDateBox
 │ ├lblLatest : TStaticText
 │ └calLatest : TORDateBox
 ├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
btnCmtCancel TButton Public/Published -
btnCmtOther TButton Public/Published -
calEarliest TORDateBox Public/Published -
calLatest TORDateBox Public/Published -
cboCategory TORComboBox Public/Published -
cboPlace TORComboBox Public/Published -
cboService TORComboBox Public/Published -
cboUrgency TORComboBox Public/Published -
cmdAccept TButton Public/Published -
cmdLexSearch TButton Public/Published -
cmdQuit TButton Public/Published -
FChanged Boolean Private -
FChanging Boolean Private -
FEarliestDate TFMDateTime Private -
FEditCtrl TCustomEdit Private -
FLastServiceID UnicodeString Private -
FNavigatingTab Boolean Private -
FProstheticsSvc Boolean Private -
imgMessage TImage Public/Published -
lblAttn TStaticText Public/Published -
lblComment TLabel Public/Published -
lblComments TLabel Public/Published -
lblEarliest TStaticText Public/Published -
lblInpOutp TStaticText Public/Published -
lblLatest TStaticText Public/Published -
lblPlace TStaticText Public/Published -
lblProvDiag TStaticText Public/Published -
lblReason TLabel Public/Published -
lblService TLabel Public/Published -
lblUrgency TStaticText Public/Published -
memComment TRichEdit Public/Published -
memMessage TRichEdit Public/Published -
memReason TRichEdit Public/Published -
mnuPopProvDx TPopupMenu Public/Published -
mnuPopProvDxDelete TMenuItem Public/Published -
pnlCombatVet TPanel Public/Published -
pnlMain TPanel Public/Published -
pnlMessage 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 -
txtAttn TORComboBox Public/Published -
txtCombatVet TVA508StaticText Public/Published -
txtProvDiag TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
btnCmtCancelClick procedure btnCmtCancelClick(Sender: TObject); Public/Published -
btnCmtOtherClick procedure btnCmtOtherClick(Sender: TObject); Public/Published -
calEarliestExit procedure calEarliestExit(Sender: TObject); Public/Published -
calLatestExit procedure calLatestExit(Sender: TObject); Public/Published -
cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); Public/Published
Begin BillingAware
newDxRec: TBADxRecord;
AnOrder: TOrder;
End BillingAware
cmdLexSearchClick procedure cmdLexSearchClick(Sender: TObject); Public/Published -
cmdQuitClick procedure cmdQuitClick(Sender: TObject); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
InitDialog procedure InitDialog; Protected -
memCommentExit procedure memCommentExit(Sender: TObject); Public/Published Added OnExit code for CQ17822 WAT
memCommentKeyDown procedure memCommentKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
memCommentKeyPress procedure memCommentKeyPress(Sender: TObject; var Key: Char); Public/Published -
memCommentKeyUp procedure memCommentKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
memReasonExit procedure memReasonExit(Sender: TObject); Public/Published -
mnuPopProvDxDeleteClick procedure mnuPopProvDxDeleteClick(Sender: TObject); Public/Published -
OrderMessage procedure OrderMessage(const AMessage: string); 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 -
SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; Private FLatestDate: TFMDateTime;
SetUpCombatVet procedure SetUpCombatVet; Private -
SetUpEarliestDate procedure SetUpEarliestDate; Private Wat v28
txtAttnNeedData procedure txtAttnNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
Validate procedure Validate(var AnErrMsg: string); Protected -
ValidSave function ValidSave: Boolean; Protected -

Referenced By (2)

Module (line) Referrer Type
fEditConsult (102) frmEditCslt Read
fEditConsult (156) - Read