PACKAGE BODY: APPS.OKL_CURE_REQUEST_PUB

Source

1 PACKAGE BODY OKL_CURE_REQUEST_PUB AS
2 /* $Header: OKLPREQB.pls 115.7 2003/10/10 18:35:33 jsanju noship $ */
3 
4   ----------------------------------------------------------------------
5   -- PROCEDURE SEND_CURE_REQUEST
6   ----------------------------------------------------------------------
7   PROCEDURE SEND_CURE_REQUEST
8   (
9      errbuf               OUT NOCOPY VARCHAR2,
10      retcode              OUT NOCOPY NUMBER,
11      p_vendor_number      IN  NUMBER DEFAULT NULL,
12      p_report_number      IN  VARCHAR2 DEFAULT NULL,
13      p_report_date        IN  VARCHAR2 DEFAULT NULL
14 
15   )
16   IS
17 
18   l_vendor_number         NUMBER;
19   l_report_number         VARCHAR2(2000);
20   l_report_date           DATE;
21 
22   l_agent_id              NUMBER;
23   l_content_id            NUMBER;
24   l_from                  VARCHAR2(240);
25   l_subject               VARCHAR2(240);
26   l_email                 VARCHAR2(240);
27 
28   BEGIN
29 
30 
31       SAVEPOINT SEND_CURE_REQUEST;
32       OKL_CURE_REQUEST_PVT.SEND_CURE_REQUEST
33         (
34          errbuf           => errbuf,
35          retcode          => retcode,
36          p_vendor_number  => p_vendor_number,
37          p_report_number  => p_report_number,
38          p_report_date    => p_report_date
39        );
40 
41   EXCEPTION
42       WHEN OTHERS THEN
43         ROLLBACK TO SEND_CURE_REQUEST;
44         FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
45   END SEND_CURE_REQUEST;
46 
47 END OKL_CURE_REQUEST_PUB;
48 
49 
50