99:
100: -- NOTE: No need to check for profile now, as Error_Handler checks
101: -- for Error_Handler.Get_Debug = 'Y' before writing to Debug Log.
102: IF l_debug = 'Y' THEN
103: FND_FILE.PUT_LINE( FND_FILE.LOG, '['||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS')||'] '|| p_msg);
104: END IF;
105: END;
106:
107: PROCEDURE open_debug_session IS
136: ,x_return_status => l_log_return_status
137: ,x_error_mesg => l_errbuff
138: );
139:
140: FND_FILE.put_line(FND_FILE.LOG, ' Log file location --> '||l_log_output_dir||'/'||G_ERROR_FILE_NAME ||' created with status '|| l_log_return_status);
141:
142: IF (l_log_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
143: FND_FILE.put_line(FND_FILE.LOG, 'Unable to open error log file. Error => '||l_errbuff);
144: END IF;
139:
140: FND_FILE.put_line(FND_FILE.LOG, ' Log file location --> '||l_log_output_dir||'/'||G_ERROR_FILE_NAME ||' created with status '|| l_log_return_status);
141:
142: IF (l_log_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
143: FND_FILE.put_line(FND_FILE.LOG, 'Unable to open error log file. Error => '||l_errbuff);
144: END IF;
145:
146: END IF;--IF c_get_utl_file_dir%FOUND THEN
147:
735: END IF;
736: G_CONCREQ_VALID_FLAG := TRUE;
737:
738: IF (G_CONCREQ_VALID_FLAG ) THEN
739: FND_FILE.put_line(FND_FILE.LOG, ' ******** New Log ******** ');
740: END IF;
741:
742: -- the values are chosen from the FND_GLOBALS
743: G_USER_ID := FND_GLOBAL.user_id ;
766: /* Return if no rows to process
767: * Should we be updating the requestIds?? Test
768: */
769: if (NOT Interface_Rows_Exist(p_resultfmt_usage_id)) then
770: FND_FILE.PUT_LINE( FND_FILE.LOG,'No Rows to Process for Data Separation' );
771: return;
772: end if;
773:
774: -- Getting the Intf_column names from the ego_results_fmt_usages for the attributes
773:
774: -- Getting the Intf_column names from the ego_results_fmt_usages for the attributes
775: -- of OrgCode and CompSeqId. Previously we hard-coding them
776: IF l_debug = 'Y' THEN
777: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE before :--->' || G_INTF_ORG_CODE);
778: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID before :--->' || G_INTF_COMP_SEQ_ID);
779: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE before :--->' || G_INTF_ASSEMBLY_TYPE);
780: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION before :--->' || G_INTF_PARENT_REVISION);
781: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION before :--->' || G_INTF_REVISION);
774: -- Getting the Intf_column names from the ego_results_fmt_usages for the attributes
775: -- of OrgCode and CompSeqId. Previously we hard-coding them
776: IF l_debug = 'Y' THEN
777: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE before :--->' || G_INTF_ORG_CODE);
778: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID before :--->' || G_INTF_COMP_SEQ_ID);
779: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE before :--->' || G_INTF_ASSEMBLY_TYPE);
780: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION before :--->' || G_INTF_PARENT_REVISION);
781: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION before :--->' || G_INTF_REVISION);
782: END IF;
775: -- of OrgCode and CompSeqId. Previously we hard-coding them
776: IF l_debug = 'Y' THEN
777: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE before :--->' || G_INTF_ORG_CODE);
778: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID before :--->' || G_INTF_COMP_SEQ_ID);
779: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE before :--->' || G_INTF_ASSEMBLY_TYPE);
780: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION before :--->' || G_INTF_PARENT_REVISION);
781: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION before :--->' || G_INTF_REVISION);
782: END IF;
783:
776: IF l_debug = 'Y' THEN
777: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE before :--->' || G_INTF_ORG_CODE);
778: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID before :--->' || G_INTF_COMP_SEQ_ID);
779: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE before :--->' || G_INTF_ASSEMBLY_TYPE);
780: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION before :--->' || G_INTF_PARENT_REVISION);
781: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION before :--->' || G_INTF_REVISION);
782: END IF;
783:
784: Select INTF_COLUMN_NAME into G_INTF_ORG_CODE FROM Ego_Results_Fmt_Usages erf
777: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE before :--->' || G_INTF_ORG_CODE);
778: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID before :--->' || G_INTF_COMP_SEQ_ID);
779: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE before :--->' || G_INTF_ASSEMBLY_TYPE);
780: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION before :--->' || G_INTF_PARENT_REVISION);
781: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION before :--->' || G_INTF_REVISION);
782: END IF;
783:
784: Select INTF_COLUMN_NAME into G_INTF_ORG_CODE FROM Ego_Results_Fmt_Usages erf
785: WHERE Resultfmt_Usage_Id = p_Resultfmt_Usage_Id AND ATTRIBUTE_CODE = 'ORGANIZATION_CODE';
816: G_INTF_REVISION := 'NULL';
817: END;
818:
819: IF l_debug = 'Y' THEN
820: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE after :--->' || G_INTF_ORG_CODE);
821: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID after :--->' || G_INTF_COMP_SEQ_ID);
822: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE after :--->' || G_INTF_ASSEMBLY_TYPE);
823: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION after :--->' || G_INTF_PARENT_REVISION);
824: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION after :--->' || G_INTF_REVISION);
817: END;
818:
819: IF l_debug = 'Y' THEN
820: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE after :--->' || G_INTF_ORG_CODE);
821: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID after :--->' || G_INTF_COMP_SEQ_ID);
822: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE after :--->' || G_INTF_ASSEMBLY_TYPE);
823: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION after :--->' || G_INTF_PARENT_REVISION);
824: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION after :--->' || G_INTF_REVISION);
825: END IF;
818:
819: IF l_debug = 'Y' THEN
820: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE after :--->' || G_INTF_ORG_CODE);
821: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID after :--->' || G_INTF_COMP_SEQ_ID);
822: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE after :--->' || G_INTF_ASSEMBLY_TYPE);
823: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION after :--->' || G_INTF_PARENT_REVISION);
824: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION after :--->' || G_INTF_REVISION);
825: END IF;
826:
819: IF l_debug = 'Y' THEN
820: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE after :--->' || G_INTF_ORG_CODE);
821: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID after :--->' || G_INTF_COMP_SEQ_ID);
822: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE after :--->' || G_INTF_ASSEMBLY_TYPE);
823: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION after :--->' || G_INTF_PARENT_REVISION);
824: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION after :--->' || G_INTF_REVISION);
825: END IF;
826:
827: BEGIN -- In imort formats may not be having the attribute COMPONENT_REFERENCE_DESIGNATOR
820: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ORG_CODE after :--->' || G_INTF_ORG_CODE);
821: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_COMP_SEQ_ID after :--->' || G_INTF_COMP_SEQ_ID);
822: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_ASSEMBLY_TYPE after :--->' || G_INTF_ASSEMBLY_TYPE);
823: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_PARENT_REVISION after :--->' || G_INTF_PARENT_REVISION);
824: FND_FILE.PUT_LINE( FND_FILE.LOG,'G_INTF_REVISION after :--->' || G_INTF_REVISION);
825: END IF;
826:
827: BEGIN -- In imort formats may not be having the attribute COMPONENT_REFERENCE_DESIGNATOR
828: Select INTF_COLUMN_NAME into G_INTF_REF_DESIG FROM Ego_Results_Fmt_Usages erf
839: SET Transaction_Id = MTL_SYSTEM_ITEMS_INTERFACE_S.NEXTVAL
840: WHERE Resultfmt_Usage_Id = p_Resultfmt_Usage_Id AND PROCESS_STATUS = 1 ;
841:
842: IF l_debug = 'Y' THEN
843: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering First Loop ');
844: END IF;
845:
846: --Sreejith
847:
883: i := i+1;
884: END LOOP;
885:
886: IF l_debug = 'Y' THEN
887: FND_FILE.PUT_LINE( FND_FILE.LOG,'Exiting First Loop ');
888: END IF;
889:
890: -- Added by hgelli for supporting import formats
891: -----------------------------------------------------
991: l_dyn_sql := l_dyn_sql || ' AND PROCESS_STATUS = 1 ';
992: Write_Debug(' TIMEZONE conversion stuff ' || l_dyn_sql);
993:
994: IF l_debug = 'Y' THEN
995: FND_FILE.PUT_LINE( FND_FILE.LOG,' TIMEZONE conversion stuff ' || l_dyn_sql);
996: END IF;
997:
998: EXECUTE IMMEDIATE l_dyn_sql USING p_Resultfmt_Usage_Id;
999: END IF;
1059:
1060: l_dyn_sql := l_dyn_sql_insert || ' ' || l_dyn_sql_select;
1061:
1062: IF l_debug = 'Y' THEN
1063: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering First SQL 1-->' || l_dyn_sql);
1064: END IF;
1065:
1066: EXECUTE IMMEDIATE l_dyn_sql USING p_batch_id,p_batch_id,p_batch_id,p_resultfmt_usage_id;
1067:
1102: l_dyn_sql_cursor := l_dyn_sql_cursor || ' ORDER BY ' || G_INTF_ASSEMBLY_TYPE || ' ';
1103: END IF;
1104:
1105: IF l_debug = 'Y' THEN
1106: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 2.1-->' || l_dyn_sql_cursor);
1107: END IF;
1108:
1109:
1110: l_cursor_select := Dbms_Sql.Open_Cursor;
1125: Dbms_Sql.Bind_Variable(l_cursor_select,':3', p_batch_id);
1126: Dbms_Sql.Bind_Variable(l_cursor_select,':4', p_resultfmt_usage_id);
1127:
1128: IF l_debug = 'Y' THEN
1129: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 2.2-->' || p_resultfmt_usage_id);
1130: END IF;
1131:
1132: l_cursor_execute := Dbms_Sql.EXECUTE(l_cursor_select);
1133:
1131:
1132: l_cursor_execute := Dbms_Sql.EXECUTE(l_cursor_select);
1133:
1134: IF l_debug = 'Y' THEN
1135: FND_FILE.PUT_LINE( FND_FILE.LOG,'SUCCESS');
1136: END IF;
1137: i := 1;
1138: LOOP
1139: IF (Dbms_Sql.Fetch_Rows(l_cursor_select) > 0) THEN
1364:
1365: l_dyn_sql := l_dyn_sql_insert || ' ' || l_dyn_sql_select;
1366:
1367: IF l_debug = 'Y' THEN
1368: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 2 -->' || l_dyn_sql);
1369: END IF;
1370:
1371:
1372: EXECUTE IMMEDIATE l_dyn_sql USING p_batch_id,p_batch_id,p_resultfmt_usage_id;
1371:
1372: EXECUTE IMMEDIATE l_dyn_sql USING p_batch_id,p_batch_id,p_resultfmt_usage_id;
1373: -- End of Process Components for UPDATE
1374: IF l_debug = 'Y' THEN
1375: FND_FILE.PUT_LINE( FND_FILE.LOG,'Executed Succesfully 2');
1376: END IF;
1377:
1378: IF l_debug = 'Y' THEN
1379: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 3-->' || l_dyn_sql);
1375: FND_FILE.PUT_LINE( FND_FILE.LOG,'Executed Succesfully 2');
1376: END IF;
1377:
1378: IF l_debug = 'Y' THEN
1379: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 3-->' || l_dyn_sql);
1380: END IF;
1381:
1382:
1383: Dbms_Sql.Close_Cursor(l_cursor_select);
1440:
1441: l_dyn_sql := l_dyn_sql_insert || ' ' || l_dyn_sql_select;
1442:
1443: IF l_debug = 'Y' THEN
1444: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 4-->' || l_dyn_sql);
1445: END IF;
1446:
1447: EXECUTE IMMEDIATE l_dyn_sql USING p_batch_id,p_batch_id,p_resultfmt_usage_id;
1448: -- End of Process Components for CREATE/ADD
1447: EXECUTE IMMEDIATE l_dyn_sql USING p_batch_id,p_batch_id,p_resultfmt_usage_id;
1448: -- End of Process Components for CREATE/ADD
1449:
1450: IF l_debug = 'Y' THEN
1451: FND_FILE.PUT_LINE( FND_FILE.LOG,'Executed Succesfully 4');
1452: END IF;
1453:
1454: -- Start of process components for Delete
1455: l_dyn_sql_insert := '';
1507:
1508: l_dyn_sql := l_dyn_sql_insert || ' ' || l_dyn_sql_select;
1509:
1510: IF l_debug = 'Y' THEN
1511: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 5-->' || l_dyn_sql);
1512: END IF;
1513:
1514: EXECUTE IMMEDIATE l_dyn_sql USING p_batch_id,p_batch_id,p_resultfmt_usage_id;
1515: -- End of process components for Delete
1514: EXECUTE IMMEDIATE l_dyn_sql USING p_batch_id,p_batch_id,p_resultfmt_usage_id;
1515: -- End of process components for Delete
1516:
1517: IF l_debug = 'Y' THEN
1518: FND_FILE.PUT_LINE( FND_FILE.LOG,'Before UPdate of AssemblyType');
1519: END IF;
1520:
1521: -- Updateing the assembly_type to 2 for BOM_header
1522: UPDATE BOM_BILL_OF_MTLS_INTERFACE SET assembly_type = 2
1523: WHERE assembly_type IS NULL
1524: AND batch_id = p_batch_id;
1525:
1526: IF l_debug = 'Y' THEN
1527: FND_FILE.PUT_LINE( FND_FILE.LOG,'After UPdate of AssemblyType');
1528: END IF;
1529:
1530: /* Commenting the primary creation, as now we can create eng alternates with out primary.
1531: -- iNSERT ROWS FOR PRIMARY ALTERNATE FOR creating primary bom if it doesn't exist
1630: END IF;
1631:
1632:
1633: IF l_debug = 'Y' THEN
1634: FND_FILE.PUT_LINE( FND_FILE.LOG,'item_cole_name--' || l_item_col_name);
1635: FND_FILE.PUT_LINE( FND_FILE.LOG,'Update Sql for ego bulkload for Multi Row-->' || l_upd_sql);
1636: END IF;
1637:
1638: EXECUTE IMMEDIATE l_upd_sql USING p_resultfmt_usage_id;
1631:
1632:
1633: IF l_debug = 'Y' THEN
1634: FND_FILE.PUT_LINE( FND_FILE.LOG,'item_cole_name--' || l_item_col_name);
1635: FND_FILE.PUT_LINE( FND_FILE.LOG,'Update Sql for ego bulkload for Multi Row-->' || l_upd_sql);
1636: END IF;
1637:
1638: EXECUTE IMMEDIATE l_upd_sql USING p_resultfmt_usage_id;
1639:
1785: COMMIT; */
1786: x_retcode := G_STATUS_SUCCESS;
1787:
1788: IF l_debug = 'Y' THEN
1789: FND_FILE.PUT_LINE( FND_FILE.LOG,'Done Processing');
1790: END IF;
1791:
1792: --Error_Handler.Write_Debug('Structure Import : UPDATE : l_err_text = ' || l_err_text);
1793:
1799: ,x_retcode => l_retcode
1800: );
1801: */
1802: IF l_debug = 'Y' THEN
1803: FND_FILE.PUT_LINE( FND_FILE.LOG,'Completed Processing');
1804: END IF;
1805:
1806: --Error_Handler.Write_Debug('Updated the Process Status to Indicate Successful/Unsucessful component/structure Import Completion');
1807:
1810: l_err_text := SQLERRM;
1811: x_errbuff := 'Error : '||TO_CHAR(SQLCODE)||'---'||SQLERRM;
1812: x_retcode := Error_Handler.G_STATUS_ERROR;
1813: IF l_debug = 'Y' THEN
1814: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering Exception Message ' || x_errbuff);
1815: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering Exception Code' || x_retcode);
1816: END IF;
1817: Error_Handler.Close_Debug_Session;
1818:
1811: x_errbuff := 'Error : '||TO_CHAR(SQLCODE)||'---'||SQLERRM;
1812: x_retcode := Error_Handler.G_STATUS_ERROR;
1813: IF l_debug = 'Y' THEN
1814: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering Exception Message ' || x_errbuff);
1815: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering Exception Code' || x_retcode);
1816: END IF;
1817: Error_Handler.Close_Debug_Session;
1818:
1819: END PROCESS_BOM_INTERFACE_LINES;