cA214 ;INLEZEN ADRESSEN ;%A213 ;go uit %A213 ; [ 07/20/95   2:16 PM ]
 G 1
 ;
T0 ;Inlezen adressen ;
T1 ;Verwerking van de gegevens;
T2 ;Bevestiging\".[] = ok   ,[] = hernemen";
 ;
T0F ;Importation d'adresses;
T1F ;Traitement des données;
T2F ;Confirmation\".[] = ok   ,[] = reprendre";
 ;
T0E ;Inlezen adressen ;
T1E ;Verwerking van de gegevens;
T2E ;Bevestiging\".[] = ok   ,[] = hernemen";
 ;
1 S I2=100,(SW3,SW4)=1
11 S I2=$O(@("^"_Q_GL_"(0,I2)")) I I2>100,I2\100-1'>SW4 S K=$P(^(I2),U,16)\100,SW4=I2\100 S:K>SW3 SW3=K G 11
13 S I2="" K C
15 S I2=$O(@("^"_Q_"BA(""%A"",1,GL,UP,I2)")) I I2'="" S C(I2+1)=^(I2) G 15
17 S SL=D,$P(SL,D,30)=D F I=1:1:$L(SL,D) S $P(SL,D,I)="?"
19 F I=1:1:SW3 I '$D(C(I)) S C(I)=SL
 ;
2 S I2=0,I=0,FP=2003 W @F,@F1,$P($T(@("T1"_QT)),U,2) S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 I K'="." G ^cA213
21 I I=0 K B F J=1:1:SW3 S B(J)=C(J)
23 S I2=$O(^HULP("RC",Q,TNR,I2)) I I2="" G YZ
25 S I=I+1,J=^(I2),Z=""
 ;
3 S Z=$O(L(I,Z)) G 4:Z="" S K=L(I,Z),X=$P(K,U,2),Y=X#100,X=X\100,R=+K
31 I '$L(SEPV) S K=$E(J,1,R),J=$E(J,R+1,999) 
33 I $L(SEPV) S K=$P(J,SEPV),J=$P(J,SEPV,2,999)
35 I X,Y,$P(B(X),D,Y)="?" S $P(B(X),D,Y)=$P(K_$J("",R),$J("",R))
37 G 3
 ;
4 I I<L G 23
41 F I=1:1:SW3 F J=1:1:$L(B(I),D) I $P(B(I),D,J)="?" S $P(B(I),D,J)=""
43 S NR=$P(B(1),D) L @("^"_Q_GL_"(0,1)"):2 E  S R=14 D F2 G 43
45 I 'NR S NR=@("^"_Q_GL_"(0,1)"),^(1)=NR+1
47 I $D(@("^"_Q_GL1_"(NR)")) S NR=0 G 45
49 S $P(B(1),D)=NR D ^cA218
 ;
5 S @("^"_Q_GL_"(I,0)")=B(1) F J=2:1:SW3 S ^(J-1)=B(J)
51 S @("^"_Q_GL1_"(NR)")=I L  S FP=2203 W @F,NR," ",$P(B(1),D,2),@F1
53 S OK=$D(@("^"_Q_"BA(""%A"",7,GL,0)")) I OK S Q1=GL D S1^cA243
55 S I=0 G 21
 ;
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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84
 
F2 w "Fout in routine cA214 van DATAM, verwittig ICT" r k q