Class

TCombatVet

Module

uCombatVet

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TCombatVet = Class(TObject)
private
  FServiceBranch: String;
  FOIF_OEF: String;
  FExpirationDate: String;
  FEligibilityDate: String;
  FStatus: String;
  FSeperationDate: String;
  FDFN : String;
  FLocation: String;
  FIsEligible: Boolean;
  procedure ClearProperties;
public
  procedure UpdateData;
  constructor Create(DFN : String);
  property ServiceBranch : String read FServiceBranch write FServiceBranch;
  property Status : String read FStatus write FStatus;
  property ServiceSeparationDate : String read FSeperationDate write FSeperationDate;
  property EligibilityDate : String read FEligibilityDate write FEligibilityDate;
  property ExpirationDate : String read FExpirationDate write FExpirationDate;
  property OEF_OIF : String read FOIF_OEF write FOIF_OEF;
  property Location : String read FLocation write FLocation;
  property IsEligible : Boolean read FIsEligible write FIsEligible;
End;

Class Hierarchy


TObject
 └TCombatVet

Class Fields

Name Type Scope Comments
FDFN UnicodeString Private -
FEligibilityDate UnicodeString Private -
FExpirationDate UnicodeString Private -
FIsEligible Boolean Private -
FLocation UnicodeString Private -
FOIF_OEF UnicodeString Private -
FSeperationDate UnicodeString Private -
FServiceBranch UnicodeString Private -
FStatus UnicodeString Private -

Properties

Name Type Scope Comments
EligibilityDate UnicodeString Public -
ExpirationDate UnicodeString Public -
IsEligible Boolean Public -
Location UnicodeString Public -
OEF_OIF UnicodeString Public -
ServiceBranch UnicodeString Public -
ServiceSeparationDate UnicodeString Public -
Status UnicodeString Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(DFN : String); Public -

Methods

Name Declaration Scope Comments
ClearProperties procedure ClearProperties; Private TCombatVet
UpdateData procedure UpdateData; Public -

Referenced By (7)

Module (line) Referrer Type
fPtSelDemog (73) - Read
fPtSelDemog (114) - Read
uCore (104) TPatient Read
uCore (107) GetCombatVet Read
uCore (135) TPatient Read
uCore (791) EmptySaved Read
uCore (794) EmptySaved Read