Class

TPCEImm

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TPCEItem

Declaration


  TPCEImm = class(TPCEItem)  
  {class for immunizations}
  public
//    Provider:        Int64; {jm 9/8/99}
    Series:          String;
    Reaction:        String;
    Refused:         Boolean; //not currently used
    Contraindicated: Boolean;
    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
   └TPCEImm

Class Fields

Name Type Scope Comments
Contraindicated Boolean Public -
Reaction UnicodeString Public -
Refused Boolean Public Not currently used
Series UnicodeString Public Provider: Int64; {jm 9/8/99}

Methods

Name Declaration Scope Comments
Assign procedure Assign(Src: TPCEItem); override; Public TPCEImm methods -------------------------------------------------------------------------
Clear procedure Clear; override; Public Clear fields(properties) of class
DelimitedStr function DelimitedStr: string; override; Public
Function TPCEImm.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 TPCEImm.delimitedStrC: string;
begin
  Result := inherited DelimitedStr;
  Result := 'IMM' + Result + U + Series + U + IntToStr(Provider) + U + Reaction;
  if Contraindicated then Result := Result + U + '1'
  else Result := Result + U + '0';
  Result := Result + U + U + comment;
    {the following two lines are not yet implemented in PCE side}
  //if Refused then Result := Result + U + '1'
  //else Result := Result + U + '0';
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 (22)

Module (line) Referrer Type
fImmunization (50) - Unknown
fImmunization (64) - Unknown
fImmunization (78) - Unknown
fImmunization (88) - Read
fImmunization (109) - Read
fImmunization (136) - Read
fReminderDialog (1421) - Read
uPCE (1227) - Read
uPCE (1231) - Read
uPCE (1656) - Read
uPCE (1733) - Read
uPCE (1782) - Read
uPCE (1990) - Read
uPCE (2120) - Read
uPCE (2184) - Read
uPCE (2189) - Read
uPCE (2411) - Read
uPCE (2416) - Read
uPCE (2420) - Read
uPCE (2443) - Read
uPCE (2747) - Read
uPCE (2909) - Read