Class

TfrmODBBank

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODBBank = class(TfrmODBase)
  dlgLabCollTime: TORDateTimeDlg;
  ORWanted: TORDateTimeDlg;
  pnlComments: TPanel;
  btnUpdateComments: TButton;
  btnCancelComment: TButton;
  lblOrdComment: TLabel;
  pgeProduct: TPageControl;
  TabInfo: TTabSheet;
  edtInfo: TCaptionRichEdit;
  TabDiag: TTabSheet;
  lblReqComment: TOROffsetLabel;
  TabResults: TTabSheet;
  edtResults: TCaptionRichEdit;
  pnlFields: TPanel;
  lblDiagComment: TOROffsetLabel;
  lblUrgency: TLabel;
  lblReason: TLabel;
  lblSurgery: TLabel;
  cboUrgency: TORComboBox;
  chkConsent: TCheckBox;
  cboSurgery: TORComboBox;
  pnlSelect: TPanel;
  pnlDiagnosticTests: TGroupBox;
  cboAvailTest: TORComboBox;
  pnlBloodComponents: TGroupBox;
  lblQuantity: TLabel;
  lblModifiers: TLabel;
  cboAvailComp: TORComboBox;
  tQuantity: TEdit;
  cboModifiers: TORComboBox;
  GroupBox1: TGroupBox;
  cboQuick: TORComboBox;
  pnlSelectedTests: TGroupBox;
  lvSelectionList: TCaptionListView;
  btnRemove: TButton;
  btnRemoveAll: TButton;
  cboReasons: TORComboBox;
  lblRequiredField: TLabel;
  memDiagComment: TRichEdit;
  lblCollType: TLabel;
  cboCollType: TORComboBox;
  lblCollTime: TLabel;
  cboCollTime: TORComboBox;
  calWantTime: TORDateBox;
  lblWanted: TLabel;
  calCollTime: TORDateBox;
  txtImmedColl: TCaptionEdit;
  pnlCollTimeButton: TKeyClickPanel;
  lblTNS: TLabel;
  lblNoBloodReq: TLabel;
  cmdImmedColl: TSpeedButton;
  Splitter1: TSplitter;
  procedure FormCreate(Sender: TObject);
  procedure cboAvailTestSelect(Sender: TObject);
  procedure cboAvailCompSelect(Sender: TObject);
  procedure DisableCommentPanels;
  procedure DisableComponentControls;
  procedure DisableDiagTestControls;
  procedure EnableComponentControls;
  procedure EnableDiagTestControls;
  procedure cboAvailTestExit(Sender: TObject);
  procedure cboAvailCompExit(Sender: TObject);
  procedure cboAvailTestNeedData(Sender: TObject;
    const StartFrom: String; Direction, InsertAt: Integer);
  procedure cboAvailCompNeedData(Sender: TObject;
    const StartFrom: String; Direction, InsertAt: Integer);
  procedure cmdImmedCollClick(Sender: TObject);
  procedure pgeProductChange(Sender: TObject);
  procedure cboCollTypeChange(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure btnRemoveAllClick(Sender: TObject);
  procedure cmdAcceptClick(Sender: TObject);
  procedure calWantTimeChange(Sender: TObject);
  procedure chkConsentClick(Sender: TObject);
  procedure cboUrgencyChange(Sender: TObject);
  procedure cboSurgeryChange(Sender: TObject);
  procedure calCollTimeChange(Sender: TObject);
  procedure cboQuickClick(Sender: TObject);
  procedure tQuantityEnter(Sender: TObject);
  procedure btnUpdateCommentsClick(Sender: TObject);
  procedure btnCancelCommentClick(Sender: TObject);
  procedure cboSurgeryClick(Sender: TObject);
  procedure cboReasonsEnter(Sender: TObject);
  procedure cboReasonsExit(Sender: TObject);
  procedure tQuantityClick(Sender: TObject);
  procedure tQuantityChange(Sender: TObject);
  procedure cboReasonsChange(Sender: TObject);
  procedure cboModifiersChange(Sender: TObject);
  procedure lvSelectionListClick(Sender: TObject);
  procedure cboCollTimeChange(Sender: TObject);
  procedure memDiagCommentChange(Sender: TObject);
  procedure cboUrgencyExit(Sender: TObject);
  procedure pnlBloodComponentsEnter(Sender: TObject);
  procedure pnlDiagnosticTestsEnter(Sender: TObject);
  procedure pnlDiagnosticTestsExit(Sender: TObject);
  procedure pnlBloodComponentsExit(Sender: TObject);
  procedure pnlBloodComponentsClick(Sender: TObject);
  procedure pnlDiagnosticTestsClick(Sender: TObject);
  procedure cboCollTypeClick(Sender: TObject);
  procedure cboAvailTestEnter(Sender: TObject);
  procedure cboCollTypeEnter(Sender: TObject);
  procedure txtImmedCollEnter(Sender: TObject);
  procedure calCollTimeEnter(Sender: TObject);
  procedure cboCollTimeEnter(Sender: TObject);
  procedure cboModifiersEnter(Sender: TObject);
  procedure calWantTimeEnter(Sender: TObject);
  procedure cboAvailCompEnter(Sender: TObject);
  procedure FormShow(Sender: TObject);
protected
  FCmtTypes: TStringList ;
  procedure InitDialog; override;
  function  ValidCollTime(UserEntry: string): string;
  procedure GetAllCollSamples(AComboBox: TORComboBox);
  procedure GetAllSpecimens(AComboBox: TORComboBox);
  procedure SetupCollTimes(CollType: string);
  procedure LoadCollType(AComboBox:TORComboBox);
  function  ValidAdd: Boolean;
  procedure ValidateAdd(var AnErrMsg: string);
  procedure Validate(var AnErrMsg: string); override;
  procedure ExtractMSBOS(OutList:TStrings; AList:TStrings);
  procedure ExtractTests(OutList:TStrings; AList:TStrings);
  procedure ExtractSurgeries(OutList:TStrings; AList:TStrings);
  procedure ExtractUrgencies(OutList:TStrings; AList:TStrings);
  procedure ExtractTNSOrders(OutList:TStrings; AList:TStrings);
  procedure ExtractModifiers(OutList:TStrings; AList:TStrings);
  procedure ExtractReasons(OutList:TStrings; AList:TStrings);
  procedure ExtractSpecimens(OutList:TStrings; AList:TStrings);
  procedure ExtractTypeScreen(OutList:TStrings; AList:TStrings);
  procedure ExtractOther(OutList:TStrings; AList:TStrings);
  procedure ExtractPatientInfo(OutList:TStrings; AList:TStrings);
  procedure ExtractSpecimen(OutList:TStrings; AList:TStrings);
  function  SpecimenNeeded(OutList:TStrings; AList:TStrings; CompID:integer): Boolean;
  procedure LoadUrgencies(AComboBox:TORComboBox);
  procedure LoadModifiers(AComboBox:TORComboBox);
  procedure LoadReasons(AComboBox:TORComboBox);

private
  FLastCollType: string;
  FLastCollTime: string;
  FLastLabCollTime: string;
  FLastLabID: string;
  FLastItemID: string;
  FEvtDelayLoc: integer;
  FEvtDivision: integer;
  FVbecLookup: string;
  FQuickList:  Integer;
  FQuickItems: TStringList;
  FOrderAction: Integer;
  procedure ReadServerVariables;
  procedure SetOnQuickOrder;
public
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
  procedure LoadRequiredComment(CmtType: integer);
  procedure DetermineCollectionDefaults(Responses: TResponses);
  property  EvtDelayLoc: integer   read FEvtDelayLoc   write FEvtDelayLoc;
  property  EvtDivision: integer   read FEvtDivision   write FEvtDivision;
end;

DFM Objects


frmODBBank : TfrmODBBank
 ├Splitter1 : TSplitter
 ├pnlComments : TPanel
 │ ├lblOrdComment : TLabel
 │ ├btnUpdateComments : TButton
 │ └btnCancelComment : TButton
 ├memOrder : TCaptionMemo
 ├pgeProduct : TPageControl
 │ ├TabInfo : TTabSheet
 │ │ └edtInfo : TCaptionRichEdit
 │ ├TabDiag : TTabSheet
 │ │ ├lblReqComment : TOROffsetLabel
 │ │ ├pnlFields : TPanel
 │ │ │ ├lblDiagComment : TOROffsetLabel
 │ │ │ ├lblUrgency : TLabel
 │ │ │ ├lblReason : TLabel
 │ │ │ ├lblSurgery : TLabel
 │ │ │ ├lblRequiredField : TLabel
 │ │ │ ├lblTNS : TLabel
 │ │ │ ├lblNoBloodReq : TLabel
 │ │ │ ├cboUrgency : TORComboBox
 │ │ │ ├chkConsent : TCheckBox
 │ │ │ ├cboSurgery : TORComboBox
 │ │ │ ├cboReasons : TORComboBox
 │ │ │ └memDiagComment : TRichEdit
 │ │ ├pnlSelect : TPanel
 │ │ │ ├pnlDiagnosticTests : TGroupBox
 │ │ │ │ ├lblCollType : TLabel
 │ │ │ │ ├lblCollTime : TLabel
 │ │ │ │ ├pnlCollTimeButton : TKeyClickPanel
 │ │ │ │ │ └cmdImmedColl : TSpeedButton
 │ │ │ │ ├calCollTime : TORDateBox
 │ │ │ │ ├cboAvailTest : TORComboBox
 │ │ │ │ ├cboCollType : TORComboBox
 │ │ │ │ ├cboCollTime : TORComboBox
 │ │ │ │ └txtImmedColl : TCaptionEdit
 │ │ │ └pnlBloodComponents : TGroupBox
 │ │ │   ├lblQuantity : TLabel
 │ │ │   ├lblModifiers : TLabel
 │ │ │   ├lblWanted : TLabel
 │ │ │   ├cboAvailComp : TORComboBox
 │ │ │   ├tQuantity : TEdit
 │ │ │   ├cboModifiers : TORComboBox
 │ │ │   └calWantTime : TORDateBox
 │ │ ├GroupBox1 : TGroupBox
 │ │ │ └cboQuick : TORComboBox
 │ │ └pnlSelectedTests : TGroupBox
 │ │   ├lvSelectionList : TCaptionListView
 │ │   ├btnRemove : TButton
 │ │   └btnRemoveAll : TButton
 │ └TabResults : TTabSheet
 │   └edtResults : TCaptionRichEdit
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 │ └memMessage : TRichEdit
 ├amgrMain : TVA508AccessibilityManager
 ├dlgLabCollTime : TORDateTimeDlg
 └ORWanted : TORDateTimeDlg

Class Hierarchy


Class Fields

Name Type Scope Comments
btnCancelComment TButton Public/Published -
btnRemove TButton Public/Published -
btnRemoveAll TButton Public/Published -
btnUpdateComments TButton Public/Published -
calCollTime TORDateBox Public/Published -
calWantTime TORDateBox Public/Published -
cboAvailComp TORComboBox Public/Published -
cboAvailTest TORComboBox Public/Published -
cboCollTime TORComboBox Public/Published -
cboCollType TORComboBox Public/Published -
cboModifiers TORComboBox Public/Published -
cboQuick TORComboBox Public/Published -
cboReasons TORComboBox Public/Published -
cboSurgery TORComboBox Public/Published -
cboUrgency TORComboBox Public/Published -
chkConsent TCheckBox Public/Published -
cmdImmedColl TSpeedButton Public/Published -
dlgLabCollTime TORDateTimeDlg Public/Published -
edtInfo TCaptionRichEdit Public/Published -
edtResults TCaptionRichEdit Public/Published -
FCmtTypes TStringList Protected -
FEvtDelayLoc Integer Private -
FEvtDivision Integer Private -
FLastCollTime UnicodeString Private -
FLastCollType UnicodeString Private -
FLastItemID UnicodeString Private -
FLastLabCollTime UnicodeString Private -
FLastLabID UnicodeString Private -
FOrderAction Integer Private -
FQuickItems TStringList Private -
FQuickList Integer Private -
FVbecLookup UnicodeString Private -
GroupBox1 TGroupBox Public/Published -
lblCollTime TLabel Public/Published -
lblCollType TLabel Public/Published -
lblDiagComment TOROffsetLabel Public/Published -
lblModifiers TLabel Public/Published -
lblNoBloodReq TLabel Public/Published -
lblOrdComment TLabel Public/Published -
lblQuantity TLabel Public/Published -
lblReason TLabel Public/Published -
lblReqComment TOROffsetLabel Public/Published -
lblRequiredField TLabel Public/Published -
lblSurgery TLabel Public/Published -
lblTNS TLabel Public/Published -
lblUrgency TLabel Public/Published -
lblWanted TLabel Public/Published -
lvSelectionList TCaptionListView Public/Published -
memDiagComment TRichEdit Public/Published -
ORWanted TORDateTimeDlg Public/Published -
pgeProduct Simple (unknown) Public/Published -
pnlBloodComponents TGroupBox Public/Published -
pnlCollTimeButton TKeyClickPanel Public/Published -
pnlComments TPanel Public/Published -
pnlDiagnosticTests TGroupBox Public/Published -
pnlFields TPanel Public/Published -
pnlSelect TPanel Public/Published -
pnlSelectedTests TGroupBox Public/Published -
Splitter1 TSplitter Public/Published -
TabDiag Simple (unknown) Public/Published -
TabInfo Simple (unknown) Public/Published -
TabResults Simple (unknown) Public/Published -
tQuantity TEdit Public/Published -
txtImmedColl TCaptionEdit Public/Published -

Properties

Name Type Scope Comments
EvtDelayLoc Integer Public -
EvtDivision Integer Public -

Methods

Name Declaration Scope Comments
btnCancelCommentClick procedure btnCancelCommentClick(Sender: TObject); Public/Published -
btnRemoveAllClick procedure btnRemoveAllClick(Sender: TObject); Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
btnUpdateCommentsClick procedure btnUpdateCommentsClick(Sender: TObject); Public/Published -
calCollTimeChange procedure calCollTimeChange(Sender: TObject); Public/Published -
calCollTimeEnter procedure calCollTimeEnter(Sender: TObject); Public/Published -
calWantTimeChange procedure calWantTimeChange(Sender: TObject); Public/Published -
calWantTimeEnter procedure calWantTimeEnter(Sender: TObject); Public/Published -
cboAvailCompEnter procedure cboAvailCompEnter(Sender: TObject); Public/Published -
cboAvailCompExit procedure cboAvailCompExit(Sender: TObject); Public/Published -
cboAvailCompNeedData procedure cboAvailCompNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboAvailCompSelect procedure cboAvailCompSelect(Sender: TObject); Public/Published -
cboAvailTestEnter procedure cboAvailTestEnter(Sender: TObject); Public/Published -
cboAvailTestExit procedure cboAvailTestExit(Sender: TObject); Public/Published -
cboAvailTestNeedData procedure cboAvailTestNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); Public/Published -
cboCollTimeChange procedure cboCollTimeChange(Sender: TObject); Public/Published -
cboCollTimeEnter procedure cboCollTimeEnter(Sender: TObject); Public/Published -
cboCollTypeChange procedure cboCollTypeChange(Sender: TObject); Public/Published -
cboCollTypeClick procedure cboCollTypeClick(Sender: TObject); Public/Published -
cboCollTypeEnter procedure cboCollTypeEnter(Sender: TObject); Public/Published -
cboModifiersChange procedure cboModifiersChange(Sender: TObject); Public/Published -
cboModifiersEnter procedure cboModifiersEnter(Sender: TObject); Public/Published -
cboQuickClick procedure cboQuickClick(Sender: TObject); Public/Published -
cboReasonsChange procedure cboReasonsChange(Sender: TObject); Public/Published -
cboReasonsEnter procedure cboReasonsEnter(Sender: TObject); Public/Published -
cboReasonsExit procedure cboReasonsExit(Sender: TObject); Public/Published -
cboSurgeryChange procedure cboSurgeryChange(Sender: TObject); Public/Published -
cboSurgeryClick procedure cboSurgeryClick(Sender: TObject); Public/Published -
cboUrgencyChange procedure cboUrgencyChange(Sender: TObject); Public/Published -
cboUrgencyExit procedure cboUrgencyExit(Sender: TObject); Public/Published -
chkConsentClick procedure chkConsentClick(Sender: TObject); Public/Published -
cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); Public/Published -
cmdImmedCollClick procedure cmdImmedCollClick(Sender: TObject); Public/Published -
DetermineCollectionDefaults procedure DetermineCollectionDefaults(Responses: TResponses); Public -
DisableCommentPanels procedure DisableCommentPanels; Public/Published -
DisableComponentControls procedure DisableComponentControls; Public/Published -
DisableDiagTestControls procedure DisableDiagTestControls; Public/Published -
EnableComponentControls procedure EnableComponentControls; Public/Published -
EnableDiagTestControls procedure EnableDiagTestControls; Public/Published -
ExtractModifiers procedure ExtractModifiers(OutList:TStrings; AList:TStrings); Protected -
ExtractMSBOS procedure ExtractMSBOS(OutList:TStrings; AList:TStrings); Protected -
ExtractOther procedure ExtractOther(OutList:TStrings; AList:TStrings); Protected -
ExtractPatientInfo procedure ExtractPatientInfo(OutList:TStrings; AList:TStrings); Protected -
ExtractReasons procedure ExtractReasons(OutList:TStrings; AList:TStrings); Protected -
ExtractSpecimen procedure ExtractSpecimen(OutList:TStrings; AList:TStrings); Protected -
ExtractSpecimens procedure ExtractSpecimens(OutList:TStrings; AList:TStrings); Protected -
ExtractSurgeries procedure ExtractSurgeries(OutList:TStrings; AList:TStrings); Protected -
ExtractTests procedure ExtractTests(OutList:TStrings; AList:TStrings); Protected -
ExtractTNSOrders procedure ExtractTNSOrders(OutList:TStrings; AList:TStrings); Protected -
ExtractTypeScreen procedure ExtractTypeScreen(OutList:TStrings; AList:TStrings); Protected -
ExtractUrgencies procedure ExtractUrgencies(OutList:TStrings; AList:TStrings); Protected -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetAllCollSamples procedure GetAllCollSamples(AComboBox: TORComboBox); Protected -
GetAllSpecimens procedure GetAllSpecimens(AComboBox: TORComboBox); Protected -
InitDialog procedure InitDialog; override; Protected -
LoadCollType procedure LoadCollType(AComboBox:TORComboBox); Protected -
LoadModifiers procedure LoadModifiers(AComboBox:TORComboBox); Protected -
LoadReasons procedure LoadReasons(AComboBox:TORComboBox); Protected -
LoadRequiredComment procedure LoadRequiredComment(CmtType: integer); Public -
LoadUrgencies procedure LoadUrgencies(AComboBox:TORComboBox); Protected -
lvSelectionListClick procedure lvSelectionListClick(Sender: TObject); Public/Published -
memDiagCommentChange procedure memDiagCommentChange(Sender: TObject); Public/Published -
pgeProductChange procedure pgeProductChange(Sender: TObject); Public/Published -
pnlBloodComponentsClick procedure pnlBloodComponentsClick(Sender: TObject); Public/Published -
pnlBloodComponentsEnter procedure pnlBloodComponentsEnter(Sender: TObject); Public/Published -
pnlBloodComponentsExit procedure pnlBloodComponentsExit(Sender: TObject); Public/Published -
pnlDiagnosticTestsClick procedure pnlDiagnosticTestsClick(Sender: TObject); Public/Published -
pnlDiagnosticTestsEnter procedure pnlDiagnosticTestsEnter(Sender: TObject); Public/Published -
pnlDiagnosticTestsExit procedure pnlDiagnosticTestsExit(Sender: TObject); Public/Published -
ReadServerVariables procedure ReadServerVariables; Private -
SetOnQuickOrder procedure SetOnQuickOrder; Private -
SetupCollTimes procedure SetupCollTimes(CollType: string); Protected -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
SpecimenNeeded function SpecimenNeeded(OutList:TStrings; AList:TStrings; CompID:integer): Boolean; Protected -
tQuantityChange procedure tQuantityChange(Sender: TObject); Public/Published -
tQuantityClick procedure tQuantityClick(Sender: TObject); Public/Published -
tQuantityEnter procedure tQuantityEnter(Sender: TObject); Public/Published -
txtImmedCollEnter procedure txtImmedCollEnter(Sender: TObject); Public/Published -
ValidAdd function ValidAdd: Boolean; Protected -
Validate procedure Validate(var AnErrMsg: string); override; Protected -
ValidateAdd procedure ValidateAdd(var AnErrMsg: string); Protected -
ValidCollTime function ValidCollTime(UserEntry: string): string; Protected -

Referenced By (2)

Module (line) Referrer Type
fODBBank (236) frmODBBank Read
uOrders (219) - Read