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

Timestamp:

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

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Orders/rODMeds.pas (modified) (2 diffs)

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

@@ -38 +38 @@
 procedure LoadDOWSchedules(Dest: TStrings);
 procedure LoadAllIVRoutes(Dest: TStrings);
-procedure LoadDosageFormIVRoutes(Dest: TStrings; OrderIDs: TStringList; Default: boolean);
+procedure LoadDosageFormIVRoutes(Dest: TStrings; OrderIDs: TStringList);
+function GetDefaultAddFreq(OID: integer): string;
 function QtyToDays(Quantity: Double;   const UnitsPerDose, Schedule, Duration, Drug: string): Integer;
 function DaysToQty(DaysSupply: Integer; const UnitsPerDose, Schedule, Duration, Drug: string): Integer;
@@ -204 +205 @@
 end;
 
-procedure LoadDosageFormIVRoutes(Dest: TStrings; OrderIDs: TStringList; Default: boolean);
-begin
-  CallV('ORWDPS33 IVDOSFRM', [OrderIDs, Default, False]);
+procedure LoadDosageFormIVRoutes(Dest: TStrings; OrderIDs: TStringList);
+begin
+  CallV('ORWDPS33 IVDOSFRM', [OrderIDs, False]);
   FastAssign(RPCBrokerV.Results, Dest);
 end;
+
+function GetDefaultAddFreq(OID: integer): string;
+begin
+  result := sCallV('ORWDPS33 GETADDFR', [OID]);
+end;
+
 procedure LoadDOWSchedules(Dest: TStrings);
 begin