Class

TfrmVit

Module

fvit

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmVit = class(TfrmAutoSz)
  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;
  txtMeasBP: TCaptionEdit;
  cboTemp: TCaptionComboBox;
  txtMeasTemp: TCaptionEdit;
  txtMeasResp: TCaptionEdit;
  txtMeasPulse: TCaptionEdit;
  txtMeasHt: TCaptionEdit;
  cboHeight: TCaptionComboBox;
  txtMeasWt: TCaptionEdit;
  cboWeight: TCaptionComboBox;
  lblVitPointer: TOROffsetLabel;
  cmdOK: TButton;
  cmdCancel: TButton;
  lblVital: TStaticText;
  lblVitBP: TStaticText;
  lnlVitTemp: TStaticText;
  lblVitResp: TStaticText;
  lblVitPulse: TStaticText;
  lblVitHeight: TStaticText;
  lblVitWeight: TStaticText;
  txtMeasDate: TORDateBox;
  lblDatePain: TStaticText;
  lblLastPain: TStaticText;
  lblVitPain: TStaticText;
  cboPain: TORComboBox;
  procedure FormKeyPress(Sender: TObject; var Key: Char);
  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 cmdCancelClick(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure lbllastClick(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure FormActivate(Sender: TObject);
  procedure cboPainChange(Sender: TObject);
  procedure SetVitPointer(Sender: TObject);
  procedure txtMeasTempExit(Sender: TObject);
  procedure txtMeasHtExit(Sender: TObject);
  procedure txtMeasWtExit(Sender: TObject);

private
  { Private declarations }
  procedure InitVitalPanel;
  procedure PopulateLastVital;
  function GetVitHTRate: String;
  procedure AssignVitals;
  procedure CheckVitalUnit(AWinControl: TWinControl);
public
  { Public declarations }
end;

DFM Objects


frmVit : TfrmVit
 ├cmdOK : TButton
 ├cmdCancel : TButton
 ├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
 │ ├lblDatePain : TStaticText
 │ ├lblLastPain : TStaticText
 │ ├lblVitPain : TStaticText
 │ ├txtMeasBP : TCaptionEdit
 │ ├cboTemp : TCaptionComboBox
 │ ├txtMeasTemp : TCaptionEdit
 │ ├txtMeasResp : TCaptionEdit
 │ ├txtMeasPulse : TCaptionEdit
 │ ├txtMeasHt : TCaptionEdit
 │ ├cboHeight : TCaptionComboBox
 │ ├txtMeasWt : TCaptionEdit
 │ ├cboWeight : TCaptionComboBox
 │ ├txtMeasDate : TORDateBox
 │ └cboPain : TORComboBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cboHeight TCaptionComboBox Public/Published -
cboPain TORComboBox Public/Published -
cboTemp TCaptionComboBox Public/Published -
cboWeight TCaptionComboBox Public/Published -
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
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 TOROffsetLabel Public/Published -
lblVitPulse TStaticText Public/Published -
lblVitResp TStaticText Public/Published -
lblVitWeight TStaticText Public/Published -
lnlVitTemp TStaticText Public/Published -
pnlmain TPanel Public/Published -
txtMeasBP TCaptionEdit Public/Published -
txtMeasDate TORDateBox Public/Published -
txtMeasHt TCaptionEdit Public/Published -
txtMeasPulse TCaptionEdit Public/Published -
txtMeasResp TCaptionEdit Public/Published -
txtMeasTemp TCaptionEdit Public/Published -
txtMeasWt TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
AssignVitals procedure AssignVitals; Private
Procedure: procedure TFrmVit.AssignVitals;
Modifed: 10/02/98
By: Robert Bott
Location: ISL
Description of Mod:
  If encounter.provider is not defined (=0) then use User.DUZ to store vitals.
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 -
CheckVitalUnit procedure CheckVitalUnit(AWinControl: TWinControl); Private -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
FormActivate procedure FormActivate(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormKeyPress procedure FormKeyPress(Sender: TObject; var Key: Char); Public/Published
Start of code for Vital Page--------------------------------------------------

capture return key press if on the vital screen
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetVitHTRate function GetVitHTRate: String; Private -
InitVitalPanel procedure InitVitalPanel; Private Private declarations
lbllastClick procedure lbllastClick(Sender: TObject); Public/Published -
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 (2)

Module (line) Referrer Type
fvit (154) frmVit Read
fVitals (615) - Read