KPE34 G 410 ;WIJZIGEN PRODUKTEN - AANPASSEN INDEXBESTANDEN ;OVERLAY VAN %P30 [ 03/11/2002   4:34 PM ]
 ;
ER K @("^HBPWP"_$J) G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
410 S @%Q1=0 K A,B G 420:'$D(@("^HBPWP"_$J)) S X=$N(@("^HBPWP"_$J_"(0)")),(X,HI2)="I" F Y=1:1 S X=$N(^(X)) G 415:$E(X,1)'=HI2 S A(HI2_Y)=^(X)
415 S (X,HI2)="J" F Y=1:1 S X=$N(^(X)) G 420:$E(X,1)'=HI2 S B(HI2_Y)=^(X)
420 S:'$D(A("I1")) A("I1")=" \ \ " S:'$D(B("J1")) B("J1")=" \ \ " S I="I",J="J"
430 S I=$N(A(I)) G 440:I=-1
435 S J=$N(B(J)) G 430:J=-1 K @("^"_Q_"PH($P(A(I),D,1),$P(A(I),D,2),$P(A(I),D,3),$P(B(J),D,2)_"" "",PCC)") G 435
440 S I="I",J="J"
450 S I=$N(A(I)) G 480:I=-1
455 S J=$N(B(J)) G 450:J=-1 K @("^"_Q_"PM($P(B(J),D,2)_"" "",$P(A(I),D,1),$P(A(I),D,2),$P(A(I),D,3),PCC)") G 455
480 S J="J"
490 S J=$N(B(J)) G 500:J=-1 K @("^"_Q_"PL($P(B(J),D,1)_"" "",$P(B(J),D,2)_"" "",$P(B(J),D,3)_"" "",PCC)") G 490
500 S Y=$N(@("^"_Q_"PR(I1,""I"")")) K:$E(Y,1)'="I" ^("I") S Y=$N(^("J")) K:$E(Y,1)'="J" ^("J")
510 K A,B S HI2="I",X=@("^"_Q_"PR(I1,0)"),X="I" F Y=1:1 S X=$N(^(X)) G 520:$E(X,1)'=HI2 S A(HI2_Y)=^(X)
520 S (X,HI2)="J" F Y=1:1 S X=$N(^(X)) G 530:$E(X,1)'=HI2 S B(HI2_Y)=^(X)
530 S:'$D(A("I1")) A("I1")=" \ \ " S:'$D(B("J1")) B("J1")=" \ \ " S I="I",J="J"
540 S I=$N(A(I)) G 550:I=-1
545 S J=$N(B(J)) G 540:J=-1 S @("^"_Q_"PH($P(A(I),D,1),$P(A(I),D,2),$P(A(I),D,3),$P(B(J),D,2)_"" "",PCC)")=I1 G 545
550 S I="I",J="J"
560 S I=$N(A(I)) G 590:I=-1
565 S J=$N(B(J)) G 560:J=-1 S @("^"_Q_"PM($P(B(J),D,2)_"" "",$P(A(I),D,1),$P(A(I),D,2),$P(A(I),D,3),PCC)")=I1 G 565
590 S J="J"
600 S J=$N(B(J)) G 610:J=-1 S @("^"_Q_"PL($P(B(J),D,1)_"" "",$P(B(J),D,2)_"" "",$P(B(J),D,3)_"" "",PCC)")=I1 G 600
610 S SW10=0 K @("^HBPWP"_$J)
 ;
YZ S @%Q1=1 Q
 ;
Z X ^cZ Q
ZZ ; 27.08.85 - 10 u 47