KPSELO G 1 ;SELEKTIE VOOR LISTINGS  ;KPSEL;Quit naar KPSELH [ 08/05/2002  10:20 AM ]
 ;
1 S LN=7,FP=801 W @F,@F1 K @("^"_Q_"PSEL($J)")
 ;
2 S (X,K)=$$SELECT^PRODUKT6() G 2:K="."
 I K="-" S FP=2101 W @F,@F1 G YZ:'$D(@("^"_Q_"PSEL($J)")),4
 S K=$$COMPR^PRODUKT(X)
21 G 2:$D(@("^"_Q_"PSEL($J,K)"))
23 S @("^"_Q_"PSEL($J,K)")=X
 ;
3 S LN=LN+1 I LN=13 S LN=LN-1,FP=1300 W @F,@F1 S FP=801 W @F,@FDL
31 S FP=LN*100+1 W @F,$C(13),?6,$P(@("^"_Q_"PR(X,0)"),D),?37,$P(^(0),D,2)
33 G 2
 ;
4 S (@(Q1_"C"),X)=$N(@("^"_Q_"PSEL($J,0)"))
41 I $N(^(X))'=-1 S X=$N(^(X)) G 41
43 S @(Q1_"CX")=X,Q0="^"_Q_"PSEL($J,"_Q1_")",K=""
 ;
YZ Q
 ;