convpwt	;conversie toestellen ;convpwt; [ 09/29/97  12:06 PM ]
	;
	; 
1	s i=0,Q="EA",UREF="^"_Q_"PWT"
	f  s i=$o(@UREF@(i)) q:i=""  m ^DATA(Q,"PWT",i)=@UREF@(i)
	;
	; verplaatsen van productcode en intern nr.
	s i="",D="\",UREF="^"_Q_"PR"
	f  s i=$o(^DATA(Q,"PWT",i)) q:i=""  d
	. s pr=$p(^(i,0),D,4) q:'$l(pr)
	. q:'$d(@UREF@(pr,0))
	. s $p(^DATA(Q,"PWT",i,0),D,4)=$p(@UREF@(pr,0),D)
	. s $p(^DATA(Q,"PWT",i,0),D,1)=pr
	;
	; conversie van merk naar intern nr.
	s i=0
	f  s i=$o(^DATA(Q,"PWT",i)) q:i=""  d
	. s mk=$p(^(i,0),D,3) q:'$l(mk)
	. s intmk=$$UR^cAFA1("PR.MK",102,$$UC^cAFA1($$DP^cAFA1(mk))) 
	. s $p(^DATA(Q,"PWT",i,0),D,3)=intmk
	q