Changeset 830 for cprs/trunk/CPRS-Chart/rGraphs.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/rGraphs.pas (modified) (11 diffs)

cprs/trunk/CPRS-Chart/rGraphs.pas

@@ -8 +8 @@
 function rpcReportParams(ien: integer): String;
 
-procedure FastAdd(source: TStrings; destination: TStrings);  // not used
-procedure FastAssign(source: TStrings; destination: TStrings);
-  // example: FastAssign(rpcDrugClass, lstDrugClass.Items)
-
+procedure onoff(x: integer);
+
+function rpcTestGroups(user: int64): TStrings;
+function rpcATest(test: integer): TStrings;
+function rpcATestGroup(testgroup: Integer; user: int64): TStrings;
 function rpcClass(itemtype: string): TStrings;
 function rpcTaxonomy(alltax: boolean; taxonomies: TStrings): TStrings;
@@ -17 +18 @@
   ATypeItem: string; complete: boolean);  //*DFN*
 function rpcDetailSelected(const PatientDFN: string; ADate1, ADate2: TFMDateTime;
-  tests: TStrings; complete: boolean): TStrings;  //*DFN*
+  tests: TStringList; complete: boolean): TStrings;  //*DFN*
+procedure rpcFastData(const PatientDFN: string; alldata: TStrings; var ok: boolean);
+procedure rpcFastItems(const PatientDFN: string; allitems: TStrings; var ok: boolean);
+procedure rpcFastLabs(const PatientDFN: string; alllabs: TStrings; var ok: boolean);
+function rpcFastTask(const PatientDFN, oldDFN: string): string;
 function rpcGetAllItems(const PatientDFN: string): TStrings;
 function rpcGetItems(typeitem: string; const PatientDFN: string): TStrings;
@@ -23 +28 @@
 function rpcGetTypes(const PatientDFN: string; subtypes: boolean): TStrings;
 function rpcGetTestSpec: TStrings;
+function rpcTesting: TStrings;
+function rpcGetViews(vtype: string; user: int64): TStrings;
 
 function rpcGetGraphDateRange(reportid: string): TStrings;
@@ -30 +37 @@
 procedure rpcSetGraphSizing(values: TStrings);
 
-function rpcGetGraphProfiles(profiles, permission: string; ext: integer): TStrings;
+function rpcGetGraphProfiles(profiles, permission: string; ext: integer; userx: int64): TStrings;
 procedure rpcSetGraphProfile(paramname, permission: string; paramvalues: TStrings);
 procedure rpcDeleteGraphProfile(paramname, permission: string);
@@ -36 +43 @@
 function rpcLookupItems(const filename, startfrom: string; direction: integer): TStrings;
 function rpcDateItem(oldestdate, newestdate: double; filenum: string; const PatientDFN: string): TStrings;
-procedure onoff(x: integer);
 
 implementation
+
+//-------- RPCs copied from rLabs -------------
+function rpcTestGroups(user: int64): TStrings;
+begin
+  CallV('ORWLRR TG', [user]);
+  MixedCaseList(RPCBrokerV.Results);
+  Result := RPCBrokerV.Results;
+end;
+
+function rpcATest(test: integer): TStrings;
+begin
+  CallV('ORWLRR ATESTS', [test]);
+  MixedCaseList(RPCBrokerV.Results);
+  Result := RPCBrokerV.Results;
+end;
+
+function rpcATestGroup(testgroup: Integer; user: int64): TStrings;
+begin
+  CallV('ORWLRR ATG', [testgroup, user]);
+  MixedCaseList(RPCBrokerV.Results);
+  Result := RPCBrokerV.Results;
+end;
+//------------------------------------------
 
 function rpcPublicEdit: Boolean;
@@ -53 +82 @@
   Result := sCallV('ORWGRPC RPTPARAM', [ien]);
   onoff(0);
-end;
-
-procedure FastAssign(source: TStrings; destination: TStrings);
-var
-  ms: TMemoryStream;
-begin
-  destination.Clear;
-  ms := TMemoryStream.Create;
-  try
-    source.SaveToStream(ms);
-    ms.Seek(0, soFromBeginning);
-    destination.LoadFromStream(ms);
-  finally
-    ms.Free;
-  end;
-end;
-
-procedure FastAdd(source: TStrings; destination: TStrings);
-var
-  ms: TMemoryStream;
-begin
-  destination.Clear;
-  ms := TMemoryStream.Create;
-  try
-    destination.SaveToStream(ms);
-    ms.Seek(soFromEnd, 0);
-    source.SaveToStream(ms);
-    ms.Seek(0, soFromBeginning);
-    destination.LoadFromStream(ms);
-  finally
-    ms.Free;
-  end;
 end;
 
@@ -96 +93 @@
   CallV('ORWGRPC DETAILS', [PatientDFN, ADate1, ADate2, ATypeItem, includecomplete]);
   onoff(0);
-  QuickCopy(RPCBrokerV.Results, Dest);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
 function rpcDetailSelected(const PatientDFN: string; ADate1, ADate2: TFMDateTime;
-  tests: TStrings; complete: boolean): TStrings;  //*DFN*
+  tests: TStringList; complete: boolean): TStrings;  //*DFN*
 var
   includecomplete: string;
@@ -109 +106 @@
   onoff(0);
   Result := RPCBrokerV.Results;
+end;
+
+procedure rpcFastData(const PatientDFN: string; alldata: TStrings; var ok: boolean);
+begin
+  onoff(1);
+  CallV('ORWGRPC FASTDATA', [PatientDFN]);
+  onoff(0);
+  FastAssign(RPCBrokerV.Results, alldata);
+  ok := alldata.Count > 0;
+end;
+
+procedure rpcFastItems(const PatientDFN: string; allitems: TStrings; var ok: boolean);
+begin
+  onoff(1);
+  CallV('ORWGRPC FASTITEM', [PatientDFN]);
+  onoff(0);
+  MixedCaseList(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, allitems);
+  ok := allitems.Count > 0;
+end;
+
+procedure rpcFastLabs(const PatientDFN: string; alllabs: TStrings; var ok: boolean);
+begin
+  onoff(1);
+  CallV('ORWGRPC FASTLABS', [PatientDFN]);
+  onoff(0);
+  FastAssign(RPCBrokerV.Results, alllabs);
+  ok := alllabs.Count > 0;
+end;
+
+function rpcFastTask(const PatientDFN, oldDFN: string): string;
+begin
+  onoff(1);
+  Result := sCallV('ORWGRPC FASTTASK', [PatientDFN, oldDFN]);
+  onoff(0);
 end;
 
@@ -207 +239 @@
 end;
 
-function rpcGetGraphProfiles(profiles, permission: string; ext: integer): TStrings;
-begin
-  onoff(1);
-  CallV('ORWGRPC GETVIEWS', [profiles, permission, ext]);
-  onoff(0);
-  if (profiles = '1') or (ext = 1) then MixedCaseList(RPCBrokerV.Results);
+function rpcGetGraphProfiles(profiles, permission: string; ext: integer; userx: int64): TStrings;
+begin
+  onoff(1);
+  CallV('ORWGRPC GETVIEWS', [profiles, permission, ext, userx]);
+  onoff(0);
+  if (profiles = '1') or (ext = 1) then
+    MixedCaseList(RPCBrokerV.Results);
   Result := RPCBrokerV.Results;
 end;
@@ -235 +268 @@
   CallV('ORWGRPC TESTSPEC', []);
   onoff(0);
+  Result := RPCBrokerV.Results;
+end;
+
+function rpcTesting: TStrings;
+begin
+  onoff(1);
+  CallV('ORWGRPC TESTING', []);
+  onoff(0);
+  Result := RPCBrokerV.Results;
+end;
+
+function rpcGetViews(vtype: string; user: int64): TStrings;
+begin
+  onoff(1);
+  CallV('ORWGRPC ALLVIEWS', [vtype, user]);
+  onoff(0);
+  MixedCaseList(RPCBrokerV.Results);
   Result := RPCBrokerV.Results;
 end;
@@ -259 +309 @@
   if x = 1 then
   begin
+    //beep;
     //Screen.Cursor := crHourGlass;
   end
   else
   begin
+    //sleep(3000);
     //Screen.Cursor := crDefault;
+    //sleep(1000);
   end;
 end;