Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/uCore.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/uCore.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/uCore.pas

@@ -343 +343 @@
     RPCName  : String;         //Associated RPC
     IFN      : String;         //IFN of report in file 101.24
+    HDR      : String;         //HDR is source of data if = 1
   end;
 
@@ -355 +356 @@
   HasFlag: boolean;
   FlagList: TStringList;
+  //hds7591  Clinic/Ward movement.
+  TempEncounterLoc: Integer; // used to Save Encounter Location when user selected "Review Sign Changes" from "File"
+  TempEncounterLocName: string; // since in the path PatientRefresh is done prior to checking if patient has been admitted while entering OPT orders.
 
 procedure NotifyOtherApps(const AppEvent, AppData: string);
@@ -501 +505 @@
   if(not uNotifyAppsActive) then exit;
   if Application.MainForm = nil then Exit;
+  if User = nil then exit;
   if not User.FNotifyAppsWM then Exit;
   // register the message with windows to get a unique message number (if not already registered)
@@ -1510 +1515 @@
   i: Integer;
 begin
-  ChangeList := nil;
   ChangeList := FOrders;
   if ChangeList <> nil then with ChangeList do