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

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

@@ -24 +24 @@
 procedure RemoteQuery(Dest: TStrings; AReportType: string; AHSType, ADaysback,
             AExamID: string; Alpha, AOmega: Double; ASite, ARemoteRPC, AHSTag: String);
+procedure DirectQuery(Dest: TStrings; AReportType: string; AHSType, ADaysback,
+            AExamID: string; Alpha, AOmega: Double; ASite, ARemoteRPC, AHSTag: String);
 function ReportQualifierType(ReportType: Integer): Integer;
 function ImagingParams: String;
+function AutoRDV: String;
+function HDRActive: String;
 procedure PrintReportsToDevice(AReport: string; const Qualifier, Patient,
      ADevice: string; var ErrMsg: string; aComponents: TStringlist;
@@ -52 +56 @@
 procedure SetAdhocLookup(aLookup: integer);
 procedure GetRemoteData(Dest: TStrings; aHandle: string; aItem: PChar);
+procedure ModifyHDRData(Dest: string; aHandle: string; aID: string);
 procedure PrintVReports(Dest, ADevice, AHeader: string; AReport: TStringList);
 
@@ -157 +162 @@
       LoadTree;
     end;
-  for i := 0 to uTree.Count - 1 do Dest.Add(Pieces(uTree[i], '^', 1, 14));
+  for i := 0 to uTree.Count - 1 do Dest.Add(Pieces(uTree[i], '^', 1, 15));
 end;
 
@@ -292 +297 @@
 var
   HSType, DaysBack, ExamID, MaxOcc, AReport, x: string;
-  Alpha, Omega: double;
+  Alpha, Omega, Trans: double;
 begin
   HSType := '';
@@ -303 +308 @@
       Alpha := StrToFMDateTime(Piece(Qualifier,';',1));
       Omega := StrToFMDateTime(Piece(Qualifier,';',2));
+      if Alpha > Omega then
+        begin
+          Trans := Omega;
+          Omega := Alpha;
+          Alpha := Trans;
+        end;
       MaxOcc := Piece(Qualifier,';',3);
       SetPiece(AHSTag,';',4,MaxOcc);
@@ -346 +357 @@
 end;
 
+procedure DirectQuery(Dest: TStrings; AReportType: string; AHSType, ADaysback,
+            AExamID: string; Alpha, AOmega: Double; ASite, ARemoteRPC, AHSTag: String);
+var
+  AReport: string;
+begin
+  AReport := AReportType + ';1' + '~' + AHSTag;
+  if length(AHSType) > 0 then
+    AHSType := piece(AHSType,':',1) + ';' + piece(AHSType,':',2);  //format for backward compatibility
+  CallV('XWB DIRECT RPC', [ASite, ARemoteRPC, 0, Patient.DFN + ';' + Patient.ICN,
+            AReport, AHSType, ADaysBack, AExamID, Alpha, AOmega]);
+  QuickCopy(RPCBrokerV.Results,Dest);
+end;
+
 function ReportQualifierType(ReportType: Integer): Integer;
 var
@@ -359 +383 @@
 begin
   Result := sCallV('ORWTPD GETIMG',[nil]);
+end;
+
+function AutoRDV: String;
+begin
+  Result := sCallV('ORWCIRN AUTORDV', [nil]);
+end;
+
+function HDRActive: String;
+begin
+  Result := sCallV('ORWCIRN HDRON', [nil]);
 end;
 
@@ -740 +774 @@
 end;
 
+procedure ModifyHDRData(Dest: string; aHandle: string; aID: string);
+begin
+  CallV('ORWRP4 HDR MODIFY', [aHandle, aID]);
+end;
+
 procedure PrintBitmap(Canvas:  TCanvas; DestRect:  TRect;  Bitmap:  TBitmap);
 var