KPHAN1 G 1 ;Produkthandleiding ;Go naar KPHAN3 [ 03/27/2001  8:38 AM ]
 ;
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=0 D PP^KPSEL G YZ:K="-"
 ;
2 K DOC,LSTX,SELK G @("^KPHAN"_$F("PKLBU",LST))
 ;
YZ Q
 ;