Class

TPatient

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TPatient = class(TObject)
private
  FDFN:        string;                         // Internal Entry Number in Patient file  //*DFN*
  FICN:        string;                         // Integration Control Number from MPI
  FName:       string;                         // Patient Name (mixed case)
  FSSN:        string;                         // Patient Identifier (generally SSN)
  FDOB:        TFMDateTime;                    // Date of Birth in Fileman format
  FAge:        Integer;                        // Patient Age
  FSex:        Char;                           // Male, Female, Unknown
  FCWAD:       string;                         // chars identify if pt has CWAD warnings
  FRestricted: Boolean;                        // True if this is a restricted record
  FInpatient:  Boolean;                        // True if that patient is an inpatient
  FStatus:     string;                         // Patient status indicator (Inpatient or Outpatient)
  FLocation:   Integer;                        // IEN in Hosp Loc if inpatient
  FWardService: string;
  FSpecialty:  Integer;                        // IEN of the treating specialty if inpatient
  FSpecialtySvc: string;                       // treating specialty service if inpatient                                                                               
  FAdmitTime:  TFMDateTime;                    // Admit date/time if inpatient
  FSrvConn:    Boolean;                        // True if patient is service connected
  FSCPercent:  Integer;                        // Per Cent Service Connection
  FPrimTeam:   string;                         // name of primary care team
  FPrimProv:   string;                         // name of primary care provider
  FAttending:  string;                         // if inpatient, name of attending
  FAssociate:  string;                         // if inpatient, name of associate
  FInProvider:  string;                        // if inpatient, name of inpatient provider
  FMHTC:       string;                         // name of Mental Health Treatment Coordinator
  FDateDied: TFMDateTime;                      // Date of Patient Death (<=0 or still alive)
  FDateDiedLoaded: boolean;                    // Used to determine of DateDied has been loaded
  fCombatVet : TCombatVet;                     // Object Holding CombatVet Data
  procedure SetDFN(const Value: string);
  function GetDateDied: TFMDateTime;
  function GetCombatVet: TCombatVet;       // *DFN*
public
  procedure Clear;
  destructor Destroy; override;
  property DFN:              string      read FDFN write SetDFN;  //*DFN*
  property ICN:              string      read FICN;
  property Name:             string      read FName;
  property SSN:              string      read FSSN;
  property DOB:              TFMDateTime read FDOB;
  property Age:              Integer     read FAge;
  property Sex:              Char        read FSex;
  property CWAD:             string      read FCWAD;
  property Inpatient:        Boolean     read FInpatient;
  property Status:           string      read FStatus;
  property Location:         Integer     read FLocation;
  property WardService:      string      read FWardService;
  property Specialty:        Integer     read FSpecialty;
  property SpecialtySvc:     string      read FSpecialtySvc;
  property AdmitTime:        TFMDateTime read FAdmitTime;
  property DateDied:         TFMDateTime read GetDateDied;
  property ServiceConnected: Boolean     read FSrvConn;
  property SCPercent:        Integer     read FSCPercent;
  property PrimaryTeam:      string      read FPrimTeam;
  property PrimaryProvider:  string      read FPrimProv;
  property Attending:        string      read FAttending;
  property Associate:        string      read FAssociate;
  property InProvider:        string     read FInProvider;
  property MHTC:             string      read FMHTC;
  property CombatVet:        TCombatVet  read GetCombatVet;
end;

Class Hierarchy


TObject
 └TPatient

Class Fields

Name Type Scope Comments
FAdmitTime TFMDateTime Private Admit date/time if inpatient
FAge Integer Private Patient Age
FAssociate UnicodeString Private If inpatient, name of associate
FAttending UnicodeString Private If inpatient, name of attending
FCombatVet TCombatVet Private Object Holding CombatVet Data
FCWAD UnicodeString Private Chars identify if pt has CWAD warnings
FDateDied TFMDateTime Private Date of Patient Death (<=0 or still alive)
FDateDiedLoaded Boolean Private Used to determine of DateDied has been loaded
FDFN UnicodeString Private Internal Entry Number in Patient file //*DFN*
FDOB TFMDateTime Private Date of Birth in Fileman format
FICN UnicodeString Private Integration Control Number from MPI
FInpatient Boolean Private True if that patient is an inpatient
FInProvider UnicodeString Private If inpatient, name of inpatient provider
FLocation Integer Private IEN in Hosp Loc if inpatient
FMHTC UnicodeString Private Name of Mental Health Treatment Coordinator
FName UnicodeString Private Patient Name (mixed case)
FPrimProv UnicodeString Private Name of primary care provider
FPrimTeam UnicodeString Private Name of primary care team
FRestricted Boolean Private True if this is a restricted record
FSCPercent Integer Private Per Cent Service Connection
FSex Char Private Male, Female, Unknown
FSpecialty Integer Private IEN of the treating specialty if inpatient
FSpecialtySvc UnicodeString Private Treating specialty service if inpatient
FSrvConn Boolean Private True if patient is service connected
FSSN UnicodeString Private Patient Identifier (generally SSN)
FStatus UnicodeString Private Patient status indicator (Inpatient or Outpatient)
FWardService UnicodeString Private -

Properties

Name Type Scope Comments
AdmitTime TFMDateTime Public -
Age Integer Public -
Associate UnicodeString Public -
Attending UnicodeString Public -
CombatVet TCombatVet Public -
CWAD UnicodeString Public -
DateDied TFMDateTime Public -
DFN UnicodeString Public DFN*
DOB TFMDateTime Public -
ICN UnicodeString Public -
Inpatient Boolean Public -
InProvider UnicodeString Public -
Location Integer Public -
MHTC UnicodeString Public -
Name UnicodeString Public -
PrimaryProvider UnicodeString Public -
PrimaryTeam UnicodeString Public -
SCPercent Integer Public -
ServiceConnected Boolean Public -
Sex Char Public -
Specialty Integer Public -
SpecialtySvc UnicodeString Public -
SSN UnicodeString Public -
Status UnicodeString Public -
WardService UnicodeString Public -

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
Clear procedure Clear; Public
TPatient methods ------------------------------------------------------------------------- 

 clears all fields in the Patient object
GetCombatVet function GetCombatVet: TCombatVet; Private *DFN*
GetDateDied function GetDateDied: TFMDateTime; Private -
SetDFN procedure SetDFN(const Value: string); Private
DFN*
 selects a patient and sets up the Patient object for the patient

Referenced By (2)

Module (line) Referrer Type
fFrame (852) - Read
uCore (393) EmptySaved Read