cA305 ;BTW-CODES ;%A305 ; [ 12/29/00  5:16 PM ]
 K VAL G 1
 ;
T0 ;BTW-codes ;
T1 ;BTW-code;
T2 ;codes voorafgegaan door '1'=luxetaks;
T3 ;einde ventilatie;
 ;
T0F ;codes TVA ;
T1F ;Code TVA;
T2F ;codes précédés de '1'=taxe de luxe;
T3F ;fin des ventilations;
 ;
T0E ;VAT codes ;
T1E ;VAT code;
T2E ;codes precede by '1'=luxurytax;
T3E ;end ventilations;
 ;
S1 K PBTW S RS1=$D(@("^"_Q_"BA(18,0)")) F RS1=0:1:9 S:$D(^(RS1)) PBTW(RS1)=$P(^(RS1),D) S:$D(^(RS1+10)) PTXT(RS1)=$P(^(RS1+10),D)
S1Z K RS1 Q
 ;
VAL(VAL) ; test btw-code 'VAL' geldig
 ;
1 D S1 K RBG F K=0:1:9 I $D(^(K)),$P(^(K),D,3) S RBG(K)=""
11 I $G(VAL)?1.N S K=VAL G 17
13 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\C2\1\\"",-""[K!(K?.N)&($L(K)!$D(RBTW))" D R0
15 S:'$L(K) K=RBTW I K=99,$D(RBTW),RBTW=99 S K="" 
17 G YZ:"-,"[K,13:'$D(PBTW(K#10))!'$D(PTXT(K\10))
19 I $D(RBG(K#10)) G 13
 ;
YZ K RBG,RBTW 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 F K=0:1:9 I $D(PBTW(K)) W K,"=",PBTW(K),"  "
C1Z W !?2,$P($T(@("T2"_QT)),U,2) W:$D(RBTW) "   [] = ",$S(RBTW=99:$P($T(@("T3"_QT)),U,2),1:RBTW) Q
 ;
C2 W !?2 F K=0:1:9 I $D(PBTW(K)),'$D(RBG(K)) W K,"=",PBTW(K),"  " I $X>60 W !?2
C2Z W:$D(RBTW) "[] = ",$S(RBTW=99:$P($T(@("T3"_QT)),U,2),1:RBTW) Q
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84