Changeset 1679 for cprs/trunk/CPRS-Chart/Encounter/fEncVitals.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/Encounter/fEncVitals.pas (modified) (4 diffs)

cprs/trunk/CPRS-Chart/Encounter/fEncVitals.pas

@@ -403 +403 @@
 
 {== Vitals Lite 2004-05-21 ===================================================}
-  if VitalsDLLHandle <> 0 then
-  begin
-    FreeLibrary(VitalsDLLHandle);
-    VitalsDLLHandle := 0;
-  end;
+  UnloadVitalsDLL;
 {== Vitals Lite 2004-05-21 ===================================================}
   inherited;
@@ -429 +425 @@
 
 procedure TfrmEncVitals.FormShow(Sender: TObject);
-var
-  GMV_LibName: String;
 begin
   inherited;
   //Begin Vitals Lite
   {Visit is Assumed to Be selected when Opening Encounter Dialog}
-  GMV_LibName :='GMV_VitalsViewEnter.dll';
-  GMV_LibName := GetProgramFilesPath + SHARE_DIR + GMV_LibName;
-  if VitalsDLLHandle = 0 then
-    VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
+  LoadVitalsDLL;
   if VitalsDLLHandle = 0 then // No Handle found
-    MessageDLG('Can''t find library "'+GMV_LibName+'".',mtError,[mbok],0)
+    MessageDLG('Can''t find library '+VitalsDLLName+'.',mtError,[mbok],0)
   else
     LoadVitalsList;
@@ -619 +610 @@
   if assigned(VLPtVitals) then
   begin
-//    frmFrame.DLLActive := True;  // need this flag for CCOW (RV)
     VitalsList := VLPtVitals(RPCBrokerV,Patient.DFN,U,false);
     if assigned(VitalsList) then
@@ -627 +617 @@
     MessageDLG('Can''t find function "'+GMV_FName+'".',mtError,[mbok],0);
   @VLPtVitals := nil;
-//  frmFrame.DLLActive := False;  // need this flag for CCOW (RV)
 end;
 //End Vitals Lite