KLI1 S:'$D(K2) K2=-1,K3=-1,K4=-1,K5=-1 G 6
2 S K1=$N(^KPH(K1)),I1=K1 Q:K1=-1
3 S K2=$N(^KPH(K1,K2)) G 2:K2=-1
4 S K3=$N(^KPH(K1,K2,K3)) G 3:K3=-1
5 S K4=$N(^KPH(K1,K2,K3,K4)) G 4:K4=-1
6 S K5=$N(^KPH(K1,K2,K3,K4,K5)) G 5:K5=-1 S I1=^(K5) Q