Changeset 1679 for cprs/trunk/CPRS-Chart/Orders/fOrdersUnhold.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/fOrdersUnhold.pas (modified) (1 diff)

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

@@ -47 +47 @@
       begin
         OriginalID := TOrder(Items[i]).ID;
-        ReleaseOrderHold(TOrder(Items[i]));
+        ReleaseOrderHold(TOrder(Items[i]));   
+        TOrder(Items[i]).ActionOn := OriginalID + '=UH';
+        SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_ACT, Integer(Items[i]));
       end;
       Result := True;