12: x_subv_rec OUT NOCOPY subv_rec_type) IS
13:
14: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SUBSIDY';
15: l_api_version CONSTANT NUMBER := 1.0;
16: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17:
18: l_subv_rec subv_rec_type;
19: Begin
20: -- call START_ACTIVITY to create savepoint, check compatibility
19: Begin
20: -- call START_ACTIVITY to create savepoint, check compatibility
21: -- and initialize message list
22:
23: l_return_status := OKL_API.START_ACTIVITY(
24: p_api_name => l_api_name,
25: p_pkg_name => g_pkg_name,
26: p_init_msg_list => p_init_msg_list,
27: l_api_version => l_api_version,
29: p_api_type => g_api_type,
30: x_return_status => x_return_status);
31:
32: -- check if activity started successfully
33: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
34: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
35: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
36: raise OKL_API.G_EXCEPTION_ERROR;
37: End If;
30: x_return_status => x_return_status);
31:
32: -- check if activity started successfully
33: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
34: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
35: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
36: raise OKL_API.G_EXCEPTION_ERROR;
37: End If;
38:
31:
32: -- check if activity started successfully
33: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
34: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
35: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
36: raise OKL_API.G_EXCEPTION_ERROR;
37: End If;
38:
39: l_subv_rec := p_subv_rec;
32: -- check if activity started successfully
33: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
34: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
35: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
36: raise OKL_API.G_EXCEPTION_ERROR;
37: End If;
38:
39: l_subv_rec := p_subv_rec;
40:
47: p_subv_rec => l_subv_rec,
48: x_subv_rec => x_subv_rec);
49:
50: -- check return status
51: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
52: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
54: raise OKL_API.G_EXCEPTION_ERROR;
55: End If;
48: x_subv_rec => x_subv_rec);
49:
50: -- check return status
51: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
52: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
54: raise OKL_API.G_EXCEPTION_ERROR;
55: End If;
56:
49:
50: -- check return status
51: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
52: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
54: raise OKL_API.G_EXCEPTION_ERROR;
55: End If;
56:
57: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
50: -- check return status
51: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
52: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
54: raise OKL_API.G_EXCEPTION_ERROR;
55: End If;
56:
57: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
58: x_msg_data => x_msg_data);
53: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
54: raise OKL_API.G_EXCEPTION_ERROR;
55: End If;
56:
57: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
58: x_msg_data => x_msg_data);
59: EXCEPTION
60: when OKL_API.G_EXCEPTION_ERROR then
61: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
56:
57: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
58: x_msg_data => x_msg_data);
59: EXCEPTION
60: when OKL_API.G_EXCEPTION_ERROR then
61: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
62: p_api_name => l_api_name,
63: p_pkg_name => g_pkg_name,
64: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
57: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
58: x_msg_data => x_msg_data);
59: EXCEPTION
60: when OKL_API.G_EXCEPTION_ERROR then
61: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
62: p_api_name => l_api_name,
63: p_pkg_name => g_pkg_name,
64: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
65: x_msg_count => x_msg_count,
60: when OKL_API.G_EXCEPTION_ERROR then
61: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
62: p_api_name => l_api_name,
63: p_pkg_name => g_pkg_name,
64: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
65: x_msg_count => x_msg_count,
66: x_msg_data => x_msg_data,
67: p_api_type => g_api_type);
68:
65: x_msg_count => x_msg_count,
66: x_msg_data => x_msg_data,
67: p_api_type => g_api_type);
68:
69: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
70: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
71: p_api_name => l_api_name,
72: p_pkg_name => g_pkg_name,
73: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
66: x_msg_data => x_msg_data,
67: p_api_type => g_api_type);
68:
69: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
70: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
71: p_api_name => l_api_name,
72: p_pkg_name => g_pkg_name,
73: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
74: x_msg_count => x_msg_count,
69: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
70: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
71: p_api_name => l_api_name,
72: p_pkg_name => g_pkg_name,
73: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
74: x_msg_count => x_msg_count,
75: x_msg_data => x_msg_data,
76: p_api_type => g_api_type);
77:
75: x_msg_data => x_msg_data,
76: p_api_type => g_api_type);
77:
78: when OTHERS then
79: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
80: p_api_name => l_api_name,
81: p_pkg_name => g_pkg_name,
82: p_exc_name => 'OTHERS',
83: x_msg_count => x_msg_count,
97: x_subv_tbl OUT NOCOPY subv_tbl_type) IS
98:
99: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SUBSIDY';
100: l_api_version CONSTANT NUMBER := 1.0;
101: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
102:
103: l_subv_tbl subv_tbl_type;
104: Begin
105: -- call START_ACTIVITY to create savepoint, check compatibility
104: Begin
105: -- call START_ACTIVITY to create savepoint, check compatibility
106: -- and initialize message list
107:
108: l_return_status := OKL_API.START_ACTIVITY(
109: p_api_name => l_api_name,
110: p_pkg_name => g_pkg_name,
111: p_init_msg_list => p_init_msg_list,
112: l_api_version => l_api_version,
114: p_api_type => g_api_type,
115: x_return_status => x_return_status);
116:
117: -- check if activity started successfully
118: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
119: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
121: raise OKL_API.G_EXCEPTION_ERROR;
122: End If;
115: x_return_status => x_return_status);
116:
117: -- check if activity started successfully
118: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
119: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
121: raise OKL_API.G_EXCEPTION_ERROR;
122: End If;
123:
116:
117: -- check if activity started successfully
118: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
119: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
121: raise OKL_API.G_EXCEPTION_ERROR;
122: End If;
123:
124: l_subv_tbl := p_subv_tbl;
117: -- check if activity started successfully
118: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
119: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
121: raise OKL_API.G_EXCEPTION_ERROR;
122: End If;
123:
124: l_subv_tbl := p_subv_tbl;
125:
132: p_subv_tbl => l_subv_tbl,
133: x_subv_tbl => x_subv_tbl);
134:
135: -- check return status
136: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
137: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
138: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
139: raise OKL_API.G_EXCEPTION_ERROR;
140: End If;
133: x_subv_tbl => x_subv_tbl);
134:
135: -- check return status
136: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
137: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
138: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
139: raise OKL_API.G_EXCEPTION_ERROR;
140: End If;
141:
134:
135: -- check return status
136: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
137: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
138: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
139: raise OKL_API.G_EXCEPTION_ERROR;
140: End If;
141:
142: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
135: -- check return status
136: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
137: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
138: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
139: raise OKL_API.G_EXCEPTION_ERROR;
140: End If;
141:
142: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
143: x_msg_data => x_msg_data);
138: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
139: raise OKL_API.G_EXCEPTION_ERROR;
140: End If;
141:
142: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
143: x_msg_data => x_msg_data);
144: EXCEPTION
145: when OKL_API.G_EXCEPTION_ERROR then
146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
141:
142: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
143: x_msg_data => x_msg_data);
144: EXCEPTION
145: when OKL_API.G_EXCEPTION_ERROR then
146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
147: p_api_name => l_api_name,
148: p_pkg_name => g_pkg_name,
149: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
142: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
143: x_msg_data => x_msg_data);
144: EXCEPTION
145: when OKL_API.G_EXCEPTION_ERROR then
146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
147: p_api_name => l_api_name,
148: p_pkg_name => g_pkg_name,
149: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
150: x_msg_count => x_msg_count,
145: when OKL_API.G_EXCEPTION_ERROR then
146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
147: p_api_name => l_api_name,
148: p_pkg_name => g_pkg_name,
149: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
150: x_msg_count => x_msg_count,
151: x_msg_data => x_msg_data,
152: p_api_type => g_api_type);
153:
150: x_msg_count => x_msg_count,
151: x_msg_data => x_msg_data,
152: p_api_type => g_api_type);
153:
154: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
155: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
156: p_api_name => l_api_name,
157: p_pkg_name => g_pkg_name,
158: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
151: x_msg_data => x_msg_data,
152: p_api_type => g_api_type);
153:
154: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
155: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
156: p_api_name => l_api_name,
157: p_pkg_name => g_pkg_name,
158: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
159: x_msg_count => x_msg_count,
154: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
155: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
156: p_api_name => l_api_name,
157: p_pkg_name => g_pkg_name,
158: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
159: x_msg_count => x_msg_count,
160: x_msg_data => x_msg_data,
161: p_api_type => g_api_type);
162:
160: x_msg_data => x_msg_data,
161: p_api_type => g_api_type);
162:
163: when OTHERS then
164: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
165: p_api_name => l_api_name,
166: p_pkg_name => g_pkg_name,
167: p_exc_name => 'OTHERS',
168: x_msg_count => x_msg_count,
181: x_subv_rec OUT NOCOPY subv_rec_type) IS
182:
183: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_SUBSIDY';
184: l_api_version CONSTANT NUMBER := 1.0;
185: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
186:
187: l_subv_rec subv_rec_type;
188: Begin
189: -- call START_ACTIVITY to create savepoint, check compatibility
188: Begin
189: -- call START_ACTIVITY to create savepoint, check compatibility
190: -- and initialize message list
191:
192: l_return_status := OKL_API.START_ACTIVITY(
193: p_api_name => l_api_name,
194: p_pkg_name => g_pkg_name,
195: p_init_msg_list => p_init_msg_list,
196: l_api_version => l_api_version,
198: p_api_type => g_api_type,
199: x_return_status => x_return_status);
200:
201: -- check if activity started successfully
202: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
203: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
204: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
205: raise OKL_API.G_EXCEPTION_ERROR;
206: End If;
199: x_return_status => x_return_status);
200:
201: -- check if activity started successfully
202: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
203: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
204: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
205: raise OKL_API.G_EXCEPTION_ERROR;
206: End If;
207:
200:
201: -- check if activity started successfully
202: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
203: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
204: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
205: raise OKL_API.G_EXCEPTION_ERROR;
206: End If;
207:
208: l_subv_rec := p_subv_rec;
201: -- check if activity started successfully
202: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
203: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
204: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
205: raise OKL_API.G_EXCEPTION_ERROR;
206: End If;
207:
208: l_subv_rec := p_subv_rec;
209:
216: p_subv_rec => l_subv_rec,
217: x_subv_rec => x_subv_rec);
218:
219: -- check return status
220: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
221: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
222: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
223: raise OKL_API.G_EXCEPTION_ERROR;
224: End If;
217: x_subv_rec => x_subv_rec);
218:
219: -- check return status
220: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
221: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
222: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
223: raise OKL_API.G_EXCEPTION_ERROR;
224: End If;
225:
218:
219: -- check return status
220: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
221: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
222: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
223: raise OKL_API.G_EXCEPTION_ERROR;
224: End If;
225:
226: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
219: -- check return status
220: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
221: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
222: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
223: raise OKL_API.G_EXCEPTION_ERROR;
224: End If;
225:
226: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
227: x_msg_data => x_msg_data);
222: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
223: raise OKL_API.G_EXCEPTION_ERROR;
224: End If;
225:
226: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
227: x_msg_data => x_msg_data);
228: EXCEPTION
229: when OKL_API.G_EXCEPTION_ERROR then
230: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
225:
226: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
227: x_msg_data => x_msg_data);
228: EXCEPTION
229: when OKL_API.G_EXCEPTION_ERROR then
230: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
231: p_api_name => l_api_name,
232: p_pkg_name => g_pkg_name,
233: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
226: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
227: x_msg_data => x_msg_data);
228: EXCEPTION
229: when OKL_API.G_EXCEPTION_ERROR then
230: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
231: p_api_name => l_api_name,
232: p_pkg_name => g_pkg_name,
233: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
234: x_msg_count => x_msg_count,
229: when OKL_API.G_EXCEPTION_ERROR then
230: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
231: p_api_name => l_api_name,
232: p_pkg_name => g_pkg_name,
233: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
234: x_msg_count => x_msg_count,
235: x_msg_data => x_msg_data,
236: p_api_type => g_api_type);
237:
234: x_msg_count => x_msg_count,
235: x_msg_data => x_msg_data,
236: p_api_type => g_api_type);
237:
238: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
239: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
240: p_api_name => l_api_name,
241: p_pkg_name => g_pkg_name,
242: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
235: x_msg_data => x_msg_data,
236: p_api_type => g_api_type);
237:
238: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
239: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
240: p_api_name => l_api_name,
241: p_pkg_name => g_pkg_name,
242: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
243: x_msg_count => x_msg_count,
238: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
239: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
240: p_api_name => l_api_name,
241: p_pkg_name => g_pkg_name,
242: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
243: x_msg_count => x_msg_count,
244: x_msg_data => x_msg_data,
245: p_api_type => g_api_type);
246:
244: x_msg_data => x_msg_data,
245: p_api_type => g_api_type);
246:
247: when OTHERS then
248: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
249: p_api_name => l_api_name,
250: p_pkg_name => g_pkg_name,
251: p_exc_name => 'OTHERS',
252: x_msg_count => x_msg_count,
264: x_subv_tbl OUT NOCOPY subv_tbl_type) IS
265:
266: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_SUBSIDY';
267: l_api_version CONSTANT NUMBER := 1.0;
268: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
269:
270: l_subv_tbl subv_tbl_type;
271: Begin
272: -- call START_ACTIVITY to create savepoint, check compatibility
271: Begin
272: -- call START_ACTIVITY to create savepoint, check compatibility
273: -- and initialize message list
274:
275: l_return_status := OKL_API.START_ACTIVITY(
276: p_api_name => l_api_name,
277: p_pkg_name => g_pkg_name,
278: p_init_msg_list => p_init_msg_list,
279: l_api_version => l_api_version,
281: p_api_type => g_api_type,
282: x_return_status => x_return_status);
283:
284: -- check if activity started successfully
285: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
287: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
288: raise OKL_API.G_EXCEPTION_ERROR;
289: End If;
282: x_return_status => x_return_status);
283:
284: -- check if activity started successfully
285: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
287: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
288: raise OKL_API.G_EXCEPTION_ERROR;
289: End If;
290:
283:
284: -- check if activity started successfully
285: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
287: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
288: raise OKL_API.G_EXCEPTION_ERROR;
289: End If;
290:
291: l_subv_tbl := p_subv_tbl;
284: -- check if activity started successfully
285: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
287: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
288: raise OKL_API.G_EXCEPTION_ERROR;
289: End If;
290:
291: l_subv_tbl := p_subv_tbl;
292:
299: p_subv_tbl => l_subv_tbl,
300: x_subv_tbl => x_subv_tbl);
301:
302: -- check return status
303: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
304: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
305: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
306: raise OKL_API.G_EXCEPTION_ERROR;
307: End If;
300: x_subv_tbl => x_subv_tbl);
301:
302: -- check return status
303: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
304: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
305: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
306: raise OKL_API.G_EXCEPTION_ERROR;
307: End If;
308:
301:
302: -- check return status
303: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
304: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
305: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
306: raise OKL_API.G_EXCEPTION_ERROR;
307: End If;
308:
309: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
302: -- check return status
303: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
304: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
305: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
306: raise OKL_API.G_EXCEPTION_ERROR;
307: End If;
308:
309: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
310: x_msg_data => x_msg_data);
305: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
306: raise OKL_API.G_EXCEPTION_ERROR;
307: End If;
308:
309: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
310: x_msg_data => x_msg_data);
311: EXCEPTION
312: when OKL_API.G_EXCEPTION_ERROR then
313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
308:
309: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
310: x_msg_data => x_msg_data);
311: EXCEPTION
312: when OKL_API.G_EXCEPTION_ERROR then
313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
314: p_api_name => l_api_name,
315: p_pkg_name => g_pkg_name,
316: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
309: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
310: x_msg_data => x_msg_data);
311: EXCEPTION
312: when OKL_API.G_EXCEPTION_ERROR then
313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
314: p_api_name => l_api_name,
315: p_pkg_name => g_pkg_name,
316: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
317: x_msg_count => x_msg_count,
312: when OKL_API.G_EXCEPTION_ERROR then
313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
314: p_api_name => l_api_name,
315: p_pkg_name => g_pkg_name,
316: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
317: x_msg_count => x_msg_count,
318: x_msg_data => x_msg_data,
319: p_api_type => g_api_type);
320:
317: x_msg_count => x_msg_count,
318: x_msg_data => x_msg_data,
319: p_api_type => g_api_type);
320:
321: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
322: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
323: p_api_name => l_api_name,
324: p_pkg_name => g_pkg_name,
325: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
318: x_msg_data => x_msg_data,
319: p_api_type => g_api_type);
320:
321: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
322: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
323: p_api_name => l_api_name,
324: p_pkg_name => g_pkg_name,
325: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
326: x_msg_count => x_msg_count,
321: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
322: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
323: p_api_name => l_api_name,
324: p_pkg_name => g_pkg_name,
325: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
326: x_msg_count => x_msg_count,
327: x_msg_data => x_msg_data,
328: p_api_type => g_api_type);
329:
327: x_msg_data => x_msg_data,
328: p_api_type => g_api_type);
329:
330: when OTHERS then
331: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
332: p_api_name => l_api_name,
333: p_pkg_name => g_pkg_name,
334: p_exc_name => 'OTHERS',
335: x_msg_count => x_msg_count,
347: p_subv_rec IN subv_rec_type) IS
348:
349: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_SUBSIDY';
350: l_api_version CONSTANT NUMBER := 1.0;
351: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
352:
353: l_subv_rec subv_rec_type;
354: Begin
355: -- call START_ACTIVITY to create savepoint, check compatibility
354: Begin
355: -- call START_ACTIVITY to create savepoint, check compatibility
356: -- and initialize message list
357:
358: l_return_status := OKL_API.START_ACTIVITY(
359: p_api_name => l_api_name,
360: p_pkg_name => g_pkg_name,
361: p_init_msg_list => p_init_msg_list,
362: l_api_version => l_api_version,
364: p_api_type => g_api_type,
365: x_return_status => x_return_status);
366:
367: -- check if activity started successfully
368: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
369: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
370: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
371: raise OKL_API.G_EXCEPTION_ERROR;
372: End If;
365: x_return_status => x_return_status);
366:
367: -- check if activity started successfully
368: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
369: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
370: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
371: raise OKL_API.G_EXCEPTION_ERROR;
372: End If;
373:
366:
367: -- check if activity started successfully
368: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
369: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
370: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
371: raise OKL_API.G_EXCEPTION_ERROR;
372: End If;
373:
374: l_subv_rec := p_subv_rec;
367: -- check if activity started successfully
368: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
369: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
370: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
371: raise OKL_API.G_EXCEPTION_ERROR;
372: End If;
373:
374: l_subv_rec := p_subv_rec;
375:
381: x_msg_data => x_msg_data,
382: p_subv_rec => l_subv_rec);
383:
384: -- check return status
385: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
386: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
387: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
388: raise OKL_API.G_EXCEPTION_ERROR;
389: End If;
382: p_subv_rec => l_subv_rec);
383:
384: -- check return status
385: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
386: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
387: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
388: raise OKL_API.G_EXCEPTION_ERROR;
389: End If;
390:
383:
384: -- check return status
385: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
386: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
387: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
388: raise OKL_API.G_EXCEPTION_ERROR;
389: End If;
390:
391: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
384: -- check return status
385: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
386: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
387: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
388: raise OKL_API.G_EXCEPTION_ERROR;
389: End If;
390:
391: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
392: x_msg_data => x_msg_data);
387: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
388: raise OKL_API.G_EXCEPTION_ERROR;
389: End If;
390:
391: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
392: x_msg_data => x_msg_data);
393: EXCEPTION
394: when OKL_API.G_EXCEPTION_ERROR then
395: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
390:
391: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
392: x_msg_data => x_msg_data);
393: EXCEPTION
394: when OKL_API.G_EXCEPTION_ERROR then
395: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
396: p_api_name => l_api_name,
397: p_pkg_name => g_pkg_name,
398: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
391: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
392: x_msg_data => x_msg_data);
393: EXCEPTION
394: when OKL_API.G_EXCEPTION_ERROR then
395: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
396: p_api_name => l_api_name,
397: p_pkg_name => g_pkg_name,
398: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
399: x_msg_count => x_msg_count,
394: when OKL_API.G_EXCEPTION_ERROR then
395: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
396: p_api_name => l_api_name,
397: p_pkg_name => g_pkg_name,
398: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
399: x_msg_count => x_msg_count,
400: x_msg_data => x_msg_data,
401: p_api_type => g_api_type);
402:
399: x_msg_count => x_msg_count,
400: x_msg_data => x_msg_data,
401: p_api_type => g_api_type);
402:
403: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
404: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
405: p_api_name => l_api_name,
406: p_pkg_name => g_pkg_name,
407: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
400: x_msg_data => x_msg_data,
401: p_api_type => g_api_type);
402:
403: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
404: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
405: p_api_name => l_api_name,
406: p_pkg_name => g_pkg_name,
407: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
408: x_msg_count => x_msg_count,
403: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
404: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
405: p_api_name => l_api_name,
406: p_pkg_name => g_pkg_name,
407: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
408: x_msg_count => x_msg_count,
409: x_msg_data => x_msg_data,
410: p_api_type => g_api_type);
411:
409: x_msg_data => x_msg_data,
410: p_api_type => g_api_type);
411:
412: when OTHERS then
413: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
414: p_api_name => l_api_name,
415: p_pkg_name => g_pkg_name,
416: p_exc_name => 'OTHERS',
417: x_msg_count => x_msg_count,
429: p_subv_tbl IN subv_tbl_type) Is
430:
431: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_SUBSIDY';
432: l_api_version CONSTANT NUMBER := 1.0;
433: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
434:
435: l_subv_tbl subv_tbl_type;
436: Begin
437: -- call START_ACTIVITY to create savepoint, check compatibility
436: Begin
437: -- call START_ACTIVITY to create savepoint, check compatibility
438: -- and initialize message list
439:
440: l_return_status := OKL_API.START_ACTIVITY(
441: p_api_name => l_api_name,
442: p_pkg_name => g_pkg_name,
443: p_init_msg_list => p_init_msg_list,
444: l_api_version => l_api_version,
446: p_api_type => g_api_type,
447: x_return_status => x_return_status);
448:
449: -- check if activity started successfully
450: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
451: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
452: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
453: raise OKL_API.G_EXCEPTION_ERROR;
454: End If;
447: x_return_status => x_return_status);
448:
449: -- check if activity started successfully
450: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
451: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
452: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
453: raise OKL_API.G_EXCEPTION_ERROR;
454: End If;
455:
448:
449: -- check if activity started successfully
450: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
451: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
452: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
453: raise OKL_API.G_EXCEPTION_ERROR;
454: End If;
455:
456: l_subv_tbl := p_subv_tbl;
449: -- check if activity started successfully
450: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
451: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
452: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
453: raise OKL_API.G_EXCEPTION_ERROR;
454: End If;
455:
456: l_subv_tbl := p_subv_tbl;
457:
463: x_msg_data => x_msg_data,
464: p_subv_tbl => l_subv_tbl);
465:
466: -- check return status
467: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
468: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
470: raise OKL_API.G_EXCEPTION_ERROR;
471: End If;
464: p_subv_tbl => l_subv_tbl);
465:
466: -- check return status
467: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
468: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
470: raise OKL_API.G_EXCEPTION_ERROR;
471: End If;
472:
465:
466: -- check return status
467: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
468: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
470: raise OKL_API.G_EXCEPTION_ERROR;
471: End If;
472:
473: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
466: -- check return status
467: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
468: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
470: raise OKL_API.G_EXCEPTION_ERROR;
471: End If;
472:
473: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
474: x_msg_data => x_msg_data);
469: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
470: raise OKL_API.G_EXCEPTION_ERROR;
471: End If;
472:
473: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
474: x_msg_data => x_msg_data);
475: EXCEPTION
476: when OKL_API.G_EXCEPTION_ERROR then
477: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
472:
473: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
474: x_msg_data => x_msg_data);
475: EXCEPTION
476: when OKL_API.G_EXCEPTION_ERROR then
477: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
478: p_api_name => l_api_name,
479: p_pkg_name => g_pkg_name,
480: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
473: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
474: x_msg_data => x_msg_data);
475: EXCEPTION
476: when OKL_API.G_EXCEPTION_ERROR then
477: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
478: p_api_name => l_api_name,
479: p_pkg_name => g_pkg_name,
480: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
481: x_msg_count => x_msg_count,
476: when OKL_API.G_EXCEPTION_ERROR then
477: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
478: p_api_name => l_api_name,
479: p_pkg_name => g_pkg_name,
480: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
481: x_msg_count => x_msg_count,
482: x_msg_data => x_msg_data,
483: p_api_type => g_api_type);
484:
481: x_msg_count => x_msg_count,
482: x_msg_data => x_msg_data,
483: p_api_type => g_api_type);
484:
485: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
486: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
487: p_api_name => l_api_name,
488: p_pkg_name => g_pkg_name,
489: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
482: x_msg_data => x_msg_data,
483: p_api_type => g_api_type);
484:
485: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
486: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
487: p_api_name => l_api_name,
488: p_pkg_name => g_pkg_name,
489: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
490: x_msg_count => x_msg_count,
485: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
486: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
487: p_api_name => l_api_name,
488: p_pkg_name => g_pkg_name,
489: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
490: x_msg_count => x_msg_count,
491: x_msg_data => x_msg_data,
492: p_api_type => g_api_type);
493:
491: x_msg_data => x_msg_data,
492: p_api_type => g_api_type);
493:
494: when OTHERS then
495: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
496: p_api_name => l_api_name,
497: p_pkg_name => g_pkg_name,
498: p_exc_name => 'OTHERS',
499: x_msg_count => x_msg_count,
510: p_subv_rec IN subv_rec_type) IS
511:
512: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_SUBSIDY';
513: l_api_version CONSTANT NUMBER := 1.0;
514: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
515:
516: l_subv_rec subv_rec_type;
517: Begin
518: -- call START_ACTIVITY to create savepoint, check compatibility
517: Begin
518: -- call START_ACTIVITY to create savepoint, check compatibility
519: -- and initialize message list
520:
521: l_return_status := OKL_API.START_ACTIVITY(
522: p_api_name => l_api_name,
523: p_pkg_name => g_pkg_name,
524: p_init_msg_list => p_init_msg_list,
525: l_api_version => l_api_version,
527: p_api_type => g_api_type,
528: x_return_status => x_return_status);
529:
530: -- check if activity started successfully
531: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
532: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
533: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
534: raise OKL_API.G_EXCEPTION_ERROR;
535: End If;
528: x_return_status => x_return_status);
529:
530: -- check if activity started successfully
531: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
532: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
533: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
534: raise OKL_API.G_EXCEPTION_ERROR;
535: End If;
536:
529:
530: -- check if activity started successfully
531: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
532: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
533: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
534: raise OKL_API.G_EXCEPTION_ERROR;
535: End If;
536:
537: l_subv_rec := p_subv_rec;
530: -- check if activity started successfully
531: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
532: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
533: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
534: raise OKL_API.G_EXCEPTION_ERROR;
535: End If;
536:
537: l_subv_rec := p_subv_rec;
538:
544: x_msg_data => x_msg_data,
545: p_subv_rec => l_subv_rec);
546:
547: -- check return status
548: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
549: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
550: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
551: raise OKL_API.G_EXCEPTION_ERROR;
552: End If;
545: p_subv_rec => l_subv_rec);
546:
547: -- check return status
548: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
549: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
550: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
551: raise OKL_API.G_EXCEPTION_ERROR;
552: End If;
553:
546:
547: -- check return status
548: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
549: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
550: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
551: raise OKL_API.G_EXCEPTION_ERROR;
552: End If;
553:
554: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
547: -- check return status
548: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
549: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
550: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
551: raise OKL_API.G_EXCEPTION_ERROR;
552: End If;
553:
554: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
555: x_msg_data => x_msg_data);
550: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
551: raise OKL_API.G_EXCEPTION_ERROR;
552: End If;
553:
554: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
555: x_msg_data => x_msg_data);
556: EXCEPTION
557: when OKL_API.G_EXCEPTION_ERROR then
558: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
553:
554: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
555: x_msg_data => x_msg_data);
556: EXCEPTION
557: when OKL_API.G_EXCEPTION_ERROR then
558: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
559: p_api_name => l_api_name,
560: p_pkg_name => g_pkg_name,
561: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
554: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
555: x_msg_data => x_msg_data);
556: EXCEPTION
557: when OKL_API.G_EXCEPTION_ERROR then
558: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
559: p_api_name => l_api_name,
560: p_pkg_name => g_pkg_name,
561: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
562: x_msg_count => x_msg_count,
557: when OKL_API.G_EXCEPTION_ERROR then
558: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
559: p_api_name => l_api_name,
560: p_pkg_name => g_pkg_name,
561: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
562: x_msg_count => x_msg_count,
563: x_msg_data => x_msg_data,
564: p_api_type => g_api_type);
565:
562: x_msg_count => x_msg_count,
563: x_msg_data => x_msg_data,
564: p_api_type => g_api_type);
565:
566: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
567: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
568: p_api_name => l_api_name,
569: p_pkg_name => g_pkg_name,
570: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
563: x_msg_data => x_msg_data,
564: p_api_type => g_api_type);
565:
566: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
567: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
568: p_api_name => l_api_name,
569: p_pkg_name => g_pkg_name,
570: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
571: x_msg_count => x_msg_count,
566: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
567: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
568: p_api_name => l_api_name,
569: p_pkg_name => g_pkg_name,
570: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
571: x_msg_count => x_msg_count,
572: x_msg_data => x_msg_data,
573: p_api_type => g_api_type);
574:
572: x_msg_data => x_msg_data,
573: p_api_type => g_api_type);
574:
575: when OTHERS then
576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
577: p_api_name => l_api_name,
578: p_pkg_name => g_pkg_name,
579: p_exc_name => 'OTHERS',
580: x_msg_count => x_msg_count,
591: p_subv_tbl IN subv_tbl_type) IS
592:
593: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_SUBSIDY';
594: l_api_version CONSTANT NUMBER := 1.0;
595: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
596:
597: l_subv_tbl subv_tbl_type;
598: Begin
599: -- call START_ACTIVITY to create savepoint, check compatibility
598: Begin
599: -- call START_ACTIVITY to create savepoint, check compatibility
600: -- and initialize message list
601:
602: l_return_status := OKL_API.START_ACTIVITY(
603: p_api_name => l_api_name,
604: p_pkg_name => g_pkg_name,
605: p_init_msg_list => p_init_msg_list,
606: l_api_version => l_api_version,
608: p_api_type => g_api_type,
609: x_return_status => x_return_status);
610:
611: -- check if activity started successfully
612: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
613: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
614: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
615: raise OKL_API.G_EXCEPTION_ERROR;
616: End If;
609: x_return_status => x_return_status);
610:
611: -- check if activity started successfully
612: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
613: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
614: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
615: raise OKL_API.G_EXCEPTION_ERROR;
616: End If;
617:
610:
611: -- check if activity started successfully
612: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
613: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
614: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
615: raise OKL_API.G_EXCEPTION_ERROR;
616: End If;
617:
618: l_subv_tbl := p_subv_tbl;
611: -- check if activity started successfully
612: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
613: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
614: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
615: raise OKL_API.G_EXCEPTION_ERROR;
616: End If;
617:
618: l_subv_tbl := p_subv_tbl;
619:
625: x_msg_data => x_msg_data,
626: p_subv_tbl => l_subv_tbl);
627:
628: -- check return status
629: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
630: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
632: raise OKL_API.G_EXCEPTION_ERROR;
633: End If;
626: p_subv_tbl => l_subv_tbl);
627:
628: -- check return status
629: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
630: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
632: raise OKL_API.G_EXCEPTION_ERROR;
633: End If;
634:
627:
628: -- check return status
629: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
630: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
632: raise OKL_API.G_EXCEPTION_ERROR;
633: End If;
634:
635: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
628: -- check return status
629: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
630: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
632: raise OKL_API.G_EXCEPTION_ERROR;
633: End If;
634:
635: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
636: x_msg_data => x_msg_data);
631: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
632: raise OKL_API.G_EXCEPTION_ERROR;
633: End If;
634:
635: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
636: x_msg_data => x_msg_data);
637: EXCEPTION
638: when OKL_API.G_EXCEPTION_ERROR then
639: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
634:
635: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
636: x_msg_data => x_msg_data);
637: EXCEPTION
638: when OKL_API.G_EXCEPTION_ERROR then
639: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
640: p_api_name => l_api_name,
641: p_pkg_name => g_pkg_name,
642: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
635: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
636: x_msg_data => x_msg_data);
637: EXCEPTION
638: when OKL_API.G_EXCEPTION_ERROR then
639: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
640: p_api_name => l_api_name,
641: p_pkg_name => g_pkg_name,
642: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
643: x_msg_count => x_msg_count,
638: when OKL_API.G_EXCEPTION_ERROR then
639: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
640: p_api_name => l_api_name,
641: p_pkg_name => g_pkg_name,
642: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
643: x_msg_count => x_msg_count,
644: x_msg_data => x_msg_data,
645: p_api_type => g_api_type);
646:
643: x_msg_count => x_msg_count,
644: x_msg_data => x_msg_data,
645: p_api_type => g_api_type);
646:
647: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
648: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
649: p_api_name => l_api_name,
650: p_pkg_name => g_pkg_name,
651: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
644: x_msg_data => x_msg_data,
645: p_api_type => g_api_type);
646:
647: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
648: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
649: p_api_name => l_api_name,
650: p_pkg_name => g_pkg_name,
651: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
652: x_msg_count => x_msg_count,
647: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
648: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
649: p_api_name => l_api_name,
650: p_pkg_name => g_pkg_name,
651: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
652: x_msg_count => x_msg_count,
653: x_msg_data => x_msg_data,
654: p_api_type => g_api_type);
655:
653: x_msg_data => x_msg_data,
654: p_api_type => g_api_type);
655:
656: when OTHERS then
657: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
658: p_api_name => l_api_name,
659: p_pkg_name => g_pkg_name,
660: p_exc_name => 'OTHERS',
661: x_msg_count => x_msg_count,
675:
676:
677: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_SUBSIDY';
678: l_api_version CONSTANT NUMBER := 1.0;
679: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
680:
681: l_subv_rec subv_rec_type;
682: Begin
683: -- call START_ACTIVITY to create savepoint, check compatibility
682: Begin
683: -- call START_ACTIVITY to create savepoint, check compatibility
684: -- and initialize message list
685:
686: l_return_status := OKL_API.START_ACTIVITY(
687: p_api_name => l_api_name,
688: p_pkg_name => g_pkg_name,
689: p_init_msg_list => p_init_msg_list,
690: l_api_version => l_api_version,
692: p_api_type => g_api_type,
693: x_return_status => x_return_status);
694:
695: -- check if activity started successfully
696: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
697: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
698: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
699: raise OKL_API.G_EXCEPTION_ERROR;
700: End If;
693: x_return_status => x_return_status);
694:
695: -- check if activity started successfully
696: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
697: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
698: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
699: raise OKL_API.G_EXCEPTION_ERROR;
700: End If;
701:
694:
695: -- check if activity started successfully
696: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
697: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
698: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
699: raise OKL_API.G_EXCEPTION_ERROR;
700: End If;
701:
702: l_subv_rec := p_subv_rec;
695: -- check if activity started successfully
696: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
697: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
698: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
699: raise OKL_API.G_EXCEPTION_ERROR;
700: End If;
701:
702: l_subv_rec := p_subv_rec;
703:
709: x_msg_data => x_msg_data,
710: p_subv_rec => l_subv_rec);
711:
712: -- check return status
713: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
714: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
716: raise OKL_API.G_EXCEPTION_ERROR;
717: End If;
710: p_subv_rec => l_subv_rec);
711:
712: -- check return status
713: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
714: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
716: raise OKL_API.G_EXCEPTION_ERROR;
717: End If;
718:
711:
712: -- check return status
713: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
714: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
716: raise OKL_API.G_EXCEPTION_ERROR;
717: End If;
718:
719: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
712: -- check return status
713: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
714: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
716: raise OKL_API.G_EXCEPTION_ERROR;
717: End If;
718:
719: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
720: x_msg_data => x_msg_data);
715: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
716: raise OKL_API.G_EXCEPTION_ERROR;
717: End If;
718:
719: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
720: x_msg_data => x_msg_data);
721: EXCEPTION
722: when OKL_API.G_EXCEPTION_ERROR then
723: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
718:
719: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
720: x_msg_data => x_msg_data);
721: EXCEPTION
722: when OKL_API.G_EXCEPTION_ERROR then
723: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
724: p_api_name => l_api_name,
725: p_pkg_name => g_pkg_name,
726: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
719: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
720: x_msg_data => x_msg_data);
721: EXCEPTION
722: when OKL_API.G_EXCEPTION_ERROR then
723: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
724: p_api_name => l_api_name,
725: p_pkg_name => g_pkg_name,
726: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
727: x_msg_count => x_msg_count,
722: when OKL_API.G_EXCEPTION_ERROR then
723: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
724: p_api_name => l_api_name,
725: p_pkg_name => g_pkg_name,
726: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
727: x_msg_count => x_msg_count,
728: x_msg_data => x_msg_data,
729: p_api_type => g_api_type);
730:
727: x_msg_count => x_msg_count,
728: x_msg_data => x_msg_data,
729: p_api_type => g_api_type);
730:
731: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
732: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
733: p_api_name => l_api_name,
734: p_pkg_name => g_pkg_name,
735: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
728: x_msg_data => x_msg_data,
729: p_api_type => g_api_type);
730:
731: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
732: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
733: p_api_name => l_api_name,
734: p_pkg_name => g_pkg_name,
735: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
736: x_msg_count => x_msg_count,
731: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
732: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
733: p_api_name => l_api_name,
734: p_pkg_name => g_pkg_name,
735: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
736: x_msg_count => x_msg_count,
737: x_msg_data => x_msg_data,
738: p_api_type => g_api_type);
739:
737: x_msg_data => x_msg_data,
738: p_api_type => g_api_type);
739:
740: when OTHERS then
741: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
742: p_api_name => l_api_name,
743: p_pkg_name => g_pkg_name,
744: p_exc_name => 'OTHERS',
745: x_msg_count => x_msg_count,
756: p_subv_tbl IN subv_tbl_type) IS
757:
758: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_SUBSIDY';
759: l_api_version CONSTANT NUMBER := 1.0;
760: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
761:
762: l_subv_tbl subv_tbl_type;
763: Begin
764: -- call START_ACTIVITY to create savepoint, check compatibility
763: Begin
764: -- call START_ACTIVITY to create savepoint, check compatibility
765: -- and initialize message list
766:
767: l_return_status := OKL_API.START_ACTIVITY(
768: p_api_name => l_api_name,
769: p_pkg_name => g_pkg_name,
770: p_init_msg_list => p_init_msg_list,
771: l_api_version => l_api_version,
773: p_api_type => g_api_type,
774: x_return_status => x_return_status);
775:
776: -- check if activity started successfully
777: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
778: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
780: raise OKL_API.G_EXCEPTION_ERROR;
781: End If;
774: x_return_status => x_return_status);
775:
776: -- check if activity started successfully
777: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
778: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
780: raise OKL_API.G_EXCEPTION_ERROR;
781: End If;
782:
775:
776: -- check if activity started successfully
777: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
778: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
780: raise OKL_API.G_EXCEPTION_ERROR;
781: End If;
782:
783: l_subv_tbl := p_subv_tbl;
776: -- check if activity started successfully
777: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
778: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
780: raise OKL_API.G_EXCEPTION_ERROR;
781: End If;
782:
783: l_subv_tbl := p_subv_tbl;
784:
790: x_msg_data => x_msg_data,
791: p_subv_tbl => l_subv_tbl);
792:
793: -- check return status
794: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
795: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
796: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
797: raise OKL_API.G_EXCEPTION_ERROR;
798: End If;
791: p_subv_tbl => l_subv_tbl);
792:
793: -- check return status
794: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
795: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
796: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
797: raise OKL_API.G_EXCEPTION_ERROR;
798: End If;
799:
792:
793: -- check return status
794: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
795: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
796: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
797: raise OKL_API.G_EXCEPTION_ERROR;
798: End If;
799:
800: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
793: -- check return status
794: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
795: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
796: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
797: raise OKL_API.G_EXCEPTION_ERROR;
798: End If;
799:
800: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
801: x_msg_data => x_msg_data);
796: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
797: raise OKL_API.G_EXCEPTION_ERROR;
798: End If;
799:
800: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
801: x_msg_data => x_msg_data);
802: EXCEPTION
803: when OKL_API.G_EXCEPTION_ERROR then
804: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
799:
800: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
801: x_msg_data => x_msg_data);
802: EXCEPTION
803: when OKL_API.G_EXCEPTION_ERROR then
804: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
805: p_api_name => l_api_name,
806: p_pkg_name => g_pkg_name,
807: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
800: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
801: x_msg_data => x_msg_data);
802: EXCEPTION
803: when OKL_API.G_EXCEPTION_ERROR then
804: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
805: p_api_name => l_api_name,
806: p_pkg_name => g_pkg_name,
807: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
808: x_msg_count => x_msg_count,
803: when OKL_API.G_EXCEPTION_ERROR then
804: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
805: p_api_name => l_api_name,
806: p_pkg_name => g_pkg_name,
807: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
808: x_msg_count => x_msg_count,
809: x_msg_data => x_msg_data,
810: p_api_type => g_api_type);
811:
808: x_msg_count => x_msg_count,
809: x_msg_data => x_msg_data,
810: p_api_type => g_api_type);
811:
812: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
814: p_api_name => l_api_name,
815: p_pkg_name => g_pkg_name,
816: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
809: x_msg_data => x_msg_data,
810: p_api_type => g_api_type);
811:
812: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
814: p_api_name => l_api_name,
815: p_pkg_name => g_pkg_name,
816: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
817: x_msg_count => x_msg_count,
812: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
814: p_api_name => l_api_name,
815: p_pkg_name => g_pkg_name,
816: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
817: x_msg_count => x_msg_count,
818: x_msg_data => x_msg_data,
819: p_api_type => g_api_type);
820:
818: x_msg_data => x_msg_data,
819: p_api_type => g_api_type);
820:
821: when OTHERS then
822: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
823: p_api_name => l_api_name,
824: p_pkg_name => g_pkg_name,
825: p_exc_name => 'OTHERS',
826: x_msg_count => x_msg_count,
839: x_sucv_rec OUT NOCOPY sucv_rec_type) IS
840:
841: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SUBSIDY_CRITERIA';
842: l_api_version CONSTANT NUMBER := 1.0;
843: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
844:
845: l_sucv_rec sucv_rec_type;
846: Begin
847: -- call START_ACTIVITY to create savepoint, check compatibility
846: Begin
847: -- call START_ACTIVITY to create savepoint, check compatibility
848: -- and initialize message list
849:
850: l_return_status := OKL_API.START_ACTIVITY(
851: p_api_name => l_api_name,
852: p_pkg_name => g_pkg_name,
853: p_init_msg_list => p_init_msg_list,
854: l_api_version => l_api_version,
856: p_api_type => g_api_type,
857: x_return_status => x_return_status);
858:
859: -- check if activity started successfully
860: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
861: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
862: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
863: raise OKL_API.G_EXCEPTION_ERROR;
864: End If;
857: x_return_status => x_return_status);
858:
859: -- check if activity started successfully
860: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
861: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
862: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
863: raise OKL_API.G_EXCEPTION_ERROR;
864: End If;
865:
858:
859: -- check if activity started successfully
860: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
861: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
862: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
863: raise OKL_API.G_EXCEPTION_ERROR;
864: End If;
865:
866: l_sucv_rec := p_sucv_rec;
859: -- check if activity started successfully
860: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
861: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
862: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
863: raise OKL_API.G_EXCEPTION_ERROR;
864: End If;
865:
866: l_sucv_rec := p_sucv_rec;
867:
874: p_sucv_rec => l_sucv_rec,
875: x_sucv_rec => x_sucv_rec);
876:
877: -- check return status
878: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
879: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
881: raise OKL_API.G_EXCEPTION_ERROR;
882: End If;
875: x_sucv_rec => x_sucv_rec);
876:
877: -- check return status
878: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
879: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
881: raise OKL_API.G_EXCEPTION_ERROR;
882: End If;
883:
876:
877: -- check return status
878: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
879: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
881: raise OKL_API.G_EXCEPTION_ERROR;
882: End If;
883:
884: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
877: -- check return status
878: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
879: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
881: raise OKL_API.G_EXCEPTION_ERROR;
882: End If;
883:
884: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
885: x_msg_data => x_msg_data);
880: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
881: raise OKL_API.G_EXCEPTION_ERROR;
882: End If;
883:
884: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
885: x_msg_data => x_msg_data);
886: EXCEPTION
887: when OKL_API.G_EXCEPTION_ERROR then
888: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
883:
884: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
885: x_msg_data => x_msg_data);
886: EXCEPTION
887: when OKL_API.G_EXCEPTION_ERROR then
888: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
889: p_api_name => l_api_name,
890: p_pkg_name => g_pkg_name,
891: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
884: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
885: x_msg_data => x_msg_data);
886: EXCEPTION
887: when OKL_API.G_EXCEPTION_ERROR then
888: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
889: p_api_name => l_api_name,
890: p_pkg_name => g_pkg_name,
891: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
892: x_msg_count => x_msg_count,
887: when OKL_API.G_EXCEPTION_ERROR then
888: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
889: p_api_name => l_api_name,
890: p_pkg_name => g_pkg_name,
891: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
892: x_msg_count => x_msg_count,
893: x_msg_data => x_msg_data,
894: p_api_type => g_api_type);
895:
892: x_msg_count => x_msg_count,
893: x_msg_data => x_msg_data,
894: p_api_type => g_api_type);
895:
896: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
897: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
898: p_api_name => l_api_name,
899: p_pkg_name => g_pkg_name,
900: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
893: x_msg_data => x_msg_data,
894: p_api_type => g_api_type);
895:
896: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
897: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
898: p_api_name => l_api_name,
899: p_pkg_name => g_pkg_name,
900: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
901: x_msg_count => x_msg_count,
896: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
897: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
898: p_api_name => l_api_name,
899: p_pkg_name => g_pkg_name,
900: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
901: x_msg_count => x_msg_count,
902: x_msg_data => x_msg_data,
903: p_api_type => g_api_type);
904:
902: x_msg_data => x_msg_data,
903: p_api_type => g_api_type);
904:
905: when OTHERS then
906: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
907: p_api_name => l_api_name,
908: p_pkg_name => g_pkg_name,
909: p_exc_name => 'OTHERS',
910: x_msg_count => x_msg_count,
924: x_sucv_tbl OUT NOCOPY sucv_tbl_type) IS
925:
926: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SUBSIDY_CRITERIA';
927: l_api_version CONSTANT NUMBER := 1.0;
928: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
929:
930: l_sucv_tbl sucv_tbl_type;
931: Begin
932: -- call START_ACTIVITY to create savepoint, check compatibility
931: Begin
932: -- call START_ACTIVITY to create savepoint, check compatibility
933: -- and initialize message list
934:
935: l_return_status := OKL_API.START_ACTIVITY(
936: p_api_name => l_api_name,
937: p_pkg_name => g_pkg_name,
938: p_init_msg_list => p_init_msg_list,
939: l_api_version => l_api_version,
941: p_api_type => g_api_type,
942: x_return_status => x_return_status);
943:
944: -- check if activity started successfully
945: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
946: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
948: raise OKL_API.G_EXCEPTION_ERROR;
949: End If;
942: x_return_status => x_return_status);
943:
944: -- check if activity started successfully
945: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
946: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
948: raise OKL_API.G_EXCEPTION_ERROR;
949: End If;
950:
943:
944: -- check if activity started successfully
945: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
946: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
948: raise OKL_API.G_EXCEPTION_ERROR;
949: End If;
950:
951: l_sucv_tbl := p_sucv_tbl;
944: -- check if activity started successfully
945: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
946: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
948: raise OKL_API.G_EXCEPTION_ERROR;
949: End If;
950:
951: l_sucv_tbl := p_sucv_tbl;
952:
959: p_sucv_tbl => l_sucv_tbl,
960: x_sucv_tbl => x_sucv_tbl);
961:
962: -- check return status
963: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
964: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
966: raise OKL_API.G_EXCEPTION_ERROR;
967: End If;
960: x_sucv_tbl => x_sucv_tbl);
961:
962: -- check return status
963: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
964: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
966: raise OKL_API.G_EXCEPTION_ERROR;
967: End If;
968:
961:
962: -- check return status
963: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
964: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
966: raise OKL_API.G_EXCEPTION_ERROR;
967: End If;
968:
969: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
962: -- check return status
963: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
964: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
966: raise OKL_API.G_EXCEPTION_ERROR;
967: End If;
968:
969: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
970: x_msg_data => x_msg_data);
965: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
966: raise OKL_API.G_EXCEPTION_ERROR;
967: End If;
968:
969: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
970: x_msg_data => x_msg_data);
971: EXCEPTION
972: when OKL_API.G_EXCEPTION_ERROR then
973: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
968:
969: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
970: x_msg_data => x_msg_data);
971: EXCEPTION
972: when OKL_API.G_EXCEPTION_ERROR then
973: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
974: p_api_name => l_api_name,
975: p_pkg_name => g_pkg_name,
976: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
969: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
970: x_msg_data => x_msg_data);
971: EXCEPTION
972: when OKL_API.G_EXCEPTION_ERROR then
973: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
974: p_api_name => l_api_name,
975: p_pkg_name => g_pkg_name,
976: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
977: x_msg_count => x_msg_count,
972: when OKL_API.G_EXCEPTION_ERROR then
973: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
974: p_api_name => l_api_name,
975: p_pkg_name => g_pkg_name,
976: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
977: x_msg_count => x_msg_count,
978: x_msg_data => x_msg_data,
979: p_api_type => g_api_type);
980:
977: x_msg_count => x_msg_count,
978: x_msg_data => x_msg_data,
979: p_api_type => g_api_type);
980:
981: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
982: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
983: p_api_name => l_api_name,
984: p_pkg_name => g_pkg_name,
985: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
978: x_msg_data => x_msg_data,
979: p_api_type => g_api_type);
980:
981: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
982: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
983: p_api_name => l_api_name,
984: p_pkg_name => g_pkg_name,
985: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
986: x_msg_count => x_msg_count,
981: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
982: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
983: p_api_name => l_api_name,
984: p_pkg_name => g_pkg_name,
985: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
986: x_msg_count => x_msg_count,
987: x_msg_data => x_msg_data,
988: p_api_type => g_api_type);
989:
987: x_msg_data => x_msg_data,
988: p_api_type => g_api_type);
989:
990: when OTHERS then
991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
992: p_api_name => l_api_name,
993: p_pkg_name => g_pkg_name,
994: p_exc_name => 'OTHERS',
995: x_msg_count => x_msg_count,
1008: x_sucv_rec OUT NOCOPY sucv_rec_type) IS
1009:
1010: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_SUBSIDY_CRITERIA';
1011: l_api_version CONSTANT NUMBER := 1.0;
1012: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1013:
1014: l_sucv_rec sucv_rec_type;
1015: Begin
1016: -- call START_ACTIVITY to create savepoint, check compatibility
1015: Begin
1016: -- call START_ACTIVITY to create savepoint, check compatibility
1017: -- and initialize message list
1018:
1019: l_return_status := OKL_API.START_ACTIVITY(
1020: p_api_name => l_api_name,
1021: p_pkg_name => g_pkg_name,
1022: p_init_msg_list => p_init_msg_list,
1023: l_api_version => l_api_version,
1025: p_api_type => g_api_type,
1026: x_return_status => x_return_status);
1027:
1028: -- check if activity started successfully
1029: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1030: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1031: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1032: raise OKL_API.G_EXCEPTION_ERROR;
1033: End If;
1026: x_return_status => x_return_status);
1027:
1028: -- check if activity started successfully
1029: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1030: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1031: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1032: raise OKL_API.G_EXCEPTION_ERROR;
1033: End If;
1034:
1027:
1028: -- check if activity started successfully
1029: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1030: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1031: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1032: raise OKL_API.G_EXCEPTION_ERROR;
1033: End If;
1034:
1035: l_sucv_rec := p_sucv_rec;
1028: -- check if activity started successfully
1029: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1030: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1031: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1032: raise OKL_API.G_EXCEPTION_ERROR;
1033: End If;
1034:
1035: l_sucv_rec := p_sucv_rec;
1036:
1043: p_sucv_rec => l_sucv_rec,
1044: x_sucv_rec => x_sucv_rec);
1045:
1046: -- check return status
1047: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1050: raise OKL_API.G_EXCEPTION_ERROR;
1051: End If;
1044: x_sucv_rec => x_sucv_rec);
1045:
1046: -- check return status
1047: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1050: raise OKL_API.G_EXCEPTION_ERROR;
1051: End If;
1052:
1045:
1046: -- check return status
1047: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1050: raise OKL_API.G_EXCEPTION_ERROR;
1051: End If;
1052:
1053: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1046: -- check return status
1047: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1050: raise OKL_API.G_EXCEPTION_ERROR;
1051: End If;
1052:
1053: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1054: x_msg_data => x_msg_data);
1049: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1050: raise OKL_API.G_EXCEPTION_ERROR;
1051: End If;
1052:
1053: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1054: x_msg_data => x_msg_data);
1055: EXCEPTION
1056: when OKL_API.G_EXCEPTION_ERROR then
1057: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1052:
1053: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1054: x_msg_data => x_msg_data);
1055: EXCEPTION
1056: when OKL_API.G_EXCEPTION_ERROR then
1057: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1058: p_api_name => l_api_name,
1059: p_pkg_name => g_pkg_name,
1060: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1053: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1054: x_msg_data => x_msg_data);
1055: EXCEPTION
1056: when OKL_API.G_EXCEPTION_ERROR then
1057: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1058: p_api_name => l_api_name,
1059: p_pkg_name => g_pkg_name,
1060: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1061: x_msg_count => x_msg_count,
1056: when OKL_API.G_EXCEPTION_ERROR then
1057: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1058: p_api_name => l_api_name,
1059: p_pkg_name => g_pkg_name,
1060: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1061: x_msg_count => x_msg_count,
1062: x_msg_data => x_msg_data,
1063: p_api_type => g_api_type);
1064:
1061: x_msg_count => x_msg_count,
1062: x_msg_data => x_msg_data,
1063: p_api_type => g_api_type);
1064:
1065: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1066: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1067: p_api_name => l_api_name,
1068: p_pkg_name => g_pkg_name,
1069: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1062: x_msg_data => x_msg_data,
1063: p_api_type => g_api_type);
1064:
1065: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1066: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1067: p_api_name => l_api_name,
1068: p_pkg_name => g_pkg_name,
1069: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1070: x_msg_count => x_msg_count,
1065: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1066: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1067: p_api_name => l_api_name,
1068: p_pkg_name => g_pkg_name,
1069: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1070: x_msg_count => x_msg_count,
1071: x_msg_data => x_msg_data,
1072: p_api_type => g_api_type);
1073:
1071: x_msg_data => x_msg_data,
1072: p_api_type => g_api_type);
1073:
1074: when OTHERS then
1075: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1076: p_api_name => l_api_name,
1077: p_pkg_name => g_pkg_name,
1078: p_exc_name => 'OTHERS',
1079: x_msg_count => x_msg_count,
1091: x_sucv_tbl OUT NOCOPY sucv_tbl_type) IS
1092:
1093: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_SUBSIDY_CRITERIA';
1094: l_api_version CONSTANT NUMBER := 1.0;
1095: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1096:
1097: l_sucv_tbl sucv_tbl_type;
1098: Begin
1099: -- call START_ACTIVITY to create savepoint, check compatibility
1098: Begin
1099: -- call START_ACTIVITY to create savepoint, check compatibility
1100: -- and initialize message list
1101:
1102: l_return_status := OKL_API.START_ACTIVITY(
1103: p_api_name => l_api_name,
1104: p_pkg_name => g_pkg_name,
1105: p_init_msg_list => p_init_msg_list,
1106: l_api_version => l_api_version,
1108: p_api_type => g_api_type,
1109: x_return_status => x_return_status);
1110:
1111: -- check if activity started successfully
1112: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1113: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1115: raise OKL_API.G_EXCEPTION_ERROR;
1116: End If;
1109: x_return_status => x_return_status);
1110:
1111: -- check if activity started successfully
1112: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1113: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1115: raise OKL_API.G_EXCEPTION_ERROR;
1116: End If;
1117:
1110:
1111: -- check if activity started successfully
1112: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1113: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1115: raise OKL_API.G_EXCEPTION_ERROR;
1116: End If;
1117:
1118: l_sucv_tbl := p_sucv_tbl;
1111: -- check if activity started successfully
1112: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1113: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1115: raise OKL_API.G_EXCEPTION_ERROR;
1116: End If;
1117:
1118: l_sucv_tbl := p_sucv_tbl;
1119:
1126: p_sucv_tbl => l_sucv_tbl,
1127: x_sucv_tbl => x_sucv_tbl);
1128:
1129: -- check return status
1130: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1131: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1133: raise OKL_API.G_EXCEPTION_ERROR;
1134: End If;
1127: x_sucv_tbl => x_sucv_tbl);
1128:
1129: -- check return status
1130: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1131: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1133: raise OKL_API.G_EXCEPTION_ERROR;
1134: End If;
1135:
1128:
1129: -- check return status
1130: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1131: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1133: raise OKL_API.G_EXCEPTION_ERROR;
1134: End If;
1135:
1136: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1129: -- check return status
1130: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1131: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1133: raise OKL_API.G_EXCEPTION_ERROR;
1134: End If;
1135:
1136: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1137: x_msg_data => x_msg_data);
1132: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1133: raise OKL_API.G_EXCEPTION_ERROR;
1134: End If;
1135:
1136: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1137: x_msg_data => x_msg_data);
1138: EXCEPTION
1139: when OKL_API.G_EXCEPTION_ERROR then
1140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1135:
1136: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1137: x_msg_data => x_msg_data);
1138: EXCEPTION
1139: when OKL_API.G_EXCEPTION_ERROR then
1140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1141: p_api_name => l_api_name,
1142: p_pkg_name => g_pkg_name,
1143: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1136: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1137: x_msg_data => x_msg_data);
1138: EXCEPTION
1139: when OKL_API.G_EXCEPTION_ERROR then
1140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1141: p_api_name => l_api_name,
1142: p_pkg_name => g_pkg_name,
1143: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1144: x_msg_count => x_msg_count,
1139: when OKL_API.G_EXCEPTION_ERROR then
1140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1141: p_api_name => l_api_name,
1142: p_pkg_name => g_pkg_name,
1143: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1144: x_msg_count => x_msg_count,
1145: x_msg_data => x_msg_data,
1146: p_api_type => g_api_type);
1147:
1144: x_msg_count => x_msg_count,
1145: x_msg_data => x_msg_data,
1146: p_api_type => g_api_type);
1147:
1148: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1150: p_api_name => l_api_name,
1151: p_pkg_name => g_pkg_name,
1152: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1145: x_msg_data => x_msg_data,
1146: p_api_type => g_api_type);
1147:
1148: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1150: p_api_name => l_api_name,
1151: p_pkg_name => g_pkg_name,
1152: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1153: x_msg_count => x_msg_count,
1148: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1150: p_api_name => l_api_name,
1151: p_pkg_name => g_pkg_name,
1152: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1153: x_msg_count => x_msg_count,
1154: x_msg_data => x_msg_data,
1155: p_api_type => g_api_type);
1156:
1154: x_msg_data => x_msg_data,
1155: p_api_type => g_api_type);
1156:
1157: when OTHERS then
1158: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1159: p_api_name => l_api_name,
1160: p_pkg_name => g_pkg_name,
1161: p_exc_name => 'OTHERS',
1162: x_msg_count => x_msg_count,
1174: p_sucv_rec IN sucv_rec_type) IS
1175:
1176: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_SUBSIDY_CRITERIA';
1177: l_api_version CONSTANT NUMBER := 1.0;
1178: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1179:
1180: l_sucv_rec sucv_rec_type;
1181: Begin
1182: -- call START_ACTIVITY to create savepoint, check compatibility
1181: Begin
1182: -- call START_ACTIVITY to create savepoint, check compatibility
1183: -- and initialize message list
1184:
1185: l_return_status := OKL_API.START_ACTIVITY(
1186: p_api_name => l_api_name,
1187: p_pkg_name => g_pkg_name,
1188: p_init_msg_list => p_init_msg_list,
1189: l_api_version => l_api_version,
1191: p_api_type => g_api_type,
1192: x_return_status => x_return_status);
1193:
1194: -- check if activity started successfully
1195: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1196: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1198: raise OKL_API.G_EXCEPTION_ERROR;
1199: End If;
1192: x_return_status => x_return_status);
1193:
1194: -- check if activity started successfully
1195: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1196: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1198: raise OKL_API.G_EXCEPTION_ERROR;
1199: End If;
1200:
1193:
1194: -- check if activity started successfully
1195: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1196: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1198: raise OKL_API.G_EXCEPTION_ERROR;
1199: End If;
1200:
1201: l_sucv_rec := p_sucv_rec;
1194: -- check if activity started successfully
1195: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1196: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1198: raise OKL_API.G_EXCEPTION_ERROR;
1199: End If;
1200:
1201: l_sucv_rec := p_sucv_rec;
1202:
1208: x_msg_data => x_msg_data,
1209: p_sucv_rec => l_sucv_rec);
1210:
1211: -- check return status
1212: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1213: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1215: raise OKL_API.G_EXCEPTION_ERROR;
1216: End If;
1209: p_sucv_rec => l_sucv_rec);
1210:
1211: -- check return status
1212: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1213: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1215: raise OKL_API.G_EXCEPTION_ERROR;
1216: End If;
1217:
1210:
1211: -- check return status
1212: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1213: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1215: raise OKL_API.G_EXCEPTION_ERROR;
1216: End If;
1217:
1218: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1211: -- check return status
1212: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1213: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1215: raise OKL_API.G_EXCEPTION_ERROR;
1216: End If;
1217:
1218: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1219: x_msg_data => x_msg_data);
1214: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1215: raise OKL_API.G_EXCEPTION_ERROR;
1216: End If;
1217:
1218: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1219: x_msg_data => x_msg_data);
1220: EXCEPTION
1221: when OKL_API.G_EXCEPTION_ERROR then
1222: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1217:
1218: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1219: x_msg_data => x_msg_data);
1220: EXCEPTION
1221: when OKL_API.G_EXCEPTION_ERROR then
1222: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1223: p_api_name => l_api_name,
1224: p_pkg_name => g_pkg_name,
1225: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1218: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1219: x_msg_data => x_msg_data);
1220: EXCEPTION
1221: when OKL_API.G_EXCEPTION_ERROR then
1222: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1223: p_api_name => l_api_name,
1224: p_pkg_name => g_pkg_name,
1225: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1226: x_msg_count => x_msg_count,
1221: when OKL_API.G_EXCEPTION_ERROR then
1222: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1223: p_api_name => l_api_name,
1224: p_pkg_name => g_pkg_name,
1225: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1226: x_msg_count => x_msg_count,
1227: x_msg_data => x_msg_data,
1228: p_api_type => g_api_type);
1229:
1226: x_msg_count => x_msg_count,
1227: x_msg_data => x_msg_data,
1228: p_api_type => g_api_type);
1229:
1230: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1231: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1232: p_api_name => l_api_name,
1233: p_pkg_name => g_pkg_name,
1234: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1227: x_msg_data => x_msg_data,
1228: p_api_type => g_api_type);
1229:
1230: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1231: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1232: p_api_name => l_api_name,
1233: p_pkg_name => g_pkg_name,
1234: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1235: x_msg_count => x_msg_count,
1230: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1231: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1232: p_api_name => l_api_name,
1233: p_pkg_name => g_pkg_name,
1234: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1235: x_msg_count => x_msg_count,
1236: x_msg_data => x_msg_data,
1237: p_api_type => g_api_type);
1238:
1236: x_msg_data => x_msg_data,
1237: p_api_type => g_api_type);
1238:
1239: when OTHERS then
1240: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1241: p_api_name => l_api_name,
1242: p_pkg_name => g_pkg_name,
1243: p_exc_name => 'OTHERS',
1244: x_msg_count => x_msg_count,
1256: p_sucv_tbl IN sucv_tbl_type) Is
1257:
1258: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_SUBSIDY_CRITERIA';
1259: l_api_version CONSTANT NUMBER := 1.0;
1260: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1261:
1262: l_sucv_tbl sucv_tbl_type;
1263: Begin
1264: -- call START_ACTIVITY to create savepoint, check compatibility
1263: Begin
1264: -- call START_ACTIVITY to create savepoint, check compatibility
1265: -- and initialize message list
1266:
1267: l_return_status := OKL_API.START_ACTIVITY(
1268: p_api_name => l_api_name,
1269: p_pkg_name => g_pkg_name,
1270: p_init_msg_list => p_init_msg_list,
1271: l_api_version => l_api_version,
1273: p_api_type => g_api_type,
1274: x_return_status => x_return_status);
1275:
1276: -- check if activity started successfully
1277: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1278: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1280: raise OKL_API.G_EXCEPTION_ERROR;
1281: End If;
1274: x_return_status => x_return_status);
1275:
1276: -- check if activity started successfully
1277: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1278: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1280: raise OKL_API.G_EXCEPTION_ERROR;
1281: End If;
1282:
1275:
1276: -- check if activity started successfully
1277: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1278: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1280: raise OKL_API.G_EXCEPTION_ERROR;
1281: End If;
1282:
1283: l_sucv_tbl := p_sucv_tbl;
1276: -- check if activity started successfully
1277: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1278: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1280: raise OKL_API.G_EXCEPTION_ERROR;
1281: End If;
1282:
1283: l_sucv_tbl := p_sucv_tbl;
1284:
1290: x_msg_data => x_msg_data,
1291: p_sucv_tbl => l_sucv_tbl);
1292:
1293: -- check return status
1294: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1295: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1296: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1297: raise OKL_API.G_EXCEPTION_ERROR;
1298: End If;
1291: p_sucv_tbl => l_sucv_tbl);
1292:
1293: -- check return status
1294: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1295: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1296: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1297: raise OKL_API.G_EXCEPTION_ERROR;
1298: End If;
1299:
1292:
1293: -- check return status
1294: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1295: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1296: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1297: raise OKL_API.G_EXCEPTION_ERROR;
1298: End If;
1299:
1300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1293: -- check return status
1294: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1295: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1296: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1297: raise OKL_API.G_EXCEPTION_ERROR;
1298: End If;
1299:
1300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1301: x_msg_data => x_msg_data);
1296: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1297: raise OKL_API.G_EXCEPTION_ERROR;
1298: End If;
1299:
1300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1301: x_msg_data => x_msg_data);
1302: EXCEPTION
1303: when OKL_API.G_EXCEPTION_ERROR then
1304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1299:
1300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1301: x_msg_data => x_msg_data);
1302: EXCEPTION
1303: when OKL_API.G_EXCEPTION_ERROR then
1304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1305: p_api_name => l_api_name,
1306: p_pkg_name => g_pkg_name,
1307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1301: x_msg_data => x_msg_data);
1302: EXCEPTION
1303: when OKL_API.G_EXCEPTION_ERROR then
1304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1305: p_api_name => l_api_name,
1306: p_pkg_name => g_pkg_name,
1307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1308: x_msg_count => x_msg_count,
1303: when OKL_API.G_EXCEPTION_ERROR then
1304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1305: p_api_name => l_api_name,
1306: p_pkg_name => g_pkg_name,
1307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1308: x_msg_count => x_msg_count,
1309: x_msg_data => x_msg_data,
1310: p_api_type => g_api_type);
1311:
1308: x_msg_count => x_msg_count,
1309: x_msg_data => x_msg_data,
1310: p_api_type => g_api_type);
1311:
1312: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1314: p_api_name => l_api_name,
1315: p_pkg_name => g_pkg_name,
1316: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1309: x_msg_data => x_msg_data,
1310: p_api_type => g_api_type);
1311:
1312: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1314: p_api_name => l_api_name,
1315: p_pkg_name => g_pkg_name,
1316: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1317: x_msg_count => x_msg_count,
1312: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1314: p_api_name => l_api_name,
1315: p_pkg_name => g_pkg_name,
1316: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1317: x_msg_count => x_msg_count,
1318: x_msg_data => x_msg_data,
1319: p_api_type => g_api_type);
1320:
1318: x_msg_data => x_msg_data,
1319: p_api_type => g_api_type);
1320:
1321: when OTHERS then
1322: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1323: p_api_name => l_api_name,
1324: p_pkg_name => g_pkg_name,
1325: p_exc_name => 'OTHERS',
1326: x_msg_count => x_msg_count,
1337: p_sucv_rec IN sucv_rec_type) IS
1338:
1339: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_SUBSIDY_CRITERIA';
1340: l_api_version CONSTANT NUMBER := 1.0;
1341: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1342:
1343: l_sucv_rec sucv_rec_type;
1344: Begin
1345: -- call START_ACTIVITY to create savepoint, check compatibility
1344: Begin
1345: -- call START_ACTIVITY to create savepoint, check compatibility
1346: -- and initialize message list
1347:
1348: l_return_status := OKL_API.START_ACTIVITY(
1349: p_api_name => l_api_name,
1350: p_pkg_name => g_pkg_name,
1351: p_init_msg_list => p_init_msg_list,
1352: l_api_version => l_api_version,
1354: p_api_type => g_api_type,
1355: x_return_status => x_return_status);
1356:
1357: -- check if activity started successfully
1358: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1359: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1361: raise OKL_API.G_EXCEPTION_ERROR;
1362: End If;
1355: x_return_status => x_return_status);
1356:
1357: -- check if activity started successfully
1358: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1359: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1361: raise OKL_API.G_EXCEPTION_ERROR;
1362: End If;
1363:
1356:
1357: -- check if activity started successfully
1358: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1359: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1361: raise OKL_API.G_EXCEPTION_ERROR;
1362: End If;
1363:
1364: l_sucv_rec := p_sucv_rec;
1357: -- check if activity started successfully
1358: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1359: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1361: raise OKL_API.G_EXCEPTION_ERROR;
1362: End If;
1363:
1364: l_sucv_rec := p_sucv_rec;
1365:
1371: x_msg_data => x_msg_data,
1372: p_sucv_rec => l_sucv_rec);
1373:
1374: -- check return status
1375: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1376: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1377: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1378: raise OKL_API.G_EXCEPTION_ERROR;
1379: End If;
1372: p_sucv_rec => l_sucv_rec);
1373:
1374: -- check return status
1375: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1376: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1377: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1378: raise OKL_API.G_EXCEPTION_ERROR;
1379: End If;
1380:
1373:
1374: -- check return status
1375: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1376: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1377: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1378: raise OKL_API.G_EXCEPTION_ERROR;
1379: End If;
1380:
1381: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1374: -- check return status
1375: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1376: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1377: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1378: raise OKL_API.G_EXCEPTION_ERROR;
1379: End If;
1380:
1381: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1382: x_msg_data => x_msg_data);
1377: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1378: raise OKL_API.G_EXCEPTION_ERROR;
1379: End If;
1380:
1381: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1382: x_msg_data => x_msg_data);
1383: EXCEPTION
1384: when OKL_API.G_EXCEPTION_ERROR then
1385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1380:
1381: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1382: x_msg_data => x_msg_data);
1383: EXCEPTION
1384: when OKL_API.G_EXCEPTION_ERROR then
1385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1386: p_api_name => l_api_name,
1387: p_pkg_name => g_pkg_name,
1388: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1381: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1382: x_msg_data => x_msg_data);
1383: EXCEPTION
1384: when OKL_API.G_EXCEPTION_ERROR then
1385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1386: p_api_name => l_api_name,
1387: p_pkg_name => g_pkg_name,
1388: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1389: x_msg_count => x_msg_count,
1384: when OKL_API.G_EXCEPTION_ERROR then
1385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1386: p_api_name => l_api_name,
1387: p_pkg_name => g_pkg_name,
1388: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1389: x_msg_count => x_msg_count,
1390: x_msg_data => x_msg_data,
1391: p_api_type => g_api_type);
1392:
1389: x_msg_count => x_msg_count,
1390: x_msg_data => x_msg_data,
1391: p_api_type => g_api_type);
1392:
1393: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1394: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1395: p_api_name => l_api_name,
1396: p_pkg_name => g_pkg_name,
1397: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1390: x_msg_data => x_msg_data,
1391: p_api_type => g_api_type);
1392:
1393: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1394: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1395: p_api_name => l_api_name,
1396: p_pkg_name => g_pkg_name,
1397: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1398: x_msg_count => x_msg_count,
1393: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1394: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1395: p_api_name => l_api_name,
1396: p_pkg_name => g_pkg_name,
1397: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1398: x_msg_count => x_msg_count,
1399: x_msg_data => x_msg_data,
1400: p_api_type => g_api_type);
1401:
1399: x_msg_data => x_msg_data,
1400: p_api_type => g_api_type);
1401:
1402: when OTHERS then
1403: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1404: p_api_name => l_api_name,
1405: p_pkg_name => g_pkg_name,
1406: p_exc_name => 'OTHERS',
1407: x_msg_count => x_msg_count,
1418: p_sucv_tbl IN sucv_tbl_type) IS
1419:
1420: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_SUBSIDY_CRITERIA';
1421: l_api_version CONSTANT NUMBER := 1.0;
1422: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1423:
1424: l_sucv_tbl sucv_tbl_type;
1425: Begin
1426: -- call START_ACTIVITY to create savepoint, check compatibility
1425: Begin
1426: -- call START_ACTIVITY to create savepoint, check compatibility
1427: -- and initialize message list
1428:
1429: l_return_status := OKL_API.START_ACTIVITY(
1430: p_api_name => l_api_name,
1431: p_pkg_name => g_pkg_name,
1432: p_init_msg_list => p_init_msg_list,
1433: l_api_version => l_api_version,
1435: p_api_type => g_api_type,
1436: x_return_status => x_return_status);
1437:
1438: -- check if activity started successfully
1439: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1440: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1441: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1442: raise OKL_API.G_EXCEPTION_ERROR;
1443: End If;
1436: x_return_status => x_return_status);
1437:
1438: -- check if activity started successfully
1439: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1440: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1441: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1442: raise OKL_API.G_EXCEPTION_ERROR;
1443: End If;
1444:
1437:
1438: -- check if activity started successfully
1439: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1440: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1441: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1442: raise OKL_API.G_EXCEPTION_ERROR;
1443: End If;
1444:
1445: l_sucv_tbl := p_sucv_tbl;
1438: -- check if activity started successfully
1439: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1440: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1441: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1442: raise OKL_API.G_EXCEPTION_ERROR;
1443: End If;
1444:
1445: l_sucv_tbl := p_sucv_tbl;
1446:
1452: x_msg_data => x_msg_data,
1453: p_sucv_tbl => l_sucv_tbl);
1454:
1455: -- check return status
1456: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1457: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1458: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1459: raise OKL_API.G_EXCEPTION_ERROR;
1460: End If;
1453: p_sucv_tbl => l_sucv_tbl);
1454:
1455: -- check return status
1456: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1457: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1458: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1459: raise OKL_API.G_EXCEPTION_ERROR;
1460: End If;
1461:
1454:
1455: -- check return status
1456: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1457: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1458: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1459: raise OKL_API.G_EXCEPTION_ERROR;
1460: End If;
1461:
1462: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1455: -- check return status
1456: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1457: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1458: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1459: raise OKL_API.G_EXCEPTION_ERROR;
1460: End If;
1461:
1462: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1463: x_msg_data => x_msg_data);
1458: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1459: raise OKL_API.G_EXCEPTION_ERROR;
1460: End If;
1461:
1462: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1463: x_msg_data => x_msg_data);
1464: EXCEPTION
1465: when OKL_API.G_EXCEPTION_ERROR then
1466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1461:
1462: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1463: x_msg_data => x_msg_data);
1464: EXCEPTION
1465: when OKL_API.G_EXCEPTION_ERROR then
1466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1467: p_api_name => l_api_name,
1468: p_pkg_name => g_pkg_name,
1469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1462: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1463: x_msg_data => x_msg_data);
1464: EXCEPTION
1465: when OKL_API.G_EXCEPTION_ERROR then
1466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1467: p_api_name => l_api_name,
1468: p_pkg_name => g_pkg_name,
1469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1470: x_msg_count => x_msg_count,
1465: when OKL_API.G_EXCEPTION_ERROR then
1466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1467: p_api_name => l_api_name,
1468: p_pkg_name => g_pkg_name,
1469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1470: x_msg_count => x_msg_count,
1471: x_msg_data => x_msg_data,
1472: p_api_type => g_api_type);
1473:
1470: x_msg_count => x_msg_count,
1471: x_msg_data => x_msg_data,
1472: p_api_type => g_api_type);
1473:
1474: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1476: p_api_name => l_api_name,
1477: p_pkg_name => g_pkg_name,
1478: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1471: x_msg_data => x_msg_data,
1472: p_api_type => g_api_type);
1473:
1474: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1476: p_api_name => l_api_name,
1477: p_pkg_name => g_pkg_name,
1478: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1479: x_msg_count => x_msg_count,
1474: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1476: p_api_name => l_api_name,
1477: p_pkg_name => g_pkg_name,
1478: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1479: x_msg_count => x_msg_count,
1480: x_msg_data => x_msg_data,
1481: p_api_type => g_api_type);
1482:
1480: x_msg_data => x_msg_data,
1481: p_api_type => g_api_type);
1482:
1483: when OTHERS then
1484: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1485: p_api_name => l_api_name,
1486: p_pkg_name => g_pkg_name,
1487: p_exc_name => 'OTHERS',
1488: x_msg_count => x_msg_count,
1502:
1503:
1504: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_SUBSIDY_CRITERIA';
1505: l_api_version CONSTANT NUMBER := 1.0;
1506: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1507:
1508: l_sucv_rec sucv_rec_type;
1509: Begin
1510: -- call START_ACTIVITY to create savepoint, check compatibility
1509: Begin
1510: -- call START_ACTIVITY to create savepoint, check compatibility
1511: -- and initialize message list
1512:
1513: l_return_status := OKL_API.START_ACTIVITY(
1514: p_api_name => l_api_name,
1515: p_pkg_name => g_pkg_name,
1516: p_init_msg_list => p_init_msg_list,
1517: l_api_version => l_api_version,
1519: p_api_type => g_api_type,
1520: x_return_status => x_return_status);
1521:
1522: -- check if activity started successfully
1523: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1524: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1525: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1526: raise OKL_API.G_EXCEPTION_ERROR;
1527: End If;
1520: x_return_status => x_return_status);
1521:
1522: -- check if activity started successfully
1523: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1524: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1525: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1526: raise OKL_API.G_EXCEPTION_ERROR;
1527: End If;
1528:
1521:
1522: -- check if activity started successfully
1523: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1524: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1525: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1526: raise OKL_API.G_EXCEPTION_ERROR;
1527: End If;
1528:
1529: l_sucv_rec := p_sucv_rec;
1522: -- check if activity started successfully
1523: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1524: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1525: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1526: raise OKL_API.G_EXCEPTION_ERROR;
1527: End If;
1528:
1529: l_sucv_rec := p_sucv_rec;
1530:
1536: x_msg_data => x_msg_data,
1537: p_sucv_rec => l_sucv_rec);
1538:
1539: -- check return status
1540: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1543: raise OKL_API.G_EXCEPTION_ERROR;
1544: End If;
1537: p_sucv_rec => l_sucv_rec);
1538:
1539: -- check return status
1540: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1543: raise OKL_API.G_EXCEPTION_ERROR;
1544: End If;
1545:
1538:
1539: -- check return status
1540: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1543: raise OKL_API.G_EXCEPTION_ERROR;
1544: End If;
1545:
1546: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1539: -- check return status
1540: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1543: raise OKL_API.G_EXCEPTION_ERROR;
1544: End If;
1545:
1546: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1547: x_msg_data => x_msg_data);
1542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1543: raise OKL_API.G_EXCEPTION_ERROR;
1544: End If;
1545:
1546: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1547: x_msg_data => x_msg_data);
1548: EXCEPTION
1549: when OKL_API.G_EXCEPTION_ERROR then
1550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1545:
1546: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1547: x_msg_data => x_msg_data);
1548: EXCEPTION
1549: when OKL_API.G_EXCEPTION_ERROR then
1550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1551: p_api_name => l_api_name,
1552: p_pkg_name => g_pkg_name,
1553: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1546: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1547: x_msg_data => x_msg_data);
1548: EXCEPTION
1549: when OKL_API.G_EXCEPTION_ERROR then
1550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1551: p_api_name => l_api_name,
1552: p_pkg_name => g_pkg_name,
1553: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1554: x_msg_count => x_msg_count,
1549: when OKL_API.G_EXCEPTION_ERROR then
1550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1551: p_api_name => l_api_name,
1552: p_pkg_name => g_pkg_name,
1553: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1554: x_msg_count => x_msg_count,
1555: x_msg_data => x_msg_data,
1556: p_api_type => g_api_type);
1557:
1554: x_msg_count => x_msg_count,
1555: x_msg_data => x_msg_data,
1556: p_api_type => g_api_type);
1557:
1558: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1559: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1560: p_api_name => l_api_name,
1561: p_pkg_name => g_pkg_name,
1562: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1555: x_msg_data => x_msg_data,
1556: p_api_type => g_api_type);
1557:
1558: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1559: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1560: p_api_name => l_api_name,
1561: p_pkg_name => g_pkg_name,
1562: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1563: x_msg_count => x_msg_count,
1558: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1559: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1560: p_api_name => l_api_name,
1561: p_pkg_name => g_pkg_name,
1562: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1563: x_msg_count => x_msg_count,
1564: x_msg_data => x_msg_data,
1565: p_api_type => g_api_type);
1566:
1564: x_msg_data => x_msg_data,
1565: p_api_type => g_api_type);
1566:
1567: when OTHERS then
1568: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1569: p_api_name => l_api_name,
1570: p_pkg_name => g_pkg_name,
1571: p_exc_name => 'OTHERS',
1572: x_msg_count => x_msg_count,
1583: p_sucv_tbl IN sucv_tbl_type) IS
1584:
1585: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_SUBSIDY_CRITERIA';
1586: l_api_version CONSTANT NUMBER := 1.0;
1587: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1588:
1589: l_sucv_tbl sucv_tbl_type;
1590: Begin
1591: -- call START_ACTIVITY to create savepoint, check compatibility
1590: Begin
1591: -- call START_ACTIVITY to create savepoint, check compatibility
1592: -- and initialize message list
1593:
1594: l_return_status := OKL_API.START_ACTIVITY(
1595: p_api_name => l_api_name,
1596: p_pkg_name => g_pkg_name,
1597: p_init_msg_list => p_init_msg_list,
1598: l_api_version => l_api_version,
1600: p_api_type => g_api_type,
1601: x_return_status => x_return_status);
1602:
1603: -- check if activity started successfully
1604: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1605: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1606: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1607: raise OKL_API.G_EXCEPTION_ERROR;
1608: End If;
1601: x_return_status => x_return_status);
1602:
1603: -- check if activity started successfully
1604: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1605: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1606: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1607: raise OKL_API.G_EXCEPTION_ERROR;
1608: End If;
1609:
1602:
1603: -- check if activity started successfully
1604: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1605: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1606: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1607: raise OKL_API.G_EXCEPTION_ERROR;
1608: End If;
1609:
1610: l_sucv_tbl := p_sucv_tbl;
1603: -- check if activity started successfully
1604: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1605: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1606: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
1607: raise OKL_API.G_EXCEPTION_ERROR;
1608: End If;
1609:
1610: l_sucv_tbl := p_sucv_tbl;
1611:
1617: x_msg_data => x_msg_data,
1618: p_sucv_tbl => l_sucv_tbl);
1619:
1620: -- check return status
1621: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1622: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1624: raise OKL_API.G_EXCEPTION_ERROR;
1625: End If;
1618: p_sucv_tbl => l_sucv_tbl);
1619:
1620: -- check return status
1621: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1622: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1624: raise OKL_API.G_EXCEPTION_ERROR;
1625: End If;
1626:
1619:
1620: -- check return status
1621: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1622: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1624: raise OKL_API.G_EXCEPTION_ERROR;
1625: End If;
1626:
1627: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1620: -- check return status
1621: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1622: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1624: raise OKL_API.G_EXCEPTION_ERROR;
1625: End If;
1626:
1627: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1628: x_msg_data => x_msg_data);
1623: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1624: raise OKL_API.G_EXCEPTION_ERROR;
1625: End If;
1626:
1627: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1628: x_msg_data => x_msg_data);
1629: EXCEPTION
1630: when OKL_API.G_EXCEPTION_ERROR then
1631: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1626:
1627: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1628: x_msg_data => x_msg_data);
1629: EXCEPTION
1630: when OKL_API.G_EXCEPTION_ERROR then
1631: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1632: p_api_name => l_api_name,
1633: p_pkg_name => g_pkg_name,
1634: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1627: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1628: x_msg_data => x_msg_data);
1629: EXCEPTION
1630: when OKL_API.G_EXCEPTION_ERROR then
1631: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1632: p_api_name => l_api_name,
1633: p_pkg_name => g_pkg_name,
1634: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1635: x_msg_count => x_msg_count,
1630: when OKL_API.G_EXCEPTION_ERROR then
1631: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1632: p_api_name => l_api_name,
1633: p_pkg_name => g_pkg_name,
1634: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1635: x_msg_count => x_msg_count,
1636: x_msg_data => x_msg_data,
1637: p_api_type => g_api_type);
1638:
1635: x_msg_count => x_msg_count,
1636: x_msg_data => x_msg_data,
1637: p_api_type => g_api_type);
1638:
1639: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1641: p_api_name => l_api_name,
1642: p_pkg_name => g_pkg_name,
1643: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1636: x_msg_data => x_msg_data,
1637: p_api_type => g_api_type);
1638:
1639: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1641: p_api_name => l_api_name,
1642: p_pkg_name => g_pkg_name,
1643: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1644: x_msg_count => x_msg_count,
1639: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1641: p_api_name => l_api_name,
1642: p_pkg_name => g_pkg_name,
1643: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1644: x_msg_count => x_msg_count,
1645: x_msg_data => x_msg_data,
1646: p_api_type => g_api_type);
1647:
1645: x_msg_data => x_msg_data,
1646: p_api_type => g_api_type);
1647:
1648: when OTHERS then
1649: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1650: p_api_name => l_api_name,
1651: p_pkg_name => g_pkg_name,
1652: p_exc_name => 'OTHERS',
1653: x_msg_count => x_msg_count,