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

cprs/trunk/CPRS-Chart/fClinicWardMeds.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, fAutoSz, StdCtrls, ExtCtrls, ORCtrls,ORFn, rCore, uCore, oRNet, Math;
+  Dialogs, fAutoSz, StdCtrls, ExtCtrls, ORCtrls,ORFn, rCore, uCore, oRNet, Math,
+  VA508AccessibilityManager;
 
 type
@@ -177 +178 @@
 procedure TfrmClinicWardMeds.rpcChangeOrderLocation(pOrderList:TStringList);
 begin
-// OrderIEN^Location  -- used to alter location if ward is selected.
+// OrderIEN^Location^1  -- used to alter location if ward is selected RPC expected third value to determine if
+//order is an IMO order. If it is being called from here assumed IMO order.
 
-   CallV('ORWDX CHANGE',[pOrderList, Patient.DFN]);
+   CallV('ORWDX CHANGE',[pOrderList, Patient.DFN, '1']);
 end;