relation between invoice and payment

I need a function to input a payment doc num and return the correlative invoice doc nums. Is there any standard function or BAPI in R/3?