846: IF (fnd_conc_global.request_data IS NULL) THEN
847:
848: -- Log
849: IF (p_debug_flag = 'Y' AND
850: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
852: 'Start:' || 'p_num_workers=' || p_num_workers ||
853: ',p_debug_flag=' || p_debug_flag);
854: END IF;
847:
848: -- Log
849: IF (p_debug_flag = 'Y' AND
850: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
852: 'Start:' || 'p_num_workers=' || p_num_workers ||
853: ',p_debug_flag=' || p_debug_flag);
854: END IF;
855:
886: -- Initialize end ID value
887: l_end_id := l_start_id + l_rows_per_worker;
888:
889: IF (p_debug_flag = 'Y' AND
890: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
892: 'Submitting child:' || 'Worker ID=' || i ||
893: ' ,Start ID =' || l_start_id ||
894: ',End ID =' || l_end_id);
887: l_end_id := l_start_id + l_rows_per_worker;
888:
889: IF (p_debug_flag = 'Y' AND
890: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
892: 'Submitting child:' || 'Worker ID=' || i ||
893: ' ,Start ID =' || l_start_id ||
894: ',End ID =' || l_end_id);
895: END IF;
1039: ELSE
1040:
1041: -- Log
1042: IF (p_debug_flag = 'Y' AND
1043: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1045: 'Re-entering:' || 'p_num_workers=' || p_num_workers ||
1046: ',p_debug_flag='||p_debug_flag);
1047: END IF;
1040:
1041: -- Log
1042: IF (p_debug_flag = 'Y' AND
1043: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1045: 'Re-entering:' || 'p_num_workers=' || p_num_workers ||
1046: ',p_debug_flag='||p_debug_flag);
1047: END IF;
1048:
1051: retcode := 0;
1052:
1053: -- Log
1054: IF (p_debug_flag = 'Y' AND
1055: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1057: 'Done:' || 'p_num_workers=' || p_num_workers ||
1058: ',p_debug_flag='||p_debug_flag);
1059: END IF;
1052:
1053: -- Log
1054: IF (p_debug_flag = 'Y' AND
1055: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1057: 'Done:' || 'p_num_workers=' || p_num_workers ||
1058: ',p_debug_flag='||p_debug_flag);
1059: END IF;
1060:
1064:
1065: WHEN OTHERS THEN
1066: ROLLBACK;
1067:
1068: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1069:
1070: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1071: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1072: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1070: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1071: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1072: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1073: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1074: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
1075: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1076: l_api_name||':'||sqlcode||':'||sqlerrm);
1077: END IF;
1078:
1071: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1072: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1073: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1074: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
1075: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1076: l_api_name||':'||sqlcode||':'||sqlerrm);
1077: END IF;
1078:
1079: END update_accesses_Main;
1325: IF (fnd_conc_global.request_data IS NULL) THEN
1326:
1327: -- Log
1328: IF (p_debug_flag = 'Y' AND
1329: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1331: 'Start:' || 'p_num_workers=' || p_num_workers ||
1332: ',p_debug_flag=' || p_debug_flag);
1333: END IF;
1326:
1327: -- Log
1328: IF (p_debug_flag = 'Y' AND
1329: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1331: 'Start:' || 'p_num_workers=' || p_num_workers ||
1332: ',p_debug_flag=' || p_debug_flag);
1333: END IF;
1334:
1366: l_end_id := l_start_id + l_rows_per_worker;
1367:
1368:
1369: IF (p_debug_flag = 'Y' AND
1370: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1371: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1372: 'Submitting child:' || 'Worker ID=' || i ||
1373: ' ,Start ID =' || l_start_id ||
1374: ',End ID =' || l_end_id);
1367:
1368:
1369: IF (p_debug_flag = 'Y' AND
1370: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1371: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1372: 'Submitting child:' || 'Worker ID=' || i ||
1373: ' ,Start ID =' || l_start_id ||
1374: ',End ID =' || l_end_id);
1375: END IF;
1517: ELSE
1518:
1519: -- Log
1520: IF (p_debug_flag = 'Y' AND
1521: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1522: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1523: 'Re-entering:' || 'p_num_workers=' || p_num_workers ||
1524: ',p_debug_flag='||p_debug_flag);
1525: END IF;
1518:
1519: -- Log
1520: IF (p_debug_flag = 'Y' AND
1521: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1522: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1523: 'Re-entering:' || 'p_num_workers=' || p_num_workers ||
1524: ',p_debug_flag='||p_debug_flag);
1525: END IF;
1526:
1529: retcode := 0;
1530:
1531: -- Log
1532: IF (p_debug_flag = 'Y' AND
1533: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1534: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1535: 'Done:' || 'p_num_workers=' || p_num_workers ||
1536: ',p_debug_flag='||p_debug_flag);
1537: END IF;
1530:
1531: -- Log
1532: IF (p_debug_flag = 'Y' AND
1533: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1534: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1535: 'Done:' || 'p_num_workers=' || p_num_workers ||
1536: ',p_debug_flag='||p_debug_flag);
1537: END IF;
1538:
1542:
1543: WHEN OTHERS THEN
1544: ROLLBACK;
1545:
1546: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1547:
1548: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1549: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1550: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1548: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1549: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1550: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1551: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1552: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
1553: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1554: l_api_name||':'||sqlcode||':'||sqlerrm);
1555: END IF;
1556:
1549: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1550: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1551: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1552: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
1553: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1554: l_api_name||':'||sqlcode||':'||sqlerrm);
1555: END IF;
1556:
1557: END update_leads_Main;
1777: IF (fnd_conc_global.request_data IS NULL) THEN
1778:
1779: -- Log
1780: IF (p_debug_flag = 'Y' AND
1781: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1783: 'Start:' || 'p_num_workers=' || p_num_workers ||
1784: ',p_debug_flag=' || p_debug_flag);
1785: END IF;
1778:
1779: -- Log
1780: IF (p_debug_flag = 'Y' AND
1781: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1783: 'Start:' || 'p_num_workers=' || p_num_workers ||
1784: ',p_debug_flag=' || p_debug_flag);
1785: END IF;
1786:
1817: -- Initialize end ID value
1818: l_end_id := l_start_id + l_rows_per_worker;
1819:
1820: IF (p_debug_flag = 'Y' AND
1821: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1822: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1823: 'Submitting child:' || 'Worker ID=' || i ||
1824: ' ,Start ID =' || l_start_id ||
1825: ',End ID =' || l_end_id);
1818: l_end_id := l_start_id + l_rows_per_worker;
1819:
1820: IF (p_debug_flag = 'Y' AND
1821: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1822: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1823: 'Submitting child:' || 'Worker ID=' || i ||
1824: ' ,Start ID =' || l_start_id ||
1825: ',End ID =' || l_end_id);
1826: END IF;
1968: ELSE
1969:
1970: -- Log
1971: IF (p_debug_flag = 'Y' AND
1972: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1973: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1974: ' Re-entering:' || 'p_num_workers=' || p_num_workers ||
1975: ',p_debug_flag='||p_debug_flag);
1976:
1969:
1970: -- Log
1971: IF (p_debug_flag = 'Y' AND
1972: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1973: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1974: ' Re-entering:' || 'p_num_workers=' || p_num_workers ||
1975: ',p_debug_flag='||p_debug_flag);
1976:
1977: END IF;
1981: retcode := 0;
1982:
1983: -- Log
1984: IF (p_debug_flag = 'Y' AND
1985: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1986: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1987: 'Done:' || 'p_num_workers=' || p_num_workers ||
1988: ',p_debug_flag='||p_debug_flag);
1989: END IF;
1982:
1983: -- Log
1984: IF (p_debug_flag = 'Y' AND
1985: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1986: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1987: 'Done:' || 'p_num_workers=' || p_num_workers ||
1988: ',p_debug_flag='||p_debug_flag);
1989: END IF;
1990:
1994:
1995: WHEN OTHERS THEN
1996: ROLLBACK;
1997:
1998: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1999:
2000: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2001: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2002: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2000: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2001: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2002: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2003: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2004: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
2005: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2006: l_api_name||':'||sqlcode||':'||sqlerrm);
2007: END IF;
2008:
2001: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2002: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2003: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2004: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
2005: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2006: l_api_name||':'||sqlcode||':'||sqlerrm);
2007: END IF;
2008:
2009: END update_oppty_Main;