Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fOrdersUnhold.pas

Timestamp:

May 8, 2015, 7:52:55 AM (10 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fOrdersUnhold.pas (modified) (1 diff)

cprs/branches/HealthSevak-CPRS/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;