KPAKMD1 G 1 ;PRODUCTEN AANTAL KLANTEN ... ;Go naar KPAKMD2, KPAKMD3, KPAKMD4 [ 09/24/92  2:18 PM ]
 ;
1 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
12 S DOC=$P($T(+1),";",2),LSTX="K"
13 S SELK=1 D PP^KPSEL G YZ:K="-"
2 K DOC,LSTX,SELK G @("^KPAKMD"_$F("PKLB",LST))
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 28.04.88 - 10 u 05