Class

TfrmODLab

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODLab = class(TfrmODBase)
  lblAvailTests: TLabel;
  cboAvailTest: TORComboBox;
  lblCollTime: TLabel;
  cboFrequency: TORComboBox;
  lblTestName: TLabel;
  lblCollSamp: TLabel;
  cboCollSamp: TORComboBox;
  lblSpecimen: TLabel;
  cboSpecimen: TORComboBox;
  lblUrgency: TLabel;
  cboUrgency: TORComboBox;
  lblAddlComment: TLabel;
  txtAddlComment: TCaptionEdit;
  txtDays: TCaptionEdit;
  bvlTestName: TBevel;
  lblFrequency: TLabel;
  pnlHide: TORAutoPanel;
  pnlOrderComment: TORAutoPanel;
  lblOrderComment: TOROffsetLabel;
  pnlAntiCoagulation: TORAutoPanel;
  lblAntiCoagulant: TOROffsetLabel;
  txtAntiCoagulant: TCaptionEdit;
  pnlUrineVolume: TORAutoPanel;
  lblUrineVolume: TOROffsetLabel;
  txtUrineVolume: TCaptionEdit;
  pnlPeakTrough: TORAutoPanel;
  lblPeakTrough: TOROffsetLabel;
  grpPeakTrough: TRadioGroup;
  lblReqComment: TOROffsetLabel;
  pnlDoseDraw: TORAutoPanel;
  lblDose: TOROffsetLabel;
  lblDraw: TOROffsetLabel;
  txtDoseTime: TCaptionEdit;
  txtDrawTime: TCaptionEdit;
  txtOrderComment: TCaptionEdit;
  FLabCommonCombo: TORListBox;
  lblHowManyDays: TLabel;
  cboCollTime: TORComboBox;
  lblCollType: TLabel;
  pnlCollTimeButton: TKeyClickPanel;
  cboCollType: TORComboBox;
  calCollTime: TORDateBox;
  dlgLabCollTime: TORDateTimeDlg;
  txtImmedColl: TCaptionEdit;
  cmdImmedColl: TSpeedButton;
  MessagePopup: TPopupMenu;
  ViewinReportWindow1: TMenuItem;
  Frequencylbl508: TVA508StaticText;
  HowManyDayslbl508: TVA508StaticText;
  specimenlbl508: TVA508StaticText;
  CollSamplbl508: TVA508StaticText;
  procedure FormCreate(Sender: TObject);
  procedure ControlChange(Sender: TObject);
  procedure cboAvailTestNeedData(Sender: TObject;
            const StartFrom: string; Direction, InsertAt: Integer);
  procedure cboAvailTestSelect(Sender: TObject);
  procedure cboCollSampChange(Sender: TObject);
  procedure cboUrgencyChange(Sender: TObject);
  procedure cboSpecimenChange(Sender: TObject);
  procedure txtAddlCommentExit(Sender: TObject);
  procedure cboCollTimeChange(Sender: TObject);
  procedure cboFrequencyChange(Sender: TObject);
  procedure cboCollTypeChange(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure txtOrderCommentExit(Sender: TObject);
  procedure txtAntiCoagulantExit(Sender: TObject);
  procedure txtUrineVolumeExit(Sender: TObject);
  procedure grpPeakTroughClick(Sender: TObject);
  procedure txtDoseTimeExit(Sender: TObject);
  procedure txtDrawTimeExit(Sender: TObject);
  procedure DisableCommentPanels;
  procedure cboAvailTestExit(Sender: TObject);
  procedure cboCollSampKeyPause(Sender: TObject);
  procedure cboCollSampMouseClick(Sender: TObject);
  procedure cboCollTimeExit(Sender: TObject);
  procedure cboSpecimenMouseClick(Sender: TObject);
  procedure cboSpecimenKeyPause(Sender: TObject);
  procedure cmdImmedCollClick(Sender: TObject);
  procedure pnlCollTimeButtonEnter(Sender: TObject);
  procedure pnlCollTimeButtonExit(Sender: TObject);
  procedure ViewinReportWindow1Click(Sender: TObject);
protected
  FCmtTypes: TStringList ;
  procedure InitDialog; override;
  procedure Validate(var AnErrMsg: string); override;
  function  ValidCollTime(UserEntry: string): string;
  procedure DoseDrawComment;
  procedure GetAllCollSamples(AComboBox: TORComboBox);
  procedure GetAllSpecimens(AComboBox: TORComboBox);
  procedure SetupCollTimes(CollType: string);
  procedure LoadCollType(AComboBox:TORComboBox);
 private
  FLastCollType: string;
  FLastCollTime: string;
  FLastLabCollTime: string;
  FLastLabID: string;
  FLastItemID: string;
  FEvtDelayLoc: integer;
  FEvtDivision: integer;
  procedure ReadServerVariables;
  procedure DisplayChangedOrders(ACollType: string);
  procedure setup508Label(text: string; lbl: TVA508StaticText; ctrl: TControl; lbl2: string);
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


frmODLab : TfrmODLab
 ├lblAvailTests : TLabel
 ├lblCollTime : TLabel
 ├lblTestName : TLabel
 ├lblCollSamp : TLabel
 ├lblSpecimen : TLabel
 ├lblUrgency : TLabel
 ├lblAddlComment : TLabel
 ├bvlTestName : TBevel
 ├lblFrequency : TLabel
 ├lblReqComment : TOROffsetLabel
 ├lblHowManyDays : TLabel
 ├lblCollType : TLabel
 ├memOrder : TCaptionMemo
 ├txtImmedColl : TCaptionEdit
 ├calCollTime : TORDateBox
 ├pnlUrineVolume : TORAutoPanel
 │ ├lblUrineVolume : TOROffsetLabel
 │ └txtUrineVolume : TCaptionEdit
 ├pnlAntiCoagulation : TORAutoPanel
 │ ├lblAntiCoagulant : TOROffsetLabel
 │ └txtAntiCoagulant : TCaptionEdit
 ├pnlOrderComment : TORAutoPanel
 │ ├lblOrderComment : TOROffsetLabel
 │ └txtOrderComment : TCaptionEdit
 ├pnlHide : TORAutoPanel
 ├pnlDoseDraw : TORAutoPanel
 │ ├lblDose : TOROffsetLabel
 │ ├lblDraw : TOROffsetLabel
 │ ├txtDoseTime : TCaptionEdit
 │ └txtDrawTime : TCaptionEdit
 ├pnlPeakTrough : TORAutoPanel
 │ ├lblPeakTrough : TOROffsetLabel
 │ └grpPeakTrough : TRadioGroup
 ├pnlCollTimeButton : TKeyClickPanel
 │ └cmdImmedColl : TSpeedButton
 ├cboAvailTest : TORComboBox
 ├cboFrequency : TORComboBox
 ├cboCollSamp : TORComboBox
 ├cboSpecimen : TORComboBox
 ├cboUrgency : TORComboBox
 ├txtAddlComment : TCaptionEdit
 ├txtDays : TCaptionEdit
 ├FLabCommonCombo : TORListBox
 ├cboCollTime : TORComboBox
 ├cboCollType : TORComboBox
 ├Frequencylbl508 : TVA508StaticText
 ├HowManyDayslbl508 : TVA508StaticText
 ├cmdAccept : TButton
 ├specimenlbl508 : TVA508StaticText
 ├cmdQuit : TButton
 ├CollSamplbl508 : TVA508StaticText
 ├pnlMessage : TPanel
 │ ├imgMessage : TImage
 │ └memMessage : TRichEdit
 ├amgrMain : TVA508AccessibilityManager
 ├dlgLabCollTime : TORDateTimeDlg
 └MessagePopup : TPopupMenu
   └ViewinReportWindow1 : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
bvlTestName TBevel Public/Published -
calCollTime TORDateBox Public/Published -
cboAvailTest TORComboBox Public/Published -
cboCollSamp TORComboBox Public/Published -
cboCollTime TORComboBox Public/Published -
cboCollType TORComboBox Public/Published -
cboFrequency TORComboBox Public/Published -
cboSpecimen TORComboBox Public/Published -
cboUrgency TORComboBox Public/Published -
cmdImmedColl TSpeedButton Public/Published -
CollSamplbl508 TVA508StaticText Public/Published -
dlgLabCollTime Simple (unknown) Public/Published -
FCmtTypes TStringList Protected -
FEvtDelayLoc Integer Private -
FEvtDivision Integer Private -
FLabCommonCombo TORListBox Public/Published -
FLastCollTime UnicodeString Private -
FLastCollType UnicodeString Private -
FLastItemID UnicodeString Private -
FLastLabCollTime UnicodeString Private -
FLastLabID UnicodeString Private -
Frequencylbl508 TVA508StaticText Public/Published -
grpPeakTrough TRadioGroup Public/Published -
HowManyDayslbl508 TVA508StaticText Public/Published -
lblAddlComment TLabel Public/Published -
lblAntiCoagulant TOROffsetLabel Public/Published -
lblAvailTests TLabel Public/Published -
lblCollSamp TLabel Public/Published -
lblCollTime TLabel Public/Published -
lblCollType TLabel Public/Published -
lblDose TOROffsetLabel Public/Published -
lblDraw TOROffsetLabel Public/Published -
lblFrequency TLabel Public/Published -
lblHowManyDays TLabel Public/Published -
lblOrderComment TOROffsetLabel Public/Published -
lblPeakTrough TOROffsetLabel Public/Published -
lblReqComment TOROffsetLabel Public/Published -
lblSpecimen TLabel Public/Published -
lblTestName TLabel Public/Published -
lblUrgency TLabel Public/Published -
lblUrineVolume TOROffsetLabel Public/Published -
MessagePopup TPopupMenu Public/Published -
pnlAntiCoagulation TORAutoPanel Public/Published -
pnlCollTimeButton TKeyClickPanel Public/Published -
pnlDoseDraw TORAutoPanel Public/Published -
pnlHide TORAutoPanel Public/Published -
pnlOrderComment TORAutoPanel Public/Published -
pnlPeakTrough TORAutoPanel Public/Published -
pnlUrineVolume TORAutoPanel Public/Published -
specimenlbl508 TVA508StaticText Public/Published -
txtAddlComment TCaptionEdit Public/Published -
txtAntiCoagulant TCaptionEdit Public/Published -
txtDays TCaptionEdit Public/Published -
txtDoseTime TCaptionEdit Public/Published -
txtDrawTime TCaptionEdit Public/Published -
txtImmedColl TCaptionEdit Public/Published -
txtOrderComment TCaptionEdit Public/Published -
txtUrineVolume TCaptionEdit Public/Published -
ViewinReportWindow1 TMenuItem Public/Published -

Properties

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

Methods

Name Declaration Scope Comments
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 -
cboCollSampChange procedure cboCollSampChange(Sender: TObject); Public/Published -
cboCollSampKeyPause procedure cboCollSampKeyPause(Sender: TObject); Public/Published -
cboCollSampMouseClick procedure cboCollSampMouseClick(Sender: TObject); Public/Published -
cboCollTimeChange procedure cboCollTimeChange(Sender: TObject); Public/Published -
cboCollTimeExit procedure cboCollTimeExit(Sender: TObject); Public/Published -
cboCollTypeChange procedure cboCollTypeChange(Sender: TObject); Public/Published -
cboFrequencyChange procedure cboFrequencyChange(Sender: TObject); Public/Published -
cboSpecimenChange procedure cboSpecimenChange(Sender: TObject); Public/Published -
cboSpecimenKeyPause procedure cboSpecimenKeyPause(Sender: TObject); Public/Published -
cboSpecimenMouseClick procedure cboSpecimenMouseClick(Sender: TObject); Public/Published -
cboUrgencyChange procedure cboUrgencyChange(Sender: TObject); Public/Published -
cmdImmedCollClick procedure cmdImmedCollClick(Sender: TObject); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Public/Published End of TLabTest object
DetermineCollectionDefaults procedure DetermineCollectionDefaults(Responses: TResponses); Public I: integer;
DisableCommentPanels procedure DisableCommentPanels; Public/Published -
DisplayChangedOrders procedure DisplayChangedOrders(ACollType: string); Private -
DoseDrawComment procedure DoseDrawComment; Protected -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published Base form procedures shared by all dialogs ------------------------------------------------
GetAllCollSamples procedure GetAllCollSamples(AComboBox: TORComboBox); Protected -
GetAllSpecimens procedure GetAllSpecimens(AComboBox: TORComboBox); Protected -
grpPeakTroughClick procedure grpPeakTroughClick(Sender: TObject); Public/Published -
InitDialog procedure InitDialog; override; Protected -
LoadCollType procedure LoadCollType(AComboBox:TORComboBox); Protected -
LoadRequiredComment procedure LoadRequiredComment(CmtType: integer); Public -
pnlCollTimeButtonEnter procedure pnlCollTimeButtonEnter(Sender: TObject); Public/Published -
pnlCollTimeButtonExit procedure pnlCollTimeButtonExit(Sender: TObject); Public/Published -
ReadServerVariables procedure ReadServerVariables; Private -
setup508Label procedure setup508Label(text: string; lbl: TVA508StaticText; ctrl: TControl; lbl2: string); Private
TDP - CQ#19396 Added to address 508 related changes. I modified slightly to
       change lbl.Caption and retain lbl.Width
SetupCollTimes procedure SetupCollTimes(CollType: string); Protected -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
txtAddlCommentExit procedure txtAddlCommentExit(Sender: TObject); Public/Published -
txtAntiCoagulantExit procedure txtAntiCoagulantExit(Sender: TObject); Public/Published -
txtDoseTimeExit procedure txtDoseTimeExit(Sender: TObject); Public/Published -
txtDrawTimeExit procedure txtDrawTimeExit(Sender: TObject); Public/Published -
txtOrderCommentExit procedure txtOrderCommentExit(Sender: TObject); Public/Published -
txtUrineVolumeExit procedure txtUrineVolumeExit(Sender: TObject); Public/Published -
Validate procedure Validate(var AnErrMsg: string); override; Protected -
ValidCollTime function ValidCollTime(UserEntry: string): string; Protected -
ViewinReportWindow1Click procedure ViewinReportWindow1Click(Sender: TObject); Public/Published -

Referenced By (1)

Module (line) Referrer Type
uOrders (218) - Read