Following is a response from Senior DHS staff member, Tom Pullum:
Very sorry--somehow the line "scalar sfactor=B[1,1]/B[1,2]" was dropped. Please see below. Hope this will do what you want.
gen unwtd=1000000
total unwtd hv005
matrix B=e(b)
matrix list B
scalar sfactor=B[1,1]/B[1,2]
scalar list sfactor
gen hv005_PR=round(sfactor*hv005)