KKMACH ;KLANTEN MET MACHINES ;;;;KKMACH; [ 05/20/99   2:43 PM ]
 G 1
 ;
1 S K=$P($T(+1),U,2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 S (KL,Cnt,TCnt)=0 K ^KLIH(99999)
 F  S KL=$O(^KKL(KL)) Q:KL=""  D
 .S TEST=0
 .S TCnt=TCnt+1
 .S KLNr=$P(KL," ",2)
 .S DATE="" F  S DATE=$O(^KFA1("F",KLNr,DATE)) Q:DATE=""!TEST  D
 ..S FNR="" F  S FNR=$O(^KFA1("F",KLNr,DATE,FNR)) Q:FNR=""!TEST  D
 ...S UR="U" F  S UR=$O(^KFA("F",FNR,UR)) Q:$E(UR)'="U"!TEST  D
 ....S UZ=100 F  S UZ=$O(^KFA("F",FNR,UR,UZ)) Q:UZ=""!TEST  D
 .....S PR=$P(^KFA("F",FNR,UR,UZ),D,2)
 .....Q:'PR  Q:'$D(^KPR(PR))
 .....S GR=$P(^KPR(PR,$O(^KPR(PR,"I"))),D,2)
 .....Q:$E(GR)>7!($E(GR,2,3)'="CH")
 .....S PC=$P(^KPR(PR,0),D)
 .....Q:832'[$E(PC,7)
 .....S TEST=1
 .Q:'TEST
 .S Cnt=Cnt+1,^KLIH(99999,Cnt)=KL
 .W !,KL
 ;
YZ S $P(^KLIS(^KLIS1(99999),0),D,11,12)=Cnt_D_TCnt
 Q
 ;
Z X ^cZ Q
ZZ ; 23.03.88 - 16 u 17