PACKAGE BODY: APPS.OKL_VENDOR_REFUND_PUB

Source

1 PACKAGE BODY OKL_VENDOR_REFUND_PUB AS
2 /* $Header: OKLPRFDB.pls 115.6 2003/04/25 14:09:58 jsanju noship $ */
3 
4   ----------------------------------------------------------------------
5   -- PROCEDURE GENERATE_VENDOR_REFUND
6   ----------------------------------------------------------------------
7   PROCEDURE GENERATE_VENDOR_REFUND
8   (
9     errbuf               OUT NOCOPY VARCHAR2,
10     retcode              OUT NOCOPY NUMBER,
11     p_contract_number    IN VARCHAR2
12   )
13   IS
14 
15   BEGIN
16 
17     SAVEPOINT GENERATE_VENDOR_REFUND;
18     OKL_VENDOR_REFUND_PVT.GENERATE_VENDOR_REFUND
19       (
20         errbuf               => errbuf,
21         retcode              => retcode,
22         p_contract_number    => p_contract_number
23       );
24     EXCEPTION
25       WHEN OTHERS THEN
26         ROLLBACK TO GENERATE_VENDOR_REFUND;
27         FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
28   END GENERATE_VENDOR_REFUND;
29 
30 END OKL_VENDOR_REFUND_PUB;