Class

TfrmODCslt

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODCslt = class(TfrmODBase)
  pnlMain: TPanel;
  lblService: TLabel;
  lblProvDiag: TLabel;
  lblUrgency: TLabel;
  lblPlace: TLabel;
  lblAttn: TLabel;
  lblLatest: TStaticText;
  lblEarliest: TStaticText;
  pnlReason: TPanel;
  lblReason: TLabel;
  memReason: TRichEdit;
  cboService: TORComboBox;
  cboUrgency: TORComboBox;
  cboPlace: TORComboBox;
  txtProvDiag: TCaptionEdit;
  txtAttn: TORComboBox;
  treService: TORTreeView;
  cboCategory: TORComboBox;
  pnlServiceTreeButton: TKeyClickPanel;
  btnServiceTree: TSpeedButton;
  gbInptOpt: TGroupBox;
  radInpatient: TRadioButton;
  radOutpatient: TRadioButton;
  btnDiagnosis: TButton;
  cmdLexSearch: TButton;
  calEarliest: TORDateBox;
  calLatest: TORDateBox;
  mnuPopProvDx: TPopupMenu;
  mnuPopProvDxDelete: TMenuItem;
  popReason: TPopupMenu;
  popReasonCut: TMenuItem;
  popReasonCopy: TMenuItem;
  popReasonPaste: TMenuItem;
  popReasonPaste2: TMenuItem;
  popReasonReformat: TMenuItem;
  pnlCombatVet: TPanel;
  txtCombatVet: TVA508StaticText;
  servicelbl508: TVA508StaticText;
  procedure FormCreate(Sender: TObject);
  procedure txtAttnNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure radInpatientClick(Sender: TObject);
  procedure radOutpatientClick(Sender: TObject);
  procedure treServiceChange(Sender: TObject; Node: TTreeNode);
  procedure ControlChange(Sender: TObject);
  procedure treServiceExit(Sender: TObject);
  procedure cmdAcceptClick(Sender: TObject);
  procedure memReasonExit(Sender: TObject);
  procedure cboServiceSelect(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure btnServiceTreeClick(Sender: TObject);
  procedure treServiceCollapsing(Sender: TObject; Node: TTreeNode;
    var AllowCollapse: Boolean);
  procedure treServiceMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure cmdLexSearchClick(Sender: TObject);
  procedure mnuPopProvDxDeleteClick(Sender: TObject);
  procedure txtProvDiagChange(Sender: TObject);
  procedure cboServiceExit(Sender: TObject);
  procedure popReasonCutClick(Sender: TObject);
  procedure popReasonCopyClick(Sender: TObject);
  procedure popReasonPasteClick(Sender: TObject);
  procedure popReasonPopup(Sender: TObject);
  procedure popReasonReformatClick(Sender: TObject);
  procedure pnlServiceTreeButtonEnter(Sender: TObject);
  procedure pnlServiceTreeButtonExit(Sender: TObject);
  procedure treServiceKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure treServiceKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  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 cboServiceKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboServiceKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure btnDiagnosisClick(Sender: TObject);
  procedure cmdQuitClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormResize(Sender: TObject);
  procedure treServiceEnter(Sender: TObject);

private
  FcboServiceKeyDownStopClick : boolean;
  FKeyBoarding: boolean;
  FLastServiceID: string;
  FEditCtrl: TCustomEdit;
  FNavigatingTab: boolean;
  LLS_LINE_INDEX: integer;
  procedure BuildQuickTree(QuickList: TStrings; const Parent: string; Node: TTreeNode);
  procedure ReadServerVariables;
  procedure SetProvDiagPromptingMode;
  procedure SetupReasonForRequest(OrderAction: integer);
  procedure GetProvDxandValidateCode(AResponses: TResponses);
  function ShowPrerequisites: boolean;
  procedure DoSetFontSize(FontSize: integer);
  procedure SetUpQuickOrderDX;
  procedure SaveConsultDxForNurse(pDiagnosis: string);  // save the dx entered by nurese if Master BA switch is ON
  procedure SetUpCopyConsultDiagnoses(pOrderID:string);
  procedure AdjustMemReasonSize;
  function NotinIndex(AList: TStringList; i: integer): boolean;
  function GetItemIndex(Service: String; Index: integer): integer;
  procedure SetUpCombatVet;
  procedure SetUpEarliestDate; //wat v28
  procedure setup508Label(lbl: TVA508StaticText; ctrl: TORComboBox);
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


frmODCslt : TfrmODCslt
 ├pnlCombatVet : TPanel
 │ └txtCombatVet : TVA508StaticText
 ├memOrder : TCaptionMemo
 ├pnlMain : TPanel
 │ ├lblService : TLabel
 │ ├lblProvDiag : TLabel
 │ ├lblUrgency : TLabel
 │ ├lblPlace : TLabel
 │ ├lblAttn : TLabel
 │ ├lblLatest : TStaticText
 │ ├lblEarliest : TStaticText
 │ ├pnlReason : TPanel
 │ │ ├lblReason : TLabel
 │ │ └memReason : TRichEdit
 │ ├cboService : TORComboBox
 │ ├cboUrgency : TORComboBox
 │ ├cboPlace : TORComboBox
 │ ├txtProvDiag : TCaptionEdit
 │ ├txtAttn : TORComboBox
 │ ├treService : TORTreeView
 │ ├cboCategory : TORComboBox
 │ ├pnlServiceTreeButton : TKeyClickPanel
 │ │ └btnServiceTree : TSpeedButton
 │ ├gbInptOpt : TGroupBox
 │ │ ├radInpatient : TRadioButton
 │ │ └radOutpatient : TRadioButton
 │ ├btnDiagnosis : TButton
 │ ├cmdLexSearch : TButton
 │ ├calEarliest : TORDateBox
 │ ├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
btnDiagnosis TButton Public/Published -
btnServiceTree TSpeedButton 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 -
cmdLexSearch TButton Public/Published -
FcboServiceKeyDownStopClick Boolean Private -
FEditCtrl Simple (unknown) Private -
FKeyBoarding Boolean Private -
FLastServiceID UnicodeString Private -
FNavigatingTab Boolean Private -
gbInptOpt TGroupBox Public/Published -
lblAttn TLabel Public/Published -
lblEarliest TStaticText Public/Published -
lblLatest TStaticText Public/Published -
lblPlace TLabel Public/Published -
lblProvDiag TLabel Public/Published -
lblReason TLabel Public/Published -
lblService TLabel Public/Published -
lblUrgency TLabel Public/Published -
LLS_LINE_INDEX Integer Private -
memReason TRichEdit Public/Published -
mnuPopProvDx TPopupMenu Public/Published -
mnuPopProvDxDelete TMenuItem Public/Published -
pnlCombatVet TPanel Public/Published -
pnlMain TPanel Public/Published -
pnlReason TPanel Public/Published -
pnlServiceTreeButton TKeyClickPanel 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 -
treService TORTreeView Public/Published -
txtAttn TORComboBox Public/Published -
txtCombatVet TVA508StaticText Public/Published -
txtProvDiag TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
AdjustMemReasonSize procedure AdjustMemReasonSize; Private -
btnDiagnosisClick procedure btnDiagnosisClick(Sender: TObject); Public/Published -
btnServiceTreeClick procedure btnServiceTreeClick(Sender: TObject); Public/Published -
BuildQuickTree procedure BuildQuickTree(QuickList: TStrings; const Parent: string; Node: TTreeNode); Private -
cboServiceExit procedure cboServiceExit(Sender: TObject); Public/Published -
cboServiceKeyDown procedure cboServiceKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboServiceKeyUp procedure cboServiceKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboServiceSelect procedure cboServiceSelect(Sender: TObject); Public/Published -
cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); Public/Published -
cmdLexSearchClick procedure cmdLexSearchClick(Sender: TObject); Public/Published -
cmdQuitClick procedure cmdQuitClick(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 TfrmODCslt Methods ***********
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
GetItemIndex function GetItemIndex(Service: String; Index: integer): integer; Private
TP - HDS00015782:
This function returns ItemIndexOf value for Service Consult when a Quick Order
has the exact same name
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 -
NotinIndex function NotinIndex(AList: TStringList; i: integer): boolean; Private
TP - HDS00015782:
This function determines if a Consult Service will be added to the cboService
component.  If name does not exist or if name does not exist below the Quick
Order listing, then it is added.
pnlServiceTreeButtonEnter procedure pnlServiceTreeButtonEnter(Sender: TObject); Public/Published -
pnlServiceTreeButtonExit procedure pnlServiceTreeButtonExit(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 -
SaveConsultDxForNurse procedure SaveConsultDxForNurse(pDiagnosis: string); Private Save the dx entered by nurese if Master BA switch is ON
SetFontSize procedure SetFontSize(FontSize: integer); override; Public -
SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; Private -
setup508Label procedure setup508Label(lbl: TVA508StaticText; ctrl: TORComboBox); Private -
SetUpCombatVet procedure SetUpCombatVet; Private -
SetUpCopyConsultDiagnoses procedure SetUpCopyConsultDiagnoses(pOrderID:string); Private -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
SetUpEarliestDate procedure SetUpEarliestDate; Private
Wat v28
wat v28
SetUpQuickOrderDX procedure SetUpQuickOrderDX; Private
This procedure is called if the user selects a quick code from the list
 and accepts the order without entering or selection the diagnoses button.
SetupReasonForRequest procedure SetupReasonForRequest(OrderAction: integer); Private -
ShowPrerequisites function ShowPrerequisites: boolean; Private -
treServiceChange procedure treServiceChange(Sender: TObject; Node: TTreeNode); Public/Published -
treServiceCollapsing procedure treServiceCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean); Public/Published -
treServiceEnter procedure treServiceEnter(Sender: TObject); Public/Published -
treServiceExit procedure treServiceExit(Sender: TObject); Public/Published -
treServiceKeyDown procedure treServiceKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
treServiceKeyUp procedure treServiceKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
treServiceMouseDown procedure treServiceMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
txtAttnNeedData procedure txtAttnNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
txtProvDiagChange procedure txtProvDiagChange(Sender: TObject); Public/Published -
Validate procedure Validate(var AnErrMsg: string); override; Protected -

Referenced By (2)

Module (line) Referrer Type
fODConsult (188) - Read
uOrders (220) - Read