cA210 ;STANDAARD PROGRAMMA ;%A210 ;Go naar %A20* ; [ 06/29/94  10:03 AM ]
 ;
T0 ;Standaard programma ;
T1 ;De vertegenwoordiger;
T2 ;volgende vertegenwoordiger;
T3 ;Vertegenwoordiger;specifieke vertegenwoordiger;
T4 ;Het prospect;
T5 ;volgend prospect;
T6 ;Prospect;specifieke prospect;
T7 ;Het adres;
T8 ;volgende adres;
T9 ;Adres;specifiek adres;
T10 ; * vrij * ;
T11 ;Alfabetische;alfabetische;numerieke;numerieke;
 ;
T0F ;Standaard openingsprogramma ;
T1F ;Représentant;
T2F ;représentant suivant;
T3F ;Représentant;représentant spécifique;
T4F ;Prospect;
T5F ;prospect suivant;
T6F ;Prospect;prospect spécifique;
T7F ;Adresse;
T8F ;adresse suivant;
T9F ;Adresse;adresse spécifique;
T10F ; * vrij * ;
T11F ;Alphabétique;alphabétique;numérique;numérique;
 ;
T0E ;Standaard programma ;
T1E ;De vertegenwoordiger;
T2E ;volgende vertegenwoordiger;
T3E ;Vertegenwoordiger;specifieke vertegenwoordiger;
T4E ;Het prospect;
T5E ;volgend prospect;
T6E ;Prospect;specifieke prospect;
T7E ;Het adres;
T8E ;volgende adres;
T9E ;Adres;specifiek adres;
T10E ; * vrij * ;
T11E ;Alfabetische;alfabetische;numerieke;numerieke;
 ;
VO S Q1="VT",Q2="V1",X1=$P($T(@("T1"_QT)),U,2),X4=$P($T(@("T2"_QT)),U,2) G ^cA201
VW S Q1="VT",Q2="V1",X1=$P($T(@("T1"_QT)),U,2),WIJZ=1 G ^cA203
VR S Q1="VT",Q2="V1",X1=$P($T(@("T1"_QT)),U,2),WIJZ=0 G ^cA203
VV S Q1="VT",Q2="V1",X1=$P($T(@("T1"_QT)),U,2) G ^cA205
VL S Q1="VT",Q2="V1",X1=$P($T(@("T1"_QT)),U,2),X2=$T(@("T3"_QT)) G ^cA206
VP S Q1="VT",Q2="V1",X1=$P($T(@("T1"_QT)),U,2),X4=$P($T(@("T2"_QT)),U,2) G ^cA235
VS S Q1="VT",Q2="V1",X1=$P($T(@("T1"_QT)),U,2),X2=$T(@("T3"_QT)),X4=$T(@("T11"_QT)),X8=$P($T(@("T2"_QT)),U,2),WIJZ=2 G ^cA233
 ;
PO S Q1="NP",Q2="NP1",X1=$P($T(@("T4"_QT)),U,2),X4=$P($T(@("T5"_QT)),U,2) G ^cA201
PW S Q1="NP",Q2="NP1",X1=$P($T(@("T4"_QT)),U,2),WIJZ=1 G ^cA203
PR S Q1="NP",Q2="NP1",X1=$P($T(@("T4"_QT)),U,2),WIJZ=0 G ^cA203
PV S Q1="NP",Q2="NP1",X1=$P($T(@("T4"_QT)),U,2) G ^cA205
PL S Q1="NP",Q2="NP1",X1=$P($T(@("T4"_QT)),U,2),X2=$T(@("T6"_QT)) G ^cA206
PP S Q1="NP",Q2="NP1",X1=$P($T(@("T4"_QT)),U,2),X4=$P($T(@("T5"_QT)),U,2) G ^cA235
PS S Q1="NP",Q2="NP1",X1=$P($T(@("T4"_QT)),U,2),X2=$T(@("T6"_QT)),X4=$T(@("T11"_QT)),X8=$P($T(@("T5"_QT)),U,2),WIJZ=2 G ^cA233
 ;
NO S Q1="NA",Q2="NA1",X1=$P($T(@("T7"_QT)),U,2),X4=$P($T(@("T8"_QT)),U,2) G ^cA201
NW S Q1="NA",Q2="NA1",X1=$P($T(@("T7"_QT)),U,2),WIJZ=1 G ^cA203
NR S Q1="NA",Q2="NA1",X1=$P($T(@("T7"_QT)),U,2),WIJZ=0 G ^cA203
NV S Q1="NA",Q2="NA1",X1=$P($T(@("T7"_QT)),U,2) G ^cA205
NL S Q1="NA",Q2="NA1",X1=$P($T(@("T7"_QT)),U,2),X2=$T(@("T9"_QT)) G ^cA206
NP S Q1="NA",Q2="NA1",X1=$P($T(@("T7"_QT)),U,2),X4=$P($T(@("T8"_QT)),U,2) G ^cA235
NS S Q1="NA",Q2="NA1",X1=$P($T(@("T7"_QT)),U,2),X2=$T(@("T9"_QT)),X4=$T(@("T11"_QT)),X8=$P($T(@("T8"_QT)),U,2),WIJZ=2 G ^cA233
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84