25:
26: l_retcode VARCHAR2(100);
27: l_source_system_id EGO_IMPORT_BATCHES_B.source_system_id%TYPE;
28: l_import_xref_only EGO_IMPORT_OPTION_SETS.import_xref_only%TYPE;
29: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level; --Bug: 4667452
30: l_request_id NUMBER;
31: l_pro_flag_3 NUMBER;
32: l_enabled_for_data_pool VARCHAR2(1);
33: l_item_interface_rec EGO_IMPORT_USER_HOOKS.ITEM_INTERFACE_REC;
51: END;
52:
53: IF l_source_system_id <> EGO_IMPORT_PVT.get_pdh_source_system_id AND l_import_xref_only = 'Y' THEN
54: IF l_inv_debug_level IN(101, 102) THEN
55: INVPUTLI.info('Calling EGO_IMPORT_PVT.Process_SSXref_Intf_Rows');
56: END IF;
57: EGO_IMPORT_PVT.Process_SSXref_Intf_Rows(
58: ERRBUF => ERRBUF
59: ,RETCODE => l_retcode
59: ,RETCODE => l_retcode
60: ,p_data_set_id => p_xset_id);
61:
62: IF l_inv_debug_level IN(101, 102) THEN
63: INVPUTLI.info('Returned EGO_IMPORT_PVT.Process_SSXref_Intf_Rows '||l_retcode);
64: INVPUTLI.info(ERRBUF);
65: END IF;
66: -- Bug: 5565750
67: IF ( p_commit_flag = 1 AND NVL(l_retcode, 0) IN (0, 1) ) THEN
60: ,p_data_set_id => p_xset_id);
61:
62: IF l_inv_debug_level IN(101, 102) THEN
63: INVPUTLI.info('Returned EGO_IMPORT_PVT.Process_SSXref_Intf_Rows '||l_retcode);
64: INVPUTLI.info(ERRBUF);
65: END IF;
66: -- Bug: 5565750
67: IF ( p_commit_flag = 1 AND NVL(l_retcode, 0) IN (0, 1) ) THEN
68: IF l_inv_debug_level IN(101, 102) THEN
65: END IF;
66: -- Bug: 5565750
67: IF ( p_commit_flag = 1 AND NVL(l_retcode, 0) IN (0, 1) ) THEN
68: IF l_inv_debug_level IN(101, 102) THEN
69: INVPUTLI.info('EGO_IMPORT_PVT.Process_SSXref_Intf_Rows => COMMITING');
70: INVPUTLI.info(ERRBUF);
71: END IF;
72: COMMIT;
73: END IF;
66: -- Bug: 5565750
67: IF ( p_commit_flag = 1 AND NVL(l_retcode, 0) IN (0, 1) ) THEN
68: IF l_inv_debug_level IN(101, 102) THEN
69: INVPUTLI.info('EGO_IMPORT_PVT.Process_SSXref_Intf_Rows => COMMITING');
70: INVPUTLI.info(ERRBUF);
71: END IF;
72: COMMIT;
73: END IF;
74: RETCODE := l_retcode;
103: -- IF batch is enabled for data pool, then calling IOI in validation mode
104: -- and then calling Validate_Timestamp_In_Batch i.e. phase-2 validation
105: IF l_enabled_for_data_pool = 'Y' AND NVL(p_pro_item_flag, 0) = 1 THEN
106: IF l_inv_debug_level IN(101, 102) THEN
107: INVPUTLI.info('Calling INVPOPIF.inopinp_open_interface_process in validation mode - run mode -> '||p_run_mode);
108: END IF;
109: l_retcode := INVPOPIF.inopinp_open_interface_process(
110: org_id => p_org_id
111: ,all_org => p_all_org
122: ,run_mode => p_run_mode
123: ,err_text => ERRBUF);
124:
125: IF l_inv_debug_level IN(101, 102) THEN
126: INVPUTLI.info(' RETCODE for INVPOPIF.inopinp_open_interface_process in validation mode - run mode -> '||p_run_mode ||':'||l_retcode);
127: INVPUTLI.info(ERRBUF);
128: END IF;
129:
130: IF l_retcode NOT IN (0, 1) THEN
123: ,err_text => ERRBUF);
124:
125: IF l_inv_debug_level IN(101, 102) THEN
126: INVPUTLI.info(' RETCODE for INVPOPIF.inopinp_open_interface_process in validation mode - run mode -> '||p_run_mode ||':'||l_retcode);
127: INVPUTLI.info(ERRBUF);
128: END IF;
129:
130: IF l_retcode NOT IN (0, 1) THEN
131: RETCODE := G_ERROR;
131: RETCODE := G_ERROR;
132: END IF;
133:
134: IF l_inv_debug_level IN(101, 102) THEN
135: INVPUTLI.info('Calling EGO_IMPORT_UTIL_PVT.Validate_Timestamp_In_Batch');
136: END IF;
137:
138: EGO_IMPORT_UTIL_PVT.Validate_Timestamp_In_Batch(
139: RETCODE => l_retcode
140: ,ERRBUF => ERRBUF
141: ,p_batch_id => p_xset_id);
142:
143: IF l_inv_debug_level IN(101, 102) THEN
144: INVPUTLI.info(' RETCODE for EGO_IMPORT_UTIL_PVT.Validate_Timestamp_In_Batch - '||l_retcode);
145: INVPUTLI.info(ERRBUF);
146: END IF;
147:
148: IF l_retcode NOT IN (0, 1) THEN
141: ,p_batch_id => p_xset_id);
142:
143: IF l_inv_debug_level IN(101, 102) THEN
144: INVPUTLI.info(' RETCODE for EGO_IMPORT_UTIL_PVT.Validate_Timestamp_In_Batch - '||l_retcode);
145: INVPUTLI.info(ERRBUF);
146: END IF;
147:
148: IF l_retcode NOT IN (0, 1) THEN
149: RETCODE := G_ERROR;
152:
153: -- Call INV Item open interface.
154: -- Note: Categories prg is called from INV IOI
155: IF l_inv_debug_level IN(101, 102) THEN
156: INVPUTLI.info('Calling INVPOPIF.inopinp_open_interface_process - run mode -> '||p_run_mode);
157: END IF;
158: l_retcode := INVPOPIF.inopinp_open_interface_process(
159: org_id => p_org_id
160: ,all_org => p_all_org
172: ,run_mode => p_run_mode
173: ,err_text => ERRBUF);
174:
175: IF l_inv_debug_level IN(101, 102) THEN
176: INVPUTLI.info(' RETCODE for INVPOPIF.inopinp_open_interface_process - run mode -> '||p_run_mode ||':'||l_retcode);
177: INVPUTLI.info(ERRBUF);
178: END IF;
179:
180: IF l_retcode NOT IN (0, 1) THEN
173: ,err_text => ERRBUF);
174:
175: IF l_inv_debug_level IN(101, 102) THEN
176: INVPUTLI.info(' RETCODE for INVPOPIF.inopinp_open_interface_process - run mode -> '||p_run_mode ||':'||l_retcode);
177: INVPUTLI.info(ERRBUF);
178: END IF;
179:
180: IF l_retcode NOT IN (0, 1) THEN
181: /* Bug 5257590 - Checking for run time exceptions so status can be set to ERROR */
201: END;
202:
203: /* bug 12603272 if no row in mtl_system_items_interface marks as error status, check mtl_item_revisions_interface */
204: IF l_inv_debug_level IN(101, 102) THEN
205: INVPUTLI.info('l_pro_flag_3 from table mtl_system_items_interface ' || l_pro_flag_3 );
206: END IF;
207:
208: if l_pro_flag_3 = 0 then
209: SELECT count(*) INTO l_pro_flag_3
211: WHERE process_flag = 3
212: AND request_id = l_request_id
213: AND rownum = 1;
214: IF l_inv_debug_level IN(101, 102) THEN
215: INVPUTLI.info('l_pro_flag_3 from table mtl_item_revisions_interface ' || l_pro_flag_3 );
216: END IF;
217: end if ;
218:
219: IF l_pro_flag_3 > 0 THEN
217: end if ;
218:
219: IF l_pro_flag_3 > 0 THEN
220: IF l_inv_debug_level IN(101, 102) THEN
221: INVPUTLI.info('Validation errors occured during Import Items from EGO_ITEM_OPEN_INTERFACE_PVT.item_open_interface_process' );
222: END IF;
223: ERRBUF := 'Validation errors occured during Import Item';
224: RETCODE := G_WARNING;
225:
239: EXCEPTION
240: WHEN OTHERS THEN
241: INV_EGO_REVISION_VALIDATE.Set_Process_Control(NULL);
242: IF l_inv_debug_level IN(101, 102) THEN
243: INVPUTLI.info('WHEN-OTHERS-EXCEPTION item_open_interface_process: ' ||SQLCODE);
244: INVPUTLI.info(SQLERRM);
245: END IF;
246: ERRBUF := 'Unexpected error in item_open_interface_process: '||SQLERRM;
247: RETCODE := G_ERROR;
240: WHEN OTHERS THEN
241: INV_EGO_REVISION_VALIDATE.Set_Process_Control(NULL);
242: IF l_inv_debug_level IN(101, 102) THEN
243: INVPUTLI.info('WHEN-OTHERS-EXCEPTION item_open_interface_process: ' ||SQLCODE);
244: INVPUTLI.info(SQLERRM);
245: END IF;
246: ERRBUF := 'Unexpected error in item_open_interface_process: '||SQLERRM;
247: RETCODE := G_ERROR;
248: END item_open_interface_process;
298: l_temp_message VARCHAR2(2000);
299: l_retcode VARCHAR2(100);
300: l_source_system_id EGO_IMPORT_BATCHES_B.source_system_id%TYPE;
301: l_import_xref_only EGO_IMPORT_OPTION_SETS.import_xref_only%TYPE;
302: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level; --Bug: 4667452
303: err_msg VARCHAR2(300); --Bug: 5473796
304: l_batch_id NUMBER := p_xset_id;
305: l_enabled_for_data_pool VARCHAR2(1);
306: BEGIN
320:
321: IF NOT( l_source_system_id <> EGO_IMPORT_PVT.get_pdh_source_system_id AND l_import_xref_only = 'Y' ) THEN
322: --Calling Item Intersections Import
323: IF l_inv_debug_level IN(101, 102) THEN
324: INVPUTLI.info('Calling EGO_ITEM_ASSOCIATIONS_PUB.Import_Item_Associations');
325: END IF;
326:
327: EGO_ITEM_ASSOCIATIONS_PUB.Import_Item_Associations
328: ( p_api_version => 1.0,
331: x_retcode => RETCODE
332: );
333:
334: IF l_inv_debug_level IN(101, 102) THEN
335: INVPUTLI.info('Returned EGO_ITEM_ASSOCIATIONS_PUB.Import_Item_Associations - '||RETCODE);
336: INVPUTLI.info(ERRBUF);
337: END IF;
338:
339: l_retcode := RETCODE;
332: );
333:
334: IF l_inv_debug_level IN(101, 102) THEN
335: INVPUTLI.info('Returned EGO_ITEM_ASSOCIATIONS_PUB.Import_Item_Associations - '||RETCODE);
336: INVPUTLI.info(ERRBUF);
337: END IF;
338:
339: l_retcode := RETCODE;
340:
339: l_retcode := RETCODE;
340:
341: --Calling Item People prg
342: IF l_inv_debug_level IN(101, 102) THEN
343: INVPUTLI.info('Calling EGO_ITEM_PEOPLE_IMPORT_PKG.LOAD_INTERFACE_LINES');
344: END IF;
345:
346: EGO_ITEM_PEOPLE_IMPORT_PKG.LOAD_INTERFACE_LINES(
347: X_ERRBUFF => ERRBUF
349: ,p_data_set_id => p_xset_id
350: ,p_delete_lines => p_del_rec_flag);
351:
352: IF l_inv_debug_level IN(101, 102) THEN
353: INVPUTLI.info('Returned EGO_ITEM_PEOPLE_IMPORT_PKG.LOAD_INTERFACE_LINES '||RETCODE);
354: INVPUTLI.info(ERRBUF);
355: END IF;
356:
357: l_retcode := RETCODE;
350: ,p_delete_lines => p_del_rec_flag);
351:
352: IF l_inv_debug_level IN(101, 102) THEN
353: INVPUTLI.info('Returned EGO_ITEM_PEOPLE_IMPORT_PKG.LOAD_INTERFACE_LINES '||RETCODE);
354: INVPUTLI.info(ERRBUF);
355: END IF;
356:
357: l_retcode := RETCODE;
358:
357: l_retcode := RETCODE;
358:
359: --Calling AML prg
360: IF l_inv_debug_level IN(101, 102) THEN
361: INVPUTLI.info('Calling EGO_ITEM_AML_PVT.LOAD_INTERFACE_LINES');
362: END IF;
363:
364: EGO_ITEM_AML_PVT.LOAD_INTERFACE_LINES(
365: ERRBUF => ERRBUF
369: ,p_mode =>'NORMAL'
370: ,P_perform_security_check => FND_API.G_TRUE);
371:
372: IF l_inv_debug_level IN(101, 102) THEN
373: INVPUTLI.info('Returned EGO_ITEM_AML_PVT.LOAD_INTERFACE_LINES '||RETCODE);
374: INVPUTLI.info(ERRBUF);
375: END IF;
376: IF RETCODE > l_retcode THEN
377: l_retcode := RETCODE;
370: ,P_perform_security_check => FND_API.G_TRUE);
371:
372: IF l_inv_debug_level IN(101, 102) THEN
373: INVPUTLI.info('Returned EGO_ITEM_AML_PVT.LOAD_INTERFACE_LINES '||RETCODE);
374: INVPUTLI.info(ERRBUF);
375: END IF;
376: IF RETCODE > l_retcode THEN
377: l_retcode := RETCODE;
378: END IF;
383: --Calling user attr+gtin prg
384: -- Bug 12635842 : In case of SKU creation from API we do not want to process the UDAs as UDA processing will be done as a separate call.
385: IF(p_call_uda_process) THEN -- Bug 12635842 : Call UDA code if the p_call_uda_process is TRUE
386: IF l_inv_debug_level IN(101, 102) THEN
387: INVPUTLI.info('Calling EGO_ITEM_USER_ATTRS_CP_PUB.PROCESS_ITEM_USER_ATTRS_DATA');
388: EGO_ITEM_USER_ATTRS_CP_PUB.PROCESS_ITEM_USER_ATTRS_DATA(
389: ERRBUF => ERRBUF
390: ,RETCODE => RETCODE
391: ,p_data_set_id => p_xset_id
402:
403: END IF;
404:
405: IF l_inv_debug_level IN(101, 102) THEN
406: INVPUTLI.info('Returned EGO_ITEM_USER_ATTRS_CP_PUB.PROCESS_ITEM_USER_ATTRS_DATA '||RETCODE);
407: INVPUTLI.info(ERRBUF);
408: END IF;
409: IF RETCODE > l_retcode THEN
410: l_retcode := RETCODE;
403: END IF;
404:
405: IF l_inv_debug_level IN(101, 102) THEN
406: INVPUTLI.info('Returned EGO_ITEM_USER_ATTRS_CP_PUB.PROCESS_ITEM_USER_ATTRS_DATA '||RETCODE);
407: INVPUTLI.info(ERRBUF);
408: END IF;
409: IF RETCODE > l_retcode THEN
410: l_retcode := RETCODE;
411: END IF;
416: RETCODE := l_retcode;
417: EXCEPTION
418: WHEN OTHERS THEN
419: IF l_inv_debug_level IN(101, 102) THEN
420: INVPUTLI.info('WHEN-OTHERS-EXCEPTION process_item_entities: ' ||SQLCODE);
421: INVPUTLI.info(SQLERRM);
422: END IF;
423: RETCODE := G_ERROR;
424: ERRBUF := 'Unexpected error in process_item_entities: '||SQLERRM;
417: EXCEPTION
418: WHEN OTHERS THEN
419: IF l_inv_debug_level IN(101, 102) THEN
420: INVPUTLI.info('WHEN-OTHERS-EXCEPTION process_item_entities: ' ||SQLCODE);
421: INVPUTLI.info(SQLERRM);
422: END IF;
423: RETCODE := G_ERROR;
424: ERRBUF := 'Unexpected error in process_item_entities: '||SQLERRM;
425: END process_item_entities;
607: p_batch_id IN NUMBER,
608: p_del_rec_flag IN NUMBER := 1)
609: IS
610: l_retcode VARCHAR2(100);
611: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level;
612: l_source_system_id EGO_IMPORT_BATCHES_B.source_system_id%TYPE;
613: l_import_xref_only EGO_IMPORT_OPTION_SETS.import_xref_only%TYPE;
614: l_enabled_for_data_pool VARCHAR2(1);
615: l_request_id NUMBER := FND_GLOBAL.CONC_REQUEST_ID;
633:
634: IF NOT( l_source_system_id <> EGO_IMPORT_PVT.get_pdh_source_system_id AND l_import_xref_only = 'Y' ) THEN
635: --Calling GTIN bulkloader
636: IF l_inv_debug_level IN(101, 102) THEN
637: INVPUTLI.info('Calling EGO_IMPORT_PVT.Process_Gtin_Intf_Rows');
638: END IF;
639:
640: EGO_IMPORT_PVT.Process_Gtin_Intf_Rows(
641: ERRBUF => ERRBUF
642: ,RETCODE => RETCODE
643: ,p_data_set_id => p_batch_id);
644:
645: IF l_inv_debug_level IN(101, 102) THEN
646: INVPUTLI.info('Returned EGO_IMPORT_PVT.Process_Gtin_Intf_Rows '||RETCODE);
647: INVPUTLI.info(ERRBUF);
648: END IF;
649:
650: IF RETCODE > l_retcode THEN
643: ,p_data_set_id => p_batch_id);
644:
645: IF l_inv_debug_level IN(101, 102) THEN
646: INVPUTLI.info('Returned EGO_IMPORT_PVT.Process_Gtin_Intf_Rows '||RETCODE);
647: INVPUTLI.info(ERRBUF);
648: END IF;
649:
650: IF RETCODE > l_retcode THEN
651: l_retcode := RETCODE;
653:
654: --Calling updation of inbound message timestamp
655: IF l_enabled_for_data_pool = 'Y' THEN
656: IF l_inv_debug_level IN(101, 102) THEN
657: INVPUTLI.info('Calling EGO_IMPORT_UTIL_PVT.Update_Timestamp_In_Prod');
658: END IF;
659:
660: EGO_IMPORT_UTIL_PVT.Update_Timestamp_In_Prod(
661: ERRBUF => ERRBUF
662: ,RETCODE => RETCODE
663: ,p_batch_id => p_batch_id);
664:
665: IF l_inv_debug_level IN(101, 102) THEN
666: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Update_Timestamp_In_Prod '||RETCODE);
667: INVPUTLI.info(ERRBUF);
668: END IF;
669:
670: IF RETCODE > l_retcode THEN
663: ,p_batch_id => p_batch_id);
664:
665: IF l_inv_debug_level IN(101, 102) THEN
666: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Update_Timestamp_In_Prod '||RETCODE);
667: INVPUTLI.info(ERRBUF);
668: END IF;
669:
670: IF RETCODE > l_retcode THEN
671: l_retcode := RETCODE;
673: END IF; -- IF l_enabled_for_data_pool = 'Y' THEN
674:
675: --Calling Item People Defaulting
676: IF l_inv_debug_level IN(101, 102) THEN
677: INVPUTLI.info('Calling EGO_IMPORT_UTIL_PVT.Default_Item_People');
678: END IF;
679:
680: EGO_IMPORT_UTIL_PVT.Default_Item_People(
681: RETCODE => RETCODE
682: ,ERRBUF => ERRBUF
683: ,p_batch_id => p_batch_id);
684:
685: IF l_inv_debug_level IN(101, 102) THEN
686: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Default_Item_People '||RETCODE);
687: INVPUTLI.info(ERRBUF);
688: END IF;
689: IF RETCODE > l_retcode THEN
690: l_retcode := RETCODE;
683: ,p_batch_id => p_batch_id);
684:
685: IF l_inv_debug_level IN(101, 102) THEN
686: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Default_Item_People '||RETCODE);
687: INVPUTLI.info(ERRBUF);
688: END IF;
689: IF RETCODE > l_retcode THEN
690: l_retcode := RETCODE;
691: END IF;
691: END IF;
692:
693: --Calling Item LC Project Defaulting
694: IF l_inv_debug_level IN(101, 102) THEN
695: INVPUTLI.info('Calling EGO_IMPORT_UTIL_PVT.Copy_LC_Projects');
696: END IF;
697:
698: EGO_IMPORT_UTIL_PVT.Copy_LC_Projects(
699: RETCODE => RETCODE
700: ,ERRBUF => ERRBUF
701: ,p_batch_id => p_batch_id);
702:
703: IF l_inv_debug_level IN(101, 102) THEN
704: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Copy_LC_Projects '||RETCODE);
705: INVPUTLI.info(ERRBUF);
706: END IF;
707: IF RETCODE > l_retcode THEN
708: l_retcode := RETCODE;
701: ,p_batch_id => p_batch_id);
702:
703: IF l_inv_debug_level IN(101, 102) THEN
704: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Copy_LC_Projects '||RETCODE);
705: INVPUTLI.info(ERRBUF);
706: END IF;
707: IF RETCODE > l_retcode THEN
708: l_retcode := RETCODE;
709: END IF;
709: END IF;
710:
711: --Calling Item Attachments Copy
712: IF l_inv_debug_level IN(101, 102) THEN
713: INVPUTLI.info('Calling EGO_IMPORT_UTIL_PVT.Copy_Attachments');
714: END IF;
715:
716: EGO_IMPORT_UTIL_PVT.Copy_Attachments(
717: RETCODE => RETCODE
718: ,ERRBUF => ERRBUF
719: ,p_batch_id => p_batch_id);
720:
721: IF l_inv_debug_level IN(101, 102) THEN
722: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Copy_Attachments '||RETCODE);
723: INVPUTLI.info(ERRBUF);
724: END IF;
725: IF RETCODE > l_retcode THEN
726: l_retcode := RETCODE;
719: ,p_batch_id => p_batch_id);
720:
721: IF l_inv_debug_level IN(101, 102) THEN
722: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Copy_Attachments '||RETCODE);
723: INVPUTLI.info(ERRBUF);
724: END IF;
725: IF RETCODE > l_retcode THEN
726: l_retcode := RETCODE;
727: END IF;
727: END IF;
728:
729: --Cleaning up dirty SKU entries
730: IF l_inv_debug_level IN(101, 102) THEN
731: INVPUTLI.info('Calling EGO_IMPORT_UTIL_PVT.Clean_Dirty_SKUs');
732: END IF;
733:
734: EGO_IMPORT_UTIL_PVT.Clean_Dirty_SKUs(
735: RETCODE => RETCODE
736: ,ERRBUF => ERRBUF
737: ,p_batch_id => p_batch_id);
738:
739: IF l_inv_debug_level IN(101, 102) THEN
740: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Clean_Dirty_SKUs '||RETCODE);
741: INVPUTLI.info(ERRBUF);
742: END IF;
743: IF RETCODE > l_retcode THEN
744: l_retcode := RETCODE;
737: ,p_batch_id => p_batch_id);
738:
739: IF l_inv_debug_level IN(101, 102) THEN
740: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Clean_Dirty_SKUs '||RETCODE);
741: INVPUTLI.info(ERRBUF);
742: END IF;
743: IF RETCODE > l_retcode THEN
744: l_retcode := RETCODE;
745: END IF;
745: END IF;
746:
747: --calling copy people from style to SKU for newly added people
748: IF l_inv_debug_level IN(101, 102) THEN
749: INVPUTLI.info('Calling EGO_IMPORT_UTIL_PVT.Copy_Item_People_From_Style');
750: END IF;
751:
752: EGO_IMPORT_UTIL_PVT.Copy_Item_People_From_Style(
753: RETCODE => RETCODE
754: ,ERRBUF => ERRBUF
755: ,p_batch_id => p_batch_id);
756:
757: IF l_inv_debug_level IN(101, 102) THEN
758: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Copy_Item_People_From_Style '||RETCODE);
759: INVPUTLI.info(ERRBUF);
760: END IF;
761: IF RETCODE > l_retcode THEN
762: l_retcode := RETCODE;
755: ,p_batch_id => p_batch_id);
756:
757: IF l_inv_debug_level IN(101, 102) THEN
758: INVPUTLI.info('Returned EGO_IMPORT_UTIL_PVT.Copy_Item_People_From_Style '||RETCODE);
759: INVPUTLI.info(ERRBUF);
760: END IF;
761: IF RETCODE > l_retcode THEN
762: l_retcode := RETCODE;
763: END IF;
765:
766: --Bug: 5473976 Interface rows will be deleted here not in IOI
767: IF p_del_rec_flag = 1 THEN
768: IF l_inv_debug_level IN(101, 102) THEN
769: INVPUTLI.info('Deleting interface records');
770: END IF;
771: l_retcode := INVPOPIF.indelitm_delete_item_oi (err_text => err_msg,
772: xset_id => p_batch_id);
773:
771: l_retcode := INVPOPIF.indelitm_delete_item_oi (err_text => err_msg,
772: xset_id => p_batch_id);
773:
774: IF l_inv_debug_level IN(101, 102) THEN
775: INVPUTLI.info('Returned INVPOPIF.indelitm_delete_item_oi '||err_msg);
776: END IF;
777: IF RETCODE > l_retcode THEN
778: l_retcode := RETCODE;
779: END IF;
822: END IF;
823: EXCEPTION
824: WHEN OTHERS THEN
825: IF l_inv_debug_level IN(101, 102) THEN
826: INVPUTLI.info('WHEN-OTHERS-EXCEPTION Post_Import_Defaulting: ' ||SQLCODE);
827: INVPUTLI.info(SQLERRM);
828: END IF;
829: RETCODE := G_ERROR;
830: ERRBUF := 'Unexpected error in Post_Import_Defaulting: '||SQLERRM;
823: EXCEPTION
824: WHEN OTHERS THEN
825: IF l_inv_debug_level IN(101, 102) THEN
826: INVPUTLI.info('WHEN-OTHERS-EXCEPTION Post_Import_Defaulting: ' ||SQLCODE);
827: INVPUTLI.info(SQLERRM);
828: END IF;
829: RETCODE := G_ERROR;
830: ERRBUF := 'Unexpected error in Post_Import_Defaulting: '||SQLERRM;
831: END Post_Import_Defaulting;