Index: EWPAL2.mac.rou
===================================================================
diff -u -r49068 -r73189
--- EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 49068)
+++ EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 73189)
@@ -58,6 +58,8 @@
 CORRTOE(MPRNr,KPRNr,PalId) 
  New RCPNr,TOENr,LUNr,SubLNr,Rec,Qty
  Set Qty=0
+ Quit Qty
+ ; Oude code niet meer actief sinds OBJT - PV 07 06 2023
  Set TOENr=""
  For  Set TOENr=$O(^TO("IP",MPRNr,TOENr)) Quit:TOENr=""  Do:$D(^RCP("IT",TOENr))
  .Set LUNr=""