KFAVE ;STANDAARD OPENINGSPROGRAMMA ;KFAVE; Go naar %A201,%A203,%A205 of %A206
 ;
T1 ;DE FABRIKANT
T2 ;volgende fabrikant
T3 ;FABRIKANT;specifieke fabrikant
T4 ;DE VERDELER
T5 ;volgende verdeler
T6 ;VERDELER;specifieke verdeler
T10 ;IN NUMERISCHE ORDE 
 ;
 ;
FO S Q1="FAB",Q2="FAB1",X1=$P($T(T1),";",2),X4=$P($T(T2),";",2) G ^cA201
FW S Q1="FAB",Q2="FAB1",X1=$P($T(T1),";",2),WIJZ=1 G ^cA203
FR S Q1="FAB",Q2="FAB1",X1=$P($T(T1),";",2),WIJZ=0 G ^cA203
FV S Q1="FAB",Q2="FAB1",X1=$P($T(T1),";",2) G ^cA205
FL S Q1="FAB",Q2="FAB1",X1=$P($T(T1),";",2),X2=$T(T3) G ^cA206
 ;
VO S Q1="VER",Q2="VER1",X1=$P($T(T4),";",2),X4=$P($T(T5),";",2) G ^cA201
VW S Q1="VER",Q2="VER1",X1=$P($T(T4),";",2),WIJZ=1 G ^cA203
VR S Q1="VER",Q2="VER1",X1=$P($T(T4),";",2),WIJZ=0 G ^cA203
VV S Q1="VER",Q2="VER1",X1=$P($T(T4),";",2) G ^cA205
VL S Q1="VER",Q2="VER1",X1=$P($T(T4),";",2),X2=$T(T6) G ^cA206
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31