Changeset 1679 for cprs/trunk/CPRS-Chart/rMeds.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/rMeds.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/rMeds.pas

@@ -31 +31 @@
 function MedAdminHistory(OrderID: string): TStrings;
 function MedStatusGroup(const s: string): Integer;
-procedure LoadActiveMedLists(InPtMeds, OutPtMeds, NonVAMeds: TList; var view: integer);
+procedure LoadActiveMedLists(InPtMeds, OutPtMeds, NonVAMeds: TList; var view: integer; var DateRange: string);
 function GetNewDialog: string;
 function PickUpDefault: string;
@@ -156 +156 @@
 end;
 
-procedure LoadActiveMedLists(InPtMeds, OutPtMeds, NonVAMeds: TList; var view: integer);
+procedure LoadActiveMedLists(InPtMeds, OutPtMeds, NonVAMeds: TList; var view: integer; var DateRange: string);
 var
   idx, ASeq: Integer;
@@ -171 +171 @@
   ClearMedList(OutPtMeds);
   ClearMedList(NonVAMeds);
-  CallV('ORWPS ACTIVE', [Patient.DFN, User.DUZ, view, True]);
+  CallV('ORWPS ACTIVE', [Patient.DFN, User.DUZ, view, '1']);
   ASeq := 0;
   if (view = 0) and (RPCBrokerV.Results.Count > 0) then
-    view := StrToIntDef(RPCBrokerV.Results.Strings[0],0);
+    view := StrToIntDef(Piece(RPCBrokerV.Results.Strings[0], U, 1), 0);
+  DateRange := Piece(RPCBrokerV.Results.Strings[0], U, 2);
   with RPCBrokerV do while Results.Count > 0 do
   begin