KT140 ;STANDAARD OPENINGSPROGRAMMA ;KT140; Go naar %A201,KT143,%A205 of %A206
 ;
T1 ;DE KLANT 
T2 ;volgende klant
T3 ;KLANT;specifieke klant
T4 ;DE LEVERANCIER
T5 ;volgende leverancier
T6 ;LEVERANCIER;specifieke leverancier
T7 ;DE REKENING
T8 ;volgende rekening
T9 ;REKENING;specifieke rekening
T10 ;IN NUMERISCHE ORDE 
 ;
 ;
KO S Q1="KL",Q2="K1",X1=$P($T(T1),";",2),X4=$P($T(T2),";",2) G ^cA201
KW S Q1="KL",Q2="K1",X1=$P($T(T1),";",2),WIJZ=1 G ^KT143
KR S Q1="KL",Q2="K1",X1=$P($T(T1),";",2),WIJZ=0 G ^KT143
KV S Q1="KL",Q2="K1",X1=$P($T(T1),";",2) G ^cA205
KL S Q1="KL",Q2="K1",X1=$P($T(T1),";",2),X2=$T(T3) G ^cA206
 ;
LO S Q1="LE",Q2="L1",X1=$P($T(T4),";",2),X4=$P($T(T5),";",2) G ^cA201
LW S Q1="LE",Q2="L1",X1=$P($T(T4),";",2),WIJZ=1 G ^KT143
LR S Q1="LE",Q2="L1",X1=$P($T(T4),";",2),WIJZ=0 G ^KT143
LV S Q1="LE",Q2="L1",X1=$P($T(T4),";",2) G ^cA205
LL S Q1="LE",Q2="L1",X1=$P($T(T4),";",2),X2=$T(T6) G ^cA206
 ;
AO S Q1="AR",Q2="R1",X1=$P($T(T7),";",2),X4=$P($T(T8),";",2) G ^cA201
AW S Q1="AR",Q2="R1",X1=$P($T(T7),";",2),WIJZ=1 G ^KT143
AR S Q1="AR",Q2="R1",X1=$P($T(T7),";",2),WIJZ=0 G ^KT143
AV S Q1="AR",Q2="R1",X1=$P($T(T7),";",2) G ^cA205
AL S Q1="AR",Q2="R1",X1=$P($T(T7),";",2),X2=$T(T9),X3=$P($T(T10),";",2) G ^cA206
 ;
S1 I SW2=1 S K=$P(B(1),D,2) D S6 S @%Q1=0,@("^"_Q_Q2_"(I)")=$P(B(1),D,2)
S1A S @%Q1=0 F X=1:1:SW3 S @("^"_Q_Q1_"(NR_"" "",X-1)")=B(X)
S1B I Q1="AR",$L($P(B(1),D,10)) S ^(0)=@("^"_Q_"BA(4,0)")_$P(B(1),D,10)_D,^($P(B(1),D,1))="1\\\\\"
S1Z S @%Q1=1,OK=1 Q
 ;
S2 S OK=1,K=$P(@("^"_Q_Q1_"(I1,0)"),D,2) D S6 S J=I,K=$P(B(1),D,2) D S6 S @%Q1=0,@("^"_Q_Q2_"(I)")=K K:I'=J ^(J)
S2A S @("^"_Q_Q1_"(I1,0)")=B(1) F I=2:1:6 I $D(B(I)) S ^(I-1)=B(I)
S2Z Q
 ;
S3 S OK=1,K=$P(B(1),D,2) D S6 S @%Q1=0 K @("^"_Q_Q2_"(I)"),@("^"_Q_Q1_"(I1)") S @%Q1=1 Q
S4 S OK=1 Q
 ;
S6 S I="" F S1=1:1 S S2=$E(K,S1) Q:S2=""  I S2'?1P S I=I_S2
S6Z K S1,S2 S I=$E(I,1,24)_" "_$P(B(1),D,1) Q
 ;
Z X ^cZ Q
ZZ ; 05.04.91 - 10 u 08