Class

TChangeItem

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TChangeItem = class
private
  FItemType:     Integer;
  FID:           String;
  FText:         String;
  FGroupName:    String;
  FSignState:    Integer;
  FParentID:     String;
  FUser:         Int64;
  FOrderDG:      String;
  FDCOrder:      Boolean;
  FDelay:        Boolean;
  constructor Create(AnItemType: Integer; const AnID, AText, AGroupName: string;
    ASignState: Integer; AParentID: string = ''; User: int64 = 0; OrderDG: string = '';
    DCOrder: Boolean = False; Delay: Boolean = False);
public
  property ItemType:  Integer read FItemType;
  property ID:        string  read FID;
  property Text:      string  read FText;
  property GroupName: string  read FGroupName;
  property SignState: Integer read FSignState write FSignState;
  property ParentID : string  read FParentID;
  property User: Int64 read FUser write FUser;
  property OrderDG: string read FOrderDG write FOrderDG;
  property DCOrder: boolean read FDCOrder write FDCOrder;
  property Delay: boolean read FDelay write FDelay;
  function CSValue(): Boolean;
end;

Class Hierarchy


TObject
 └TChangeItem

Class Fields

Name Type Scope Comments
FDCOrder Boolean Private -
FDelay Boolean Private -
FGroupName UnicodeString Private -
FID UnicodeString Private -
FItemType Integer Private -
FOrderDG UnicodeString Private -
FParentID UnicodeString Private -
FSignState Integer Private -
FText UnicodeString Private -
FUser Int64 Private -

Properties

Name Type Scope Comments
DCOrder Boolean Public -
Delay Boolean Public -
GroupName UnicodeString Public -
ID UnicodeString Public -
ItemType Integer Public -
OrderDG UnicodeString Public -
ParentID UnicodeString Public -
SignState Integer Public -
Text UnicodeString Public -
User Int64 Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(AnItemType: Integer; const AnID, AText, AGroupName: string; ASignState: Integer; AParentID: string = ''; User: int64 = 0; OrderDG: string = ''; DCOrder: Boolean = False; Delay: Boolean = False); Private TChangeItem ------------------------------------------------------------------------------

Methods

Name Declaration Scope Comments
CSValue function CSValue(): Boolean; end; TORRemoveChangesEvent = procedure(Sender: TObject; ChangeItem: TChangeItem) of object; {**RV**} TChanges = class private FCount: Integer; FDocuments: TList; fOrders: TList; FOrderGrp: TStringList; FPCE: TList; FPCEGrp: TStringList; FOnRemove: TORRemoveChangesEvent; {**RV**} FRefreshCoverPL: Boolean; FRefreshProblemList: Boolean; private procedure AddUnsignedToChanges; public constructor Create; destructor Destroy; override; procedure Add(ItemType: Integer; const AnID, ItemText, GroupName: string; SignState: Integer; AParentID: string = ''; User: int64 = 0; OrderDG: String = ''; DCOrder: Boolean = False; Delay: Boolean = False; ProblemAdded: Boolean = False); procedure Clear; function CanSign: Boolean; function Exist(ItemType: Integer; const AnID: string): Boolean; function ExistForOrder(const AnID: string): Boolean; function Locate(ItemType: Integer; const AnID: string): TChangeItem; procedure Remove(ItemType: Integer; const AnID: string); procedure ReplaceID(ItemType: Integer; const OldID, NewID: string); procedure ReplaceSignState(ItemType: Integer; const AnID: string; NewState: Integer); procedure ReplaceText(ItemType: Integer; const AnID, NewText: string); procedure ReplaceODGrpName(const AnODID, NewGrp: string); procedure ChangeOrderGrp(const oldGrpName,newGrpName: string); function RequireReview: Boolean; property Count: Integer read FCount; property Documents: TList read FDocuments; property OnRemove: TORRemoveChangesEvent read FOnRemove write FOnRemove; {**RV**} property Orders: TList read fOrders; property PCE: TList read FPCE; property OrderGrp: TStringList read FOrderGrp; property PCEGrp: TStringList read FPCEGrp; property RefreshCoverPL: Boolean read FRefreshCoverPL write FRefreshCoverPL; property RefreshProblemList: Boolean read FRefreshProblemList write FRefreshProblemList; end; TNotifyItem = class private DFN: string; FollowUp: Integer; Public
AlertData: string;
hds7591  Clinic/Ward movement.
AccessStatus: integer;
 put text in the global atom table
 broadcast 'VistA Domain Event - Clinical' to all main windows
SendMessage(HWND_BROADCAST, uVistaDomMsg, WPARAM(Application.MainForm.Handle), LPARAM(AnAtom));

Changed to SendMessageTimeout to prevent hang when other app unresponsive  (RV)
 researched
 after all windows have processed the message, remove the text from the table
 researched
 researched
 researched
 register the message with windows to get a unique message number (if not already registered)
 first send the domain version of the message
 for backward compatibility, send the message without the domain
 TUser methods ---------------------------------------------------------------------------- 
 create the User object for the currently logged in user 
 returns true if the current user has the given security key 
 TPatient methods ------------------------------------------------------------------------- 
 clears all fields in the Patient object 
 selects a patient and sets up the Patient object for the patient 
 TEncounter ------------------------------------------------------------------------------- 
 clears all the fields of an Encounter (usually done upon patient selection 
 returns abbreviated hospital location + room/bed (or date/time for appt) 
 returns external text value for hospital location 
 returns external text value for provider name 
 use VisitCategory property to insure non-null character
 if no Enc Dt or Historical, Hospitalization, or Daily Visit compare I-10 Impl dt with TODAY
 returns true if required fields for visit creation are present 
 added "<" to FDateTime check to trap "-1" visit dates - v23.12 (RV)
 sets the date/time for the encounter - causes the visit to be reset 
 sets the inpatient flag for the encounter - causes the visit to be reset 
 sets the location for the encounter - causes the visit to be reset 
 sets the provider for the encounter - causes the visit to be reset 
 StandAlone should be true if this encounter isn't related to an appointment 
 sets the visit type for this encounter - causes to visit to be reset 
 retrieve external values for provider name, hospital location 
 this references the Patient object which is assumed to be created 
 TChangeItem ------------------------------------------------------------------------------

Referenced By (125)

Module (line) Referrer Type
fCSRemaining (52) - Read
fCSRemaining (56) - Read
fOrders (481) - Read
fOrders (532) - Read
fOrders (3276) - Read
fOrders (3281) - Read
fOrdersCV (381) - Read
fOrdersDC (56) - Read
fOrdersDC (105) - Read
fOrdersSign (1216) - Read
fOrdersSign (1323) - Read
fOrdersSign (1330) - Read
fOrdersSign (1363) - Read
fOrdersSign (1452) - Read
fOrdersSign (1470) - Read
fOrdersSign (1472) - Read
fOrdersSign (1480) - Read
fOrdersSign (1531) - Read
fOrdersSign (1626) - Read
fOrdersSign (1645) - Read
fOrdersSign (1862) - Read
fOrdersSign (1881) - Read
fReview (112) AddItem Read
fReview (113) AddCSItem Read
fReview (118) CleanupChangesList Read
fReview (405) - Read
fReview (438) - Read
fReview (487) - Read
fReview (489) - Read
fReview (497) - Read
fReview (499) - Read
fReview (508) - Read
fReview (879) - Read
fReview (881) - Read
fReview (898) - Read
fReview (923) - Read
fReview (928) - Read
fReview (932) - Read
fReview (945) - Read
fReview (1047) - Read
fReview (1050) - Read
fReview (1167) - Read
fReview (1333) - Read
fReview (1360) - Read
fReview (1375) - Read
fReview (1392) - Read
fReview (1439) - Read
fReview (1760) - Read
fReview (1909) - Read
fReview (1935) - Read
fReview (1946) - Read
fReview (1959) - Read
fReview (1969) - Read
fReview (2095) - Read
fReview (2118) - Read
fReview (2125) - Read
fReview (2127) - Read
fReview (2217) - Read
fReview (2237) - Read
fReview (2288) - Read
fReview (2293) - Read
fReview (2297) - Read
fReview (2310) - Read
fReview (2427) - Read
fReview (2430) - Read
fReview (2530) - Read
fReview (2558) - Read
fReview (2662) - Read
fReview (2682) - Read
fReview (2742) - Read
fReview (2769) - Read
fReview (2798) - Read
fReview (2817) - Read
fReview (2819) - Read
fReview (2828) - Read
fReview (2866) - Read
fReview (2879) - Read
fReview (2887) - Read
fReview (2950) - Read
fReview (2967) - Read
fReview (2974) - Read
fReview (3011) - Read
fReview (3018) - Read
fReview (3220) - Read
fReview (3222) - Read
fReview (3224) - Read
UBAGlobals (641) - Read
UBAGlobals (657) - Read
UBAGlobals (686) - Read
UBAGlobals (718) - Read
uCore (217) EmptySaved Read
uCore (241) EmptySaved Read
uCore (1115) - Read
uCore (1130) - Read
uCore (1139) - Read
uCore (1173) - Read
uCore (1179) - Read
uCore (1195) - Read
uCore (1203) - Read
uCore (1205) - Read
uCore (1206) - Read
uCore (1231) - Read
uCore (1246) - Read
uCore (1253) - Read
uCore (1269) - Read
uCore (1271) - Read
uCore (1294) - Read
uCore (1296) - Read
uCore (1297) - Read
uCore (1309) - Read
uCore (1337) - Read
uCore (1339) - Unknown
uCore (1358) - Read
uCore (1360) - Unknown
uCore (1379) - Read
uCore (1381) - Unknown
uCore (1394) - Read
uCore (1408) - Read
uCore (1762) - Read
uCore (1763) - Unknown
uSignItems (146) thisChangeItem Read
uSignItems (419) - Read
uSignItems (421) - Read
uSignItems (719) - Read
uSignItems (1166) - Read