eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.MSC_RESOURCE_AVAILABILITY dependencies on MSC_UTIL

Line 206: MSC_UTIL.MSC_DEBUG('Org: ' || to_char(var_organization_id));

202: var_transaction_id number;
203:
204: BEGIN
205:
206: MSC_UTIL.MSC_DEBUG('Org: ' || to_char(var_organization_id));
207: MSC_UTIL.MSC_DEBUG('Instance: ' || to_char(var_sr_instance_id));
208: MSC_UTIL.MSC_DEBUG('Sim Set: ' || var_simulation_set);
209: MSC_UTIL.MSC_DEBUG('Dept: ' || to_char(var_department_id));
210: MSC_UTIL.MSC_DEBUG('Resource: ' || to_char(var_resource_id));

Line 207: MSC_UTIL.MSC_DEBUG('Instance: ' || to_char(var_sr_instance_id));

203:
204: BEGIN
205:
206: MSC_UTIL.MSC_DEBUG('Org: ' || to_char(var_organization_id));
207: MSC_UTIL.MSC_DEBUG('Instance: ' || to_char(var_sr_instance_id));
208: MSC_UTIL.MSC_DEBUG('Sim Set: ' || var_simulation_set);
209: MSC_UTIL.MSC_DEBUG('Dept: ' || to_char(var_department_id));
210: MSC_UTIL.MSC_DEBUG('Resource: ' || to_char(var_resource_id));
211:

Line 208: MSC_UTIL.MSC_DEBUG('Sim Set: ' || var_simulation_set);

204: BEGIN
205:
206: MSC_UTIL.MSC_DEBUG('Org: ' || to_char(var_organization_id));
207: MSC_UTIL.MSC_DEBUG('Instance: ' || to_char(var_sr_instance_id));
208: MSC_UTIL.MSC_DEBUG('Sim Set: ' || var_simulation_set);
209: MSC_UTIL.MSC_DEBUG('Dept: ' || to_char(var_department_id));
210: MSC_UTIL.MSC_DEBUG('Resource: ' || to_char(var_resource_id));
211:
212: var_time1 := check_24(var_from_time);

Line 209: MSC_UTIL.MSC_DEBUG('Dept: ' || to_char(var_department_id));

205:
206: MSC_UTIL.MSC_DEBUG('Org: ' || to_char(var_organization_id));
207: MSC_UTIL.MSC_DEBUG('Instance: ' || to_char(var_sr_instance_id));
208: MSC_UTIL.MSC_DEBUG('Sim Set: ' || var_simulation_set);
209: MSC_UTIL.MSC_DEBUG('Dept: ' || to_char(var_department_id));
210: MSC_UTIL.MSC_DEBUG('Resource: ' || to_char(var_resource_id));
211:
212: var_time1 := check_24(var_from_time);
213: var_time2 := check_24(var_to_time);

Line 210: MSC_UTIL.MSC_DEBUG('Resource: ' || to_char(var_resource_id));

206: MSC_UTIL.MSC_DEBUG('Org: ' || to_char(var_organization_id));
207: MSC_UTIL.MSC_DEBUG('Instance: ' || to_char(var_sr_instance_id));
208: MSC_UTIL.MSC_DEBUG('Sim Set: ' || var_simulation_set);
209: MSC_UTIL.MSC_DEBUG('Dept: ' || to_char(var_department_id));
210: MSC_UTIL.MSC_DEBUG('Resource: ' || to_char(var_resource_id));
211:
212: var_time1 := check_24(var_from_time);
213: var_time2 := check_24(var_to_time);
214:

Line 1419: MSC_UTIL.MSC_DEBUG('Creating resource for all simulation set ....');

1415: LOG_MESSAGE('========================================================');
1416: LOG_MESSAGE('Populating Org Resources for the Org: '|| arg_organization_id);
1417: LOG_MESSAGE('========================================================');
1418:
1419: MSC_UTIL.MSC_DEBUG('Creating resource for all simulation set ....');
1420: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));
1421: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));
1422:
1423: -- For complete refresh, the collection program will handle deleting all

Line 1420: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));

1416: LOG_MESSAGE('Populating Org Resources for the Org: '|| arg_organization_id);
1417: LOG_MESSAGE('========================================================');
1418:
1419: MSC_UTIL.MSC_DEBUG('Creating resource for all simulation set ....');
1420: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));
1421: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));
1422:
1423: -- For complete refresh, the collection program will handle deleting all
1424: -- resource avail.

Line 1421: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));

1417: LOG_MESSAGE('========================================================');
1418:
1419: MSC_UTIL.MSC_DEBUG('Creating resource for all simulation set ....');
1420: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));
1421: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));
1422:
1423: -- For complete refresh, the collection program will handle deleting all
1424: -- resource avail.
1425: -- For net change, refresh_flag = 2, delete resourse availability of

Line 1569: MSC_UTIL.MSC_DEBUG('Creating resource for all lines....');

1565: else
1566: v_cutoff_date := arg_cutoff_date;
1567: end if;
1568:
1569: MSC_UTIL.MSC_DEBUG('Creating resource for all lines....');
1570: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));
1571: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));
1572: MSC_UTIL.MSC_DEBUG('Start Date:' || to_char(v_start_date,'YYYY/MM/DD HH24:MI:SS'));
1573: MSC_UTIL.MSC_DEBUG('Cutoff Date:' || to_char(v_cutoff_date,'YYYY/MM/DD HH24:MI:SS'));

Line 1570: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));

1566: v_cutoff_date := arg_cutoff_date;
1567: end if;
1568:
1569: MSC_UTIL.MSC_DEBUG('Creating resource for all lines....');
1570: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));
1571: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));
1572: MSC_UTIL.MSC_DEBUG('Start Date:' || to_char(v_start_date,'YYYY/MM/DD HH24:MI:SS'));
1573: MSC_UTIL.MSC_DEBUG('Cutoff Date:' || to_char(v_cutoff_date,'YYYY/MM/DD HH24:MI:SS'));
1574:

Line 1571: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));

1567: end if;
1568:
1569: MSC_UTIL.MSC_DEBUG('Creating resource for all lines....');
1570: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));
1571: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));
1572: MSC_UTIL.MSC_DEBUG('Start Date:' || to_char(v_start_date,'YYYY/MM/DD HH24:MI:SS'));
1573: MSC_UTIL.MSC_DEBUG('Cutoff Date:' || to_char(v_cutoff_date,'YYYY/MM/DD HH24:MI:SS'));
1574:
1575: -- For complete refresh, the collection program will handle deleting all

Line 1572: MSC_UTIL.MSC_DEBUG('Start Date:' || to_char(v_start_date,'YYYY/MM/DD HH24:MI:SS'));

1568:
1569: MSC_UTIL.MSC_DEBUG('Creating resource for all lines....');
1570: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));
1571: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));
1572: MSC_UTIL.MSC_DEBUG('Start Date:' || to_char(v_start_date,'YYYY/MM/DD HH24:MI:SS'));
1573: MSC_UTIL.MSC_DEBUG('Cutoff Date:' || to_char(v_cutoff_date,'YYYY/MM/DD HH24:MI:SS'));
1574:
1575: -- For complete refresh, the collection program will handle deleting all
1576: -- resource avail.

Line 1573: MSC_UTIL.MSC_DEBUG('Cutoff Date:' || to_char(v_cutoff_date,'YYYY/MM/DD HH24:MI:SS'));

1569: MSC_UTIL.MSC_DEBUG('Creating resource for all lines....');
1570: MSC_UTIL.MSC_DEBUG('Org Id:' || to_char(arg_organization_id));
1571: MSC_UTIL.MSC_DEBUG('Instance:' || to_char(arg_sr_instance_id));
1572: MSC_UTIL.MSC_DEBUG('Start Date:' || to_char(v_start_date,'YYYY/MM/DD HH24:MI:SS'));
1573: MSC_UTIL.MSC_DEBUG('Cutoff Date:' || to_char(v_cutoff_date,'YYYY/MM/DD HH24:MI:SS'));
1574:
1575: -- For complete refresh, the collection program will handle deleting all
1576: -- resource avail.
1577: -- For net change, refresh_flag = 2, delete resourse availability of

Line 1804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, ' Start date : '|| lv_start_date);

1800: MSC_CL_COLLECTION.v_is_partial_refresh := FALSE;
1801:
1802: MSC_CL_COLLECTION.v_instance_id := pINSTANCE_ID;
1803:
1804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, ' Start date : '|| lv_start_date);
1805:
1806: lv_where_clause := ' AND ORGANIZATION_ID IN ( SELECT SR_TP_ID FROM MSC_TRADING_PARTNERS WHERE '||
1807: ' SR_INSTANCE_ID = '||MSC_CL_COLLECTION.v_instance_id ||
1808: ' AND ORGANIZATION_TYPE =1 ) ';

Line 1811: IF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_DISCRETE OR MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_OTHER THEN

1807: ' SR_INSTANCE_ID = '||MSC_CL_COLLECTION.v_instance_id ||
1808: ' AND ORGANIZATION_TYPE =1 ) ';
1809:
1810: -- log_debug('before delete of MSC_NET_RESOURCE_AVAIL debug0 ');
1811: IF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_DISCRETE OR MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_OTHER THEN
1812: -- log_debug('before delete of MSC_NET_RESOURCE_AVAIL ');
1813: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1);
1814: COMMIT;
1815: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1);

Line 1819: lv_ret_res_ava:=CALC_RESOURCE_AVAILABILITY(lv_start_date-1,MSC_UTIL.G_ALL_ORGANIZATIONS,TRUE);

1815: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1);
1816: COMMIT;
1817:
1818: /* call the function to calc. resource avail */
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');

Line 1825: RETCODE:= MSC_UTIL.G_WARNING;

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;
1829: RETCODE:= MSC_UTIL.G_ERROR;

Line 1829: RETCODE:= MSC_UTIL.G_ERROR;

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:
1833: ELSIF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_MIXED THEN

Line 1833: ELSIF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_MIXED THEN

1829: RETCODE:= MSC_UTIL.G_ERROR;
1830:
1831: END IF;
1832:
1833: ELSIF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_MIXED THEN
1834: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-07');
1835: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1,lv_where_clause);
1836: COMMIT;
1837: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1,lv_where_clause);

Line 1834: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-07');

1830:
1831: END IF;
1832:
1833: ELSIF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_MIXED THEN
1834: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-07');
1835: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1,lv_where_clause);
1836: COMMIT;
1837: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1,lv_where_clause);
1838: COMMIT;

Line 1841: lv_ret_res_ava:=CALC_RESOURCE_AVAILABILITY(lv_start_date-1,MSC_UTIL.G_ALL_ORGANIZATIONS,TRUE);

1837: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1,lv_where_clause);
1838: COMMIT;
1839:
1840:
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');

Line 1847: RETCODE:= MSC_UTIL.G_WARNING;

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:
1851: ERRBUF:= FND_MESSAGE.GET;

Line 1852: RETCODE:= MSC_UTIL.G_ERROR;

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.');
1856: ERRBUF:= FND_MESSAGE.GET;

Line 1855: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'This program can be run only for Instance Type: Discrete.');

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.');
1856: ERRBUF:= FND_MESSAGE.GET;
1857: RETCODE:= MSC_UTIL.G_ERROR;
1858:
1859: END IF;

Line 1857: 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:
1861: EXCEPTION

Line 1865: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);

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;
1869:

Line 1866: RETCODE := MSC_UTIL.G_ERROR;

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;
1869:
1870: --==============================================================

Line 1899: AND ins_org.ENABLED_FLAG= MSC_UTIL.SYS_YES

1895: MSC_TRADING_PARTNERS mtp
1896: WHERE tp.SR_INSTANCE_ID= MSC_CL_COLLECTION.v_instance_id
1897: AND ins_org.SR_INSTANCE_ID=tp.SR_INSTANCE_ID
1898: AND ins_org.Organization_ID=tp.ORGANIZATION_ID
1899: AND ins_org.ENABLED_FLAG= MSC_UTIL.SYS_YES
1900: AND ((pORG_GROUP = MSC_UTIL.G_ALL_ORGANIZATIONS ) OR (ins_org.ORG_GROUP=pORG_GROUP))
1901: AND mtp.sr_instance_id = MSC_CL_COLLECTION.v_instance_id
1902: AND mtp.sr_tp_id = tp.organization_id
1903: AND mtp.partner_type = 3

Line 1900: AND ((pORG_GROUP = MSC_UTIL.G_ALL_ORGANIZATIONS ) OR (ins_org.ORG_GROUP=pORG_GROUP))

1896: WHERE tp.SR_INSTANCE_ID= MSC_CL_COLLECTION.v_instance_id
1897: AND ins_org.SR_INSTANCE_ID=tp.SR_INSTANCE_ID
1898: AND ins_org.Organization_ID=tp.ORGANIZATION_ID
1899: AND ins_org.ENABLED_FLAG= MSC_UTIL.SYS_YES
1900: AND ((pORG_GROUP = MSC_UTIL.G_ALL_ORGANIZATIONS ) OR (ins_org.ORG_GROUP=pORG_GROUP))
1901: AND mtp.sr_instance_id = MSC_CL_COLLECTION.v_instance_id
1902: AND mtp.sr_tp_id = tp.organization_id
1903: AND mtp.partner_type = 3
1904: AND mtp.organization_type = 1; -- Discrete Mfg.

Line 1925: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);

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:

Line 1936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_mrp_cutoff_date_offset:'||lv_mrp_cutoff_date_offset);

1932: ELSE
1933: lv_task_end_time := ADD_MONTHS(lv_task_start_time,lv_mrp_cutoff_date_offset) + lv_res_avail_before_sysdate;
1934: END IF;
1935:
1936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_mrp_cutoff_date_offset:'||lv_mrp_cutoff_date_offset);
1937: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_res_avail_before_sysdate:'||lv_res_avail_before_sysdate);
1938: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_end_time:'||lv_task_end_time);
1939: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_start_time:' ||lv_task_start_time);
1940: --- PREPLACE CHANGE START ---

Line 1937: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_res_avail_before_sysdate:'||lv_res_avail_before_sysdate);

1933: lv_task_end_time := ADD_MONTHS(lv_task_start_time,lv_mrp_cutoff_date_offset) + lv_res_avail_before_sysdate;
1934: END IF;
1935:
1936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_mrp_cutoff_date_offset:'||lv_mrp_cutoff_date_offset);
1937: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_res_avail_before_sysdate:'||lv_res_avail_before_sysdate);
1938: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_end_time:'||lv_task_end_time);
1939: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_start_time:' ||lv_task_start_time);
1940: --- PREPLACE CHANGE START ---
1941: /*

Line 1938: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_end_time:'||lv_task_end_time);

1934: END IF;
1935:
1936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_mrp_cutoff_date_offset:'||lv_mrp_cutoff_date_offset);
1937: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_res_avail_before_sysdate:'||lv_res_avail_before_sysdate);
1938: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_end_time:'||lv_task_end_time);
1939: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_start_time:' ||lv_task_start_time);
1940: --- PREPLACE CHANGE START ---
1941: /*
1942: IF v_is_complete_refresh THEN

Line 1939: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_start_time:' ||lv_task_start_time);

1935:
1936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_mrp_cutoff_date_offset:'||lv_mrp_cutoff_date_offset);
1937: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_res_avail_before_sysdate:'||lv_res_avail_before_sysdate);
1938: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_end_time:'||lv_task_end_time);
1939: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'lv_task_start_time:' ||lv_task_start_time);
1940: --- PREPLACE CHANGE START ---
1941: /*
1942: IF v_is_complete_refresh THEN
1943: lv_refresh_flag:= 1;

Line 1961: IF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_OTHER THEN

1957: /************** LEGACY_CHANGE_START*************************/
1958: -- Calling the program as complete refresh for legacy so that new
1959: -- records coming in are considered
1960:
1961: IF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_OTHER THEN
1962: lv_refresh_flag := 1;
1963: END IF;
1964: /*****************LEGACY_CHANGE_ENDS************************/
1965:

Line 1974: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ORG_RESOURCES');

1970: SAVEPOINT SP1;
1971:
1972: FOR c_rec IN c1 LOOP
1973:
1974: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ORG_RESOURCES');
1975:
1976: POPULATE_ORG_RESOURCES
1977: ( lv_ret_code,
1978: lv_refresh_flag,

Line 1985: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'RET_CODE: ' ||lv_ret_code);

1981: MSC_CL_COLLECTION.v_instance_id,
1982: lv_task_start_time,
1983: lv_task_end_time);
1984:
1985: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'RET_CODE: ' ||lv_ret_code);
1986:
1987: IF lv_ret_code <> 0 THEN
1988: ROLLBACK WORK TO SAVEPOINT SP1;
1989: IF lv_ret_code IN (-01653,-01650,-01562,-01683) THEN

Line 2000: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ALL_LINES');

1996: COMMIT;
1997: SAVEPOINT SP1;
1998: END IF;
1999:
2000: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ALL_LINES');
2001:
2002: POPULATE_ALL_LINES
2003: ( lv_ret_code,
2004: lv_refresh_flag,

Line 2011: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'RET_CODE: ' ||lv_ret_code);

2007: MSC_CL_COLLECTION.v_instance_id,
2008: lv_task_start_time,
2009: lv_task_end_time);
2010:
2011: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'RET_CODE: ' ||lv_ret_code);
2012:
2013: IF lv_ret_code <> 0 THEN
2014: ROLLBACK WORK TO SAVEPOINT SP1;
2015: IF lv_ret_code IN (-01653,-01650,-01562,-01683) THEN

Line 2030: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ORG_RES_INSTANCES');

2026: /* yvon: resource instanc eavail changes start */
2027: -----------------------------------------------------
2028: -- populate resource instance availability
2029: -----------------------------------------------------
2030: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ORG_RES_INSTANCES');
2031:
2032: MSC_NET_RES_INST_AVAILABILITY.POPULATE_ORG_RES_INSTANCES
2033: ( lv_ret_code,
2034: lv_refresh_flag,

Line 2041: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'RET_CODE: ' ||lv_ret_code);

2037: MSC_CL_COLLECTION.v_instance_id,
2038: lv_task_start_time,
2039: lv_task_end_time);
2040:
2041: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'RET_CODE: ' ||lv_ret_code);
2042:
2043: IF lv_ret_code <> 0 THEN
2044: ROLLBACK WORK TO SAVEPOINT SP1;
2045: IF lv_ret_code IN (-01653,-01650,-01562,-01683) THEN

Line 2065: IF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_OTHER THEN

2061: -- This is to enable resource changes to be
2062: -- considered for legacy. Both, the resource information and
2063: -- resource changes may come in at the same time for legacy.
2064:
2065: IF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_OTHER THEN
2066:
2067: OPEN C2;
2068: FETCH C2 INTO lv_changes_exists;
2069: CLOSE C2;

Line 2081: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ORG_RESOURCES');

2077: SAVEPOINT SP1;
2078:
2079: FOR c_rec IN c1 LOOP
2080:
2081: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ORG_RESOURCES');
2082:
2083: POPULATE_ORG_RESOURCES
2084: ( lv_ret_code,
2085: lv_refresh_flag,

Line 2105: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ALL_LINES');

2101: COMMIT;
2102: SAVEPOINT SP1;
2103: END IF;
2104:
2105: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ALL_LINES');
2106:
2107: POPULATE_ALL_LINES
2108: ( lv_ret_code,
2109: lv_refresh_flag,

Line 2133: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ORG_RES_INSTANCES');

2129: /* yvon: resource instanc eavail changes start */
2130: -----------------------------------------------------
2131: -- populate resource instance availability
2132: -----------------------------------------------------
2133: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'CALLING POPULATE_ORG_RES_INSTANCES');
2134:
2135: MSC_NET_RES_INST_AVAILABILITY.POPULATE_ORG_RES_INSTANCES
2136: ( lv_ret_code,
2137: lv_refresh_flag,

Line 2144: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'RET_CODE: ' ||lv_ret_code);

2140: MSC_CL_COLLECTION.v_instance_id,
2141: lv_task_start_time,
2142: lv_task_end_time);
2143:
2144: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'RET_CODE: ' ||lv_ret_code);
2145:
2146: IF lv_ret_code <> 0 THEN
2147: ROLLBACK WORK TO SAVEPOINT SP1;
2148: IF lv_ret_code IN (-01653,-01650,-01562,-01683) THEN

Line 2162: END IF; -- MSC_UTIL.G_INS_OTHER

2158: /* yvon: resource instanc eavail changes end */
2159:
2160: END LOOP;
2161: END IF; -- lv_changes_exists
2162: END IF; -- MSC_UTIL.G_INS_OTHER
2163:
2164: /************** LEGACY_CHANGE_ENDS*************************/
2165:
2166: /* Bug 3295824 - We need to set the capacity units to 0 of any records

Line 2185: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);

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:

Line 2200: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);

2196: EXCEPTION
2197:
2198: WHEN OTHERS THEN
2199:
2200: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2201:
2202: IF (lv_temp_ret_flag=1 ) THEN
2203: return lv_temp_ret_flag;
2204: else

Line 2271: ((MSC_CL_COLLECTION.v_coll_prec.org_group_flag = MSC_UTIL.G_ALL_ORGANIZATIONS ) or (mio.org_group = MSC_CL_COLLECTION.v_coll_prec.org_group_flag)) and

2267: from msc_instance_orgs mio,
2268: msc_trading_partners mtp
2269: where mio.sr_instance_id= MSC_CL_COLLECTION.v_instance_id and
2270: mio.enabled_flag= 1 and
2271: ((MSC_CL_COLLECTION.v_coll_prec.org_group_flag = MSC_UTIL.G_ALL_ORGANIZATIONS ) or (mio.org_group = MSC_CL_COLLECTION.v_coll_prec.org_group_flag)) and
2272: mio.sr_instance_id=mtp.sr_instance_id and
2273: mio.organization_id=mtp.sr_tp_id and
2274: mtp.partner_type=3 and
2275: mtp.organization_type=2;

Line 2278: lv_res_avail NUMBER := MSC_UTIL.SYS_NO;

2274: mtp.partner_type=3 and
2275: mtp.organization_type=2;
2276:
2277: c_count NUMBER:= 0;
2278: lv_res_avail NUMBER := MSC_UTIL.SYS_NO;
2279: lv_res_inst_avail NUMBER := MSC_UTIL.SYS_NO;
2280: lv_sql_stmt VARCHAR2(2048);
2281:
2282: BEGIN

Line 2279: lv_res_inst_avail NUMBER := MSC_UTIL.SYS_NO;

2275: mtp.organization_type=2;
2276:
2277: c_count NUMBER:= 0;
2278: lv_res_avail NUMBER := MSC_UTIL.SYS_NO;
2279: lv_res_inst_avail NUMBER := MSC_UTIL.SYS_NO;
2280: lv_sql_stmt VARCHAR2(2048);
2281:
2282: BEGIN
2283:

Line 2284: IF MSC_CL_COLLECTION.v_recalc_nra= MSC_UTIL.SYS_YES THEN

2280: lv_sql_stmt VARCHAR2(2048);
2281:
2282: BEGIN
2283:
2284: IF MSC_CL_COLLECTION.v_recalc_nra= MSC_UTIL.SYS_YES THEN
2285:
2286: /*IF (v_is_complete_refresh OR (v_is_partial_refresh AND MSC_CL_COLLECTION.v_coll_prec.resource_nra_flag = MSC_CL_COLLECTION.SYS_YES)) THEN
2287: -- We want to delete all NRA related data and get new stuff.
2288:

Line 2293: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-00');

2289: --MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', v_instance_id, -1);
2290: --MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', v_instance_id, -1);
2291:
2292: IF MSC_CL_COLLECTION.v_coll_prec.org_group_flag = MSC_CL_COLLECTION.G_ALL_ORGANIZATIONS THEN
2293: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-00');
2294: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', v_instance_id, -1);
2295: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', v_instance_id, -1);
2296: ELSE
2297: v_sub_str :=' AND ORGANIZATION_ID '||v_in_org_str;

Line 2298: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-01');

2294: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', v_instance_id, -1);
2295: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', v_instance_id, -1);
2296: ELSE
2297: v_sub_str :=' AND ORGANIZATION_ID '||v_in_org_str;
2298: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-01');
2299: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', v_instance_id, -1,v_sub_str);
2300: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', v_instance_id, -1,v_sub_str);
2301: END IF;
2302:

Line 2307: IF MSC_CL_COLLECTION.v_process_flag = MSC_UTIL.SYS_YES THEN

2303: END IF;*/
2304:
2305: -- process mfg only. move the rows for the st table to the msc table
2306: -- for net resource avail
2307: IF MSC_CL_COLLECTION.v_process_flag = MSC_UTIL.SYS_YES THEN
2308:
2309: /*
2310: We will do a bulk insert of res avail for OPM orgs. If this fails,
2311: then we will switch to old, row by row processing.

Line 2321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loading res avail for OPM orgs : ' || c_rec1.organization_id);

2317: BEGIN
2318:
2319: SAVEPOINT LOAD_RES_AVAIL_SP;
2320:
2321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loading res avail for OPM orgs : ' || c_rec1.organization_id);
2322:
2323: lv_sql_stmt:=
2324: ' INSERT into MSC_net_resource_avail '
2325: ||' ( transaction_id,'

Line 2380: lv_res_avail:=MSC_UTIL.SYS_YES;

2376: MSC_CL_COLLECTION.v_last_collection_id;
2377:
2378: COMMIT;
2379:
2380: lv_res_avail:=MSC_UTIL.SYS_YES;
2381:
2382: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loaded res avail for OPM orgs : ' || c_rec1.organization_id);
2383:
2384: EXCEPTION

Line 2382: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loaded res avail for OPM orgs : ' || c_rec1.organization_id);

2378: COMMIT;
2379:
2380: lv_res_avail:=MSC_UTIL.SYS_YES;
2381:
2382: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loaded res avail for OPM orgs : ' || c_rec1.organization_id);
2383:
2384: EXCEPTION
2385: WHEN OTHERS THEN
2386:

Line 2387: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '<>');

2383:
2384: EXCEPTION
2385: WHEN OTHERS THEN
2386:
2387: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '<>');
2388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2389: ROLLBACK WORK TO SAVEPOINT LOAD_RES_AVAIL_SP;
2390: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org : ' || c_rec1.organization_id);
2391: END;

Line 2388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);

2384: EXCEPTION
2385: WHEN OTHERS THEN
2386:
2387: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '<>');
2388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2389: ROLLBACK WORK TO SAVEPOINT LOAD_RES_AVAIL_SP;
2390: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org : ' || c_rec1.organization_id);
2391: END;
2392:

Line 2390: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org : ' || c_rec1.organization_id);

2386:
2387: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '<>');
2388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2389: ROLLBACK WORK TO SAVEPOINT LOAD_RES_AVAIL_SP;
2390: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org : ' || c_rec1.organization_id);
2391: END;
2392:
2393: IF lv_res_avail = MSC_UTIL.SYS_NO THEN
2394: c_count:= 0;

Line 2393: IF lv_res_avail = MSC_UTIL.SYS_NO THEN

2389: ROLLBACK WORK TO SAVEPOINT LOAD_RES_AVAIL_SP;
2390: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org : ' || c_rec1.organization_id);
2391: END;
2392:
2393: IF lv_res_avail = MSC_UTIL.SYS_NO THEN
2394: c_count:= 0;
2395:
2396: FOR c_rec IN c11(c_rec1.organization_id) LOOP
2397:

Line 2454: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');

2450: WHEN OTHERS THEN
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);

Line 2458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);

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:

Line 2460: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);

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:
2463: ELSE
2464:

Line 2465: MSC_CL_COLLECTION.v_warning_flag := MSC_UTIL.SYS_YES;

2461: RAISE;
2462:
2463: ELSE
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');

Line 2467: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');

2463: ELSE
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);

Line 2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);

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));

Line 2476: 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');
2480: FND_MESSAGE.SET_TOKEN('VALUE',

Line 2483: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);

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:

Line 2485: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);

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:
2488: END;
2489:

Line 2503: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loading res instance avail for OPM orgs : ' || c_rec1.organization_id);

2499: BEGIN
2500:
2501: SAVEPOINT LOAD_RES_INST_AVAIL_SP;
2502:
2503: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loading res instance avail for OPM orgs : ' || c_rec1.organization_id);
2504:
2505: lv_sql_stmt:=
2506: ' INSERT into MSC_net_res_inst_avail '
2507: ||' ( inst_transaction_id,'

Line 2571: lv_res_inst_avail:=MSC_UTIL.SYS_YES;

2567: MSC_CL_COLLECTION.v_last_collection_id;
2568:
2569: COMMIT;
2570:
2571: lv_res_inst_avail:=MSC_UTIL.SYS_YES;
2572:
2573: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loaded res instance avail for OPM orgs : ' || c_rec1.organization_id);
2574:
2575: EXCEPTION

Line 2573: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loaded res instance avail for OPM orgs : ' || c_rec1.organization_id);

2569: COMMIT;
2570:
2571: lv_res_inst_avail:=MSC_UTIL.SYS_YES;
2572:
2573: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loaded res instance avail for OPM orgs : ' || c_rec1.organization_id);
2574:
2575: EXCEPTION
2576: WHEN OTHERS THEN
2577:

Line 2578: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '<>');

2574:
2575: EXCEPTION
2576: WHEN OTHERS THEN
2577:
2578: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '<>');
2579: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2580: ROLLBACK WORK TO SAVEPOINT LOAD_RES_INST_AVAIL_SP;
2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org ' || c_rec1.organization_id);
2582: END;

Line 2579: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);

2575: EXCEPTION
2576: WHEN OTHERS THEN
2577:
2578: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '<>');
2579: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2580: ROLLBACK WORK TO SAVEPOINT LOAD_RES_INST_AVAIL_SP;
2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org ' || c_rec1.organization_id);
2582: END;
2583:

Line 2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org ' || c_rec1.organization_id);

2577:
2578: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '<>');
2579: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2580: ROLLBACK WORK TO SAVEPOINT LOAD_RES_INST_AVAIL_SP;
2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org ' || c_rec1.organization_id);
2582: END;
2583:
2584: IF lv_res_inst_avail = MSC_UTIL.SYS_NO THEN
2585:

Line 2584: IF lv_res_inst_avail = MSC_UTIL.SYS_NO THEN

2580: ROLLBACK WORK TO SAVEPOINT LOAD_RES_INST_AVAIL_SP;
2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Switching to Row-By-Row processing for org ' || c_rec1.organization_id);
2582: END;
2583:
2584: IF lv_res_inst_avail = MSC_UTIL.SYS_NO THEN
2585:
2586: c_count:= 0;
2587:
2588: FOR c_rec_resinst IN c_res_inst(c_rec1.organization_id) LOOP

Line 2653: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');

2649: WHEN OTHERS THEN
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);

Line 2657: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);

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:

Line 2659: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);

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:
2662: ELSE
2663:

Line 2664: MSC_CL_COLLECTION.v_warning_flag := MSC_UTIL.SYS_YES;

2660: RAISE;
2661:
2662: ELSE
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');

Line 2666: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');

2662: ELSE
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);

Line 2670: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);

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));

Line 2675: 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');
2679: FND_MESSAGE.SET_TOKEN('VALUE',

Line 2682: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);

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:

Line 2684: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);

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:
2687: END;
2688:

Line 2736: lv_ahl_schema := MSC_UTIL.GET_SCHEMA_NAME(867);

2732: v_current_user := FND_GLOBAL.USER_ID;
2733: v_current_login := FND_GLOBAL.LOGIN_ID;
2734: lv_plan_name := fnd_profile.VALUE ('AHL_MSC_RES_CPCTY_PLAN');
2735: LV_SOURCE_APPLICATION := 'MSC';
2736: lv_ahl_schema := MSC_UTIL.GET_SCHEMA_NAME(867);
2737:
2738: SAVEPOINT AHL;
2739:
2740: BEGIN

Line 2748: RETCODE := MSC_UTIL.G_ERROR;

2744: WHERE INSTANCE_ID = pINSTANCE_ID;
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);

Line 2752: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);

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
2756: THEN

Line 2753: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);

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
2756: THEN
2757: RAISE;

Line 2773: RETCODE := MSC_UTIL.G_ERROR;

2769:
2770: EXCEPTION
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);

Line 2776: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);

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
2780: THEN

Line 2777: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);

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
2780: THEN
2781: RAISE;

Line 2794: RETCODE := MSC_UTIL.G_WARNING;

2790: AND SR_INSTANCE_ID = pINSTANCE_ID;
2791: EXCEPTION
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);

Line 2797: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);

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
2801: THEN

Line 2798: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);

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
2801: THEN
2802: RAISE;

Line 2815: RETCODE := MSC_UTIL.G_WARNING;

2811: WHERE PLAN_ID = lv_plan_id AND SR_INSTANCE_ID = pINSTANCE_ID and rownum <2;
2812:
2813: IF V_count = 0
2814: THEN
2815: RETCODE := MSC_UTIL.G_WARNING;
2816:
2817: LOG_MESSAGE('Error::NO RECORDS for PLAN '|| lv_plan_name || '::IN TABLE MSC_NET_RESOURCE_AVAIL');
2818:
2819: END IF;

Line 2823: RETCODE := MSC_UTIL.G_WARNING;

2819: END IF;
2820:
2821: IF lv_PLAN_COMPLETION_DATE is null
2822: THEN
2823: RETCODE := MSC_UTIL.G_WARNING;
2824:
2825: LOG_MESSAGE('Error::For The Plan PLAN '|| lv_plan_name || '::PLAN_COMPLETION_DATE is Null In TABLE MSC_PLANS');
2826:
2827: END IF;

Line 2926: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');

2922: COMMIT;
2923: EXCEPTION
2924: WHEN OTHERS
2925: THEN
2926: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
2927: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,
2928: DBMS_UTILITY.FORMAT_ERROR_STACK);
2929: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...');
2930: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,

Line 2927: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,

2923: EXCEPTION
2924: WHEN OTHERS
2925: THEN
2926: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
2927: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,
2928: DBMS_UTILITY.FORMAT_ERROR_STACK);
2929: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...');
2930: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,
2931: DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

Line 2929: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...');

2925: THEN
2926: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
2927: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,
2928: DBMS_UTILITY.FORMAT_ERROR_STACK);
2929: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...');
2930: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,
2931: DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
2932: ROLLBACK TO SAVEPOINT AHL;
2933: RETCODE := MSC_UTIL.G_ERROR;

Line 2930: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,

2926: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
2927: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,
2928: DBMS_UTILITY.FORMAT_ERROR_STACK);
2929: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...');
2930: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,
2931: DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
2932: ROLLBACK TO SAVEPOINT AHL;
2933: RETCODE := MSC_UTIL.G_ERROR;
2934:

Line 2933: RETCODE := MSC_UTIL.G_ERROR;

2929: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...');
2930: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR,
2931: DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
2932: ROLLBACK TO SAVEPOINT AHL;
2933: RETCODE := MSC_UTIL.G_ERROR;
2934:
2935: LOG_MESSAGE('Error::('|| to_char(v_stmt) || ')::' ||
2936: to_char(sqlcode) ||':'|| substr(sqlerrm,1,60));
2937: