Class

TPCEItem

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TObject

Inherited by

TPCEDiag
TPCEExams
TPCEHealth
TPCEImm
TPCEPat
TPCEProc
TPCESkin

Declaration


  TPCEItem = class(TObject)
  {base class for PCE items}
  private
    FDelete:   Boolean;                          //flag for deletion
    FSend:     Boolean;                          //flag to send to broker
    FComment:  String;
  protected
    procedure SetComment(const Value: String);
  public
//    Provider:  Int64;
    Provider:  Int64;
    Code:      string;
    Category:  string;
    Narrative: string;
    FGecRem: string;
    procedure Assign(Src: TPCEItem); virtual;
    procedure Clear; virtual;
    function DelimitedStr: string; virtual;
    function DelimitedStr2: string; virtual;
    function ItemStr: string; virtual;
    function Match(AnItem: TPCEItem): Boolean;
//    function MatchProvider(AnItem: TPCEItem):Boolean;
    function MatchProvider(AnItem: TPCEItem):Boolean;
    procedure SetFromString(const x: string); virtual;
    function HasCPTStr: string; virtual;
    property Comment: String read FComment write SetComment;
    property GecRem: string read FGecRem write FGecRem;
  end;

Class Hierarchy


TObject
 └TPCEItem
   ├TPCEDiag
   ├TPCEExams
   ├TPCEHealth
   ├TPCEImm
   ├TPCEPat
   ├TPCEProc
   └TPCESkin

Class Fields

Name Type Scope Comments
Category UnicodeString Public -
Code UnicodeString Public -
FComment UnicodeString Private -
FDelete Boolean Private Flag for deletion
FGecRem UnicodeString Public -
FSend Boolean Private Flag to send to broker
Narrative UnicodeString Public -
Provider Int64 Public Provider: Int64;

Properties

Name Type Scope Comments
Comment UnicodeString Public -
GecRem UnicodeString Public -

Methods

Name Declaration Scope Comments
Assign procedure Assign(Src: TPCEItem); virtual; Public -
Clear procedure Clear; virtual; Public
Procedure TPCEItem.Clear;
modified: 6/17/98
By: Robert Bott
Location: ISL
Purpose: Add Comments to PCE Items.

clear fields(properties) of class
DelimitedStr function DelimitedStr: string; virtual; Public
Function TPCEItem.DelimitedStr: string;
modified: 6/17/98
By: Robert Bott
Location: ISL
Purpose: Add Comments to PCE Items.

created delimited string to pass to broker
DelimitedStr2 function DelimitedStr2: string; virtual; Public
Function TPCEItem.DelimitedStr2: string;
added: 6/17/98
By: Robert Bott
Location: ISL
Purpose: Return comment string to be passed in RPC call.

created delimited string to pass to broker
HasCPTStr function HasCPTStr: string; virtual; Public -
ItemStr function ItemStr: string; virtual; Public Returns string to be assigned to Tlist in PCEData object
Match function Match(AnItem: TPCEItem): Boolean; Public Checks for match of Code, Category. and Item
MatchProvider function MatchProvider(AnItem: TPCEItem):Boolean; Public
Function MatchProvider(AnItem: TPCEItem):Boolean;
function TPCEItem.MatchProvider(AnItem: TPCEItem): Boolean;
begin
  Result := False;
  if (Provider = AnItem.Provider) then Result := True;
end;
SetComment procedure SetComment(const Value: String); Protected -
SetFromString procedure SetFromString(const x: string); virtual; Public
Procedure TPCEItem.SetFromString(const x: string);
modified: 6/17/98
By: Robert Bott
Location: ISL
Purpose: Add Comments to PCE Items.

 sets fields to pieces passed from server:  TYP ^ Code ^ Category ^ Narrative

Referenced By (53)

Module (line) Referrer Type
fDiagnoses (690) - Read
fPCEBaseMain (144) - Read
fPCEBaseMain (165) - Read
fPCEBaseMain (213) - Unknown
fPCEBaseMain (232) - Read
fPCEBaseMain (278) - Read
fPCEBaseMain (363) - Read
fPCEBaseMain (371) - Read
fPCEBaseMain (450) - Read
fPCEBaseMain (466) - Read
fPCEBaseMain (522) - Read
fPCEBaseMain (541) - Read
fPCEBaseMain (566) - Read
fPCEBaseMain (591) - Read
fReminderDialog (1111) - Read
uPCE (64) Assign Read
uPCE (69) Match Read
uPCE (71) MatchProvider Read
uPCE (78) - Read
uPCE (80) TPCEProc Read
uPCE (88) Assign Read
uPCE (100) TPCEDiag Read
uPCE (108) Assign Read
uPCE (118) TPCEExams Read
uPCE (123) Assign Read
uPCE (133) TPCEHealth Read
uPCE (138) Assign Read
uPCE (147) TPCEImm Read
uPCE (155) Assign Read
uPCE (164) TPCEPat Read
uPCE (169) Assign Read
uPCE (178) TPCESkin Read
uPCE (186) Assign Read
uPCE (243) MatchItem Read
uPCE (922) - Read
uPCE (978) - Read
uPCE (1009) - Read
uPCE (1072) - Read
uPCE (1162) - Read
uPCE (1225) - Read
uPCE (1324) - Read
uPCE (1459) - Read
uPCE (1521) - Read
uPCE (2266) - Read
uPCE (2272) - Read
uPCE (2284) - Read
uPCE (2288) - Read
uPCE (2292) - Read
uPCE (2864) - Read
uPCE (3223) - Read
uPCE (3239) - Read
uPCE (3253) - Read
uPCE (3256) - Read