[Home] [Help]
PACKAGE BODY: APPS.OKS_CON_COVERAGE_PUB
Source
1 PACKAGE BODY OKS_CON_COVERAGE_PUB AS
2 /* $Header: OKSPACCB.pls 120.0 2005/05/25 18:25:54 appldev noship $ */
3
4 PROCEDURE apply_contract_coverage
5 (p_api_version IN Number
6 ,p_init_msg_list IN Varchar2
7 ,p_est_amt_tbl IN ser_tbl_type
8 ,x_return_status OUT NOCOPY Varchar2
9 ,x_msg_count OUT NOCOPY Number
10 ,x_msg_data OUT NOCOPY Varchar2
11 ,x_est_discounted_amt_tbl OUT NOCOPY cov_tbl_type)
12 IS
13 l_return_status Varchar2(1);
14 l_api_name CONSTANT VARCHAR2(30) := 'apply_contract_coverage';
15 BEGIN
16 l_return_status := OKC_API.G_RET_STS_SUCCESS;
17
18 l_return_status := OKC_API.START_ACTIVITY(l_api_name
19 ,p_init_msg_list
20 ,'_PUB'
21 ,x_return_status
22 );
23 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
24 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
25 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
26 RAISE OKC_API.G_EXCEPTION_ERROR;
27 END IF;
28
29 OKS_CON_COVERAGE_PVT.apply_contract_coverage
30 (p_api_version
31 ,p_init_msg_list
32 ,p_est_amt_tbl
33 ,x_return_status
34 ,x_msg_count
35 ,x_msg_data
36 ,x_est_discounted_amt_tbl);
37
38 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
39 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
40 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
41 RAISE OKC_API.G_EXCEPTION_ERROR;
42 END IF;
43
44 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
45
46 EXCEPTION
47 WHEN OKC_API.G_EXCEPTION_ERROR THEN
48 x_return_status := OKC_API.HANDLE_EXCEPTIONS
49 (l_api_name,
50 G_PKG_NAME,
51 'OKC_API.G_RET_STS_ERROR',
52 x_msg_count,
53 x_msg_data,
54 '_PUB');
55 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
56 x_return_status := OKC_API.HANDLE_EXCEPTIONS
57 (l_api_name,
58 G_PKG_NAME,
59 'OKC_API.G_RET_STS_UNEXP_ERROR',
60 x_msg_count,
61 x_msg_data,
62 '_PUB');
63 WHEN OTHERS THEN
64 x_return_status := OKC_API.HANDLE_EXCEPTIONS
65 (l_api_name,
66 G_PKG_NAME,
67 'OTHERS',
68 x_msg_count,
69 x_msg_data,
70 '_PUB');
71
72 END apply_contract_coverage;
73
74 PROCEDURE get_bp_pricelist
75 (p_api_version IN Number
76 ,p_init_msg_list IN Varchar2
77 ,p_Contract_line_id IN NUMBER
78 ,p_business_process_id IN NUMBER
79 ,p_request_date IN DATE
80 ,x_return_status OUT NOCOPY Varchar2
81 ,x_msg_count OUT NOCOPY Number
82 ,x_msg_data OUT NOCOPY Varchar2
83 ,x_pricing_tbl OUT NOCOPY PRICING_TBL_TYPE )
84 IS
85 l_return_status Varchar2(1);
86 l_api_name CONSTANT VARCHAR2(30) := 'get_bp_pricelist';
87
88 BEGIN
89 l_return_status := OKC_API.G_RET_STS_SUCCESS;
90
91 l_return_status := OKC_API.START_ACTIVITY(l_api_name
92 ,p_init_msg_list
93 ,'_PUB'
94 ,x_return_status
95 );
96 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
97 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
98 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
99 RAISE OKC_API.G_EXCEPTION_ERROR;
100 END IF;
101
102 OKS_CON_COVERAGE_PVT.get_bp_pricelist
103 (p_api_version
104 ,p_init_msg_list
105 ,p_Contract_line_id
106 ,p_business_process_id
107 ,p_request_date
108 ,x_return_status
109 ,x_msg_count
110 ,x_msg_data
111 ,x_pricing_tbl);
112
113 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
114 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
115 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
116 RAISE OKC_API.G_EXCEPTION_ERROR;
117 END IF;
118
119 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
120
121 EXCEPTION
122 WHEN OKC_API.G_EXCEPTION_ERROR THEN
123 x_return_status := OKC_API.HANDLE_EXCEPTIONS
124 (l_api_name,
125 G_PKG_NAME,
126 'OKC_API.G_RET_STS_ERROR',
127 x_msg_count,
128 x_msg_data,
129 '_PUB');
130 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
131 x_return_status := OKC_API.HANDLE_EXCEPTIONS
132 (l_api_name,
133 G_PKG_NAME,
134 'OKC_API.G_RET_STS_UNEXP_ERROR',
135 x_msg_count,
136 x_msg_data,
137 '_PUB');
138 WHEN OTHERS THEN
139 x_return_status := OKC_API.HANDLE_EXCEPTIONS
140 (l_api_name,
141 G_PKG_NAME,
142 'OTHERS',
143 x_msg_count,
144 x_msg_data,
145 '_PUB');
146
147 END get_bp_pricelist;
148
149 PROCEDURE get_bill_rates
150 (p_api_version IN Number
151 ,p_init_msg_list IN Varchar2
152 ,P_input_br_rec IN INPUT_BR_REC
153 ,P_labor_sch_tbl IN LABOR_SCH_TBL_TYPE
154 ,x_return_status OUT NOCOPY Varchar2
155 ,x_msg_count OUT NOCOPY Number
156 ,x_msg_data OUT NOCOPY Varchar2
157 ,X_bill_rate_tbl OUT NOCOPY BILL_RATE_TBL_TYPE )
158 IS
159 l_return_status Varchar2(1);
160 l_api_name CONSTANT VARCHAR2(30) := 'get_bill_rates';
161
162 BEGIN
163 l_return_status := OKC_API.G_RET_STS_SUCCESS;
164
165 l_return_status := OKC_API.START_ACTIVITY(l_api_name
166 ,p_init_msg_list
167 ,'_PUB'
168 ,x_return_status
169 );
170 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
171 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
172 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
173 RAISE OKC_API.G_EXCEPTION_ERROR;
174 END IF;
175
176 OKS_CON_COVERAGE_PVT.get_bill_rates
177 (p_api_version
178 ,p_init_msg_list
179 ,P_input_br_rec
180 ,P_labor_sch_tbl
181 ,x_return_status
182 ,x_msg_count
183 ,x_msg_data
184 ,X_bill_rate_tbl);
185
186 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
187 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
188 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
189 RAISE OKC_API.G_EXCEPTION_ERROR;
190 END IF;
191
192 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
193
194 EXCEPTION
195 WHEN OKC_API.G_EXCEPTION_ERROR THEN
196 x_return_status := OKC_API.HANDLE_EXCEPTIONS
197 (l_api_name,
198 G_PKG_NAME,
199 'OKC_API.G_RET_STS_ERROR',
200 x_msg_count,
201 x_msg_data,
202 '_PUB');
203 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
204 x_return_status := OKC_API.HANDLE_EXCEPTIONS
205 (l_api_name,
206 G_PKG_NAME,
207 'OKC_API.G_RET_STS_UNEXP_ERROR',
208 x_msg_count,
209 x_msg_data,
210 '_PUB');
211 WHEN OTHERS THEN
212 x_return_status := OKC_API.HANDLE_EXCEPTIONS
213 (l_api_name,
214 G_PKG_NAME,
215 'OTHERS',
216 x_msg_count,
217 x_msg_data,
218 '_PUB');
219 END get_bill_rates;
220
221 END OKS_CON_COVERAGE_PUB;