SKUN ;UPDATE SKU VIA EXPORTBESTAND ;SKUN ; [ 12/18/95  11:17 AM ]
 ;
T1 ;KEUZE\"[] = inlezen exportbestand   .[] = update SKU   -[] = einde programma";
T2 ;BEVESTIGING\".[] = update SKU   ,[] = hernemen";
T3 ;VERWIJDEREN VORIGE SKU ...;
T4 ;OPBOUW NIEUWE SKU ...;
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S R="KEU\22\3\"_$P($T(T1),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-"
13 I K="" D 11^cA703 G 11:K="-"!(K=",") S R="RC\"_TNR D S2^cA709 G 17
15 S FP=401 W @F,@F1 D 11^cA705 G 11:K="-"!(K=",")
17 S R="K\22\3\"_$P($T(T2),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 15:K="-",11:K=","
 ;
2 S FP=2203 W @F,@F1,$P($T(T3),U,2)
21 S I=0 F  S I=$O(^SPRX(I)) Q:I=""  K ^(I)
 ;
3 S FP=2203 W @F,@F1,$P($T(T4),U,2)
31 S I=0 F  S I=$O(^HULP("RC",Q,TNR,I)) Q:I=""  S N=^(I) I $L(N)=80 D
 . S PC=$$DEPUNCT^cQ9($$TOUPPER^cQ9($E(N,1,6)))_" "
 . S ^SPRX(PC)=$E(N,1,6)_D_$P($E(N,7,56)_$J("",60),$J("",60))_D_D_($E(N,59,68)/100)_D_$E(N,75)_D_$TR($E(N,57),"23","69")_D_D_$E(N,58)_D_(+$E(N,69,71))_D_(+$E(N,72,74))_D_(+$E(N,76,80))_D
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z K R0,R1 D ^cA100 Q
 ;
Z X ^cZ Q
ZZ ; 24.04.91 - 15 u 46