Index: KFA12.mac.rou
===================================================================
diff -u -r734 -r762
--- KFA12.mac.rou	(.../KFA12.mac.rou)	(revision 734)
+++ KFA12.mac.rou	(.../KFA12.mac.rou)	(revision 762)
@@ -28,7 +28,7 @@
 17 S LAC="" D S2
 21 S K=$$SELECT^LEVADR(KC,"NR")
  I K="" G 13:'$G(Extern),YZ
- I K="N" S K=$O(^KKL(KI1,"L9999"),-1),K=$S($E(K)="L":$$TRIMN^vhRtn1(K)+1,1:1)
+ I K="N" F K=1:1 Quit:'$D(^KKL(KI1,"L"_$J(K,3)))
  ;
  D
  .N FG,F7,F8