Class

TPCEPat

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TPCEItem

Declaration


  TPCEPat = class(TPCEItem)
  {class for patient Education}
  public
//    Provider: Int64; {jm 9/8/99}
    Level:   String;
    procedure Assign(Src: TPCEItem); override;
    procedure Clear; override;
    function DelimitedStr: string; override;
//    function delimitedStrC: string;        
    function ItemStr: string; override;
    procedure SetFromString(const x: string); override;
    function HasCPTStr: string; override;
  end;

Class Hierarchy


TObject
 └TPCEItem
   └TPCEPat

Class Fields

Name Type Scope Comments
Level UnicodeString Public Provider: Int64; {jm 9/8/99}

Methods

Name Declaration Scope Comments
Assign procedure Assign(Src: TPCEItem); override; Public TPCEPat methods -------------------------------------------------------------------------
Clear procedure Clear; override; Public Clear fields(properties) of class
DelimitedStr function DelimitedStr: string; override; Public
Function TPCEPat.DelimitedStr: string;
modified: 6/17/98
By: Robert Bott
Location: ISL
Purpose: Add Comments to PCE Items.

created delimited string to pass to broker
HasCPTStr function HasCPTStr: string; override; Public
Function TPCEPat.delimitedStrC: string;
begin
  Result := inherited DelimitedStr;
  Result := 'PED' + Result + U + Level + U + IntToStr(Provider) + U + U + U +
   U + comment;
end;
ItemStr function ItemStr: string; override; Public
Function delimitedStrC: string;
returns string to be assigned to Tlist in PCEData object
SetFromString procedure SetFromString(const x: string); override; Public Sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Qty ^ Prov

Referenced By (20)

Module (line) Referrer Type
fHealthFactor (43) - Unknown
fPatientEd (49) - Unknown
fPatientEd (59) - Read
fPatientEd (75) - Read
fPatientEd (95) - Read
fReminderDialog (1423) - Read
uPCE (1462) - Read
uPCE (1658) - Read
uPCE (1743) - Read
uPCE (1784) - Read
uPCE (2006) - Read
uPCE (2132) - Read
uPCE (2202) - Read
uPCE (2207) - Read
uPCE (2492) - Read
uPCE (2497) - Read
uPCE (2501) - Read
uPCE (2514) - Read
uPCE (2771) - Read
uPCE (2911) - Read