Changeset 1679 for cprs/trunk/CPRS-Chart/Orders/rODBase.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Orders/rODBase.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/Orders/rODBase.pas

@@ -446 +446 @@
 procedure PutNewOrder(var AnOrder: TOrder; ConstructOrder: TConstructOrder; OrderSource: string);
 var
-  i: Integer;
-  x, y, z: string;
+  i, inc, len, numLoop, remain: Integer;
+  ocStr, tmpStr, x, y, z: string;
 begin
   with RPCBrokerV do
@@ -469 +469 @@
     Param[6].PType := literal;
     Param[6].Value := AnOrder.EditOf;        // null if new order, otherwise ORIFN of original
-    if (ConstructOrder.DGroup = IVDisp) then
+    if (ConstructOrder.DGroup = IVDisp) or (ConstructOrder.DialogName = 'PSJI OR PAT FLUID OE') then
       SetupORDIALOG(Param[7], ConstructOrder.ResponseList, True)
     else
@@ -483 +483 @@
       y := '"ORCHECK","' + Piece(OCList[i], U, 1) + '","' + Piece(OCList[i], U, 3) +
         '","' + IntToStr(i+1) + '"';
-      Param[7].Mult[y] := Pieces(OCList[i], U, 2, 4);
+      //Param[7].Mult[y] := Pieces(OCList[i], U, 2, 4);
+      OCStr :=  Pieces(OCList[i], U, 2, 4);
+      len := Length(OCStr);
+      if len > 255 then
+        begin
+          numLoop := len div 255;
+          remain := len mod 255;
+          inc := 0;
+          while inc <= numLoop do
+            begin
+              tmpStr := Copy(OCStr, 1, 255);
+              OCStr := Copy(OCStr, 256, Length(OcStr));
+              Param[7].Mult[y + ',' + InttoStr(inc)] := tmpStr;
+              inc := inc +1;
+            end;
+          if remain > 0 then  Param[7].Mult[y + ',' + inttoStr(inc)] := OCStr;
+
+        end
+      else
+       Param[7].Mult[y] := OCStr;
     end;
     if ConstructOrder.DelayEvent in ['A','D','T','M','O'] then