KPE33A ;WIJZIGEN PRODUKTEN - KLASS. AANPASSEN UITZ. + SCHADUW UITZ + OFFERTEBESTAND [ 05/31/94  4:56 PM ]
 ;
 New KLNr,PRNr,Next
 Set PRNr=I1
 ;
 ; Uitzonderingen
 If $D(^KLPUTZ("IN",$P(A,D),$P(A,D,2),$P(A,D,3),PRNr)) Do
 .Set KLNr=""
 .For  Set KLNr=$O(^KLPUTZ("IN",$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,KLNr)) Quit:KLNr=""  Do
 ..Set Next=""
 ..For  Set Next=$O(^KLPUTZ("N",KLNr,$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,Next)) Quit:Next=""  Do
 ...Set K=^KLPUTZ("N",KLNr,$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,Next)
 ...Kill ^KLPUTZ("N",KLNr,$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,Next)
 ...Set ^KLPUTZ("N",KLNr,$P(B(1),D),$P(B(1),D,2),$P(B(1),D,3),PRNr,Next)=K
 ..Kill ^KLPUTZ("IN",$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,KLNr)
 ..Set ^KLPUTZ("IN",$P(B(1),D),$P(B(1),D,2),$P(B(1),D,3),PRNr,KLNr)=""
 ;
 ; Schaduwuitzonderingen
 If $D(^KLPUTZ("IS",$P(A,D),$P(A,D,2),$P(A,D,3),PRNr)) Do
 .Set KLNr=""
 .For  Set KLNr=$O(^KLPUTZ("IS",$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,KLNr)) Quit:KLNr=""  Do
 ..Set Next=""
 ..For  Set Next=$O(^KLPUTZ("S",KLNr,$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,Next)) Quit:Next=""  Do
 ...Set K=^KLPUTZ("S",KLNr,$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,Next)
 ...Kill ^KLPUTZ("S",KLNr,$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,Next)
 ...Set ^KLPUTZ("S",KLNr,$P(B(1),D),$P(B(1),D,2),$P(B(1),D,3),PRNr,Next)=K
 ..Kill ^KLPUTZ("IS",$P(A,D),$P(A,D,2),$P(A,D,3),PRNr,KLNr)
 ..Set ^KLPUTZ("IS",$P(B(1),D),$P(B(1),D,2),$P(B(1),D,3),PRNr,KLNr)=""
 ;
3 S KC=0,US="F"
31 S KC=$N(@("^"_Q_"OFKL(KC)")) G 4:KC=-1 S UR=0
33 S UR=$N(@("^"_Q_"OFKL(KC,US,UR)")) G 31:UR=-1,33:'$D(^(UR,$P(A,D,1),$P(A,D,2),$P(A,D,3),I1))
35 S K=^(I1) K ^(I1) S @("^"_Q_"OFKL(KC,US,UR,$P(B(1),D,1),$P(B(1),D,2),$P(B(1),D,3),I1)")=K G 33
 ;
4 S K="W"
 ;
YZ K KC,US,UR Q
 ;