Class

TPCEDiag

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TPCEItem

Declaration


  TPCEDiag = class(TPCEItem)
  {class for diagnosis}
  public
    fProvider: Int64; 
    Primary:   Boolean;
    AddProb:   Boolean;
    OldComment: string;
    SaveComment: boolean;
    procedure Assign(Src: TPCEItem); override;
    procedure Clear; override;
    function DelimitedStr: string; override;
    function DelimitedStr2: string; override;
//    function delimitedStrC: string;        
    function ItemStr: string; override;
    procedure SetFromString(const x: string); override;
    procedure Send;
  end;

Class Hierarchy


TObject
 └TPCEItem
   └TPCEDiag

Class Fields

Name Type Scope Comments
AddProb Boolean Public -
fProvider Int64 Public -
OldComment UnicodeString Public -
Primary Boolean Public -
SaveComment Boolean Public -

Methods

Name Declaration Scope Comments
Assign procedure Assign(Src: TPCEItem); override; Public TPCEDiag methods -------------------------------------------------------------------------
Clear procedure Clear; override; Public
Procedure TPCEDiag.Clear;
modified: 6/17/98
By: Robert Bott
Location: ISL
Purpose: Clear a diagnosis object.

clear fields(properties) of class
DelimitedStr function DelimitedStr: string; override; Public
Function TPCEDiag.DelimitedStr: string;
modified: 6/17/98
By: Robert Bott
Location: ISL
Purpose: Create delimited string to pass to Broker.

created delimited string to pass to broker
DelimitedStr2 function DelimitedStr2: string; override; Public -
ItemStr function ItemStr: string; override; Public
Function delimitedStrC: string;
function TPCEDiag.DelimitedStrC: string;
{created delimited string for internal use - keep comment in same string.}
begin
  Result := inherited DelimitedStr;
  Result := 'POV' + Result + U + BOOLCHAR[Primary] + U + IntToStr(Provider)+
  U + BOOLCHAR[AddProb] + U + U + U + comment;
end;


returns string to be assigned to Tlist in PCEData object
Send procedure Send; Public Marks diagnosis to be sent;
SetFromString procedure SetFromString(const x: string); override; Public
Procedure TPCEDiag.SetFromString(const x: string);
modified: 6/17/98
By: Robert Bott
Location: ISL
Purpose: Sets fields to pieces passed from server.

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

Referenced By (39)

Module (line) Referrer Type
fDiagnoses (31) GetSCTforICD Read
fDiagnoses (33) isProblem Read
fDiagnoses (132) - Read
fDiagnoses (138) - Unknown
fDiagnoses (147) - Read
fDiagnoses (154) - Read
fDiagnoses (171) - Unknown
fDiagnoses (172) - Read
fDiagnoses (173) - Read
fDiagnoses (175) - Read
fDiagnoses (177) - Read
fDiagnoses (178) - Read
fDiagnoses (179) - Read
fDiagnoses (191) - Read
fDiagnoses (253) - Read
fDiagnoses (363) - Read
fDiagnoses (363) - Read
fDiagnoses (374) - Read
fDiagnoses (696) - Read
fDiagnoses (705) - Read
fPCEBaseMain (241) - Read
fReminderDialog (1419) - Read
uPCE (1524) - Read
uPCE (1525) - Read
uPCE (1654) - Read
uPCE (1723) - Read
uPCE (1780) - Read
uPCE (1966) - Read
uPCE (2098) - Read
uPCE (2164) - Read
uPCE (2171) - Read
uPCE (2308) - Read
uPCE (2314) - Read
uPCE (2318) - Read
uPCE (2331) - Read
uPCE (2345) - Read
uPCE (2722) - Read
uPCE (2907) - Read
uPCE (3168) - Read