[Home] [Help]
1: PACKAGE BODY CZ_IMP_SINGLE AS
2: /* $Header: czisngb.pls 120.25 2008/05/05 04:31:29 kksriram ship $ */
3:
4: /*******************************
5: Stuller's changes :
14:
15: G_BOM_APPLICATION_ID CONSTANT NUMBER := 702;
16: G_EGO_APPLICATION_ID CONSTANT NUMBER := 431;
17:
18: G_PKG_NAME CONSTANT VARCHAR2(50) := 'CZ_IMP_SINGLE';
19:
20: DECIMAL_TYPE CONSTANT NUMBER := 2;
21: TEXT_TYPE CONSTANT NUMBER := 4;
22: TL_TEXT_TYPE CONSTANT NUMBER := 8;
838:
839: IF(ComponentItemId.COUNT = 0)THEN
840: IF(startFlag)THEN
841: --'No BOM data to extract. Verify that the bill you want to import exists on the import-enabled server.'
842: x_error:=cz_utils.log_report(CZ_UTILS.GET_TEXT('CZ_IMP_BOM_NO_DATA'),1,'CZ_IMP_SINGLE.EXTR_PS_NODE',11276,inRun_Id);
843: RETURN;
844: ELSE
845: EXIT;
846: END IF;
1467: RAISE;
1468: WHEN OTHERS THEN
1469: IF(c_parent%ISOPEN)THEN CLOSE c_parent; END IF;
1470: d_str:=CZ_UTILS.GET_TEXT('CZ_IMP_OPERATION_FAILED','ERRORTEXT',SQLERRM);
1471: x_error:=cz_utils.log_report(d_str,1,'CZ_IMP_SINGLE.maximum_selected',11276,inRun_Id);
1472: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
1473: END;
1474:
1475: ------------------------------------------------------------------------------
1569: EXCEPTION
1570: WHEN CZ_REFS_DELNODE_EXCP THEN
1571: IF d_str IS NULL THEN d_str := 'NO MESSAGE FOUND'; END IF;
1572: d_str := CZ_UTILS.GET_TEXT('CZ_IMP_CZREFS_DELNODE', 'MSG', d_str);
1573: x_error :=cz_utils.log_report(d_str,1,'CZ_IMP_SINGLE.EXTR_PS_NODE: delete obsolete nodes',11276,inRun_Id);
1574: ROLLBACK;
1575: RAISE;
1576: WHEN CZ_ADMIN.IMP_UNEXP_SQL_ERROR THEN
1577: ROLLBACK;
1579: WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
1580: RAISE;
1581: WHEN OTHERS THEN
1582: d_str:=CZ_UTILS.GET_TEXT('CZ_IMP_OPERATION_FAILED','ERRORTEXT',SQLERRM);
1583: x_error:=cz_utils.log_report(d_str,1,'CZ_IMP_SINGLE.EXTR_PS_NODE: delete obsolete nodes',11276,inRun_Id);
1584: ROLLBACK;
1585: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
1586: END;
1587:
1592: RAISE;
1593: WHEN OTHERS THEN
1594: IF(c_data%ISOPEN)THEN CLOSE c_data; END IF;
1595: d_str:=CZ_UTILS.GET_TEXT('CZ_IMP_OPERATION_FAILED','ERRORTEXT',SQLERRM);
1596: x_error:=cz_utils.log_report(d_str,1,'CZ_IMP_SINGLE.EXTR_PS_NODE',11276,inRun_Id);
1597: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
1598: END;
1599: ------------------------------------------------------------------------------------------
1600: PROCEDURE EXTR_INTL_TEXT(inRun_ID IN PLS_INTEGER,
1793: RAISE;
1794: WHEN OTHERS THEN
1795: IF(c_data%ISOPEN)THEN CLOSE c_data; END IF;
1796: d_str:=CZ_UTILS.GET_TEXT('CZ_IMP_OPERATION_FAILED','ERRORTEXT',SQLERRM);
1797: xERROR:=cz_utils.log_report(d_str,1,'CZ_IMP_SINGLE.EXTR_INTL_TEXT',11276,inRun_Id);
1798: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
1799: END;
1800: ------------------------------------------------------------------------------------------
1801: PROCEDURE EXTR_DEVL_PROJECT(inRun_ID IN PLS_INTEGER,
3075: xERROR:=cz_utils.log_report(d_str,1,'POPULATE',11299,inRun_Id);
3076: end if;
3077: ELSE
3078: --DBMS_OUTPUT.PUT_LINE(CZ_UTILS.GET_TEXT('CZ_IMP_INVALID_TABLE_IMPORT','TABLENAME',table_name));
3079: xERROR:=cz_utils.log_report(CZ_UTILS.GET_TEXT('CZ_IMP_INVALID_TABLE_IMPORT','TABLENAME',table_name),1,'CZ_IMP_SINGLE.POPULATE_TABLE',11276,inRun_Id);
3080: END IF;
3081: --DBMS_OUTPUT.PUT_LINE('INSERTS: '||to_char(Inserts));
3082: --DBMS_OUTPUT.PUT_LINE('UPDATES: '||to_char(Updates));
3083: --DBMS_OUTPUT.PUT_LINE('FAILED: '||to_char(x_failed));
3117: WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
3118: RAISE;
3119: WHEN OTHERS THEN
3120: d_str:=CZ_UTILS.GET_TEXT('CZ_IMP_OPERATION_FAILED','ERRORTEXT',SQLERRM);
3121: xERROR:=cz_utils.log_report(d_str,1,'CZ_IMP_SINGLE.GET_REMOTE_IMPORT',11276);
3122: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
3123: END GET_REMOTE_IMPORT;
3124: ------------------------------------------------------------------------------------------
3125: FUNCTION isAppsVersion11i(fndLinkName IN VARCHAR2)
3152: WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
3153: RAISE;
3154: WHEN OTHERS THEN
3155: d_str:=CZ_UTILS.GET_TEXT('CZ_IMP_OPERATION_FAILED','ERRORTEXT',SQLERRM);
3156: xERROR:=cz_utils.log_report(d_str,1,'CZ_IMP_SINGLE.isAppsVersion11i',11276);
3157: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
3158: END;
3159:
3160: ------------------------------------------------------------------------------------------
3690: x_msg_data => l_msg_data);
3691: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3692: FOR i IN 1..l_msg_count LOOP
3693: l_msg_data := fnd_msg_pub.GET(i,fnd_api.g_false);
3694: xERROR:=cz_utils.log_report(l_msg_data,1,'CZ_IMP_SINGLE.IMPORTSINGLEBILL',20001,genRun_ID);
3695: END LOOP;
3696: RAISE FAILED_TO_LOCK_MODEL;
3697: END IF;
3698: END LOOP;
3791: END LOOP;
3792:
3793: EXCEPTION
3794: WHEN NO_DATA_FOUND THEN
3795: xERROR:=cz_utils.log_report(SQLERRM,1,'CZ_IMP_SINGLE.IMPORTSINGLEBILL.CATALOG',11276,genRun_ID);
3796: END;
3797:
3798: if (CZ_IMP_ALL.get_time) then
3799: end_time := dbms_utility.get_time();
3837: RAISE;
3838: WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
3839: RAISE;
3840: WHEN NO_DATA_FOUND THEN
3841: xERROR:=cz_utils.log_report(sTableName||':'||SQLERRM,1,'CZ_IMP_SINGLE.IMPORTSINGLEBILL.extract_table',11276,genRun_ID);
3842: WHEN OTHERS THEN
3843: d_str:=CZ_UTILS.GET_TEXT('CZ_IMP_OPERATION_FAILED','ERRORTEXT',SQLERRM);
3844: xERROR:=cz_utils.log_report(d_str,1,'SINGLEBILL:EXTRACTION',11276,genRun_ID);
3845: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
3863: LOOP
3864: BEGIN
3865: FETCH C_IMPORT_ORDER INTO sTableName;
3866: EXIT WHEN C_IMPORT_ORDER%NOTFOUND;
3867: populate_table(genRun_ID, sTableName, nCommit_size, nMax_err, 'IMPORT', CZ_IMP_SINGLE.RP_ROOT_FOLDER, l_failed);
3868: EXCEPTION
3869: WHEN CZ_ADMIN.IMP_UNEXP_SQL_ERROR THEN
3870: RAISE;
3871: WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
3870: RAISE;
3871: WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
3872: RAISE;
3873: WHEN NO_DATA_FOUND THEN
3874: xERROR:=cz_utils.log_report(sTableName||':'||SQLERRM,1,'CZ_IMP_SINGLE.IMPORTSINGLEBILL.populate_table',11276,genRun_ID);
3875: WHEN OTHERS THEN
3876: d_str:=CZ_UTILS.GET_TEXT('CZ_IMP_OPERATION_FAILED','ERRORTEXT',SQLERRM);
3877: xERROR:=cz_utils.log_report(d_str,1,'CZ_IMP_SINGLE.GO.IMPORT',11276,genRun_ID);
3878: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
3873: WHEN NO_DATA_FOUND THEN
3874: xERROR:=cz_utils.log_report(sTableName||':'||SQLERRM,1,'CZ_IMP_SINGLE.IMPORTSINGLEBILL.populate_table',11276,genRun_ID);
3875: WHEN OTHERS THEN
3876: d_str:=CZ_UTILS.GET_TEXT('CZ_IMP_OPERATION_FAILED','ERRORTEXT',SQLERRM);
3877: xERROR:=cz_utils.log_report(d_str,1,'CZ_IMP_SINGLE.GO.IMPORT',11276,genRun_ID);
3878: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
3879: END;
3880: END LOOP;
3881: CLOSE C_IMPORT_ORDER;
3891: AND explosion_type = sExpl_type
3892: AND last_import_run_id = genRun_ID;
3893: EXCEPTION
3894: WHEN OTHERS THEN
3895: xERROR:=cz_utils.log_report(nTop_ID||':'||SQLERRM,1,'CZ_IMP_SINGLE.IMPORTSINGLEBILL.XFRPROJECTS',11276,genRun_ID);
3896: END;
3897:
3898: BEGIN
3899: cz_refs.set_Trackable_Children_Flag(nModelId);
3898: BEGIN
3899: cz_refs.set_Trackable_Children_Flag(nModelId);
3900: EXCEPTION
3901: WHEN OTHERS THEN
3902: xERROR:=cz_utils.log_report(nModelId||':'||SQLERRM,1,'CZ_IMP_SINGLE.IMPORTSINGLEBILL.TRACKABLE',11276,genRun_ID);
3903: END;
3904:
3905: ----5) Finally update the (LAST_ACTIVITY,COMPLETED) fields of CZ_XFR_RUN_INFOS
3906: BEGIN
3909: COMPLETED='1'
3910: WHERE RUN_ID=genRun_ID;
3911: EXCEPTION
3912: WHEN OTHERS THEN
3913: xERROR:=cz_utils.log_report(genRun_ID||':'||SQLERRM,1,'CZ_IMP_SINGLE.IMPORTSINGLEBILL.RUNINFOS',11276,genRun_ID);
3914: END;
3915:
3916: --DBMS_OUTPUT.PUT_LINE(CZ_UTILS.GET_TEXT('CZ_IMP_IMPORT_COMPLETED','RUNID',TO_CHAR(genRun_ID)));
3917:
3960: x_msg_count => l_msg_count,
3961: x_msg_data => l_msg_data);
3962: EXCEPTION
3963: WHEN OTHERS THEN
3964: xERROR:=cz_utils.log_report(nModelId||':'||SQLERRM,1,'CZ_IMP_SINGLE.IMPORTSINGLEBILL.UNLOCK',11276,genRun_ID);
3965: END;
3966: END IF;
3967: EXCEPTION
3968: WHEN CZ_ADMIN.IMP_UNEXP_SQL_ERROR THEN
3996: RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
3997: END ImportSingleBill;
3998: ------------------------------------------------------------------------------------------
3999:
4000: END CZ_IMP_SINGLE;