Need help with reassigining Pins

I am trying to define a funcion to reassign pins and associated labels to another pin and label by clicking on underlying metal shape. I ended up with this, but its not working. Can someone please help me with this: 

procedure(reassignPinByClick()
let((winId shapeId term layerName pinName x y)
winId = geGetWindowRep()
unless(winId
error("No layout window found!")
)

let((point)
point = enterPoint( ?prompt list("Please click on the metal shape"))
x = car(point)
y = cadr(point)
)
shapeId = car(dbGetOverlaps(geGetEditCellView() list(x y) 0.0))
unless(shapeId
error("No shape selected!")
)

term = dbFindTermByPoint(shapeId~>cellView list(x y))
unless(term
error("No pin found at the selected location!")
)
pinName = term~>name
layerName = shapeId~>layerName

dbDeleteObject(term)
dbCreatePin(shapeId~>cellView layerName pinName "shape" list(shapeId))
)
)

Thank You!