Class

TPLPt

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Comments

Patient qualifiers

Scope

Interfaced

Inherits from

TObject

Declaration


TPLPt=class(TObject)
  PtVAMC:string;
  PtDead:string;
  PtBid:string;
  PtServiceConnected:boolean;
  PtAgentOrange:boolean;
  PtRadiation:boolean;
  PtEnvironmental:boolean;
  PtHNC:boolean;
  PtMST:boolean;
  PtSHAD:boolean;
  constructor Create(Alist:TStringList);
  function GetGMPDFN(dfn:string;name:String):string;
  function Today:string;
end;

Class Hierarchy


TObject
 └TPLPt

Class Fields

Name Type Scope Comments
PtAgentOrange Boolean Public/Published -
PtBid UnicodeString Public/Published -
PtDead UnicodeString Public/Published -
PtEnvironmental Boolean Public/Published -
PtHNC Boolean Public/Published -
PtMST Boolean Public/Published -
PtRadiation Boolean Public/Published -
PtServiceConnected Boolean Public/Published -
PtSHAD Boolean Public/Published -
PtVAMC UnicodeString Public/Published -

Constructors

Name Declaration Scope Comments
Create constructor Create(Alist:TStringList); Public/Published -------------------------- TPLPt Class ----------------------

Methods

Name Declaration Scope Comments
GetGMPDFN function GetGMPDFN(dfn:string;name:String):string; Public/Published -
Today function Today:string; Public/Published Returns string in DHCP^mmm dd yyyy format

Referenced By (2)

Module (line) Referrer Type
fProbs (981) - Read
uProbs (273) PLPt Read