KBSPOD G 1 ;BEHEER SPOORDOKUMENT ;KBSPOD; [ 11/13/2000  12:01 PM ]
 ;
T1 ;VERZENDINGSWIJZE;4;2;;4;24;;K S U3=K_" "_$S($D(^RES("KLANT","PI","VERZENDWIJZE","D",K)):^(K,"N"),1:"");2;;$D(^RES("KLANT","PI","VERZENDWIJZE","D",K));;20;;;$P(SPD,D,1)
T2 ;CONTRAKT;6;2;;6;24;;;7;;1;;;;;$P(SPD,D,2)
T3 ;NR. AFZENDER;8;2;;8;24;;;11;;1;;;;;$P(SPD,D,3)
T4 ;VOLGNR. BULLETIN;10;2;;10;24;;;6;;K?.N&K;1;;;1;$P(SPD,D,4)
T10 ;NUMMER ELEMENT
T11 ;-[] = einde programma
T12 ;NIET WIJZIGBAAR  [] = ok 
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
1 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S I=0,SPD=@("^"_Q_"BA(176)")
13 S I=I+1,U2=$P($T(@("T"_I)),U,2,99) G 2:'$L(U2) S FP=$P(U2,U,5)*100+$P(U2,U,6)-3 W @F,@F5,":"
15 S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,$J(I,2),@F6,$P(U2,U,1),@F5
17 X "S (K,U3)="_$P(U2,U,16) X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,U3
19 G 13
 ;
2 S R="NE\22\3\"_$P($T(T10),U,2)_"\"""_$P($T(T11),U,2)_"""\1\\K?.N&K!(K=""-"")" D R0 I K'="-" G 2:'$L($T(@("T"_K)))
21 I K="-" S @("^"_Q_"BA(176)")=SPD G YZ
23 S U2=$P($T(@("T"_NE)),U,2,99) I $P(U2,U,12),@$P(U2,U,15) S FP=2403 W @F,@F2,@F4,$P($T(T12),U,2),@F5,@F0 R *K G 2
24 S R="K\22\3\"_$P(U2,U,1)_"\"""_$P(U2,U,10)_"""\"_$P(U2,U,9)_"\\"_$P(U2,U,11)_"!(K=""-"")"
25 D R0 G 2:K="-" S U3=K X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8)
27 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3 X "S "_$P(U2,U,16)_"=K" G 2
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 01.12.88 - 16 u 06