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

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

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

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

@@ -1 +1 @@
 unit rODBase;
 
-interface
+interface                        
 
 uses SysUtils, Windows, Classes, ORNet, ORFn, uCore, uConst, rOrders;
@@ -132 +132 @@
 implementation
 
-uses TRPCB, uOrders, uODBase;
+uses TRPCB, uOrders, uODBase, fODBase;
 
 var
@@ -182 +182 @@
         begin
           IVDurVal := Copy(IVDuration,1,length(IVDuration)-1);
-          TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + 'hours';
+          TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + ' hours';
         end
         else if (Pos('D',upperCase(IVDuration))>0) then
         begin
-          IVDurVal := Copy(IVDuration,1,length(IVDuration)-1);
-          TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + 'days';
+          if Pos('DOSES', upperCase(IVDuration)) > 0 then
+            begin
+              IVDurVal := Copy(IVDuration, 1, length(IVDuration)-5);
+              TResponse(ResponseList.Items[j]).IValue := 'for a total of ' + IVDurVal + ' doses';
+            end
+          else
+            begin
+              IVDurVal := Copy(IVDuration,1,length(IVDuration)-1);
+              TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + ' days';
+            end;
         end
         else if ((Pos('ML',upperCase(IVDuration))>0) or (Pos('CC',upperCase(IVDuration))>0)) then
@@ -245 +253 @@
 begin
   CallV('ORWDXQ GETQLST', [DGroup]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -389 +397 @@
   HasObjects := FALSE;
   TempBroker := TStringlist.Create;
-  TempBroker.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, TempBroker);
   try
   with TempBroker do while i < Count do
@@ -427 +435 @@
 
 procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean);
-begin
-  CallV('ORWDX LOADRSP', [OrderID]);
+var
+Transfer: boolean;
+begin
+  if ((XferOuttoInOnMeds = True) or (XfInToOutNow = True)) and (CharAt(OrderID,1)='C') then Transfer := true
+  else Transfer := false;
+  CallV('ORWDX LOADRSP', [OrderID, Transfer]);
   ExtractToResponses(Dest, HasObjects);
 end;
@@ -704 +716 @@
     begin
       uMedRoutes := TStringList.Create;
-      uMedRoutes.Assign(Results);
+      FastAssign(RPCBrokerV.Results, uMedRoutes);
       for i := 0 to Results.Count - 1 do if Length(Piece(Results[i], U, 3)) > 0 then
       begin
@@ -714 +726 @@
     end; {with RPCBrokerV}
   end; {if uMedRoutes}
-  Dest.AddStrings(uMedRoutes);
+  FastAddStrings(uMedRoutes, Dest);
 end;
 
@@ -758 +770 @@
 begin
   CallV('ORWDPS32 FORMALT', [AnIEN, PSType]);
-  AList.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, AList);
 end;
 
@@ -783 +795 @@
 { Returns init values for inpatient meds dialog.  The results must be used immediately. }
 begin
-  CallV('ORWDPS32 DLGSLCT', [PST_UNIT_DOSE]);
+  CallV('ORWDPS32 DLGSLCT', [PST_UNIT_DOSE, patient.dfn, patient.location]);
   Result := RPCBrokerV.Results;
 end;
@@ -790 +802 @@
 { Returns init values for IV Fluids dialog.  The results must be used immediately. }
 begin
-  CallV('ORWDPS32 DLGSLCT', [PST_IV_FLUIDS]);
+  CallV('ORWDPS32 DLGSLCT', [PST_IV_FLUIDS, patient.dfn, patient.location]);
   Result := RPCBrokerV.Results;
 end;
@@ -802 +814 @@
 { Returns init values for outpatient meds dialog.  The results must be used immediately. }
 begin
-  CallV('ORWDPS32 DLGSLCT', [PST_OUTPATIENT]);
+  CallV('ORWDPS32 DLGSLCT', [PST_OUTPATIENT, patient.dfn, patient.location]);
   Result := RPCBrokerV.Results;
 end;