Changeset 1679 for cprs/trunk/CPRS-Chart/fVitals.pas

Timestamp:

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

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/fVitals.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/fVitals.pas

@@ -170 +170 @@
 var
   VLPtVitals : TGMV_VitalsViewForm;
-  GMV_FName,
-  GMV_LibName: String;
+  GMV_FName: String;
+  
 begin
  { Availble Forms:
@@ -180 +180 @@
   }
   GMV_FName :='GMV_VitalsViewDLG';
-  GMV_LibName :='GMV_VitalsViewEnter.dll';
-  GMV_LibName := GetProgramFilesPath + SHARE_DIR + GMV_LibName;
-  if VitalsDLLHandle = 0 then
-    VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
+  LoadVitalsDLL;
  // UpdateTimeOutInterval(5000);
   if VitalsDLLHandle <> 0 then
@@ -200 +197 @@
     end
   else
-    MessageDLG('Can''t find library "'+GMV_LibName+'".',mtError,[mbok],0);
+    MessageDLG('Can''t find library '+VitalsDLLName+'.',mtError,[mbok],0);
   @VLPtVitals := nil;
-  if VitalsDLLHandle <> 0 then
-  begin
-    FreeLibrary(VitalsDLLHandle);
-    VitalsDLLHandle := 0;
-  end;
-//  if DLLForceClose then                  // jm - removed as part of timeout fix
-//    frmFrame.Close; // Fix for CQ: 7535  // jm - removed as part of timeout fix
+  UnloadVitalsDLL;
 end;