KPFI8 G 1 ;PRODUKTENFICHE;KPFI1;Quit naar KPFI4, KPFI5, KPFI6 [ 01/07/2003  2:39 PM ]
 ;
S1 S SI2=$N(C(I1,I2)),LN=LN+C(I1)+2 I LN>59 W # D HD G S1
S1A S I2=$N(C(I1,I2)),I3=0 G S1F:I2=-1 F I=SI2:1:I2-1 W !
S1B S SI2=I2,I3=$N(C(I1,I2,I3)) G S1A:I3=-1 S U2=C(I1,I2,I3),X=$P(U2,U,4)
S1C S SWX=1 I X S (K,U3)=$P(B(X\100),D,X#100)
 E  I 0'[X,X'="""""" X X
 I $L($P(U2,U,3)) X "S U3="_$P(U2,U,3)
S1D I '$P(U2,U,5) W ?I3+1,$P(U2,U,1),?$P(U2,U,2)-4,":"
 W ?$P(U2,U,2)-2,$TR(U3,FVAN,FNAAR)
 I DUP[(D_$P(U2,U,4)_D) F I=1,2 W $C(13),?$P(U2,U,2)-2,$TR(U3,FVAN,FNAAR)
S1E G S1B:I1'=12!(X'=101) D ^KPFI9 G S1B
S1F W !!!
S1Z Q
 ;
1 N c M c=C S BLZ=0 D HD,OMSCHR("F"),OMSCHR("N"),BREF S I1=0
11 S I1=$N(C(I1)),I2=0 I I1=-1 W # K C M C=c G YZ
13 S:I1=11 B(1)=B("I") S:I1=12 B(1)=B("J") D S1 G 11
 ;
YZ Q
 ;
HD S (BLZ,Print("BLZ"))=BLZ+1,(LN,Print("LIJN"))=0,Print("LMARG")=3
 D FTITEL^OUTPUT2(73,TIT)
 W !!
 Q
 ;
BREF 
 N A,I,K,L,P,Q,R,S,X
 S S="",Q=0
 F  Q:Q  S S=$O(C(S)) Q:'S  S L="" F  Q:Q  S L=$O(C(S,L)) Q:'L  S P="" F  Q:Q  S P=$O(C(S,L,P)) Q:'P  I $P(C(S,L,P),U,4)=603 D  Q
 .S Q=1
 Q:'Q
 S A=L
 F  S L=$O(C(S,L)) Q:'L  S P="" F  S P=$O(C(S,L,P)) Q:'P  S R(S,L,P)=C(S,L,P) K C(S,L,P)
 F X=610:-1:604,510:-1:504,503 Q:$L($P(B(X\100),D,X#100))
 S K=0 F I=504:1:510,604:1:610 Q:I>X  S K=K+1,C(S,A+K,2)=";25;;"_I_";"
 S C(S)=C(S)+K
 S L="" F  S L=$O(R(S,L)) Q:'L  S P="" F  S P=$O(R(S,L,P)) Q:'P  S C(S,L+K,P)=R(S,L,P)
 Q
 ;
OMSCHR(T) 
 N A,I,K,L,N,P,Q,R,S,V,X
 S V=$S(T="N":111,1:421)
 S S="",Q=0
 F  Q:Q  S S=$O(C(S)) Q:'S  S L="" F  Q:Q  S L=$O(C(S,L)) Q:'L  S P="" F  Q:Q  S P=$O(C(S,L,P)) Q:'P  I $P(C(S,L,P),U,4)=V D  Q
 .S Q=1
 Q:'Q
 S A=L
 F  S L=$O(C(S,L)) Q:'L  S P="" F  S P=$O(C(S,L,P)) Q:'P  S R(S,L,P)=C(S,L,P) K C(S,L,P)
 F X=10-(T="N"*2)*100+10:-1:10-(T="N"*2)*100+1,9-(T="N"*2)*100+10:-1:9-(T="N"*2)*100+1,V Q:$L($P(B(X\100),D,X#100))
 S K=0 F I=9-(T="N"*2)*100+1:1:9-(T="N"*2)*100+10,10-(T="N"*2)*100+1:1:10-(T="N"*2)*100+10 Q:I>X  S K=K+1,C(S,A+K,2)=";25;;"_I_";"
 S C(S)=C(S)+K
 S L="" F  S L=$O(R(S,L)) Q:'L  S P="" F  S P=$O(R(S,L,P)) Q:'P  S C(S,L+K,P)=R(S,L,P)
 Q
 ;