Class

TfrmEncVitals

Module

fEncVitals

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmPCEBase

Declaration


TfrmEncVitals = class(TfrmPCEBase)
  pnlmain: TPanel;
  lblDate: TStaticText;
  lblDateBP: TStaticText;
  lblDateTemp: TStaticText;
  lblDateResp: TStaticText;
  lblDatePulse: TStaticText;
  lblDateHeight: TStaticText;
  lblDateWeight: TStaticText;
  lblLstMeas: TStaticText;
  lbllastBP: TStaticText;
  lblLastTemp: TStaticText;
  lblLastResp: TStaticText;
  lblLastPulse: TStaticText;
  lblLastHeight: TStaticText;
  lblLastWeight: TStaticText;
  lblVitPointer: TOROffsetLabel;
  lblVital: TStaticText;
  lblVitBP: TStaticText;
  lnlVitTemp: TStaticText;
  lblVitResp: TStaticText;
  lblVitPulse: TStaticText;
  lblVitHeight: TStaticText;
  lblVitWeight: TStaticText;
  txtMeasBP: TCaptionEdit;
  cboTemp: TCaptionComboBox;
  txtMeasTemp: TCaptionEdit;
  txtMeasResp: TCaptionEdit;
  cboHeight: TCaptionComboBox;
  txtMeasWt: TCaptionEdit;
  cboWeight: TCaptionComboBox;
  txtMeasDate: TORDateBox;
  lblVitPain: TStaticText;
  lblLastPain: TStaticText;
  lblDatePain: TStaticText;
  cboPain: TORComboBox;
  txtMeasPulse: TCaptionEdit;
  txtMeasHt: TCaptionEdit;
  pnlBottom: TPanel;
  lvVitals: TCaptionListView;
  btnEnterVitals: TButton;
  btnOKkludge: TButton;
  btnCancelkludge: TButton;
  procedure SetVitPointer(Sender: TObject);
  procedure txtMeasBPExit(Sender: TObject);
  procedure cboTempChange(Sender: TObject);
  procedure cboTempExit(Sender: TObject);
  procedure txtMeasRespExit(Sender: TObject);
  procedure txtMeasPulseExit(Sender: TObject);
  procedure cboHeightChange(Sender: TObject);
  procedure cboHeightExit(Sender: TObject);
  procedure cboWeightChange(Sender: TObject);
  procedure cboWeightExit(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure lbllastClick(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure FormActivate(Sender: TObject);
  function HasData: Boolean;
  function AssignVitals: boolean;
  procedure cboPainChange(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure txtMeasTempExit(Sender: TObject);
  procedure txtMeasHtExit(Sender: TObject);
  procedure txtMeasWtExit(Sender: TObject);
  procedure btnEnterVitalsClick(Sender: TObject); //vitals lite
private
  FDataLoaded: boolean;
  FChangingFocus: boolean;
  UvitalNew: TStringList;
  uVitalOld: TSTringList;
  procedure InitVitalPanel;
  procedure PopulateLastVital;
  function GetVitHTRate: String;
  procedure CheckVitalUnit;
  procedure ChangeFocus(Control: TWinControl);
  procedure ClearData;
  procedure LoadVitalView(VitalsList : TStringList); //Vitals Lite
  procedure LoadVitalsList;
public
  function OK2SaveVitals: boolean;
  property VitalNew: TStringList read uVitalNew;
  property VitalOld: TStringList read uVitalOld;
end;

DFM Objects


frmEncVitals : TfrmEncVitals
 ├lvVitals : TCaptionListView
 ├pnlBottom : TPanel
 │ ├btnEnterVitals : TButton
 │ ├btnOKkludge : TButton
 │ └btnCancelkludge : TButton
 ├btnOK : TBitBtn
 ├btnCancel : TBitBtn
 ├pnlmain : TPanel
 │ ├lblVitPointer : TOROffsetLabel
 │ ├lblDate : TStaticText
 │ ├lblDateBP : TStaticText
 │ ├lblDateTemp : TStaticText
 │ ├lblDateResp : TStaticText
 │ ├lblDatePulse : TStaticText
 │ ├lblDateHeight : TStaticText
 │ ├lblDateWeight : TStaticText
 │ ├lblLstMeas : TStaticText
 │ ├lbllastBP : TStaticText
 │ ├lblLastTemp : TStaticText
 │ ├lblLastResp : TStaticText
 │ ├lblLastPulse : TStaticText
 │ ├lblLastHeight : TStaticText
 │ ├lblLastWeight : TStaticText
 │ ├lblVital : TStaticText
 │ ├lblVitBP : TStaticText
 │ ├lnlVitTemp : TStaticText
 │ ├lblVitResp : TStaticText
 │ ├lblVitPulse : TStaticText
 │ ├lblVitHeight : TStaticText
 │ ├lblVitWeight : TStaticText
 │ ├lblVitPain : TStaticText
 │ ├lblLastPain : TStaticText
 │ ├lblDatePain : TStaticText
 │ ├txtMeasBP : TCaptionEdit
 │ ├cboTemp : TCaptionComboBox
 │ ├txtMeasTemp : TCaptionEdit
 │ ├txtMeasResp : TCaptionEdit
 │ ├cboHeight : TCaptionComboBox
 │ ├txtMeasWt : TCaptionEdit
 │ ├cboWeight : TCaptionComboBox
 │ ├txtMeasDate : TORDateBox
 │ ├cboPain : TORComboBox
 │ ├txtMeasPulse : TCaptionEdit
 │ └txtMeasHt : TCaptionEdit
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnCancelkludge TButton Public/Published -
btnEnterVitals TButton Public/Published -
btnOKkludge TButton Public/Published -
cboHeight Simple (unknown) Public/Published -
cboPain TORComboBox Public/Published -
cboTemp Simple (unknown) Public/Published -
cboWeight Simple (unknown) Public/Published -
FChangingFocus Boolean Private -
FDataLoaded Boolean Private -
lblDate TStaticText Public/Published -
lblDateBP TStaticText Public/Published -
lblDateHeight TStaticText Public/Published -
lblDatePain TStaticText Public/Published -
lblDatePulse TStaticText Public/Published -
lblDateResp TStaticText Public/Published -
lblDateTemp TStaticText Public/Published -
lblDateWeight TStaticText Public/Published -
lbllastBP TStaticText Public/Published -
lblLastHeight TStaticText Public/Published -
lblLastPain TStaticText Public/Published -
lblLastPulse TStaticText Public/Published -
lblLastResp TStaticText Public/Published -
lblLastTemp TStaticText Public/Published -
lblLastWeight TStaticText Public/Published -
lblLstMeas TStaticText Public/Published -
lblVital TStaticText Public/Published -
lblVitBP TStaticText Public/Published -
lblVitHeight TStaticText Public/Published -
lblVitPain TStaticText Public/Published -
lblVitPointer Simple (unknown) Public/Published -
lblVitPulse TStaticText Public/Published -
lblVitResp TStaticText Public/Published -
lblVitWeight TStaticText Public/Published -
lnlVitTemp TStaticText Public/Published -
lvVitals Simple (unknown) Public/Published -
pnlBottom TPanel Public/Published -
pnlmain TPanel Public/Published -
txtMeasBP Simple (unknown) Public/Published -
txtMeasDate TORDateBox Public/Published -
txtMeasHt Simple (unknown) Public/Published -
txtMeasPulse Simple (unknown) Public/Published -
txtMeasResp Simple (unknown) Public/Published -
txtMeasTemp Simple (unknown) Public/Published -
txtMeasWt Simple (unknown) Public/Published -
UvitalNew TStringList Private -
uVitalOld TStringList Private -

Properties

Name Type Scope Comments
VitalNew TStringList Public -
VitalOld TStringList Public -

Methods

Name Declaration Scope Comments
AssignVitals function AssignVitals: boolean; Public/Published -
btnEnterVitalsClick procedure btnEnterVitalsClick(Sender: TObject); Public/Published Vitals lite
cboHeightChange procedure cboHeightChange(Sender: TObject); Public/Published -
cboHeightExit procedure cboHeightExit(Sender: TObject); Public/Published -
cboPainChange procedure cboPainChange(Sender: TObject); Public/Published -
cboTempChange procedure cboTempChange(Sender: TObject); Public/Published -
cboTempExit procedure cboTempExit(Sender: TObject); Public/Published -
cboWeightChange procedure cboWeightChange(Sender: TObject); Public/Published -
cboWeightExit procedure cboWeightExit(Sender: TObject); Public/Published -
ChangeFocus procedure ChangeFocus(Control: TWinControl); Private -
CheckVitalUnit procedure CheckVitalUnit; Private -
ClearData procedure ClearData; Private -
FormActivate procedure FormActivate(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetVitHTRate function GetVitHTRate: String; Private -
HasData function HasData: Boolean; Public/Published -
InitVitalPanel procedure InitVitalPanel; Private -
lbllastClick procedure lbllastClick(Sender: TObject); Public/Published -
LoadVitalsList procedure LoadVitalsList; Private -
LoadVitalView procedure LoadVitalView(VitalsList : TStringList); Private
Vitals Lite
Begin Vitals Lite
OK2SaveVitals function OK2SaveVitals: boolean; Public -
PopulateLastVital procedure PopulateLastVital; Private -
SetVitPointer procedure SetVitPointer(Sender: TObject); Public/Published -
txtMeasBPExit procedure txtMeasBPExit(Sender: TObject); Public/Published -
txtMeasHtExit procedure txtMeasHtExit(Sender: TObject); Public/Published -
txtMeasPulseExit procedure txtMeasPulseExit(Sender: TObject); Public/Published -
txtMeasRespExit procedure txtMeasRespExit(Sender: TObject); Public/Published -
txtMeasTempExit procedure txtMeasTempExit(Sender: TObject); Public/Published -
txtMeasWtExit procedure txtMeasWtExit(Sender: TObject); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fEncounterFrame (265) - Read
fEncVitals (97) frmEncVitals Read
fEncVitals (623) - Read