cA213 ;INLEZEN ADRESSEN ;%A213 ;go naar %A214 ; [ 11/26/97  3:45 PM ]
 G 1
 ;
T0 ;Inlezen adressen ;
T1 ;Uw keuze;
T2 ;-[] = einde programma   [] = bestand inlezen + verwerken;
T3 ;.[] = bestand verwerken (vroeger reeds ingelezen);
T4 ;U moet via Utili-data een listing definiëren ;
T5 ;Listing;bestand;
T6 ;Openingspatroon\"[] = ok   .[] = opnieuw bekijken";
T7 ;Even geduld ... controle van de gegevens ;
T8 ;Ms-dos bestand onverenigbaar met de listing ;
 ;
T0F ;Importation d'adresses;
T1F ;Votre choix;
T2F ;-[] = fin du programma   [] = importer fichier + traitement;
T3F ;.[] = traitement fichier (déjà importé);
T4F ;Il faut définir une liste par Utili-data ;
T5F ;Liste;fichier;
T6F ;Masque de création\"[] = ok   .[] = contrôler";
T7F ;Un instant ... contrôle des données ;
T8F ;Fichier ms-dos ne correspond pas à la liste ;
 ;
T0E ;Inlezen adressen ;
T1E ;Uw keuze;
T2E ;-[] = einde programma   [] = bestand inlezen + verwerken;
T3E ;.[] = bestand verwerken (vroeger reeds ingelezen);
T4E ;U moet via Utili-data een listing definiëren ;
T5E ;Listing;bestand;
T6E ;Openingspatroon\"[] = ok   .[] = opnieuw bekijken";
T7E ;Even geduld ... controle van de gegevens ;
T8E ;Ms-dos bestand onverenigbaar met de listing ;
 ;         
S1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F,@F5 S FP=202 W @F,@F4,K,@F5,@F2
S1Z Q
 ;
S2 S OK=0 I '$L(SEPV),$L(J)=$P(L(I),U) S OK=1       
S2A I $L(SEPV),$L(J,SEPV)-1=$P(L(I),U,2) S OK=1
S2B I $L(SEPV),$L(J,SEPV)=$P(L(I),U,2) S OK=1
S2Z Q
 ;
1 W @F61,@F11,@F1 D S1
11 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\1\\""-,.""[K" D R0 G YZ:K="-"!(K=",")
13 I K="" D ^cA703 G 1:K="-"!(K=",")
15 D ^cA705 G 1:K="-"!(K=",")
 ;
2 I '$D(@("^"_Q_"LIL(0,0)")) S K=$P($T(@("T4"_QT)),U,2) D F1 G YZ
21 S R="I1\1700\"_$P(^(0),U)_"\LIL\LIL1" D @$G(@("^"_Q_"LIL(0,5)"),"^cA101") G 1:K="-"!(K=",")
23 S FP=1703 W @F,$P($T(@("T5"_QT)),U,2)," : ",$P(@("^"_Q_"LIL(I1,0)"),D)," ",$P(^(0),D,2) S GL=$P(^(0),D,3)
25 S FP=1803 W @F,$P($T(@("T5"_QT)),U,3)," : ",$P(@("^"_Q_GL_"(0,0)"),U)
27 S GL1=$S(GL="KL":"K1",GL="LE":"L1",GL="NP":"NP1",GL="NA":"NA1",1:"") G Y:'$L(GL1)
 ;
3 I '$D(@("^"_Q_"BA(""%A"",1,GL,0)")) S ^(0)="",K="." G 33
31 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 2:K="-",1:K=","
33 I K="." D ^cA338,^cA609,^cA238,^cA339,S1 S FP=401 W @F,@F1 G 23
35 S R="UP\2000\"_GL D ^cA221 I 'K G 31
37 S FP=1903 W @F,$P($P($T(@("T6"_QT)),U,2),D)," : ",UP
 ;
4 S FP=2003 W @F,@F1,$P($T(@("T7"_QT)),U,2)
41 S FORM=$P(^HULP("RC",Q,TNR,0),D,5) G Y:'FORM
 S FORM=$$SIGN^cAFA1("FORM",FORM,0) I '$L(FORM) G Y
43 S SEPV=$P(FORM,D,4),BL(1)=$P(FORM,D,8),BL(2)=$P(FORM,D,9)
45 S BL(3)="",EL(1)="",EL(2)="" I $D(^(1)) S FORM=^(1),BL(3)=$P(FORM,D),EL(1)=$P(FORM,D,2),EL(2)=$P(FORM,D,3)
47 S K=SEPV,SEPV=""
48 S R=$E(K),K=$E(K,2,999) I R="^",$L(K) S R=$A(K)-64,K=$E(K,2,999) S:R<0 R=28 S R=$C(R)
49 S SEPV=SEPV_R I $L(K) G 48
 ;
5 K FORM,L S I2=100,L=0
51 S I2=$O(@("^"_Q_"LIL(I1,I2)")) G 6:I2="" S N=^(I2),X=I2\100,Y=I2#100
53 I X>L S L=X,L(X)=0
55 S L(X)=L(X)+$P(N,U)_U_Y,L(X,Y)=$P(N,U)_U_(+$P(N,U,4)) G 51
 ;
6 S I2=0,I=0
61 S I2=$O(^HULP("RC",Q,TNR,I2)) I I2="" G Y:I,^cA214
63 S I=I+1,J=^(I2) D S2 I OK S:I=L I=0 G 61
 ;
Y S K=$P($T(@("T8"_QT)),U,2) D F1 G 1
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
C1 W !?2,$P($T(@("T2"_QT)),U,2),!?2,$P($T(@("T3"_QT)),U,2) Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84