KPPC G 1 ;BEHEER PRODUKTEN PRODUKTKODE ;KPPC; [ 09/30/93  8:19 AM ]
 ;
T1 ;[] = synoniemen
T2 ;-[] = einde programma   A[] = automatisch nummer
T4 ;   # = positie met vrije inhoud
 ;
S2 S FP=2103+F60+(PROG="KPE100"!($E(PROG,1,5)="KPSEL")*100) W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9))
S2A W:$L($P(U2,U,10)) !?2,$P(U2,U,10) I $E(PROG,1,5)="KPSEL" W !?2,$P($T(T1),U,2) I KT>6 W $P($T(T4),U,2)
S2C I PROG="KP25" W !?2,$P($T(T3),U,2)
S2D S FP=2100+F60+(PROG="KPE100"!($E(PROG,1,5)="KPSEL")*100)+$L($P(U2,U,1))+6 W @F,K,@F,@F0 R K
S2Z Q
 ;
1 S K="" D S2
11 G 1:K?.E1C.E,1:$L(K)>$P(U2,U,9),YZ:K="-"
13 I PROG="KP25" G YZ:K=","!(K=".")!(K="I")
15 I $E(PROG,1,5)="KPSEL" G 2:K="",YZ:KT>6
17 G 1:'$L(K),YZ
 ;
2 S R="K\2200\"_$P(U2,U,1)_"\PR\PR1" D R7^cA107 G 1:K="-" S K=$P(@("^"_Q_"PR($P(^"_Q_"PR1(K),D,1),0)"),D,1)
21 I KT>6 D S2 G 21:K?.E1C.E,1:$L(K)>$P(U2,U,9),2:"-"[K
 ;
YZ K PROG Q
 ;
Z X ^cZ Q
ZZ ; 06.05.88 - 15 u 30