79: return v_start_date;
80:
81: EXCEPTION
82: WHEN no_data_found THEN
83: FND_MESSAGE.SET_NAME('MSC', 'MSC_NRA_NO_CALENDAR');
84: FND_MESSAGE.SET_TOKEN('ORG_ID', arg_organization_id);
85: LOG_MESSAGE(FND_MESSAGE.Get);
86:
87: END check_start_date;
80:
81: EXCEPTION
82: WHEN no_data_found THEN
83: FND_MESSAGE.SET_NAME('MSC', 'MSC_NRA_NO_CALENDAR');
84: FND_MESSAGE.SET_TOKEN('ORG_ID', arg_organization_id);
85: LOG_MESSAGE(FND_MESSAGE.Get);
86:
87: END check_start_date;
88:
81: EXCEPTION
82: WHEN no_data_found THEN
83: FND_MESSAGE.SET_NAME('MSC', 'MSC_NRA_NO_CALENDAR');
84: FND_MESSAGE.SET_TOKEN('ORG_ID', arg_organization_id);
85: LOG_MESSAGE(FND_MESSAGE.Get);
86:
87: END check_start_date;
88:
89: FUNCTION check_cutoff_date(arg_organization_id in number,
108: return v_cutoff_date;
109:
110: EXCEPTION
111: WHEN no_data_found THEN
112: FND_MESSAGE.SET_NAME('MSC', 'MSC_NRA_NO_CALENDAR');
113: FND_MESSAGE.SET_TOKEN('ORG_ID', arg_organization_id);
114: LOG_MESSAGE(FND_MESSAGE.Get);
115:
116: END check_cutoff_date;
109:
110: EXCEPTION
111: WHEN no_data_found THEN
112: FND_MESSAGE.SET_NAME('MSC', 'MSC_NRA_NO_CALENDAR');
113: FND_MESSAGE.SET_TOKEN('ORG_ID', arg_organization_id);
114: LOG_MESSAGE(FND_MESSAGE.Get);
115:
116: END check_cutoff_date;
117:
110: EXCEPTION
111: WHEN no_data_found THEN
112: FND_MESSAGE.SET_NAME('MSC', 'MSC_NRA_NO_CALENDAR');
113: FND_MESSAGE.SET_TOKEN('ORG_ID', arg_organization_id);
114: LOG_MESSAGE(FND_MESSAGE.Get);
115:
116: END check_cutoff_date;
117:
118: PROCEDURE update_avail(
1509: -- fix for 2393358 --
1510: IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1511:
1512: LOG_MESSAGE('========================================');
1513: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1514: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ORG_RESOURCES');
1515: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1516: LOG_MESSAGE(FND_MESSAGE.GET);
1517:
1510: IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1511:
1512: LOG_MESSAGE('========================================');
1513: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1514: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ORG_RESOURCES');
1515: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1516: LOG_MESSAGE(FND_MESSAGE.GET);
1517:
1518: LOG_MESSAGE(SQLERRM);
1511:
1512: LOG_MESSAGE('========================================');
1513: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1514: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ORG_RESOURCES');
1515: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1516: LOG_MESSAGE(FND_MESSAGE.GET);
1517:
1518: LOG_MESSAGE(SQLERRM);
1519:
1512: LOG_MESSAGE('========================================');
1513: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1514: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ORG_RESOURCES');
1515: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1516: LOG_MESSAGE(FND_MESSAGE.GET);
1517:
1518: LOG_MESSAGE(SQLERRM);
1519:
1520:
1739: -- fix for 2393358 --
1740: IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1741:
1742: LOG_MESSAGE('========================================');
1743: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1744: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ALL_LINES');
1745: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1746: LOG_MESSAGE(FND_MESSAGE.GET);
1747:
1740: IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1741:
1742: LOG_MESSAGE('========================================');
1743: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1744: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ALL_LINES');
1745: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1746: LOG_MESSAGE(FND_MESSAGE.GET);
1747:
1748: LOG_MESSAGE(SQLERRM);
1741:
1742: LOG_MESSAGE('========================================');
1743: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1744: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ALL_LINES');
1745: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1746: LOG_MESSAGE(FND_MESSAGE.GET);
1747:
1748: LOG_MESSAGE(SQLERRM);
1749:
1742: LOG_MESSAGE('========================================');
1743: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1744: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ALL_LINES');
1745: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1746: LOG_MESSAGE(FND_MESSAGE.GET);
1747:
1748: LOG_MESSAGE(SQLERRM);
1749:
1750:
1819: lv_ret_res_ava:=CALC_RESOURCE_AVAILABILITY(lv_start_date-1,MSC_UTIL.G_ALL_ORGANIZATIONS,TRUE);
1820:
1821:
1822: IF lv_ret_res_ava = 2 THEN
1823: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1824: ERRBUF:= FND_MESSAGE.GET;
1825: RETCODE:= MSC_UTIL.G_WARNING;
1826: ELSIF lv_ret_res_ava <> 0 THEN
1827: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1820:
1821:
1822: IF lv_ret_res_ava = 2 THEN
1823: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1824: ERRBUF:= FND_MESSAGE.GET;
1825: RETCODE:= MSC_UTIL.G_WARNING;
1826: ELSIF lv_ret_res_ava <> 0 THEN
1827: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1828: ERRBUF:= FND_MESSAGE.GET;
1823: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1824: ERRBUF:= FND_MESSAGE.GET;
1825: RETCODE:= MSC_UTIL.G_WARNING;
1826: ELSIF lv_ret_res_ava <> 0 THEN
1827: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1828: ERRBUF:= FND_MESSAGE.GET;
1829: RETCODE:= MSC_UTIL.G_ERROR;
1830:
1831: END IF;
1824: ERRBUF:= FND_MESSAGE.GET;
1825: RETCODE:= MSC_UTIL.G_WARNING;
1826: ELSIF lv_ret_res_ava <> 0 THEN
1827: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1828: ERRBUF:= FND_MESSAGE.GET;
1829: RETCODE:= MSC_UTIL.G_ERROR;
1830:
1831: END IF;
1832:
1841: lv_ret_res_ava:=CALC_RESOURCE_AVAILABILITY(lv_start_date-1,MSC_UTIL.G_ALL_ORGANIZATIONS,TRUE);
1842:
1843:
1844: IF lv_ret_res_ava = 2 THEN
1845: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1846: ERRBUF:= FND_MESSAGE.GET;
1847: RETCODE:= MSC_UTIL.G_WARNING;
1848: ELSIF lv_ret_res_ava <> 0 THEN
1849: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1842:
1843:
1844: IF lv_ret_res_ava = 2 THEN
1845: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1846: ERRBUF:= FND_MESSAGE.GET;
1847: RETCODE:= MSC_UTIL.G_WARNING;
1848: ELSIF lv_ret_res_ava <> 0 THEN
1849: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1850:
1845: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1846: ERRBUF:= FND_MESSAGE.GET;
1847: RETCODE:= MSC_UTIL.G_WARNING;
1848: ELSIF lv_ret_res_ava <> 0 THEN
1849: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1850:
1851: ERRBUF:= FND_MESSAGE.GET;
1852: RETCODE:= MSC_UTIL.G_ERROR;
1853: END IF;
1847: RETCODE:= MSC_UTIL.G_WARNING;
1848: ELSIF lv_ret_res_ava <> 0 THEN
1849: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1850:
1851: ERRBUF:= FND_MESSAGE.GET;
1852: RETCODE:= MSC_UTIL.G_ERROR;
1853: END IF;
1854: ELSE
1855: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'This program can be run only for Instance Type: Discrete.');
1852: RETCODE:= MSC_UTIL.G_ERROR;
1853: END IF;
1854: ELSE
1855: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'This program can be run only for Instance Type: Discrete.');
1856: ERRBUF:= FND_MESSAGE.GET;
1857: RETCODE:= MSC_UTIL.G_ERROR;
1858:
1859: END IF;
1860:
1860:
1861: EXCEPTION
1862: WHEN OTHERS THEN
1863: ROLLBACK;
1864: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_CALC_RES_AVAIL_FAIL');
1865: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1866: RETCODE := MSC_UTIL.G_ERROR;
1867:
1868: END COMPUTE_RES_AVAIL;
1919: /* Resource Start Time changes*/
1920: lv_task_start_time:= pSTART_TIME;
1921: CURR_DATE:= SYSDATE;
1922:
1923: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
1924: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'CALC_RESOURCE_AVAILABILITY');
1925: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
1926:
1927: lv_mrp_cutoff_date_offset:= TO_NUMBER(FND_PROFILE.VAlUE('MRP_CUTOFF_DATE_OFFSET'));
1920: lv_task_start_time:= pSTART_TIME;
1921: CURR_DATE:= SYSDATE;
1922:
1923: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
1924: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'CALC_RESOURCE_AVAILABILITY');
1925: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
1926:
1927: lv_mrp_cutoff_date_offset:= TO_NUMBER(FND_PROFILE.VAlUE('MRP_CUTOFF_DATE_OFFSET'));
1928: lv_res_avail_before_sysdate := nvl(TO_NUMBER(FND_PROFILE.VAlUE('MSC_RES_AVAIL_BEFORE_SYSDAT')),1);
1921: CURR_DATE:= SYSDATE;
1922:
1923: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
1924: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'CALC_RESOURCE_AVAILABILITY');
1925: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
1926:
1927: lv_mrp_cutoff_date_offset:= TO_NUMBER(FND_PROFILE.VAlUE('MRP_CUTOFF_DATE_OFFSET'));
1928: lv_res_avail_before_sysdate := nvl(TO_NUMBER(FND_PROFILE.VAlUE('MSC_RES_AVAIL_BEFORE_SYSDAT')),1);
1929:
2178: COMMIT;
2179:
2180: /* End Bug 3295824 */
2181:
2182: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
2183: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
2184: TO_CHAR(CEIL((SYSDATE- CURR_DATE)*14400.0)/10));
2185: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2186:
2179:
2180: /* End Bug 3295824 */
2181:
2182: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
2183: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
2184: TO_CHAR(CEIL((SYSDATE- CURR_DATE)*14400.0)/10));
2185: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2186:
2187:
2181:
2182: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
2183: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
2184: TO_CHAR(CEIL((SYSDATE- CURR_DATE)*14400.0)/10));
2185: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2186:
2187:
2188:
2189:
2451:
2452: IF SQLCODE IN (-01683,-01653,-01650,-01562) THEN
2453:
2454: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2455: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2456: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2457: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2459:
2452: IF SQLCODE IN (-01683,-01653,-01650,-01562) THEN
2453:
2454: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2455: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2456: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2457: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2459:
2460: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2453:
2454: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2455: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2456: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2457: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2459:
2460: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2461: RAISE;
2454: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2455: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2456: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2457: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2459:
2460: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2461: RAISE;
2462:
2464:
2465: MSC_CL_COLLECTION.v_warning_flag := MSC_UTIL.SYS_YES;
2466:
2467: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2468: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2469: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2470: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2472:
2465: MSC_CL_COLLECTION.v_warning_flag := MSC_UTIL.SYS_YES;
2466:
2467: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2468: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2469: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2470: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2472:
2473: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2466:
2467: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2468: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2469: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2470: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2472:
2473: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2474: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2467: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2468: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2469: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2470: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2472:
2473: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2474: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2475: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec.RESOURCE_ID));
2469: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2470: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2472:
2473: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2474: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2475: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec.RESOURCE_ID));
2476: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2477:
2470: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2472:
2473: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2474: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2475: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec.RESOURCE_ID));
2476: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2477:
2478: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2472:
2473: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2474: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2475: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec.RESOURCE_ID));
2476: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2477:
2478: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2479: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2472:
2473: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2474: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2475: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec.RESOURCE_ID));
2476: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2477:
2478: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2479: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2480: FND_MESSAGE.SET_TOKEN('VALUE',
2474: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2475: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec.RESOURCE_ID));
2476: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2477:
2478: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2479: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2480: FND_MESSAGE.SET_TOKEN('VALUE',
2481: MSC_GET_NAME.ORG_CODE( c_rec.ORGANIZATION_ID,
2482: MSC_CL_COLLECTION.v_instance_id));
2475: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec.RESOURCE_ID));
2476: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2477:
2478: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2479: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2480: FND_MESSAGE.SET_TOKEN('VALUE',
2481: MSC_GET_NAME.ORG_CODE( c_rec.ORGANIZATION_ID,
2482: MSC_CL_COLLECTION.v_instance_id));
2483: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2476: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2477:
2478: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2479: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2480: FND_MESSAGE.SET_TOKEN('VALUE',
2481: MSC_GET_NAME.ORG_CODE( c_rec.ORGANIZATION_ID,
2482: MSC_CL_COLLECTION.v_instance_id));
2483: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2484:
2479: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2480: FND_MESSAGE.SET_TOKEN('VALUE',
2481: MSC_GET_NAME.ORG_CODE( c_rec.ORGANIZATION_ID,
2482: MSC_CL_COLLECTION.v_instance_id));
2483: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2484:
2485: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2486: END IF;
2487:
2650:
2651: IF SQLCODE IN (-01683,-01653,-01650,-01562) THEN
2652:
2653: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2654: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2655: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2656: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2657: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2658:
2651: IF SQLCODE IN (-01683,-01653,-01650,-01562) THEN
2652:
2653: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2654: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2655: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2656: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2657: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2658:
2659: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2652:
2653: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2654: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2655: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2656: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2657: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2658:
2659: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2660: RAISE;
2653: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2654: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2655: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2656: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2657: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2658:
2659: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2660: RAISE;
2661:
2663:
2664: MSC_CL_COLLECTION.v_warning_flag := MSC_UTIL.SYS_YES;
2665:
2666: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2667: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2668: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2669: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2670: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2671:
2664: MSC_CL_COLLECTION.v_warning_flag := MSC_UTIL.SYS_YES;
2665:
2666: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2667: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2668: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2669: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2670: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2671:
2672: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2665:
2666: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2667: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2668: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2669: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2670: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2671:
2672: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2673: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2666: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2667: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2668: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2669: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2670: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2671:
2672: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2673: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2674: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec_resinst.RESOURCE_ID));
2668: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2669: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2670: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2671:
2672: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2673: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2674: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec_resinst.RESOURCE_ID));
2675: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2676:
2669: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RES_INST_AVAIL');
2670: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2671:
2672: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2673: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2674: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec_resinst.RESOURCE_ID));
2675: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2676:
2677: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2670: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2671:
2672: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2673: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2674: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec_resinst.RESOURCE_ID));
2675: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2676:
2677: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2678: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2671:
2672: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2673: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2674: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec_resinst.RESOURCE_ID));
2675: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2676:
2677: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2678: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2679: FND_MESSAGE.SET_TOKEN('VALUE',
2673: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');
2674: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec_resinst.RESOURCE_ID));
2675: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2676:
2677: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2678: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2679: FND_MESSAGE.SET_TOKEN('VALUE',
2680: MSC_GET_NAME.ORG_CODE( c_rec_resinst.ORGANIZATION_ID,
2681: MSC_CL_COLLECTION.v_instance_id));
2674: FND_MESSAGE.SET_TOKEN('VALUE', TO_CHAR(c_rec_resinst.RESOURCE_ID));
2675: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2676:
2677: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2678: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2679: FND_MESSAGE.SET_TOKEN('VALUE',
2680: MSC_GET_NAME.ORG_CODE( c_rec_resinst.ORGANIZATION_ID,
2681: MSC_CL_COLLECTION.v_instance_id));
2682: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2675: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2676:
2677: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2678: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2679: FND_MESSAGE.SET_TOKEN('VALUE',
2680: MSC_GET_NAME.ORG_CODE( c_rec_resinst.ORGANIZATION_ID,
2681: MSC_CL_COLLECTION.v_instance_id));
2682: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2683:
2678: FND_MESSAGE.SET_TOKEN('COLUMN', 'ORGANIZATION_CODE');
2679: FND_MESSAGE.SET_TOKEN('VALUE',
2680: MSC_GET_NAME.ORG_CODE( c_rec_resinst.ORGANIZATION_ID,
2681: MSC_CL_COLLECTION.v_instance_id));
2682: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2683:
2684: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2685: END IF;
2686:
2745: EXCEPTION
2746: WHEN NO_DATA_FOUND
2747: THEN
2748: RETCODE := MSC_UTIL.G_ERROR;
2749: FND_MESSAGE.SET_NAME ('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2750: FND_MESSAGE.SET_TOKEN ('INSTANCE_ID', pINSTANCE_ID);
2751: ERRBUF := FND_MESSAGE.GET;
2752: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2753: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2746: WHEN NO_DATA_FOUND
2747: THEN
2748: RETCODE := MSC_UTIL.G_ERROR;
2749: FND_MESSAGE.SET_NAME ('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2750: FND_MESSAGE.SET_TOKEN ('INSTANCE_ID', pINSTANCE_ID);
2751: ERRBUF := FND_MESSAGE.GET;
2752: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2753: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2754: RETURN;
2747: THEN
2748: RETCODE := MSC_UTIL.G_ERROR;
2749: FND_MESSAGE.SET_NAME ('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2750: FND_MESSAGE.SET_TOKEN ('INSTANCE_ID', pINSTANCE_ID);
2751: ERRBUF := FND_MESSAGE.GET;
2752: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2753: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2754: RETURN;
2755: WHEN OTHERS
2771: WHEN NO_DATA_FOUND
2772: THEN
2773: RETCODE := MSC_UTIL.G_ERROR;
2774: LOG_MESSAGE('Table name AHL_DEPT_RESOURCE_CAPACITY is not available on source');
2775: ERRBUF := FND_MESSAGE.GET;
2776: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2777: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2778: RETURN;
2779: WHEN OTHERS
2792: WHEN NO_DATA_FOUND
2793: THEN
2794: RETCODE := MSC_UTIL.G_WARNING;
2795: LOG_MESSAGE('Error::NO RECORDS for PLAN '|| lv_plan_name || '::IN TABLE MSC_PLANS');
2796: ERRBUF := FND_MESSAGE.GET;
2797: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2798: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2799: RETURN;
2800: WHEN OTHERS