PACKAGE BODY: APPS.OKL_CURE_CALC_PUB

Source

1 PACKAGE BODY OKL_CURE_CALC_PUB AS
2 /* $Header: OKLPCURB.pls 115.4 2003/01/06 19:14:20 jsanju noship $ */
3 
4   ----------------------------------------------------------------------
5   -- PROCEDURE generate_cure_amount
6   ----------------------------------------------------------------------
7   PROCEDURE generate_cure_amount
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_cure_amount;
18     OKL_CURE_CALC_PVT.generate_cure_amount
19       (
20         p_contract_number    => p_contract_number,
21         errbuf               => errbuf,
22         retcode              => retcode
23       );
24     EXCEPTION
25       WHEN OTHERS THEN
26         ROLLBACK TO generate_cure_amount;
27         FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
28   END generate_cure_amount;
29 
30 END OKL_CURE_CALC_PUB;