Procedure

TEncounter.SwitchToSaved

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TEncounter

Declaration

procedure SwitchToSaved(ShowInfoBox: boolean);

Calls Hierarchy


TEncounter.SwitchToSaved
 ├TEncounter.EncounterSwitch
 │ ├TEncounter.SetLocation
 │ ├TEncounter.SetVisitCategory
 │ └TEncounter.SetDateTime
 └TEncounter.EmptySaved

Calls

Name Declaration Comments
TEncounter.EmptySaved procedure EmptySaved(); procedure CreateSaved(Reason: string); function GetICDVersion: String; function NeedVisit: Boolean; property DateTime: TFMDateTime read FDateTime write SetDateTime; property Inpatient: Boolean read FInpatient write SetInpatient; property Location: Integer read FLocation write SetLocation; property LocationName: string read GetLocationName write FLocationName; property LocationText: string read GetLocationText write FLocationText; property Provider: Int64 read FProvider write SetProvider; property ProviderName: string read GetProviderName; property StandAlone: Boolean read FStandAlone write SetStandAlone; property VisitCategory: Char read GetVisitCategory write SetVisitCategory; property VisitStr: string read GetVisitStr; property Notifier: IORNotifier read FNotifier implements IORNotifier; property ICD10ImplDate: TFMDateTime read FICD10ImplDate; end; 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; 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; -
TEncounter.EncounterSwitch procedure EncounterSwitch(Loc: integer; LocName, LocText: string; DT: TFMDateTime; vCat: Char); -


Source

887   procedure TEncounter.SwitchToSaved(ShowInfoBox: boolean);
888   begin
889     if SavedEncounterLoc > 0 then
890     begin
891       if ShowInfoBox then InfoBox(SavedEncounterReason, 'Notice', MB_OK or MB_ICONWARNING);
892       EncounterSwitch(SavedEncounterLoc, SavedEncounterLocName, SavedEncounterText, SavedEncounterDateTime, SavedEncounterVisitCat);
893       EmptySaved();
894     end;
895   end;