KTRA2 G 1 ;TRANSFERT BESTANDEN ;KTRA1; Quit naar KTRA1
 ;
 ;
1 S K="" I 159[$P(BST,",",1) S K="+"
11 G YZ:'$L($P(BST,",",1)) I $P(BST,",",1)>4 D @("S"_$P(BST,",",1)_"^KTRA3") S BST=$P(BST,",",2,99) G 11
 ;
2 S HG=-1
21 S HG=$N(@("^"_Q_"PH(HG)")) G 3:HG=-1 S GR=-1
23 S GR=$N(@("^"_Q_"PH(HG,GR)")) G 21:GR=-1 S SG=-1
25 S SG=$N(@("^"_Q_"PH(HG,GR,SG)")) G 23:SG=-1 S PCC=-1
27 S PCC=$N(@("^"_Q_"PH(HG,GR,SG,""  "",PCC)")) G 25:PCC=-1 S PR=+^(PCC) D @("S"_$P(BST,",",1)_"^KTRA3") G 27
 ;
3 K HG,GR,SG,PCC,PR S BST=$P(BST,",",2,99) G 11
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 24.08.87 -  9 u 07