[Home] [Help]
PACKAGE BODY: APPS.OKL_CURE_REQ_AMT_PUB
Source
1 PACKAGE BODY OKL_CURE_REQ_AMT_PUB AS
2 /* $Header: OKLPCRKB.pls 115.1 2003/04/25 14:04:18 jsanju noship $ */
3
4
5 PROCEDURE update_cure_request(
6 p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2 ,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 p_cure_req_tbl IN cure_req_tbl_type,
12 x_cure_req_tbl OUT NOCOPY cure_req_tbl_type) IS
13
14 l_api_name VARCHAR2(30) := 'update_cure_request';
15 l_api_version CONSTANT NUMBER := 1.0;
16
17 l_cure_req_tbl cure_req_tbl_type := p_cure_req_tbl;
18
19 BEGIN
20
21 x_return_status := OKC_API.START_ACTIVITY(
22 p_api_name => l_api_name,
23 p_pkg_name => g_pkg_name,
24 p_init_msg_list => p_init_msg_list,
25 l_api_version => l_api_version,
26 p_api_version => p_api_version,
27 p_api_type => g_api_type,
28 x_return_status => x_return_status);
29
30 -- check if activity started successfully
31 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
32 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
33 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
34 raise OKC_API.G_EXCEPTION_ERROR;
35 End If;
36
37 OKL_CURE_REQ_AMT_PVT.update_cure_request(
38 p_api_version => p_api_version,
39 p_init_msg_list => p_init_msg_list,
40 x_return_status => x_return_status,
41 x_msg_count => x_msg_count,
42 x_msg_data => x_msg_data,
43 p_cure_req_tbl => l_cure_req_tbl,
44 x_cure_req_tbl => x_cure_req_tbl
45 );
46
47 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
48 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
49 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
50 raise OKC_API.G_EXCEPTION_ERROR;
51 End If;
52
53 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
54
55 EXCEPTION
56 when OKC_API.G_EXCEPTION_ERROR then
57 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
58 p_api_name => l_api_name,
59 p_pkg_name => g_pkg_name,
60 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
61 x_msg_count => x_msg_count,
62 x_msg_data => x_msg_data,
63 p_api_type => g_api_type);
64
65 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
66 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
67 p_api_name => l_api_name,
68 p_pkg_name => g_pkg_name,
69 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
70 x_msg_count => x_msg_count,
71 x_msg_data => x_msg_data,
72 p_api_type => g_api_type);
73
74 when OTHERS then
75 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
76 p_api_name => l_api_name,
77 p_pkg_name => g_pkg_name,
78 p_exc_name => 'OTHERS',
79 x_msg_count => x_msg_count,
80 x_msg_data => x_msg_data,
81 p_api_type => g_api_type);
82
83 END;
84
85 PROCEDURE update_cure_request(
86 p_api_version IN NUMBER,
87 p_init_msg_list IN VARCHAR2 ,
88 x_return_status OUT NOCOPY VARCHAR2,
89 x_msg_count OUT NOCOPY NUMBER,
90 x_msg_data OUT NOCOPY VARCHAR2,
91 p_vendor_id IN NUMBER,
92 p_cure_report_id IN NUMBER) IS
93
94 l_api_name VARCHAR2(30) := 'update_cure_request';
95 l_api_version CONSTANT NUMBER := 1.0;
96
97 l_vendor_id number := p_vendor_id;
98 l_cure_report_id number := p_cure_report_id;
99
100 BEGIN
101
102 x_return_status := OKC_API.START_ACTIVITY(
103 p_api_name => l_api_name,
104 p_pkg_name => g_pkg_name,
105 p_init_msg_list => p_init_msg_list,
106 l_api_version => l_api_version,
107 p_api_version => p_api_version,
108 p_api_type => g_api_type,
109 x_return_status => x_return_status);
110
111 -- check if activity started successfully
112 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
113 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
114 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
115 raise OKC_API.G_EXCEPTION_ERROR;
116 End If;
117
118 OKL_CURE_REQ_AMT_PVT.update_cure_request(
119 p_api_version => p_api_version,
120 p_init_msg_list => p_init_msg_list,
121 x_return_status => x_return_status,
122 x_msg_count => x_msg_count,
123 x_msg_data => x_msg_data,
124 p_vendor_id => l_vendor_id,
125 p_cure_report_id => l_cure_report_id
126 );
127
128 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
129 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
130 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
131 raise OKC_API.G_EXCEPTION_ERROR;
132 End If;
133
134 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
135
136 EXCEPTION
137 when OKC_API.G_EXCEPTION_ERROR then
138 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
139 p_api_name => l_api_name,
140 p_pkg_name => g_pkg_name,
141 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
142 x_msg_count => x_msg_count,
143 x_msg_data => x_msg_data,
144 p_api_type => g_api_type);
145
146 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
147 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
148 p_api_name => l_api_name,
149 p_pkg_name => g_pkg_name,
150 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
151 x_msg_count => x_msg_count,
152 x_msg_data => x_msg_data,
153 p_api_type => g_api_type);
154
155 when OTHERS then
156 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
157 p_api_name => l_api_name,
158 p_pkg_name => g_pkg_name,
159 p_exc_name => 'OTHERS',
160 x_msg_count => x_msg_count,
161 x_msg_data => x_msg_data,
162 p_api_type => g_api_type);
163
164 END;
165
166
167 END OKL_CURE_REQ_AMT_PUB;