Perguntas Chamar rotina execblock

Pessoal boa tarde!
tenho uma rotina logo abaixo, que incluo um pedido de vendas e um campo especifico nome do Leilão. Quando faturo esse pedido como a base não permite o ponto de entrada criei essa rotina para levar o nome do leilão no contas a receber.

Duvida como que posso chamar essa rotina no momento que for incluir um titulo no financeiro?


User Function RFINE009

_cAlias := Alias()
_nIndex := IndexOrd()
_nRecno := Recno()

_cAlias := Alias()
_nRecno := Recno()
_nIndex := IndexOrd()

//Monto o comando do UPDATE
cQry := "UPDATE " + RetSqlName("SE1")+" "
cQry += "SET E1_LEILAO = C5_LEILAO "
//Faço o relacionamento
cQry += "FROM " + RetSqlName("SE1") + " SE1, "
cQry += " " + RetSqlName("SC5") + " SC5 "
cQry += "WHERE SE1.E1_FILIAL = '" + xFilial("SE1") + "' AND "
cQry += " SC5.C5_FILIAL = '" + xFilial("SC5") + "' AND "
cQry += " SE1.E1_LEILAO = ' ' AND"
cQry += " SE1.D_E_L_E_T_ <> '*' AND"
cQry += " SC5.D_E_L_E_T_ <> '*' AND"
cQry += " SE1.E1_PEDIDO=SC5.C5_NUM "

If TCSQLExec(cQry) < 0
Alert("Erro na execução de rotina automatica, favor acionar o Administrador do sistema.")
_cLog := TCSQLError()
MemoWrite("C:\RFINE002.txt",_cLog)
EndIf

DbSelectArea(_cAlias)
DbSetOrder(_nIndex)
DbGoTo(_nRecno)

//Rotina de funções do contas a receber padrão do sistema.
//FINA740()

Return