Class

TBAPLPt

Module

UBAGlobals

Last Modified

7/15/2014 3:26:34 PM

Comments

Patient qualifiers

Scope

Interfaced

Inherits from

TObject

Declaration


TBAPLPt=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;
public
  function rpcInitPt(const PatientDFN: string): TStrings ;
  procedure LoadPatientParams(AList:TstringList);

end;

Class Hierarchy


TObject
 └TBAPLPt

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 -
LoadPatientParams procedure LoadPatientParams(AList:TstringList); Public -
rpcInitPt function rpcInitPt(const PatientDFN: string): TStrings ; Public DFN*

Referenced By (2)

Module (line) Referrer Type
UBAGlobals (171) BAPLPt Read
UBAGlobals (1084) - Read