Changeset 830 for cprs/trunk/CPRS-Chart/rLabs.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/rLabs.pas (modified) (5 diffs)

cprs/trunk/CPRS-Chart/rLabs.pas

@@ -4 +4 @@
 
 uses SysUtils, Classes, ORNet, ORFn;
+
+type
+
+  TLabPatchInstalled = record
+    PatchInstalled: boolean;
+    PatchChecked: boolean;
+  end;
+
 
 function AtomicTests(const StartFrom: string; Direction: Integer): TStrings;
@@ -43 +51 @@
 function GetChart(const PatientDFN: string; ADate1, ADate2: TFMDateTime;
   spec, test: string): TStrings;  //*DFN*
-procedure PrintLabsToDevice(AReport, ADaysBack: Integer;
+procedure PrintLabsToDevice(AReport: string; ADaysBack: Integer;
   const PatientDFN, ADevice: string; ATests: TStrings;
   var ErrMsg: string; ADate1, ADate2: TFMDateTime; ARemoteSiteID, ARemoteQuery: string);
-function GetFormattedLabReport(AReport, ADaysBack: Integer; const PatientDFN: string;
+function GetFormattedLabReport(AReport: string; ADaysBack: Integer; const PatientDFN: string;
   ATests: TStrings; ADate1, ADate2: TFMDateTime; ARemoteSiteID, ARemoteQuery: string): TStrings;
 function TestInfo(Test: String): TStrings;
+function LabPatchInstalled: boolean;
+
 
 implementation
 
-uses rCore, uCore, graphics;
+uses rCore, uCore, graphics, rMisc;
+
+const
+  PSI_05_118 = 'LR*5.2*364';
+var
+  uLabPatchInstalled: TLabPatchInstalled;
 
 function AtomicTests(const StartFrom: string; Direction: Integer): TStrings;
@@ -258 +273 @@
 end;
 
-procedure PrintLabsToDevice(AReport, ADaysBack: Integer;
+procedure PrintLabsToDevice(AReport: string; ADaysBack: Integer;
  const PatientDFN, ADevice: string; ATests: TStrings; var ErrMsg: string;
  ADate1, ADate2: TFMDateTime; ARemoteSiteID, ARemoteQuery: string);
@@ -300 +315 @@
 end;
 
-function GetFormattedLabReport(AReport, ADaysBack: Integer;
+function GetFormattedLabReport(AReport: String; ADaysBack: Integer;
   const PatientDFN: string; ATests: TStrings; ADate1, ADate2: TFMDateTime;
   ARemoteSiteID, ARemoteQuery: string): TStrings;
@@ -348 +363 @@
 end;
 
+function LabPatchInstalled: boolean;
+begin
+  with uLabPatchInstalled do
+    if not PatchChecked then
+      begin
+        PatchInstalled := ServerHasPatch(PSI_05_118);
+        PatchChecked := True;
+      end;
+  Result := uLabPatchInstalled.PatchInstalled;
+end;
+
 end.