Class

TPCEProc

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TPCEItem

Declaration


  TPCEProc = class(TPCEItem)
  {class for procedures}
  public
    FIsOldProcedure: boolean;
    Quantity:  Integer;
    Modifiers: string; // Format Modifier1IEN;Modifier2IEN;Modifier3IEN; Trailing ; needed
//    Provider: Int64; {jm 9/8/99}
    Provider: Int64; {jm 9/8/99}
    procedure Assign(Src: TPCEItem); override;
    procedure Clear; override;
    function DelimitedStr: string; override;
//    function DelimitedStrC: string;
//    function Match(AnItem: TPCEProc): Boolean;
    function ModText: string;
    function ItemStr: string; override;
    procedure SetFromString(const x: string); override;
    procedure CopyProc(Dest: TPCEProc);
    function Empty: boolean;
  end;

Class Hierarchy


TObject
 └TPCEItem
   └TPCEProc

Class Fields

Name Type Scope Comments
FIsOldProcedure Boolean Public -
Modifiers UnicodeString Public Format Modifier1IEN;Modifier2IEN;Modifier3IEN; Trailing ; needed
Provider Int64 Public
Provider: Int64; {jm 9/8/99}

jm 9/8/99
Quantity Integer Public -

Methods

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

created delimited string to pass to broker
Empty function Empty: boolean; Public
Function TPCEProc.delimitedStrC: string;
begin
  Result := inherited DelimitedStr;
  Result := 'CPT' + Result + U + IntToStr(Quantity) + U + IntToStr(Provider) +
  U + U + U + U + comment;
end;
ItemStr function ItemStr: string; override; Public Returns string to be assigned to Tlist in PCEData object
ModText function ModText: string; Public
Function DelimitedStrC: string;
    function Match(AnItem: TPCEProc): Boolean;
function TPCEProc.Match(AnItem: TPCEProc): Boolean;        {NEW CODE - v20 testing only - RV}
begin
  Result := inherited Match(AnItem) and (Modifiers = AnItem.Modifiers);
end;
SetFromString procedure SetFromString(const x: string); override; Public Sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Qty ^ Prov

Referenced By (46)

Module (line) Referrer Type
fEncounterFrame (117) uVisitType Read
fEncounterFrame (548) - Read
fPCEBaseMain (182) - Read
fPCEBaseMain (479) - Read
fProcedure (81) - Unknown
fProcedure (95) - Unknown
fProcedure (111) - Read
fProcedure (132) - Read
fProcedure (157) - Read
fProcedure (269) - Read
fProcedure (281) - Read
fProcedure (338) - Read
fProcedure (385) - Read
fProcedure (407) - Read
fProcedure (468) - Read
fProcedure (553) - Read
fProcedure (565) - Read
fProcedure (583) - Unknown
fReminderDialog (1420) - Read
uPCE (96) CopyProc Read
uPCE (223) TPCEData Read
uPCE (282) SetVisitType Read
uPCE (318) TPCEData Read
uPCE (1327) - Read
uPCE (1328) - Read
uPCE (1329) - Read
uPCE (1342) - Read
uPCE (1634) - Read
uPCE (1655) - Read
uPCE (1728) - Read
uPCE (1781) - Read
uPCE (1980) - Read
uPCE (2114) - Read
uPCE (2175) - Read
uPCE (2180) - Read
uPCE (2360) - Read
uPCE (2365) - Read
uPCE (2369) - Read
uPCE (2383) - Read
uPCE (2396) - Read
uPCE (2595) - Read
uPCE (2597) - Read
uPCE (2604) - Read
uPCE (2734) - Read
uPCE (2908) - Read
uPCE (3179) - Read