BTWNR2 ;KONVERSIE ^_XQ_ ;BTWNR ; [ 12/30/92  11:10 AM ]
 G Q
 ;
T1 ;BTW-NUMMER ONTBREEKT BIJ DE ;
T2 ;~;;K I $L(K) D S1^cA248;14;xxxxxxxx[] = binnenlands nr.   LLxxxxxxxx[] = buitenlands nummer   [] = geen    0 of LL0[] = onbekend nummer   (LL = NL, DE, FR, GB, ...);;;6;;;116;;;D ^cA248;1;;1;;~;
 ;
1 S G="KL"
10 W !,$P($T(+1),U,2),*8,G S I2=100
11 S I2=$O(@("^"_XQ_G_"(0,I2)")) G Y:I2="" S A=^(I2),B=+$P(A,U,16)
13 I I2<100 G 11
15 I B=116 S A=$P(A,U,1,6)_$P($T(T2),"~",2) S $P(A,U,4)=$S(G="KL":"'$P(B(1),D,15)",1:"") G 9
17 G 11
 ;
9 W !,B,?10,$P(A,U) I +$P(A,U,16)'=B W ?30,*7,"ERROR" H 1 W *7
91 E  S ^(I2)=A
 ;
Y I I2="" W !,$P($T(T1),U,2),$P(^(0),U)," !!! ",*7 H 1
YA I G="KL" S G="LE" G 10
YZ K A,B,G,I2 Q
 ;
Q R !,"Q-WAARDE : ",Q G YZ:"-^"[Q,Q:Q'?1.3U
QA I '$D(@("^"_Q_"BA(99,1)")) W "   ???",*7 G Q
QB W !,^(1) D ^cA604 S XQ=Q G 1
QZ Q
 ;
Z X ^cZ Q
ZZ ; 18.12.89 - 12 u 09