UDF Script on SO Header

SOLVED

Trying to get an UDF populated with a default value depending on the ShipToCode on the SO Header.  I've tried with a table pre-write and a column (ShipToCode) pre and post validate event.  Just need the UPS # to go into the UDF_THIRDPARTYSHIP when the ShipToCode= PHYS.

rVal = 0
nCustomerNo = ""
sshipTo = ""
searchString = "PHYS"

rVal = oBusObj.GetValue("CustomerNo$", nCustomerNo)
rVal = oBusObj.GetValue("ShipToCode$", sshipTo)

If nCustomerNo = "1657000" then

	If InStr(sshipTo, searchString) then
	    rVal = oHeaderObj.SetValue("UDF_THIRDPARTYSHIP$", "111111")
	End if
End if