12: FROM FND_LOOKUPS FND
13: WHERE FND.LOOKUP_TYPE = p_lookup_type
14: AND FND.LOOKUP_CODE = p_lookup_code;
15:
16: l_return_value VARCHAR2(200) := OKL_API.G_MISS_CHAR;
17: BEGIN
18: IF ( p_lookup_type IS NOT NULL AND p_lookup_code IS NOT NULL )
19: THEN
20: OPEN fnd_lookup_csr( p_lookup_type, p_lookup_code );
50: ) IS
51:
52: l_api_name CONSTANT VARCHAR2(40) := 'create_strm_gen_template';
53: l_api_version CONSTANT NUMBER := 1.0;
54: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
55:
56: l_init_msg_list VARCHAR2(1);
57: l_msg_count NUMBER;
58: l_msg_data VARCHAR2(2000);
68: l_gtlv_tbl_out gtlv_tbl_type;
69: i NUMBER;
70: BEGIN
71: -- Perform the Initializations
72: x_return_status := OKL_API.G_RET_STS_SUCCESS;
73:
74: l_return_status := OKL_API.START_ACTIVITY( l_api_name
75: ,g_pkg_name
76: ,p_init_msg_list
70: BEGIN
71: -- Perform the Initializations
72: x_return_status := OKL_API.G_RET_STS_SUCCESS;
73:
74: l_return_status := OKL_API.START_ACTIVITY( l_api_name
75: ,g_pkg_name
76: ,p_init_msg_list
77: ,l_api_version
78: ,p_api_version
77: ,l_api_version
78: ,p_api_version
79: ,'_PVT'
80: ,x_return_status);
81: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
82: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
83: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
84: RAISE OKL_API.G_EXCEPTION_ERROR;
85: END IF;
78: ,p_api_version
79: ,'_PVT'
80: ,x_return_status);
81: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
82: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
83: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
84: RAISE OKL_API.G_EXCEPTION_ERROR;
85: END IF;
86:
79: ,'_PVT'
80: ,x_return_status);
81: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
82: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
83: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
84: RAISE OKL_API.G_EXCEPTION_ERROR;
85: END IF;
86:
87: l_gtsv_rec_in := p_gtsv_rec;
80: ,x_return_status);
81: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
82: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
83: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
84: RAISE OKL_API.G_EXCEPTION_ERROR;
85: END IF;
86:
87: l_gtsv_rec_in := p_gtsv_rec;
88: -- Call the insert method of the Stream Generation Template Sets
94: ,x_msg_data => l_msg_data
95: ,p_gtsv_rec => l_gtsv_rec_in
96: ,x_gtsv_rec => l_gtsv_rec_out
97: );
98: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
95: ,p_gtsv_rec => l_gtsv_rec_in
96: ,x_gtsv_rec => l_gtsv_rec_out
97: );
98: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
103:
96: ,x_gtsv_rec => l_gtsv_rec_out
97: );
98: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
103:
104: -- Populate the Stream Generate Template Records GTS_ID
97: );
98: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
103:
104: -- Populate the Stream Generate Template Records GTS_ID
105: -- with the ID returned into the l_gtsv_rec_out
117: ,x_msg_data => l_msg_data
118: ,p_gttv_rec => l_gttv_rec_in
119: ,x_gttv_rec => l_gttv_rec_out
120: );
121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: END IF;
118: ,p_gttv_rec => l_gttv_rec_in
119: ,x_gttv_rec => l_gttv_rec_out
120: );
121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: END IF;
126:
119: ,x_gttv_rec => l_gttv_rec_out
120: );
121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: END IF;
126:
127:
120: );
121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: END IF;
126:
127:
128: -- Now Need to loop through the entire table and update the gtt_id
147: ,x_msg_data => l_msg_data
148: ,p_gtpv_tbl => l_gtpv_tbl_in
149: ,x_gtpv_tbl => l_gtpv_tbl_out
150: );
151: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
154: RAISE OKL_API.G_EXCEPTION_ERROR;
155: END IF;
148: ,p_gtpv_tbl => l_gtpv_tbl_in
149: ,x_gtpv_tbl => l_gtpv_tbl_out
150: );
151: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
154: RAISE OKL_API.G_EXCEPTION_ERROR;
155: END IF;
156: END IF;
149: ,x_gtpv_tbl => l_gtpv_tbl_out
150: );
151: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
154: RAISE OKL_API.G_EXCEPTION_ERROR;
155: END IF;
156: END IF;
157:
150: );
151: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
154: RAISE OKL_API.G_EXCEPTION_ERROR;
155: END IF;
156: END IF;
157:
158: -- Making sure PL/SQL table has records in it before passing
175: ,x_msg_data => l_msg_data
176: ,p_gtlv_tbl => l_gtlv_tbl_in
177: ,x_gtlv_tbl => l_gtlv_tbl_out
178: );
179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
182: RAISE OKL_API.G_EXCEPTION_ERROR;
183: END IF;
176: ,p_gtlv_tbl => l_gtlv_tbl_in
177: ,x_gtlv_tbl => l_gtlv_tbl_out
178: );
179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
182: RAISE OKL_API.G_EXCEPTION_ERROR;
183: END IF;
184: END IF;
177: ,x_gtlv_tbl => l_gtlv_tbl_out
178: );
179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
182: RAISE OKL_API.G_EXCEPTION_ERROR;
183: END IF;
184: END IF;
185:
178: );
179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
182: RAISE OKL_API.G_EXCEPTION_ERROR;
183: END IF;
184: END IF;
185:
186: x_gttv_rec := l_gttv_rec_out;
184: END IF;
185:
186: x_gttv_rec := l_gttv_rec_out;
187: x_return_status := l_return_status;
188: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
189:
190:
191: EXCEPTION
192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
188: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
189:
190:
191: EXCEPTION
192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
193: x_return_status := OKL_API.HANDLE_EXCEPTIONS
194: (l_api_name,
195: G_PKG_NAME,
196: 'OKL_API.G_RET_STS_ERROR',
189:
190:
191: EXCEPTION
192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
193: x_return_status := OKL_API.HANDLE_EXCEPTIONS
194: (l_api_name,
195: G_PKG_NAME,
196: 'OKL_API.G_RET_STS_ERROR',
197: x_msg_count,
192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
193: x_return_status := OKL_API.HANDLE_EXCEPTIONS
194: (l_api_name,
195: G_PKG_NAME,
196: 'OKL_API.G_RET_STS_ERROR',
197: x_msg_count,
198: x_msg_data,
199: '_PVT');
200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
196: 'OKL_API.G_RET_STS_ERROR',
197: x_msg_count,
198: x_msg_data,
199: '_PVT');
200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
201: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
202: ( l_api_name,
203: G_PKG_NAME,
204: 'OKL_API.G_RET_STS_UNEXP_ERROR',
197: x_msg_count,
198: x_msg_data,
199: '_PVT');
200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
201: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
202: ( l_api_name,
203: G_PKG_NAME,
204: 'OKL_API.G_RET_STS_UNEXP_ERROR',
205: x_msg_count,
200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
201: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
202: ( l_api_name,
203: G_PKG_NAME,
204: 'OKL_API.G_RET_STS_UNEXP_ERROR',
205: x_msg_count,
206: x_msg_data,
207: '_PVT');
208: WHEN OTHERS THEN
205: x_msg_count,
206: x_msg_data,
207: '_PVT');
208: WHEN OTHERS THEN
209: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
210: ( l_api_name,
211: G_PKG_NAME,
212: 'OTHERS',
213: x_msg_count,
241: ,x_gttv_rec OUT NOCOPY gttv_rec_type -- Return the Template Info
242: )IS
243: l_api_name CONSTANT VARCHAR2(40) := 'update_strm_gen_template';
244: l_api_version CONSTANT NUMBER := 1.0;
245: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
246:
247: l_init_msg_list VARCHAR2(1);
248: l_msg_count NUMBER;
249: l_msg_data VARCHAR2(2000);
331:
332: -- Bug 4094361: End
333: BEGIN
334: -- Perform the Initializations
335: x_return_status := OKL_API.G_RET_STS_SUCCESS;
336: l_return_status := OKL_API.START_ACTIVITY( l_api_name
337: ,g_pkg_name
338: ,p_init_msg_list
339: ,l_api_version
332: -- Bug 4094361: End
333: BEGIN
334: -- Perform the Initializations
335: x_return_status := OKL_API.G_RET_STS_SUCCESS;
336: l_return_status := OKL_API.START_ACTIVITY( l_api_name
337: ,g_pkg_name
338: ,p_init_msg_list
339: ,l_api_version
340: ,p_api_version
339: ,l_api_version
340: ,p_api_version
341: ,'_PVT'
342: ,x_return_status);
343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
346: RAISE OKL_API.G_EXCEPTION_ERROR;
347: END IF;
340: ,p_api_version
341: ,'_PVT'
342: ,x_return_status);
343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
346: RAISE OKL_API.G_EXCEPTION_ERROR;
347: END IF;
348:
341: ,'_PVT'
342: ,x_return_status);
343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
346: RAISE OKL_API.G_EXCEPTION_ERROR;
347: END IF;
348:
349: l_gtsv_rec_in := p_gtsv_rec;
342: ,x_return_status);
343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
346: RAISE OKL_API.G_EXCEPTION_ERROR;
347: END IF;
348:
349: l_gtsv_rec_in := p_gtsv_rec;
350: l_gttv_rec_in := p_gttv_rec;
347: END IF;
348:
349: l_gtsv_rec_in := p_gtsv_rec;
350: l_gttv_rec_in := p_gttv_rec;
351: IF ( l_gtsv_rec_in.ID IS NOT NULL OR l_gtsv_rec_in.id <> OKL_API.G_MISS_NUM
352: AND l_gttv_rec_in.tmpt_status = G_INIT_TMPT_STATUS )
353: THEN
354: -- Allowing the Updation of the Template sets only in the case of
355: -- Duplicated Templates.
361: ,x_msg_data => l_msg_data
362: ,p_gtsv_rec => l_gtsv_rec_in
363: ,x_gtsv_rec => l_gtsv_rec_out
364: );
365: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
367: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
368: RAISE OKL_API.G_EXCEPTION_ERROR;
369: END IF;
362: ,p_gtsv_rec => l_gtsv_rec_in
363: ,x_gtsv_rec => l_gtsv_rec_out
364: );
365: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
367: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
368: RAISE OKL_API.G_EXCEPTION_ERROR;
369: END IF;
370: END IF;
363: ,x_gtsv_rec => l_gtsv_rec_out
364: );
365: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
367: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
368: RAISE OKL_API.G_EXCEPTION_ERROR;
369: END IF;
370: END IF;
371:
364: );
365: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
367: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
368: RAISE OKL_API.G_EXCEPTION_ERROR;
369: END IF;
370: END IF;
371:
372: -- On Updation of anything change the status of the template will be
405: --1.
406: IF l_gttv_rec_in.end_date IS NOT NULL AND l_gttv_rec_in.end_date <> G_MISS_DATE AND
407: trunc(l_gttv_rec_in.start_date) > trunc(l_gttv_rec_in.end_date)
408: THEN
409: okl_api.SET_MESSAGE( p_app_name => g_app_name,
410: p_msg_name => 'OKL_START_DT_LESS_END_DT'
411: );
412: RAISE OKL_API.G_EXCEPTION_ERROR;
413: END IF;
408: THEN
409: okl_api.SET_MESSAGE( p_app_name => g_app_name,
410: p_msg_name => 'OKL_START_DT_LESS_END_DT'
411: );
412: RAISE OKL_API.G_EXCEPTION_ERROR;
413: END IF;
414:
415: --2.
416: IF l_tmpt_status = G_INIT_TMPT_STATUS AND l_gttv_rec_in.version <> '1.0' --meaning its greater than 1.0
422: LOOP
423: IF trunc(l_gttv_rec_in.start_date) <= trunc(gts_id_rec.end_date) --(prev vers startdate)
424: THEN
425: --Error from condition 2 above
426: okl_api.SET_MESSAGE( p_app_name => g_app_name,
427: p_msg_name => 'OKL_SGT_PREV_VER_DT_CNFLT'
428: );
429: RAISE OKL_API.G_EXCEPTION_ERROR;
430: END IF;
425: --Error from condition 2 above
426: okl_api.SET_MESSAGE( p_app_name => g_app_name,
427: p_msg_name => 'OKL_SGT_PREV_VER_DT_CNFLT'
428: );
429: RAISE OKL_API.G_EXCEPTION_ERROR;
430: END IF;
431: END LOOP;
432: END IF;
433:
483: IF l_gttv_rec_in.end_date IS NOT NULL AND l_gttv_rec_in.end_date <> G_MISS_DATE AND
484: trunc(l_gttv_rec_in.end_date) < trunc(l_okl_new_version_date_rec.max_start_date)
485: THEN
486: --Error from condition 4 above
487: okl_api.SET_MESSAGE( p_app_name => g_app_name,
488: p_msg_name => 'OKL_SGT_TO_DATE_BEF_KHR'
489: );
490: RAISE OKL_API.G_EXCEPTION_ERROR;
491: END IF;
486: --Error from condition 4 above
487: okl_api.SET_MESSAGE( p_app_name => g_app_name,
488: p_msg_name => 'OKL_SGT_TO_DATE_BEF_KHR'
489: );
490: RAISE OKL_API.G_EXCEPTION_ERROR;
491: END IF;
492: END IF;
493: END IF;
494:
498: FOR gts_id_rec IN fetch_gtt_ver_dtls_csr( l_gttv_rec_in.gts_id,l_version)
499: LOOP
500: --Cant update Eff To if there are successive versions which are active
501: IF gts_id_rec.tmpt_status = G_STATUS_ACTIVE THEN
502: okl_api.SET_MESSAGE( p_app_name => g_app_name,
503: p_msg_name => 'OKL_SGT_NO_UPD_SUCC_ACT_VER'
504: );
505: RAISE OKL_API.G_EXCEPTION_ERROR;
506: END IF;
501: IF gts_id_rec.tmpt_status = G_STATUS_ACTIVE THEN
502: okl_api.SET_MESSAGE( p_app_name => g_app_name,
503: p_msg_name => 'OKL_SGT_NO_UPD_SUCC_ACT_VER'
504: );
505: RAISE OKL_API.G_EXCEPTION_ERROR;
506: END IF;
507:
508: l_new_gttv_in_rec.id := gts_id_rec.id;
509: l_new_gttv_in_rec.gts_id := gts_id_rec.gts_id;
537: ,p_gttv_rec => l_gttv_rec_in
538: ,x_gttv_rec => l_gttv_rec_out
539: );
540:
541: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
543: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
544: RAISE OKL_API.G_EXCEPTION_ERROR;
545: END IF;
538: ,x_gttv_rec => l_gttv_rec_out
539: );
540:
541: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
543: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
544: RAISE OKL_API.G_EXCEPTION_ERROR;
545: END IF;
546:
539: );
540:
541: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
543: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
544: RAISE OKL_API.G_EXCEPTION_ERROR;
545: END IF;
546:
547: -- Updating the Templates Pricing Parameters
540:
541: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
543: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
544: RAISE OKL_API.G_EXCEPTION_ERROR;
545: END IF;
546:
547: -- Updating the Templates Pricing Parameters
548: IF (p_gtpv_tbl.COUNT > 0) THEN
551: FOR i IN p_gtpv_tbl.FIRST .. p_gtpv_tbl.LAST
552: LOOP
553: -- Decide whether we need to update or insert the Pricing Parameters
554: -- record.
555: IF (p_gtpv_tbl(i).id = Okl_Api.G_MISS_NUM OR p_gtpv_tbl(i).id IS NULL
556: OR p_gtpv_tbl(i).id = 0 )
557: THEN
558: -- Copy into the Insert table
559: l_gtpv_tbl_ins_in(ins_table_count) := p_gtpv_tbl(i);
576: ,x_msg_data => l_msg_data
577: ,p_gtpv_tbl => l_gtpv_tbl_ins_in
578: ,x_gtpv_tbl => l_gtpv_tbl_ins_out
579: );
580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
583: RAISE OKL_API.G_EXCEPTION_ERROR;
584: END IF;
577: ,p_gtpv_tbl => l_gtpv_tbl_ins_in
578: ,x_gtpv_tbl => l_gtpv_tbl_ins_out
579: );
580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
583: RAISE OKL_API.G_EXCEPTION_ERROR;
584: END IF;
585: END IF;
578: ,x_gtpv_tbl => l_gtpv_tbl_ins_out
579: );
580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
583: RAISE OKL_API.G_EXCEPTION_ERROR;
584: END IF;
585: END IF;
586: IF (l_gtpv_tbl_upd_in.COUNT > 0)
579: );
580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
583: RAISE OKL_API.G_EXCEPTION_ERROR;
584: END IF;
585: END IF;
586: IF (l_gtpv_tbl_upd_in.COUNT > 0)
587: THEN
594: ,x_msg_data => l_msg_data
595: ,p_gtpv_tbl => l_gtpv_tbl_upd_in
596: ,x_gtpv_tbl => l_gtpv_tbl_upd_out
597: );
598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
601: RAISE OKL_API.G_EXCEPTION_ERROR;
602: END IF;
595: ,p_gtpv_tbl => l_gtpv_tbl_upd_in
596: ,x_gtpv_tbl => l_gtpv_tbl_upd_out
597: );
598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
601: RAISE OKL_API.G_EXCEPTION_ERROR;
602: END IF;
603: END IF;
596: ,x_gtpv_tbl => l_gtpv_tbl_upd_out
597: );
598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
601: RAISE OKL_API.G_EXCEPTION_ERROR;
602: END IF;
603: END IF;
604: END IF;
597: );
598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
601: RAISE OKL_API.G_EXCEPTION_ERROR;
602: END IF;
603: END IF;
604: END IF;
605:
609: upd_table_count :=0;
610: FOR i IN p_gtlv_tbl.FIRST .. p_gtlv_tbl.LAST
611: LOOP
612: -- Decide whether we need to update or insert the Template Lines
613: IF (p_gtlv_tbl(i).id = Okl_Api.G_MISS_NUM OR p_gtlv_tbl(i).id IS NULL
614: OR p_gtlv_tbl(i).id = 0 )
615: THEN
616: -- Copy into the Insert table
617: l_gtlv_tbl_ins_in(ins_table_count) := p_gtlv_tbl(i);
635: ,x_msg_data => l_msg_data
636: ,p_gtlv_tbl => l_gtlv_tbl_ins_in
637: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
638: );
639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_ERROR;
643: END IF;
636: ,p_gtlv_tbl => l_gtlv_tbl_ins_in
637: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
638: );
639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_ERROR;
643: END IF;
644: END IF;
637: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
638: );
639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_ERROR;
643: END IF;
644: END IF;
645: IF (l_gtlv_tbl_upd_in.count > 0 )
638: );
639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_ERROR;
643: END IF;
644: END IF;
645: IF (l_gtlv_tbl_upd_in.count > 0 )
646: THEN
653: ,x_msg_data => l_msg_data
654: ,p_gtlv_tbl => l_gtlv_tbl_upd_in
655: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
656: );
657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_ERROR;
661: END IF;
654: ,p_gtlv_tbl => l_gtlv_tbl_upd_in
655: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
656: );
657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_ERROR;
661: END IF;
662: END IF;
655: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
656: );
657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_ERROR;
661: END IF;
662: END IF;
663: END IF;
656: );
657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_ERROR;
661: END IF;
662: END IF;
663: END IF;
664: /*
680: -- Modified by RGOOTY
681: -- Bug 4054596: Issue 4: Start
682: IF ( l_error_msgs_tbl.count > 0 )
683: THEN
684: x_return_status := Okl_Api.G_RET_STS_ERROR;
685: RAISE Okl_Api.G_EXCEPTION_ERROR;
686: END If;
687: -- Bug 4054596: Issue 4: End
688:
681: -- Bug 4054596: Issue 4: Start
682: IF ( l_error_msgs_tbl.count > 0 )
683: THEN
684: x_return_status := Okl_Api.G_RET_STS_ERROR;
685: RAISE Okl_Api.G_EXCEPTION_ERROR;
686: END If;
687: -- Bug 4054596: Issue 4: End
688:
689: -- Modified by RGOOTY
702: x_msg_count => x_msg_count,
703: x_msg_data => x_msg_data,
704: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
705: p_pdt_id => pdt_rec.pdt_id );
706: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
708: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_ERROR;
710: END IF;
703: x_msg_data => x_msg_data,
704: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
705: p_pdt_id => pdt_rec.pdt_id );
706: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
708: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_ERROR;
710: END IF;
711: END LOOP;
704: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
705: p_pdt_id => pdt_rec.pdt_id );
706: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
708: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_ERROR;
710: END IF;
711: END LOOP;
712: -- Bug 4094361: End
705: p_pdt_id => pdt_rec.pdt_id );
706: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
708: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_ERROR;
710: END IF;
711: END LOOP;
712: -- Bug 4094361: End
713: END IF;
713: END IF;
714: */
715: x_gttv_rec := l_gttv_rec_out;
716: x_return_status := l_return_status;
717: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
718: EXCEPTION
719: WHEN OKL_API.G_EXCEPTION_ERROR THEN
720: x_return_status := OKL_API.HANDLE_EXCEPTIONS
721: (l_api_name,
715: x_gttv_rec := l_gttv_rec_out;
716: x_return_status := l_return_status;
717: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
718: EXCEPTION
719: WHEN OKL_API.G_EXCEPTION_ERROR THEN
720: x_return_status := OKL_API.HANDLE_EXCEPTIONS
721: (l_api_name,
722: G_PKG_NAME,
723: 'OKL_API.G_RET_STS_ERROR',
716: x_return_status := l_return_status;
717: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
718: EXCEPTION
719: WHEN OKL_API.G_EXCEPTION_ERROR THEN
720: x_return_status := OKL_API.HANDLE_EXCEPTIONS
721: (l_api_name,
722: G_PKG_NAME,
723: 'OKL_API.G_RET_STS_ERROR',
724: x_msg_count,
719: WHEN OKL_API.G_EXCEPTION_ERROR THEN
720: x_return_status := OKL_API.HANDLE_EXCEPTIONS
721: (l_api_name,
722: G_PKG_NAME,
723: 'OKL_API.G_RET_STS_ERROR',
724: x_msg_count,
725: x_msg_data,
726: '_PVT');
727: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
723: 'OKL_API.G_RET_STS_ERROR',
724: x_msg_count,
725: x_msg_data,
726: '_PVT');
727: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
728: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
729: ( l_api_name,
730: G_PKG_NAME,
731: 'OKL_API.G_RET_STS_UNEXP_ERROR',
724: x_msg_count,
725: x_msg_data,
726: '_PVT');
727: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
728: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
729: ( l_api_name,
730: G_PKG_NAME,
731: 'OKL_API.G_RET_STS_UNEXP_ERROR',
732: x_msg_count,
727: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
728: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
729: ( l_api_name,
730: G_PKG_NAME,
731: 'OKL_API.G_RET_STS_UNEXP_ERROR',
732: x_msg_count,
733: x_msg_data,
734: '_PVT');
735: WHEN OTHERS THEN
732: x_msg_count,
733: x_msg_data,
734: '_PVT');
735: WHEN OTHERS THEN
736: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
737: ( l_api_name,
738: G_PKG_NAME,
739: 'OTHERS',
740: x_msg_count,
770: l_gtt_id OKL_ST_GEN_TEMPLATES.id%type := p_gtt_id;
771: l_mode VARCHAR2(10) := p_mode;
772: l_api_name CONSTANT VARCHAR2(40) := 'create_version_duplicate';
773: l_api_version CONSTANT NUMBER := 1.0;
774: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
775:
776: l_init_msg_list VARCHAR2(1);
777: l_msg_count NUMBER;
778: l_msg_data VARCHAR2(2000);
791: l_gtpv_tbl_out gtpv_tbl_type;
792: l_gtlv_tbl_pri_out gtlv_tbl_type;
793: l_gtlv_tbl_dep_out gtlv_tbl_type;
794: i NUMBER;
795: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
796:
797: CURSOR okl_st_gen_tmpt_sets_csr(p_gts_id IN OKL_ST_GEN_TMPT_SETS.id%type) IS
798: SELECT ID
799: ,NAME
870:
871: BEGIN
872:
873: -- Perform the Initializations
874: x_return_status := OKL_API.G_RET_STS_SUCCESS;
875: l_return_status := OKL_API.START_ACTIVITY( l_api_name
876: ,g_pkg_name
877: ,p_init_msg_list
878: ,l_api_version
871: BEGIN
872:
873: -- Perform the Initializations
874: x_return_status := OKL_API.G_RET_STS_SUCCESS;
875: l_return_status := OKL_API.START_ACTIVITY( l_api_name
876: ,g_pkg_name
877: ,p_init_msg_list
878: ,l_api_version
879: ,p_api_version
878: ,l_api_version
879: ,p_api_version
880: ,'_PVT'
881: ,x_return_status);
882: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
884: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
885: RAISE OKL_API.G_EXCEPTION_ERROR;
886: END IF;
879: ,p_api_version
880: ,'_PVT'
881: ,x_return_status);
882: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
884: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
885: RAISE OKL_API.G_EXCEPTION_ERROR;
886: END IF;
887:
880: ,'_PVT'
881: ,x_return_status);
882: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
884: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
885: RAISE OKL_API.G_EXCEPTION_ERROR;
886: END IF;
887:
888: l_dummy := Okl_Api.G_FALSE;
881: ,x_return_status);
882: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
884: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
885: RAISE OKL_API.G_EXCEPTION_ERROR;
886: END IF;
887:
888: l_dummy := Okl_Api.G_FALSE;
889: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
884: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
885: RAISE OKL_API.G_EXCEPTION_ERROR;
886: END IF;
887:
888: l_dummy := Okl_Api.G_FALSE;
889: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
890: LOOP
891: l_gttv_rec_in.id := gttv_rec_temp.id;
892: l_gttv_rec_in.gts_id := gttv_rec_temp.gts_id;
893: l_gttv_rec_in.version := gttv_rec_temp.version;
894: l_gttv_rec_in.start_date := gttv_rec_temp.start_date;
895: l_gttv_rec_in.end_date := gttv_rec_temp.end_date;
896: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
897: l_dummy := Okl_Api.G_TRUE;
898: END LOOP;
899: IF (l_dummy = okl_api.g_false) THEN
900: okl_api.SET_MESSAGE( p_app_name => g_app_name,
901: p_msg_name => g_invalid_value,
895: l_gttv_rec_in.end_date := gttv_rec_temp.end_date;
896: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
897: l_dummy := Okl_Api.G_TRUE;
898: END LOOP;
899: IF (l_dummy = okl_api.g_false) THEN
900: okl_api.SET_MESSAGE( p_app_name => g_app_name,
901: p_msg_name => g_invalid_value,
902: p_token1 => g_col_name_token,
903: p_token1_value => 'GTT_ID');
896: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
897: l_dummy := Okl_Api.G_TRUE;
898: END LOOP;
899: IF (l_dummy = okl_api.g_false) THEN
900: okl_api.SET_MESSAGE( p_app_name => g_app_name,
901: p_msg_name => g_invalid_value,
902: p_token1 => g_col_name_token,
903: p_token1_value => 'GTT_ID');
904: RAISE OKL_API.G_EXCEPTION_ERROR;
900: okl_api.SET_MESSAGE( p_app_name => g_app_name,
901: p_msg_name => g_invalid_value,
902: p_token1 => g_col_name_token,
903: p_token1_value => 'GTT_ID');
904: RAISE OKL_API.G_EXCEPTION_ERROR;
905: END IF;
906:
907: l_dummy := Okl_Api.G_FALSE;
908: FOR gtsv_rec_temp IN okl_st_gen_tmpt_sets_csr(l_gttv_rec_in.gts_id)
903: p_token1_value => 'GTT_ID');
904: RAISE OKL_API.G_EXCEPTION_ERROR;
905: END IF;
906:
907: l_dummy := Okl_Api.G_FALSE;
908: FOR gtsv_rec_temp IN okl_st_gen_tmpt_sets_csr(l_gttv_rec_in.gts_id)
909: LOOP
910: l_gtsv_rec_in.id := gtsv_rec_temp.id;
911: l_gtsv_rec_in.name := gtsv_rec_temp.name;
920: l_gtsv_rec_in.days_in_yr_code:= gtsv_rec_temp.days_in_yr_code;
921: -- Added new field by DJANASWA for ER 6274359(H)
922: l_gtsv_rec_in.isg_arrears_pay_dates_option := gtsv_rec_temp.isg_arrears_pay_dates_option;
923:
924: l_dummy := Okl_Api.G_TRUE;
925: END LOOP;
926: IF (l_dummy = okl_api.g_false) THEN
927: okl_api.SET_MESSAGE( p_app_name => g_app_name,
928: p_msg_name => g_invalid_value,
922: l_gtsv_rec_in.isg_arrears_pay_dates_option := gtsv_rec_temp.isg_arrears_pay_dates_option;
923:
924: l_dummy := Okl_Api.G_TRUE;
925: END LOOP;
926: IF (l_dummy = okl_api.g_false) THEN
927: okl_api.SET_MESSAGE( p_app_name => g_app_name,
928: p_msg_name => g_invalid_value,
929: p_token1 => g_col_name_token,
930: p_token1_value => 'GTS_ID');
923:
924: l_dummy := Okl_Api.G_TRUE;
925: END LOOP;
926: IF (l_dummy = okl_api.g_false) THEN
927: okl_api.SET_MESSAGE( p_app_name => g_app_name,
928: p_msg_name => g_invalid_value,
929: p_token1 => g_col_name_token,
930: p_token1_value => 'GTS_ID');
931: RAISE OKL_API.G_EXCEPTION_ERROR;
927: okl_api.SET_MESSAGE( p_app_name => g_app_name,
928: p_msg_name => g_invalid_value,
929: p_token1 => g_col_name_token,
930: p_token1_value => 'GTS_ID');
931: RAISE OKL_API.G_EXCEPTION_ERROR;
932: END IF;
933:
934: IF p_mode IS NULL OR p_mode = G_DEFAULT_MODE
935: THEN
948: ,x_msg_data => l_msg_data
949: ,p_gtsv_rec => l_gtsv_rec_in
950: ,x_gtsv_rec => l_gtsv_rec_out
951: );
952: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
953: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
954: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
955: RAISE okl_api.G_EXCEPTION_ERROR;
956: END IF;
949: ,p_gtsv_rec => l_gtsv_rec_in
950: ,x_gtsv_rec => l_gtsv_rec_out
951: );
952: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
953: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
954: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
955: RAISE okl_api.G_EXCEPTION_ERROR;
956: END IF;
957: -- For Duplicate
950: ,x_gtsv_rec => l_gtsv_rec_out
951: );
952: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
953: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
954: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
955: RAISE okl_api.G_EXCEPTION_ERROR;
956: END IF;
957: -- For Duplicate
958: l_gttv_rec_in.gts_id := l_gtsv_rec_out.id; -- Id of the New GTS Created
951: );
952: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
953: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
954: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
955: RAISE okl_api.G_EXCEPTION_ERROR;
956: END IF;
957: -- For Duplicate
958: l_gttv_rec_in.gts_id := l_gtsv_rec_out.id; -- Id of the New GTS Created
959: l_gttv_rec_in.version := '1.0'; -- VERSION TO 1.0
983: ,x_msg_data => l_msg_data
984: ,p_gttv_rec => l_gttv_rec_prev_version_in
985: ,x_gttv_rec => l_gttv_rec_prev_version_out
986: );
987: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
989: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_ERROR;
991: END IF;
984: ,p_gttv_rec => l_gttv_rec_prev_version_in
985: ,x_gttv_rec => l_gttv_rec_prev_version_out
986: );
987: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
989: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_ERROR;
991: END IF;
992: -- Modifications for New Version
985: ,x_gttv_rec => l_gttv_rec_prev_version_out
986: );
987: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
989: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_ERROR;
991: END IF;
992: -- Modifications for New Version
993: l_gttv_rec_in.version := TRIM(TO_CHAR( FND_NUMBER.CANONICAL_TO_NUMBER( l_gttv_rec_in.version ) + 1 ) ) || '.0'; -- Bug 10369520
986: );
987: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
989: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_ERROR;
991: END IF;
992: -- Modifications for New Version
993: l_gttv_rec_in.version := TRIM(TO_CHAR( FND_NUMBER.CANONICAL_TO_NUMBER( l_gttv_rec_in.version ) + 1 ) ) || '.0'; -- Bug 10369520
994: l_gttv_rec_in.start_date := l_gttv_rec_prev_version_out.end_date + 1;
1005: ,x_msg_data => l_msg_data
1006: ,p_gttv_rec => l_gttv_rec_in
1007: ,x_gttv_rec => l_gttv_rec_out
1008: );
1009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1012: RAISE OKL_API.G_EXCEPTION_ERROR;
1013: END IF;
1006: ,p_gttv_rec => l_gttv_rec_in
1007: ,x_gttv_rec => l_gttv_rec_out
1008: );
1009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1012: RAISE OKL_API.G_EXCEPTION_ERROR;
1013: END IF;
1014: -- Fetch all the pricing parameters and call the API
1007: ,x_gttv_rec => l_gttv_rec_out
1008: );
1009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1012: RAISE OKL_API.G_EXCEPTION_ERROR;
1013: END IF;
1014: -- Fetch all the pricing parameters and call the API
1015: i := 0;
1008: );
1009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1012: RAISE OKL_API.G_EXCEPTION_ERROR;
1013: END IF;
1014: -- Fetch all the pricing parameters and call the API
1015: i := 0;
1016: FOR gtpv_rec_temp IN okl_st_gen_prc_params_csr(l_gtt_id)
1036: ,x_msg_data => l_msg_data
1037: ,p_gtpv_tbl => l_gtpv_tbl_in
1038: ,x_gtpv_tbl => l_gtpv_tbl_out
1039: );
1040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1043: RAISE OKL_API.G_EXCEPTION_ERROR;
1044: END IF;
1037: ,p_gtpv_tbl => l_gtpv_tbl_in
1038: ,x_gtpv_tbl => l_gtpv_tbl_out
1039: );
1040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1043: RAISE OKL_API.G_EXCEPTION_ERROR;
1044: END IF;
1045: END IF;
1038: ,x_gtpv_tbl => l_gtpv_tbl_out
1039: );
1040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1043: RAISE OKL_API.G_EXCEPTION_ERROR;
1044: END IF;
1045: END IF;
1046:
1039: );
1040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1043: RAISE OKL_API.G_EXCEPTION_ERROR;
1044: END IF;
1045: END IF;
1046:
1047: -- Fetch all the primary streams and call the insert API
1068: ,x_msg_data => l_msg_data
1069: ,p_gtlv_tbl => l_gtlv_tbl_pri_in
1070: ,x_gtlv_tbl => l_gtlv_tbl_pri_out
1071: );
1072: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1074: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1075: RAISE OKL_API.G_EXCEPTION_ERROR;
1076: END IF;
1069: ,p_gtlv_tbl => l_gtlv_tbl_pri_in
1070: ,x_gtlv_tbl => l_gtlv_tbl_pri_out
1071: );
1072: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1074: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1075: RAISE OKL_API.G_EXCEPTION_ERROR;
1076: END IF;
1077: END IF;
1070: ,x_gtlv_tbl => l_gtlv_tbl_pri_out
1071: );
1072: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1074: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1075: RAISE OKL_API.G_EXCEPTION_ERROR;
1076: END IF;
1077: END IF;
1078:
1071: );
1072: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1074: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1075: RAISE OKL_API.G_EXCEPTION_ERROR;
1076: END IF;
1077: END IF;
1078:
1079: -- Fetch all the dependent streams and call the insert API
1099: ,x_msg_data => l_msg_data
1100: ,p_gtlv_tbl => l_gtlv_tbl_dep_in
1101: ,x_gtlv_tbl => l_gtlv_tbl_dep_out
1102: );
1103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1106: RAISE OKL_API.G_EXCEPTION_ERROR;
1107: END IF;
1100: ,p_gtlv_tbl => l_gtlv_tbl_dep_in
1101: ,x_gtlv_tbl => l_gtlv_tbl_dep_out
1102: );
1103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1106: RAISE OKL_API.G_EXCEPTION_ERROR;
1107: END IF;
1108: END IF;
1101: ,x_gtlv_tbl => l_gtlv_tbl_dep_out
1102: );
1103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1106: RAISE OKL_API.G_EXCEPTION_ERROR;
1107: END IF;
1108: END IF;
1109:
1102: );
1103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1106: RAISE OKL_API.G_EXCEPTION_ERROR;
1107: END IF;
1108: END IF;
1109:
1110: x_gttv_rec := l_gttv_rec_out;
1108: END IF;
1109:
1110: x_gttv_rec := l_gttv_rec_out;
1111: x_return_status := l_return_status;
1112: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1113: EXCEPTION
1114: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1116: (l_api_name,
1110: x_gttv_rec := l_gttv_rec_out;
1111: x_return_status := l_return_status;
1112: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1113: EXCEPTION
1114: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1116: (l_api_name,
1117: G_PKG_NAME,
1118: 'OKL_API.G_RET_STS_ERROR',
1111: x_return_status := l_return_status;
1112: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1113: EXCEPTION
1114: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1116: (l_api_name,
1117: G_PKG_NAME,
1118: 'OKL_API.G_RET_STS_ERROR',
1119: x_msg_count,
1114: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1116: (l_api_name,
1117: G_PKG_NAME,
1118: 'OKL_API.G_RET_STS_ERROR',
1119: x_msg_count,
1120: x_msg_data,
1121: '_PVT');
1122: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1118: 'OKL_API.G_RET_STS_ERROR',
1119: x_msg_count,
1120: x_msg_data,
1121: '_PVT');
1122: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1123: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1124: ( l_api_name,
1125: G_PKG_NAME,
1126: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1119: x_msg_count,
1120: x_msg_data,
1121: '_PVT');
1122: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1123: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1124: ( l_api_name,
1125: G_PKG_NAME,
1126: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1127: x_msg_count,
1122: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1123: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1124: ( l_api_name,
1125: G_PKG_NAME,
1126: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1127: x_msg_count,
1128: x_msg_data,
1129: '_PVT');
1130: WHEN OTHERS THEN
1127: x_msg_count,
1128: x_msg_data,
1129: '_PVT');
1130: WHEN OTHERS THEN
1131: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1132: ( l_api_name,
1133: G_PKG_NAME,
1134: 'OTHERS',
1135: x_msg_count,
1160: ) IS
1161: l_gtt_id okl_st_gen_templates.id%type ;
1162: l_api_name CONSTANT VARCHAR2(40) := 'delete_tmpt_prc_params';
1163: l_api_version CONSTANT NUMBER := 1.0;
1164: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1165:
1166: l_init_msg_list VARCHAR2(1) := p_init_msg_list;
1167: l_msg_count NUMBER;
1168: l_msg_data VARCHAR2(2000);
1169:
1170: l_gttv_rec gttv_rec_type;
1171: l_gtpv_tbl_del_in gtpv_tbl_type := p_gtpv_tbl;
1172:
1173: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
1174:
1175: BEGIN
1176: -- Perform the Initializations
1177: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1173: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
1174:
1175: BEGIN
1176: -- Perform the Initializations
1177: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1178: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1179: ,g_pkg_name
1180: ,p_init_msg_list
1181: ,l_api_version
1174:
1175: BEGIN
1176: -- Perform the Initializations
1177: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1178: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1179: ,g_pkg_name
1180: ,p_init_msg_list
1181: ,l_api_version
1182: ,p_api_version
1181: ,l_api_version
1182: ,p_api_version
1183: ,'_PVT'
1184: ,x_return_status);
1185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1182: ,p_api_version
1183: ,'_PVT'
1184: ,x_return_status);
1185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1190: OKL_GTP_PVT.delete_row(
1183: ,'_PVT'
1184: ,x_return_status);
1185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1190: OKL_GTP_PVT.delete_row(
1191: p_api_version => l_api_version
1184: ,x_return_status);
1185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1190: OKL_GTP_PVT.delete_row(
1191: p_api_version => l_api_version
1192: ,p_init_msg_list => l_init_msg_list
1194: ,x_msg_count => l_msg_count
1195: ,x_msg_data => l_msg_data
1196: ,p_gtpv_tbl => l_gtpv_tbl_del_in
1197: );
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1195: ,x_msg_data => l_msg_data
1196: ,p_gtpv_tbl => l_gtpv_tbl_del_in
1197: );
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1196: ,p_gtpv_tbl => l_gtpv_tbl_del_in
1197: );
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1204: x_return_status := l_return_status;
1197: );
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1204: x_return_status := l_return_status;
1205: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1204: x_return_status := l_return_status;
1205: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1206: EXCEPTION
1207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1208: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1209: (l_api_name,
1203:
1204: x_return_status := l_return_status;
1205: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1206: EXCEPTION
1207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1208: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1209: (l_api_name,
1210: G_PKG_NAME,
1211: 'OKL_API.G_RET_STS_ERROR',
1204: x_return_status := l_return_status;
1205: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1206: EXCEPTION
1207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1208: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1209: (l_api_name,
1210: G_PKG_NAME,
1211: 'OKL_API.G_RET_STS_ERROR',
1212: x_msg_count,
1207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1208: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1209: (l_api_name,
1210: G_PKG_NAME,
1211: 'OKL_API.G_RET_STS_ERROR',
1212: x_msg_count,
1213: x_msg_data,
1214: '_PVT');
1215: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1211: 'OKL_API.G_RET_STS_ERROR',
1212: x_msg_count,
1213: x_msg_data,
1214: '_PVT');
1215: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1216: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1217: ( l_api_name,
1218: G_PKG_NAME,
1219: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1212: x_msg_count,
1213: x_msg_data,
1214: '_PVT');
1215: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1216: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1217: ( l_api_name,
1218: G_PKG_NAME,
1219: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1220: x_msg_count,
1215: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1216: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1217: ( l_api_name,
1218: G_PKG_NAME,
1219: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1220: x_msg_count,
1221: x_msg_data,
1222: '_PVT');
1223: WHEN OTHERS THEN
1220: x_msg_count,
1221: x_msg_data,
1222: '_PVT');
1223: WHEN OTHERS THEN
1224: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1225: ( l_api_name,
1226: G_PKG_NAME,
1227: 'OTHERS',
1228: x_msg_count,
1253: )IS
1254: l_gtt_id okl_st_gen_templates.id%type;
1255: l_api_name CONSTANT VARCHAR2(40) := 'delete_pri_tmpt_lns';
1256: l_api_version CONSTANT NUMBER := 1.0;
1257: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1258:
1259: l_init_msg_list VARCHAR2(1);
1260: l_msg_count NUMBER;
1261: l_msg_data VARCHAR2(2000);
1258:
1259: l_init_msg_list VARCHAR2(1);
1260: l_msg_count NUMBER;
1261: l_msg_data VARCHAR2(2000);
1262: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
1263:
1264: l_gttv_rec gttv_rec_type;
1265: l_gtlv_pri_tbl_del_in gtlv_tbl_type;
1266: l_gtlv_dep_tbl_del_in gtlv_tbl_type;
1277: AND PRIMARY_STY_ID = p_primary_sty_id
1278: AND GTT_ID = p_gtt_id;
1279: BEGIN
1280: -- Perform the Initializations
1281: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1282: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1283: ,g_pkg_name
1284: ,p_init_msg_list
1285: ,l_api_version
1278: AND GTT_ID = p_gtt_id;
1279: BEGIN
1280: -- Perform the Initializations
1281: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1282: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1283: ,g_pkg_name
1284: ,p_init_msg_list
1285: ,l_api_version
1286: ,p_api_version
1285: ,l_api_version
1286: ,p_api_version
1287: ,'_PVT'
1288: ,x_return_status);
1289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1292: RAISE OKL_API.G_EXCEPTION_ERROR;
1293: END IF;
1286: ,p_api_version
1287: ,'_PVT'
1288: ,x_return_status);
1289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1292: RAISE OKL_API.G_EXCEPTION_ERROR;
1293: END IF;
1294:
1287: ,'_PVT'
1288: ,x_return_status);
1289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1292: RAISE OKL_API.G_EXCEPTION_ERROR;
1293: END IF;
1294:
1295: l_gtlv_pri_tbl_del_in := p_gtlv_tbl;
1288: ,x_return_status);
1289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1292: RAISE OKL_API.G_EXCEPTION_ERROR;
1293: END IF;
1294:
1295: l_gtlv_pri_tbl_del_in := p_gtlv_tbl;
1296: FOR J in l_gtlv_pri_tbl_del_in.FIRST .. l_gtlv_pri_tbl_del_in.LAST
1317: x_msg_count => l_msg_count,
1318: x_msg_data => l_msg_data,
1319: p_gtlv_tbl => l_gtlv_dep_tbl_del_in);
1320:
1321: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1324: RAISE OKL_API.G_EXCEPTION_ERROR;
1325: END IF;
1318: x_msg_data => l_msg_data,
1319: p_gtlv_tbl => l_gtlv_dep_tbl_del_in);
1320:
1321: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1324: RAISE OKL_API.G_EXCEPTION_ERROR;
1325: END IF;
1326: l_gtlv_dep_tbl_del_in.DELETE;
1319: p_gtlv_tbl => l_gtlv_dep_tbl_del_in);
1320:
1321: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1324: RAISE OKL_API.G_EXCEPTION_ERROR;
1325: END IF;
1326: l_gtlv_dep_tbl_del_in.DELETE;
1327: END IF;
1320:
1321: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1324: RAISE OKL_API.G_EXCEPTION_ERROR;
1325: END IF;
1326: l_gtlv_dep_tbl_del_in.DELETE;
1327: END IF;
1328: END LOOP;
1333: x_msg_count => l_msg_count,
1334: x_msg_data => l_msg_data,
1335: p_gtlv_tbl => l_gtlv_pri_tbl_del_in);
1336:
1337: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1334: x_msg_data => l_msg_data,
1335: p_gtlv_tbl => l_gtlv_pri_tbl_del_in);
1336:
1337: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1335: p_gtlv_tbl => l_gtlv_pri_tbl_del_in);
1336:
1337: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1343: x_return_status := l_return_status;
1336:
1337: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1343: x_return_status := l_return_status;
1344: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1343: x_return_status := l_return_status;
1344: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1345: EXCEPTION
1346: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1347: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1348: (l_api_name,
1342:
1343: x_return_status := l_return_status;
1344: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1345: EXCEPTION
1346: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1347: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1348: (l_api_name,
1349: G_PKG_NAME,
1350: 'OKL_API.G_RET_STS_ERROR',
1343: x_return_status := l_return_status;
1344: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1345: EXCEPTION
1346: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1347: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1348: (l_api_name,
1349: G_PKG_NAME,
1350: 'OKL_API.G_RET_STS_ERROR',
1351: x_msg_count,
1346: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1347: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1348: (l_api_name,
1349: G_PKG_NAME,
1350: 'OKL_API.G_RET_STS_ERROR',
1351: x_msg_count,
1352: x_msg_data,
1353: '_PVT');
1354: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1350: 'OKL_API.G_RET_STS_ERROR',
1351: x_msg_count,
1352: x_msg_data,
1353: '_PVT');
1354: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1355: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1356: ( l_api_name,
1357: G_PKG_NAME,
1358: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1351: x_msg_count,
1352: x_msg_data,
1353: '_PVT');
1354: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1355: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1356: ( l_api_name,
1357: G_PKG_NAME,
1358: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1359: x_msg_count,
1354: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1355: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1356: ( l_api_name,
1357: G_PKG_NAME,
1358: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1359: x_msg_count,
1360: x_msg_data,
1361: '_PVT');
1362: WHEN OTHERS THEN
1359: x_msg_count,
1360: x_msg_data,
1361: '_PVT');
1362: WHEN OTHERS THEN
1363: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1364: ( l_api_name,
1365: G_PKG_NAME,
1366: 'OTHERS',
1367: x_msg_count,
1392: )IS
1393: l_gtt_id okl_st_gen_templates.id%type;
1394: l_api_name CONSTANT VARCHAR2(40) := 'delete_dep_tmpt_lns';
1395: l_api_version CONSTANT NUMBER := 1.0;
1396: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1397:
1398: l_init_msg_list VARCHAR2(1);
1399: l_msg_count NUMBER;
1400: l_msg_data VARCHAR2(2000);
1397:
1398: l_init_msg_list VARCHAR2(1);
1399: l_msg_count NUMBER;
1400: l_msg_data VARCHAR2(2000);
1401: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
1402:
1403: l_gttv_rec gttv_rec_type;
1404: l_gtlv_tbl_del_in gtlv_tbl_type := p_gtlv_tbl;
1405: BEGIN
1403: l_gttv_rec gttv_rec_type;
1404: l_gtlv_tbl_del_in gtlv_tbl_type := p_gtlv_tbl;
1405: BEGIN
1406: -- Perform the Initializations
1407: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1408: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1409: ,g_pkg_name
1410: ,p_init_msg_list
1411: ,l_api_version
1404: l_gtlv_tbl_del_in gtlv_tbl_type := p_gtlv_tbl;
1405: BEGIN
1406: -- Perform the Initializations
1407: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1408: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1409: ,g_pkg_name
1410: ,p_init_msg_list
1411: ,l_api_version
1412: ,p_api_version
1411: ,l_api_version
1412: ,p_api_version
1413: ,'_PVT'
1414: ,x_return_status);
1415: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;
1412: ,p_api_version
1413: ,'_PVT'
1414: ,x_return_status);
1415: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;
1420:
1413: ,'_PVT'
1414: ,x_return_status);
1415: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;
1420:
1421: Okl_Gtl_Pvt.delete_row(
1414: ,x_return_status);
1415: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;
1420:
1421: Okl_Gtl_Pvt.delete_row(
1422: p_api_version => l_api_version,
1425: x_msg_count => l_msg_count,
1426: x_msg_data => l_msg_data,
1427: p_gtlv_tbl => l_gtlv_tbl_del_in);
1428:
1429: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1432: RAISE OKL_API.G_EXCEPTION_ERROR;
1433: END IF;
1426: x_msg_data => l_msg_data,
1427: p_gtlv_tbl => l_gtlv_tbl_del_in);
1428:
1429: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1432: RAISE OKL_API.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1427: p_gtlv_tbl => l_gtlv_tbl_del_in);
1428:
1429: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1432: RAISE OKL_API.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1435: x_return_status := l_return_status;
1428:
1429: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1432: RAISE OKL_API.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1435: x_return_status := l_return_status;
1436: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1432: RAISE OKL_API.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1435: x_return_status := l_return_status;
1436: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1437: EXCEPTION
1438: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1439: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1440: (l_api_name,
1434:
1435: x_return_status := l_return_status;
1436: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1437: EXCEPTION
1438: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1439: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1440: (l_api_name,
1441: G_PKG_NAME,
1442: 'OKL_API.G_RET_STS_ERROR',
1435: x_return_status := l_return_status;
1436: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1437: EXCEPTION
1438: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1439: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1440: (l_api_name,
1441: G_PKG_NAME,
1442: 'OKL_API.G_RET_STS_ERROR',
1443: x_msg_count,
1438: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1439: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1440: (l_api_name,
1441: G_PKG_NAME,
1442: 'OKL_API.G_RET_STS_ERROR',
1443: x_msg_count,
1444: x_msg_data,
1445: '_PVT');
1446: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1442: 'OKL_API.G_RET_STS_ERROR',
1443: x_msg_count,
1444: x_msg_data,
1445: '_PVT');
1446: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1447: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1448: ( l_api_name,
1449: G_PKG_NAME,
1450: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1443: x_msg_count,
1444: x_msg_data,
1445: '_PVT');
1446: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1447: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1448: ( l_api_name,
1449: G_PKG_NAME,
1450: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1451: x_msg_count,
1446: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1447: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1448: ( l_api_name,
1449: G_PKG_NAME,
1450: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1451: x_msg_count,
1452: x_msg_data,
1453: '_PVT');
1454: WHEN OTHERS THEN
1451: x_msg_count,
1452: x_msg_data,
1453: '_PVT');
1454: WHEN OTHERS THEN
1455: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1456: ( l_api_name,
1457: G_PKG_NAME,
1458: 'OTHERS',
1459: x_msg_count,
1553: END IF;
1554: l_msg := FND_MESSAGE.GET;
1555: IF ( UPPER(p_during_upd_flag) = 'T' )
1556: THEN
1557: OKL_API.SET_MESSAGE( g_app_name
1558: ,p_msg_name
1559: ,p_token1
1560: ,p_value1
1561: ,p_token2
2004: )IS
2005: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
2006: l_api_name CONSTANT VARCHAR2(40) := 'validate_financial_template';
2007: l_api_version CONSTANT NUMBER := 1.0;
2008: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2009: l_error_msgs_tbl error_msgs_tbl_type;
2010: l_error_msgs_tbl_val_bill error_msgs_tbl_type;
2011: l_msgs_count NUMBER := 1;
2012:
2012:
2013: l_init_msg_list VARCHAR2(1);
2014: l_msg_count NUMBER;
2015: l_msg_data VARCHAR2(2000);
2016: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
2017: l_ins_strms_count NUMBER := 0;
2018:
2019: l_gttv_rec_in gttv_rec_type;
2020: l_gttv_rec_out gttv_rec_type;
3184: i NUMBER := 0;
3185: -- Bug 4129154: End
3186: BEGIN
3187: -- Perform the Initializations
3188: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3189: -- Get the Interest Calculation Method and Revenue Recognition Method from the SGT
3190: FOR t_rec IN fetch_sgt_info( p_gtt_id => p_gtt_id )
3191: LOOP
3192: l_rrm := t_rec.revenue_recog_meth_code;
3646: END IF;
3647: x_error_msgs_tbl := l_error_msgs_tbl;
3648: x_return_status := l_return_status;
3649: EXCEPTION
3650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3652: (l_api_name,
3653: G_PKG_NAME,
3654: 'OKL_API.G_RET_STS_ERROR',
3647: x_error_msgs_tbl := l_error_msgs_tbl;
3648: x_return_status := l_return_status;
3649: EXCEPTION
3650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3652: (l_api_name,
3653: G_PKG_NAME,
3654: 'OKL_API.G_RET_STS_ERROR',
3655: x_msg_count,
3650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3652: (l_api_name,
3653: G_PKG_NAME,
3654: 'OKL_API.G_RET_STS_ERROR',
3655: x_msg_count,
3656: x_msg_data,
3657: '_PVT');
3658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3654: 'OKL_API.G_RET_STS_ERROR',
3655: x_msg_count,
3656: x_msg_data,
3657: '_PVT');
3658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3659: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3660: ( l_api_name,
3661: G_PKG_NAME,
3662: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3655: x_msg_count,
3656: x_msg_data,
3657: '_PVT');
3658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3659: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3660: ( l_api_name,
3661: G_PKG_NAME,
3662: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3663: x_msg_count,
3658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3659: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3660: ( l_api_name,
3661: G_PKG_NAME,
3662: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3663: x_msg_count,
3664: x_msg_data,
3665: '_PVT');
3666: WHEN OTHERS THEN
3663: x_msg_count,
3664: x_msg_data,
3665: '_PVT');
3666: WHEN OTHERS THEN
3667: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3668: ( l_api_name,
3669: G_PKG_NAME,
3670: 'OTHERS',
3671: x_msg_count,
3698: ,p_during_upd_flag IN VARCHAR
3699: )IS
3700: l_api_name CONSTANT VARCHAR2(40) := 'validate_investor_template';
3701: l_api_version CONSTANT NUMBER := 1.0;
3702: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3703: l_error_msgs_tbl error_msgs_tbl_type;
3704: l_msgs_count NUMBER := 1;
3705:
3706: l_init_msg_list VARCHAR2(1);
3705:
3706: l_init_msg_list VARCHAR2(1);
3707: l_msg_count NUMBER;
3708: l_msg_data VARCHAR2(2000);
3709: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
3710:
3711: -- 1. Only one stream type of the following primary purposes should be defined.
3712: CURSOR inv_only_one_as_primary_csr( p_gtt_id IN OKL_ST_GEN_TEMPLATES.id%type) IS
3713: SELECT stb.stream_type_purpose purpose, count(stb.stream_type_purpose)
3800: l_message VARCHAR2(2700);
3801: l_purpose_list VARCHAR2(10000);
3802: BEGIN
3803: -- Perform the Initializations
3804: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3805: -- Only one stream type of the following primary purposes should be defined.
3806: l_purpose_list := '';
3807: FOR only_one_as_primary_rec IN inv_only_one_as_primary_csr(p_gtt_id)
3808: LOOP
3851: END IF;
3852: x_error_msgs_tbl := l_error_msgs_tbl;
3853: x_return_status := l_return_status;
3854: EXCEPTION
3855: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3856: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3857: (l_api_name,
3858: G_PKG_NAME,
3859: 'OKL_API.G_RET_STS_ERROR',
3852: x_error_msgs_tbl := l_error_msgs_tbl;
3853: x_return_status := l_return_status;
3854: EXCEPTION
3855: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3856: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3857: (l_api_name,
3858: G_PKG_NAME,
3859: 'OKL_API.G_RET_STS_ERROR',
3860: x_msg_count,
3855: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3856: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3857: (l_api_name,
3858: G_PKG_NAME,
3859: 'OKL_API.G_RET_STS_ERROR',
3860: x_msg_count,
3861: x_msg_data,
3862: '_PVT');
3863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3859: 'OKL_API.G_RET_STS_ERROR',
3860: x_msg_count,
3861: x_msg_data,
3862: '_PVT');
3863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3864: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3865: ( l_api_name,
3866: G_PKG_NAME,
3867: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3860: x_msg_count,
3861: x_msg_data,
3862: '_PVT');
3863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3864: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3865: ( l_api_name,
3866: G_PKG_NAME,
3867: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3868: x_msg_count,
3863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3864: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3865: ( l_api_name,
3866: G_PKG_NAME,
3867: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3868: x_msg_count,
3869: x_msg_data,
3870: '_PVT');
3871: WHEN OTHERS THEN
3868: x_msg_count,
3869: x_msg_data,
3870: '_PVT');
3871: WHEN OTHERS THEN
3872: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3873: ( l_api_name,
3874: G_PKG_NAME,
3875: 'OTHERS',
3876: x_msg_count,
3903:
3904: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
3905: l_api_name CONSTANT VARCHAR2(40) := 'create_strm_gen_template';
3906: l_api_version CONSTANT NUMBER := 1.0;
3907: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3908:
3909: l_init_msg_list VARCHAR2(1);
3910: l_msg_count NUMBER;
3911: l_msg_data VARCHAR2(2000);
3908:
3909: l_init_msg_list VARCHAR2(1);
3910: l_msg_count NUMBER;
3911: l_msg_data VARCHAR2(2000);
3912: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
3913: l_gttv_rec_in gttv_rec_type;
3914: l_gttv_rec_out gttv_rec_type;
3915:
3916: CURSOR okl_st_gen_templates_csr(p_gtt_id IN OKL_ST_GEN_TEMPLATES.id%type) IS
3922: ,TMPT_STATUS
3923: FROM OKL_ST_GEN_TEMPLATES
3924: where ID = p_gtt_id;
3925: BEGIN
3926: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3927: l_return_status := OKL_API.START_ACTIVITY( l_api_name
3928: ,g_pkg_name
3929: ,p_init_msg_list
3930: ,l_api_version
3923: FROM OKL_ST_GEN_TEMPLATES
3924: where ID = p_gtt_id;
3925: BEGIN
3926: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3927: l_return_status := OKL_API.START_ACTIVITY( l_api_name
3928: ,g_pkg_name
3929: ,p_init_msg_list
3930: ,l_api_version
3931: ,p_api_version
3930: ,l_api_version
3931: ,p_api_version
3932: ,'_PVT'
3933: ,x_return_status);
3934: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3937: RAISE OKL_API.G_EXCEPTION_ERROR;
3938: END IF;
3931: ,p_api_version
3932: ,'_PVT'
3933: ,x_return_status);
3934: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3937: RAISE OKL_API.G_EXCEPTION_ERROR;
3938: END IF;
3939:
3932: ,'_PVT'
3933: ,x_return_status);
3934: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3937: RAISE OKL_API.G_EXCEPTION_ERROR;
3938: END IF;
3939:
3940: l_dummy := Okl_Api.G_FALSE;
3933: ,x_return_status);
3934: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3937: RAISE OKL_API.G_EXCEPTION_ERROR;
3938: END IF;
3939:
3940: l_dummy := Okl_Api.G_FALSE;
3941: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
3936: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3937: RAISE OKL_API.G_EXCEPTION_ERROR;
3938: END IF;
3939:
3940: l_dummy := Okl_Api.G_FALSE;
3941: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
3942: LOOP
3943: l_gttv_rec_in.id := gttv_rec_temp.id;
3944: l_gttv_rec_in.gts_id := gttv_rec_temp.gts_id;
3945: l_gttv_rec_in.version := gttv_rec_temp.version;
3946: l_gttv_rec_in.start_date := gttv_rec_temp.start_date;
3947: l_gttv_rec_in.end_date := gttv_rec_temp.end_date;
3948: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
3949: l_dummy := Okl_Api.G_TRUE;
3950: END LOOP;
3951:
3952: IF (l_dummy = okl_api.g_false) THEN
3953: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3948: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
3949: l_dummy := Okl_Api.G_TRUE;
3950: END LOOP;
3951:
3952: IF (l_dummy = okl_api.g_false) THEN
3953: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3954: p_msg_name => g_invalid_value,
3955: p_token1 => g_col_name_token,
3956: p_token1_value => 'GTT_ID');
3949: l_dummy := Okl_Api.G_TRUE;
3950: END LOOP;
3951:
3952: IF (l_dummy = okl_api.g_false) THEN
3953: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3954: p_msg_name => g_invalid_value,
3955: p_token1 => g_col_name_token,
3956: p_token1_value => 'GTT_ID');
3957: RAISE OKL_API.G_EXCEPTION_ERROR;
3953: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3954: p_msg_name => g_invalid_value,
3955: p_token1 => g_col_name_token,
3956: p_token1_value => 'GTT_ID');
3957: RAISE OKL_API.G_EXCEPTION_ERROR;
3958: END IF;
3959:
3960: -- Validations checked until now
3961: -- 1. Template status should be 'COMPLETE'
3970: ,x_msg_data => l_msg_data
3971: ,p_gttv_rec => l_gttv_rec_in
3972: ,x_gttv_rec => l_gttv_rec_out
3973: );
3974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3971: ,p_gttv_rec => l_gttv_rec_in
3972: ,x_gttv_rec => l_gttv_rec_out
3973: );
3974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3979: ELSE
3972: ,x_gttv_rec => l_gttv_rec_out
3973: );
3974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3979: ELSE
3980: -- Show a message saying that template status is not complete
3973: );
3974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3979: ELSE
3980: -- Show a message saying that template status is not complete
3981: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3979: ELSE
3980: -- Show a message saying that template status is not complete
3981: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3982: p_msg_name => g_invalid_value,
3983: p_token1 => g_col_name_token,
3984: p_token1_value => 'TMPT_STATUS');
3985: RAISE OKL_API.G_EXCEPTION_ERROR;
3981: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3982: p_msg_name => g_invalid_value,
3983: p_token1 => g_col_name_token,
3984: p_token1_value => 'TMPT_STATUS');
3985: RAISE OKL_API.G_EXCEPTION_ERROR;
3986: END IF;
3987: x_return_status := l_return_status;
3988: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3989: EXCEPTION
3984: p_token1_value => 'TMPT_STATUS');
3985: RAISE OKL_API.G_EXCEPTION_ERROR;
3986: END IF;
3987: x_return_status := l_return_status;
3988: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3989: EXCEPTION
3990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3992: (l_api_name,
3986: END IF;
3987: x_return_status := l_return_status;
3988: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3989: EXCEPTION
3990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3992: (l_api_name,
3993: G_PKG_NAME,
3994: 'OKL_API.G_RET_STS_ERROR',
3987: x_return_status := l_return_status;
3988: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3989: EXCEPTION
3990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3992: (l_api_name,
3993: G_PKG_NAME,
3994: 'OKL_API.G_RET_STS_ERROR',
3995: x_msg_count,
3990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3992: (l_api_name,
3993: G_PKG_NAME,
3994: 'OKL_API.G_RET_STS_ERROR',
3995: x_msg_count,
3996: x_msg_data,
3997: '_PVT');
3998: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3994: 'OKL_API.G_RET_STS_ERROR',
3995: x_msg_count,
3996: x_msg_data,
3997: '_PVT');
3998: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3999: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4000: ( l_api_name,
4001: G_PKG_NAME,
4002: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3995: x_msg_count,
3996: x_msg_data,
3997: '_PVT');
3998: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3999: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4000: ( l_api_name,
4001: G_PKG_NAME,
4002: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4003: x_msg_count,
3998: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3999: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4000: ( l_api_name,
4001: G_PKG_NAME,
4002: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4003: x_msg_count,
4004: x_msg_data,
4005: '_PVT');
4006: WHEN OTHERS THEN
4003: x_msg_count,
4004: x_msg_data,
4005: '_PVT');
4006: WHEN OTHERS THEN
4007: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4008: ( l_api_name,
4009: G_PKG_NAME,
4010: 'OTHERS',
4011: x_msg_count,
4039: )IS
4040: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
4041: l_api_name CONSTANT VARCHAR2(40) := 'validate_mandatory_dep';
4042: l_api_version CONSTANT NUMBER := 1.0;
4043: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4044:
4045: l_purpose_list VARCHAR2(10000);
4046: -- Cursor to fetch the missed dependent streams for a Primary Stream type
4047: -- with purpose as 'Fee Payment'
4079: SELECT 'FEE_RENEWAL' PURPOSE
4080: FROM DUAL
4081: WHERE p_exclude_fr = 'T'
4082: );
4083: l_exclude_fr VARCHAR2(1) := OKL_API.G_TRUE;
4084: BEGIN
4085: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4086:
4087: x_show_warn_flag := OKL_API.G_FALSE;
4081: WHERE p_exclude_fr = 'T'
4082: );
4083: l_exclude_fr VARCHAR2(1) := OKL_API.G_TRUE;
4084: BEGIN
4085: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4086:
4087: x_show_warn_flag := OKL_API.G_FALSE;
4088: l_purpose_list := '';
4089: IF ( belongs_to_ls(p_deal_type) = TRUE )
4083: l_exclude_fr VARCHAR2(1) := OKL_API.G_TRUE;
4084: BEGIN
4085: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4086:
4087: x_show_warn_flag := OKL_API.G_FALSE;
4088: l_purpose_list := '';
4089: IF ( belongs_to_ls(p_deal_type) = TRUE )
4090: THEN
4091: l_exclude_fr := 'F';
4095: l_purpose_list := l_purpose_list ||
4096: OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING(
4097: G_OKL_FIN_DEPENDENT_PURPOSES, fee_payment_man_dep_rec.purpose )
4098: || ',';
4099: x_show_warn_flag := OKL_API.G_TRUE;
4100: END LOOP;
4101:
4102: l_purpose_list := rtrim( l_purpose_list,',' );
4103: x_missing_deps := l_purpose_list;
4102: l_purpose_list := rtrim( l_purpose_list,',' );
4103: x_missing_deps := l_purpose_list;
4104: x_return_status := l_return_status;
4105: EXCEPTION
4106: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4107: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4108: (l_api_name,
4109: G_PKG_NAME,
4110: 'OKL_API.G_RET_STS_ERROR',
4103: x_missing_deps := l_purpose_list;
4104: x_return_status := l_return_status;
4105: EXCEPTION
4106: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4107: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4108: (l_api_name,
4109: G_PKG_NAME,
4110: 'OKL_API.G_RET_STS_ERROR',
4111: x_msg_count,
4106: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4107: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4108: (l_api_name,
4109: G_PKG_NAME,
4110: 'OKL_API.G_RET_STS_ERROR',
4111: x_msg_count,
4112: x_msg_data,
4113: '_PVT');
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4110: 'OKL_API.G_RET_STS_ERROR',
4111: x_msg_count,
4112: x_msg_data,
4113: '_PVT');
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4115: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4116: ( l_api_name,
4117: G_PKG_NAME,
4118: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4111: x_msg_count,
4112: x_msg_data,
4113: '_PVT');
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4115: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4116: ( l_api_name,
4117: G_PKG_NAME,
4118: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4119: x_msg_count,
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4115: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4116: ( l_api_name,
4117: G_PKG_NAME,
4118: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4119: x_msg_count,
4120: x_msg_data,
4121: '_PVT');
4122: WHEN OTHERS THEN
4119: x_msg_count,
4120: x_msg_data,
4121: '_PVT');
4122: WHEN OTHERS THEN
4123: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4124: ( l_api_name,
4125: G_PKG_NAME,
4126: 'OTHERS',
4127: x_msg_count,
4155:
4156: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
4157: l_api_name CONSTANT VARCHAR2(40) := 'validate_for_warnings';
4158: l_api_version CONSTANT NUMBER := 1.0;
4159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4160: l_missing_deps VARCHAR2(32000);
4161: l_show_warn_flag VARCHAR2(1) := OKL_API.G_FALSE;
4162: l_wrn_msgs_tbl error_msgs_tbl_type;
4163: l_msgs_count NUMBER := 1;
4157: l_api_name CONSTANT VARCHAR2(40) := 'validate_for_warnings';
4158: l_api_version CONSTANT NUMBER := 1.0;
4159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4160: l_missing_deps VARCHAR2(32000);
4161: l_show_warn_flag VARCHAR2(1) := OKL_API.G_FALSE;
4162: l_wrn_msgs_tbl error_msgs_tbl_type;
4163: l_msgs_count NUMBER := 1;
4164: l_message VARCHAR2(2700);
4165: l_pri_purpose_list VARCHAR2(32000);
4180: AND GTL.PRIMARY_YN = 'Y'
4181: AND GTL.PRIMARY_STY_ID = STB.ID
4182: AND STB.STREAM_TYPE_PURPOSE = 'FEE_PAYMENT';
4183: BEGIN
4184: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4185: l_pri_purpose_list := '';
4186: FOR fee_payment_pri_strms_rec IN fee_payment_pri_strms_csr(p_gtt_id)
4187: LOOP
4188: validate_mandatory_dep(
4196: ,x_missing_deps => l_missing_deps
4197: ,x_show_warn_flag => l_show_warn_flag
4198: ,p_deal_type => fee_payment_pri_strms_rec.deal_type
4199: );
4200: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4202: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_ERROR;
4204: END IF;
4197: ,x_show_warn_flag => l_show_warn_flag
4198: ,p_deal_type => fee_payment_pri_strms_rec.deal_type
4199: );
4200: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4202: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_ERROR;
4204: END IF;
4205: IF ( l_show_warn_flag <> OKL_API.G_FALSE )
4198: ,p_deal_type => fee_payment_pri_strms_rec.deal_type
4199: );
4200: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4202: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_ERROR;
4204: END IF;
4205: IF ( l_show_warn_flag <> OKL_API.G_FALSE )
4206: THEN
4199: );
4200: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4202: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_ERROR;
4204: END IF;
4205: IF ( l_show_warn_flag <> OKL_API.G_FALSE )
4206: THEN
4207: put_messages_in_table( 'OKL_ST_SGT_MAN_DEP_MISSING_WRN'
4201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4202: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_ERROR;
4204: END IF;
4205: IF ( l_show_warn_flag <> OKL_API.G_FALSE )
4206: THEN
4207: put_messages_in_table( 'OKL_ST_SGT_MAN_DEP_MISSING_WRN'
4208: ,p_during_upd_flag
4209: ,l_message
4225: x_wrn_msgs_tbl := l_wrn_msgs_tbl;
4226: x_pri_purpose_list := rtrim( l_pri_purpose_list,',' );
4227: x_return_status := l_return_status;
4228: EXCEPTION
4229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4231: (l_api_name,
4232: G_PKG_NAME,
4233: 'OKL_API.G_RET_STS_ERROR',
4226: x_pri_purpose_list := rtrim( l_pri_purpose_list,',' );
4227: x_return_status := l_return_status;
4228: EXCEPTION
4229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4231: (l_api_name,
4232: G_PKG_NAME,
4233: 'OKL_API.G_RET_STS_ERROR',
4234: x_msg_count,
4229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4231: (l_api_name,
4232: G_PKG_NAME,
4233: 'OKL_API.G_RET_STS_ERROR',
4234: x_msg_count,
4235: x_msg_data,
4236: '_PVT');
4237: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4233: 'OKL_API.G_RET_STS_ERROR',
4234: x_msg_count,
4235: x_msg_data,
4236: '_PVT');
4237: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4238: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4239: ( l_api_name,
4240: G_PKG_NAME,
4241: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4234: x_msg_count,
4235: x_msg_data,
4236: '_PVT');
4237: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4238: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4239: ( l_api_name,
4240: G_PKG_NAME,
4241: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4242: x_msg_count,
4237: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4238: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4239: ( l_api_name,
4240: G_PKG_NAME,
4241: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4242: x_msg_count,
4243: x_msg_data,
4244: '_PVT');
4245: WHEN OTHERS THEN
4242: x_msg_count,
4243: x_msg_data,
4244: '_PVT');
4245: WHEN OTHERS THEN
4246: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4247: ( l_api_name,
4248: G_PKG_NAME,
4249: 'OTHERS',
4250: x_msg_count,
4277: )IS
4278: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
4279: l_api_name CONSTANT VARCHAR2(40) := 'validate_template';
4280: l_api_version CONSTANT NUMBER := 1.0;
4281: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4282: l_error_msgs_tbl error_msgs_tbl_type;
4283: l_wrn_msgs_tbl error_msgs_tbl_type;
4284:
4285: l_init_msg_list VARCHAR2(1);
4285: l_init_msg_list VARCHAR2(1);
4286: l_msg_count NUMBER;
4287: l_msg_data VARCHAR2(2000);
4288:
4289: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
4290: l_pri_purpose_list VARCHAR2(32000);
4291:
4292: l_gttv_rec_in gttv_rec_type;
4293: l_gttv_rec_out gttv_rec_type;
4308: AND GTT.ID = p_gtt_id;
4309: l_tmpt_set_rec okl_st_gen_templates_csr%ROWTYPE;
4310: BEGIN
4311: -- Perform the Initializations
4312: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4313: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4314: ,g_pkg_name
4315: ,p_init_msg_list
4316: ,l_api_version
4309: l_tmpt_set_rec okl_st_gen_templates_csr%ROWTYPE;
4310: BEGIN
4311: -- Perform the Initializations
4312: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4313: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4314: ,g_pkg_name
4315: ,p_init_msg_list
4316: ,l_api_version
4317: ,p_api_version
4316: ,l_api_version
4317: ,p_api_version
4318: ,'_PVT'
4319: ,x_return_status);
4320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4323: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: END IF;
4317: ,p_api_version
4318: ,'_PVT'
4319: ,x_return_status);
4320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4323: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: END IF;
4325: l_dummy := Okl_Api.G_FALSE;
4318: ,'_PVT'
4319: ,x_return_status);
4320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4323: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: END IF;
4325: l_dummy := Okl_Api.G_FALSE;
4326: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
4319: ,x_return_status);
4320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4323: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: END IF;
4325: l_dummy := Okl_Api.G_FALSE;
4326: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
4327: LOOP
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4323: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: END IF;
4325: l_dummy := Okl_Api.G_FALSE;
4326: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
4327: LOOP
4328: l_tmpt_set_rec.id := gttv_rec_temp.id;
4329: l_tmpt_set_rec.gts_id := gttv_rec_temp.gts_id;
4332: l_tmpt_set_rec.tmpt_status := gttv_rec_temp.tmpt_status;
4333: l_tmpt_set_rec.deal_type := gttv_rec_temp.deal_type;
4334: l_tmpt_set_rec.product_type := gttv_rec_temp.product_type;
4335: l_tmpt_set_rec.version := gttv_rec_temp.version;
4336: l_dummy := Okl_Api.G_TRUE;
4337: END LOOP;
4338: IF (l_dummy = okl_api.g_false) THEN
4339: okl_api.SET_MESSAGE( p_app_name => g_app_name,
4340: p_msg_name => g_invalid_value,
4334: l_tmpt_set_rec.product_type := gttv_rec_temp.product_type;
4335: l_tmpt_set_rec.version := gttv_rec_temp.version;
4336: l_dummy := Okl_Api.G_TRUE;
4337: END LOOP;
4338: IF (l_dummy = okl_api.g_false) THEN
4339: okl_api.SET_MESSAGE( p_app_name => g_app_name,
4340: p_msg_name => g_invalid_value,
4341: p_token1 => g_col_name_token,
4342: p_token1_value => 'GTT_ID');
4335: l_tmpt_set_rec.version := gttv_rec_temp.version;
4336: l_dummy := Okl_Api.G_TRUE;
4337: END LOOP;
4338: IF (l_dummy = okl_api.g_false) THEN
4339: okl_api.SET_MESSAGE( p_app_name => g_app_name,
4340: p_msg_name => g_invalid_value,
4341: p_token1 => g_col_name_token,
4342: p_token1_value => 'GTT_ID');
4343: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: okl_api.SET_MESSAGE( p_app_name => g_app_name,
4340: p_msg_name => g_invalid_value,
4341: p_token1 => g_col_name_token,
4342: p_token1_value => 'GTT_ID');
4343: RAISE OKL_API.G_EXCEPTION_ERROR;
4344: END IF;
4345: -- If the Product Type is INVESTOR call the validate_investor_template api
4346: IF ( l_tmpt_set_rec.product_type = G_INVESTOR_PRODUCT )
4347: THEN
4367: ,l_error_msgs_tbl
4368: ,p_during_upd_flag
4369: ,l_tmpt_set_rec.deal_type);
4370: END IF;
4371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4374: RAISE OKL_API.G_EXCEPTION_ERROR;
4375: END IF;
4368: ,p_during_upd_flag
4369: ,l_tmpt_set_rec.deal_type);
4370: END IF;
4371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4374: RAISE OKL_API.G_EXCEPTION_ERROR;
4375: END IF;
4376: -- Update the template status based on the x_return_status
4369: ,l_tmpt_set_rec.deal_type);
4370: END IF;
4371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4374: RAISE OKL_API.G_EXCEPTION_ERROR;
4375: END IF;
4376: -- Update the template status based on the x_return_status
4377: -- or l_error_msgs_tbl.COUNT
4370: END IF;
4371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4374: RAISE OKL_API.G_EXCEPTION_ERROR;
4375: END IF;
4376: -- Update the template status based on the x_return_status
4377: -- or l_error_msgs_tbl.COUNT
4378: l_gttv_rec_in.id := l_tmpt_set_rec.id;
4413: ,x_msg_data => x_msg_data
4414: ,p_gttv_rec => l_gttv_rec_in
4415: ,x_gttv_rec => l_gttv_rec_out
4416: );
4417: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4420: RAISE OKL_API.G_EXCEPTION_ERROR;
4421: END IF;
4414: ,p_gttv_rec => l_gttv_rec_in
4415: ,x_gttv_rec => l_gttv_rec_out
4416: );
4417: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4420: RAISE OKL_API.G_EXCEPTION_ERROR;
4421: END IF;
4422: -- Call the validate_for_Warnings only when
4415: ,x_gttv_rec => l_gttv_rec_out
4416: );
4417: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4420: RAISE OKL_API.G_EXCEPTION_ERROR;
4421: END IF;
4422: -- Call the validate_for_Warnings only when
4423: -- a. If the template is Financial, and its not during Update mode
4416: );
4417: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4420: RAISE OKL_API.G_EXCEPTION_ERROR;
4421: END IF;
4422: -- Call the validate_for_Warnings only when
4423: -- a. If the template is Financial, and its not during Update mode
4424: IF ( p_during_upd_flag = OKL_API.G_FALSE
4420: RAISE OKL_API.G_EXCEPTION_ERROR;
4421: END IF;
4422: -- Call the validate_for_Warnings only when
4423: -- a. If the template is Financial, and its not during Update mode
4424: IF ( p_during_upd_flag = OKL_API.G_FALSE
4425: AND l_tmpt_set_rec.product_type <> G_INVESTOR_PRODUCT )
4426: THEN
4427: validate_for_warnings(
4428: p_api_version => p_api_version
4431: ,x_msg_count => x_msg_count
4432: ,x_msg_data => x_msg_data
4433: ,p_gtt_id => l_gtt_id
4434: ,x_wrn_msgs_tbl => l_wrn_msgs_tbl
4435: ,p_during_upd_flag => OKL_API.G_FALSE
4436: ,x_pri_purpose_list => l_pri_purpose_list
4437: );
4438: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ,x_wrn_msgs_tbl => l_wrn_msgs_tbl
4435: ,p_during_upd_flag => OKL_API.G_FALSE
4436: ,x_pri_purpose_list => l_pri_purpose_list
4437: );
4438: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4440: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4441: RAISE OKL_API.G_EXCEPTION_ERROR;
4442: END IF;
4435: ,p_during_upd_flag => OKL_API.G_FALSE
4436: ,x_pri_purpose_list => l_pri_purpose_list
4437: );
4438: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4440: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4441: RAISE OKL_API.G_EXCEPTION_ERROR;
4442: END IF;
4443: -- Add the messages to the errors table
4436: ,x_pri_purpose_list => l_pri_purpose_list
4437: );
4438: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4440: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4441: RAISE OKL_API.G_EXCEPTION_ERROR;
4442: END IF;
4443: -- Add the messages to the errors table
4444: l_msg_count := l_error_msgs_tbl.COUNT;
4437: );
4438: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4440: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4441: RAISE OKL_API.G_EXCEPTION_ERROR;
4442: END IF;
4443: -- Add the messages to the errors table
4444: l_msg_count := l_error_msgs_tbl.COUNT;
4445: IF ( l_wrn_msgs_tbl.COUNT > 0 )
4455: END IF;
4456: x_error_msgs_tbl := l_error_msgs_tbl;
4457: x_return_tmpt_status := l_gttv_rec_out.tmpt_status;
4458: x_return_status := l_return_status;
4459: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4460: EXCEPTION
4461: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4462: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4463: (l_api_name,
4457: x_return_tmpt_status := l_gttv_rec_out.tmpt_status;
4458: x_return_status := l_return_status;
4459: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4460: EXCEPTION
4461: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4462: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4463: (l_api_name,
4464: G_PKG_NAME,
4465: 'OKL_API.G_RET_STS_ERROR',
4458: x_return_status := l_return_status;
4459: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4460: EXCEPTION
4461: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4462: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4463: (l_api_name,
4464: G_PKG_NAME,
4465: 'OKL_API.G_RET_STS_ERROR',
4466: x_msg_count,
4461: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4462: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4463: (l_api_name,
4464: G_PKG_NAME,
4465: 'OKL_API.G_RET_STS_ERROR',
4466: x_msg_count,
4467: x_msg_data,
4468: '_PVT');
4469: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4465: 'OKL_API.G_RET_STS_ERROR',
4466: x_msg_count,
4467: x_msg_data,
4468: '_PVT');
4469: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4470: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4471: ( l_api_name,
4472: G_PKG_NAME,
4473: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4466: x_msg_count,
4467: x_msg_data,
4468: '_PVT');
4469: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4470: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4471: ( l_api_name,
4472: G_PKG_NAME,
4473: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4474: x_msg_count,
4469: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4470: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4471: ( l_api_name,
4472: G_PKG_NAME,
4473: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4474: x_msg_count,
4475: x_msg_data,
4476: '_PVT');
4477: WHEN OTHERS THEN
4474: x_msg_count,
4475: x_msg_data,
4476: '_PVT');
4477: WHEN OTHERS THEN
4478: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4479: ( l_api_name,
4480: G_PKG_NAME,
4481: 'OTHERS',
4482: x_msg_count,
4510: ,x_show_warn_flag OUT NOCOPY VARCHAR2
4511: )IS
4512: l_api_name CONSTANT VARCHAR2(40) := 'update_dep_strms';
4513: l_api_version CONSTANT NUMBER := 1.0;
4514: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4515:
4516: l_init_msg_list VARCHAR2(1);
4517: l_msg_count NUMBER;
4518: l_msg_data VARCHAR2(2000);
4552: AND GTL.PRIMARY_STY_ID = p_pri_id
4553: GROUP BY STY.STREAM_TYPE_PURPOSE
4554: HAVING COUNT( STREAM_TYPE_PURPOSE) > 1;
4555:
4556: l_found VARCHAR2(1) := OKL_API.G_FALSE;
4557: l_gtt_id OKL_ST_GEN_TMPT_LNS.GTT_ID%TYPE;
4558: l_pri_sty_id OKL_ST_GEN_TMPT_LNS.PRIMARY_STY_ID%TYPE;
4559: l_purp_list VARCHAR2(250);
4560: -- Bug 4054596: Issue No. 5: End
4581: AND GTL.PRIMARY_YN = 'Y'
4582: AND GTL.GTT_ID = p_gtt_id
4583: AND GTL.PRIMARY_STY_ID = p_pri_sty_id;
4584:
4585: l_missing_deps VARCHAR2(32000) := OKL_API.G_MISS_CHAR;
4586: l_show_warn_flag VARCHAR2(1):= OKL_API.G_FALSE;
4587: l_pri_strm_purpose OKL_STRM_TYPE_B.STREAM_TYPE_PURPOSE%TYPE;
4588:
4589: -- Modified by RGOOTY
4582: AND GTL.GTT_ID = p_gtt_id
4583: AND GTL.PRIMARY_STY_ID = p_pri_sty_id;
4584:
4585: l_missing_deps VARCHAR2(32000) := OKL_API.G_MISS_CHAR;
4586: l_show_warn_flag VARCHAR2(1):= OKL_API.G_FALSE;
4587: l_pri_strm_purpose OKL_STRM_TYPE_B.STREAM_TYPE_PURPOSE%TYPE;
4588:
4589: -- Modified by RGOOTY
4590: -- Bug 4094361: Start
4601: l_sgt_set_id OKL_ST_GEN_TMPT_SETS.ID%TYPE;
4602: -- Bug 4094361: End
4603: BEGIN
4604: -- Perform the Initializations
4605: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4606: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4607: ,g_pkg_name
4608: ,p_init_msg_list
4609: ,l_api_version
4602: -- Bug 4094361: End
4603: BEGIN
4604: -- Perform the Initializations
4605: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4606: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4607: ,g_pkg_name
4608: ,p_init_msg_list
4609: ,l_api_version
4610: ,p_api_version
4609: ,l_api_version
4610: ,p_api_version
4611: ,'_PVT'
4612: ,x_return_status);
4613: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4615: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4616: RAISE OKL_API.G_EXCEPTION_ERROR;
4617: END IF;
4610: ,p_api_version
4611: ,'_PVT'
4612: ,x_return_status);
4613: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4615: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4616: RAISE OKL_API.G_EXCEPTION_ERROR;
4617: END IF;
4618: -- Updating/Inserting the Template Lines
4611: ,'_PVT'
4612: ,x_return_status);
4613: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4615: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4616: RAISE OKL_API.G_EXCEPTION_ERROR;
4617: END IF;
4618: -- Updating/Inserting the Template Lines
4619: IF (p_gtlv_tbl.COUNT > 0) THEN
4612: ,x_return_status);
4613: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4615: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4616: RAISE OKL_API.G_EXCEPTION_ERROR;
4617: END IF;
4618: -- Updating/Inserting the Template Lines
4619: IF (p_gtlv_tbl.COUNT > 0) THEN
4620: ins_table_count :=0;
4621: upd_table_count :=0;
4622: FOR i IN p_gtlv_tbl.FIRST .. p_gtlv_tbl.LAST
4623: LOOP
4624: -- Decide whether we need to update or insert the Template Lines.
4625: IF (p_gtlv_tbl(i).id = Okl_Api.G_MISS_NUM OR p_gtlv_tbl(i).id IS NULL
4626: OR p_gtlv_tbl(i).id = 0 )
4627: THEN
4628: -- Copy into the Insert table
4629: l_gtlv_tbl_ins_in(ins_table_count) := p_gtlv_tbl(i);
4645: ,x_msg_data => l_msg_data
4646: ,p_gtlv_tbl => l_gtlv_tbl_ins_in
4647: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
4648: );
4649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4652: RAISE OKL_API.G_EXCEPTION_ERROR;
4653: END IF;
4646: ,p_gtlv_tbl => l_gtlv_tbl_ins_in
4647: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
4648: );
4649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4652: RAISE OKL_API.G_EXCEPTION_ERROR;
4653: END IF;
4654: END IF;
4647: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
4648: );
4649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4652: RAISE OKL_API.G_EXCEPTION_ERROR;
4653: END IF;
4654: END IF;
4655: IF (l_gtlv_tbl_upd_in.count > 0 )
4648: );
4649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4652: RAISE OKL_API.G_EXCEPTION_ERROR;
4653: END IF;
4654: END IF;
4655: IF (l_gtlv_tbl_upd_in.count > 0 )
4656: THEN
4663: ,x_msg_data => l_msg_data
4664: ,p_gtlv_tbl => l_gtlv_tbl_upd_in
4665: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
4666: );
4667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4670: RAISE OKL_API.G_EXCEPTION_ERROR;
4671: END IF;
4664: ,p_gtlv_tbl => l_gtlv_tbl_upd_in
4665: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
4666: );
4667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4670: RAISE OKL_API.G_EXCEPTION_ERROR;
4671: END IF;
4672: END IF;
4665: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
4666: );
4667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4670: RAISE OKL_API.G_EXCEPTION_ERROR;
4671: END IF;
4672: END IF;
4673: END IF;
4666: );
4667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4670: RAISE OKL_API.G_EXCEPTION_ERROR;
4671: END IF;
4672: END IF;
4673: END IF;
4674: /*
4674: /*
4675:
4676: -- Modified by RGOOTY
4677: -- Bug 4054596: Issue No. 5: Start
4678: l_found := OKL_API.G_FALSE;
4679: l_gtt_id := p_gtt_id;--p_gtlv_tbl( p_gtlv_tbl.FIRST ).gtt_id;
4680: l_pri_sty_id := p_pri_sty_id; --p_gtlv_tbl( p_gtlv_tbl.FIRST).primary_sty_id;
4681: l_purp_list := '';
4682: FOR okl_dep_dup_rec In okl_dep_purpose_dup_csr( l_gtt_id, l_pri_sty_id )
4680: l_pri_sty_id := p_pri_sty_id; --p_gtlv_tbl( p_gtlv_tbl.FIRST).primary_sty_id;
4681: l_purp_list := '';
4682: FOR okl_dep_dup_rec In okl_dep_purpose_dup_csr( l_gtt_id, l_pri_sty_id )
4683: LOOP
4684: l_found := OKL_API.G_TRUE;
4685: l_purp_list := l_purp_list || okl_dep_dup_rec.purpose_meaning || ',';
4686: END LOOP;
4687: IF (l_found = Okl_Api.G_TRUE) THEN
4688: l_purp_list := RTRIM( l_purp_list,',' );
4683: LOOP
4684: l_found := OKL_API.G_TRUE;
4685: l_purp_list := l_purp_list || okl_dep_dup_rec.purpose_meaning || ',';
4686: END LOOP;
4687: IF (l_found = Okl_Api.G_TRUE) THEN
4688: l_purp_list := RTRIM( l_purp_list,',' );
4689: Okl_Api.SET_MESSAGE( p_app_name => g_app_name,
4690: p_msg_name => 'OKL_ST_SGT_DUP_DEP_PURPOSE',
4691: p_token1 => 'TEXT',
4685: l_purp_list := l_purp_list || okl_dep_dup_rec.purpose_meaning || ',';
4686: END LOOP;
4687: IF (l_found = Okl_Api.G_TRUE) THEN
4688: l_purp_list := RTRIM( l_purp_list,',' );
4689: Okl_Api.SET_MESSAGE( p_app_name => g_app_name,
4690: p_msg_name => 'OKL_ST_SGT_DUP_DEP_PURPOSE',
4691: p_token1 => 'TEXT',
4692: p_token1_value => l_purp_list);
4693: l_return_status := Okl_Api.G_RET_STS_ERROR;
4689: Okl_Api.SET_MESSAGE( p_app_name => g_app_name,
4690: p_msg_name => 'OKL_ST_SGT_DUP_DEP_PURPOSE',
4691: p_token1 => 'TEXT',
4692: p_token1_value => l_purp_list);
4693: l_return_status := Okl_Api.G_RET_STS_ERROR;
4694: RAISE Okl_Api.G_EXCEPTION_ERROR;
4695: END IF;
4696: -- Bug 4054596: Issue No. 5: End
4697:
4690: p_msg_name => 'OKL_ST_SGT_DUP_DEP_PURPOSE',
4691: p_token1 => 'TEXT',
4692: p_token1_value => l_purp_list);
4693: l_return_status := Okl_Api.G_RET_STS_ERROR;
4694: RAISE Okl_Api.G_EXCEPTION_ERROR;
4695: END IF;
4696: -- Bug 4054596: Issue No. 5: End
4697:
4698: IF( p_gtt_id IS NOT NULL AND p_gtt_id <> OKL_API.G_MISS_NUM AND
4694: RAISE Okl_Api.G_EXCEPTION_ERROR;
4695: END IF;
4696: -- Bug 4054596: Issue No. 5: End
4697:
4698: IF( p_gtt_id IS NOT NULL AND p_gtt_id <> OKL_API.G_MISS_NUM AND
4699: p_pri_sty_id IS NOT NULL AND p_pri_sty_id <> OKL_API.G_MISS_NUM )
4700: THEN
4701: FOR tmpt_det_rec IN tmpt_det_csr( p_gtt_id )
4702: LOOP
4695: END IF;
4696: -- Bug 4054596: Issue No. 5: End
4697:
4698: IF( p_gtt_id IS NOT NULL AND p_gtt_id <> OKL_API.G_MISS_NUM AND
4699: p_pri_sty_id IS NOT NULL AND p_pri_sty_id <> OKL_API.G_MISS_NUM )
4700: THEN
4701: FOR tmpt_det_rec IN tmpt_det_csr( p_gtt_id )
4702: LOOP
4703: l_deal_type := tmpt_det_rec.deal_type;
4725: ,p_during_upd_flag => 'T'
4726: );
4727: IF ( l_error_msgs_tbl.count > 0 )
4728: THEN
4729: x_return_status := Okl_Api.G_RET_STS_ERROR;
4730: RAISE Okl_Api.G_EXCEPTION_ERROR;
4731: END If;
4732: -- end changes by bkatraga
4733:
4726: );
4727: IF ( l_error_msgs_tbl.count > 0 )
4728: THEN
4729: x_return_status := Okl_Api.G_RET_STS_ERROR;
4730: RAISE Okl_Api.G_EXCEPTION_ERROR;
4731: END If;
4732: -- end changes by bkatraga
4733:
4734: FOR pdt_rec IN pdt_for_active_sgt_csr( l_sgt_set_id )
4740: x_msg_count => x_msg_count,
4741: x_msg_data => x_msg_data,
4742: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
4743: p_pdt_id => pdt_rec.pdt_id );
4744: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4741: x_msg_data => x_msg_data,
4742: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
4743: p_pdt_id => pdt_rec.pdt_id );
4744: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749: END LOOP;
4742: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
4743: p_pdt_id => pdt_rec.pdt_id );
4744: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749: END LOOP;
4750: -- Bug 4094361: End
4743: p_pdt_id => pdt_rec.pdt_id );
4744: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749: END LOOP;
4750: -- Bug 4094361: End
4751: END IF;
4768: ,x_missing_deps => l_missing_deps
4769: ,x_show_warn_flag => l_show_warn_flag
4770: ,p_deal_type => l_deal_type
4771: );
4772: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_ERROR;
4776: END IF;
4769: ,x_show_warn_flag => l_show_warn_flag
4770: ,p_deal_type => l_deal_type
4771: );
4772: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_ERROR;
4776: END IF;
4777: x_missing_deps := l_missing_deps;
4770: ,p_deal_type => l_deal_type
4771: );
4772: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_ERROR;
4776: END IF;
4777: x_missing_deps := l_missing_deps;
4778: x_show_warn_flag := l_show_warn_flag;
4771: );
4772: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_ERROR;
4776: END IF;
4777: x_missing_deps := l_missing_deps;
4778: x_show_warn_flag := l_show_warn_flag;
4779:
4780: END IF;
4781: END IF;
4782: */
4783: x_return_status := l_return_status;
4784: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4785: EXCEPTION
4786: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4787: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4788: (l_api_name,
4782: */
4783: x_return_status := l_return_status;
4784: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4785: EXCEPTION
4786: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4787: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4788: (l_api_name,
4789: G_PKG_NAME,
4790: 'OKL_API.G_RET_STS_ERROR',
4783: x_return_status := l_return_status;
4784: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4785: EXCEPTION
4786: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4787: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4788: (l_api_name,
4789: G_PKG_NAME,
4790: 'OKL_API.G_RET_STS_ERROR',
4791: x_msg_count,
4786: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4787: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4788: (l_api_name,
4789: G_PKG_NAME,
4790: 'OKL_API.G_RET_STS_ERROR',
4791: x_msg_count,
4792: x_msg_data,
4793: '_PVT');
4794: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4790: 'OKL_API.G_RET_STS_ERROR',
4791: x_msg_count,
4792: x_msg_data,
4793: '_PVT');
4794: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4795: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4796: ( l_api_name,
4797: G_PKG_NAME,
4798: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4791: x_msg_count,
4792: x_msg_data,
4793: '_PVT');
4794: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4795: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4796: ( l_api_name,
4797: G_PKG_NAME,
4798: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4799: x_msg_count,
4794: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4795: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4796: ( l_api_name,
4797: G_PKG_NAME,
4798: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4799: x_msg_count,
4800: x_msg_data,
4801: '_PVT');
4802: WHEN OTHERS THEN
4799: x_msg_count,
4800: x_msg_data,
4801: '_PVT');
4802: WHEN OTHERS THEN
4803: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4804: ( l_api_name,
4805: G_PKG_NAME,
4806: 'OTHERS',
4807: x_msg_count,
4885: AND SGT.ID = p_gts_id;
4886:
4887: l_api_name CONSTANT VARCHAR2(40) := 'update_pri_dep_of_sgt';
4888: l_api_version CONSTANT NUMBER := 1.0;
4889: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4890: -- Local Variables Declaration
4891: l_missing_deps VARCHAR2(32000);
4892: l_show_warn_flag VARCHAR2(30);
4893: l_error_msgs_tbl error_msgs_tbl_type;
4898: l_msg VARCHAR2(10000);
4899: l_pri_stream_name OKL_STRM_TYPE_B.CODE%TYPE;
4900: l_dep_purp_list VARCHAR2(32000);
4901: BEGIN
4902: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4903: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4904: ,g_pkg_name
4905: ,p_init_msg_list
4906: ,l_api_version
4899: l_pri_stream_name OKL_STRM_TYPE_B.CODE%TYPE;
4900: l_dep_purp_list VARCHAR2(32000);
4901: BEGIN
4902: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4903: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4904: ,g_pkg_name
4905: ,p_init_msg_list
4906: ,l_api_version
4907: ,p_api_version
4906: ,l_api_version
4907: ,p_api_version
4908: ,'_PVT'
4909: ,x_return_status);
4910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4913: RAISE OKL_API.G_EXCEPTION_ERROR;
4914: END IF;
4907: ,p_api_version
4908: ,'_PVT'
4909: ,x_return_status);
4910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4913: RAISE OKL_API.G_EXCEPTION_ERROR;
4914: END IF;
4915: -- Call the update api which takes care of updating the
4908: ,'_PVT'
4909: ,x_return_status);
4910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4913: RAISE OKL_API.G_EXCEPTION_ERROR;
4914: END IF;
4915: -- Call the update api which takes care of updating the
4916: -- SGT Set, Version, Pricing Params and Primary Lines
4909: ,x_return_status);
4910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4913: RAISE OKL_API.G_EXCEPTION_ERROR;
4914: END IF;
4915: -- Call the update api which takes care of updating the
4916: -- SGT Set, Version, Pricing Params and Primary Lines
4917: -- This API should not validate even the SGT status is active or not !
4926: p_gttv_rec => p_gttv_rec,
4927: p_gtpv_tbl => p_gtpv_tbl,
4928: p_gtlv_tbl => p_pri_gtlv_tbl,
4929: x_gttv_rec => x_gttv_rec);
4930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_ERROR;
4934: END IF;
4927: p_gtpv_tbl => p_gtpv_tbl,
4928: p_gtlv_tbl => p_pri_gtlv_tbl,
4929: x_gttv_rec => x_gttv_rec);
4930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_ERROR;
4934: END IF;
4935: END IF;
4928: p_gtlv_tbl => p_pri_gtlv_tbl,
4929: x_gttv_rec => x_gttv_rec);
4930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_ERROR;
4934: END IF;
4935: END IF;
4936: -- Call the API which deletes the Dependents
4929: x_gttv_rec => x_gttv_rec);
4930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_ERROR;
4934: END IF;
4935: END IF;
4936: -- Call the API which deletes the Dependents
4937: -- Dependents will be deleted only if the SGT was not in Active Status
4943: x_return_status => l_return_status,
4944: x_msg_count => x_msg_count,
4945: x_msg_data => x_msg_data,
4946: p_gtlv_tbl => p_del_dep_gtlv_tbl);
4947: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4949: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4950: RAISE OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4944: x_msg_count => x_msg_count,
4945: x_msg_data => x_msg_data,
4946: p_gtlv_tbl => p_del_dep_gtlv_tbl);
4947: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4949: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4950: RAISE OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4952: END IF;
4945: x_msg_data => x_msg_data,
4946: p_gtlv_tbl => p_del_dep_gtlv_tbl);
4947: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4949: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4950: RAISE OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4952: END IF;
4953: -- Call the update API which takes care of updating/inserting the
4946: p_gtlv_tbl => p_del_dep_gtlv_tbl);
4947: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4949: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4950: RAISE OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4952: END IF;
4953: -- Call the update API which takes care of updating/inserting the
4954: -- dependent streams of the Stream Generation Template
4965: p_pri_sty_id => NULL, -- Not mandatory
4966: p_gtlv_tbl => p_ins_dep_gtlv_tbl,
4967: x_missing_deps => l_missing_deps,
4968: x_show_warn_flag => l_show_warn_flag);
4969: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4972: RAISE OKL_API.G_EXCEPTION_ERROR;
4973: END IF;
4966: p_gtlv_tbl => p_ins_dep_gtlv_tbl,
4967: x_missing_deps => l_missing_deps,
4968: x_show_warn_flag => l_show_warn_flag);
4969: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4972: RAISE OKL_API.G_EXCEPTION_ERROR;
4973: END IF;
4974: END IF;
4967: x_missing_deps => l_missing_deps,
4968: x_show_warn_flag => l_show_warn_flag);
4969: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4972: RAISE OKL_API.G_EXCEPTION_ERROR;
4973: END IF;
4974: END IF;
4975: -- Imposing the following Validation:
4968: x_show_warn_flag => l_show_warn_flag);
4969: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4972: RAISE OKL_API.G_EXCEPTION_ERROR;
4973: END IF;
4974: END IF;
4975: -- Imposing the following Validation:
4976: -- RULE:
4976: -- RULE:
4977: -- For a particular Primary Stream, we shouldnot have
4978: -- two dependant streams with same purpose.
4979: -- Loop through all the Primary Stream types of this SGT
4980: l_found := OKL_API.G_FALSE;
4981: l_pri_stream_name := NULL;
4982: l_dep_purp_list := ' ';
4983: FOR t_rec IN okl_dep_purpose_dup_csr( x_gttv_rec.id )
4984: LOOP
4981: l_pri_stream_name := NULL;
4982: l_dep_purp_list := ' ';
4983: FOR t_rec IN okl_dep_purpose_dup_csr( x_gttv_rec.id )
4984: LOOP
4985: l_found := OKL_API.G_TRUE;
4986: IF l_pri_stream_name IS NULL
4987: THEN
4988: l_pri_stream_name := t_rec.pri_strm_type_name;
4989: l_dep_purp_list := t_rec.dep_purpose_meaning;
5006: THEN
5007: l_dep_purp_list := l_dep_purp_list || ',' || t_rec.dep_purpose_meaning;
5008: END IF;
5009: END LOOP;
5010: IF l_found = Okl_Api.G_TRUE
5011: THEN
5012: -- Push the last messsage into the FND stack
5013: put_messages_in_table(
5014: p_msg_name => 'OKL_ST_SGT_DUP_DEPENDANTS',
5017: p_token1 => 'PRISTRMCODE',
5018: p_value1 => l_pri_stream_name,
5019: p_token2 => 'DEPPURPOSELIST',
5020: p_value2 => l_dep_purp_list);
5021: l_return_status := Okl_Api.G_RET_STS_ERROR;
5022: RAISE Okl_Api.G_EXCEPTION_ERROR;
5023: END IF;
5024: -- Insertion/Updation/Deletion has been done successful.
5025: -- Now need to check for errors and warnings.
5018: p_value1 => l_pri_stream_name,
5019: p_token2 => 'DEPPURPOSELIST',
5020: p_value2 => l_dep_purp_list);
5021: l_return_status := Okl_Api.G_RET_STS_ERROR;
5022: RAISE Okl_Api.G_EXCEPTION_ERROR;
5023: END IF;
5024: -- Insertion/Updation/Deletion has been done successful.
5025: -- Now need to check for errors and warnings.
5026: IF x_gttv_rec.tmpt_status = G_STATUS_ACTIVE
5036: x_error_msgs_tbl => l_error_msgs_tbl,
5037: x_return_tmpt_status => l_return_tmpt_status,
5038: p_during_upd_flag => 'T' ); -- This Wrapper API will be called only in Update Mode
5039: -- Check whether the Validate API has been ran successfull or not ?
5040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5043: RAISE OKL_API.G_EXCEPTION_ERROR;
5044: END IF;
5037: x_return_tmpt_status => l_return_tmpt_status,
5038: p_during_upd_flag => 'T' ); -- This Wrapper API will be called only in Update Mode
5039: -- Check whether the Validate API has been ran successfull or not ?
5040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5043: RAISE OKL_API.G_EXCEPTION_ERROR;
5044: END IF;
5045: -- Now check whether there are no validation errors or not?
5038: p_during_upd_flag => 'T' ); -- This Wrapper API will be called only in Update Mode
5039: -- Check whether the Validate API has been ran successfull or not ?
5040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5043: RAISE OKL_API.G_EXCEPTION_ERROR;
5044: END IF;
5045: -- Now check whether there are no validation errors or not?
5046: IF l_error_msgs_tbl.count > 0
5039: -- Check whether the Validate API has been ran successfull or not ?
5040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5043: RAISE OKL_API.G_EXCEPTION_ERROR;
5044: END IF;
5045: -- Now check whether there are no validation errors or not?
5046: IF l_error_msgs_tbl.count > 0
5047: THEN
5044: END IF;
5045: -- Now check whether there are no validation errors or not?
5046: IF l_error_msgs_tbl.count > 0
5047: THEN
5048: x_return_status := Okl_Api.G_RET_STS_ERROR;
5049: RAISE Okl_Api.G_EXCEPTION_ERROR;
5050: END If;
5051: -- Now if there is no Validation Error, check for the Warnings,
5052: -- but the code shouldnot error out in this case.
5045: -- Now check whether there are no validation errors or not?
5046: IF l_error_msgs_tbl.count > 0
5047: THEN
5048: x_return_status := Okl_Api.G_RET_STS_ERROR;
5049: RAISE Okl_Api.G_EXCEPTION_ERROR;
5050: END If;
5051: -- Now if there is no Validation Error, check for the Warnings,
5052: -- but the code shouldnot error out in this case.
5053: validate_for_warnings(
5059: p_gtt_id => x_gttv_rec.id,
5060: x_wrn_msgs_tbl => l_error_msgs_tbl,
5061: p_during_upd_flag => 'F', -- Dont push any warnings into the Stack
5062: x_pri_purpose_list => l_pri_purpose_list );
5063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5065: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5066: RAISE OKL_API.G_EXCEPTION_ERROR;
5067: END IF;
5060: x_wrn_msgs_tbl => l_error_msgs_tbl,
5061: p_during_upd_flag => 'F', -- Dont push any warnings into the Stack
5062: x_pri_purpose_list => l_pri_purpose_list );
5063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5065: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5066: RAISE OKL_API.G_EXCEPTION_ERROR;
5067: END IF;
5068: -- Whenever the SGT is updated successfull and if its in ACTIVE status
5061: p_during_upd_flag => 'F', -- Dont push any warnings into the Stack
5062: x_pri_purpose_list => l_pri_purpose_list );
5063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5065: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5066: RAISE OKL_API.G_EXCEPTION_ERROR;
5067: END IF;
5068: -- Whenever the SGT is updated successfull and if its in ACTIVE status
5069: -- the corresponding products should be made to INVALID status
5062: x_pri_purpose_list => l_pri_purpose_list );
5063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5065: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5066: RAISE OKL_API.G_EXCEPTION_ERROR;
5067: END IF;
5068: -- Whenever the SGT is updated successfull and if its in ACTIVE status
5069: -- the corresponding products should be made to INVALID status
5070: FOR gts_id_rec IN fetch_gts_id_csr( x_gttv_rec.id )
5081: x_msg_count => x_msg_count,
5082: x_msg_data => x_msg_data,
5083: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
5084: p_pdt_id => pdt_rec.pdt_id );
5085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5088: RAISE OKL_API.G_EXCEPTION_ERROR;
5089: END IF;
5082: x_msg_data => x_msg_data,
5083: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
5084: p_pdt_id => pdt_rec.pdt_id );
5085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5088: RAISE OKL_API.G_EXCEPTION_ERROR;
5089: END IF;
5090: END LOOP;
5083: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
5084: p_pdt_id => pdt_rec.pdt_id );
5085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5088: RAISE OKL_API.G_EXCEPTION_ERROR;
5089: END IF;
5090: END LOOP;
5091: END IF; -- IF x_gttv_rec.tmpt_status = G_ACTIVE
5084: p_pdt_id => pdt_rec.pdt_id );
5085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5088: RAISE OKL_API.G_EXCEPTION_ERROR;
5089: END IF;
5090: END LOOP;
5091: END IF; -- IF x_gttv_rec.tmpt_status = G_ACTIVE
5092: x_pri_purpose_list := l_pri_purpose_list;
5090: END LOOP;
5091: END IF; -- IF x_gttv_rec.tmpt_status = G_ACTIVE
5092: x_pri_purpose_list := l_pri_purpose_list;
5093: x_return_status := l_return_status;
5094: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5095: EXCEPTION
5096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5097: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5098: (l_api_name,
5092: x_pri_purpose_list := l_pri_purpose_list;
5093: x_return_status := l_return_status;
5094: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5095: EXCEPTION
5096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5097: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5098: (l_api_name,
5099: G_PKG_NAME,
5100: 'OKL_API.G_RET_STS_ERROR',
5093: x_return_status := l_return_status;
5094: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5095: EXCEPTION
5096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5097: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5098: (l_api_name,
5099: G_PKG_NAME,
5100: 'OKL_API.G_RET_STS_ERROR',
5101: x_msg_count,
5096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5097: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5098: (l_api_name,
5099: G_PKG_NAME,
5100: 'OKL_API.G_RET_STS_ERROR',
5101: x_msg_count,
5102: x_msg_data,
5103: '_PVT');
5104: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5100: 'OKL_API.G_RET_STS_ERROR',
5101: x_msg_count,
5102: x_msg_data,
5103: '_PVT');
5104: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5105: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5106: ( l_api_name,
5107: G_PKG_NAME,
5108: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5101: x_msg_count,
5102: x_msg_data,
5103: '_PVT');
5104: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5105: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5106: ( l_api_name,
5107: G_PKG_NAME,
5108: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5109: x_msg_count,
5104: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5105: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5106: ( l_api_name,
5107: G_PKG_NAME,
5108: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5109: x_msg_count,
5110: x_msg_data,
5111: '_PVT');
5112: WHEN OTHERS THEN
5109: x_msg_count,
5110: x_msg_data,
5111: '_PVT');
5112: WHEN OTHERS THEN
5113: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5114: ( l_api_name,
5115: G_PKG_NAME,
5116: 'OTHERS',
5117: x_msg_count,