BTWNR4 ;KORREKTIE NIEUWE BTW VANAF 01.01.93 ;BTWNR4 ; [ 07/11/97   1:20 PM ]
 ;
T1 ;EINDE KONVERSIE ;
 ;
1 W @F11,@F1,$P($T(+1),U,0),! D ^cA604
11 I '($D(^cLOG(boot,"Q"))#2) D KON^cQ4 R K G YZ
13 S XQ=^("Q")
 ;
2 S ^HULP("BTWNR4")=$P(XQ,D,2,999),XQ=$P(XQ,D)
21 I $L(XQ),XQ'="SYS" D S1
23 S XQ=^HULP("BTWNR4") I $L(XQ) G 2
25 K ^HULP("BTWNR4")
 ;
Y W !!! S K=$P($T(T1),U,2) X ^cTXT(0,"N",250) R K
YZ Q
 ;
S1 W !!,XQ I '$D(@("^"_XQ_"BA(99,1)")) G S1Z
S1A W ?5,^(1),!?5,^(2),!?5,^(3),!
S1B D 1^BTWNR5
S1Z Q
 ;
Z X ^cZ Q
ZZ ; 18.12.89 - 12 u 15