 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 ------------------------------------------------------------------------------
|
Class
FDCOrder
DCOrder
Create