KKPUP ;MODULE AANDUIDING UITZONDERINGEN PRIJSKLASSE ;KKPUP; [ 01/31/2002  9:10 AM ]
 G 1
 ;
O N Orgalux
 S Orgalux=1
 ;
1 
 S U3=$P("Geen\Cons\Plus\Lijst\Rabat\Spil\Basis\Groot",D,$F("CPLRSBG",K))
 I K="" D
 .S U3=$S($P($G(B(2)),D,25)="Z":"Geen",$P($G(B(2)),D,25)=0:"Geen",1:"Lijst")
 .I $G(Default),U3="Lijst" Set Default=0
 I $P($G(B(1)),D),$D(^KLPUTZ("N",$P(B(1),D))) D
 .I '$G(Orgalux),$O(^KLPUTZ("N",$P(B(1),D),"14OL "))="",$O(^KLPUTZ("N",$P(B(1),D),"14OL "),-1)="" Q
 .I $G(Orgalux),'$D(^KLPUTZ("N",$P(B(1),D),"14OL ")) Q
 .S U3=U3_"(+)"
 Q
 ;
R 
 D 1
 N K,TU3,Default
 S K=$P($G(B(3)),D,4),TU3=U3,Default='$L(K)
 D O
 I U3'=TU3 S U3=TU3_"/"_$S(Default:"[",1:"")_U3_$S(Default:"]",1:"")
 E  S U3=$S(Default:"[",1:"")_U3_$S(Default:"]",1:"")
 Q
 ;
K(KLNr) 
 New B,K,U3,KlKey
 Set KlKey=^KK1(KLNr)
 For I=0:1 Quit:'$D(^KKL(KlKey,I))  Set B(I+1)=^KKL(KlKey,I)
 Set K=$P(B(3),D,3)
 D R
 Quit U3
 ;