Changeset 1679 for cprs/trunk/CPRS-Chart/Vitals

Timestamp:

May 7, 2015, 12:34:29 PM (10 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Vitals/uVitals.pas (modified) (8 diffs)

cprs/trunk/CPRS-Chart/Vitals/uVitals.pas

@@ -2 +2 @@
 { Old class TVital currently not used - commented out at bottom of unit }
 
+{$DEFINE CCOWBROKER}
+
 interface
 
 uses
   SysUtils, Dialogs, Controls, Windows, Classes, ORClasses, ORCtrls, ORFn, Forms
-  , TRPCB
-  ;
+  , TRPCB ;
 
 const
@@ -86 +87 @@
 
   TGMV_VitalsEnterForm = function(
-        aBroker:TRPCBroker;
+         RPCBrokerV: TRPCBroker;
         aPatient, aLocation, aTemplate,aSignature:String;
         aDateTime:TDateTime): TCustomForm; stdcall;
 
   TGMV_VitalsEnterDLG = function(
-        aBroker:TRPCBroker;
+         RPCBrokerV: TRPCBroker;
         aDFN, aLocation, aTemplate,aSignature:String;
         aDateTime:TDateTime;
@@ -97 +98 @@
 
   TGFM_VitalsViewDLG = function(
-        aBroker:TRPCBroker;
+         RPCBrokerV: TRPCBroker;
         aDFN, aLocation,
         DateStart, DateStop,
@@ -105 +106 @@
 
   TGMV_VitalsViewForm = function(
-        aBroker:TRPCBroker;
+         RPCBrokerV: TRPCBroker;
         aDFN, aLocation,
         DateStart, DateStop,
@@ -114 +115 @@
 
   TGMV_LatestVitalsList = function (
-        aBroker:TRPCBroker;
+         RPCBrokerV: TRPCBroker;
         aDFN,
         aDelim:String;
@@ -124 +125 @@
 var
   VitalsDLLHandle : THandle = 0;
-//  DLLForceClose : Boolean = False;  // jm - removed as part of timeout fix
-
+
+const
+  VitalsDLLName = 'GMV_VitalsViewEnter.dll';
+
+procedure LoadVitalsDLL;
+procedure UnloadVitalsDLL;
 
 const
@@ -188 +193 @@
     if assigned(VitalsExit) then
       VitalsExit();
-    FreeLibrary(VitalsDLLHandle);
-    VitalsDLLHandle := 0;
-//    DLLForceClose := True;   // jm - removed as part of timeout fix
+    UnloadVitalsDLL;
   end;
 end;
@@ -619 +622 @@
   for i := 1 to Length(x) do if not (x[i] in ['0'..'9','.']) then Result := False;
 end;
+
+procedure LoadVitalsDLL;
+var
+  GMV_LibName: String;
+
+begin
+  if VitalsDLLHandle = 0 then
+  begin
+    GMV_LibName := GetProgramFilesPath + SHARE_DIR + VitalsDLLName;
+    VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
+  end;
+end;
+
+procedure UnloadVitalsDLL;
+begin
+  if VitalsDLLHandle <> 0 then
+  begin
+    FreeLibrary(VitalsDLLHandle);
+    VitalsDLLHandle := 0;
+  end;
+end;
+
 (* Old class currently not used
 {$OPTIMIZATION OFF}                              // REMOVE AFTER UNIT IS DEBUGGED