BLSELPR ;BEPAAL PRODUKT ;BLSELPR; [ 06/25/2002  11:11 AM ]
 G 1
 ;
T1 ;PRODUKTNAAM\I\I[] = via identnummer
T2 ;IDENTNUMMER\D\P[] = via produktnaam
 ;
S7 
 S (@$P(R,D,1),K)=$$SELECT^BLPROD(),FP=sRT*100+1 W @F,@F1 Q
 S S4=$P(R,D,2)+1+F60,S0=0,SA=$P(R,D,3),SB=$P(R,D,5),S8="^BLProd(""D"",",S9="^BLProd("""_$P(R,D,4)_""",",FP=S4 W @F,@F1
S7A S FP=2403+F60 W @F,@F1 W:$D(ST) "VOLGNUMMER OF " W SA,"   ",SB W:S0 "  [] = vervolg" W " : ",@F0
S7B R K G S7A:K?.E1C.E S:$L(K) S0=0 S FP=S4,S10=0 W @F,@F1 G S7Z:K=$E($P(R,D,5))!(K="-"),S7D:K=""&('S0) I K="" K ST S S1=S4 G S7H
S7C G S7D:'$D(ST(K)) S S3=ST(K) G S7M
S7D I $P(R,D,4)="D",$L(K) S $E(K)=0
 S S6=$$UPTRIMAN^vhRtn1(K)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S S1=S4,(S2,S3)=S5 G S7M:$D(@(S9_"S2)")) S:S5?.N S5=S5_" " S (S2,S3)=$N(@(S9_"S5)")) G S7K:S2=-1 S S2=$N(^(S2))
S7F I $E(S2,1,$L(S6))'=S6&'S0&($E(S3,1,$L(S6))=S6) G S7M
S7G S S2=S5
S7H S S2=$N(@(S9_"S2)")) G S7K:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7L:S2=-1 I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7I S FP=S1,S10=S10+1,ST(S10)=S2 W @F,$C(13),?2,S10,". ",?6 I $P(R,D,4)="D" D IDN W ?22,$P(@(S8_"S2)"),D,1)
S7II I $P(R,D,4)="I" W $P(@(S8_"$P(S2,D,2))"),D,1),?35 D IDN
S7J S S1=S1+100 G S7H:S1<(2300+F60) S S0=1 G S7A
S7K S FP=2403+F60 W @F,@F2,@F4,SA," ONBEKEND [] = OK ",@F5,@F0 R K
S7L S (S2,S0)=0 G S7A
S7M S (@$P(R,D,1),K)=$S($P(R,D,4)="I":$P(S3,D,2),1:S3),R=$D(@(S8_"K)"))
S7Z K S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,SA,ST Q
 ;
IDN I $P(R,D,4)="D" W "x.",$E($P(S2,D,1),2,4),".",$E($P(S2,D,1),5,7),".",$E($P(S2,D,1),8)
 I $P(R,D,4)="I" W "x.",$E($P(S2,D,2),2,4),".",$E($P(S2,D,2),5,7),".",$E($P(S2,D,2),8)
 Q
 ;
1 S $P(R,D,3,99)=$P($T(@("T"_$S($P(R,D,3)="P":2,1:1))),U,2)
11 I $P(R,D,3)=$P($P($T(T1),U,2),D,1) S $P(R,D,3,99)=$P($T(T2),U,2) G 15
13 E  S $P(R,D,3,99)=$P($T(T1),U,2)
15 D S7 G 11:K=$E($P(R,D,5))
 ;
YZ Q
 ;