BTWCON96 ;CONVERSIE BTW-CODES ;BTWCON ; [ 12/18/95  2:14 PM ]
 G 1
 ;
T1 ;ER ZIJN REEDS TE VEEL BTW-CODES ;
T2 ;DEZE CONVERSIE WERD REEDS UITGEVOERD ;
T3 ;EINDE CONVERSIE ;
 ;
S1 I '$D(^(K)) S ^(K)=X(A)_"\OMZET "_X(A)_" BTW\0",^(K+20)=X(A)*.33_"%\33%" G S1Z
S1A I $P(^(K),D)=X(A) G S1Z
S1B S K=K+1 G S1
S1Z W !?2,K,"=",X(A) Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 I $D(^HULP("BTW","ZZ"))#10,^("ZZ")=$T(ZZ) S K=$P($T(T2),U,2) D E G YZ
13 S ^("ZZ")=$T(ZZ)
15 S boot=$G(boot,0),QQ=$G(^cLOG(boot,"Q")) I QQ="" S QQ=^cLOG("Q")
17 S QQ=$P(QQ,D,2,999),XQ=Q
19 S AT=1,X(1)="21%"
 ;
2 S Q=$P(QQ,D),QQ=$P(QQ,D,2,999) I Q="" G Y:QQ="",2
21 I '$D(@("^"_Q_"BA(99,1)")) G 2
23 H 1 S FP=403 W @F,Q,".",^(1),@F1
 ;
3 S (A,B)=0 F K=0:1:9 I $D(@("^"_Q_"BA(18,K)")) S A=A+1 I +^(K)=20.5 S B=B+1
31 G 2:B'=1 I A+AT>10 S K=$P($T(T1),U,2) D E G 2
33 F A=1:1:AT S K=0 D S1
 ;
4 F M=1,0 Q:$D(@("^"_Q_"BA(""MENU"",M,0)"))
41 I $D(@("^"_Q_"PR(0)")),$O(^(0))'="" S @("^"_Q_"BA(""MENU"",M,97)")=$P($T(+1),U,2)_"PRODUKTEN '96\17\43\^BTWPR96\D\\\\\"
43 I $D(@("^"_Q_"UL(0)")),$O(^(0))'="" G 5
45 I $D(@("^"_Q_"OD(0)")),$O(^(0))'="" G 5
47 I $D(@("^"_Q_"UT(0)")),$O(^(0))'="" G 5
48 I $D(@("^"_Q_"TO(0)")),$O(^(0))'="" G 5
49 G 6
 ;
5 S @("^"_Q_"BA(""MENU"",M,98)")=$P($T(+1),U,2)_"BONS '96\18\43\^BTWUL96\D\\\"
 ;
6 G 2
 ;
Y S Q=XQ,K=$P($T(T3),U,2) D E
YZ Q
 ;
E S FP=2402 W @F,@F4,K,"  [] = ok ",@F5,@F1,@F0 R K Q
 ;
ZZ ; 18.12.95 - 14 u 15