Dropping via at current location!!

Hi,

   I am trying to drop a via with 1X2 (row,column) at the mouse pointed location. To start with I have written this code .

procedure(dropvia()
cv=hiGetCurrentWindow()
cvid=geGetEditCellView()
pt=geWindowToEditPoint(cv hiGetPoint(cv))
dbCreateRect(cvid list("VIA "drawing") list(car(pt)-0.03:cadr(pt)-0.03 car(pt)+0.03:cadr(pt)+0.03))
)

Later I realised that, this is not  I am looking for. I wanted to create a via, the one similar to leHiCreateVia() which opens a form and we enter the values.

I tried with dbCreateInst and select the appropriate instance like M2_M1. But is there a way to create via to the one similar to leHiCreateVia() form??

Please give me a appropriate command to plug in my code.

In case, If there is way a to get above one, how do we return the name of the via definition (eg:M1_M2,M2_M3), so that I can pass this name to change it to next level via. Say I will select M1_M2 and press a key to change it to M2_M3

Thanks,

Bharath