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

cprs/trunk/CPRS-Chart/rReports.pas

@@ -61 +61 @@
 implementation
 
-uses uCore, rCore, Printers, clipbrd, uReports, fReports;
+uses uCore, rCore, Printers, clipbrd, uReports, fReports
+{ TODO -oRV -cWVEHR Long Age : Changed to use long age }
+, rWVEHR;
 
 var
@@ -89 +91 @@
       Results[i] := x;
     end;
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -144 +146 @@
 end;
 
-procedure LoadTree;
-begin
-  CallV('ORWRP3 EXPAND COLUMNS', [nil]);
+procedure LoadTree(Tab: String);
+begin
+  CallV('ORWRP3 EXPAND COLUMNS', [Tab]);
   uTree    := TStringList.Create;
   ExtractSection(uTree, '[REPORT LIST]', false);
@@ -156 +158 @@
 begin
   if uTree = nil
-    then LoadTree
+    then LoadTree('REPORTS')
   else
     begin
       uTree.Clear;
-      LoadTree;
-    end;
-  for i := 0 to uTree.Count - 1 do Dest.Add(Pieces(uTree[i], '^', 1, 15));
+      LoadTree('REPORTS');
+    end;
+  for i := 0 to uTree.Count - 1 do Dest.Add(Pieces(uTree[i], '^', 1, 20));
 end;
 
@@ -169 +171 @@
   i: integer;
 begin
-  if uLabreports = nil then LoadLabReportLists;
-  for i := 0 to uLabReports.Count - 1 do Dest.Add(Pieces(uLabReports[i], U, 1, 10));
+  {if uLabreports = nil then LoadLabReportLists;
+  for i := 0 to uLabReports.Count - 1 do Dest.Add(Pieces(uLabReports[i], U, 1, 10)); }
+  if uTree = nil
+    then LoadTree('LABS')
+  else
+    begin
+      uTree.Clear;
+      LoadTree('LABS');
+    end;
+  for i := 0 to uTree.Count - 1 do Dest.Add(Pieces(uTree[i], '^', 1, 20));
 end;
 
@@ -176 +186 @@
 begin
   if uDateRanges = nil then LoadReportLists;
-  Dest.Assign(uDateRanges);
+  FastAssign(uDateRanges, Dest);
 end;
 
@@ -183 +193 @@
   if uHSTypes = nil then LoadReportLists;
   MixedCaseList(uHSTypes);
-  Dest.Assign(uHSTypes);
+  FastAssign(uHSTypes, Dest);
 end;
 
@@ -198 +208 @@
 begin
   CallV('ORWRP COLUMN HEADERS',[AReportType]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -227 +237 @@
       Results[i] := x;
     end;
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -249 +259 @@
       Results[i] := x;
     end;
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -267 +277 @@
         Results[i] := x;
       end;
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -290 +300 @@
         Results[i] := x;
       end;
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -629 +639 @@
       tmpStr := Patient.Name + '   ' + Patient.SSN;
       tmpItem := tmpStr + StringOfChar(' ', 39 - Length(tmpStr)) + Encounter.LocationName;
-      tmpStr := FormatFMDateTime('mmm dd, yyyy', Patient.DOB) + ' (' + IntToStr(Patient.Age) + ')';
+{ TODO -oRV -cWVEHR Long Age : Changed to use long age }
+      //tmpStr := FormatFMDateTime('mmm dd, yyyy', Patient.DOB) + ' (' + IntToStr(Patient.Age) + ')';
+      tmpStr := FormatFMDateTime('mmm dd, yyyy', Patient.DOB) + ' (' + GetPatientBriefAge(Patient.DFN) + ')';
+{}
       tmpItem := tmpItem + StringOfChar(' ', 74 - (Length(tmpItem) + Length(tmpStr))) + tmpStr;
       Add(tmpItem);