KA248 ;BTW-NUMMER do naar %A248;KA248 ; [ 08/17/2001  10:46 AM ]
 ;
 New BtwNr
 Do STORE^vhTERMINA()
 If $D(B(1)) Set BtwNr=$P(B(1),D,16)
 Do ^cA248
 If $L($G(BtwNr)),BtwNr'=K,$P(B(2),D,23)="" Set $P(B(3),D,23)=+$H
 Do REFRESH^vhTERMINA()
 Quit
 ;