[Home] [Help]
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);
330:
331: -- Bug 4094361: End
332: BEGIN
333: -- Perform the Initializations
334: x_return_status := OKL_API.G_RET_STS_SUCCESS;
335: l_return_status := OKL_API.START_ACTIVITY( l_api_name
336: ,g_pkg_name
337: ,p_init_msg_list
338: ,l_api_version
331: -- Bug 4094361: End
332: BEGIN
333: -- Perform the Initializations
334: x_return_status := OKL_API.G_RET_STS_SUCCESS;
335: l_return_status := OKL_API.START_ACTIVITY( l_api_name
336: ,g_pkg_name
337: ,p_init_msg_list
338: ,l_api_version
339: ,p_api_version
338: ,l_api_version
339: ,p_api_version
340: ,'_PVT'
341: ,x_return_status);
342: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
344: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
345: RAISE OKL_API.G_EXCEPTION_ERROR;
346: END IF;
339: ,p_api_version
340: ,'_PVT'
341: ,x_return_status);
342: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
344: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
345: RAISE OKL_API.G_EXCEPTION_ERROR;
346: END IF;
347:
340: ,'_PVT'
341: ,x_return_status);
342: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
344: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
345: RAISE OKL_API.G_EXCEPTION_ERROR;
346: END IF;
347:
348: l_gtsv_rec_in := p_gtsv_rec;
341: ,x_return_status);
342: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
344: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
345: RAISE OKL_API.G_EXCEPTION_ERROR;
346: END IF;
347:
348: l_gtsv_rec_in := p_gtsv_rec;
349: l_gttv_rec_in := p_gttv_rec;
346: END IF;
347:
348: l_gtsv_rec_in := p_gtsv_rec;
349: l_gttv_rec_in := p_gttv_rec;
350: IF ( l_gtsv_rec_in.ID IS NOT NULL OR l_gtsv_rec_in.id <> OKL_API.G_MISS_NUM
351: AND l_gttv_rec_in.tmpt_status = G_INIT_TMPT_STATUS )
352: THEN
353: -- Allowing the Updation of the Template sets only in the case of
354: -- Duplicated Templates.
360: ,x_msg_data => l_msg_data
361: ,p_gtsv_rec => l_gtsv_rec_in
362: ,x_gtsv_rec => l_gtsv_rec_out
363: );
364: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
366: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
367: RAISE OKL_API.G_EXCEPTION_ERROR;
368: END IF;
361: ,p_gtsv_rec => l_gtsv_rec_in
362: ,x_gtsv_rec => l_gtsv_rec_out
363: );
364: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
366: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
367: RAISE OKL_API.G_EXCEPTION_ERROR;
368: END IF;
369: END IF;
362: ,x_gtsv_rec => l_gtsv_rec_out
363: );
364: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
366: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
367: RAISE OKL_API.G_EXCEPTION_ERROR;
368: END IF;
369: END IF;
370:
363: );
364: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
366: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
367: RAISE OKL_API.G_EXCEPTION_ERROR;
368: END IF;
369: END IF;
370:
371: -- On Updation of anything change the status of the template will be
404: --1.
405: IF l_gttv_rec_in.end_date IS NOT NULL AND l_gttv_rec_in.end_date <> G_MISS_DATE AND
406: trunc(l_gttv_rec_in.start_date) > trunc(l_gttv_rec_in.end_date)
407: THEN
408: okl_api.SET_MESSAGE( p_app_name => g_app_name,
409: p_msg_name => 'OKL_START_DT_LESS_END_DT'
410: );
411: RAISE OKL_API.G_EXCEPTION_ERROR;
412: END IF;
407: THEN
408: okl_api.SET_MESSAGE( p_app_name => g_app_name,
409: p_msg_name => 'OKL_START_DT_LESS_END_DT'
410: );
411: RAISE OKL_API.G_EXCEPTION_ERROR;
412: END IF;
413:
414: --2.
415: IF l_tmpt_status = G_INIT_TMPT_STATUS AND l_gttv_rec_in.version <> '1.0' --meaning its greater than 1.0
420: LOOP
421: IF trunc(l_gttv_rec_in.start_date) <= trunc(gts_id_rec.end_date) --(prev vers startdate)
422: THEN
423: --Error from condition 2 above
424: okl_api.SET_MESSAGE( p_app_name => g_app_name,
425: p_msg_name => 'OKL_SGT_PREV_VER_DT_CNFLT'
426: );
427: RAISE OKL_API.G_EXCEPTION_ERROR;
428: END IF;
423: --Error from condition 2 above
424: okl_api.SET_MESSAGE( p_app_name => g_app_name,
425: p_msg_name => 'OKL_SGT_PREV_VER_DT_CNFLT'
426: );
427: RAISE OKL_API.G_EXCEPTION_ERROR;
428: END IF;
429: END LOOP;
430: END IF;
431:
469: IF l_gttv_rec_in.end_date IS NOT NULL AND l_gttv_rec_in.end_date <> G_MISS_DATE AND
470: trunc(l_gttv_rec_in.end_date) < trunc(l_okl_new_version_date_rec.max_start_date)
471: THEN
472: --Error from condition 4 above
473: okl_api.SET_MESSAGE( p_app_name => g_app_name,
474: p_msg_name => 'OKL_SGT_TO_DATE_BEF_KHR'
475: );
476: RAISE OKL_API.G_EXCEPTION_ERROR;
477: END IF;
472: --Error from condition 4 above
473: okl_api.SET_MESSAGE( p_app_name => g_app_name,
474: p_msg_name => 'OKL_SGT_TO_DATE_BEF_KHR'
475: );
476: RAISE OKL_API.G_EXCEPTION_ERROR;
477: END IF;
478: END IF;
479:
480: IF l_gttv_rec_in.end_date IS NOT NULL AND (trunc(l_gttv_rec_in.end_date) <> trunc(l_end_date)) THEN --Eff to date has changed on this version
483: FOR gts_id_rec IN fetch_gtt_ver_dtls_csr( l_gttv_rec_in.gts_id,l_version)
484: LOOP
485: --Cant update Eff To if there are successive versions which are active
486: IF gts_id_rec.tmpt_status = G_STATUS_ACTIVE THEN
487: okl_api.SET_MESSAGE( p_app_name => g_app_name,
488: p_msg_name => 'OKL_SGT_NO_UPD_SUCC_ACT_VER'
489: );
490: RAISE OKL_API.G_EXCEPTION_ERROR;
491: END IF;
486: IF gts_id_rec.tmpt_status = G_STATUS_ACTIVE THEN
487: okl_api.SET_MESSAGE( p_app_name => g_app_name,
488: p_msg_name => 'OKL_SGT_NO_UPD_SUCC_ACT_VER'
489: );
490: RAISE OKL_API.G_EXCEPTION_ERROR;
491: END IF;
492:
493: l_new_gttv_in_rec.id := gts_id_rec.id;
494: l_new_gttv_in_rec.gts_id := gts_id_rec.gts_id;
523: ,x_msg_data => l_msg_data
524: ,p_gttv_rec => l_gttv_rec_in
525: ,x_gttv_rec => l_gttv_rec_out
526: );
527: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
529: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
530: RAISE OKL_API.G_EXCEPTION_ERROR;
531: END IF;
524: ,p_gttv_rec => l_gttv_rec_in
525: ,x_gttv_rec => l_gttv_rec_out
526: );
527: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
529: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
530: RAISE OKL_API.G_EXCEPTION_ERROR;
531: END IF;
532:
525: ,x_gttv_rec => l_gttv_rec_out
526: );
527: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
529: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
530: RAISE OKL_API.G_EXCEPTION_ERROR;
531: END IF;
532:
533: -- Updating the Templates Pricing Parameters
526: );
527: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
529: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
530: RAISE OKL_API.G_EXCEPTION_ERROR;
531: END IF;
532:
533: -- Updating the Templates Pricing Parameters
534: IF (p_gtpv_tbl.COUNT > 0) THEN
537: FOR i IN p_gtpv_tbl.FIRST .. p_gtpv_tbl.LAST
538: LOOP
539: -- Decide whether we need to update or insert the Pricing Parameters
540: -- record.
541: IF (p_gtpv_tbl(i).id = Okl_Api.G_MISS_NUM OR p_gtpv_tbl(i).id IS NULL
542: OR p_gtpv_tbl(i).id = 0 )
543: THEN
544: -- Copy into the Insert table
545: l_gtpv_tbl_ins_in(ins_table_count) := p_gtpv_tbl(i);
562: ,x_msg_data => l_msg_data
563: ,p_gtpv_tbl => l_gtpv_tbl_ins_in
564: ,x_gtpv_tbl => l_gtpv_tbl_ins_out
565: );
566: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
569: RAISE OKL_API.G_EXCEPTION_ERROR;
570: END IF;
563: ,p_gtpv_tbl => l_gtpv_tbl_ins_in
564: ,x_gtpv_tbl => l_gtpv_tbl_ins_out
565: );
566: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
569: RAISE OKL_API.G_EXCEPTION_ERROR;
570: END IF;
571: END IF;
564: ,x_gtpv_tbl => l_gtpv_tbl_ins_out
565: );
566: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
569: RAISE OKL_API.G_EXCEPTION_ERROR;
570: END IF;
571: END IF;
572: IF (l_gtpv_tbl_upd_in.COUNT > 0)
565: );
566: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
569: RAISE OKL_API.G_EXCEPTION_ERROR;
570: END IF;
571: END IF;
572: IF (l_gtpv_tbl_upd_in.COUNT > 0)
573: THEN
580: ,x_msg_data => l_msg_data
581: ,p_gtpv_tbl => l_gtpv_tbl_upd_in
582: ,x_gtpv_tbl => l_gtpv_tbl_upd_out
583: );
584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
587: RAISE OKL_API.G_EXCEPTION_ERROR;
588: END IF;
581: ,p_gtpv_tbl => l_gtpv_tbl_upd_in
582: ,x_gtpv_tbl => l_gtpv_tbl_upd_out
583: );
584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
587: RAISE OKL_API.G_EXCEPTION_ERROR;
588: END IF;
589: END IF;
582: ,x_gtpv_tbl => l_gtpv_tbl_upd_out
583: );
584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
587: RAISE OKL_API.G_EXCEPTION_ERROR;
588: END IF;
589: END IF;
590: END IF;
583: );
584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
587: RAISE OKL_API.G_EXCEPTION_ERROR;
588: END IF;
589: END IF;
590: END IF;
591:
595: upd_table_count :=0;
596: FOR i IN p_gtlv_tbl.FIRST .. p_gtlv_tbl.LAST
597: LOOP
598: -- Decide whether we need to update or insert the Template Lines
599: IF (p_gtlv_tbl(i).id = Okl_Api.G_MISS_NUM OR p_gtlv_tbl(i).id IS NULL
600: OR p_gtlv_tbl(i).id = 0 )
601: THEN
602: -- Copy into the Insert table
603: l_gtlv_tbl_ins_in(ins_table_count) := p_gtlv_tbl(i);
621: ,x_msg_data => l_msg_data
622: ,p_gtlv_tbl => l_gtlv_tbl_ins_in
623: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
624: );
625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
627: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
628: RAISE OKL_API.G_EXCEPTION_ERROR;
629: END IF;
622: ,p_gtlv_tbl => l_gtlv_tbl_ins_in
623: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
624: );
625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
627: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
628: RAISE OKL_API.G_EXCEPTION_ERROR;
629: END IF;
630: END IF;
623: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
624: );
625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
627: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
628: RAISE OKL_API.G_EXCEPTION_ERROR;
629: END IF;
630: END IF;
631: IF (l_gtlv_tbl_upd_in.count > 0 )
624: );
625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
627: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
628: RAISE OKL_API.G_EXCEPTION_ERROR;
629: END IF;
630: END IF;
631: IF (l_gtlv_tbl_upd_in.count > 0 )
632: THEN
639: ,x_msg_data => l_msg_data
640: ,p_gtlv_tbl => l_gtlv_tbl_upd_in
641: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
642: );
643: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_ERROR;
647: END IF;
640: ,p_gtlv_tbl => l_gtlv_tbl_upd_in
641: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
642: );
643: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_ERROR;
647: END IF;
648: END IF;
641: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
642: );
643: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_ERROR;
647: END IF;
648: END IF;
649: END IF;
642: );
643: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_ERROR;
647: END IF;
648: END IF;
649: END IF;
650: /*
666: -- Modified by RGOOTY
667: -- Bug 4054596: Issue 4: Start
668: IF ( l_error_msgs_tbl.count > 0 )
669: THEN
670: x_return_status := Okl_Api.G_RET_STS_ERROR;
671: RAISE Okl_Api.G_EXCEPTION_ERROR;
672: END If;
673: -- Bug 4054596: Issue 4: End
674:
667: -- Bug 4054596: Issue 4: Start
668: IF ( l_error_msgs_tbl.count > 0 )
669: THEN
670: x_return_status := Okl_Api.G_RET_STS_ERROR;
671: RAISE Okl_Api.G_EXCEPTION_ERROR;
672: END If;
673: -- Bug 4054596: Issue 4: End
674:
675: -- Modified by RGOOTY
688: x_msg_count => x_msg_count,
689: x_msg_data => x_msg_data,
690: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
691: p_pdt_id => pdt_rec.pdt_id );
692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
695: RAISE OKL_API.G_EXCEPTION_ERROR;
696: END IF;
689: x_msg_data => x_msg_data,
690: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
691: p_pdt_id => pdt_rec.pdt_id );
692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
695: RAISE OKL_API.G_EXCEPTION_ERROR;
696: END IF;
697: END LOOP;
690: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
691: p_pdt_id => pdt_rec.pdt_id );
692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
695: RAISE OKL_API.G_EXCEPTION_ERROR;
696: END IF;
697: END LOOP;
698: -- Bug 4094361: End
691: p_pdt_id => pdt_rec.pdt_id );
692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
695: RAISE OKL_API.G_EXCEPTION_ERROR;
696: END IF;
697: END LOOP;
698: -- Bug 4094361: End
699: END IF;
699: END IF;
700: */
701: x_gttv_rec := l_gttv_rec_out;
702: x_return_status := l_return_status;
703: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
704: EXCEPTION
705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
706: x_return_status := OKL_API.HANDLE_EXCEPTIONS
707: (l_api_name,
701: x_gttv_rec := l_gttv_rec_out;
702: x_return_status := l_return_status;
703: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
704: EXCEPTION
705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
706: x_return_status := OKL_API.HANDLE_EXCEPTIONS
707: (l_api_name,
708: G_PKG_NAME,
709: 'OKL_API.G_RET_STS_ERROR',
702: x_return_status := l_return_status;
703: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
704: EXCEPTION
705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
706: x_return_status := OKL_API.HANDLE_EXCEPTIONS
707: (l_api_name,
708: G_PKG_NAME,
709: 'OKL_API.G_RET_STS_ERROR',
710: x_msg_count,
705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
706: x_return_status := OKL_API.HANDLE_EXCEPTIONS
707: (l_api_name,
708: G_PKG_NAME,
709: 'OKL_API.G_RET_STS_ERROR',
710: x_msg_count,
711: x_msg_data,
712: '_PVT');
713: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
709: 'OKL_API.G_RET_STS_ERROR',
710: x_msg_count,
711: x_msg_data,
712: '_PVT');
713: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
714: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
715: ( l_api_name,
716: G_PKG_NAME,
717: 'OKL_API.G_RET_STS_UNEXP_ERROR',
710: x_msg_count,
711: x_msg_data,
712: '_PVT');
713: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
714: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
715: ( l_api_name,
716: G_PKG_NAME,
717: 'OKL_API.G_RET_STS_UNEXP_ERROR',
718: x_msg_count,
713: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
714: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
715: ( l_api_name,
716: G_PKG_NAME,
717: 'OKL_API.G_RET_STS_UNEXP_ERROR',
718: x_msg_count,
719: x_msg_data,
720: '_PVT');
721: WHEN OTHERS THEN
718: x_msg_count,
719: x_msg_data,
720: '_PVT');
721: WHEN OTHERS THEN
722: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
723: ( l_api_name,
724: G_PKG_NAME,
725: 'OTHERS',
726: x_msg_count,
756: l_gtt_id OKL_ST_GEN_TEMPLATES.id%type := p_gtt_id;
757: l_mode VARCHAR2(10) := p_mode;
758: l_api_name CONSTANT VARCHAR2(40) := 'create_version_duplicate';
759: l_api_version CONSTANT NUMBER := 1.0;
760: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
761:
762: l_init_msg_list VARCHAR2(1);
763: l_msg_count NUMBER;
764: l_msg_data VARCHAR2(2000);
777: l_gtpv_tbl_out gtpv_tbl_type;
778: l_gtlv_tbl_pri_out gtlv_tbl_type;
779: l_gtlv_tbl_dep_out gtlv_tbl_type;
780: i NUMBER;
781: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
782:
783: CURSOR okl_st_gen_tmpt_sets_csr(p_gts_id IN OKL_ST_GEN_TMPT_SETS.id%type) IS
784: SELECT ID
785: ,NAME
856:
857: BEGIN
858:
859: -- Perform the Initializations
860: x_return_status := OKL_API.G_RET_STS_SUCCESS;
861: l_return_status := OKL_API.START_ACTIVITY( l_api_name
862: ,g_pkg_name
863: ,p_init_msg_list
864: ,l_api_version
857: BEGIN
858:
859: -- Perform the Initializations
860: x_return_status := OKL_API.G_RET_STS_SUCCESS;
861: l_return_status := OKL_API.START_ACTIVITY( l_api_name
862: ,g_pkg_name
863: ,p_init_msg_list
864: ,l_api_version
865: ,p_api_version
864: ,l_api_version
865: ,p_api_version
866: ,'_PVT'
867: ,x_return_status);
868: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
870: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
871: RAISE OKL_API.G_EXCEPTION_ERROR;
872: END IF;
865: ,p_api_version
866: ,'_PVT'
867: ,x_return_status);
868: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
870: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
871: RAISE OKL_API.G_EXCEPTION_ERROR;
872: END IF;
873:
866: ,'_PVT'
867: ,x_return_status);
868: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
870: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
871: RAISE OKL_API.G_EXCEPTION_ERROR;
872: END IF;
873:
874: l_dummy := Okl_Api.G_FALSE;
867: ,x_return_status);
868: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
870: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
871: RAISE OKL_API.G_EXCEPTION_ERROR;
872: END IF;
873:
874: l_dummy := Okl_Api.G_FALSE;
875: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
870: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
871: RAISE OKL_API.G_EXCEPTION_ERROR;
872: END IF;
873:
874: l_dummy := Okl_Api.G_FALSE;
875: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
876: LOOP
877: l_gttv_rec_in.id := gttv_rec_temp.id;
878: l_gttv_rec_in.gts_id := gttv_rec_temp.gts_id;
879: l_gttv_rec_in.version := gttv_rec_temp.version;
880: l_gttv_rec_in.start_date := gttv_rec_temp.start_date;
881: l_gttv_rec_in.end_date := gttv_rec_temp.end_date;
882: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
883: l_dummy := Okl_Api.G_TRUE;
884: END LOOP;
885: IF (l_dummy = okl_api.g_false) THEN
886: okl_api.SET_MESSAGE( p_app_name => g_app_name,
887: p_msg_name => g_invalid_value,
881: l_gttv_rec_in.end_date := gttv_rec_temp.end_date;
882: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
883: l_dummy := Okl_Api.G_TRUE;
884: END LOOP;
885: IF (l_dummy = okl_api.g_false) THEN
886: okl_api.SET_MESSAGE( p_app_name => g_app_name,
887: p_msg_name => g_invalid_value,
888: p_token1 => g_col_name_token,
889: p_token1_value => 'GTT_ID');
882: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
883: l_dummy := Okl_Api.G_TRUE;
884: END LOOP;
885: IF (l_dummy = okl_api.g_false) THEN
886: okl_api.SET_MESSAGE( p_app_name => g_app_name,
887: p_msg_name => g_invalid_value,
888: p_token1 => g_col_name_token,
889: p_token1_value => 'GTT_ID');
890: RAISE OKL_API.G_EXCEPTION_ERROR;
886: okl_api.SET_MESSAGE( p_app_name => g_app_name,
887: p_msg_name => g_invalid_value,
888: p_token1 => g_col_name_token,
889: p_token1_value => 'GTT_ID');
890: RAISE OKL_API.G_EXCEPTION_ERROR;
891: END IF;
892:
893: l_dummy := Okl_Api.G_FALSE;
894: FOR gtsv_rec_temp IN okl_st_gen_tmpt_sets_csr(l_gttv_rec_in.gts_id)
889: p_token1_value => 'GTT_ID');
890: RAISE OKL_API.G_EXCEPTION_ERROR;
891: END IF;
892:
893: l_dummy := Okl_Api.G_FALSE;
894: FOR gtsv_rec_temp IN okl_st_gen_tmpt_sets_csr(l_gttv_rec_in.gts_id)
895: LOOP
896: l_gtsv_rec_in.id := gtsv_rec_temp.id;
897: l_gtsv_rec_in.name := gtsv_rec_temp.name;
906: l_gtsv_rec_in.days_in_yr_code:= gtsv_rec_temp.days_in_yr_code;
907: -- Added new field by DJANASWA for ER 6274359(H)
908: l_gtsv_rec_in.isg_arrears_pay_dates_option := gtsv_rec_temp.isg_arrears_pay_dates_option;
909:
910: l_dummy := Okl_Api.G_TRUE;
911: END LOOP;
912: IF (l_dummy = okl_api.g_false) THEN
913: okl_api.SET_MESSAGE( p_app_name => g_app_name,
914: p_msg_name => g_invalid_value,
908: l_gtsv_rec_in.isg_arrears_pay_dates_option := gtsv_rec_temp.isg_arrears_pay_dates_option;
909:
910: l_dummy := Okl_Api.G_TRUE;
911: END LOOP;
912: IF (l_dummy = okl_api.g_false) THEN
913: okl_api.SET_MESSAGE( p_app_name => g_app_name,
914: p_msg_name => g_invalid_value,
915: p_token1 => g_col_name_token,
916: p_token1_value => 'GTS_ID');
909:
910: l_dummy := Okl_Api.G_TRUE;
911: END LOOP;
912: IF (l_dummy = okl_api.g_false) THEN
913: okl_api.SET_MESSAGE( p_app_name => g_app_name,
914: p_msg_name => g_invalid_value,
915: p_token1 => g_col_name_token,
916: p_token1_value => 'GTS_ID');
917: RAISE OKL_API.G_EXCEPTION_ERROR;
913: okl_api.SET_MESSAGE( p_app_name => g_app_name,
914: p_msg_name => g_invalid_value,
915: p_token1 => g_col_name_token,
916: p_token1_value => 'GTS_ID');
917: RAISE OKL_API.G_EXCEPTION_ERROR;
918: END IF;
919:
920: IF p_mode IS NULL OR p_mode = G_DEFAULT_MODE
921: THEN
934: ,x_msg_data => l_msg_data
935: ,p_gtsv_rec => l_gtsv_rec_in
936: ,x_gtsv_rec => l_gtsv_rec_out
937: );
938: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
940: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
941: RAISE okl_api.G_EXCEPTION_ERROR;
942: END IF;
935: ,p_gtsv_rec => l_gtsv_rec_in
936: ,x_gtsv_rec => l_gtsv_rec_out
937: );
938: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
940: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
941: RAISE okl_api.G_EXCEPTION_ERROR;
942: END IF;
943: -- For Duplicate
936: ,x_gtsv_rec => l_gtsv_rec_out
937: );
938: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
940: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
941: RAISE okl_api.G_EXCEPTION_ERROR;
942: END IF;
943: -- For Duplicate
944: l_gttv_rec_in.gts_id := l_gtsv_rec_out.id; -- Id of the New GTS Created
937: );
938: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
940: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
941: RAISE okl_api.G_EXCEPTION_ERROR;
942: END IF;
943: -- For Duplicate
944: l_gttv_rec_in.gts_id := l_gtsv_rec_out.id; -- Id of the New GTS Created
945: l_gttv_rec_in.version := '1.0'; -- VERSION TO 1.0
969: ,x_msg_data => l_msg_data
970: ,p_gttv_rec => l_gttv_rec_prev_version_in
971: ,x_gttv_rec => l_gttv_rec_prev_version_out
972: );
973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
970: ,p_gttv_rec => l_gttv_rec_prev_version_in
971: ,x_gttv_rec => l_gttv_rec_prev_version_out
972: );
973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978: -- Modifications for New Version
971: ,x_gttv_rec => l_gttv_rec_prev_version_out
972: );
973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978: -- Modifications for New Version
979: l_gttv_rec_in.version := TRIM(TO_CHAR( TO_NUMBER( l_gttv_rec_in.version ) + 1 ) ) || '.0';
972: );
973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978: -- Modifications for New Version
979: l_gttv_rec_in.version := TRIM(TO_CHAR( TO_NUMBER( l_gttv_rec_in.version ) + 1 ) ) || '.0';
980: l_gttv_rec_in.start_date := l_gttv_rec_prev_version_out.end_date + 1;
991: ,x_msg_data => l_msg_data
992: ,p_gttv_rec => l_gttv_rec_in
993: ,x_gttv_rec => l_gttv_rec_out
994: );
995: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
992: ,p_gttv_rec => l_gttv_rec_in
993: ,x_gttv_rec => l_gttv_rec_out
994: );
995: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000: -- Fetch all the pricing parameters and call the API
993: ,x_gttv_rec => l_gttv_rec_out
994: );
995: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000: -- Fetch all the pricing parameters and call the API
1001: i := 0;
994: );
995: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000: -- Fetch all the pricing parameters and call the API
1001: i := 0;
1002: FOR gtpv_rec_temp IN okl_st_gen_prc_params_csr(l_gtt_id)
1022: ,x_msg_data => l_msg_data
1023: ,p_gtpv_tbl => l_gtpv_tbl_in
1024: ,x_gtpv_tbl => l_gtpv_tbl_out
1025: );
1026: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1029: RAISE OKL_API.G_EXCEPTION_ERROR;
1030: END IF;
1023: ,p_gtpv_tbl => l_gtpv_tbl_in
1024: ,x_gtpv_tbl => l_gtpv_tbl_out
1025: );
1026: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1029: RAISE OKL_API.G_EXCEPTION_ERROR;
1030: END IF;
1031: END IF;
1024: ,x_gtpv_tbl => l_gtpv_tbl_out
1025: );
1026: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1029: RAISE OKL_API.G_EXCEPTION_ERROR;
1030: END IF;
1031: END IF;
1032:
1025: );
1026: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1029: RAISE OKL_API.G_EXCEPTION_ERROR;
1030: END IF;
1031: END IF;
1032:
1033: -- Fetch all the primary streams and call the insert API
1054: ,x_msg_data => l_msg_data
1055: ,p_gtlv_tbl => l_gtlv_tbl_pri_in
1056: ,x_gtlv_tbl => l_gtlv_tbl_pri_out
1057: );
1058: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1061: RAISE OKL_API.G_EXCEPTION_ERROR;
1062: END IF;
1055: ,p_gtlv_tbl => l_gtlv_tbl_pri_in
1056: ,x_gtlv_tbl => l_gtlv_tbl_pri_out
1057: );
1058: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1061: RAISE OKL_API.G_EXCEPTION_ERROR;
1062: END IF;
1063: END IF;
1056: ,x_gtlv_tbl => l_gtlv_tbl_pri_out
1057: );
1058: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1061: RAISE OKL_API.G_EXCEPTION_ERROR;
1062: END IF;
1063: END IF;
1064:
1057: );
1058: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1061: RAISE OKL_API.G_EXCEPTION_ERROR;
1062: END IF;
1063: END IF;
1064:
1065: -- Fetch all the dependent streams and call the insert API
1085: ,x_msg_data => l_msg_data
1086: ,p_gtlv_tbl => l_gtlv_tbl_dep_in
1087: ,x_gtlv_tbl => l_gtlv_tbl_dep_out
1088: );
1089: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1092: RAISE OKL_API.G_EXCEPTION_ERROR;
1093: END IF;
1086: ,p_gtlv_tbl => l_gtlv_tbl_dep_in
1087: ,x_gtlv_tbl => l_gtlv_tbl_dep_out
1088: );
1089: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1092: RAISE OKL_API.G_EXCEPTION_ERROR;
1093: END IF;
1094: END IF;
1087: ,x_gtlv_tbl => l_gtlv_tbl_dep_out
1088: );
1089: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1092: RAISE OKL_API.G_EXCEPTION_ERROR;
1093: END IF;
1094: END IF;
1095:
1088: );
1089: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1092: RAISE OKL_API.G_EXCEPTION_ERROR;
1093: END IF;
1094: END IF;
1095:
1096: x_gttv_rec := l_gttv_rec_out;
1094: END IF;
1095:
1096: x_gttv_rec := l_gttv_rec_out;
1097: x_return_status := l_return_status;
1098: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1099: EXCEPTION
1100: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1101: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1102: (l_api_name,
1096: x_gttv_rec := l_gttv_rec_out;
1097: x_return_status := l_return_status;
1098: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1099: EXCEPTION
1100: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1101: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1102: (l_api_name,
1103: G_PKG_NAME,
1104: 'OKL_API.G_RET_STS_ERROR',
1097: x_return_status := l_return_status;
1098: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1099: EXCEPTION
1100: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1101: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1102: (l_api_name,
1103: G_PKG_NAME,
1104: 'OKL_API.G_RET_STS_ERROR',
1105: x_msg_count,
1100: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1101: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1102: (l_api_name,
1103: G_PKG_NAME,
1104: 'OKL_API.G_RET_STS_ERROR',
1105: x_msg_count,
1106: x_msg_data,
1107: '_PVT');
1108: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1104: 'OKL_API.G_RET_STS_ERROR',
1105: x_msg_count,
1106: x_msg_data,
1107: '_PVT');
1108: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1109: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1110: ( l_api_name,
1111: G_PKG_NAME,
1112: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1105: x_msg_count,
1106: x_msg_data,
1107: '_PVT');
1108: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1109: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1110: ( l_api_name,
1111: G_PKG_NAME,
1112: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1113: x_msg_count,
1108: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1109: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1110: ( l_api_name,
1111: G_PKG_NAME,
1112: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1113: x_msg_count,
1114: x_msg_data,
1115: '_PVT');
1116: WHEN OTHERS THEN
1113: x_msg_count,
1114: x_msg_data,
1115: '_PVT');
1116: WHEN OTHERS THEN
1117: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1118: ( l_api_name,
1119: G_PKG_NAME,
1120: 'OTHERS',
1121: x_msg_count,
1146: ) IS
1147: l_gtt_id okl_st_gen_templates.id%type ;
1148: l_api_name CONSTANT VARCHAR2(40) := 'delete_tmpt_prc_params';
1149: l_api_version CONSTANT NUMBER := 1.0;
1150: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1151:
1152: l_init_msg_list VARCHAR2(1) := p_init_msg_list;
1153: l_msg_count NUMBER;
1154: l_msg_data VARCHAR2(2000);
1155:
1156: l_gttv_rec gttv_rec_type;
1157: l_gtpv_tbl_del_in gtpv_tbl_type := p_gtpv_tbl;
1158:
1159: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
1160:
1161: BEGIN
1162: -- Perform the Initializations
1163: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1159: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
1160:
1161: BEGIN
1162: -- Perform the Initializations
1163: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1164: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1165: ,g_pkg_name
1166: ,p_init_msg_list
1167: ,l_api_version
1160:
1161: BEGIN
1162: -- Perform the Initializations
1163: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1164: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1165: ,g_pkg_name
1166: ,p_init_msg_list
1167: ,l_api_version
1168: ,p_api_version
1167: ,l_api_version
1168: ,p_api_version
1169: ,'_PVT'
1170: ,x_return_status);
1171: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1173: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1174: RAISE OKL_API.G_EXCEPTION_ERROR;
1175: END IF;
1168: ,p_api_version
1169: ,'_PVT'
1170: ,x_return_status);
1171: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1173: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1174: RAISE OKL_API.G_EXCEPTION_ERROR;
1175: END IF;
1176: OKL_GTP_PVT.delete_row(
1169: ,'_PVT'
1170: ,x_return_status);
1171: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1173: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1174: RAISE OKL_API.G_EXCEPTION_ERROR;
1175: END IF;
1176: OKL_GTP_PVT.delete_row(
1177: p_api_version => l_api_version
1170: ,x_return_status);
1171: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1173: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1174: RAISE OKL_API.G_EXCEPTION_ERROR;
1175: END IF;
1176: OKL_GTP_PVT.delete_row(
1177: p_api_version => l_api_version
1178: ,p_init_msg_list => l_init_msg_list
1180: ,x_msg_count => l_msg_count
1181: ,x_msg_data => l_msg_data
1182: ,p_gtpv_tbl => l_gtpv_tbl_del_in
1183: );
1184: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1187: RAISE OKL_API.G_EXCEPTION_ERROR;
1188: END IF;
1181: ,x_msg_data => l_msg_data
1182: ,p_gtpv_tbl => l_gtpv_tbl_del_in
1183: );
1184: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1187: RAISE OKL_API.G_EXCEPTION_ERROR;
1188: END IF;
1189:
1182: ,p_gtpv_tbl => l_gtpv_tbl_del_in
1183: );
1184: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1187: RAISE OKL_API.G_EXCEPTION_ERROR;
1188: END IF;
1189:
1190: x_return_status := l_return_status;
1183: );
1184: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1187: RAISE OKL_API.G_EXCEPTION_ERROR;
1188: END IF;
1189:
1190: x_return_status := l_return_status;
1191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1187: RAISE OKL_API.G_EXCEPTION_ERROR;
1188: END IF;
1189:
1190: x_return_status := l_return_status;
1191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1192: EXCEPTION
1193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1194: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1195: (l_api_name,
1189:
1190: x_return_status := l_return_status;
1191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1192: EXCEPTION
1193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1194: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1195: (l_api_name,
1196: G_PKG_NAME,
1197: 'OKL_API.G_RET_STS_ERROR',
1190: x_return_status := l_return_status;
1191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1192: EXCEPTION
1193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1194: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1195: (l_api_name,
1196: G_PKG_NAME,
1197: 'OKL_API.G_RET_STS_ERROR',
1198: x_msg_count,
1193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1194: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1195: (l_api_name,
1196: G_PKG_NAME,
1197: 'OKL_API.G_RET_STS_ERROR',
1198: x_msg_count,
1199: x_msg_data,
1200: '_PVT');
1201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1197: 'OKL_API.G_RET_STS_ERROR',
1198: x_msg_count,
1199: x_msg_data,
1200: '_PVT');
1201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1203: ( l_api_name,
1204: G_PKG_NAME,
1205: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1198: x_msg_count,
1199: x_msg_data,
1200: '_PVT');
1201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1203: ( l_api_name,
1204: G_PKG_NAME,
1205: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1206: x_msg_count,
1201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1203: ( l_api_name,
1204: G_PKG_NAME,
1205: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1206: x_msg_count,
1207: x_msg_data,
1208: '_PVT');
1209: WHEN OTHERS THEN
1206: x_msg_count,
1207: x_msg_data,
1208: '_PVT');
1209: WHEN OTHERS THEN
1210: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1211: ( l_api_name,
1212: G_PKG_NAME,
1213: 'OTHERS',
1214: x_msg_count,
1239: )IS
1240: l_gtt_id okl_st_gen_templates.id%type;
1241: l_api_name CONSTANT VARCHAR2(40) := 'delete_pri_tmpt_lns';
1242: l_api_version CONSTANT NUMBER := 1.0;
1243: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1244:
1245: l_init_msg_list VARCHAR2(1);
1246: l_msg_count NUMBER;
1247: l_msg_data VARCHAR2(2000);
1244:
1245: l_init_msg_list VARCHAR2(1);
1246: l_msg_count NUMBER;
1247: l_msg_data VARCHAR2(2000);
1248: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
1249:
1250: l_gttv_rec gttv_rec_type;
1251: l_gtlv_pri_tbl_del_in gtlv_tbl_type;
1252: l_gtlv_dep_tbl_del_in gtlv_tbl_type;
1263: AND PRIMARY_STY_ID = p_primary_sty_id
1264: AND GTT_ID = p_gtt_id;
1265: BEGIN
1266: -- Perform the Initializations
1267: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1268: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1269: ,g_pkg_name
1270: ,p_init_msg_list
1271: ,l_api_version
1264: AND GTT_ID = p_gtt_id;
1265: BEGIN
1266: -- Perform the Initializations
1267: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1268: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1269: ,g_pkg_name
1270: ,p_init_msg_list
1271: ,l_api_version
1272: ,p_api_version
1271: ,l_api_version
1272: ,p_api_version
1273: ,'_PVT'
1274: ,x_return_status);
1275: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1278: RAISE OKL_API.G_EXCEPTION_ERROR;
1279: END IF;
1272: ,p_api_version
1273: ,'_PVT'
1274: ,x_return_status);
1275: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1278: RAISE OKL_API.G_EXCEPTION_ERROR;
1279: END IF;
1280:
1273: ,'_PVT'
1274: ,x_return_status);
1275: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1278: RAISE OKL_API.G_EXCEPTION_ERROR;
1279: END IF;
1280:
1281: l_gtlv_pri_tbl_del_in := p_gtlv_tbl;
1274: ,x_return_status);
1275: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1278: RAISE OKL_API.G_EXCEPTION_ERROR;
1279: END IF;
1280:
1281: l_gtlv_pri_tbl_del_in := p_gtlv_tbl;
1282: FOR J in l_gtlv_pri_tbl_del_in.FIRST .. l_gtlv_pri_tbl_del_in.LAST
1303: x_msg_count => l_msg_count,
1304: x_msg_data => l_msg_data,
1305: p_gtlv_tbl => l_gtlv_dep_tbl_del_in);
1306:
1307: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1310: RAISE OKL_API.G_EXCEPTION_ERROR;
1311: END IF;
1304: x_msg_data => l_msg_data,
1305: p_gtlv_tbl => l_gtlv_dep_tbl_del_in);
1306:
1307: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1310: RAISE OKL_API.G_EXCEPTION_ERROR;
1311: END IF;
1312: l_gtlv_dep_tbl_del_in.DELETE;
1305: p_gtlv_tbl => l_gtlv_dep_tbl_del_in);
1306:
1307: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1310: RAISE OKL_API.G_EXCEPTION_ERROR;
1311: END IF;
1312: l_gtlv_dep_tbl_del_in.DELETE;
1313: END IF;
1306:
1307: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1310: RAISE OKL_API.G_EXCEPTION_ERROR;
1311: END IF;
1312: l_gtlv_dep_tbl_del_in.DELETE;
1313: END IF;
1314: END LOOP;
1319: x_msg_count => l_msg_count,
1320: x_msg_data => l_msg_data,
1321: p_gtlv_tbl => l_gtlv_pri_tbl_del_in);
1322:
1323: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1326: RAISE OKL_API.G_EXCEPTION_ERROR;
1327: END IF;
1320: x_msg_data => l_msg_data,
1321: p_gtlv_tbl => l_gtlv_pri_tbl_del_in);
1322:
1323: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1326: RAISE OKL_API.G_EXCEPTION_ERROR;
1327: END IF;
1328:
1321: p_gtlv_tbl => l_gtlv_pri_tbl_del_in);
1322:
1323: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1326: RAISE OKL_API.G_EXCEPTION_ERROR;
1327: END IF;
1328:
1329: x_return_status := l_return_status;
1322:
1323: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1326: RAISE OKL_API.G_EXCEPTION_ERROR;
1327: END IF;
1328:
1329: x_return_status := l_return_status;
1330: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1326: RAISE OKL_API.G_EXCEPTION_ERROR;
1327: END IF;
1328:
1329: x_return_status := l_return_status;
1330: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1331: EXCEPTION
1332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1333: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1334: (l_api_name,
1328:
1329: x_return_status := l_return_status;
1330: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1331: EXCEPTION
1332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1333: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1334: (l_api_name,
1335: G_PKG_NAME,
1336: 'OKL_API.G_RET_STS_ERROR',
1329: x_return_status := l_return_status;
1330: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1331: EXCEPTION
1332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1333: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1334: (l_api_name,
1335: G_PKG_NAME,
1336: 'OKL_API.G_RET_STS_ERROR',
1337: x_msg_count,
1332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1333: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1334: (l_api_name,
1335: G_PKG_NAME,
1336: 'OKL_API.G_RET_STS_ERROR',
1337: x_msg_count,
1338: x_msg_data,
1339: '_PVT');
1340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1336: 'OKL_API.G_RET_STS_ERROR',
1337: x_msg_count,
1338: x_msg_data,
1339: '_PVT');
1340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1341: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1342: ( l_api_name,
1343: G_PKG_NAME,
1344: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1337: x_msg_count,
1338: x_msg_data,
1339: '_PVT');
1340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1341: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1342: ( l_api_name,
1343: G_PKG_NAME,
1344: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1345: x_msg_count,
1340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1341: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1342: ( l_api_name,
1343: G_PKG_NAME,
1344: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1345: x_msg_count,
1346: x_msg_data,
1347: '_PVT');
1348: WHEN OTHERS THEN
1345: x_msg_count,
1346: x_msg_data,
1347: '_PVT');
1348: WHEN OTHERS THEN
1349: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1350: ( l_api_name,
1351: G_PKG_NAME,
1352: 'OTHERS',
1353: x_msg_count,
1378: )IS
1379: l_gtt_id okl_st_gen_templates.id%type;
1380: l_api_name CONSTANT VARCHAR2(40) := 'delete_dep_tmpt_lns';
1381: l_api_version CONSTANT NUMBER := 1.0;
1382: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1383:
1384: l_init_msg_list VARCHAR2(1);
1385: l_msg_count NUMBER;
1386: l_msg_data VARCHAR2(2000);
1383:
1384: l_init_msg_list VARCHAR2(1);
1385: l_msg_count NUMBER;
1386: l_msg_data VARCHAR2(2000);
1387: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
1388:
1389: l_gttv_rec gttv_rec_type;
1390: l_gtlv_tbl_del_in gtlv_tbl_type := p_gtlv_tbl;
1391: BEGIN
1389: l_gttv_rec gttv_rec_type;
1390: l_gtlv_tbl_del_in gtlv_tbl_type := p_gtlv_tbl;
1391: BEGIN
1392: -- Perform the Initializations
1393: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1394: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1395: ,g_pkg_name
1396: ,p_init_msg_list
1397: ,l_api_version
1390: l_gtlv_tbl_del_in gtlv_tbl_type := p_gtlv_tbl;
1391: BEGIN
1392: -- Perform the Initializations
1393: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1394: l_return_status := OKL_API.START_ACTIVITY( l_api_name
1395: ,g_pkg_name
1396: ,p_init_msg_list
1397: ,l_api_version
1398: ,p_api_version
1397: ,l_api_version
1398: ,p_api_version
1399: ,'_PVT'
1400: ,x_return_status);
1401: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1404: RAISE OKL_API.G_EXCEPTION_ERROR;
1405: END IF;
1398: ,p_api_version
1399: ,'_PVT'
1400: ,x_return_status);
1401: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1404: RAISE OKL_API.G_EXCEPTION_ERROR;
1405: END IF;
1406:
1399: ,'_PVT'
1400: ,x_return_status);
1401: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1404: RAISE OKL_API.G_EXCEPTION_ERROR;
1405: END IF;
1406:
1407: Okl_Gtl_Pvt.delete_row(
1400: ,x_return_status);
1401: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1404: RAISE OKL_API.G_EXCEPTION_ERROR;
1405: END IF;
1406:
1407: Okl_Gtl_Pvt.delete_row(
1408: p_api_version => l_api_version,
1411: x_msg_count => l_msg_count,
1412: x_msg_data => l_msg_data,
1413: p_gtlv_tbl => l_gtlv_tbl_del_in);
1414:
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: x_msg_data => l_msg_data,
1413: p_gtlv_tbl => l_gtlv_tbl_del_in);
1414:
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: p_gtlv_tbl => l_gtlv_tbl_del_in);
1414:
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: x_return_status := l_return_status;
1414:
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: x_return_status := l_return_status;
1422: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;
1420:
1421: x_return_status := l_return_status;
1422: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1423: EXCEPTION
1424: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1425: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1426: (l_api_name,
1420:
1421: x_return_status := l_return_status;
1422: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1423: EXCEPTION
1424: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1425: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1426: (l_api_name,
1427: G_PKG_NAME,
1428: 'OKL_API.G_RET_STS_ERROR',
1421: x_return_status := l_return_status;
1422: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1423: EXCEPTION
1424: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1425: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1426: (l_api_name,
1427: G_PKG_NAME,
1428: 'OKL_API.G_RET_STS_ERROR',
1429: x_msg_count,
1424: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1425: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1426: (l_api_name,
1427: G_PKG_NAME,
1428: 'OKL_API.G_RET_STS_ERROR',
1429: x_msg_count,
1430: x_msg_data,
1431: '_PVT');
1432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1428: 'OKL_API.G_RET_STS_ERROR',
1429: x_msg_count,
1430: x_msg_data,
1431: '_PVT');
1432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1433: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1434: ( l_api_name,
1435: G_PKG_NAME,
1436: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1429: x_msg_count,
1430: x_msg_data,
1431: '_PVT');
1432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1433: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1434: ( l_api_name,
1435: G_PKG_NAME,
1436: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1437: x_msg_count,
1432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1433: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1434: ( l_api_name,
1435: G_PKG_NAME,
1436: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1437: x_msg_count,
1438: x_msg_data,
1439: '_PVT');
1440: WHEN OTHERS THEN
1437: x_msg_count,
1438: x_msg_data,
1439: '_PVT');
1440: WHEN OTHERS THEN
1441: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1442: ( l_api_name,
1443: G_PKG_NAME,
1444: 'OTHERS',
1445: x_msg_count,
1539: END IF;
1540: l_msg := FND_MESSAGE.GET;
1541: IF ( UPPER(p_during_upd_flag) = 'T' )
1542: THEN
1543: OKL_API.SET_MESSAGE( g_app_name
1544: ,p_msg_name
1545: ,p_token1
1546: ,p_value1
1547: ,p_token2
1989: )IS
1990: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
1991: l_api_name CONSTANT VARCHAR2(40) := 'validate_financial_template';
1992: l_api_version CONSTANT NUMBER := 1.0;
1993: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1994: l_error_msgs_tbl error_msgs_tbl_type;
1995: l_error_msgs_tbl_val_bill error_msgs_tbl_type;
1996: l_msgs_count NUMBER := 1;
1997:
1997:
1998: l_init_msg_list VARCHAR2(1);
1999: l_msg_count NUMBER;
2000: l_msg_data VARCHAR2(2000);
2001: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
2002: l_ins_strms_count NUMBER := 0;
2003:
2004: l_gttv_rec_in gttv_rec_type;
2005: l_gttv_rec_out gttv_rec_type;
3169: i NUMBER := 0;
3170: -- Bug 4129154: End
3171: BEGIN
3172: -- Perform the Initializations
3173: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3174: -- Get the Interest Calculation Method and Revenue Recognition Method from the SGT
3175: FOR t_rec IN fetch_sgt_info( p_gtt_id => p_gtt_id )
3176: LOOP
3177: l_rrm := t_rec.revenue_recog_meth_code;
3631: END IF;
3632: x_error_msgs_tbl := l_error_msgs_tbl;
3633: x_return_status := l_return_status;
3634: EXCEPTION
3635: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3636: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3637: (l_api_name,
3638: G_PKG_NAME,
3639: 'OKL_API.G_RET_STS_ERROR',
3632: x_error_msgs_tbl := l_error_msgs_tbl;
3633: x_return_status := l_return_status;
3634: EXCEPTION
3635: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3636: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3637: (l_api_name,
3638: G_PKG_NAME,
3639: 'OKL_API.G_RET_STS_ERROR',
3640: x_msg_count,
3635: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3636: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3637: (l_api_name,
3638: G_PKG_NAME,
3639: 'OKL_API.G_RET_STS_ERROR',
3640: x_msg_count,
3641: x_msg_data,
3642: '_PVT');
3643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3639: 'OKL_API.G_RET_STS_ERROR',
3640: x_msg_count,
3641: x_msg_data,
3642: '_PVT');
3643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3645: ( l_api_name,
3646: G_PKG_NAME,
3647: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3640: x_msg_count,
3641: x_msg_data,
3642: '_PVT');
3643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3645: ( l_api_name,
3646: G_PKG_NAME,
3647: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3648: x_msg_count,
3643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3645: ( l_api_name,
3646: G_PKG_NAME,
3647: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3648: x_msg_count,
3649: x_msg_data,
3650: '_PVT');
3651: WHEN OTHERS THEN
3648: x_msg_count,
3649: x_msg_data,
3650: '_PVT');
3651: WHEN OTHERS THEN
3652: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3653: ( l_api_name,
3654: G_PKG_NAME,
3655: 'OTHERS',
3656: x_msg_count,
3683: ,p_during_upd_flag IN VARCHAR
3684: )IS
3685: l_api_name CONSTANT VARCHAR2(40) := 'validate_investor_template';
3686: l_api_version CONSTANT NUMBER := 1.0;
3687: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3688: l_error_msgs_tbl error_msgs_tbl_type;
3689: l_msgs_count NUMBER := 1;
3690:
3691: l_init_msg_list VARCHAR2(1);
3690:
3691: l_init_msg_list VARCHAR2(1);
3692: l_msg_count NUMBER;
3693: l_msg_data VARCHAR2(2000);
3694: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
3695:
3696: -- 1. Only one stream type of the following primary purposes should be defined.
3697: CURSOR inv_only_one_as_primary_csr( p_gtt_id IN OKL_ST_GEN_TEMPLATES.id%type) IS
3698: SELECT stb.stream_type_purpose purpose, count(stb.stream_type_purpose)
3785: l_message VARCHAR2(2700);
3786: l_purpose_list VARCHAR2(10000);
3787: BEGIN
3788: -- Perform the Initializations
3789: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3790: -- Only one stream type of the following primary purposes should be defined.
3791: l_purpose_list := '';
3792: FOR only_one_as_primary_rec IN inv_only_one_as_primary_csr(p_gtt_id)
3793: LOOP
3836: END IF;
3837: x_error_msgs_tbl := l_error_msgs_tbl;
3838: x_return_status := l_return_status;
3839: EXCEPTION
3840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3841: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3842: (l_api_name,
3843: G_PKG_NAME,
3844: 'OKL_API.G_RET_STS_ERROR',
3837: x_error_msgs_tbl := l_error_msgs_tbl;
3838: x_return_status := l_return_status;
3839: EXCEPTION
3840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3841: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3842: (l_api_name,
3843: G_PKG_NAME,
3844: 'OKL_API.G_RET_STS_ERROR',
3845: x_msg_count,
3840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3841: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3842: (l_api_name,
3843: G_PKG_NAME,
3844: 'OKL_API.G_RET_STS_ERROR',
3845: x_msg_count,
3846: x_msg_data,
3847: '_PVT');
3848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3844: 'OKL_API.G_RET_STS_ERROR',
3845: x_msg_count,
3846: x_msg_data,
3847: '_PVT');
3848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3849: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3850: ( l_api_name,
3851: G_PKG_NAME,
3852: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3845: x_msg_count,
3846: x_msg_data,
3847: '_PVT');
3848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3849: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3850: ( l_api_name,
3851: G_PKG_NAME,
3852: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3853: x_msg_count,
3848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3849: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3850: ( l_api_name,
3851: G_PKG_NAME,
3852: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3853: x_msg_count,
3854: x_msg_data,
3855: '_PVT');
3856: WHEN OTHERS THEN
3853: x_msg_count,
3854: x_msg_data,
3855: '_PVT');
3856: WHEN OTHERS THEN
3857: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3858: ( l_api_name,
3859: G_PKG_NAME,
3860: 'OTHERS',
3861: x_msg_count,
3888:
3889: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
3890: l_api_name CONSTANT VARCHAR2(40) := 'create_strm_gen_template';
3891: l_api_version CONSTANT NUMBER := 1.0;
3892: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3893:
3894: l_init_msg_list VARCHAR2(1);
3895: l_msg_count NUMBER;
3896: l_msg_data VARCHAR2(2000);
3893:
3894: l_init_msg_list VARCHAR2(1);
3895: l_msg_count NUMBER;
3896: l_msg_data VARCHAR2(2000);
3897: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
3898: l_gttv_rec_in gttv_rec_type;
3899: l_gttv_rec_out gttv_rec_type;
3900:
3901: CURSOR okl_st_gen_templates_csr(p_gtt_id IN OKL_ST_GEN_TEMPLATES.id%type) IS
3907: ,TMPT_STATUS
3908: FROM OKL_ST_GEN_TEMPLATES
3909: where ID = p_gtt_id;
3910: BEGIN
3911: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3912: l_return_status := OKL_API.START_ACTIVITY( l_api_name
3913: ,g_pkg_name
3914: ,p_init_msg_list
3915: ,l_api_version
3908: FROM OKL_ST_GEN_TEMPLATES
3909: where ID = p_gtt_id;
3910: BEGIN
3911: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3912: l_return_status := OKL_API.START_ACTIVITY( l_api_name
3913: ,g_pkg_name
3914: ,p_init_msg_list
3915: ,l_api_version
3916: ,p_api_version
3915: ,l_api_version
3916: ,p_api_version
3917: ,'_PVT'
3918: ,x_return_status);
3919: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3921: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_ERROR;
3923: END IF;
3916: ,p_api_version
3917: ,'_PVT'
3918: ,x_return_status);
3919: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3921: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_ERROR;
3923: END IF;
3924:
3917: ,'_PVT'
3918: ,x_return_status);
3919: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3921: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_ERROR;
3923: END IF;
3924:
3925: l_dummy := Okl_Api.G_FALSE;
3918: ,x_return_status);
3919: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3921: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_ERROR;
3923: END IF;
3924:
3925: l_dummy := Okl_Api.G_FALSE;
3926: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
3921: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_ERROR;
3923: END IF;
3924:
3925: l_dummy := Okl_Api.G_FALSE;
3926: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
3927: LOOP
3928: l_gttv_rec_in.id := gttv_rec_temp.id;
3929: l_gttv_rec_in.gts_id := gttv_rec_temp.gts_id;
3930: l_gttv_rec_in.version := gttv_rec_temp.version;
3931: l_gttv_rec_in.start_date := gttv_rec_temp.start_date;
3932: l_gttv_rec_in.end_date := gttv_rec_temp.end_date;
3933: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
3934: l_dummy := Okl_Api.G_TRUE;
3935: END LOOP;
3936:
3937: IF (l_dummy = okl_api.g_false) THEN
3938: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3933: l_gttv_rec_in.tmpt_status := gttv_rec_temp.tmpt_status;
3934: l_dummy := Okl_Api.G_TRUE;
3935: END LOOP;
3936:
3937: IF (l_dummy = okl_api.g_false) THEN
3938: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3939: p_msg_name => g_invalid_value,
3940: p_token1 => g_col_name_token,
3941: p_token1_value => 'GTT_ID');
3934: l_dummy := Okl_Api.G_TRUE;
3935: END LOOP;
3936:
3937: IF (l_dummy = okl_api.g_false) THEN
3938: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3939: p_msg_name => g_invalid_value,
3940: p_token1 => g_col_name_token,
3941: p_token1_value => 'GTT_ID');
3942: RAISE OKL_API.G_EXCEPTION_ERROR;
3938: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3939: p_msg_name => g_invalid_value,
3940: p_token1 => g_col_name_token,
3941: p_token1_value => 'GTT_ID');
3942: RAISE OKL_API.G_EXCEPTION_ERROR;
3943: END IF;
3944:
3945: -- Validations checked until now
3946: -- 1. Template status should be 'COMPLETE'
3955: ,x_msg_data => l_msg_data
3956: ,p_gttv_rec => l_gttv_rec_in
3957: ,x_gttv_rec => l_gttv_rec_out
3958: );
3959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3956: ,p_gttv_rec => l_gttv_rec_in
3957: ,x_gttv_rec => l_gttv_rec_out
3958: );
3959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964: ELSE
3957: ,x_gttv_rec => l_gttv_rec_out
3958: );
3959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964: ELSE
3965: -- Show a message saying that template status is not complete
3958: );
3959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964: ELSE
3965: -- Show a message saying that template status is not complete
3966: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964: ELSE
3965: -- Show a message saying that template status is not complete
3966: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3967: p_msg_name => g_invalid_value,
3968: p_token1 => g_col_name_token,
3969: p_token1_value => 'TMPT_STATUS');
3970: RAISE OKL_API.G_EXCEPTION_ERROR;
3966: okl_api.SET_MESSAGE( p_app_name => g_app_name,
3967: p_msg_name => g_invalid_value,
3968: p_token1 => g_col_name_token,
3969: p_token1_value => 'TMPT_STATUS');
3970: RAISE OKL_API.G_EXCEPTION_ERROR;
3971: END IF;
3972: x_return_status := l_return_status;
3973: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3974: EXCEPTION
3969: p_token1_value => 'TMPT_STATUS');
3970: RAISE OKL_API.G_EXCEPTION_ERROR;
3971: END IF;
3972: x_return_status := l_return_status;
3973: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3974: EXCEPTION
3975: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3976: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3977: (l_api_name,
3971: END IF;
3972: x_return_status := l_return_status;
3973: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3974: EXCEPTION
3975: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3976: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3977: (l_api_name,
3978: G_PKG_NAME,
3979: 'OKL_API.G_RET_STS_ERROR',
3972: x_return_status := l_return_status;
3973: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3974: EXCEPTION
3975: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3976: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3977: (l_api_name,
3978: G_PKG_NAME,
3979: 'OKL_API.G_RET_STS_ERROR',
3980: x_msg_count,
3975: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3976: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3977: (l_api_name,
3978: G_PKG_NAME,
3979: 'OKL_API.G_RET_STS_ERROR',
3980: x_msg_count,
3981: x_msg_data,
3982: '_PVT');
3983: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3979: 'OKL_API.G_RET_STS_ERROR',
3980: x_msg_count,
3981: x_msg_data,
3982: '_PVT');
3983: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3984: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3985: ( l_api_name,
3986: G_PKG_NAME,
3987: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3980: x_msg_count,
3981: x_msg_data,
3982: '_PVT');
3983: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3984: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3985: ( l_api_name,
3986: G_PKG_NAME,
3987: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3988: x_msg_count,
3983: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3984: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3985: ( l_api_name,
3986: G_PKG_NAME,
3987: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3988: x_msg_count,
3989: x_msg_data,
3990: '_PVT');
3991: WHEN OTHERS THEN
3988: x_msg_count,
3989: x_msg_data,
3990: '_PVT');
3991: WHEN OTHERS THEN
3992: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3993: ( l_api_name,
3994: G_PKG_NAME,
3995: 'OTHERS',
3996: x_msg_count,
4024: )IS
4025: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
4026: l_api_name CONSTANT VARCHAR2(40) := 'validate_mandatory_dep';
4027: l_api_version CONSTANT NUMBER := 1.0;
4028: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4029:
4030: l_purpose_list VARCHAR2(10000);
4031: -- Cursor to fetch the missed dependent streams for a Primary Stream type
4032: -- with purpose as 'Fee Payment'
4064: SELECT 'FEE_RENEWAL' PURPOSE
4065: FROM DUAL
4066: WHERE p_exclude_fr = 'T'
4067: );
4068: l_exclude_fr VARCHAR2(1) := OKL_API.G_TRUE;
4069: BEGIN
4070: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4071:
4072: x_show_warn_flag := OKL_API.G_FALSE;
4066: WHERE p_exclude_fr = 'T'
4067: );
4068: l_exclude_fr VARCHAR2(1) := OKL_API.G_TRUE;
4069: BEGIN
4070: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4071:
4072: x_show_warn_flag := OKL_API.G_FALSE;
4073: l_purpose_list := '';
4074: IF ( belongs_to_ls(p_deal_type) = TRUE )
4068: l_exclude_fr VARCHAR2(1) := OKL_API.G_TRUE;
4069: BEGIN
4070: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4071:
4072: x_show_warn_flag := OKL_API.G_FALSE;
4073: l_purpose_list := '';
4074: IF ( belongs_to_ls(p_deal_type) = TRUE )
4075: THEN
4076: l_exclude_fr := 'F';
4080: l_purpose_list := l_purpose_list ||
4081: OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING(
4082: G_OKL_FIN_DEPENDENT_PURPOSES, fee_payment_man_dep_rec.purpose )
4083: || ',';
4084: x_show_warn_flag := OKL_API.G_TRUE;
4085: END LOOP;
4086:
4087: l_purpose_list := rtrim( l_purpose_list,',' );
4088: x_missing_deps := l_purpose_list;
4087: l_purpose_list := rtrim( l_purpose_list,',' );
4088: x_missing_deps := l_purpose_list;
4089: x_return_status := l_return_status;
4090: EXCEPTION
4091: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4093: (l_api_name,
4094: G_PKG_NAME,
4095: 'OKL_API.G_RET_STS_ERROR',
4088: x_missing_deps := l_purpose_list;
4089: x_return_status := l_return_status;
4090: EXCEPTION
4091: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4093: (l_api_name,
4094: G_PKG_NAME,
4095: 'OKL_API.G_RET_STS_ERROR',
4096: x_msg_count,
4091: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4093: (l_api_name,
4094: G_PKG_NAME,
4095: 'OKL_API.G_RET_STS_ERROR',
4096: x_msg_count,
4097: x_msg_data,
4098: '_PVT');
4099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4095: 'OKL_API.G_RET_STS_ERROR',
4096: x_msg_count,
4097: x_msg_data,
4098: '_PVT');
4099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4100: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4101: ( l_api_name,
4102: G_PKG_NAME,
4103: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4096: x_msg_count,
4097: x_msg_data,
4098: '_PVT');
4099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4100: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4101: ( l_api_name,
4102: G_PKG_NAME,
4103: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4104: x_msg_count,
4099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4100: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4101: ( l_api_name,
4102: G_PKG_NAME,
4103: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4104: x_msg_count,
4105: x_msg_data,
4106: '_PVT');
4107: WHEN OTHERS THEN
4104: x_msg_count,
4105: x_msg_data,
4106: '_PVT');
4107: WHEN OTHERS THEN
4108: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4109: ( l_api_name,
4110: G_PKG_NAME,
4111: 'OTHERS',
4112: x_msg_count,
4140:
4141: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
4142: l_api_name CONSTANT VARCHAR2(40) := 'validate_for_warnings';
4143: l_api_version CONSTANT NUMBER := 1.0;
4144: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4145: l_missing_deps VARCHAR2(10000);
4146: l_show_warn_flag VARCHAR2(1) := OKL_API.G_FALSE;
4147: l_wrn_msgs_tbl error_msgs_tbl_type;
4148: l_msgs_count NUMBER := 1;
4142: l_api_name CONSTANT VARCHAR2(40) := 'validate_for_warnings';
4143: l_api_version CONSTANT NUMBER := 1.0;
4144: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4145: l_missing_deps VARCHAR2(10000);
4146: l_show_warn_flag VARCHAR2(1) := OKL_API.G_FALSE;
4147: l_wrn_msgs_tbl error_msgs_tbl_type;
4148: l_msgs_count NUMBER := 1;
4149: l_message VARCHAR2(2700);
4150: l_pri_purpose_list VARCHAR2(10000);
4165: AND GTL.PRIMARY_YN = 'Y'
4166: AND GTL.PRIMARY_STY_ID = STB.ID
4167: AND STB.STREAM_TYPE_PURPOSE = 'FEE_PAYMENT';
4168: BEGIN
4169: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4170: l_pri_purpose_list := '';
4171: FOR fee_payment_pri_strms_rec IN fee_payment_pri_strms_csr(p_gtt_id)
4172: LOOP
4173: validate_mandatory_dep(
4181: ,x_missing_deps => l_missing_deps
4182: ,x_show_warn_flag => l_show_warn_flag
4183: ,p_deal_type => fee_payment_pri_strms_rec.deal_type
4184: );
4185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4182: ,x_show_warn_flag => l_show_warn_flag
4183: ,p_deal_type => fee_payment_pri_strms_rec.deal_type
4184: );
4185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4190: IF ( l_show_warn_flag <> OKL_API.G_FALSE )
4183: ,p_deal_type => fee_payment_pri_strms_rec.deal_type
4184: );
4185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4190: IF ( l_show_warn_flag <> OKL_API.G_FALSE )
4191: THEN
4184: );
4185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4190: IF ( l_show_warn_flag <> OKL_API.G_FALSE )
4191: THEN
4192: put_messages_in_table( 'OKL_ST_SGT_MAN_DEP_MISSING_WRN'
4186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4190: IF ( l_show_warn_flag <> OKL_API.G_FALSE )
4191: THEN
4192: put_messages_in_table( 'OKL_ST_SGT_MAN_DEP_MISSING_WRN'
4193: ,p_during_upd_flag
4194: ,l_message
4210: x_wrn_msgs_tbl := l_wrn_msgs_tbl;
4211: x_pri_purpose_list := rtrim( l_pri_purpose_list,',' );
4212: x_return_status := l_return_status;
4213: EXCEPTION
4214: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4215: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4216: (l_api_name,
4217: G_PKG_NAME,
4218: 'OKL_API.G_RET_STS_ERROR',
4211: x_pri_purpose_list := rtrim( l_pri_purpose_list,',' );
4212: x_return_status := l_return_status;
4213: EXCEPTION
4214: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4215: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4216: (l_api_name,
4217: G_PKG_NAME,
4218: 'OKL_API.G_RET_STS_ERROR',
4219: x_msg_count,
4214: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4215: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4216: (l_api_name,
4217: G_PKG_NAME,
4218: 'OKL_API.G_RET_STS_ERROR',
4219: x_msg_count,
4220: x_msg_data,
4221: '_PVT');
4222: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4218: 'OKL_API.G_RET_STS_ERROR',
4219: x_msg_count,
4220: x_msg_data,
4221: '_PVT');
4222: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4223: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4224: ( l_api_name,
4225: G_PKG_NAME,
4226: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4219: x_msg_count,
4220: x_msg_data,
4221: '_PVT');
4222: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4223: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4224: ( l_api_name,
4225: G_PKG_NAME,
4226: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4227: x_msg_count,
4222: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4223: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4224: ( l_api_name,
4225: G_PKG_NAME,
4226: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4227: x_msg_count,
4228: x_msg_data,
4229: '_PVT');
4230: WHEN OTHERS THEN
4227: x_msg_count,
4228: x_msg_data,
4229: '_PVT');
4230: WHEN OTHERS THEN
4231: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4232: ( l_api_name,
4233: G_PKG_NAME,
4234: 'OTHERS',
4235: x_msg_count,
4262: )IS
4263: l_gtt_id okl_st_gen_templates.id%type := p_gtt_id;
4264: l_api_name CONSTANT VARCHAR2(40) := 'validate_template';
4265: l_api_version CONSTANT NUMBER := 1.0;
4266: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4267: l_error_msgs_tbl error_msgs_tbl_type;
4268: l_wrn_msgs_tbl error_msgs_tbl_type;
4269:
4270: l_init_msg_list VARCHAR2(1);
4270: l_init_msg_list VARCHAR2(1);
4271: l_msg_count NUMBER;
4272: l_msg_data VARCHAR2(2000);
4273:
4274: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
4275: l_pri_purpose_list VARCHAR2(2000);
4276:
4277: l_gttv_rec_in gttv_rec_type;
4278: l_gttv_rec_out gttv_rec_type;
4293: AND GTT.ID = p_gtt_id;
4294: l_tmpt_set_rec okl_st_gen_templates_csr%ROWTYPE;
4295: BEGIN
4296: -- Perform the Initializations
4297: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4298: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4299: ,g_pkg_name
4300: ,p_init_msg_list
4301: ,l_api_version
4294: l_tmpt_set_rec okl_st_gen_templates_csr%ROWTYPE;
4295: BEGIN
4296: -- Perform the Initializations
4297: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4298: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4299: ,g_pkg_name
4300: ,p_init_msg_list
4301: ,l_api_version
4302: ,p_api_version
4301: ,l_api_version
4302: ,p_api_version
4303: ,'_PVT'
4304: ,x_return_status);
4305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4302: ,p_api_version
4303: ,'_PVT'
4304: ,x_return_status);
4305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4310: l_dummy := Okl_Api.G_FALSE;
4303: ,'_PVT'
4304: ,x_return_status);
4305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4310: l_dummy := Okl_Api.G_FALSE;
4311: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
4304: ,x_return_status);
4305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4310: l_dummy := Okl_Api.G_FALSE;
4311: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
4312: LOOP
4306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4310: l_dummy := Okl_Api.G_FALSE;
4311: FOR gttv_rec_temp IN okl_st_gen_templates_csr(l_gtt_id)
4312: LOOP
4313: l_tmpt_set_rec.id := gttv_rec_temp.id;
4314: l_tmpt_set_rec.gts_id := gttv_rec_temp.gts_id;
4317: l_tmpt_set_rec.tmpt_status := gttv_rec_temp.tmpt_status;
4318: l_tmpt_set_rec.deal_type := gttv_rec_temp.deal_type;
4319: l_tmpt_set_rec.product_type := gttv_rec_temp.product_type;
4320: l_tmpt_set_rec.version := gttv_rec_temp.version;
4321: l_dummy := Okl_Api.G_TRUE;
4322: END LOOP;
4323: IF (l_dummy = okl_api.g_false) THEN
4324: okl_api.SET_MESSAGE( p_app_name => g_app_name,
4325: p_msg_name => g_invalid_value,
4319: l_tmpt_set_rec.product_type := gttv_rec_temp.product_type;
4320: l_tmpt_set_rec.version := gttv_rec_temp.version;
4321: l_dummy := Okl_Api.G_TRUE;
4322: END LOOP;
4323: IF (l_dummy = okl_api.g_false) THEN
4324: okl_api.SET_MESSAGE( p_app_name => g_app_name,
4325: p_msg_name => g_invalid_value,
4326: p_token1 => g_col_name_token,
4327: p_token1_value => 'GTT_ID');
4320: l_tmpt_set_rec.version := gttv_rec_temp.version;
4321: l_dummy := Okl_Api.G_TRUE;
4322: END LOOP;
4323: IF (l_dummy = okl_api.g_false) THEN
4324: okl_api.SET_MESSAGE( p_app_name => g_app_name,
4325: p_msg_name => g_invalid_value,
4326: p_token1 => g_col_name_token,
4327: p_token1_value => 'GTT_ID');
4328: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: okl_api.SET_MESSAGE( p_app_name => g_app_name,
4325: p_msg_name => g_invalid_value,
4326: p_token1 => g_col_name_token,
4327: p_token1_value => 'GTT_ID');
4328: RAISE OKL_API.G_EXCEPTION_ERROR;
4329: END IF;
4330: -- If the Product Type is INVESTOR call the validate_investor_template api
4331: IF ( l_tmpt_set_rec.product_type = G_INVESTOR_PRODUCT )
4332: THEN
4352: ,l_error_msgs_tbl
4353: ,p_during_upd_flag
4354: ,l_tmpt_set_rec.deal_type);
4355: END IF;
4356: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4359: RAISE OKL_API.G_EXCEPTION_ERROR;
4360: END IF;
4353: ,p_during_upd_flag
4354: ,l_tmpt_set_rec.deal_type);
4355: END IF;
4356: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4359: RAISE OKL_API.G_EXCEPTION_ERROR;
4360: END IF;
4361: -- Update the template status based on the x_return_status
4354: ,l_tmpt_set_rec.deal_type);
4355: END IF;
4356: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4359: RAISE OKL_API.G_EXCEPTION_ERROR;
4360: END IF;
4361: -- Update the template status based on the x_return_status
4362: -- or l_error_msgs_tbl.COUNT
4355: END IF;
4356: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4359: RAISE OKL_API.G_EXCEPTION_ERROR;
4360: END IF;
4361: -- Update the template status based on the x_return_status
4362: -- or l_error_msgs_tbl.COUNT
4363: l_gttv_rec_in.id := l_tmpt_set_rec.id;
4398: ,x_msg_data => x_msg_data
4399: ,p_gttv_rec => l_gttv_rec_in
4400: ,x_gttv_rec => l_gttv_rec_out
4401: );
4402: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4405: RAISE OKL_API.G_EXCEPTION_ERROR;
4406: END IF;
4399: ,p_gttv_rec => l_gttv_rec_in
4400: ,x_gttv_rec => l_gttv_rec_out
4401: );
4402: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4405: RAISE OKL_API.G_EXCEPTION_ERROR;
4406: END IF;
4407: -- Call the validate_for_Warnings only when
4400: ,x_gttv_rec => l_gttv_rec_out
4401: );
4402: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4405: RAISE OKL_API.G_EXCEPTION_ERROR;
4406: END IF;
4407: -- Call the validate_for_Warnings only when
4408: -- a. If the template is Financial, and its not during Update mode
4401: );
4402: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4405: RAISE OKL_API.G_EXCEPTION_ERROR;
4406: END IF;
4407: -- Call the validate_for_Warnings only when
4408: -- a. If the template is Financial, and its not during Update mode
4409: IF ( p_during_upd_flag = OKL_API.G_FALSE
4405: RAISE OKL_API.G_EXCEPTION_ERROR;
4406: END IF;
4407: -- Call the validate_for_Warnings only when
4408: -- a. If the template is Financial, and its not during Update mode
4409: IF ( p_during_upd_flag = OKL_API.G_FALSE
4410: AND l_tmpt_set_rec.product_type <> G_INVESTOR_PRODUCT )
4411: THEN
4412: validate_for_warnings(
4413: p_api_version => p_api_version
4416: ,x_msg_count => x_msg_count
4417: ,x_msg_data => x_msg_data
4418: ,p_gtt_id => l_gtt_id
4419: ,x_wrn_msgs_tbl => l_wrn_msgs_tbl
4420: ,p_during_upd_flag => OKL_API.G_FALSE
4421: ,x_pri_purpose_list => l_pri_purpose_list
4422: );
4423: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: ,x_wrn_msgs_tbl => l_wrn_msgs_tbl
4420: ,p_during_upd_flag => OKL_API.G_FALSE
4421: ,x_pri_purpose_list => l_pri_purpose_list
4422: );
4423: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4425: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4426: RAISE OKL_API.G_EXCEPTION_ERROR;
4427: END IF;
4420: ,p_during_upd_flag => OKL_API.G_FALSE
4421: ,x_pri_purpose_list => l_pri_purpose_list
4422: );
4423: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4425: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4426: RAISE OKL_API.G_EXCEPTION_ERROR;
4427: END IF;
4428: -- Add the messages to the errors table
4421: ,x_pri_purpose_list => l_pri_purpose_list
4422: );
4423: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4425: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4426: RAISE OKL_API.G_EXCEPTION_ERROR;
4427: END IF;
4428: -- Add the messages to the errors table
4429: l_msg_count := l_error_msgs_tbl.COUNT;
4422: );
4423: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4425: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4426: RAISE OKL_API.G_EXCEPTION_ERROR;
4427: END IF;
4428: -- Add the messages to the errors table
4429: l_msg_count := l_error_msgs_tbl.COUNT;
4430: IF ( l_wrn_msgs_tbl.COUNT > 0 )
4440: END IF;
4441: x_error_msgs_tbl := l_error_msgs_tbl;
4442: x_return_tmpt_status := l_gttv_rec_out.tmpt_status;
4443: x_return_status := l_return_status;
4444: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4445: EXCEPTION
4446: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4447: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4448: (l_api_name,
4442: x_return_tmpt_status := l_gttv_rec_out.tmpt_status;
4443: x_return_status := l_return_status;
4444: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4445: EXCEPTION
4446: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4447: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4448: (l_api_name,
4449: G_PKG_NAME,
4450: 'OKL_API.G_RET_STS_ERROR',
4443: x_return_status := l_return_status;
4444: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4445: EXCEPTION
4446: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4447: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4448: (l_api_name,
4449: G_PKG_NAME,
4450: 'OKL_API.G_RET_STS_ERROR',
4451: x_msg_count,
4446: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4447: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4448: (l_api_name,
4449: G_PKG_NAME,
4450: 'OKL_API.G_RET_STS_ERROR',
4451: x_msg_count,
4452: x_msg_data,
4453: '_PVT');
4454: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4450: 'OKL_API.G_RET_STS_ERROR',
4451: x_msg_count,
4452: x_msg_data,
4453: '_PVT');
4454: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4455: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4456: ( l_api_name,
4457: G_PKG_NAME,
4458: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4451: x_msg_count,
4452: x_msg_data,
4453: '_PVT');
4454: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4455: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4456: ( l_api_name,
4457: G_PKG_NAME,
4458: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4459: x_msg_count,
4454: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4455: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4456: ( l_api_name,
4457: G_PKG_NAME,
4458: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4459: x_msg_count,
4460: x_msg_data,
4461: '_PVT');
4462: WHEN OTHERS THEN
4459: x_msg_count,
4460: x_msg_data,
4461: '_PVT');
4462: WHEN OTHERS THEN
4463: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4464: ( l_api_name,
4465: G_PKG_NAME,
4466: 'OTHERS',
4467: x_msg_count,
4495: ,x_show_warn_flag OUT NOCOPY VARCHAR2
4496: )IS
4497: l_api_name CONSTANT VARCHAR2(40) := 'update_dep_strms';
4498: l_api_version CONSTANT NUMBER := 1.0;
4499: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4500:
4501: l_init_msg_list VARCHAR2(1);
4502: l_msg_count NUMBER;
4503: l_msg_data VARCHAR2(2000);
4537: AND GTL.PRIMARY_STY_ID = p_pri_id
4538: GROUP BY STY.STREAM_TYPE_PURPOSE
4539: HAVING COUNT( STREAM_TYPE_PURPOSE) > 1;
4540:
4541: l_found VARCHAR2(1) := OKL_API.G_FALSE;
4542: l_gtt_id OKL_ST_GEN_TMPT_LNS.GTT_ID%TYPE;
4543: l_pri_sty_id OKL_ST_GEN_TMPT_LNS.PRIMARY_STY_ID%TYPE;
4544: l_purp_list VARCHAR2(250);
4545: -- Bug 4054596: Issue No. 5: End
4566: AND GTL.PRIMARY_YN = 'Y'
4567: AND GTL.GTT_ID = p_gtt_id
4568: AND GTL.PRIMARY_STY_ID = p_pri_sty_id;
4569:
4570: l_missing_deps VARCHAR2(10000) := OKL_API.G_MISS_CHAR;
4571: l_show_warn_flag VARCHAR2(1):= OKL_API.G_FALSE;
4572: l_pri_strm_purpose OKL_STRM_TYPE_B.STREAM_TYPE_PURPOSE%TYPE;
4573:
4574: -- Modified by RGOOTY
4567: AND GTL.GTT_ID = p_gtt_id
4568: AND GTL.PRIMARY_STY_ID = p_pri_sty_id;
4569:
4570: l_missing_deps VARCHAR2(10000) := OKL_API.G_MISS_CHAR;
4571: l_show_warn_flag VARCHAR2(1):= OKL_API.G_FALSE;
4572: l_pri_strm_purpose OKL_STRM_TYPE_B.STREAM_TYPE_PURPOSE%TYPE;
4573:
4574: -- Modified by RGOOTY
4575: -- Bug 4094361: Start
4586: l_sgt_set_id OKL_ST_GEN_TMPT_SETS.ID%TYPE;
4587: -- Bug 4094361: End
4588: BEGIN
4589: -- Perform the Initializations
4590: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4591: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4592: ,g_pkg_name
4593: ,p_init_msg_list
4594: ,l_api_version
4587: -- Bug 4094361: End
4588: BEGIN
4589: -- Perform the Initializations
4590: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4591: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4592: ,g_pkg_name
4593: ,p_init_msg_list
4594: ,l_api_version
4595: ,p_api_version
4594: ,l_api_version
4595: ,p_api_version
4596: ,'_PVT'
4597: ,x_return_status);
4598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4601: RAISE OKL_API.G_EXCEPTION_ERROR;
4602: END IF;
4595: ,p_api_version
4596: ,'_PVT'
4597: ,x_return_status);
4598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4601: RAISE OKL_API.G_EXCEPTION_ERROR;
4602: END IF;
4603: -- Updating/Inserting the Template Lines
4596: ,'_PVT'
4597: ,x_return_status);
4598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4601: RAISE OKL_API.G_EXCEPTION_ERROR;
4602: END IF;
4603: -- Updating/Inserting the Template Lines
4604: IF (p_gtlv_tbl.COUNT > 0) THEN
4597: ,x_return_status);
4598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4601: RAISE OKL_API.G_EXCEPTION_ERROR;
4602: END IF;
4603: -- Updating/Inserting the Template Lines
4604: IF (p_gtlv_tbl.COUNT > 0) THEN
4605: ins_table_count :=0;
4606: upd_table_count :=0;
4607: FOR i IN p_gtlv_tbl.FIRST .. p_gtlv_tbl.LAST
4608: LOOP
4609: -- Decide whether we need to update or insert the Template Lines.
4610: IF (p_gtlv_tbl(i).id = Okl_Api.G_MISS_NUM OR p_gtlv_tbl(i).id IS NULL
4611: OR p_gtlv_tbl(i).id = 0 )
4612: THEN
4613: -- Copy into the Insert table
4614: l_gtlv_tbl_ins_in(ins_table_count) := p_gtlv_tbl(i);
4630: ,x_msg_data => l_msg_data
4631: ,p_gtlv_tbl => l_gtlv_tbl_ins_in
4632: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
4633: );
4634: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4631: ,p_gtlv_tbl => l_gtlv_tbl_ins_in
4632: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
4633: );
4634: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4639: END IF;
4632: ,x_gtlv_tbl => l_gtlv_tbl_ins_out
4633: );
4634: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4639: END IF;
4640: IF (l_gtlv_tbl_upd_in.count > 0 )
4633: );
4634: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4639: END IF;
4640: IF (l_gtlv_tbl_upd_in.count > 0 )
4641: THEN
4648: ,x_msg_data => l_msg_data
4649: ,p_gtlv_tbl => l_gtlv_tbl_upd_in
4650: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
4651: );
4652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4655: RAISE OKL_API.G_EXCEPTION_ERROR;
4656: END IF;
4649: ,p_gtlv_tbl => l_gtlv_tbl_upd_in
4650: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
4651: );
4652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4655: RAISE OKL_API.G_EXCEPTION_ERROR;
4656: END IF;
4657: END IF;
4650: ,x_gtlv_tbl => l_gtlv_tbl_upd_out
4651: );
4652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4655: RAISE OKL_API.G_EXCEPTION_ERROR;
4656: END IF;
4657: END IF;
4658: END IF;
4651: );
4652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4655: RAISE OKL_API.G_EXCEPTION_ERROR;
4656: END IF;
4657: END IF;
4658: END IF;
4659: /*
4659: /*
4660:
4661: -- Modified by RGOOTY
4662: -- Bug 4054596: Issue No. 5: Start
4663: l_found := OKL_API.G_FALSE;
4664: l_gtt_id := p_gtt_id;--p_gtlv_tbl( p_gtlv_tbl.FIRST ).gtt_id;
4665: l_pri_sty_id := p_pri_sty_id; --p_gtlv_tbl( p_gtlv_tbl.FIRST).primary_sty_id;
4666: l_purp_list := '';
4667: FOR okl_dep_dup_rec In okl_dep_purpose_dup_csr( l_gtt_id, l_pri_sty_id )
4665: l_pri_sty_id := p_pri_sty_id; --p_gtlv_tbl( p_gtlv_tbl.FIRST).primary_sty_id;
4666: l_purp_list := '';
4667: FOR okl_dep_dup_rec In okl_dep_purpose_dup_csr( l_gtt_id, l_pri_sty_id )
4668: LOOP
4669: l_found := OKL_API.G_TRUE;
4670: l_purp_list := l_purp_list || okl_dep_dup_rec.purpose_meaning || ',';
4671: END LOOP;
4672: IF (l_found = Okl_Api.G_TRUE) THEN
4673: l_purp_list := RTRIM( l_purp_list,',' );
4668: LOOP
4669: l_found := OKL_API.G_TRUE;
4670: l_purp_list := l_purp_list || okl_dep_dup_rec.purpose_meaning || ',';
4671: END LOOP;
4672: IF (l_found = Okl_Api.G_TRUE) THEN
4673: l_purp_list := RTRIM( l_purp_list,',' );
4674: Okl_Api.SET_MESSAGE( p_app_name => g_app_name,
4675: p_msg_name => 'OKL_ST_SGT_DUP_DEP_PURPOSE',
4676: p_token1 => 'TEXT',
4670: l_purp_list := l_purp_list || okl_dep_dup_rec.purpose_meaning || ',';
4671: END LOOP;
4672: IF (l_found = Okl_Api.G_TRUE) THEN
4673: l_purp_list := RTRIM( l_purp_list,',' );
4674: Okl_Api.SET_MESSAGE( p_app_name => g_app_name,
4675: p_msg_name => 'OKL_ST_SGT_DUP_DEP_PURPOSE',
4676: p_token1 => 'TEXT',
4677: p_token1_value => l_purp_list);
4678: l_return_status := Okl_Api.G_RET_STS_ERROR;
4674: Okl_Api.SET_MESSAGE( p_app_name => g_app_name,
4675: p_msg_name => 'OKL_ST_SGT_DUP_DEP_PURPOSE',
4676: p_token1 => 'TEXT',
4677: p_token1_value => l_purp_list);
4678: l_return_status := Okl_Api.G_RET_STS_ERROR;
4679: RAISE Okl_Api.G_EXCEPTION_ERROR;
4680: END IF;
4681: -- Bug 4054596: Issue No. 5: End
4682:
4675: p_msg_name => 'OKL_ST_SGT_DUP_DEP_PURPOSE',
4676: p_token1 => 'TEXT',
4677: p_token1_value => l_purp_list);
4678: l_return_status := Okl_Api.G_RET_STS_ERROR;
4679: RAISE Okl_Api.G_EXCEPTION_ERROR;
4680: END IF;
4681: -- Bug 4054596: Issue No. 5: End
4682:
4683: IF( p_gtt_id IS NOT NULL AND p_gtt_id <> OKL_API.G_MISS_NUM AND
4679: RAISE Okl_Api.G_EXCEPTION_ERROR;
4680: END IF;
4681: -- Bug 4054596: Issue No. 5: End
4682:
4683: IF( p_gtt_id IS NOT NULL AND p_gtt_id <> OKL_API.G_MISS_NUM AND
4684: p_pri_sty_id IS NOT NULL AND p_pri_sty_id <> OKL_API.G_MISS_NUM )
4685: THEN
4686: FOR tmpt_det_rec IN tmpt_det_csr( p_gtt_id )
4687: LOOP
4680: END IF;
4681: -- Bug 4054596: Issue No. 5: End
4682:
4683: IF( p_gtt_id IS NOT NULL AND p_gtt_id <> OKL_API.G_MISS_NUM AND
4684: p_pri_sty_id IS NOT NULL AND p_pri_sty_id <> OKL_API.G_MISS_NUM )
4685: THEN
4686: FOR tmpt_det_rec IN tmpt_det_csr( p_gtt_id )
4687: LOOP
4688: l_deal_type := tmpt_det_rec.deal_type;
4710: ,p_during_upd_flag => 'T'
4711: );
4712: IF ( l_error_msgs_tbl.count > 0 )
4713: THEN
4714: x_return_status := Okl_Api.G_RET_STS_ERROR;
4715: RAISE Okl_Api.G_EXCEPTION_ERROR;
4716: END If;
4717: -- end changes by bkatraga
4718:
4711: );
4712: IF ( l_error_msgs_tbl.count > 0 )
4713: THEN
4714: x_return_status := Okl_Api.G_RET_STS_ERROR;
4715: RAISE Okl_Api.G_EXCEPTION_ERROR;
4716: END If;
4717: -- end changes by bkatraga
4718:
4719: FOR pdt_rec IN pdt_for_active_sgt_csr( l_sgt_set_id )
4725: x_msg_count => x_msg_count,
4726: x_msg_data => x_msg_data,
4727: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
4728: p_pdt_id => pdt_rec.pdt_id );
4729: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4731: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4732: RAISE OKL_API.G_EXCEPTION_ERROR;
4733: END IF;
4726: x_msg_data => x_msg_data,
4727: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
4728: p_pdt_id => pdt_rec.pdt_id );
4729: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4731: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4732: RAISE OKL_API.G_EXCEPTION_ERROR;
4733: END IF;
4734: END LOOP;
4727: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
4728: p_pdt_id => pdt_rec.pdt_id );
4729: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4731: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4732: RAISE OKL_API.G_EXCEPTION_ERROR;
4733: END IF;
4734: END LOOP;
4735: -- Bug 4094361: End
4728: p_pdt_id => pdt_rec.pdt_id );
4729: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4731: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4732: RAISE OKL_API.G_EXCEPTION_ERROR;
4733: END IF;
4734: END LOOP;
4735: -- Bug 4094361: End
4736: END IF;
4753: ,x_missing_deps => l_missing_deps
4754: ,x_show_warn_flag => l_show_warn_flag
4755: ,p_deal_type => l_deal_type
4756: );
4757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4759: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_ERROR;
4761: END IF;
4754: ,x_show_warn_flag => l_show_warn_flag
4755: ,p_deal_type => l_deal_type
4756: );
4757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4759: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_ERROR;
4761: END IF;
4762: x_missing_deps := l_missing_deps;
4755: ,p_deal_type => l_deal_type
4756: );
4757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4759: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_ERROR;
4761: END IF;
4762: x_missing_deps := l_missing_deps;
4763: x_show_warn_flag := l_show_warn_flag;
4756: );
4757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4759: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_ERROR;
4761: END IF;
4762: x_missing_deps := l_missing_deps;
4763: x_show_warn_flag := l_show_warn_flag;
4764:
4765: END IF;
4766: END IF;
4767: */
4768: x_return_status := l_return_status;
4769: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4770: EXCEPTION
4771: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4772: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4773: (l_api_name,
4767: */
4768: x_return_status := l_return_status;
4769: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4770: EXCEPTION
4771: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4772: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4773: (l_api_name,
4774: G_PKG_NAME,
4775: 'OKL_API.G_RET_STS_ERROR',
4768: x_return_status := l_return_status;
4769: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4770: EXCEPTION
4771: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4772: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4773: (l_api_name,
4774: G_PKG_NAME,
4775: 'OKL_API.G_RET_STS_ERROR',
4776: x_msg_count,
4771: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4772: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4773: (l_api_name,
4774: G_PKG_NAME,
4775: 'OKL_API.G_RET_STS_ERROR',
4776: x_msg_count,
4777: x_msg_data,
4778: '_PVT');
4779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4775: 'OKL_API.G_RET_STS_ERROR',
4776: x_msg_count,
4777: x_msg_data,
4778: '_PVT');
4779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4780: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4781: ( l_api_name,
4782: G_PKG_NAME,
4783: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4776: x_msg_count,
4777: x_msg_data,
4778: '_PVT');
4779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4780: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4781: ( l_api_name,
4782: G_PKG_NAME,
4783: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4784: x_msg_count,
4779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4780: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4781: ( l_api_name,
4782: G_PKG_NAME,
4783: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4784: x_msg_count,
4785: x_msg_data,
4786: '_PVT');
4787: WHEN OTHERS THEN
4784: x_msg_count,
4785: x_msg_data,
4786: '_PVT');
4787: WHEN OTHERS THEN
4788: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4789: ( l_api_name,
4790: G_PKG_NAME,
4791: 'OTHERS',
4792: x_msg_count,
4870: AND SGT.ID = p_gts_id;
4871:
4872: l_api_name CONSTANT VARCHAR2(40) := 'update_pri_dep_of_sgt';
4873: l_api_version CONSTANT NUMBER := 1.0;
4874: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4875: -- Local Variables Declaration
4876: l_missing_deps VARCHAR2(10000);
4877: l_show_warn_flag VARCHAR2(30);
4878: l_error_msgs_tbl error_msgs_tbl_type;
4883: l_msg VARCHAR2(10000);
4884: l_pri_stream_name OKL_STRM_TYPE_B.CODE%TYPE;
4885: l_dep_purp_list VARCHAR2(10000);
4886: BEGIN
4887: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4888: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4889: ,g_pkg_name
4890: ,p_init_msg_list
4891: ,l_api_version
4884: l_pri_stream_name OKL_STRM_TYPE_B.CODE%TYPE;
4885: l_dep_purp_list VARCHAR2(10000);
4886: BEGIN
4887: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4888: l_return_status := OKL_API.START_ACTIVITY( l_api_name
4889: ,g_pkg_name
4890: ,p_init_msg_list
4891: ,l_api_version
4892: ,p_api_version
4891: ,l_api_version
4892: ,p_api_version
4893: ,'_PVT'
4894: ,x_return_status);
4895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4898: RAISE OKL_API.G_EXCEPTION_ERROR;
4899: END IF;
4892: ,p_api_version
4893: ,'_PVT'
4894: ,x_return_status);
4895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4898: RAISE OKL_API.G_EXCEPTION_ERROR;
4899: END IF;
4900: -- Call the update api which takes care of updating the
4893: ,'_PVT'
4894: ,x_return_status);
4895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4898: RAISE OKL_API.G_EXCEPTION_ERROR;
4899: END IF;
4900: -- Call the update api which takes care of updating the
4901: -- SGT Set, Version, Pricing Params and Primary Lines
4894: ,x_return_status);
4895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4898: RAISE OKL_API.G_EXCEPTION_ERROR;
4899: END IF;
4900: -- Call the update api which takes care of updating the
4901: -- SGT Set, Version, Pricing Params and Primary Lines
4902: -- This API should not validate even the SGT status is active or not !
4911: p_gttv_rec => p_gttv_rec,
4912: p_gtpv_tbl => p_gtpv_tbl,
4913: p_gtlv_tbl => p_pri_gtlv_tbl,
4914: x_gttv_rec => x_gttv_rec);
4915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4918: RAISE OKL_API.G_EXCEPTION_ERROR;
4919: END IF;
4912: p_gtpv_tbl => p_gtpv_tbl,
4913: p_gtlv_tbl => p_pri_gtlv_tbl,
4914: x_gttv_rec => x_gttv_rec);
4915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4918: RAISE OKL_API.G_EXCEPTION_ERROR;
4919: END IF;
4920: END IF;
4913: p_gtlv_tbl => p_pri_gtlv_tbl,
4914: x_gttv_rec => x_gttv_rec);
4915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4918: RAISE OKL_API.G_EXCEPTION_ERROR;
4919: END IF;
4920: END IF;
4921: -- Call the API which deletes the Dependents
4914: x_gttv_rec => x_gttv_rec);
4915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4918: RAISE OKL_API.G_EXCEPTION_ERROR;
4919: END IF;
4920: END IF;
4921: -- Call the API which deletes the Dependents
4922: -- Dependents will be deleted only if the SGT was not in Active Status
4928: x_return_status => l_return_status,
4929: x_msg_count => x_msg_count,
4930: x_msg_data => x_msg_data,
4931: p_gtlv_tbl => p_del_dep_gtlv_tbl);
4932: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4934: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4935: RAISE OKL_API.G_EXCEPTION_ERROR;
4936: END IF;
4929: x_msg_count => x_msg_count,
4930: x_msg_data => x_msg_data,
4931: p_gtlv_tbl => p_del_dep_gtlv_tbl);
4932: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4934: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4935: RAISE OKL_API.G_EXCEPTION_ERROR;
4936: END IF;
4937: END IF;
4930: x_msg_data => x_msg_data,
4931: p_gtlv_tbl => p_del_dep_gtlv_tbl);
4932: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4934: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4935: RAISE OKL_API.G_EXCEPTION_ERROR;
4936: END IF;
4937: END IF;
4938: -- Call the update API which takes care of updating/inserting the
4931: p_gtlv_tbl => p_del_dep_gtlv_tbl);
4932: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4934: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4935: RAISE OKL_API.G_EXCEPTION_ERROR;
4936: END IF;
4937: END IF;
4938: -- Call the update API which takes care of updating/inserting the
4939: -- dependent streams of the Stream Generation Template
4950: p_pri_sty_id => NULL, -- Not mandatory
4951: p_gtlv_tbl => p_ins_dep_gtlv_tbl,
4952: x_missing_deps => l_missing_deps,
4953: x_show_warn_flag => l_show_warn_flag);
4954: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4951: p_gtlv_tbl => p_ins_dep_gtlv_tbl,
4952: x_missing_deps => l_missing_deps,
4953: x_show_warn_flag => l_show_warn_flag);
4954: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4959: END IF;
4952: x_missing_deps => l_missing_deps,
4953: x_show_warn_flag => l_show_warn_flag);
4954: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4959: END IF;
4960: -- Imposing the following Validation:
4953: x_show_warn_flag => l_show_warn_flag);
4954: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4959: END IF;
4960: -- Imposing the following Validation:
4961: -- RULE:
4961: -- RULE:
4962: -- For a particular Primary Stream, we shouldnot have
4963: -- two dependant streams with same purpose.
4964: -- Loop through all the Primary Stream types of this SGT
4965: l_found := OKL_API.G_FALSE;
4966: l_pri_stream_name := NULL;
4967: l_dep_purp_list := ' ';
4968: FOR t_rec IN okl_dep_purpose_dup_csr( x_gttv_rec.id )
4969: LOOP
4966: l_pri_stream_name := NULL;
4967: l_dep_purp_list := ' ';
4968: FOR t_rec IN okl_dep_purpose_dup_csr( x_gttv_rec.id )
4969: LOOP
4970: l_found := OKL_API.G_TRUE;
4971: IF l_pri_stream_name IS NULL
4972: THEN
4973: l_pri_stream_name := t_rec.pri_strm_type_name;
4974: l_dep_purp_list := t_rec.dep_purpose_meaning;
4991: THEN
4992: l_dep_purp_list := l_dep_purp_list || ',' || t_rec.dep_purpose_meaning;
4993: END IF;
4994: END LOOP;
4995: IF l_found = Okl_Api.G_TRUE
4996: THEN
4997: -- Push the last messsage into the FND stack
4998: put_messages_in_table(
4999: p_msg_name => 'OKL_ST_SGT_DUP_DEPENDANTS',
5002: p_token1 => 'PRISTRMCODE',
5003: p_value1 => l_pri_stream_name,
5004: p_token2 => 'DEPPURPOSELIST',
5005: p_value2 => l_dep_purp_list);
5006: l_return_status := Okl_Api.G_RET_STS_ERROR;
5007: RAISE Okl_Api.G_EXCEPTION_ERROR;
5008: END IF;
5009: -- Insertion/Updation/Deletion has been done successful.
5010: -- Now need to check for errors and warnings.
5003: p_value1 => l_pri_stream_name,
5004: p_token2 => 'DEPPURPOSELIST',
5005: p_value2 => l_dep_purp_list);
5006: l_return_status := Okl_Api.G_RET_STS_ERROR;
5007: RAISE Okl_Api.G_EXCEPTION_ERROR;
5008: END IF;
5009: -- Insertion/Updation/Deletion has been done successful.
5010: -- Now need to check for errors and warnings.
5011: IF x_gttv_rec.tmpt_status = G_STATUS_ACTIVE
5021: x_error_msgs_tbl => l_error_msgs_tbl,
5022: x_return_tmpt_status => l_return_tmpt_status,
5023: p_during_upd_flag => 'T' ); -- This Wrapper API will be called only in Update Mode
5024: -- Check whether the Validate API has been ran successfull or not ?
5025: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5022: x_return_tmpt_status => l_return_tmpt_status,
5023: p_during_upd_flag => 'T' ); -- This Wrapper API will be called only in Update Mode
5024: -- Check whether the Validate API has been ran successfull or not ?
5025: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5030: -- Now check whether there are no validation errors or not?
5023: p_during_upd_flag => 'T' ); -- This Wrapper API will be called only in Update Mode
5024: -- Check whether the Validate API has been ran successfull or not ?
5025: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5030: -- Now check whether there are no validation errors or not?
5031: IF l_error_msgs_tbl.count > 0
5024: -- Check whether the Validate API has been ran successfull or not ?
5025: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5030: -- Now check whether there are no validation errors or not?
5031: IF l_error_msgs_tbl.count > 0
5032: THEN
5029: END IF;
5030: -- Now check whether there are no validation errors or not?
5031: IF l_error_msgs_tbl.count > 0
5032: THEN
5033: x_return_status := Okl_Api.G_RET_STS_ERROR;
5034: RAISE Okl_Api.G_EXCEPTION_ERROR;
5035: END If;
5036: -- Now if there is no Validation Error, check for the Warnings,
5037: -- but the code shouldnot error out in this case.
5030: -- Now check whether there are no validation errors or not?
5031: IF l_error_msgs_tbl.count > 0
5032: THEN
5033: x_return_status := Okl_Api.G_RET_STS_ERROR;
5034: RAISE Okl_Api.G_EXCEPTION_ERROR;
5035: END If;
5036: -- Now if there is no Validation Error, check for the Warnings,
5037: -- but the code shouldnot error out in this case.
5038: validate_for_warnings(
5044: p_gtt_id => x_gttv_rec.id,
5045: x_wrn_msgs_tbl => l_error_msgs_tbl,
5046: p_during_upd_flag => 'F', -- Dont push any warnings into the Stack
5047: x_pri_purpose_list => l_pri_purpose_list );
5048: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5050: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5051: RAISE OKL_API.G_EXCEPTION_ERROR;
5052: END IF;
5045: x_wrn_msgs_tbl => l_error_msgs_tbl,
5046: p_during_upd_flag => 'F', -- Dont push any warnings into the Stack
5047: x_pri_purpose_list => l_pri_purpose_list );
5048: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5050: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5051: RAISE OKL_API.G_EXCEPTION_ERROR;
5052: END IF;
5053: -- Whenever the SGT is updated successfull and if its in ACTIVE status
5046: p_during_upd_flag => 'F', -- Dont push any warnings into the Stack
5047: x_pri_purpose_list => l_pri_purpose_list );
5048: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5050: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5051: RAISE OKL_API.G_EXCEPTION_ERROR;
5052: END IF;
5053: -- Whenever the SGT is updated successfull and if its in ACTIVE status
5054: -- the corresponding products should be made to INVALID status
5047: x_pri_purpose_list => l_pri_purpose_list );
5048: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5050: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5051: RAISE OKL_API.G_EXCEPTION_ERROR;
5052: END IF;
5053: -- Whenever the SGT is updated successfull and if its in ACTIVE status
5054: -- the corresponding products should be made to INVALID status
5055: FOR gts_id_rec IN fetch_gts_id_csr( x_gttv_rec.id )
5066: x_msg_count => x_msg_count,
5067: x_msg_data => x_msg_data,
5068: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
5069: p_pdt_id => pdt_rec.pdt_id );
5070: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5072: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5073: RAISE OKL_API.G_EXCEPTION_ERROR;
5074: END IF;
5067: x_msg_data => x_msg_data,
5068: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
5069: p_pdt_id => pdt_rec.pdt_id );
5070: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5072: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5073: RAISE OKL_API.G_EXCEPTION_ERROR;
5074: END IF;
5075: END LOOP;
5068: p_pdt_status => OKL_SETUPPRODUCTS_PVT.G_PDT_STS_INVALID,
5069: p_pdt_id => pdt_rec.pdt_id );
5070: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5072: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5073: RAISE OKL_API.G_EXCEPTION_ERROR;
5074: END IF;
5075: END LOOP;
5076: END IF; -- IF x_gttv_rec.tmpt_status = G_ACTIVE
5069: p_pdt_id => pdt_rec.pdt_id );
5070: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5072: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5073: RAISE OKL_API.G_EXCEPTION_ERROR;
5074: END IF;
5075: END LOOP;
5076: END IF; -- IF x_gttv_rec.tmpt_status = G_ACTIVE
5077: x_pri_purpose_list := l_pri_purpose_list;
5075: END LOOP;
5076: END IF; -- IF x_gttv_rec.tmpt_status = G_ACTIVE
5077: x_pri_purpose_list := l_pri_purpose_list;
5078: x_return_status := l_return_status;
5079: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5080: EXCEPTION
5081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5083: (l_api_name,
5077: x_pri_purpose_list := l_pri_purpose_list;
5078: x_return_status := l_return_status;
5079: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5080: EXCEPTION
5081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5083: (l_api_name,
5084: G_PKG_NAME,
5085: 'OKL_API.G_RET_STS_ERROR',
5078: x_return_status := l_return_status;
5079: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5080: EXCEPTION
5081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5083: (l_api_name,
5084: G_PKG_NAME,
5085: 'OKL_API.G_RET_STS_ERROR',
5086: x_msg_count,
5081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5083: (l_api_name,
5084: G_PKG_NAME,
5085: 'OKL_API.G_RET_STS_ERROR',
5086: x_msg_count,
5087: x_msg_data,
5088: '_PVT');
5089: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5085: 'OKL_API.G_RET_STS_ERROR',
5086: x_msg_count,
5087: x_msg_data,
5088: '_PVT');
5089: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5090: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5091: ( l_api_name,
5092: G_PKG_NAME,
5093: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5086: x_msg_count,
5087: x_msg_data,
5088: '_PVT');
5089: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5090: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5091: ( l_api_name,
5092: G_PKG_NAME,
5093: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5094: x_msg_count,
5089: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5090: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5091: ( l_api_name,
5092: G_PKG_NAME,
5093: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5094: x_msg_count,
5095: x_msg_data,
5096: '_PVT');
5097: WHEN OTHERS THEN
5094: x_msg_count,
5095: x_msg_data,
5096: '_PVT');
5097: WHEN OTHERS THEN
5098: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5099: ( l_api_name,
5100: G_PKG_NAME,
5101: 'OTHERS',
5102: x_msg_count,