Index: RPLKL1.mac.rou
===================================================================
diff -u -r50398 -r53195
--- RPLKL1.mac.rou	(.../RPLKL1.mac.rou)	(revision 50398)
+++ RPLKL1.mac.rou	(.../RPLKL1.mac.rou)	(revision 53195)
@@ -401,7 +401,7 @@
  ;Wijzig orders
 MODO 
  New R,OldLines,NewLines
- If $$PW^RPLKL("C66")!NoPassW If @DL(1)@(9) Do  Goto REFRESH^RPLKL
+ If $$PW^RPLKL("C77")!NoPassW If @DL(1)@(9) Do  Goto REFRESH^RPLKL
  .Set (Locals("ORDNr"),UR)=$P(^HULP($J,"K"_KC,"O",@DL(1)@(6)),D,15),Locals("Extern")=1
  .Set OrdLim=$P($G(^HULP($J,"K"_KC,"O")),D)
  .Set OldLines=0,Line=@DL(1)@(6)
@@ -485,4 +485,3 @@
 S3A S X=$N(A(X)) I X>0 K A(X) G S3A
 S3Z Q
  ;
-