[Home] [Help]
26: l_select_stmt varchar2(4000);
27: l_lines_where_clause varchar2(2000);
28: l_cursor_id integer;
29: l_processed_rows number := 0;
30: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
31: l_lines_restrict varchar2(1) := 'N';
32: l_value number;
33:
34: BEGIN
67: l_cursor_id := dbms_sql.open_cursor;
68:
69: dbms_sql.parse(l_cursor_id, l_select_stmt , dbms_sql.native);
70:
71: IF nvl(l_txn_line_query_rec.transaction_line_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
72: THEN
73: dbms_sql.bind_variable(l_cursor_id, 'transaction_line_id',
74: l_txn_line_query_rec.transaction_line_id);
75: END IF;
73: dbms_sql.bind_variable(l_cursor_id, 'transaction_line_id',
74: l_txn_line_query_rec.transaction_line_id);
75: END IF;
76:
77: IF nvl(l_txn_line_query_rec.source_txn_header_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
78: THEN
79: dbms_sql.bind_variable(l_cursor_id, 'source_txn_header_id',
80: l_txn_line_query_rec.source_txn_header_id);
81: END IF;
79: dbms_sql.bind_variable(l_cursor_id, 'source_txn_header_id',
80: l_txn_line_query_rec.source_txn_header_id);
81: END IF;
82:
83: IF nvl(l_txn_line_query_rec.source_transaction_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
84: THEN
85: dbms_sql.bind_variable(l_cursor_id, 'source_transaction_id',
86: l_txn_line_query_rec.source_transaction_id);
87: END IF;
85: dbms_sql.bind_variable(l_cursor_id, 'source_transaction_id',
86: l_txn_line_query_rec.source_transaction_id);
87: END IF;
88:
89: IF nvl(l_txn_line_query_rec.source_transaction_table, fnd_api.g_miss_char) <> fnd_api.g_miss_char
90: THEN
91: dbms_sql.bind_variable(l_cursor_id, 'source_transaction_table',
92: l_txn_line_query_rec.source_transaction_table);
93: END IF;
91: dbms_sql.bind_variable(l_cursor_id, 'source_transaction_table',
92: l_txn_line_query_rec.source_transaction_table);
93: END IF;
94:
95: IF nvl(l_txn_line_query_rec.processing_status, fnd_api.g_miss_char) <> fnd_api.g_miss_char
96: THEN
97: dbms_sql.bind_variable(l_cursor_id, 'processing_status',
98: l_txn_line_query_rec.processing_status);
99: END IF;
133: END check_txn_details_exist;
134:
135: PROCEDURE create_transaction_dtls(
136: p_api_version IN NUMBER,
137: p_commit IN VARCHAR2 := fnd_api.g_false,
138: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
139: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
140: p_split_source_flag IN VARCHAR2 := fnd_api.g_false,
141: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
134:
135: PROCEDURE create_transaction_dtls(
136: p_api_version IN NUMBER,
137: p_commit IN VARCHAR2 := fnd_api.g_false,
138: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
139: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
140: p_split_source_flag IN VARCHAR2 := fnd_api.g_false,
141: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
142: px_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
135: PROCEDURE create_transaction_dtls(
136: p_api_version IN NUMBER,
137: p_commit IN VARCHAR2 := fnd_api.g_false,
138: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
139: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
140: p_split_source_flag IN VARCHAR2 := fnd_api.g_false,
141: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
142: px_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
143: px_txn_party_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
136: p_api_version IN NUMBER,
137: p_commit IN VARCHAR2 := fnd_api.g_false,
138: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
139: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
140: p_split_source_flag IN VARCHAR2 := fnd_api.g_false,
141: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
142: px_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
143: px_txn_party_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
144: px_txn_pty_acct_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_pty_acct_detail_tbl,
154: l_api_name CONSTANT VARCHAR2(30) := 'create_transaction_dtls';
155: l_api_version CONSTANT NUMBER := 1.0;
156: l_debug_level NUMBER;
157:
158: l_return_status VARCHAR2(1) := FND_API.G_ret_sts_success;
159: l_msg_count NUMBER;
160: l_msg_data VARCHAR2(2000);
161:
162: l_td_found char;
181: -- Standard Start of API savepoint
182: SAVEPOINT create_transaction_dtls;
183:
184: -- Initialize message list if p_init_msg_list is set to TRUE.
185: IF FND_API.To_Boolean( p_init_msg_list ) THEN
186: FND_MSG_PUB.Initialize;
187: END IF;
188:
189: -- Initialize API return status to success
186: FND_MSG_PUB.Initialize;
187: END IF;
188:
189: -- Initialize API return status to success
190: x_return_status := FND_API.G_RET_STS_SUCCESS;
191:
192: -- Standard call to check for call compatibility.
193: IF NOT
194:
191:
192: -- Standard call to check for call compatibility.
193: IF NOT
194:
195: FND_API.Compatible_API_Call (
196: p_current_version_number => l_api_version,
197: p_caller_version_number => p_api_version,
198: p_api_name => l_api_name,
199: p_pkg_name => g_pkg_name) THEN
197: p_caller_version_number => p_api_version,
198: p_api_name => l_api_name,
199: p_pkg_name => g_pkg_name) THEN
200:
201: RAISE FND_API.G_Exc_Unexpected_Error;
202:
203: END IF;
204:
205: -- debug messages
249: p_param_name => 'px_txn_line_rec.source_transaction_type_id',
250: p_api_name => l_api_name);
251:
252: -- duplicate check(will have to move to the validation routines)
253: IF nvl(px_txn_line_rec.transaction_line_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
254: BEGIN
255: SELECT 'Y' INTO l_skip_tl_create
256: FROM csi_t_transaction_lines
257: WHERE transaction_line_id = px_txn_line_rec.transaction_line_id;
266: csi_t_vldn_routines_pvt.check_duplicate(
267: p_txn_line_rec => px_txn_line_rec,
268: x_return_status => l_return_status);
269:
270: IF l_return_status <> fnd_api.g_ret_sts_success THEN
271:
272: FND_MESSAGE.set_name('CSI','CSI_TXN_DETAIL_DUPLICATE');
273: FND_MESSAGE.set_token('SRC_TABLE',px_txn_line_rec.source_transaction_table);
274: FND_MESSAGE.set_token('SRC_ID',px_txn_line_rec.source_transaction_id);
273: FND_MESSAGE.set_token('SRC_TABLE',px_txn_line_rec.source_transaction_table);
274: FND_MESSAGE.set_token('SRC_ID',px_txn_line_rec.source_transaction_id);
275: FND_MSG_PUB.add;
276:
277: RAISE FND_API.g_exc_error;
278:
279: END IF;
280: END IF;
281:
280: END IF;
281:
282: -- Added for CZ Integration (Begin)
283: -- validate against CZ view
284: IF NVL(px_txn_line_rec.config_session_hdr_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
285: THEN
286: csi_t_gen_utility_pvt.add('Validating against CZ view ');
287: csi_t_vldn_routines_pvt.check_cz_session_keys(
288: p_config_session_hdr_id => px_txn_line_rec.config_session_hdr_id,
288: p_config_session_hdr_id => px_txn_line_rec.config_session_hdr_id,
289: p_config_session_rev_num => px_txn_line_rec.config_session_rev_num,
290: p_config_session_item_id => px_txn_line_rec.config_session_item_id,
291: x_return_status => l_return_status);
292: IF l_return_status <> fnd_api.g_ret_sts_success THEN
293: RAISE FND_API.g_exc_error;
294: END IF;
295:
296: csi_t_vldn_routines_pvt.check_exists_in_cz(
289: p_config_session_rev_num => px_txn_line_rec.config_session_rev_num,
290: p_config_session_item_id => px_txn_line_rec.config_session_item_id,
291: x_return_status => l_return_status);
292: IF l_return_status <> fnd_api.g_ret_sts_success THEN
293: RAISE FND_API.g_exc_error;
294: END IF;
295:
296: csi_t_vldn_routines_pvt.check_exists_in_cz(
297: p_txn_line_dtl_tbl => px_txn_line_detail_tbl,
296: csi_t_vldn_routines_pvt.check_exists_in_cz(
297: p_txn_line_dtl_tbl => px_txn_line_detail_tbl,
298: x_return_status => l_return_status);
299:
300: IF l_return_status <> fnd_api.g_ret_sts_success THEN
301: RAISE FND_API.g_exc_error;
302: END IF;
303: END IF ; ---px_txn_line_rec.source_transaction_type_id=401
304: -- Added for CZ Integration (End)
297: p_txn_line_dtl_tbl => px_txn_line_detail_tbl,
298: x_return_status => l_return_status);
299:
300: IF l_return_status <> fnd_api.g_ret_sts_success THEN
301: RAISE FND_API.g_exc_error;
302: END IF;
303: END IF ; ---px_txn_line_rec.source_transaction_type_id=401
304: -- Added for CZ Integration (End)
305:
304: -- Added for CZ Integration (End)
305:
306: -- mandatory entities check
307:
308: IF p_validation_level = fnd_api.g_valid_level_full THEN
309:
310: IF px_txn_line_detail_tbl.COUNT = 0 THEN
311: FND_MESSAGE.set_name('CSI','CSI_TXN_MISSING_ENTITY');
312: FND_MESSAGE.set_token('ENTITY','Line Detail Info');
310: IF px_txn_line_detail_tbl.COUNT = 0 THEN
311: FND_MESSAGE.set_name('CSI','CSI_TXN_MISSING_ENTITY');
312: FND_MESSAGE.set_token('ENTITY','Line Detail Info');
313: FND_MSG_PUB.add;
314: RAISE FND_API.g_exc_error;
315:
316: END IF;
317:
318: END IF;
317:
318: END IF;
319:
320: /* this condition is used only for the interface program */
321: IF p_split_source_flag = fnd_api.g_false THEN
322:
323: IF p_validation_level = fnd_api.g_valid_level_full THEN
324:
325: -- business object validations
319:
320: /* this condition is used only for the interface program */
321: IF p_split_source_flag = fnd_api.g_false THEN
322:
323: IF p_validation_level = fnd_api.g_valid_level_full THEN
324:
325: -- business object validations
326: -- Added for CZ Integration
327: -- Bypass this check for Configurator, Mass edit as it is for OM.
334: p_txn_line_rec => px_txn_line_rec,
335: p_txn_line_dtl_tbl => px_txn_line_detail_tbl,
336: x_return_status => l_return_status);
337:
338: IF l_return_status <> fnd_api.g_ret_sts_success THEN
339: RAISE fnd_api.g_exc_error;
340: END IF;
341: csi_t_gen_utility_pvt.add('Validating party integrity.');
342:
335: p_txn_line_dtl_tbl => px_txn_line_detail_tbl,
336: x_return_status => l_return_status);
337:
338: IF l_return_status <> fnd_api.g_ret_sts_success THEN
339: RAISE fnd_api.g_exc_error;
340: END IF;
341: csi_t_gen_utility_pvt.add('Validating party integrity.');
342:
343: csi_t_vldn_routines_pvt.check_party_integrity(
345: p_txn_line_dtl_tbl => px_txn_line_detail_tbl,
346: p_party_dtl_tbl => px_txn_party_detail_tbl,
347: x_return_status => l_return_status);
348:
349: IF l_return_status <> fnd_api.g_ret_sts_success THEN
350: RAISE fnd_api.g_exc_error;
351: END IF;
352:
353: -- end of business object validation
346: p_party_dtl_tbl => px_txn_party_detail_tbl,
347: x_return_status => l_return_status);
348:
349: IF l_return_status <> fnd_api.g_ret_sts_success THEN
350: RAISE fnd_api.g_exc_error;
351: END IF;
352:
353: -- end of business object validation
354: csi_t_gen_utility_pvt.add('End of business object validations.');
355:
356: END IF ; ---<>401,3
357: END IF;
358:
359: IF nvl(px_txn_line_rec.transaction_line_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
360: l_txn_line_id := px_txn_line_rec.transaction_line_id;
361: END IF;
362:
363:
414: WHEN others THEN
415: fnd_message.set_name('FND','FND_GENERIC_MESSAGE');
416: fnd_message.set_token('MESSAGE','insert_row failed '||sqlerrm);
417: fnd_msg_pub.add;
418: raise fnd_api.g_exc_error;
419: END;
420:
421: END IF;
422:
439: x_return_status => l_return_status,
440: x_msg_count => l_msg_count,
441: x_msg_data => l_msg_data);
442:
443: IF l_return_status <> fnd_api.g_ret_sts_success THEN
444:
445: FND_MESSAGE.set_name('FND','FND_GENERIC_MESSAGE');
446: FND_MESSAGE.set_token('MESSAGE',
447: 'csi_t_txn_systems_grp.create_txn_system API failed.');
445: FND_MESSAGE.set_name('FND','FND_GENERIC_MESSAGE');
446: FND_MESSAGE.set_token('MESSAGE',
447: 'csi_t_txn_systems_grp.create_txn_system API failed.');
448: FND_MSG_PUB.add;
449: RAISE fnd_api.g_exc_error;
450: END IF;
451:
452: px_txn_systems_tbl(l_ind).transaction_line_id := l_txn_line_id;
453: px_txn_systems_tbl(l_ind).transaction_system_id := l_txn_system_id;
469: l_line_dtl_rec := px_txn_line_detail_tbl(l_index);
470: l_line_dtl_rec.transaction_line_id := l_txn_line_id;
471: --Following IF has been added as part of changes for bug 3600950
472: IF l_line_dtl_rec.source_transaction_flag = 'N' THEN
473: IF nvl(l_line_dtl_rec.assc_txn_line_detail_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
474: l_s_index := l_line_dtl_rec.assc_txn_line_detail_id;
475: debug('IB Transaction type id referenced, Non-Source: '|| l_line_dtl_rec.sub_type_id
476: ||' Source: '|| px_txn_line_detail_tbl(l_s_index).sub_type_id);
477: -- assigning the sub_type_id from Source to Non-source
475: debug('IB Transaction type id referenced, Non-Source: '|| l_line_dtl_rec.sub_type_id
476: ||' Source: '|| px_txn_line_detail_tbl(l_s_index).sub_type_id);
477: -- assigning the sub_type_id from Source to Non-source
478: l_line_dtl_rec.sub_type_id := px_txn_line_detail_tbl(l_s_index).sub_type_id;
479: IF nvl(px_txn_line_detail_tbl(l_s_index).txn_line_detail_id, fnd_api.g_miss_num)
480: <> fnd_api.g_miss_num THEN
481: l_line_dtl_rec.assc_txn_line_detail_id :=
482: px_txn_line_detail_tbl(l_s_index).txn_line_detail_id;
483: END IF;
476: ||' Source: '|| px_txn_line_detail_tbl(l_s_index).sub_type_id);
477: -- assigning the sub_type_id from Source to Non-source
478: l_line_dtl_rec.sub_type_id := px_txn_line_detail_tbl(l_s_index).sub_type_id;
479: IF nvl(px_txn_line_detail_tbl(l_s_index).txn_line_detail_id, fnd_api.g_miss_num)
480: <> fnd_api.g_miss_num THEN
481: l_line_dtl_rec.assc_txn_line_detail_id :=
482: px_txn_line_detail_tbl(l_s_index).txn_line_detail_id;
483: END IF;
484: END IF;
483: END IF;
484: END IF;
485: END IF;
486:
487: IF nvl(l_line_dtl_rec.txn_systems_index, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
488:
489: -- convert txn_systems_index in to txn_system_id
490: csi_t_vldn_routines_pvt.get_txn_system_id(
491: p_txn_systems_index => l_line_dtl_rec.txn_systems_index,
492: p_txn_systems_tbl => px_txn_systems_tbl,
493: x_txn_system_id => l_line_dtl_rec.transaction_system_id,
494: x_return_status => l_return_status);
495:
496: IF l_return_status <> fnd_api.g_ret_sts_success THEN
497:
498: FND_MESSAGE.set_name('FND','FND_GENERIC_MESSAGE');
499: FND_MESSAGE.set_token('MESSAGE','Failed to convert txn system index to ID');
500: FND_MSG_PUB.add;
497:
498: FND_MESSAGE.set_name('FND','FND_GENERIC_MESSAGE');
499: FND_MESSAGE.set_token('MESSAGE','Failed to convert txn system index to ID');
500: FND_MSG_PUB.add;
501: RAISE FND_API.g_exc_error;
502:
503: END IF;
504:
505: END IF;
505: END IF;
506:
507: /* Adding this IF piece so that the API will default value for this based on the value for instance id column - shegde*/
508:
509: IF ( l_line_dtl_rec.instance_id <> fnd_api.g_miss_num
510: AND l_line_dtl_rec.instance_id is NOT NULL ) THEN
511: l_line_dtl_rec.instance_exists_flag := 'Y';
512: ELSE
513: l_line_dtl_rec.instance_exists_flag := 'N';
529: x_return_status => l_return_status,
530: x_msg_count => l_msg_count,
531: x_msg_data => l_msg_data);
532:
533: IF l_return_status <> fnd_api.g_ret_sts_success THEN
534: raise fnd_api.g_exc_error;
535: END IF;
536:
537: px_txn_line_detail_tbl(l_index).transaction_line_id :=
530: x_msg_count => l_msg_count,
531: x_msg_data => l_msg_data);
532:
533: IF l_return_status <> fnd_api.g_ret_sts_success THEN
534: raise fnd_api.g_exc_error;
535: END IF;
536:
537: px_txn_line_detail_tbl(l_index).transaction_line_id :=
538: l_line_dtl_rec.transaction_line_id;
557: FOR i IN px_txn_ii_rltns_tbl.FIRST .. px_txn_ii_rltns_tbl.LAST
558: LOOP
559: l_sub_instance_id := NULL ;
560: l_sub_tld_id := NULL ;
561: IF (NVL(px_txn_ii_rltns_tbl(i).sub_config_inst_hdr_id , fnd_api.g_miss_num)
562: <> fnd_api.g_miss_num
563: AND NVL(px_txn_ii_rltns_tbl(i).subject_id, fnd_api.g_miss_num)
564: = fnd_api.g_miss_num)
565: THEN
558: LOOP
559: l_sub_instance_id := NULL ;
560: l_sub_tld_id := NULL ;
561: IF (NVL(px_txn_ii_rltns_tbl(i).sub_config_inst_hdr_id , fnd_api.g_miss_num)
562: <> fnd_api.g_miss_num
563: AND NVL(px_txn_ii_rltns_tbl(i).subject_id, fnd_api.g_miss_num)
564: = fnd_api.g_miss_num)
565: THEN
566: -- Now assuming that user is passing only config keys , get the associated instance/txn_detail_line.
559: l_sub_instance_id := NULL ;
560: l_sub_tld_id := NULL ;
561: IF (NVL(px_txn_ii_rltns_tbl(i).sub_config_inst_hdr_id , fnd_api.g_miss_num)
562: <> fnd_api.g_miss_num
563: AND NVL(px_txn_ii_rltns_tbl(i).subject_id, fnd_api.g_miss_num)
564: = fnd_api.g_miss_num)
565: THEN
566: -- Now assuming that user is passing only config keys , get the associated instance/txn_detail_line.
567:
560: l_sub_tld_id := NULL ;
561: IF (NVL(px_txn_ii_rltns_tbl(i).sub_config_inst_hdr_id , fnd_api.g_miss_num)
562: <> fnd_api.g_miss_num
563: AND NVL(px_txn_ii_rltns_tbl(i).subject_id, fnd_api.g_miss_num)
564: = fnd_api.g_miss_num)
565: THEN
566: -- Now assuming that user is passing only config keys , get the associated instance/txn_detail_line.
567:
568: csi_t_gen_utility_pvt.add('Calling get_cz_inst_or_tld_id for subject ');
573: x_instance_id => l_sub_instance_id ,
574: x_txn_line_detail_id => l_sub_tld_id ,
575: x_return_status => x_return_status );
576:
577: IF x_return_status <> fnd_api.g_ret_sts_success
578: THEN
579: RAISE fnd_api.g_exc_error ;
580: END IF ;
581:
575: x_return_status => x_return_status );
576:
577: IF x_return_status <> fnd_api.g_ret_sts_success
578: THEN
579: RAISE fnd_api.g_exc_error ;
580: END IF ;
581:
582: IF l_sub_instance_id IS NULL
583: AND l_sub_tld_id IS NULL
581:
582: IF l_sub_instance_id IS NULL
583: AND l_sub_tld_id IS NULL
584: THEN
585: RAISE fnd_api.g_exc_error ;
586: END IF ;
587:
588: IF l_sub_instance_id IS NOT NULL
589: THEN
597: END IF ;
598: csi_t_gen_utility_pvt.add('tld/instance id for subject ' || l_sub_instance_id || l_sub_tld_id);
599: END IF ; ---Subject_id is NULL
600:
601: IF (NVL(px_txn_ii_rltns_tbl(i).obj_config_inst_hdr_id , fnd_api.g_miss_num)
602: <> fnd_api.g_miss_num
603: AND NVL(px_txn_ii_rltns_tbl(i).object_id, fnd_api.g_miss_num)
604: = fnd_api.g_miss_num)
605: THEN
598: csi_t_gen_utility_pvt.add('tld/instance id for subject ' || l_sub_instance_id || l_sub_tld_id);
599: END IF ; ---Subject_id is NULL
600:
601: IF (NVL(px_txn_ii_rltns_tbl(i).obj_config_inst_hdr_id , fnd_api.g_miss_num)
602: <> fnd_api.g_miss_num
603: AND NVL(px_txn_ii_rltns_tbl(i).object_id, fnd_api.g_miss_num)
604: = fnd_api.g_miss_num)
605: THEN
606: csi_t_gen_utility_pvt.add('Calling get_cz_inst_or_tld_id for OBJECT');
599: END IF ; ---Subject_id is NULL
600:
601: IF (NVL(px_txn_ii_rltns_tbl(i).obj_config_inst_hdr_id , fnd_api.g_miss_num)
602: <> fnd_api.g_miss_num
603: AND NVL(px_txn_ii_rltns_tbl(i).object_id, fnd_api.g_miss_num)
604: = fnd_api.g_miss_num)
605: THEN
606: csi_t_gen_utility_pvt.add('Calling get_cz_inst_or_tld_id for OBJECT');
607:
600:
601: IF (NVL(px_txn_ii_rltns_tbl(i).obj_config_inst_hdr_id , fnd_api.g_miss_num)
602: <> fnd_api.g_miss_num
603: AND NVL(px_txn_ii_rltns_tbl(i).object_id, fnd_api.g_miss_num)
604: = fnd_api.g_miss_num)
605: THEN
606: csi_t_gen_utility_pvt.add('Calling get_cz_inst_or_tld_id for OBJECT');
607:
608: csi_t_vldn_routines_pvt.get_cz_inst_or_tld_id (
612: x_instance_id => l_obj_instance_id ,
613: x_txn_line_detail_id => l_obj_tld_id ,
614: x_return_status => x_return_status );
615:
616: IF x_return_status <> fnd_api.g_ret_sts_success
617: THEN
618: RAISE fnd_api.g_exc_error ;
619: END IF ;
620:
614: x_return_status => x_return_status );
615:
616: IF x_return_status <> fnd_api.g_ret_sts_success
617: THEN
618: RAISE fnd_api.g_exc_error ;
619: END IF ;
620:
621: IF l_obj_instance_id IS NOT NULL
622: THEN
631:
632: IF l_obj_instance_id IS NULL
633: AND l_obj_tld_id IS NULL
634: THEN
635: RAISE fnd_api.g_exc_error ;
636: END IF ;
637: csi_t_gen_utility_pvt.add('tld/instance id for OBJECT' || l_obj_instance_id || l_obj_tld_id);
638: END IF ; --object is null
639: END LOOP ; --px_txn_ii_rltns_tbl loop
661: x_return_status => l_return_status,
662: x_msg_count => l_msg_count,
663: x_msg_data => l_msg_data);
664:
665: IF l_return_status <> fnd_api.g_ret_sts_success THEN
666: raise fnd_api.g_exc_error;
667: END IF;
668: px_txn_ii_rltns_tbl(l_index).txn_relationship_id :=
669: l_txn_ii_rltns_rec.txn_relationship_id;
662: x_msg_count => l_msg_count,
663: x_msg_data => l_msg_data);
664:
665: IF l_return_status <> fnd_api.g_ret_sts_success THEN
666: raise fnd_api.g_exc_error;
667: END IF;
668: px_txn_ii_rltns_tbl(l_index).txn_relationship_id :=
669: l_txn_ii_rltns_rec.txn_relationship_id;
670: END LOOP; -- rltns tbl loop
685: csi_t_vldn_routines_pvt.convert_rltns_index_to_ids(
686: p_line_dtl_tbl => px_txn_line_detail_tbl,
687: px_ii_rltns_tbl => px_txn_ii_rltns_tbl,
688: x_return_status => l_return_status);
689: IF l_return_status <> fnd_api.g_ret_sts_success THEN
690: RAISE fnd_api.g_exc_error;
691: END IF;
692:
693: -- Added M-M changes The check rltns integrity has now been moved here .
686: p_line_dtl_tbl => px_txn_line_detail_tbl,
687: px_ii_rltns_tbl => px_txn_ii_rltns_tbl,
688: x_return_status => l_return_status);
689: IF l_return_status <> fnd_api.g_ret_sts_success THEN
690: RAISE fnd_api.g_exc_error;
691: END IF;
692:
693: -- Added M-M changes The check rltns integrity has now been moved here .
694: /* this routine checks the ii relationships data integrity*/
699: p_txn_line_detail_tbl => px_txn_line_detail_tbl,
700: p_txn_ii_rltns_tbl => px_txn_ii_rltns_tbl,
701: x_return_status => l_return_status);
702:
703: IF l_return_status <> fnd_api.g_ret_sts_success THEN
704: RAISE fnd_api.g_exc_error;
705: END IF;
706:
707: -- call api to create intance relationship records
700: p_txn_ii_rltns_tbl => px_txn_ii_rltns_tbl,
701: x_return_status => l_return_status);
702:
703: IF l_return_status <> fnd_api.g_ret_sts_success THEN
704: RAISE fnd_api.g_exc_error;
705: END IF;
706:
707: -- call api to create intance relationship records
708: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
714: x_return_status => l_return_status,
715: x_msg_count => l_msg_count,
716: x_msg_data => l_msg_data);
717:
718: IF l_return_status <> fnd_api.g_ret_sts_success THEN
719: raise fnd_api.g_exc_error;
720: END IF;
721:
722: -- Added M-M changes . End
715: x_msg_count => l_msg_count,
716: x_msg_data => l_msg_data);
717:
718: IF l_return_status <> fnd_api.g_ret_sts_success THEN
719: raise fnd_api.g_exc_error;
720: END IF;
721:
722: -- Added M-M changes . End
723:
726: END IF; -- main if for td tbl count > 0
727:
728:
729: -- Standard check of p_commit.
730: IF FND_API.To_Boolean( p_commit ) THEN
731: COMMIT WORK;
732: END IF;
733:
734: csi_t_gen_utility_pvt.add('transaction_line_id : '||l_txn_line_id);
740: p_count => x_msg_count,
741: p_data => x_msg_data);
742:
743: EXCEPTION
744: WHEN FND_API.G_EXC_ERROR THEN
745:
746: ROLLBACK TO create_transaction_dtls;
747: x_return_status := FND_API.G_RET_STS_ERROR ;
748: FND_MSG_PUB.Count_And_Get (
743: EXCEPTION
744: WHEN FND_API.G_EXC_ERROR THEN
745:
746: ROLLBACK TO create_transaction_dtls;
747: x_return_status := FND_API.G_RET_STS_ERROR ;
748: FND_MSG_PUB.Count_And_Get (
749: p_count => x_msg_count,
750: p_data => x_msg_data);
751: csi_t_gen_utility_pvt.set_debug_off;
749: p_count => x_msg_count,
750: p_data => x_msg_data);
751: csi_t_gen_utility_pvt.set_debug_off;
752:
753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
754:
755: ROLLBACK TO create_transaction_dtls;
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
757:
752:
753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
754:
755: ROLLBACK TO create_transaction_dtls;
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
757:
758: FND_MSG_PUB.Count_And_Get(
759: p_count => x_msg_count,
760: p_data => x_msg_data);
762:
763: WHEN OTHERS THEN
764:
765: ROLLBACK TO create_transaction_dtls;
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
767:
768: IF FND_MSG_PUB.Check_Msg_Level(
769: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
770:
786: */
787:
788: PROCEDURE update_transaction_dtls (
789: p_api_version IN NUMBER
790: ,p_commit IN VARCHAR2 := fnd_api.g_false
791: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
792: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
793: ,p_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec
794: ,px_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl
787:
788: PROCEDURE update_transaction_dtls (
789: p_api_version IN NUMBER
790: ,p_commit IN VARCHAR2 := fnd_api.g_false
791: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
792: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
793: ,p_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec
794: ,px_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl
795: ,px_txn_ii_rltns_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_ii_rltns_tbl
788: PROCEDURE update_transaction_dtls (
789: p_api_version IN NUMBER
790: ,p_commit IN VARCHAR2 := fnd_api.g_false
791: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
792: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
793: ,p_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec
794: ,px_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl
795: ,px_txn_ii_rltns_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_ii_rltns_tbl
796: ,px_txn_party_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl
805: l_api_name CONSTANT VARCHAR2(30) := 'update_transaction_dtls';
806: l_api_version CONSTANT NUMBER := 1.0;
807: l_debug_level NUMBER;
808:
809: l_return_status VARCHAR2(1) := FND_API.G_ret_sts_success;
810: l_msg_count NUMBER;
811: l_msg_data VARCHAR2(2000);
812:
813: l_txn_line_rec csi_t_datastructures_grp.txn_line_rec;
863: -- Standard Start of API savepoint
864: SAVEPOINT update_transaction_dtls;
865:
866: -- Initialize message list if p_init_msg_list is set to TRUE.
867: IF FND_API.To_Boolean( p_init_msg_list ) THEN
868: FND_MSG_PUB.Initialize;
869: END IF;
870:
871: -- Initialize API return status to success
868: FND_MSG_PUB.Initialize;
869: END IF;
870:
871: -- Initialize API return status to success
872: x_return_status := FND_API.G_RET_STS_SUCCESS;
873:
874: -- Standard call to check for call compatibility.
875: IF NOT
876: FND_API.Compatible_API_Call (
872: x_return_status := FND_API.G_RET_STS_SUCCESS;
873:
874: -- Standard call to check for call compatibility.
875: IF NOT
876: FND_API.Compatible_API_Call (
877: p_current_version_number => l_api_version,
878: p_caller_version_number => p_api_version,
879: p_api_name => l_api_name,
880: p_pkg_name => g_pkg_name)
878: p_caller_version_number => p_api_version,
879: p_api_name => l_api_name,
880: p_pkg_name => g_pkg_name)
881: THEN
882: RAISE FND_API.G_Exc_Unexpected_Error;
883: END IF;
884:
885: -- debug messages
886: l_debug_level := csi_t_gen_utility_pvt.g_debug_level;
900: -- Main API code
901: --
902: -- This procedure check if the installed base is active, If not active
903: -- populates the error message in the message queue and raises the
904: -- fnd_api.g_exc_error exception
905: --
906:
907: csi_utility_grp.check_ib_active;
908:
958: l_c_ii_ind := 0;
959:
960: FOR i IN px_txn_line_detail_tbl.FIRST .. px_txn_line_detail_tbl.LAST
961: LOOP
962: IF nvl(px_txn_line_detail_tbl(i).txn_line_detail_id,fnd_api.g_miss_num)= fnd_api.g_miss_num THEN
963: l_c_tld_tbl(l_c_tld_ind) := px_txn_line_detail_tbl(i);
964: -- re-index the child pl/sql tables for the appropriate operation
965: -- Transaction Party details table
966: IF px_txn_party_detail_tbl.count > 0 THEN
965: -- Transaction Party details table
966: IF px_txn_party_detail_tbl.count > 0 THEN
967: FOR pc_ind IN px_txn_party_detail_tbl.FIRST .. px_txn_party_detail_tbl.LAST
968: LOOP
969: IF ((nvl(px_txn_party_detail_tbl(pc_ind).txn_line_detail_id,fnd_api.g_miss_num) = fnd_api.g_miss_num )
970: AND (px_txn_party_detail_tbl(pc_ind).txn_line_details_index = i ))
971: THEN
972: px_txn_party_detail_tbl(pc_ind).txn_line_details_index := l_c_tld_ind;
973:
974: -- Transaction Party account details table
975: IF px_txn_pty_acct_detail_tbl.count > 0 THEN
976: FOR pac_ind IN px_txn_pty_acct_detail_tbl.FIRST .. px_txn_pty_acct_detail_tbl.LAST
977: LOOP
978: IF ((nvl(px_txn_pty_acct_detail_tbl(pac_ind).txn_account_detail_id,fnd_api.g_miss_num) = fnd_api.g_miss_num)
979: AND (px_txn_pty_acct_detail_tbl(pac_ind).txn_party_details_index = pc_ind)) THEN
980:
981: px_txn_pty_acct_detail_tbl(pac_ind).txn_party_details_index := l_c_pty_ind;
982: l_c_pty_acct_tbl(l_c_pa_ind) := px_txn_pty_acct_detail_tbl(pac_ind);
989: l_tmp_party_detail_tbl := px_txn_party_detail_tbl;
990:
991: FOR con_ind IN l_tmp_party_detail_tbl.FIRST .. l_tmp_party_detail_tbl.LAST
992: LOOP
993: IF nvl(l_tmp_party_detail_tbl(con_ind).txn_party_detail_id,fnd_api.g_miss_num) = fnd_api.g_miss_num
994: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_party_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
995: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_flag, 'N') = 'Y' THEN
996: IF nvl(px_txn_party_detail_tbl(pc_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
997: AND ( nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, fnd_api.g_miss_char) = fnd_api.g_miss_char
990:
991: FOR con_ind IN l_tmp_party_detail_tbl.FIRST .. l_tmp_party_detail_tbl.LAST
992: LOOP
993: IF nvl(l_tmp_party_detail_tbl(con_ind).txn_party_detail_id,fnd_api.g_miss_num) = fnd_api.g_miss_num
994: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_party_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
995: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_flag, 'N') = 'Y' THEN
996: IF nvl(px_txn_party_detail_tbl(pc_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
997: AND ( nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, fnd_api.g_miss_char) = fnd_api.g_miss_char
998: OR nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, 'N') = 'N') THEN
992: LOOP
993: IF nvl(l_tmp_party_detail_tbl(con_ind).txn_party_detail_id,fnd_api.g_miss_num) = fnd_api.g_miss_num
994: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_party_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
995: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_flag, 'N') = 'Y' THEN
996: IF nvl(px_txn_party_detail_tbl(pc_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
997: AND ( nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, fnd_api.g_miss_char) = fnd_api.g_miss_char
998: OR nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, 'N') = 'N') THEN
999: IF l_tmp_party_detail_tbl(con_ind).contact_party_id =
1000: px_txn_party_detail_tbl(pc_ind).txn_contact_party_index THEN
993: IF nvl(l_tmp_party_detail_tbl(con_ind).txn_party_detail_id,fnd_api.g_miss_num) = fnd_api.g_miss_num
994: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_party_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
995: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_flag, 'N') = 'Y' THEN
996: IF nvl(px_txn_party_detail_tbl(pc_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
997: AND ( nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, fnd_api.g_miss_char) = fnd_api.g_miss_char
998: OR nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, 'N') = 'N') THEN
999: IF l_tmp_party_detail_tbl(con_ind).contact_party_id =
1000: px_txn_party_detail_tbl(pc_ind).txn_contact_party_index THEN
1001:
1005: END IF;
1006: END LOOP;
1007: px_txn_party_detail_tbl := l_tmp_party_detail_tbl;
1008:
1009: IF nvl(px_txn_party_detail_tbl(pc_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1010: AND ( nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, fnd_api.g_miss_char) = fnd_api.g_miss_char
1011: OR nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, 'N') = 'N') THEN
1012:
1013: px_txn_party_detail_tbl(pc_ind).txn_contact_party_index := l_c_pty_ind;
1006: END LOOP;
1007: px_txn_party_detail_tbl := l_tmp_party_detail_tbl;
1008:
1009: IF nvl(px_txn_party_detail_tbl(pc_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1010: AND ( nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, fnd_api.g_miss_char) = fnd_api.g_miss_char
1011: OR nvl(px_txn_party_detail_tbl(pc_ind).contact_flag, 'N') = 'N') THEN
1012:
1013: px_txn_party_detail_tbl(pc_ind).txn_contact_party_index := l_c_pty_ind;
1014: END IF;
1061: END IF;
1062: l_c_tld_ind := l_c_tld_ind +1;
1063: ELSE
1064: -- modified the IF below for bug 4769442
1065: IF nvl(px_txn_line_detail_tbl(i).active_end_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
1066: AND l_txn_line_rec.source_transaction_type_id = 3
1067: THEN
1068: -- Check to see if Mass Update, delete operation and is allowed
1069: Debug('Line Detail ('||px_txn_line_detail_tbl(i).txn_line_detail_id||
1084: ' Either the Instance ID was NULL or not a Mass Update Transaction Type');
1085: NULL;
1086: END;
1087: END IF;
1088: IF nvl(px_txn_line_detail_tbl(i).active_end_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
1089: AND nvl(px_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1090: AND l_txn_line_rec.source_transaction_type_id = 3
1091: THEN
1092: -- Check to see if Mass Update, delete operation and is allowed
1085: NULL;
1086: END;
1087: END IF;
1088: IF nvl(px_txn_line_detail_tbl(i).active_end_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
1089: AND nvl(px_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1090: AND l_txn_line_rec.source_transaction_type_id = 3
1091: THEN
1092: -- Check to see if Mass Update, delete operation and is allowed
1093: Debug('Instance ID ('||px_txn_line_detail_tbl(i).instance_id
1108: FOR pu_ind IN px_txn_party_detail_tbl.FIRST .. px_txn_party_detail_tbl.LAST
1109: LOOP
1110: Debug('Upd Txn line detail, pu_ind: '|| pu_ind);
1111: csi_t_gen_utility_pvt.dump_party_detail_rec(px_txn_party_detail_tbl(pu_ind));
1112: IF nvl(px_txn_party_detail_tbl(pu_ind).txn_party_detail_id,fnd_api.g_miss_num)
1113: = fnd_api.g_miss_num -- New Party creation
1114: THEN
1115: Debug('Party ID: '|| px_txn_party_detail_tbl(pu_ind).party_source_id||'-'||pu_ind);
1116: IF px_txn_party_detail_tbl(pu_ind).txn_line_detail_id =
1109: LOOP
1110: Debug('Upd Txn line detail, pu_ind: '|| pu_ind);
1111: csi_t_gen_utility_pvt.dump_party_detail_rec(px_txn_party_detail_tbl(pu_ind));
1112: IF nvl(px_txn_party_detail_tbl(pu_ind).txn_party_detail_id,fnd_api.g_miss_num)
1113: = fnd_api.g_miss_num -- New Party creation
1114: THEN
1115: Debug('Party ID: '|| px_txn_party_detail_tbl(pu_ind).party_source_id||'-'||pu_ind);
1116: IF px_txn_party_detail_tbl(pu_ind).txn_line_detail_id =
1117: px_txn_line_detail_tbl(i).txn_line_detail_id
1122: IF px_txn_pty_acct_detail_tbl.count > 0 THEN
1123: FOR pau_ind IN px_txn_pty_acct_detail_tbl.FIRST .. px_txn_pty_acct_detail_tbl.LAST
1124: LOOP
1125: Debug('Upd Txn acct detail, pau_ind: '|| pau_ind);
1126: IF nvl(px_txn_pty_acct_detail_tbl(pau_ind).txn_account_detail_id,fnd_api.g_miss_num)
1127: = fnd_api.g_miss_num
1128: THEN -- New account creation
1129: IF px_txn_pty_acct_detail_tbl(pau_ind).txn_party_details_index = pu_ind THEN
1130:
1123: FOR pau_ind IN px_txn_pty_acct_detail_tbl.FIRST .. px_txn_pty_acct_detail_tbl.LAST
1124: LOOP
1125: Debug('Upd Txn acct detail, pau_ind: '|| pau_ind);
1126: IF nvl(px_txn_pty_acct_detail_tbl(pau_ind).txn_account_detail_id,fnd_api.g_miss_num)
1127: = fnd_api.g_miss_num
1128: THEN -- New account creation
1129: IF px_txn_pty_acct_detail_tbl(pau_ind).txn_party_details_index = pu_ind THEN
1130:
1131: px_txn_pty_acct_detail_tbl(pau_ind).txn_party_details_index := l_u_pty_ind;
1140: l_tmp_party_detail_tbl := px_txn_party_detail_tbl;
1141:
1142: FOR con_ind IN l_tmp_party_detail_tbl.FIRST .. l_tmp_party_detail_tbl.LAST
1143: LOOP
1144: IF nvl(l_tmp_party_detail_tbl(con_ind).txn_party_detail_id,fnd_api.g_miss_num) = fnd_api.g_miss_num
1145: -- New Party contact creation
1146: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1147: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_flag, 'N') = 'Y' THEN
1148: IF nvl(px_txn_party_detail_tbl(pu_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1142: FOR con_ind IN l_tmp_party_detail_tbl.FIRST .. l_tmp_party_detail_tbl.LAST
1143: LOOP
1144: IF nvl(l_tmp_party_detail_tbl(con_ind).txn_party_detail_id,fnd_api.g_miss_num) = fnd_api.g_miss_num
1145: -- New Party contact creation
1146: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1147: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_flag, 'N') = 'Y' THEN
1148: IF nvl(px_txn_party_detail_tbl(pu_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1149: AND ( nvl(px_txn_party_detail_tbl(pu_ind).contact_flag,fnd_api.g_miss_char) = fnd_api.g_miss_char
1150: OR nvl(px_txn_party_detail_tbl(pu_ind).contact_flag, 'N') = 'N') THEN
1144: IF nvl(l_tmp_party_detail_tbl(con_ind).txn_party_detail_id,fnd_api.g_miss_num) = fnd_api.g_miss_num
1145: -- New Party contact creation
1146: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1147: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_flag, 'N') = 'Y' THEN
1148: IF nvl(px_txn_party_detail_tbl(pu_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1149: AND ( nvl(px_txn_party_detail_tbl(pu_ind).contact_flag,fnd_api.g_miss_char) = fnd_api.g_miss_char
1150: OR nvl(px_txn_party_detail_tbl(pu_ind).contact_flag, 'N') = 'N') THEN
1151: IF l_tmp_party_detail_tbl(con_ind).contact_party_id
1152: = px_txn_party_detail_tbl(pu_ind).txn_contact_party_index THEN
1145: -- New Party contact creation
1146: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1147: AND nvl(l_tmp_party_detail_tbl(con_ind).contact_flag, 'N') = 'Y' THEN
1148: IF nvl(px_txn_party_detail_tbl(pu_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1149: AND ( nvl(px_txn_party_detail_tbl(pu_ind).contact_flag,fnd_api.g_miss_char) = fnd_api.g_miss_char
1150: OR nvl(px_txn_party_detail_tbl(pu_ind).contact_flag, 'N') = 'N') THEN
1151: IF l_tmp_party_detail_tbl(con_ind).contact_party_id
1152: = px_txn_party_detail_tbl(pu_ind).txn_contact_party_index THEN
1153: l_tmp_party_detail_tbl(con_ind).contact_party_id := l_u_pty_ind;
1157: END LOOP;
1158: px_txn_party_detail_tbl := l_tmp_party_detail_tbl;
1159: debug('l_u_pty_ind: '||l_u_pty_ind);
1160:
1161: IF nvl(px_txn_party_detail_tbl(pu_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1162: AND ( nvl(px_txn_party_detail_tbl(pu_ind).contact_flag,fnd_api.g_miss_char) = fnd_api.g_miss_char
1163: OR nvl(px_txn_party_detail_tbl(pu_ind).contact_flag, 'N') = 'N')
1164: THEN
1165: -- reset the txn_contact_party_index of the update table too
1158: px_txn_party_detail_tbl := l_tmp_party_detail_tbl;
1159: debug('l_u_pty_ind: '||l_u_pty_ind);
1160:
1161: IF nvl(px_txn_party_detail_tbl(pu_ind).txn_contact_party_index,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1162: AND ( nvl(px_txn_party_detail_tbl(pu_ind).contact_flag,fnd_api.g_miss_char) = fnd_api.g_miss_char
1163: OR nvl(px_txn_party_detail_tbl(pu_ind).contact_flag, 'N') = 'N')
1164: THEN
1165: -- reset the txn_contact_party_index of the update table too
1166: px_txn_party_detail_tbl(pu_ind).txn_contact_party_index := l_u_pty_ind;
1170: END IF;
1171: ELSE -- update to an existing party
1172: Debug('Upd Txn party detail, pu_ind: '|| pu_ind||'type id:'||l_txn_line_rec.source_transaction_type_id);
1173: l_exists := 'N';
1174: IF nvl(px_txn_party_detail_tbl(pu_ind).preserve_detail_flag,fnd_api.g_miss_char) = 'N'
1175: AND l_txn_line_rec.source_transaction_type_id = 3
1176: -- Mass Update allows usage of preserve details flag for party deletion..
1177: THEN
1178: If l_d_pty_ids_tbl.count > 0 THEN
1213:
1214: IF px_txn_pty_acct_detail_tbl.count > 0 THEN
1215: FOR pau_ind IN px_txn_pty_acct_detail_tbl.FIRST .. px_txn_pty_acct_detail_tbl.LAST
1216: LOOP
1217: IF nvl(px_txn_pty_acct_detail_tbl(pau_ind).txn_account_detail_id,fnd_api.g_miss_num)
1218: = fnd_api.g_miss_num THEN -- New account creation
1219:
1220: Debug('Upd Txn line detail Update Pty Crt Acct, pau_ind: '|| pau_ind);
1221: csi_t_gen_utility_pvt.dump_pty_acct_rec(px_txn_pty_acct_detail_tbl(pau_ind));
1214: IF px_txn_pty_acct_detail_tbl.count > 0 THEN
1215: FOR pau_ind IN px_txn_pty_acct_detail_tbl.FIRST .. px_txn_pty_acct_detail_tbl.LAST
1216: LOOP
1217: IF nvl(px_txn_pty_acct_detail_tbl(pau_ind).txn_account_detail_id,fnd_api.g_miss_num)
1218: = fnd_api.g_miss_num THEN -- New account creation
1219:
1220: Debug('Upd Txn line detail Update Pty Crt Acct, pau_ind: '|| pau_ind);
1221: csi_t_gen_utility_pvt.dump_pty_acct_rec(px_txn_pty_acct_detail_tbl(pau_ind));
1222: IF px_txn_pty_acct_detail_tbl(pau_ind).txn_party_detail_id
1249: END IF;
1250: ELSE -- update to an existing account detail
1251: Debug('Upd line detail Update Pty Upd Acct, pau_ind: '
1252: || pau_ind||px_txn_pty_acct_detail_tbl(pau_ind).preserve_detail_flag);
1253: IF nvl(px_txn_pty_acct_detail_tbl(pau_ind).preserve_detail_flag,fnd_api.g_miss_char) = 'N'
1254: AND l_txn_line_rec.source_transaction_type_id = 3 THEN
1255: -- Mass Update allows usage of preserve details flag for account deletion..
1256:
1257: Debug('Update Acct, preserve flag: N');
1305: FOR eau_ind IN px_txn_ext_attrib_vals_tbl.FIRST .. px_txn_ext_attrib_vals_tbl.LAST
1306: LOOP
1307: If l_u_eav_tbl.count > 0 THEN
1308: For u in l_u_eav_tbl.first .. l_u_eav_tbl.last Loop
1309: if ((l_u_eav_tbl(u).txn_attrib_detail_id <> fnd_api.g_miss_num
1310: and px_txn_ext_attrib_vals_tbl(eau_ind).txn_attrib_detail_id <> fnd_api.g_miss_num)
1311: and ( l_u_eav_tbl(u).txn_attrib_detail_id= px_txn_ext_attrib_vals_tbl(eau_ind).txn_attrib_detail_id))
1312: Then
1313: l_exists := 'Y';
1306: LOOP
1307: If l_u_eav_tbl.count > 0 THEN
1308: For u in l_u_eav_tbl.first .. l_u_eav_tbl.last Loop
1309: if ((l_u_eav_tbl(u).txn_attrib_detail_id <> fnd_api.g_miss_num
1310: and px_txn_ext_attrib_vals_tbl(eau_ind).txn_attrib_detail_id <> fnd_api.g_miss_num)
1311: and ( l_u_eav_tbl(u).txn_attrib_detail_id= px_txn_ext_attrib_vals_tbl(eau_ind).txn_attrib_detail_id))
1312: Then
1313: l_exists := 'Y';
1314: exit;
1361: IF l_c_tld_tbl.count > 0 THEN
1362: -- Calling the Create Txn details for all the new Transaction details...
1363: csi_t_txn_details_pvt.create_transaction_dtls(
1364: p_api_version => p_api_version,
1365: p_commit => fnd_api.g_false,
1366: p_init_msg_list => p_init_msg_list,
1367: p_validation_level => p_validation_level,
1368: px_txn_line_rec => l_txn_line_rec,
1369: px_txn_line_detail_tbl => l_c_tld_tbl,
1376: x_return_status => l_return_status,
1377: x_msg_count => l_msg_count,
1378: x_msg_data => l_msg_data);
1379:
1380: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1381: RAISE fnd_api.g_exc_error;
1382: END IF;
1383: -- need to use tmp tables and then reassign the ID's back to sync up the same px tables so that
1384: -- they can be passed back to the callers
1377: x_msg_count => l_msg_count,
1378: x_msg_data => l_msg_data);
1379:
1380: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1381: RAISE fnd_api.g_exc_error;
1382: END IF;
1383: -- need to use tmp tables and then reassign the ID's back to sync up the same px tables so that
1384: -- they can be passed back to the callers
1385:
1405:
1406: -- Calling the Update Txn details for the updates to Transaction details...
1407: csi_t_txn_line_dtls_pvt.update_txn_line_dtls(
1408: p_api_version => p_api_version,
1409: p_commit => fnd_api.g_false,
1410: p_init_msg_list => p_init_msg_list,
1411: p_validation_level => p_validation_level,
1412: p_txn_line_rec => l_txn_line_rec,
1413: p_txn_line_detail_tbl => l_u_tld_tbl,
1419: x_return_status => l_return_status,
1420: x_msg_count => l_msg_count,
1421: x_msg_data => l_msg_data);
1422:
1423: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1424: RAISE fnd_api.g_exc_error;
1425: END IF;
1426:
1427: IF x_tmp_line_detail_tbl.COUNT > 0
1420: x_msg_count => l_msg_count,
1421: x_msg_data => l_msg_data);
1422:
1423: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1424: RAISE fnd_api.g_exc_error;
1425: END IF;
1426:
1427: IF x_tmp_line_detail_tbl.COUNT > 0
1428: THEN
1499: IF l_d_pty_acct_ids_tbl.count > 0 THEN -- Mass Update; remove new accounts
1500: debug(' deleting acct :'||l_d_pty_acct_ids_tbl.count);
1501: csi_t_txn_parties_grp.delete_txn_pty_acct_dtls(
1502: p_api_version => 1.0
1503: ,p_commit => fnd_api.g_false
1504: ,p_init_msg_list => p_init_msg_list
1505: ,p_validation_level => p_validation_level
1506: ,p_txn_pty_acct_ids_tbl => l_d_pty_acct_ids_tbl
1507: ,x_return_status => l_return_status
1507: ,x_return_status => l_return_status
1508: ,x_msg_count => l_msg_count
1509: ,x_msg_data => l_msg_data);
1510:
1511: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1512: RAISE fnd_api.g_exc_error;
1513: END IF;
1514: END IF;
1515:
1508: ,x_msg_count => l_msg_count
1509: ,x_msg_data => l_msg_data);
1510:
1511: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1512: RAISE fnd_api.g_exc_error;
1513: END IF;
1514: END IF;
1515:
1516: IF l_d_pty_ids_tbl.count > 0 THEN -- Mass Update; remove current and new associations
1518: debug(' deleting Pty :'||l_d_pty_ids_tbl.count);
1519:
1520: csi_t_txn_parties_grp.delete_txn_party_dtls(
1521: p_api_version => 1.0
1522: ,p_commit => fnd_api.g_false
1523: ,p_init_msg_list => p_init_msg_list
1524: ,p_validation_level => p_validation_level
1525: ,p_txn_party_ids_tbl => l_d_pty_ids_tbl
1526: ,x_txn_pty_acct_ids_tbl => x_tmp_pty_acct_ids_tbl
1527: ,x_return_status => l_return_status
1528: ,x_msg_count => l_msg_count
1529: ,x_msg_data => l_msg_data);
1530:
1531: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1532: RAISE fnd_api.g_exc_error;
1533: END IF;
1534: END IF;
1535: ELSE -- No updates being procesed..
1528: ,x_msg_count => l_msg_count
1529: ,x_msg_data => l_msg_data);
1530:
1531: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1532: RAISE fnd_api.g_exc_error;
1533: END IF;
1534: END IF;
1535: ELSE -- No updates being procesed..
1536:
1556: x_return_status => l_return_status,
1557: x_msg_count => l_msg_count,
1558: x_msg_data => l_msg_data);
1559:
1560: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1561: RAISE fnd_api.g_exc_error;
1562: END IF;
1563: END Loop;
1564:
1557: x_msg_count => l_msg_count,
1558: x_msg_data => l_msg_data);
1559:
1560: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1561: RAISE fnd_api.g_exc_error;
1562: END IF;
1563: END Loop;
1564:
1565: IF px_txn_line_detail_tbl.COUNT > 0
1573: END IF ; ---px_txn_line_detail_tbl.COUNT > 0
1574: END IF;
1575:
1576: -- Standard check of p_commit.
1577: IF FND_API.To_Boolean( p_commit ) THEN
1578: COMMIT WORK;
1579: END IF;
1580:
1581: csi_t_gen_utility_pvt.add('Transaction details updated successfully.');
1586: p_count => x_msg_count,
1587: p_data => x_msg_data);
1588:
1589: EXCEPTION
1590: WHEN FND_API.G_EXC_ERROR THEN
1591:
1592: ROLLBACK TO update_transaction_dtls;
1593: x_return_status := FND_API.G_RET_STS_ERROR ;
1594: FND_MSG_PUB.Count_And_Get (
1589: EXCEPTION
1590: WHEN FND_API.G_EXC_ERROR THEN
1591:
1592: ROLLBACK TO update_transaction_dtls;
1593: x_return_status := FND_API.G_RET_STS_ERROR ;
1594: FND_MSG_PUB.Count_And_Get (
1595: p_count => x_msg_count,
1596: p_data => x_msg_data);
1597: csi_t_gen_utility_pvt.set_debug_off;
1595: p_count => x_msg_count,
1596: p_data => x_msg_data);
1597: csi_t_gen_utility_pvt.set_debug_off;
1598:
1599: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1600:
1601: ROLLBACK TO update_transaction_dtls;
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1603:
1598:
1599: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1600:
1601: ROLLBACK TO update_transaction_dtls;
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1603:
1604: FND_MSG_PUB.Count_And_Get(
1605: p_count => x_msg_count,
1606: p_data => x_msg_data);
1608:
1609: WHEN OTHERS THEN
1610:
1611: ROLLBACK TO update_transaction_dtls;
1612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1613:
1614: IF FND_MSG_PUB.Check_Msg_Level(
1615: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1616:
1628: END update_transaction_dtls;
1629:
1630: PROCEDURE delete_transaction_dtls(
1631: p_api_version IN NUMBER
1632: ,p_commit IN VARCHAR2 := fnd_api.g_false
1633: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1634: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1635: ,p_transaction_line_id IN NUMBER
1636: ,p_txn_line_detail_id IN NUMBER
1629:
1630: PROCEDURE delete_transaction_dtls(
1631: p_api_version IN NUMBER
1632: ,p_commit IN VARCHAR2 := fnd_api.g_false
1633: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1634: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1635: ,p_transaction_line_id IN NUMBER
1636: ,p_txn_line_detail_id IN NUMBER
1637: ,x_return_status OUT NOCOPY VARCHAR2
1630: PROCEDURE delete_transaction_dtls(
1631: p_api_version IN NUMBER
1632: ,p_commit IN VARCHAR2 := fnd_api.g_false
1633: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1634: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1635: ,p_transaction_line_id IN NUMBER
1636: ,p_txn_line_detail_id IN NUMBER
1637: ,x_return_status OUT NOCOPY VARCHAR2
1638: ,x_msg_count OUT NOCOPY NUMBER
1734: -- Standard Start of API savepoint
1735: SAVEPOINT delete_transaction_dtls;
1736:
1737: -- Initialize message list if p_init_msg_list is set to TRUE.
1738: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1739: FND_MSG_PUB.initialize;
1740: END IF;
1741:
1742: -- Initialize API return status to success
1739: FND_MSG_PUB.initialize;
1740: END IF;
1741:
1742: -- Initialize API return status to success
1743: x_return_status := FND_API.G_RET_STS_SUCCESS;
1744:
1745: -- Standard call to check for call compatibility.
1746: IF NOT
1747:
1744:
1745: -- Standard call to check for call compatibility.
1746: IF NOT
1747:
1748: FND_API.Compatible_API_Call (
1749: p_current_version_number => l_api_version,
1750: p_caller_version_number => p_api_version,
1751: p_api_name => l_api_name,
1752: p_pkg_name => G_PKG_NAME) THEN
1750: p_caller_version_number => p_api_version,
1751: p_api_name => l_api_name,
1752: p_pkg_name => G_PKG_NAME) THEN
1753:
1754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1755:
1756: END IF;
1757: -- debug messages
1758:
1780: p_transaction_line_id => p_transaction_line_id,
1781: x_transaction_line_rec => l_txn_line_rec,-- Added for Mass update R12
1782: x_return_status => l_return_status);
1783:
1784: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1785:
1786: fnd_message.set_name('CSI','CSI_TXN_LINE_ID_INVALID');
1787: fnd_message.set_token('TXN_LINE_ID', p_transaction_line_id);
1788: fnd_msg_pub.add;
1785:
1786: fnd_message.set_name('CSI','CSI_TXN_LINE_ID_INVALID');
1787: fnd_message.set_token('TXN_LINE_ID', p_transaction_line_id);
1788: fnd_msg_pub.add;
1789: RAISE fnd_api.g_exc_error;
1790:
1791: END IF;
1792:
1793: -- put the business logics here
1806: csi_t_vldn_routines_pvt.check_ib_creation(
1807: p_transaction_line_id => p_transaction_line_id,
1808: x_return_status => l_return_status);
1809:
1810: IF l_return_status = fnd_api.g_true THEN
1811:
1812: fnd_message.set_name('CSI','CSI_TXN_DELETION_NOT_ALLOWED');
1813: fnd_message.set_token('TXN_LINE_ID', p_transaction_line_id);
1814: fnd_msg_pub.add;
1811:
1812: fnd_message.set_name('CSI','CSI_TXN_DELETION_NOT_ALLOWED');
1813: fnd_message.set_token('TXN_LINE_ID', p_transaction_line_id);
1814: fnd_msg_pub.add;
1815: RAISE fnd_api.g_exc_error;
1816:
1817: END IF;
1818: END IF;
1819: END IF;
1900: csi_t_vldn_routines_pvt.check_ib_creation(
1901: p_transaction_line_id => l_transaction_line_id,
1902: x_return_status => l_return_status);
1903:
1904: IF l_return_status = fnd_api.g_true THEN
1905: FND_MESSAGE.set_name('CSI','CSI_TXN_LINE_ID_PROCESSED');
1906: FND_MESSAGE.set_token('TXN_LINE_ID',l_transaction_line_id);
1907: FND_MSG_PUB.add;
1908: exit; -- if a relationship is found and that has already been processed to IB then skip it else mark it for deletion
1926: csi_t_vldn_routines_pvt.check_ib_creation(
1927: p_transaction_line_id => l_transaction_line_id,
1928: x_return_status => l_return_status);
1929:
1930: IF l_return_status = fnd_api.g_true THEN
1931: FND_MESSAGE.set_name('CSI','CSI_TXN_LINE_ID_PROCESSED');
1932: FND_MESSAGE.set_token('TXN_LINE_ID',l_transaction_line_id);
1933: FND_MSG_PUB.add;
1934: exit; -- if a relationship is found and that has already been processed to IB then skip it else mark it for deletion
1969: LOOP
1970:
1971: csi_t_txn_systems_grp.delete_txn_system(
1972: p_api_version => 1.0,
1973: p_commit => fnd_api.g_false,
1974: p_init_msg_list => fnd_api.g_false,
1975: p_validation_level => fnd_api.g_valid_level_full,
1976: p_txn_system_id => sys_rec.transaction_system_id,
1977: x_return_status => l_return_status,
1970:
1971: csi_t_txn_systems_grp.delete_txn_system(
1972: p_api_version => 1.0,
1973: p_commit => fnd_api.g_false,
1974: p_init_msg_list => fnd_api.g_false,
1975: p_validation_level => fnd_api.g_valid_level_full,
1976: p_txn_system_id => sys_rec.transaction_system_id,
1977: x_return_status => l_return_status,
1978: x_msg_count => l_msg_count,
1971: csi_t_txn_systems_grp.delete_txn_system(
1972: p_api_version => 1.0,
1973: p_commit => fnd_api.g_false,
1974: p_init_msg_list => fnd_api.g_false,
1975: p_validation_level => fnd_api.g_valid_level_full,
1976: p_txn_system_id => sys_rec.transaction_system_id,
1977: x_return_status => l_return_status,
1978: x_msg_count => l_msg_count,
1979: x_msg_data => l_msg_data);
1977: x_return_status => l_return_status,
1978: x_msg_count => l_msg_count,
1979: x_msg_data => l_msg_data);
1980:
1981: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1982: RAISE fnd_api.g_exc_error;
1983: END IF;
1984:
1985: END LOOP;
1978: x_msg_count => l_msg_count,
1979: x_msg_data => l_msg_data);
1980:
1981: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1982: RAISE fnd_api.g_exc_error;
1983: END IF;
1984:
1985: END LOOP;
1986:
1993: x_return_status => l_return_status,
1994: x_msg_count => l_msg_count,
1995: x_msg_data => l_msg_data);
1996:
1997: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1998: RAISE fnd_api.g_exc_error;
1999: END IF;
2000:
2001: csi_t_txn_parties_pvt.delete_txn_party_dtls(
1994: x_msg_count => l_msg_count,
1995: x_msg_data => l_msg_data);
1996:
1997: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1998: RAISE fnd_api.g_exc_error;
1999: END IF;
2000:
2001: csi_t_txn_parties_pvt.delete_txn_party_dtls(
2002: p_api_version => p_api_version,
2008: x_return_status => l_return_status,
2009: x_msg_count => l_msg_count,
2010: x_msg_data => l_msg_data);
2011:
2012: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2013: RAISE fnd_api.g_exc_error;
2014: END IF;
2015:
2016: csi_t_txn_rltnshps_pvt.delete_txn_ii_rltns_dtls(
2009: x_msg_count => l_msg_count,
2010: x_msg_data => l_msg_data);
2011:
2012: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2013: RAISE fnd_api.g_exc_error;
2014: END IF;
2015:
2016: csi_t_txn_rltnshps_pvt.delete_txn_ii_rltns_dtls(
2017: p_api_version => p_api_version,
2022: x_return_status => l_return_status,
2023: x_msg_count => l_msg_count,
2024: x_msg_data => l_msg_data);
2025:
2026: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2027: RAISE fnd_api.g_exc_error;
2028: END IF;
2029:
2030: csi_t_txn_ous_pvt.delete_txn_org_assgn_dtls(
2023: x_msg_count => l_msg_count,
2024: x_msg_data => l_msg_data);
2025:
2026: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2027: RAISE fnd_api.g_exc_error;
2028: END IF;
2029:
2030: csi_t_txn_ous_pvt.delete_txn_org_assgn_dtls(
2031: p_api_version => p_api_version,
2036: x_return_status => l_return_status,
2037: x_msg_count => l_msg_count,
2038: x_msg_data => l_msg_data);
2039:
2040: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2041: RAISE fnd_api.g_exc_error;
2042: END IF;
2043:
2044: csi_t_txn_attribs_pvt.delete_txn_ext_attrib_dtls(
2037: x_msg_count => l_msg_count,
2038: x_msg_data => l_msg_data);
2039:
2040: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2041: RAISE fnd_api.g_exc_error;
2042: END IF;
2043:
2044: csi_t_txn_attribs_pvt.delete_txn_ext_attrib_dtls(
2045: p_api_version => p_api_version,
2050: x_return_status => l_return_status,
2051: x_msg_count => l_msg_count,
2052: x_msg_data => l_msg_data);
2053:
2054: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2055: RAISE fnd_api.g_exc_error;
2056: END IF;
2057:
2058: csi_t_txn_line_dtls_pvt.delete_txn_line_dtls(
2051: x_msg_count => l_msg_count,
2052: x_msg_data => l_msg_data);
2053:
2054: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2055: RAISE fnd_api.g_exc_error;
2056: END IF;
2057:
2058: csi_t_txn_line_dtls_pvt.delete_txn_line_dtls(
2059: p_api_version => p_api_version,
2064: x_return_status => l_return_status,
2065: x_msg_count => l_msg_count,
2066: x_msg_data => l_msg_data);
2067:
2068: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2069: RAISE fnd_api.g_exc_error;
2070: END IF;
2071:
2072: -- call table handler to delete transaction lines
2065: x_msg_count => l_msg_count,
2066: x_msg_data => l_msg_data);
2067:
2068: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2069: RAISE fnd_api.g_exc_error;
2070: END IF;
2071:
2072: -- call table handler to delete transaction lines
2073: IF nvl(p_txn_line_detail_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2069: RAISE fnd_api.g_exc_error;
2070: END IF;
2071:
2072: -- call table handler to delete transaction lines
2073: IF nvl(p_txn_line_detail_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2074: csi_t_transaction_lines_pkg.delete_row(
2075: p_transaction_line_id => p_transaction_line_id);
2076: END IF;
2077:
2075: p_transaction_line_id => p_transaction_line_id);
2076: END IF;
2077:
2078: -- Standard check of p_commit.
2079: IF FND_API.To_Boolean( p_commit ) THEN
2080: COMMIT WORK;
2081: END IF;
2082:
2083: csi_t_gen_utility_pvt.add('Transaction Details Deleted Successfully
2089: p_count => x_msg_count,
2090: p_data => x_msg_data);
2091:
2092: EXCEPTION
2093: WHEN FND_API.G_EXC_ERROR THEN
2094:
2095: ROLLBACK TO delete_transaction_dtls;
2096: x_return_status := FND_API.G_RET_STS_ERROR ;
2097: FND_MSG_PUB.Count_And_Get (
2092: EXCEPTION
2093: WHEN FND_API.G_EXC_ERROR THEN
2094:
2095: ROLLBACK TO delete_transaction_dtls;
2096: x_return_status := FND_API.G_RET_STS_ERROR ;
2097: FND_MSG_PUB.Count_And_Get (
2098: p_count => x_msg_count,
2099: p_data => x_msg_data);
2100:
2097: FND_MSG_PUB.Count_And_Get (
2098: p_count => x_msg_count,
2099: p_data => x_msg_data);
2100:
2101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2102:
2103: ROLLBACK TO delete_transaction_dtls;
2104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2105:
2100:
2101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2102:
2103: ROLLBACK TO delete_transaction_dtls;
2104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2105:
2106: FND_MSG_PUB.Count_And_Get(
2107: p_count => x_msg_count,
2108: p_data => x_msg_data);
2109:
2110: WHEN OTHERS THEN
2111:
2112: ROLLBACK TO delete_transaction_dtls;
2113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2114:
2115: IF FND_MSG_PUB.Check_Msg_Level(
2116: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2117:
2219: --END;
2220:
2221: EXCEPTION
2222: WHEN others THEN
2223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2224:
2225: End get_txn_systems;
2226:
2227: /* This routine builds the txn systems query and makes a dynamic sql query
2357: */
2358:
2359: PROCEDURE get_transaction_details(
2360: p_api_version IN NUMBER
2361: ,p_commit IN VARCHAR2 := fnd_api.g_false
2362: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2363: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2364: ,p_txn_line_query_rec IN csi_t_datastructures_grp.txn_line_query_rec
2365: ,p_txn_line_detail_query_rec IN csi_t_datastructures_grp.txn_line_detail_query_rec
2358:
2359: PROCEDURE get_transaction_details(
2360: p_api_version IN NUMBER
2361: ,p_commit IN VARCHAR2 := fnd_api.g_false
2362: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2363: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2364: ,p_txn_line_query_rec IN csi_t_datastructures_grp.txn_line_query_rec
2365: ,p_txn_line_detail_query_rec IN csi_t_datastructures_grp.txn_line_detail_query_rec
2366: ,x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl
2359: PROCEDURE get_transaction_details(
2360: p_api_version IN NUMBER
2361: ,p_commit IN VARCHAR2 := fnd_api.g_false
2362: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2363: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2364: ,p_txn_line_query_rec IN csi_t_datastructures_grp.txn_line_query_rec
2365: ,p_txn_line_detail_query_rec IN csi_t_datastructures_grp.txn_line_detail_query_rec
2366: ,x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl
2367: ,p_get_parties_flag IN VARCHAR2 := fnd_api.g_false
2363: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2364: ,p_txn_line_query_rec IN csi_t_datastructures_grp.txn_line_query_rec
2365: ,p_txn_line_detail_query_rec IN csi_t_datastructures_grp.txn_line_detail_query_rec
2366: ,x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl
2367: ,p_get_parties_flag IN VARCHAR2 := fnd_api.g_false
2368: ,x_txn_party_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl
2369: ,p_get_pty_accts_flag IN VARCHAR2 := fnd_api.g_false
2370: ,x_txn_pty_acct_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_pty_acct_detail_tbl
2371: ,p_get_ii_rltns_flag IN VARCHAR2 := fnd_api.g_false
2365: ,p_txn_line_detail_query_rec IN csi_t_datastructures_grp.txn_line_detail_query_rec
2366: ,x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl
2367: ,p_get_parties_flag IN VARCHAR2 := fnd_api.g_false
2368: ,x_txn_party_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl
2369: ,p_get_pty_accts_flag IN VARCHAR2 := fnd_api.g_false
2370: ,x_txn_pty_acct_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_pty_acct_detail_tbl
2371: ,p_get_ii_rltns_flag IN VARCHAR2 := fnd_api.g_false
2372: ,x_txn_ii_rltns_tbl OUT NOCOPY csi_t_datastructures_grp.txn_ii_rltns_tbl
2373: ,p_get_org_assgns_flag IN VARCHAR2 := fnd_api.g_false
2367: ,p_get_parties_flag IN VARCHAR2 := fnd_api.g_false
2368: ,x_txn_party_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl
2369: ,p_get_pty_accts_flag IN VARCHAR2 := fnd_api.g_false
2370: ,x_txn_pty_acct_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_pty_acct_detail_tbl
2371: ,p_get_ii_rltns_flag IN VARCHAR2 := fnd_api.g_false
2372: ,x_txn_ii_rltns_tbl OUT NOCOPY csi_t_datastructures_grp.txn_ii_rltns_tbl
2373: ,p_get_org_assgns_flag IN VARCHAR2 := fnd_api.g_false
2374: ,x_txn_org_assgn_tbl OUT NOCOPY csi_t_datastructures_grp.txn_org_assgn_tbl
2375: ,p_get_ext_attrib_vals_flag IN VARCHAR2 := fnd_api.g_false
2369: ,p_get_pty_accts_flag IN VARCHAR2 := fnd_api.g_false
2370: ,x_txn_pty_acct_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_pty_acct_detail_tbl
2371: ,p_get_ii_rltns_flag IN VARCHAR2 := fnd_api.g_false
2372: ,x_txn_ii_rltns_tbl OUT NOCOPY csi_t_datastructures_grp.txn_ii_rltns_tbl
2373: ,p_get_org_assgns_flag IN VARCHAR2 := fnd_api.g_false
2374: ,x_txn_org_assgn_tbl OUT NOCOPY csi_t_datastructures_grp.txn_org_assgn_tbl
2375: ,p_get_ext_attrib_vals_flag IN VARCHAR2 := fnd_api.g_false
2376: ,x_txn_ext_attrib_vals_tbl OUT NOCOPY csi_t_datastructures_grp.txn_ext_attrib_vals_tbl
2377: ,p_get_csi_attribs_flag IN VARCHAR2 := fnd_api.g_false
2371: ,p_get_ii_rltns_flag IN VARCHAR2 := fnd_api.g_false
2372: ,x_txn_ii_rltns_tbl OUT NOCOPY csi_t_datastructures_grp.txn_ii_rltns_tbl
2373: ,p_get_org_assgns_flag IN VARCHAR2 := fnd_api.g_false
2374: ,x_txn_org_assgn_tbl OUT NOCOPY csi_t_datastructures_grp.txn_org_assgn_tbl
2375: ,p_get_ext_attrib_vals_flag IN VARCHAR2 := fnd_api.g_false
2376: ,x_txn_ext_attrib_vals_tbl OUT NOCOPY csi_t_datastructures_grp.txn_ext_attrib_vals_tbl
2377: ,p_get_csi_attribs_flag IN VARCHAR2 := fnd_api.g_false
2378: ,x_csi_ext_attribs_tbl OUT NOCOPY csi_t_datastructures_grp.csi_ext_attribs_tbl
2379: ,p_get_csi_iea_values_flag IN VARCHAR2 := fnd_api.g_false
2373: ,p_get_org_assgns_flag IN VARCHAR2 := fnd_api.g_false
2374: ,x_txn_org_assgn_tbl OUT NOCOPY csi_t_datastructures_grp.txn_org_assgn_tbl
2375: ,p_get_ext_attrib_vals_flag IN VARCHAR2 := fnd_api.g_false
2376: ,x_txn_ext_attrib_vals_tbl OUT NOCOPY csi_t_datastructures_grp.txn_ext_attrib_vals_tbl
2377: ,p_get_csi_attribs_flag IN VARCHAR2 := fnd_api.g_false
2378: ,x_csi_ext_attribs_tbl OUT NOCOPY csi_t_datastructures_grp.csi_ext_attribs_tbl
2379: ,p_get_csi_iea_values_flag IN VARCHAR2 := fnd_api.g_false
2380: ,x_csi_iea_values_tbl OUT NOCOPY csi_t_datastructures_grp.csi_ext_attrib_vals_tbl
2381: ,p_get_txn_systems_flag IN VARCHAR2 := fnd_api.g_false
2375: ,p_get_ext_attrib_vals_flag IN VARCHAR2 := fnd_api.g_false
2376: ,x_txn_ext_attrib_vals_tbl OUT NOCOPY csi_t_datastructures_grp.txn_ext_attrib_vals_tbl
2377: ,p_get_csi_attribs_flag IN VARCHAR2 := fnd_api.g_false
2378: ,x_csi_ext_attribs_tbl OUT NOCOPY csi_t_datastructures_grp.csi_ext_attribs_tbl
2379: ,p_get_csi_iea_values_flag IN VARCHAR2 := fnd_api.g_false
2380: ,x_csi_iea_values_tbl OUT NOCOPY csi_t_datastructures_grp.csi_ext_attrib_vals_tbl
2381: ,p_get_txn_systems_flag IN VARCHAR2 := fnd_api.g_false
2382: ,x_txn_systems_tbl OUT NOCOPY csi_t_datastructures_grp.txn_systems_tbl
2383: ,x_return_status OUT NOCOPY VARCHAR2
2377: ,p_get_csi_attribs_flag IN VARCHAR2 := fnd_api.g_false
2378: ,x_csi_ext_attribs_tbl OUT NOCOPY csi_t_datastructures_grp.csi_ext_attribs_tbl
2379: ,p_get_csi_iea_values_flag IN VARCHAR2 := fnd_api.g_false
2380: ,x_csi_iea_values_tbl OUT NOCOPY csi_t_datastructures_grp.csi_ext_attrib_vals_tbl
2381: ,p_get_txn_systems_flag IN VARCHAR2 := fnd_api.g_false
2382: ,x_txn_systems_tbl OUT NOCOPY csi_t_datastructures_grp.txn_systems_tbl
2383: ,x_return_status OUT NOCOPY VARCHAR2
2384: ,x_msg_count OUT NOCOPY NUMBER
2385: ,x_msg_data OUT NOCOPY VARCHAR2)
2388: l_api_name CONSTANT VARCHAR2(30) := 'get_transaction_dtls';
2389: l_api_version CONSTANT NUMBER := 1.0;
2390: l_debug_level NUMBER;
2391:
2392: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2393:
2394: l_line_dtl_id_list varchar2(1000);
2395: l_party_dtl_id_list varchar2(1000);
2396: l_txn_line_id_list varchar2(1000);
2440: -- Standard Start of API savepoint
2441: SAVEPOINT Get_Transaction_Dtls;
2442:
2443: -- Initialize message list if p_init_msg_list is set to TRUE.
2444: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2445: FND_MSG_PUB.initialize;
2446: END IF;
2447:
2448: -- Initialize API return status to success
2445: FND_MSG_PUB.initialize;
2446: END IF;
2447:
2448: -- Initialize API return status to success
2449: x_return_status := FND_API.G_RET_STS_SUCCESS;
2450:
2451: -- Standard call to check for call compatibility.
2452: IF NOT
2453:
2450:
2451: -- Standard call to check for call compatibility.
2452: IF NOT
2453:
2454: FND_API.Compatible_API_Call (
2455: p_current_version_number => l_api_version,
2456: p_caller_version_number => p_api_version,
2457: p_api_name => l_api_name,
2458: p_pkg_name => g_pkg_name) THEN
2456: p_caller_version_number => p_api_version,
2457: p_api_name => l_api_name,
2458: p_pkg_name => g_pkg_name) THEN
2459:
2460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461:
2462: END IF;
2463:
2464: -- debug messages
2582: END LOOP ; --txn_ii_rel_rec IN txn_ii_rel_cur
2583: END LOOP ; --l_txn_line_dtl_tbl.FIRST .. l_txn_line_dtl_tbl.LAST
2584: END IF ; ---l_txn_line_dtl_tbl.COUNT>0
2585:
2586: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2587: csi_t_gen_utility_pvt.add('csi_t_txn_line_dtls_pvt.get_txn_line_dtls failed');
2588: RAISE fnd_api.g_exc_error;
2589: END IF;
2590:
2584: END IF ; ---l_txn_line_dtl_tbl.COUNT>0
2585:
2586: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2587: csi_t_gen_utility_pvt.add('csi_t_txn_line_dtls_pvt.get_txn_line_dtls failed');
2588: RAISE fnd_api.g_exc_error;
2589: END IF;
2590:
2591: x_txn_line_detail_tbl := l_txn_line_dtl_tbl;
2592:
2593: IF l_txn_line_dtl_tbl.COUNT > 0 THEN
2594:
2595: l_line_dtl_id_list := null;
2596:
2597: IF p_get_parties_flag = fnd_api.g_true THEN
2598:
2599: csi_t_txn_parties_pvt.get_all_party_dtls(
2600: p_line_detail_tbl => l_txn_line_dtl_tbl,
2601: x_party_detail_tbl => l_txn_party_dtl_tbl,
2600: p_line_detail_tbl => l_txn_line_dtl_tbl,
2601: x_party_detail_tbl => l_txn_party_dtl_tbl,
2602: x_return_status => l_return_status);
2603:
2604: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2605: RAISE fnd_api.g_exc_error;
2606: END IF;
2607:
2608: x_txn_party_detail_tbl := l_txn_party_dtl_tbl;
2601: x_party_detail_tbl => l_txn_party_dtl_tbl,
2602: x_return_status => l_return_status);
2603:
2604: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2605: RAISE fnd_api.g_exc_error;
2606: END IF;
2607:
2608: x_txn_party_detail_tbl := l_txn_party_dtl_tbl;
2609:
2628: csi_t_gen_utility_pvt.add('Party Dtl ID'||tdp||': '||l_txn_party_dtl_tbl(tdp).txn_party_detail_id);
2629:
2630: END LOOP;
2631:
2632: IF p_get_pty_accts_flag = fnd_api.g_true THEN
2633:
2634: csi_t_txn_parties_pvt.get_all_pty_acct_dtls(
2635: p_party_detail_tbl => l_txn_party_dtl_tbl,
2636: x_pty_acct_detail_tbl => l_txn_pty_acct_dtl_tbl,
2635: p_party_detail_tbl => l_txn_party_dtl_tbl,
2636: x_pty_acct_detail_tbl => l_txn_pty_acct_dtl_tbl,
2637: x_return_status => l_return_status);
2638:
2639: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2640: RAISE fnd_api.g_exc_error;
2641: END IF;
2642:
2643: x_txn_pty_acct_detail_tbl := l_txn_pty_acct_dtl_tbl;
2636: x_pty_acct_detail_tbl => l_txn_pty_acct_dtl_tbl,
2637: x_return_status => l_return_status);
2638:
2639: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2640: RAISE fnd_api.g_exc_error;
2641: END IF;
2642:
2643: x_txn_pty_acct_detail_tbl := l_txn_pty_acct_dtl_tbl;
2644:
2646:
2647: END IF;
2648: END IF;
2649:
2650: IF p_get_ext_attrib_vals_flag = fnd_api.g_true THEN
2651:
2652: csi_t_txn_attribs_pvt.get_all_ext_attrib_dtls(
2653: p_txn_line_detail_tbl => l_txn_line_dtl_tbl,
2654: x_ext_attrib_tbl => l_ext_attrib_tbl,
2653: p_txn_line_detail_tbl => l_txn_line_dtl_tbl,
2654: x_ext_attrib_tbl => l_ext_attrib_tbl,
2655: x_return_status => l_return_status);
2656:
2657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2658: RAISE fnd_api.g_exc_error;
2659: END IF;
2660:
2661: x_txn_ext_attrib_vals_tbl := l_ext_attrib_tbl;
2654: x_ext_attrib_tbl => l_ext_attrib_tbl,
2655: x_return_status => l_return_status);
2656:
2657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2658: RAISE fnd_api.g_exc_error;
2659: END IF;
2660:
2661: x_txn_ext_attrib_vals_tbl := l_ext_attrib_tbl;
2662:
2661: x_txn_ext_attrib_vals_tbl := l_ext_attrib_tbl;
2662:
2663: END IF;
2664:
2665: IF p_get_csi_attribs_flag = fnd_api.g_true THEN
2666:
2667: csi_t_txn_attribs_pvt.get_all_csi_ext_attribs(
2668: p_txn_line_detail_tbl => l_txn_line_dtl_tbl,
2669: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2668: p_txn_line_detail_tbl => l_txn_line_dtl_tbl,
2669: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2670: x_return_status => l_return_status);
2671:
2672: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2673: RAISE fnd_api.g_exc_error;
2674: END IF;
2675:
2676: x_csi_ext_attribs_tbl := l_csi_ext_attribs_tbl;
2669: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2670: x_return_status => l_return_status);
2671:
2672: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2673: RAISE fnd_api.g_exc_error;
2674: END IF;
2675:
2676: x_csi_ext_attribs_tbl := l_csi_ext_attribs_tbl;
2677:
2676: x_csi_ext_attribs_tbl := l_csi_ext_attribs_tbl;
2677:
2678: END IF;
2679:
2680: IF p_get_csi_iea_values_flag = fnd_api.g_true THEN
2681:
2682: csi_t_txn_attribs_pvt.get_all_csi_ext_attrib_vals(
2683: p_txn_line_detail_tbl => l_txn_line_dtl_tbl,
2684: x_csi_ea_vals_tbl => l_csi_ea_vals_tbl,
2683: p_txn_line_detail_tbl => l_txn_line_dtl_tbl,
2684: x_csi_ea_vals_tbl => l_csi_ea_vals_tbl,
2685: x_return_status => l_return_status);
2686:
2687: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2688: RAISE fnd_api.g_exc_error;
2689: END IF;
2690:
2691: x_csi_iea_values_tbl := l_csi_ea_vals_tbl;
2684: x_csi_ea_vals_tbl => l_csi_ea_vals_tbl,
2685: x_return_status => l_return_status);
2686:
2687: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2688: RAISE fnd_api.g_exc_error;
2689: END IF;
2690:
2691: x_csi_iea_values_tbl := l_csi_ea_vals_tbl;
2692:
2691: x_csi_iea_values_tbl := l_csi_ea_vals_tbl;
2692:
2693: END IF;
2694:
2695: IF p_get_org_assgns_flag = fnd_api.g_true THEN
2696:
2697: csi_t_txn_ous_pvt.get_all_org_assgn_dtls(
2698: p_txn_line_detail_tbl => l_txn_line_dtl_tbl,
2699: x_org_assgn_tbl => l_org_assgn_tbl,
2698: p_txn_line_detail_tbl => l_txn_line_dtl_tbl,
2699: x_org_assgn_tbl => l_org_assgn_tbl,
2700: x_return_status => l_return_status);
2701:
2702: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2703: RAISE fnd_api.g_exc_error;
2704: END IF;
2705:
2706: x_txn_org_assgn_tbl := l_org_assgn_tbl;
2699: x_org_assgn_tbl => l_org_assgn_tbl,
2700: x_return_status => l_return_status);
2701:
2702: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2703: RAISE fnd_api.g_exc_error;
2704: END IF;
2705:
2706: x_txn_org_assgn_tbl := l_org_assgn_tbl;
2707:
2711:
2712: ---Kishor 05/09
2713: IF l_txn_line_dtl_tbl.COUNT > 0
2714: THEN
2715: IF NVL(p_txn_line_query_rec.transaction_line_id,fnd_api.g_miss_num) <>
2716: fnd_api.g_miss_num
2717: THEN
2718: l_txn_line_id := p_txn_line_query_rec.transaction_line_id ;
2719: ELSE
2712: ---Kishor 05/09
2713: IF l_txn_line_dtl_tbl.COUNT > 0
2714: THEN
2715: IF NVL(p_txn_line_query_rec.transaction_line_id,fnd_api.g_miss_num) <>
2716: fnd_api.g_miss_num
2717: THEN
2718: l_txn_line_id := p_txn_line_query_rec.transaction_line_id ;
2719: ELSE
2720: l_txn_line_id := l_txn_line_dtl_tbl(1).transaction_line_id ;
2721: END IF ;
2722: END IF ;
2723:
2724: -- get txn systems
2725: IF p_get_txn_systems_flag = fnd_api.g_true THEN
2726:
2727: /* Changes for Bug 2543266
2728: l_txn_system_id_list := null;
2729:
2765:
2766: END IF;
2767:
2768: -- Standard check of p_commit.
2769: IF FND_API.To_Boolean( p_commit ) THEN
2770: COMMIT WORK;
2771: END IF;
2772:
2773: csi_t_gen_utility_pvt.add('Get Transaction Details Successful');
2777: p_count => x_msg_count,
2778: p_data => x_msg_data);
2779:
2780: EXCEPTION
2781: WHEN FND_API.G_EXC_ERROR THEN
2782:
2783: ROLLBACK TO Get_Transaction_Dtls;
2784: x_return_status := FND_API.G_RET_STS_ERROR ;
2785:
2780: EXCEPTION
2781: WHEN FND_API.G_EXC_ERROR THEN
2782:
2783: ROLLBACK TO Get_Transaction_Dtls;
2784: x_return_status := FND_API.G_RET_STS_ERROR ;
2785:
2786: FND_MSG_PUB.Count_And_Get (
2787: p_count => x_msg_count,
2788: p_data => x_msg_data);
2786: FND_MSG_PUB.Count_And_Get (
2787: p_count => x_msg_count,
2788: p_data => x_msg_data);
2789:
2790: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2791:
2792: ROLLBACK TO Get_Transaction_Dtls;
2793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2794:
2789:
2790: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2791:
2792: ROLLBACK TO Get_Transaction_Dtls;
2793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2794:
2795: FND_MSG_PUB.Count_And_Get(
2796: p_count => x_msg_count,
2797: p_data => x_msg_data);
2798:
2799: WHEN OTHERS THEN
2800:
2801: ROLLBACK TO Get_Transaction_Dtls;
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2803:
2804: IF FND_MSG_PUB.Check_Msg_Level(
2805: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2806:
2837: END check_td_for_create;
2838:
2839: PROCEDURE split_transaction_dtls(
2840: p_api_version IN NUMBER,
2841: p_commit IN VARCHAR2 := fnd_api.g_false,
2842: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2843: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2844: p_upd_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
2845: p_upd_txn_line_dtl_tbl IN csi_t_datastructures_grp.txn_line_detail_tbl,
2838:
2839: PROCEDURE split_transaction_dtls(
2840: p_api_version IN NUMBER,
2841: p_commit IN VARCHAR2 := fnd_api.g_false,
2842: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2843: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2844: p_upd_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
2845: p_upd_txn_line_dtl_tbl IN csi_t_datastructures_grp.txn_line_detail_tbl,
2846: px_crt_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
2839: PROCEDURE split_transaction_dtls(
2840: p_api_version IN NUMBER,
2841: p_commit IN VARCHAR2 := fnd_api.g_false,
2842: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2843: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2844: p_upd_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
2845: p_upd_txn_line_dtl_tbl IN csi_t_datastructures_grp.txn_line_detail_tbl,
2846: px_crt_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
2847: px_crt_txn_line_dtl_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
2853: l_api_name CONSTANT VARCHAR2(30) := 'split_transaction_dtls';
2854: l_api_version CONSTANT NUMBER := 1.0;
2855: l_debug_level NUMBER;
2856:
2857: l_return_status VARCHAR2(1) := FND_API.G_ret_sts_success;
2858: l_msg_count NUMBER;
2859: l_msg_data VARCHAR2(2000);
2860:
2861: l_c_line_ind binary_integer;
2899: -- Standard Start of API savepoint
2900: SAVEPOINT split_transaction_dtls;
2901:
2902: -- Initialize message list if p_init_msg_list is set to TRUE.
2903: IF FND_API.To_Boolean( p_init_msg_list ) THEN
2904: FND_MSG_PUB.Initialize;
2905: END IF;
2906:
2907: -- Initialize API return status to success
2904: FND_MSG_PUB.Initialize;
2905: END IF;
2906:
2907: -- Initialize API return status to success
2908: x_return_status := FND_API.G_RET_STS_SUCCESS;
2909:
2910: -- Standard call to check for call compatibility.
2911: IF NOT
2912:
2909:
2910: -- Standard call to check for call compatibility.
2911: IF NOT
2912:
2913: FND_API.Compatible_API_Call (
2914: p_current_version_number => l_api_version,
2915: p_caller_version_number => p_api_version,
2916: p_api_name => l_api_name,
2917: p_pkg_name => g_pkg_name) THEN
2915: p_caller_version_number => p_api_version,
2916: p_api_name => l_api_name,
2917: p_pkg_name => g_pkg_name) THEN
2918:
2919: RAISE FND_API.G_Exc_Unexpected_Error;
2920:
2921: END IF;
2922:
2923: -- debug messages
3066: x_return_status => l_return_status,
3067: x_msg_count => l_msg_count,
3068: x_msg_data => l_msg_data);
3069:
3070: IF l_return_status = fnd_api.g_ret_sts_success THEN
3071:
3072: SELECT transaction_line_id
3073: INTO l_txn_line_id
3074: FROM csi_t_transaction_lines
3075: WHERE source_transaction_table = px_crt_txn_line_rec.source_transaction_table
3076: AND source_transaction_id = px_crt_txn_line_rec.source_transaction_id;
3077:
3078: ELSE
3079: raise fnd_api.g_exc_error;
3080: END IF;
3081:
3082: ELSE
3083:
3139:
3140: END IF;
3141:
3142: -- Standard check of p_commit.
3143: IF FND_API.To_Boolean( p_commit ) THEN
3144: COMMIT WORK;
3145: END IF;
3146:
3147: -- Standard call to get message count and if count is get message info.
3149: p_count => x_msg_count,
3150: p_data => x_msg_data);
3151:
3152: EXCEPTION
3153: WHEN fnd_api.g_exc_error THEN
3154:
3155: ROLLBACK TO split_transaction_dtls;
3156: x_return_status := FND_API.G_RET_STS_ERROR ;
3157: FND_MSG_PUB.Count_And_Get (
3152: EXCEPTION
3153: WHEN fnd_api.g_exc_error THEN
3154:
3155: ROLLBACK TO split_transaction_dtls;
3156: x_return_status := FND_API.G_RET_STS_ERROR ;
3157: FND_MSG_PUB.Count_And_Get (
3158: p_count => x_msg_count,
3159: p_data => x_msg_data);
3160:
3157: FND_MSG_PUB.Count_And_Get (
3158: p_count => x_msg_count,
3159: p_data => x_msg_data);
3160:
3161: WHEN fnd_api.g_exc_unexpected_error THEN
3162:
3163: ROLLBACK TO split_transaction_dtls;
3164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3165:
3160:
3161: WHEN fnd_api.g_exc_unexpected_error THEN
3162:
3163: ROLLBACK TO split_transaction_dtls;
3164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3165:
3166: FND_MSG_PUB.Count_And_Get(
3167: p_count => x_msg_count,
3168: p_data => x_msg_data);
3169:
3170: WHEN others THEN
3171:
3172: ROLLBACK TO split_transaction_dtls;
3173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3174:
3175: IF FND_MSG_PUB.Check_Msg_Level(
3176: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3177:
3188: END split_transaction_dtls;
3189:
3190: PROCEDURE copy_transaction_dtls(
3191: p_api_version IN NUMBER,
3192: p_commit IN VARCHAR2 := fnd_api.g_false,
3193: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3194: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3195: p_src_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
3196: px_new_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3189:
3190: PROCEDURE copy_transaction_dtls(
3191: p_api_version IN NUMBER,
3192: p_commit IN VARCHAR2 := fnd_api.g_false,
3193: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3194: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3195: p_src_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
3196: px_new_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3197: p_copy_parties_flag IN varchar2 := fnd_api.g_true,
3190: PROCEDURE copy_transaction_dtls(
3191: p_api_version IN NUMBER,
3192: p_commit IN VARCHAR2 := fnd_api.g_false,
3193: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3194: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3195: p_src_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
3196: px_new_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3197: p_copy_parties_flag IN varchar2 := fnd_api.g_true,
3198: p_copy_pty_accts_flag IN varchar2 := fnd_api.g_true,
3193: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3194: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3195: p_src_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
3196: px_new_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3197: p_copy_parties_flag IN varchar2 := fnd_api.g_true,
3198: p_copy_pty_accts_flag IN varchar2 := fnd_api.g_true,
3199: p_copy_ii_rltns_flag IN varchar2 := fnd_api.g_true,
3200: p_copy_org_assgn_flag IN varchar2 := fnd_api.g_true,
3201: p_copy_ext_attribs_flag IN varchar2 := fnd_api.g_true,
3194: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3195: p_src_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
3196: px_new_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3197: p_copy_parties_flag IN varchar2 := fnd_api.g_true,
3198: p_copy_pty_accts_flag IN varchar2 := fnd_api.g_true,
3199: p_copy_ii_rltns_flag IN varchar2 := fnd_api.g_true,
3200: p_copy_org_assgn_flag IN varchar2 := fnd_api.g_true,
3201: p_copy_ext_attribs_flag IN varchar2 := fnd_api.g_true,
3202: p_copy_txn_systems_flag IN varchar2 := fnd_api.g_true,
3195: p_src_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
3196: px_new_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3197: p_copy_parties_flag IN varchar2 := fnd_api.g_true,
3198: p_copy_pty_accts_flag IN varchar2 := fnd_api.g_true,
3199: p_copy_ii_rltns_flag IN varchar2 := fnd_api.g_true,
3200: p_copy_org_assgn_flag IN varchar2 := fnd_api.g_true,
3201: p_copy_ext_attribs_flag IN varchar2 := fnd_api.g_true,
3202: p_copy_txn_systems_flag IN varchar2 := fnd_api.g_true,
3203: x_return_status OUT NOCOPY VARCHAR2,
3196: px_new_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3197: p_copy_parties_flag IN varchar2 := fnd_api.g_true,
3198: p_copy_pty_accts_flag IN varchar2 := fnd_api.g_true,
3199: p_copy_ii_rltns_flag IN varchar2 := fnd_api.g_true,
3200: p_copy_org_assgn_flag IN varchar2 := fnd_api.g_true,
3201: p_copy_ext_attribs_flag IN varchar2 := fnd_api.g_true,
3202: p_copy_txn_systems_flag IN varchar2 := fnd_api.g_true,
3203: x_return_status OUT NOCOPY VARCHAR2,
3204: x_msg_count OUT NOCOPY NUMBER,
3197: p_copy_parties_flag IN varchar2 := fnd_api.g_true,
3198: p_copy_pty_accts_flag IN varchar2 := fnd_api.g_true,
3199: p_copy_ii_rltns_flag IN varchar2 := fnd_api.g_true,
3200: p_copy_org_assgn_flag IN varchar2 := fnd_api.g_true,
3201: p_copy_ext_attribs_flag IN varchar2 := fnd_api.g_true,
3202: p_copy_txn_systems_flag IN varchar2 := fnd_api.g_true,
3203: x_return_status OUT NOCOPY VARCHAR2,
3204: x_msg_count OUT NOCOPY NUMBER,
3205: x_msg_data OUT NOCOPY VARCHAR2)
3198: p_copy_pty_accts_flag IN varchar2 := fnd_api.g_true,
3199: p_copy_ii_rltns_flag IN varchar2 := fnd_api.g_true,
3200: p_copy_org_assgn_flag IN varchar2 := fnd_api.g_true,
3201: p_copy_ext_attribs_flag IN varchar2 := fnd_api.g_true,
3202: p_copy_txn_systems_flag IN varchar2 := fnd_api.g_true,
3203: x_return_status OUT NOCOPY VARCHAR2,
3204: x_msg_count OUT NOCOPY NUMBER,
3205: x_msg_data OUT NOCOPY VARCHAR2)
3206: IS
3208: l_api_name CONSTANT VARCHAR2(30) := 'copy_transaction_dtls';
3209: l_api_version CONSTANT NUMBER := 1.0;
3210: l_debug_level NUMBER;
3211:
3212: l_return_status VARCHAR2(1) := FND_API.G_ret_sts_success;
3213: l_msg_count NUMBER;
3214: l_msg_data VARCHAR2(2000);
3215:
3216: l_line_dtl_tbl csi_t_datastructures_grp.txn_line_detail_tbl;
3232: -- Standard Start of API savepoint
3233: SAVEPOINT copy_transaction_dtls;
3234:
3235: -- Initialize message list if p_init_msg_list is set to TRUE.
3236: IF FND_API.To_Boolean( p_init_msg_list ) THEN
3237: FND_MSG_PUB.Initialize;
3238: END IF;
3239:
3240: -- Initialize API return status to success
3237: FND_MSG_PUB.Initialize;
3238: END IF;
3239:
3240: -- Initialize API return status to success
3241: x_return_status := FND_API.G_RET_STS_SUCCESS;
3242:
3243: -- Standard call to check for call compatibility.
3244: IF NOT
3245:
3242:
3243: -- Standard call to check for call compatibility.
3244: IF NOT
3245:
3246: FND_API.Compatible_API_Call (
3247: p_current_version_number => l_api_version,
3248: p_caller_version_number => p_api_version,
3249: p_api_name => l_api_name,
3250: p_pkg_name => g_pkg_name) THEN
3248: p_caller_version_number => p_api_version,
3249: p_api_name => l_api_name,
3250: p_pkg_name => g_pkg_name) THEN
3251:
3252: RAISE FND_API.G_Exc_Unexpected_Error;
3253:
3254: END IF;
3255: --debug messages
3256: l_debug_level := csi_t_gen_utility_pvt.g_debug_level;
3301: x_txn_party_detail_tbl => l_pty_dtl_tbl,
3302: p_get_pty_accts_flag => p_copy_pty_accts_flag,
3303: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
3304: ---05/20 Kishor DONT copy the relations , so dont get it.
3305: p_get_ii_rltns_flag => fnd_api.g_false ,
3306: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
3307: p_get_org_assgns_flag => p_copy_org_assgn_flag,
3308: x_txn_org_assgn_tbl => l_org_assgn_tbl,
3309: p_get_ext_attrib_vals_flag => p_copy_ext_attribs_flag,
3307: p_get_org_assgns_flag => p_copy_org_assgn_flag,
3308: x_txn_org_assgn_tbl => l_org_assgn_tbl,
3309: p_get_ext_attrib_vals_flag => p_copy_ext_attribs_flag,
3310: x_txn_ext_attrib_vals_tbl => l_ext_attrib_tbl,
3311: p_get_csi_attribs_flag => fnd_api.g_false,
3312: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
3313: p_get_csi_iea_values_flag => fnd_api.g_false,
3314: x_csi_iea_values_tbl => l_csi_eav_tbl,
3315: p_get_txn_systems_flag => p_copy_txn_systems_flag,
3309: p_get_ext_attrib_vals_flag => p_copy_ext_attribs_flag,
3310: x_txn_ext_attrib_vals_tbl => l_ext_attrib_tbl,
3311: p_get_csi_attribs_flag => fnd_api.g_false,
3312: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
3313: p_get_csi_iea_values_flag => fnd_api.g_false,
3314: x_csi_iea_values_tbl => l_csi_eav_tbl,
3315: p_get_txn_systems_flag => p_copy_txn_systems_flag,
3316: x_txn_systems_tbl => l_txn_systems_tbl,
3317: x_return_status => l_return_status,
3317: x_return_status => l_return_status,
3318: x_msg_count => l_msg_count,
3319: x_msg_data => l_msg_data);
3320:
3321: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3322: csi_t_gen_utility_pvt.add('Getting the source transaction details for copy failed.');
3323: raise fnd_api.g_exc_error;
3324: END IF;
3325: csi_t_gen_utility_pvt.add('II rltns count before copying : '||l_ii_rltns_tbl.count);
3319: x_msg_data => l_msg_data);
3320:
3321: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3322: csi_t_gen_utility_pvt.add('Getting the source transaction details for copy failed.');
3323: raise fnd_api.g_exc_error;
3324: END IF;
3325: csi_t_gen_utility_pvt.add('II rltns count before copying : '||l_ii_rltns_tbl.count);
3326:
3327: csi_t_gen_utility_pvt.add(l_txn_systems_tbl.count);
3373: x_return_status => l_return_status,
3374: x_msg_count => l_msg_count,
3375: x_msg_data => l_msg_data);
3376:
3377: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3378: csi_t_gen_utility_pvt.add('Creating the transaction details for copy failed.');
3379: raise fnd_api.g_exc_error;
3380: END IF;
3381:
3375: x_msg_data => l_msg_data);
3376:
3377: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3378: csi_t_gen_utility_pvt.add('Creating the transaction details for copy failed.');
3379: raise fnd_api.g_exc_error;
3380: END IF;
3381:
3382: csi_t_gen_utility_pvt.add('Transaction details copied successfully.');
3383: csi_t_gen_utility_pvt.add('II rltns count after copying : '||l_ii_rltns_tbl.count);
3382: csi_t_gen_utility_pvt.add('Transaction details copied successfully.');
3383: csi_t_gen_utility_pvt.add('II rltns count after copying : '||l_ii_rltns_tbl.count);
3384:
3385: -- Standard check of p_commit.
3386: IF FND_API.To_Boolean( p_commit ) THEN
3387: COMMIT WORK;
3388: END IF;
3389:
3390: -- Standard call to get message count and if count is get message info.
3392: p_count => x_msg_count,
3393: p_data => x_msg_data);
3394:
3395: EXCEPTION
3396: WHEN FND_API.G_EXC_ERROR THEN
3397:
3398: ROLLBACK TO copy_transaction_dtls;
3399: x_return_status := FND_API.G_RET_STS_ERROR ;
3400: FND_MSG_PUB.Count_And_Get (
3395: EXCEPTION
3396: WHEN FND_API.G_EXC_ERROR THEN
3397:
3398: ROLLBACK TO copy_transaction_dtls;
3399: x_return_status := FND_API.G_RET_STS_ERROR ;
3400: FND_MSG_PUB.Count_And_Get (
3401: p_count => x_msg_count,
3402: p_data => x_msg_data);
3403:
3400: FND_MSG_PUB.Count_And_Get (
3401: p_count => x_msg_count,
3402: p_data => x_msg_data);
3403:
3404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3405:
3406: ROLLBACK TO copy_transaction_dtls;
3407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3408:
3403:
3404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3405:
3406: ROLLBACK TO copy_transaction_dtls;
3407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3408:
3409: FND_MSG_PUB.Count_And_Get(
3410: p_count => x_msg_count,
3411: p_data => x_msg_data);
3412:
3413: WHEN OTHERS THEN
3414:
3415: ROLLBACK TO copy_transaction_dtls;
3416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3417:
3418: IF FND_MSG_PUB.Check_Msg_Level(
3419: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3420:
3431: END copy_transaction_dtls;
3432:
3433: PROCEDURE split_transaction_details(
3434: p_api_version IN NUMBER,
3435: p_commit IN VARCHAR2 := fnd_api.g_false,
3436: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3437: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3438: p_src_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
3439: px_split_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3432:
3433: PROCEDURE split_transaction_details(
3434: p_api_version IN NUMBER,
3435: p_commit IN VARCHAR2 := fnd_api.g_false,
3436: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3437: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3438: p_src_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
3439: px_split_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3440: px_line_dtl_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
3433: PROCEDURE split_transaction_details(
3434: p_api_version IN NUMBER,
3435: p_commit IN VARCHAR2 := fnd_api.g_false,
3436: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3437: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3438: p_src_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
3439: px_split_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
3440: px_line_dtl_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
3441: x_pty_dtl_tbl OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
3461: l_csi_eav_tbl csi_t_datastructures_grp.csi_ext_attrib_vals_tbl;
3462: l_txn_line_id csi_t_transaction_lines.transaction_line_id%type;
3463: l_txn_line_detail_query_rec csi_t_datastructures_grp.txn_line_detail_query_rec;
3464:
3465: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3466: l_msg_count number;
3467: l_msg_data varchar2(2000);
3468: l_api_name CONSTANT varchar2(30) := 'split_transaction_details';
3469: l_api_version CONSTANT number := 1.0;
3476: -- Standard Start of API savepoint
3477: SAVEPOINT split_transaction_details;
3478:
3479: -- Initialize message list if p_init_msg_list is set to TRUE.
3480: IF FND_API.To_Boolean( p_init_msg_list ) THEN
3481: FND_MSG_PUB.Initialize;
3482: END IF;
3483:
3484: -- Initialize API return status to success
3481: FND_MSG_PUB.Initialize;
3482: END IF;
3483:
3484: -- Initialize API return status to success
3485: x_return_status := FND_API.G_RET_STS_SUCCESS;
3486:
3487: -- Standard call to check for call compatibility.
3488: IF NOT
3489:
3486:
3487: -- Standard call to check for call compatibility.
3488: IF NOT
3489:
3490: FND_API.Compatible_API_Call (
3491: p_current_version_number => l_api_version,
3492: p_caller_version_number => p_api_version,
3493: p_api_name => l_api_name,
3494: p_pkg_name => g_pkg_name) THEN
3492: p_caller_version_number => p_api_version,
3493: p_api_name => l_api_name,
3494: p_pkg_name => g_pkg_name) THEN
3495:
3496: RAISE FND_API.G_Exc_Unexpected_Error;
3497:
3498: END IF;
3499:
3500: --debug messages
3506:
3507: csi_t_gen_utility_pvt.add(
3508: p_api_version||'-'||p_commit||'-'||p_validation_level||'-'||p_init_msg_list);
3509:
3510: IF nvl(px_split_txn_line_rec.source_transaction_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3511: nvl(px_split_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3512: nvl(p_src_txn_line_rec.source_transaction_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3513: nvl(p_src_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3514:
3507: csi_t_gen_utility_pvt.add(
3508: p_api_version||'-'||p_commit||'-'||p_validation_level||'-'||p_init_msg_list);
3509:
3510: IF nvl(px_split_txn_line_rec.source_transaction_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3511: nvl(px_split_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3512: nvl(p_src_txn_line_rec.source_transaction_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3513: nvl(p_src_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3514:
3515: x_msg_data := 'Invalid parameters passed';
3508: p_api_version||'-'||p_commit||'-'||p_validation_level||'-'||p_init_msg_list);
3509:
3510: IF nvl(px_split_txn_line_rec.source_transaction_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3511: nvl(px_split_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3512: nvl(p_src_txn_line_rec.source_transaction_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3513: nvl(p_src_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3514:
3515: x_msg_data := 'Invalid parameters passed';
3516: x_return_status := fnd_api.g_ret_sts_error;
3509:
3510: IF nvl(px_split_txn_line_rec.source_transaction_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3511: nvl(px_split_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3512: nvl(p_src_txn_line_rec.source_transaction_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3513: nvl(p_src_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3514:
3515: x_msg_data := 'Invalid parameters passed';
3516: x_return_status := fnd_api.g_ret_sts_error;
3517: RAISE FND_API.G_EXC_ERROR;
3512: nvl(p_src_txn_line_rec.source_transaction_id,fnd_api.g_miss_num) = fnd_api.g_miss_num OR
3513: nvl(p_src_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3514:
3515: x_msg_data := 'Invalid parameters passed';
3516: x_return_status := fnd_api.g_ret_sts_error;
3517: RAISE FND_API.G_EXC_ERROR;
3518: END IF;
3519:
3520: IF l_debug_level > 1 THEN
3513: nvl(p_src_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3514:
3515: x_msg_data := 'Invalid parameters passed';
3516: x_return_status := fnd_api.g_ret_sts_error;
3517: RAISE FND_API.G_EXC_ERROR;
3518: END IF;
3519:
3520: IF l_debug_level > 1 THEN
3521:
3543:
3544:
3545: csi_t_txn_details_grp.get_transaction_details(
3546: p_api_version => l_api_version,
3547: p_commit => fnd_api.g_false,
3548: p_init_msg_list => fnd_api.g_false,
3549: p_validation_level => fnd_api.g_valid_level_full,
3550: p_txn_line_query_rec => l_txn_line_query_rec,
3551: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
3544:
3545: csi_t_txn_details_grp.get_transaction_details(
3546: p_api_version => l_api_version,
3547: p_commit => fnd_api.g_false,
3548: p_init_msg_list => fnd_api.g_false,
3549: p_validation_level => fnd_api.g_valid_level_full,
3550: p_txn_line_query_rec => l_txn_line_query_rec,
3551: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
3552: x_txn_line_detail_tbl => l_line_dtl_tbl,
3545: csi_t_txn_details_grp.get_transaction_details(
3546: p_api_version => l_api_version,
3547: p_commit => fnd_api.g_false,
3548: p_init_msg_list => fnd_api.g_false,
3549: p_validation_level => fnd_api.g_valid_level_full,
3550: p_txn_line_query_rec => l_txn_line_query_rec,
3551: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
3552: x_txn_line_detail_tbl => l_line_dtl_tbl,
3553: p_get_parties_flag => fnd_api.g_true,
3549: p_validation_level => fnd_api.g_valid_level_full,
3550: p_txn_line_query_rec => l_txn_line_query_rec,
3551: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
3552: x_txn_line_detail_tbl => l_line_dtl_tbl,
3553: p_get_parties_flag => fnd_api.g_true,
3554: x_txn_party_detail_tbl => l_pty_dtl_tbl,
3555: p_get_pty_accts_flag => fnd_api.g_true,
3556: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
3557: p_get_ii_rltns_flag => fnd_api.g_false ,
3551: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
3552: x_txn_line_detail_tbl => l_line_dtl_tbl,
3553: p_get_parties_flag => fnd_api.g_true,
3554: x_txn_party_detail_tbl => l_pty_dtl_tbl,
3555: p_get_pty_accts_flag => fnd_api.g_true,
3556: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
3557: p_get_ii_rltns_flag => fnd_api.g_false ,
3558: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
3559: p_get_org_assgns_flag => fnd_api.g_true,
3553: p_get_parties_flag => fnd_api.g_true,
3554: x_txn_party_detail_tbl => l_pty_dtl_tbl,
3555: p_get_pty_accts_flag => fnd_api.g_true,
3556: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
3557: p_get_ii_rltns_flag => fnd_api.g_false ,
3558: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
3559: p_get_org_assgns_flag => fnd_api.g_true,
3560: x_txn_org_assgn_tbl => l_org_assgn_tbl,
3561: p_get_ext_attrib_vals_flag => fnd_api.g_true,
3555: p_get_pty_accts_flag => fnd_api.g_true,
3556: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
3557: p_get_ii_rltns_flag => fnd_api.g_false ,
3558: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
3559: p_get_org_assgns_flag => fnd_api.g_true,
3560: x_txn_org_assgn_tbl => l_org_assgn_tbl,
3561: p_get_ext_attrib_vals_flag => fnd_api.g_true,
3562: x_txn_ext_attrib_vals_tbl => l_ext_attrib_tbl,
3563: p_get_csi_attribs_flag => fnd_api.g_false,
3557: p_get_ii_rltns_flag => fnd_api.g_false ,
3558: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
3559: p_get_org_assgns_flag => fnd_api.g_true,
3560: x_txn_org_assgn_tbl => l_org_assgn_tbl,
3561: p_get_ext_attrib_vals_flag => fnd_api.g_true,
3562: x_txn_ext_attrib_vals_tbl => l_ext_attrib_tbl,
3563: p_get_csi_attribs_flag => fnd_api.g_false,
3564: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
3565: p_get_csi_iea_values_flag => fnd_api.g_false,
3559: p_get_org_assgns_flag => fnd_api.g_true,
3560: x_txn_org_assgn_tbl => l_org_assgn_tbl,
3561: p_get_ext_attrib_vals_flag => fnd_api.g_true,
3562: x_txn_ext_attrib_vals_tbl => l_ext_attrib_tbl,
3563: p_get_csi_attribs_flag => fnd_api.g_false,
3564: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
3565: p_get_csi_iea_values_flag => fnd_api.g_false,
3566: x_csi_iea_values_tbl => l_csi_eav_tbl,
3567: p_get_txn_systems_flag => fnd_api.g_true,
3561: p_get_ext_attrib_vals_flag => fnd_api.g_true,
3562: x_txn_ext_attrib_vals_tbl => l_ext_attrib_tbl,
3563: p_get_csi_attribs_flag => fnd_api.g_false,
3564: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
3565: p_get_csi_iea_values_flag => fnd_api.g_false,
3566: x_csi_iea_values_tbl => l_csi_eav_tbl,
3567: p_get_txn_systems_flag => fnd_api.g_true,
3568: x_txn_systems_tbl => l_txn_systems_tbl,
3569: x_return_status => l_return_status,
3563: p_get_csi_attribs_flag => fnd_api.g_false,
3564: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
3565: p_get_csi_iea_values_flag => fnd_api.g_false,
3566: x_csi_iea_values_tbl => l_csi_eav_tbl,
3567: p_get_txn_systems_flag => fnd_api.g_true,
3568: x_txn_systems_tbl => l_txn_systems_tbl,
3569: x_return_status => l_return_status,
3570: x_msg_count => l_msg_count,
3571: x_msg_data => l_msg_data);
3569: x_return_status => l_return_status,
3570: x_msg_count => l_msg_count,
3571: x_msg_data => l_msg_data);
3572:
3573: IF l_debug_level > 1 AND l_return_status <> fnd_api.g_ret_sts_success THEN
3574: debug('Getting the source transaction details for copy failed.');
3575: raise fnd_api.g_exc_error;
3576: END IF;
3577:
3571: x_msg_data => l_msg_data);
3572:
3573: IF l_debug_level > 1 AND l_return_status <> fnd_api.g_ret_sts_success THEN
3574: debug('Getting the source transaction details for copy failed.');
3575: raise fnd_api.g_exc_error;
3576: END IF;
3577:
3578: BEGIN
3579: SELECT ordered_quantity
3585: IF l_debug_level > 1 THEN
3586: debug(' Split RMA line Quantity :'|| l_split_line_qty);
3587: END IF;
3588:
3589: IF nvl(l_split_line_qty,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3590: x_msg_data := 'Invalid OM Line quantity '||px_split_txn_line_rec.source_transaction_id;
3591: x_return_status := fnd_api.g_ret_sts_error;
3592: raise FND_API.G_EXC_ERROR;
3593: END IF;
3587: END IF;
3588:
3589: IF nvl(l_split_line_qty,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3590: x_msg_data := 'Invalid OM Line quantity '||px_split_txn_line_rec.source_transaction_id;
3591: x_return_status := fnd_api.g_ret_sts_error;
3592: raise FND_API.G_EXC_ERROR;
3593: END IF;
3594: EXCEPTION
3595: WHEN OTHERS THEN
3588:
3589: IF nvl(l_split_line_qty,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3590: x_msg_data := 'Invalid OM Line quantity '||px_split_txn_line_rec.source_transaction_id;
3591: x_return_status := fnd_api.g_ret_sts_error;
3592: raise FND_API.G_EXC_ERROR;
3593: END IF;
3594: EXCEPTION
3595: WHEN OTHERS THEN
3596: x_msg_data := 'Invalid OM Line id '||px_split_txn_line_rec.source_transaction_id;
3593: END IF;
3594: EXCEPTION
3595: WHEN OTHERS THEN
3596: x_msg_data := 'Invalid OM Line id '||px_split_txn_line_rec.source_transaction_id;
3597: x_return_status := fnd_api.g_ret_sts_error;
3598: raise FND_API.G_EXC_ERROR;
3599: END;
3600: csi_utl_pkg.get_item_control_rec(
3601: p_mtl_txn_id => px_line_dtl_tbl(1).inv_mtl_transaction_id,
3594: EXCEPTION
3595: WHEN OTHERS THEN
3596: x_msg_data := 'Invalid OM Line id '||px_split_txn_line_rec.source_transaction_id;
3597: x_return_status := fnd_api.g_ret_sts_error;
3598: raise FND_API.G_EXC_ERROR;
3599: END;
3600: csi_utl_pkg.get_item_control_rec(
3601: p_mtl_txn_id => px_line_dtl_tbl(1).inv_mtl_transaction_id,
3602: x_item_control_rec => l_item_control_rec,
3604:
3605: px_line_dtl_tbl.delete; -- Role of input table is complete
3606:
3607: IF l_line_dtl_tbl.count = 1 AND
3608: nvl(l_line_dtl_tbl(1).serial_number,fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
3609: px_line_dtl_tbl := l_line_dtl_tbl;
3610: px_line_dtl_tbl(1).processing_status := 'SUBMIT';
3611:
3612: IF p_src_txn_line_rec.source_transaction_type_id = 53 THEN
3742: ,x_return_status => x_return_status
3743: ,x_msg_count => x_msg_count
3744: ,x_msg_data => x_msg_data
3745: );
3746: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3747: debug('Creating the transaction details for copy failed.');
3748: raise fnd_api.g_exc_error;
3749: END IF;
3750:
3744: ,x_msg_data => x_msg_data
3745: );
3746: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3747: debug('Creating the transaction details for copy failed.');
3748: raise fnd_api.g_exc_error;
3749: END IF;
3750:
3751: END IF;
3752:
3750:
3751: END IF;
3752:
3753: -- Standard check of p_commit.
3754: IF FND_API.To_Boolean( p_commit ) THEN
3755: COMMIT WORK;
3756: END IF;
3757:
3758: -- Standard call to get message count and if count is get message info.
3760: p_count => x_msg_count,
3761: p_data => x_msg_data);
3762:
3763: EXCEPTION
3764: WHEN FND_API.G_EXC_ERROR THEN
3765:
3766: ROLLBACK TO split_transaction_details;
3767: x_return_status := FND_API.G_RET_STS_ERROR ;
3768: FND_MSG_PUB.Count_And_Get (
3763: EXCEPTION
3764: WHEN FND_API.G_EXC_ERROR THEN
3765:
3766: ROLLBACK TO split_transaction_details;
3767: x_return_status := FND_API.G_RET_STS_ERROR ;
3768: FND_MSG_PUB.Count_And_Get (
3769: p_count => x_msg_count,
3770: p_data => x_msg_data);
3771:
3768: FND_MSG_PUB.Count_And_Get (
3769: p_count => x_msg_count,
3770: p_data => x_msg_data);
3771:
3772: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3773:
3774: ROLLBACK TO split_transaction_details;
3775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3776:
3771:
3772: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3773:
3774: ROLLBACK TO split_transaction_details;
3775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3776:
3777: FND_MSG_PUB.Count_And_Get(
3778: p_count => x_msg_count,
3779: p_data => x_msg_data);
3780:
3781: WHEN OTHERS THEN
3782:
3783: ROLLBACK TO split_transaction_details;
3784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3785:
3786: IF FND_MSG_PUB.Check_Msg_Level(
3787: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3788: