Class

TfrmPtSelDemog

Module

fPtSelDemog

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmPtSelDemog = class(TfrmBase508Form)
  orapnlMain: TORAutoPanel;
  lblSSN: TStaticText;
  lblPtSSN: TStaticText;
  lblDOB: TStaticText;
  lblPtDOB: TStaticText;
  lblPtSex: TStaticText;
  lblPtVet: TStaticText;
  lblPtSC: TStaticText;
  lblLocation: TStaticText;
  lblPtRoomBed: TStaticText;
  lblPtLocation: TStaticText;
  lblRoomBed: TStaticText;
  lblPtName: TStaticText;
  Memo: TCaptionMemo;
  lblCombatVet: TStaticText;
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormShow(Sender: TObject);
private
  FLastDFN: string;
  FOldWinProc :TWndMethod;
  procedure NewWinProc(var Message: TMessage);
public
  procedure ClearIDInfo;
  procedure ShowDemog(ItemID: string);
  procedure ToggleMemo;
end;

DFM Objects


frmPtSelDemog : TfrmPtSelDemog
 ├orapnlMain : TORAutoPanel
 │ ├Memo : TCaptionMemo
 │ ├lblPtName : TStaticText
 │ ├lblSSN : TStaticText
 │ ├lblPtSSN : TStaticText
 │ ├lblDOB : TStaticText
 │ ├lblPtDOB : TStaticText
 │ ├lblPtSex : TStaticText
 │ ├lblPtVet : TStaticText
 │ ├lblPtSC : TStaticText
 │ ├lblLocation : TStaticText
 │ ├lblPtRoomBed : TStaticText
 │ ├lblPtLocation : TStaticText
 │ ├lblRoomBed : TStaticText
 │ └lblCombatVet : TStaticText
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
FLastDFN UnicodeString Private -
FOldWinProc Simple (unknown) Private -
lblCombatVet TStaticText Public/Published -
lblDOB TStaticText Public/Published -
lblLocation TStaticText Public/Published -
lblPtDOB TStaticText Public/Published -
lblPtLocation TStaticText Public/Published -
lblPtName TStaticText Public/Published -
lblPtRoomBed TStaticText Public/Published -
lblPtSC TStaticText Public/Published -
lblPtSex TStaticText Public/Published -
lblPtSSN TStaticText Public/Published -
lblPtVet TStaticText Public/Published -
lblRoomBed TStaticText Public/Published -
lblSSN TStaticText Public/Published -
Memo TCaptionMemo Public/Published -
orapnlMain TORAutoPanel Public/Published -

Methods

Name Declaration Scope Comments
ClearIDInfo procedure ClearIDInfo; Public Clears controls with patient ID info (controls have '2' in their Tag property
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
NewWinProc procedure NewWinProc(var Message: TMessage); Private -
ShowDemog procedure ShowDemog(ItemID: string); Public Gets a record of patient indentifying information from the server and displays it
ToggleMemo procedure ToggleMemo; Public -

Referenced By (3)

Module (line) Referrer Type
fPtSel (871) - Read
fPtSelDemog (40) frmPtSelDemog Read
fPtSelDemog (209) - Read