27: ) IS
28:
29: l_api_name CONSTANT VARCHAR2(40) := 'create_strm_gen_template';
30: l_api_version CONSTANT NUMBER := 1.0;
31: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
32:
33: l_init_msg_list VARCHAR2(1);
34: l_msg_count NUMBER;
35: l_msg_data VARCHAR2(2000);
46: i NUMBER;
47:
48: BEGIN
49: -- Perform the Initializations
50: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
51:
52: l_return_status := Okl_Api.START_ACTIVITY( l_api_name
53: ,g_pkg_name
54: ,p_init_msg_list
48: BEGIN
49: -- Perform the Initializations
50: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
51:
52: l_return_status := Okl_Api.START_ACTIVITY( l_api_name
53: ,g_pkg_name
54: ,p_init_msg_list
55: ,l_api_version
56: ,p_api_version
55: ,l_api_version
56: ,p_api_version
57: ,'_PVT'
58: ,x_return_status);
59: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
60: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
61: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
62: RAISE Okl_Api.G_EXCEPTION_ERROR;
63: END IF;
56: ,p_api_version
57: ,'_PVT'
58: ,x_return_status);
59: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
60: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
61: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
62: RAISE Okl_Api.G_EXCEPTION_ERROR;
63: END IF;
64:
57: ,'_PVT'
58: ,x_return_status);
59: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
60: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
61: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
62: RAISE Okl_Api.G_EXCEPTION_ERROR;
63: END IF;
64:
65: l_gtsv_rec_in := p_gtsv_rec;
58: ,x_return_status);
59: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
60: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
61: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
62: RAISE Okl_Api.G_EXCEPTION_ERROR;
63: END IF;
64:
65: l_gtsv_rec_in := p_gtsv_rec;
66: -- Call the insert method of the Stream Generation Template Sets
72: ,x_msg_data => l_msg_data
73: ,p_gtsv_rec => l_gtsv_rec_in
74: ,x_gtsv_rec => l_gtsv_rec_out
75: );
76: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
77: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
78: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
79: RAISE Okl_Api.G_EXCEPTION_ERROR;
80: END IF;
73: ,p_gtsv_rec => l_gtsv_rec_in
74: ,x_gtsv_rec => l_gtsv_rec_out
75: );
76: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
77: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
78: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
79: RAISE Okl_Api.G_EXCEPTION_ERROR;
80: END IF;
81:
74: ,x_gtsv_rec => l_gtsv_rec_out
75: );
76: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
77: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
78: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
79: RAISE Okl_Api.G_EXCEPTION_ERROR;
80: END IF;
81:
82: -- Populate the Stream Generate Template Records GTS_ID
75: );
76: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
77: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
78: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
79: RAISE Okl_Api.G_EXCEPTION_ERROR;
80: END IF;
81:
82: -- Populate the Stream Generate Template Records GTS_ID
83: -- with the ID returned into the l_gtsv_rec_out
95: ,x_msg_data => l_msg_data
96: ,p_gttv_rec => l_gttv_rec_in
97: ,x_gttv_rec => l_gttv_rec_out
98: );
99: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
100: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
102: RAISE Okl_Api.G_EXCEPTION_ERROR;
103: END IF;
96: ,p_gttv_rec => l_gttv_rec_in
97: ,x_gttv_rec => l_gttv_rec_out
98: );
99: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
100: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
102: RAISE Okl_Api.G_EXCEPTION_ERROR;
103: END IF;
104:
97: ,x_gttv_rec => l_gttv_rec_out
98: );
99: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
100: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
102: RAISE Okl_Api.G_EXCEPTION_ERROR;
103: END IF;
104:
105:
98: );
99: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
100: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
102: RAISE Okl_Api.G_EXCEPTION_ERROR;
103: END IF;
104:
105:
106: -- Now Need to loop through the entire table and update the gtt_id
125: ,x_msg_data => l_msg_data
126: ,p_gtpv_tbl => l_gtpv_tbl_in
127: ,x_gtpv_tbl => l_gtpv_tbl_out
128: );
129: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
130: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
131: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
132: RAISE Okl_Api.G_EXCEPTION_ERROR;
133: END IF;
126: ,p_gtpv_tbl => l_gtpv_tbl_in
127: ,x_gtpv_tbl => l_gtpv_tbl_out
128: );
129: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
130: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
131: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
132: RAISE Okl_Api.G_EXCEPTION_ERROR;
133: END IF;
134: END IF;
127: ,x_gtpv_tbl => l_gtpv_tbl_out
128: );
129: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
130: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
131: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
132: RAISE Okl_Api.G_EXCEPTION_ERROR;
133: END IF;
134: END IF;
135:
128: );
129: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
130: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
131: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
132: RAISE Okl_Api.G_EXCEPTION_ERROR;
133: END IF;
134: END IF;
135:
136: -- Making sure PL/SQL table has records in it before passing
156: ,x_msg_data => l_msg_data
157: ,p_gtlv_tbl => l_gtlv_tbl_in
158: ,x_gtlv_tbl => l_gtlv_tbl_out
159: );
160: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
162: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
163: RAISE Okl_Api.G_EXCEPTION_ERROR;
164: END IF;
157: ,p_gtlv_tbl => l_gtlv_tbl_in
158: ,x_gtlv_tbl => l_gtlv_tbl_out
159: );
160: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
162: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
163: RAISE Okl_Api.G_EXCEPTION_ERROR;
164: END IF;
165: END IF;
158: ,x_gtlv_tbl => l_gtlv_tbl_out
159: );
160: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
162: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
163: RAISE Okl_Api.G_EXCEPTION_ERROR;
164: END IF;
165: END IF;
166:
159: );
160: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
162: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
163: RAISE Okl_Api.G_EXCEPTION_ERROR;
164: END IF;
165: END IF;
166:
167: x_gttv_rec := l_gttv_rec_out;
165: END IF;
166:
167: x_gttv_rec := l_gttv_rec_out;
168: x_return_status := l_return_status;
169: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
170:
171:
172: EXCEPTION
173: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
169: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
170:
171:
172: EXCEPTION
173: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
174: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
175: (l_api_name,
176: G_PKG_NAME,
177: 'OKL_API.G_RET_STS_ERROR',
170:
171:
172: EXCEPTION
173: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
174: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
175: (l_api_name,
176: G_PKG_NAME,
177: 'OKL_API.G_RET_STS_ERROR',
178: x_msg_count,
173: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
174: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
175: (l_api_name,
176: G_PKG_NAME,
177: 'OKL_API.G_RET_STS_ERROR',
178: x_msg_count,
179: x_msg_data,
180: '_PVT');
181: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
177: 'OKL_API.G_RET_STS_ERROR',
178: x_msg_count,
179: x_msg_data,
180: '_PVT');
181: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
182: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
183: ( l_api_name,
184: G_PKG_NAME,
185: 'OKL_API.G_RET_STS_UNEXP_ERROR',
178: x_msg_count,
179: x_msg_data,
180: '_PVT');
181: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
182: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
183: ( l_api_name,
184: G_PKG_NAME,
185: 'OKL_API.G_RET_STS_UNEXP_ERROR',
186: x_msg_count,
181: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
182: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
183: ( l_api_name,
184: G_PKG_NAME,
185: 'OKL_API.G_RET_STS_UNEXP_ERROR',
186: x_msg_count,
187: x_msg_data,
188: '_PVT');
189: WHEN OTHERS THEN
186: x_msg_count,
187: x_msg_data,
188: '_PVT');
189: WHEN OTHERS THEN
190: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
191: ( l_api_name,
192: G_PKG_NAME,
193: 'OTHERS',
194: x_msg_count,
220: IS
221:
222: l_api_name CONSTANT VARCHAR2(40) := 'create_strm_gen_template';
223: l_api_version CONSTANT NUMBER := 1.0;
224: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
225:
226: l_init_msg_list VARCHAR2(1);
227: l_msg_count NUMBER;
228: l_msg_data VARCHAR2(2000);
233: i NUMBER;
234:
235: BEGIN
236: -- Perform the Initializations
237: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
238:
239: l_return_status := Okl_Api.START_ACTIVITY( l_api_name
240: ,g_pkg_name
241: ,p_init_msg_list
235: BEGIN
236: -- Perform the Initializations
237: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
238:
239: l_return_status := Okl_Api.START_ACTIVITY( l_api_name
240: ,g_pkg_name
241: ,p_init_msg_list
242: ,l_api_version
243: ,p_api_version
242: ,l_api_version
243: ,p_api_version
244: ,'_PVT'
245: ,x_return_status);
246: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
247: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
248: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
249: RAISE Okl_Api.G_EXCEPTION_ERROR;
250: END IF;
243: ,p_api_version
244: ,'_PVT'
245: ,x_return_status);
246: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
247: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
248: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
249: RAISE Okl_Api.G_EXCEPTION_ERROR;
250: END IF;
251:
244: ,'_PVT'
245: ,x_return_status);
246: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
247: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
248: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
249: RAISE Okl_Api.G_EXCEPTION_ERROR;
250: END IF;
251:
252: -- Making sure PL/SQL table has records in it before passing
245: ,x_return_status);
246: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
247: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
248: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
249: RAISE Okl_Api.G_EXCEPTION_ERROR;
250: END IF;
251:
252: -- Making sure PL/SQL table has records in it before passing
253: IF (p_gtlv_tbl.COUNT > 0) THEN
267: ,x_msg_data => l_msg_data
268: ,p_gtlv_tbl => l_gtlv_tbl_in
269: ,x_gtlv_tbl => l_gtlv_tbl_out);
270:
271: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
272: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
273: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
274: RAISE Okl_Api.G_EXCEPTION_ERROR;
275: END IF;
268: ,p_gtlv_tbl => l_gtlv_tbl_in
269: ,x_gtlv_tbl => l_gtlv_tbl_out);
270:
271: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
272: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
273: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
274: RAISE Okl_Api.G_EXCEPTION_ERROR;
275: END IF;
276: END IF;
269: ,x_gtlv_tbl => l_gtlv_tbl_out);
270:
271: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
272: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
273: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
274: RAISE Okl_Api.G_EXCEPTION_ERROR;
275: END IF;
276: END IF;
277:
270:
271: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
272: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
273: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
274: RAISE Okl_Api.G_EXCEPTION_ERROR;
275: END IF;
276: END IF;
277:
278: x_return_status := l_return_status;
275: END IF;
276: END IF;
277:
278: x_return_status := l_return_status;
279: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
280:
281:
282: EXCEPTION
283: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
279: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
280:
281:
282: EXCEPTION
283: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
284: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
285: (l_api_name,
286: G_PKG_NAME,
287: 'OKL_API.G_RET_STS_ERROR',
280:
281:
282: EXCEPTION
283: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
284: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
285: (l_api_name,
286: G_PKG_NAME,
287: 'OKL_API.G_RET_STS_ERROR',
288: x_msg_count,
283: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
284: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
285: (l_api_name,
286: G_PKG_NAME,
287: 'OKL_API.G_RET_STS_ERROR',
288: x_msg_count,
289: x_msg_data,
290: '_PVT');
291: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
287: 'OKL_API.G_RET_STS_ERROR',
288: x_msg_count,
289: x_msg_data,
290: '_PVT');
291: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
292: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
293: ( l_api_name,
294: G_PKG_NAME,
295: 'OKL_API.G_RET_STS_UNEXP_ERROR',
288: x_msg_count,
289: x_msg_data,
290: '_PVT');
291: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
292: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
293: ( l_api_name,
294: G_PKG_NAME,
295: 'OKL_API.G_RET_STS_UNEXP_ERROR',
296: x_msg_count,
291: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
292: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
293: ( l_api_name,
294: G_PKG_NAME,
295: 'OKL_API.G_RET_STS_UNEXP_ERROR',
296: x_msg_count,
297: x_msg_data,
298: '_PVT');
299: WHEN OTHERS THEN
296: x_msg_count,
297: x_msg_data,
298: '_PVT');
299: WHEN OTHERS THEN
300: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
301: ( l_api_name,
302: G_PKG_NAME,
303: 'OTHERS',
304: x_msg_count,
806: WHERE
807: short_description IS NULL;
808:
809: l_new_sty_purpose VARCHAR2(100);
810: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
811:
812: BEGIN
813:
814: Fnd_File.put_line(Fnd_File.LOG,'Migrating Stream Types ');
853: WHERE ID = strm_type_rec.id;
854:
855: EXCEPTION
856: WHEN OTHERS THEN
857: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
858: Fnd_File.PUT_LINE(Fnd_File.LOG, SQLERRM);
859: END;
860: END IF;
861:
872: AND LANGUAGE = USERENV('LANG');
873:
874: EXCEPTION
875: WHEN OTHERS THEN
876: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
877: Fnd_File.PUT_LINE(Fnd_File.LOG, SQLERRM);
878: END;
879:
880: END LOOP; -- End for strm_type_csr
884:
885: EXCEPTION
886: WHEN OTHERS THEN
887: Fnd_File.put_line(Fnd_File.LOG, SQLERRM);
888: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
889:
890: END Migrate_Stream_Types;
891:
892: ---------------------------------------------------------------------------
2194: l_gtt_out_status OKL_ST_GEN_TEMPLATES.tmpt_status%TYPE;
2195: l_gts_found VARCHAR2(1);
2196:
2197: l_api_version NUMBER DEFAULT 1.0;
2198: l_init_msg_list VARCHAR2(1) DEFAULT Okl_Api.g_false;
2199: x_return_status VARCHAR2(1) := Okl_Api.g_ret_sts_success;
2200: x_msg_count NUMBER;
2201: x_msg_data VARCHAR2(2000);
2202:
2195: l_gts_found VARCHAR2(1);
2196:
2197: l_api_version NUMBER DEFAULT 1.0;
2198: l_init_msg_list VARCHAR2(1) DEFAULT Okl_Api.g_false;
2199: x_return_status VARCHAR2(1) := Okl_Api.g_ret_sts_success;
2200: x_msg_count NUMBER;
2201: x_msg_data VARCHAR2(2000);
2202:
2203: l_sty_migrated VARCHAR2(1) := G_FALSE;
2308: l_new_gts_name VARCHAR2(100);
2309: l_org_name VARCHAR2(150);
2310:
2311: BEGIN
2312: x_return_status := Okl_Api.START_ACTIVITY (
2313: l_api_name
2314: ,l_init_msg_list
2315: ,'_PVT'
2316: ,x_return_status);
2315: ,'_PVT'
2316: ,x_return_status);
2317:
2318: -- Check if activity started successfully
2319: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2320: Fnd_File.PUT_LINE(Fnd_File.LOG, 'Error at start activity' );
2321: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2323: Fnd_File.PUT_LINE(Fnd_File.LOG, 'Error at start activity' );
2317:
2318: -- Check if activity started successfully
2319: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2320: Fnd_File.PUT_LINE(Fnd_File.LOG, 'Error at start activity' );
2321: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2323: Fnd_File.PUT_LINE(Fnd_File.LOG, 'Error at start activity' );
2324: RAISE Okl_Api.G_EXCEPTION_ERROR;
2325: END IF;
2318: -- Check if activity started successfully
2319: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2320: Fnd_File.PUT_LINE(Fnd_File.LOG, 'Error at start activity' );
2321: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2323: Fnd_File.PUT_LINE(Fnd_File.LOG, 'Error at start activity' );
2324: RAISE Okl_Api.G_EXCEPTION_ERROR;
2325: END IF;
2326:
2320: Fnd_File.PUT_LINE(Fnd_File.LOG, 'Error at start activity' );
2321: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2323: Fnd_File.PUT_LINE(Fnd_File.LOG, 'Error at start activity' );
2324: RAISE Okl_Api.G_EXCEPTION_ERROR;
2325: END IF;
2326:
2327: -- Check if stream types are migrated
2328: OPEN sty_mig_csr;
2333: THEN
2334: Fnd_File.put_line(Fnd_File.LOG,'Updating the Stream Types with stream type purposes based on its usage...');
2335: -- If stream types are not migrated, migrate the stream types.
2336: Migrate_Stream_Types(x_return_status);
2337: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR)
2338: THEN
2339: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while upgrading the stream types.' );
2340: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2341: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2336: Migrate_Stream_Types(x_return_status);
2337: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR)
2338: THEN
2339: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while upgrading the stream types.' );
2340: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2341: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2342: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while upgrading the stream types.' );
2343: RAISE Okl_Api.G_EXCEPTION_ERROR;
2344: END IF;
2337: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR)
2338: THEN
2339: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while upgrading the stream types.' );
2340: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2341: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2342: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while upgrading the stream types.' );
2343: RAISE Okl_Api.G_EXCEPTION_ERROR;
2344: END IF;
2345: ELSE
2339: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while upgrading the stream types.' );
2340: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2341: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2342: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while upgrading the stream types.' );
2343: RAISE Okl_Api.G_EXCEPTION_ERROR;
2344: END IF;
2345: ELSE
2346: Fnd_File.put_line(Fnd_File.LOG,'Stream Types have been migrated... ');
2347: END IF;
2420: x_return_status => x_return_status,
2421: x_msg_count => x_msg_count,
2422: x_msg_data => x_msg_data,
2423: p_gtt_id => l_gtt_id );
2424: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
2425: THEN
2426: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while activating the template - ' || l_gts_name );
2427: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
2428: IF (l_error_msg_rec.COUNT > 0)
2481: p_gttv_rec => l_gttv_rec,
2482: p_gtpv_tbl => l_gtpv_tbl,
2483: p_gtlv_tbl => l_gtlv_tbl,
2484: x_gttv_rec => x_gttv_rec);
2485: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
2486: THEN
2487: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while creating stream template ' || l_gtsv_rec.name );
2488: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
2489: IF (l_error_msg_rec.COUNT > 0)
2510: x_return_status => x_return_status,
2511: x_msg_count => x_msg_count,
2512: x_msg_data => x_msg_data,
2513: p_gtlv_tbl => l_gtlv_tbl);
2514: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
2515: THEN
2516: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while adding mandatory template lines ' );
2517: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
2518: IF (l_error_msg_rec.COUNT > 0)
2542: x_return_status => x_return_status,
2543: x_msg_count => x_msg_count,
2544: x_msg_data => x_msg_data,
2545: p_gtlv_tbl => l_gtlv_tbl);
2546: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
2547: THEN
2548: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while adding used template lines ' );
2549: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
2550: IF (l_error_msg_rec.COUNT > 0) THEN
2587: x_return_status => x_return_status,
2588: x_msg_count => x_msg_count,
2589: x_msg_data => x_msg_data,
2590: p_gtt_id => x_gttv_rec.id );
2591: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
2592: THEN
2593: Fnd_File.PUT_LINE(Fnd_File.LOG, 'The following errors occured while activating the template - ' || l_gtsv_rec.name );
2594: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
2595: IF (l_error_msg_rec.COUNT > 0)
2604: END IF;
2605: END IF; -- l_gts_exists = 'Y' THEN
2606: END LOOP; -- End of org csr
2607: END LOOP; -- End of pdt_csr
2608: Okl_Api.END_ACTIVITY (x_msg_count, x_msg_data );
2609: EXCEPTION
2610: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2611: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
2612: IF (l_error_msg_rec.COUNT > 0) THEN
2606: END LOOP; -- End of org csr
2607: END LOOP; -- End of pdt_csr
2608: Okl_Api.END_ACTIVITY (x_msg_count, x_msg_data );
2609: EXCEPTION
2610: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2611: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
2612: IF (l_error_msg_rec.COUNT > 0) THEN
2613: FOR m IN l_error_msg_rec.FIRST..l_error_msg_rec.LAST LOOP
2614: IF l_error_msg_rec(m) IS NOT NULL THEN
2616: END IF;
2617: END LOOP;
2618: END IF;
2619:
2620: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2621: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
2622: IF (l_error_msg_rec.COUNT > 0) THEN
2623: FOR m IN l_error_msg_rec.FIRST..l_error_msg_rec.LAST LOOP
2624: IF l_error_msg_rec(m) IS NOT NULL THEN
2845:
2846: -- Start : All local variables declaration
2847:
2848: l_api_version NUMBER DEFAULT 1.0;
2849: l_init_msg_list VARCHAR2(1) DEFAULT Okl_Api.g_false;
2850: x_return_status VARCHAR2(1) := Okl_Api.g_ret_sts_success;
2851: x_msg_count NUMBER;
2852: x_msg_data VARCHAR2(2000);
2853: l_org_name VARCHAR2(150);
2846: -- Start : All local variables declaration
2847:
2848: l_api_version NUMBER DEFAULT 1.0;
2849: l_init_msg_list VARCHAR2(1) DEFAULT Okl_Api.g_false;
2850: x_return_status VARCHAR2(1) := Okl_Api.g_ret_sts_success;
2851: x_msg_count NUMBER;
2852: x_msg_data VARCHAR2(2000);
2853: l_org_name VARCHAR2(150);
2854:
2891: l_aes_tax_owner okl_pdt_pqy_vals_uv.value%TYPE;
2892:
2893:
2894: BEGIN
2895: x_return_status := Okl_Api.START_ACTIVITY (
2896: l_api_name
2897: ,l_init_msg_list
2898: ,'_PVT'
2899: ,x_return_status);
2897: ,l_init_msg_list
2898: ,'_PVT'
2899: ,x_return_status);
2900: -- Check if activity started successfully
2901: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR)
2902: THEN
2903: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR)
2905: THEN
2899: ,x_return_status);
2900: -- Check if activity started successfully
2901: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR)
2902: THEN
2903: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR)
2905: THEN
2906: RAISE Okl_Api.G_EXCEPTION_ERROR;
2907: END IF;
2900: -- Check if activity started successfully
2901: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR)
2902: THEN
2903: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR)
2905: THEN
2906: RAISE Okl_Api.G_EXCEPTION_ERROR;
2907: END IF;
2908: FOR aes_org_rec IN aes_org_csr
2902: THEN
2903: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR)
2905: THEN
2906: RAISE Okl_Api.G_EXCEPTION_ERROR;
2907: END IF;
2908: FOR aes_org_rec IN aes_org_csr
2909: LOOP
2910: mo_global.set_policy_context('S',aes_org_rec.org_id); --dkagrawa changed for MOAC
3018: IF l_template_set_found = 'Y'
3019: THEN
3020: -- Set a new name for the new accounting template set.
3021: l_old_aes_name := l_aesv_rec.name;
3022: l_aesv_rec.id := Okl_Api.G_MISS_NUM;
3023: l_aesv_rec.name := l_product_name || '-' || l_aesv_rec.name;
3024: l_aesv_rec.gts_id := l_gts_id;
3025: -- Create new template set.
3026: Fnd_File.put_line(Fnd_File.LOG,'Creating Accounting Template set - ' || l_aesv_rec.name || ' by copying from - ' || l_old_aes_name);
3032: x_msg_data => x_msg_data,
3033: p_aesv_rec => l_aesv_rec,
3034: x_aesv_rec => x_aesv_rec);
3035: -- Check if the creation is successful.
3036: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3037: THEN
3038: Fnd_File.put_line(Fnd_File.LOG,'The following errors occured while Creating Accounting Template set - ' || l_aesv_rec.name );
3039: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3040: IF (l_error_msg_rec.COUNT > 0)
3111: x_msg_data => x_msg_data,
3112: p_avlv_rec => l_avlv_rec,
3113: x_avlv_rec => x_avlv_rec);
3114: -- Check if the creation is successful.
3115: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3116: THEN
3117: Fnd_File.put_line(Fnd_File.LOG,'Accounting Template ' || l_avlv_rec.name ||
3118: ' could not be copied because of the following issues ');
3119: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3177: x_msg_data => x_msg_data,
3178: p_atlv_rec => l_atlv_rec,
3179: x_atlv_rec => x_atlv_rec );
3180: -- Check if the creation is successful.
3181: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3182: THEN
3183: Fnd_File.put_line(Fnd_File.LOG,'Accounting Template Lines ' || l_atlv_rec.crd_code ||
3184: ' could not be copied because of the following issues ');
3185: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3212: x_msg_data => x_msg_data,
3213: p_pdtv_rec => l_pdtv_rec,
3214: x_pdtv_rec => x_pdtv_rec );
3215: -- Check if the updation is successful.
3216: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3217: THEN
3218: Fnd_File.put_line(Fnd_File.LOG,'The following errors occured while associating the product with new Accounting Template set ' );
3219: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3220: IF (l_error_msg_rec.COUNT > 0)
3226: END LOOP;
3227: END IF;
3228: END IF;
3229: -- PRODUCT VALIDATIONS
3230: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS
3231: THEN
3232: Fnd_File.put_line(Fnd_File.LOG,'Validating the product - ' || l_product_name );
3233: Okl_Setupproducts_Pvt.validate_product(
3234: p_api_version => l_api_version,
3238: x_msg_data => x_msg_data,
3239: p_pdtv_rec => l_pdtv_rec,
3240: x_pdtv_rec => x_pdtv_rec);
3241: -- Check if the creation is successful.
3242: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3243: THEN
3244: Fnd_File.put_line(Fnd_File.LOG,'The following errors occured while validating the product - ' || l_product_name );
3245: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3246: IF (l_error_msg_rec.COUNT > 0)
3264: x_msg_data => x_msg_data,
3265: p_pdt_status => Okl_Setupproducts_Pvt.G_PDT_STS_APPROVED,
3266: p_pdt_id => x_pdtv_rec.id);
3267: -- Check if the creation is successful.
3268: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3269: THEN
3270: Fnd_File.put_line(Fnd_File.LOG,'The following errors occured while approving the product - ' || l_product_name );
3271: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3272: IF (l_error_msg_rec.COUNT > 0)
3279: END LOOP;
3280: END IF;
3281: END IF;
3282: END IF; -- IF x_pdtv_rec.PRODUCT_STATUS_CODE = 'PASSED' THEN
3283: END IF; -- x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
3284: -- ============ End : Update the product with new accounting template set ==============
3285: ELSIF l_used_by_other_products = 'N' THEN -- l_used_by_other_products = 'Y' THEN
3286: -- ============ Start : Update Template Set with Stream Template ====================
3287: l_template_set_found := 'Y';
3323: x_msg_data => x_msg_data,
3324: p_aesv_rec => l_aesv_rec,
3325: x_aesv_rec => x_aesv_rec);
3326: -- Check if the update is successful.
3327: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3328: THEN
3329: Fnd_File.put_line(Fnd_File.LOG,'The following errors occured while updating the accounting template set - ' || l_aesv_rec.name || ' with stream template' );
3330: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3331: IF (l_error_msg_rec.COUNT > 0)
3355: p_pdtv_rec => l_pdtv_rec,
3356: x_pdtv_rec => x_pdtv_rec);
3357: -- Fnd_File.put_line(Fnd_File.LOG,'product status ' || x_pdtv_rec.product_status_code );
3358: -- Check if the updation is successful.
3359: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3360: THEN
3361: Fnd_File.put_line(Fnd_File.LOG,'The following errors occured while invalidating the product - ' || l_product_name);
3362: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3363: IF (l_error_msg_rec.COUNT > 0)
3381: x_msg_data => x_msg_data,
3382: p_pdtv_rec => l_pdtv_rec,
3383: x_pdtv_rec => x_pdtv_rec);
3384: -- Check if the creation is successful.
3385: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3386: THEN
3387: Fnd_File.put_line(Fnd_File.LOG,'The following errors occured while validating the product - ' || l_product_name );
3388: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3389: IF (l_error_msg_rec.COUNT > 0)
3408: x_msg_data => x_msg_data,
3409: p_pdt_status => Okl_Setupproducts_Pvt.G_PDT_STS_APPROVED,
3410: p_pdt_id => x_pdtv_rec.id);
3411: -- Check if the creation is successful.
3412: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3413: THEN
3414: Fnd_File.put_line(Fnd_File.LOG,'The following errors occured while approving the product - ' || l_product_name);
3415: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3416: IF (l_error_msg_rec.COUNT > 0)
3441: x_msg_data => x_msg_data,
3442: p_pdt_status => Okl_Setupproducts_Pvt.G_PDT_STS_INVALID,
3443: p_pdt_id => l_product_id);
3444: -- Check if the creation is successful.
3445: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3446: THEN
3447: Fnd_File.put_line(Fnd_File.LOG,'The following errors occured while invalidating the product - ' || l_product_name );
3448: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3449: IF (l_error_msg_rec.COUNT > 0)
3459: END IF;
3460: END IF; -- l_gts_id IS NOT NULL
3461: END LOOP; -- pdt_rec IN pdt_csr LOOP
3462: END LOOP; -- End for aes_org_csr
3463: Okl_Api.END_ACTIVITY (x_msg_count, x_msg_data );
3464: EXCEPTION
3465: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3466: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3467: IF (l_error_msg_rec.COUNT > 0) THEN
3461: END LOOP; -- pdt_rec IN pdt_csr LOOP
3462: END LOOP; -- End for aes_org_csr
3463: Okl_Api.END_ACTIVITY (x_msg_count, x_msg_data );
3464: EXCEPTION
3465: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3466: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3467: IF (l_error_msg_rec.COUNT > 0) THEN
3468: FOR m IN l_error_msg_rec.FIRST..l_error_msg_rec.LAST LOOP
3469: IF l_error_msg_rec(m) IS NOT NULL THEN
3471: END IF;
3472: END LOOP;
3473: END IF;
3474:
3475: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3476: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_rec);
3477: IF (l_error_msg_rec.COUNT > 0) THEN
3478: FOR m IN l_error_msg_rec.FIRST..l_error_msg_rec.LAST LOOP
3479: IF l_error_msg_rec(m) IS NOT NULL THEN