Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fVitals.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/fVitals.pas (modified) (8 diffs)

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

@@ -37 +37 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ORCtrls, TeEngine, Series, TeeProcs, Chart, ExtCtrls, Grids,
-  Buttons, ORNet, ORFn, uConst, Menus, ORDtTmRng;  {*KCM*}
+  Buttons, ORNet, ORFn, uConst, Menus, ORDtTmRng
+  , ComCtrls
+  , uVitals
+  ;  {*KCM*}
 
 type
@@ -114 +117 @@
   end;
 
+
 var
   frmVitals: TfrmVitals;
@@ -120 +124 @@
 
 procedure SelectVital(FontSize:integer; idx: integer);
-procedure SelectVitals(FontSize: Integer);
+procedure SelectVitals(VitalType: String);
 function VitalsGrid(const patient: string; date1, date2: TFMDateTime; restrictdates: integer; tests: TStrings): TStrings;  //*DFN*
 function VitalsMemo(const patient: string; date1, date2: TFMDateTime; tests: TStrings): TStrings;  //*DFN*
@@ -127 +131 @@
 
 uses fCover, uCore, rCore, fVit, fFrame, fEncnt, fVisit, fRptBox, rReports,
-  uAccessibleStringGrid;
+  uAccessibleStringGrid, uInit;
 
 const
@@ -157 +161 @@
 end;
 
-
+function getVitalsStartDate : String;
+begin
+  result := '';
+  if Patient.Inpatient then
+    result := FormatDateTime('mm/dd/yy',Now - 7)
+  else
+    result := FormatDateTime('mm/dd/yy',IncMonth(Now,-6));
+end;
+
+procedure SelectVitals(VitalType: String);
+var
+  VLPtVitals : TGMV_VitalsViewForm;
+  GMV_FName,
+  GMV_LibName: String;
+begin
+ { Availble Forms:
+  GMV_FName :='GMV_VitalsEnterDLG';
+  GMV_FName :='GMV_VitalsEnterForm';
+  GMV_FName :='GMV_VitalsViewForm';
+  GMV_FName :='GMV_VitalsViewDLG';
+  }
+  GMV_FName :='GMV_VitalsViewDLG';
+  GMV_LibName :='GMV_VitalsViewEnter.dll';
+  GMV_LibName := GetProgramFilesPath + SHARE_DIR + GMV_LibName;
+  VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
+ // UpdateTimeOutInterval(5000);
+  if VitalsDLLHandle <> 0 then
+    begin
+     @VLPtVitals := GetProcAddress(VitalsDLLHandle,PChar(GMV_FName));
+     if assigned(VLPtVitals) then
+       VLPtVitals(RPCBrokerV,Patient.DFN,FloatToStr(Encounter.Location),
+                  getVitalsStartDate(),FormatDateTime('mm/dd/yy',Now),
+                  GMV_APP_SIGNATURE,
+                  GMV_CONTEXT,GMV_CONTEXT,
+                  Patient.Name,
+                  frmFrame.lblPtSSN.Caption + '    ' + frmFrame.lblPtAge.Caption,
+                  Encounter.LocationName +U+ VitalType)
+     else
+       MessageDLG('Can''t find function "'+GMV_FName+'".',mtError,[mbok],0);
+    end
+  else
+    MessageDLG('Can''t find library "'+GMV_LibName+'".',mtError,[mbok],0);
+  @VLPtVitals := nil;
+  FreeLibrary(VitalsDLLHandle);
+  if DLLForceClose then
+    frmFrame.Close; // Fix for CQ: 7535
+end;
+
+(*
 procedure SelectVitals(FontSize: Integer);
 var
@@ -209 +261 @@
   end;
 end;
-
+  *)
 procedure TfrmVitals.VGrid(griddata: TStrings);
 var
@@ -249 +301 @@
 function VitalsGrid(const patient: string; date1, date2: TFMDateTime; restrictdates: integer; tests: TStrings): TStrings;  //*DFN*
 begin
-  CallV('ORQQVI1 GRID', [patient, date1, date2, restrictdates, tests]);
+  CallV('GMV ORQQVI1 GRID', [patient, date1, date2, restrictdates, tests]);
   Result := RPCBrokerV.Results;
 end;
@@ -255 +307 @@
 function VitalsMemo(const patient: string; date1, date2: TFMDateTime; tests: TStrings): TStrings;  //*DFN*
 begin
-  CallV('ORQQVI1 DETAIL', [patient, date1, date2, 0, tests]);
+  CallV('GMV ORQQVI1 DETAIL', [patient, date1, date2, 0, tests]);
   Result := RPCBrokerV.Results;
 end;