DBA Data[Home] [Help]

APPS.PON_NEGOTIATION_PUBLISH_PVT dependencies on FND_LOG

Line 239: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN

235: END IF;
236: EXCEPTION
237: WHEN OTHERS THEN
238:
239: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
240: FND_LOG.string (log_level => FND_LOG.level_exception,
241: module => g_module_prefix || 'VALIDATE_PROJECTS_DETAILS',
242: message => 'Exception occured validate_projects_details'
243: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200));

Line 240: FND_LOG.string (log_level => FND_LOG.level_exception,

236: EXCEPTION
237: WHEN OTHERS THEN
238:
239: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
240: FND_LOG.string (log_level => FND_LOG.level_exception,
241: module => g_module_prefix || 'VALIDATE_PROJECTS_DETAILS',
242: message => 'Exception occured validate_projects_details'
243: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200));
244: END IF;

Line 271: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

267: l_price_tiers_indicator PON_AUCTION_HEADERS_ALL.PRICE_TIERS_INDICATOR%TYPE;
268:
269: BEGIN
270:
271: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
272: FND_LOG.string(log_level => FND_LOG.level_procedure,
273: module => g_module_prefix || 'val_item_prices_all',
274: message => 'Entering PON_NEGOTIATION_HELPER_PVT.val_item_prices_all'
275: || ', p_auction_header_id = ' || p_auction_header_id

Line 272: FND_LOG.string(log_level => FND_LOG.level_procedure,

268:
269: BEGIN
270:
271: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
272: FND_LOG.string(log_level => FND_LOG.level_procedure,
273: module => g_module_prefix || 'val_item_prices_all',
274: message => 'Entering PON_NEGOTIATION_HELPER_PVT.val_item_prices_all'
275: || ', p_auction_header_id = ' || p_auction_header_id
276: || ', p_expiration_date = ' || p_expiration_date

Line 1496: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

1492: PON_AUCTION_ITEM_PRICES_ALL
1493: WHERE
1494: AUCTION_HEADER_ID = p_auction_header_id;
1495:
1496: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
1497: FND_LOG.string(log_level => FND_LOG.level_procedure,
1498: module => g_module_prefix || 'val_item_prices_all',
1499: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.val_item_prices_all'
1500: || ', p_auction_header_id = ' || p_auction_header_id);

Line 1497: FND_LOG.string(log_level => FND_LOG.level_procedure,

1493: WHERE
1494: AUCTION_HEADER_ID = p_auction_header_id;
1495:
1496: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
1497: FND_LOG.string(log_level => FND_LOG.level_procedure,
1498: module => g_module_prefix || 'val_item_prices_all',
1499: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.val_item_prices_all'
1500: || ', p_auction_header_id = ' || p_auction_header_id);
1501: END IF; --}

Line 1536: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --

1532: l_temp NUMBER;
1533: l_temp_fnd NUMBER;
1534: BEGIN
1535:
1536: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --
1537: FND_LOG.string(log_level => FND_LOG.level_procedure,
1538: module => g_module_prefix || 'val_item_prices_po_lines',
1539: message => 'Entering PON_NEGOTIATION_HELPER_PV.val_item_prices_po_lines'
1540: || ', p_auction_header_id = ' || p_auction_header_id);

Line 1537: FND_LOG.string(log_level => FND_LOG.level_procedure,

1533: l_temp_fnd NUMBER;
1534: BEGIN
1535:
1536: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --
1537: FND_LOG.string(log_level => FND_LOG.level_procedure,
1538: module => g_module_prefix || 'val_item_prices_po_lines',
1539: message => 'Entering PON_NEGOTIATION_HELPER_PV.val_item_prices_po_lines'
1540: || ', p_auction_header_id = ' || p_auction_header_id);
1541: END IF; --

Line 1903: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

1899: WHERE
1900: PAIP.AUCTION_HEADER_ID = p_auction_header_id AND
1901: PLTB.LINE_TYPE_ID = PAIP.LINE_TYPE_ID;
1902:
1903: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
1904: FND_LOG.string(log_level => FND_LOG.level_procedure,
1905: module => g_module_prefix || 'val_item_prices_po_lines',
1906: message => 'Returning PON_NEGOTIATION_HELPER_PVT.val_item_prices_po_lines'
1907: || ', p_auction_header_id = ' || p_auction_header_id);

Line 1904: FND_LOG.string(log_level => FND_LOG.level_procedure,

1900: PAIP.AUCTION_HEADER_ID = p_auction_header_id AND
1901: PLTB.LINE_TYPE_ID = PAIP.LINE_TYPE_ID;
1902:
1903: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
1904: FND_LOG.string(log_level => FND_LOG.level_procedure,
1905: module => g_module_prefix || 'val_item_prices_po_lines',
1906: message => 'Returning PON_NEGOTIATION_HELPER_PVT.val_item_prices_po_lines'
1907: || ', p_auction_header_id = ' || p_auction_header_id);
1908: END IF; --}

Line 1929: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

1925: ) IS
1926:
1927: l_doctype_suffix VARCHAR2(10);
1928: BEGIN
1929: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
1930: FND_LOG.string(log_level => FND_LOG.level_procedure,
1931: module => g_module_prefix || 'VAL_LINE_AMOUNT_MULTI_CURR',
1932: message => 'Entering PON_NEGOTIATION_HELPER_PVT.VAL_LINE_AMOUNT_MULTI_CURR'
1933: || ', p_auction_header_id = ' || p_auction_header_id);

Line 1930: FND_LOG.string(log_level => FND_LOG.level_procedure,

1926:
1927: l_doctype_suffix VARCHAR2(10);
1928: BEGIN
1929: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
1930: FND_LOG.string(log_level => FND_LOG.level_procedure,
1931: module => g_module_prefix || 'VAL_LINE_AMOUNT_MULTI_CURR',
1932: message => 'Entering PON_NEGOTIATION_HELPER_PVT.VAL_LINE_AMOUNT_MULTI_CURR'
1933: || ', p_auction_header_id = ' || p_auction_header_id);
1934: END IF; --}

Line 1971: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

1967: PLTB.ORDER_TYPE_LOOKUP_CODE = g_amount AND
1968: ROWNUM =1;
1969: END IF; --}
1970:
1971: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
1972: FND_LOG.string(log_level => FND_LOG.level_procedure,
1973: module => g_module_prefix || 'VAL_LINE_AMOUNT_MULTI_CURR',
1974: message => 'Returning PON_NEGOTIATION_HELPER_PVT.VAL_LINE_AMOUNT_MULTI_CURR'
1975: || ', p_auction_header_id = ' || p_auction_header_id);

Line 1972: FND_LOG.string(log_level => FND_LOG.level_procedure,

1968: ROWNUM =1;
1969: END IF; --}
1970:
1971: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
1972: FND_LOG.string(log_level => FND_LOG.level_procedure,
1973: module => g_module_prefix || 'VAL_LINE_AMOUNT_MULTI_CURR',
1974: message => 'Returning PON_NEGOTIATION_HELPER_PVT.VAL_LINE_AMOUNT_MULTI_CURR'
1975: || ', p_auction_header_id = ' || p_auction_header_id);
1976: END IF; --}

Line 2003: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

1999: p_full_quantity_bid_code IN VARCHAR2,
2000: p_bid_ranking IN VARCHAR2
2001: ) IS
2002: BEGIN
2003: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2004: FND_LOG.string(log_level => FND_LOG.level_procedure,
2005: module => g_module_prefix || 'VAL_ATTRIBUTES',
2006: message => 'Entering procedure'
2007: || ', p_auction_header_id = ' || p_auction_header_id);

Line 2004: FND_LOG.string(log_level => FND_LOG.level_procedure,

2000: p_bid_ranking IN VARCHAR2
2001: ) IS
2002: BEGIN
2003: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2004: FND_LOG.string(log_level => FND_LOG.level_procedure,
2005: module => g_module_prefix || 'VAL_ATTRIBUTES',
2006: message => 'Entering procedure'
2007: || ', p_auction_header_id = ' || p_auction_header_id);
2008: END IF; --}

Line 2336: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

2332: PAA.AUCTION_HEADER_ID = p_auction_header_id AND
2333: PAIP.LINE_NUMBER = PAA.LINE_NUMBER AND
2334: PAA.ATTR_LEVEL = 'LINE';
2335:
2336: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2337: FND_LOG.string(log_level => FND_LOG.level_procedure,
2338: module => g_module_prefix || 'VAL_ATTRIBUTES',
2339: message => 'Leaving procedure'
2340: || ', p_auction_header_id = ' || p_auction_header_id);

Line 2337: FND_LOG.string(log_level => FND_LOG.level_procedure,

2333: PAIP.LINE_NUMBER = PAA.LINE_NUMBER AND
2334: PAA.ATTR_LEVEL = 'LINE';
2335:
2336: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2337: FND_LOG.string(log_level => FND_LOG.level_procedure,
2338: module => g_module_prefix || 'VAL_ATTRIBUTES',
2339: message => 'Leaving procedure'
2340: || ', p_auction_header_id = ' || p_auction_header_id);
2341: END IF; --}

Line 2359: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

2355: p_login_id IN NUMBER,
2356: p_batch_id IN NUMBER
2357: ) IS
2358: BEGIN
2359: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2360: FND_LOG.string(log_level => FND_LOG.level_procedure,
2361: module => g_module_prefix || 'VAL_ATTR_NAME_UNIQUE',
2362: message => 'Entering PON_NEGOTIATION_HELPER_PVT.VAL_ATTR_NAME_UNIQUE'
2363: || ', p_auction_header_id = ' || p_auction_header_id);

Line 2360: FND_LOG.string(log_level => FND_LOG.level_procedure,

2356: p_batch_id IN NUMBER
2357: ) IS
2358: BEGIN
2359: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2360: FND_LOG.string(log_level => FND_LOG.level_procedure,
2361: module => g_module_prefix || 'VAL_ATTR_NAME_UNIQUE',
2362: message => 'Entering PON_NEGOTIATION_HELPER_PVT.VAL_ATTR_NAME_UNIQUE'
2363: || ', p_auction_header_id = ' || p_auction_header_id);
2364: END IF; --}

Line 2398: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

2394: AUCTION_HEADER_ID=p_auction_header_id
2395: GROUP by AUCTION_HEADER_ID, LINE_NUMBER, attribute_name
2396: HAVING count(LINE_NUMBER) > 1;
2397:
2398: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2399: FND_LOG.string(log_level => FND_LOG.level_procedure,
2400: module => g_module_prefix || 'VAL_ATTR_NAME_UNIQUE',
2401: message => 'Returning PON_NEGOTIATION_HELPER_PVT.VAL_ATTR_NAME_UNIQUE'
2402: || ', p_auction_header_id = ' || p_auction_header_id);

Line 2399: FND_LOG.string(log_level => FND_LOG.level_procedure,

2395: GROUP by AUCTION_HEADER_ID, LINE_NUMBER, attribute_name
2396: HAVING count(LINE_NUMBER) > 1;
2397:
2398: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2399: FND_LOG.string(log_level => FND_LOG.level_procedure,
2400: module => g_module_prefix || 'VAL_ATTR_NAME_UNIQUE',
2401: message => 'Returning PON_NEGOTIATION_HELPER_PVT.VAL_ATTR_NAME_UNIQUE'
2402: || ', p_auction_header_id = ' || p_auction_header_id);
2403: END IF; --}

Line 2420: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

2416: p_login_id IN NUMBER,
2417: p_batch_id IN NUMBER
2418: ) IS
2419: BEGIN
2420: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2421: FND_LOG.string(log_level => FND_LOG.level_procedure,
2422: module => g_module_prefix || 'VAL_ATTR_SCORES',
2423: message => 'Entering PON_NEGOTIATION_HELPER_PVT.VAL_ATTR_SCORES'
2424: || ', p_auction_header_id = ' || p_auction_header_id);

Line 2421: FND_LOG.string(log_level => FND_LOG.level_procedure,

2417: p_batch_id IN NUMBER
2418: ) IS
2419: BEGIN
2420: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2421: FND_LOG.string(log_level => FND_LOG.level_procedure,
2422: module => g_module_prefix || 'VAL_ATTR_SCORES',
2423: message => 'Entering PON_NEGOTIATION_HELPER_PVT.VAL_ATTR_SCORES'
2424: || ', p_auction_header_id = ' || p_auction_header_id);
2425: END IF; --}

Line 2499: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

2495: WHERE
2496: AUCTION_HEADER_ID = p_auction_header_id AND
2497: LINE_NUMBER > 0;
2498:
2499: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2500: FND_LOG.string(log_level => FND_LOG.level_procedure,
2501: module => g_module_prefix || 'VAL_ATTR_SCORES',
2502: message => 'Returning PON_NEGOTIATION_HELPER_PVT.VAL_ATTR_SCORES'
2503: || ', p_auction_header_id = ' || p_auction_header_id);

Line 2500: FND_LOG.string(log_level => FND_LOG.level_procedure,

2496: AUCTION_HEADER_ID = p_auction_header_id AND
2497: LINE_NUMBER > 0;
2498:
2499: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2500: FND_LOG.string(log_level => FND_LOG.level_procedure,
2501: module => g_module_prefix || 'VAL_ATTR_SCORES',
2502: message => 'Returning PON_NEGOTIATION_HELPER_PVT.VAL_ATTR_SCORES'
2503: || ', p_auction_header_id = ' || p_auction_header_id);
2504: END IF; --}

Line 2542: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

2538:
2539: l_temp NUMBER;
2540: BEGIN
2541:
2542: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2543: FND_LOG.string(log_level => FND_LOG.level_procedure,
2544: module => g_module_prefix || 'VAL_PRICE_BREAKS',
2545: message => 'Entering Procedure' || ', p_auction_header_id = ' || p_auction_header_id);
2546: END IF; --}

Line 2543: FND_LOG.string(log_level => FND_LOG.level_procedure,

2539: l_temp NUMBER;
2540: BEGIN
2541:
2542: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
2543: FND_LOG.string(log_level => FND_LOG.level_procedure,
2544: module => g_module_prefix || 'VAL_PRICE_BREAKS',
2545: message => 'Entering Procedure' || ', p_auction_header_id = ' || p_auction_header_id);
2546: END IF; --}
2547:

Line 3071: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

3067: PAIP.AUCTION_HEADER_ID = p_auction_header_id AND
3068: PASA.AUCTION_HEADER_ID = p_auction_header_id AND
3069: PAIP.LINE_NUMBER = PASA.LINE_NUMBER;
3070:
3071: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3072: FND_LOG.string(log_level => FND_LOG.level_procedure,
3073: module => g_module_prefix || 'VAL_PRICE_BREAKS',
3074: message => 'Leaving procedure');
3075: END IF; --}

Line 3072: FND_LOG.string(log_level => FND_LOG.level_procedure,

3068: PASA.AUCTION_HEADER_ID = p_auction_header_id AND
3069: PAIP.LINE_NUMBER = PASA.LINE_NUMBER;
3070:
3071: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3072: FND_LOG.string(log_level => FND_LOG.level_procedure,
3073: module => g_module_prefix || 'VAL_PRICE_BREAKS',
3074: message => 'Leaving procedure');
3075: END IF; --}
3076:

Line 3102: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

3098:
3099: l_temp NUMBER;
3100: BEGIN
3101:
3102: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3103: FND_LOG.string(log_level => FND_LOG.level_procedure,
3104: module => g_module_prefix || 'VAL_QTY_BASED_PRICE_TIERS',
3105: message => 'Entering Procedure' || ', p_auction_header_id = ' || p_auction_header_id);
3106: END IF; --}

Line 3103: FND_LOG.string(log_level => FND_LOG.level_procedure,

3099: l_temp NUMBER;
3100: BEGIN
3101:
3102: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3103: FND_LOG.string(log_level => FND_LOG.level_procedure,
3104: module => g_module_prefix || 'VAL_QTY_BASED_PRICE_TIERS',
3105: message => 'Entering Procedure' || ', p_auction_header_id = ' || p_auction_header_id);
3106: END IF; --}
3107:

Line 3369: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

3365: PAIP.AUCTION_HEADER_ID = p_auction_header_id AND
3366: PASA.AUCTION_HEADER_ID = p_auction_header_id AND
3367: PAIP.LINE_NUMBER = PASA.LINE_NUMBER;
3368:
3369: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3370: FND_LOG.string(log_level => FND_LOG.level_procedure,
3371: module => g_module_prefix || 'VAL_PRICE_BREAKS',
3372: message => 'Leaving procedure');
3373: END IF; --}

Line 3370: FND_LOG.string(log_level => FND_LOG.level_procedure,

3366: PASA.AUCTION_HEADER_ID = p_auction_header_id AND
3367: PAIP.LINE_NUMBER = PASA.LINE_NUMBER;
3368:
3369: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3370: FND_LOG.string(log_level => FND_LOG.level_procedure,
3371: module => g_module_prefix || 'VAL_PRICE_BREAKS',
3372: message => 'Leaving procedure');
3373: END IF; --}
3374:

Line 3429: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

3425: p_login_id IN NUMBER,
3426: p_batch_id IN NUMBER
3427: ) IS
3428: BEGIN
3429: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3430: FND_LOG.string(log_level => FND_LOG.level_procedure,
3431: module => g_module_prefix || 'VAL_PD_UNIQUE',
3432: message => 'Entering procedure' || ', p_auction_header_id = ' || p_auction_header_id);
3433: END IF; --}

Line 3430: FND_LOG.string(log_level => FND_LOG.level_procedure,

3426: p_batch_id IN NUMBER
3427: ) IS
3428: BEGIN
3429: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3430: FND_LOG.string(log_level => FND_LOG.level_procedure,
3431: module => g_module_prefix || 'VAL_PD_UNIQUE',
3432: message => 'Entering procedure' || ', p_auction_header_id = ' || p_auction_header_id);
3433: END IF; --}
3434:

Line 3519: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

3515: PAS.SHIPMENT_NUMBER
3516: HAVING
3517: COUNT(PPD.LINE_NUMBER) > 1;
3518:
3519: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3520: FND_LOG.string(log_level => FND_LOG.level_procedure,
3521: module => g_module_prefix || 'VAL_PD_UNIQUE',
3522: message => 'Leaving procedure');
3523: END IF; --}

Line 3520: FND_LOG.string(log_level => FND_LOG.level_procedure,

3516: HAVING
3517: COUNT(PPD.LINE_NUMBER) > 1;
3518:
3519: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3520: FND_LOG.string(log_level => FND_LOG.level_procedure,
3521: module => g_module_prefix || 'VAL_PD_UNIQUE',
3522: message => 'Leaving procedure');
3523: END IF; --}
3524: END VAL_PD_UNIQUE;

Line 3543: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

3539: p_login_id IN NUMBER,
3540: p_batch_id IN NUMBER
3541: ) IS
3542: BEGIN
3543: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3544: FND_LOG.string(log_level => FND_LOG.level_procedure,
3545: module => g_module_prefix || 'VAL_PRICE_DIFFERENTIALS',
3546: message => 'Entering procedure' || ', p_auction_header_id = ' || p_auction_header_id);
3547: END IF; --}

Line 3544: FND_LOG.string(log_level => FND_LOG.level_procedure,

3540: p_batch_id IN NUMBER
3541: ) IS
3542: BEGIN
3543: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3544: FND_LOG.string(log_level => FND_LOG.level_procedure,
3545: module => g_module_prefix || 'VAL_PRICE_DIFFERENTIALS',
3546: message => 'Entering procedure' || ', p_auction_header_id = ' || p_auction_header_id);
3547: END IF; --}
3548:

Line 3741: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

3737: PASA.LINE_NUMBER = PPD.LINE_NUMBER AND
3738: PPDL.PRICE_DIFFERENTIAL_TYPE = PPD.PRICE_TYPE AND
3739: PASA.SHIPMENT_NUMBER = PPD.SHIPMENT_NUMBER;
3740:
3741: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3742: FND_LOG.string(log_level => FND_LOG.level_procedure,
3743: module => g_module_prefix || 'VAL_PRICE_DIFFERENTIALS',
3744: message => 'Leaving procedure');
3745: END IF; --}

Line 3742: FND_LOG.string(log_level => FND_LOG.level_procedure,

3738: PPDL.PRICE_DIFFERENTIAL_TYPE = PPD.PRICE_TYPE AND
3739: PASA.SHIPMENT_NUMBER = PPD.SHIPMENT_NUMBER;
3740:
3741: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3742: FND_LOG.string(log_level => FND_LOG.level_procedure,
3743: module => g_module_prefix || 'VAL_PRICE_DIFFERENTIALS',
3744: message => 'Leaving procedure');
3745: END IF; --}
3746: END VAL_PRICE_DIFFERENTIALS;

Line 3778: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

3774: l_temp_fnd NUMBER;
3775: l_doctype_suffix VARCHAR2(10);
3776: BEGIN
3777:
3778: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3779: FND_LOG.string(log_level => FND_LOG.level_procedure,
3780: module => g_module_prefix || 'VAL_PRICE_ELEMENTS',
3781: message => 'Entering procedure with:' || ' p_auction_header_id = ' || p_auction_header_id ||
3782: ', p_trading_partner_id = ' || p_trading_partner_id);

Line 3779: FND_LOG.string(log_level => FND_LOG.level_procedure,

3775: l_doctype_suffix VARCHAR2(10);
3776: BEGIN
3777:
3778: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
3779: FND_LOG.string(log_level => FND_LOG.level_procedure,
3780: module => g_module_prefix || 'VAL_PRICE_ELEMENTS',
3781: message => 'Entering procedure with:' || ' p_auction_header_id = ' || p_auction_header_id ||
3782: ', p_trading_partner_id = ' || p_trading_partner_id);
3783: END IF; --}

Line 4106: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

4102: PPE.PRICE_ELEMENT_TYPE_ID = PPETL.PRICE_ELEMENT_TYPE_ID(+) AND
4103: PPE.PRICE_ELEMENT_TYPE_ID = PPET.PRICE_ELEMENT_TYPE_ID(+) AND
4104: PPETL.LANGUAGE(+) = USERENV ('LANG');
4105:
4106: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4107: FND_LOG.string(log_level => FND_LOG.level_procedure,
4108: module => g_module_prefix || 'VAL_PRICE_ELEMENTS',
4109: message => 'Leaving procedure');
4110: END IF; --}

Line 4107: FND_LOG.string(log_level => FND_LOG.level_procedure,

4103: PPE.PRICE_ELEMENT_TYPE_ID = PPET.PRICE_ELEMENT_TYPE_ID(+) AND
4104: PPETL.LANGUAGE(+) = USERENV ('LANG');
4105:
4106: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4107: FND_LOG.string(log_level => FND_LOG.level_procedure,
4108: module => g_module_prefix || 'VAL_PRICE_ELEMENTS',
4109: message => 'Leaving procedure');
4110: END IF; --}
4111: END VAL_PRICE_ELEMENTS;

Line 4127: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

4123: p_login_id IN NUMBER,
4124: p_batch_id IN NUMBER
4125: ) IS
4126: BEGIN
4127: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4128: FND_LOG.string(log_level => FND_LOG.level_procedure,
4129: module => g_module_prefix || 'VAL_PE_UNIQUE',
4130: message => 'Entering PON_NEGOTIATION_HELPER_PVT.VAL_PE_UNIQUE'
4131: || ', p_auction_header_id = ' || p_auction_header_id);

Line 4128: FND_LOG.string(log_level => FND_LOG.level_procedure,

4124: p_batch_id IN NUMBER
4125: ) IS
4126: BEGIN
4127: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4128: FND_LOG.string(log_level => FND_LOG.level_procedure,
4129: module => g_module_prefix || 'VAL_PE_UNIQUE',
4130: message => 'Entering PON_NEGOTIATION_HELPER_PVT.VAL_PE_UNIQUE'
4131: || ', p_auction_header_id = ' || p_auction_header_id);
4132: END IF; --}

Line 4179: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

4175: PPETL.NAME
4176: HAVING
4177: COUNT (PPE.LINE_NUMBER) > 1;
4178:
4179: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4180: FND_LOG.string(log_level => FND_LOG.level_procedure,
4181: module => g_module_prefix || 'VAL_PE_UNIQUE',
4182: message => 'Leaving procedure');
4183: END IF; --}

Line 4180: FND_LOG.string(log_level => FND_LOG.level_procedure,

4176: HAVING
4177: COUNT (PPE.LINE_NUMBER) > 1;
4178:
4179: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4180: FND_LOG.string(log_level => FND_LOG.level_procedure,
4181: module => g_module_prefix || 'VAL_PE_UNIQUE',
4182: message => 'Leaving procedure');
4183: END IF; --}
4184: END VAL_PE_UNIQUE;

Line 4199: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

4195: ) IS
4196:
4197: l_major_line_count NUMBER;
4198: BEGIN
4199: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4200: FND_LOG.string(log_level => FND_LOG.level_procedure,
4201: module => g_module_prefix || 'VAL_PARTY_EXCLUSIONS',
4202: message => 'Entering Procedure' || ', p_auction_header_id = ' || p_auction_header_id);
4203: END IF; --}

Line 4200: FND_LOG.string(log_level => FND_LOG.level_procedure,

4196:
4197: l_major_line_count NUMBER;
4198: BEGIN
4199: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4200: FND_LOG.string(log_level => FND_LOG.level_procedure,
4201: module => g_module_prefix || 'VAL_PARTY_EXCLUSIONS',
4202: message => 'Entering Procedure' || ', p_auction_header_id = ' || p_auction_header_id);
4203: END IF; --}
4204:

Line 4253: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

4249: pple.trading_partner_id = pbp.trading_partner_id AND
4250: pple.vendor_site_id = pbp.vendor_site_id AND
4251: pple.auction_header_id = p_auction_header_id) = l_major_line_count;
4252:
4253: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4254: FND_LOG.string(log_level => FND_LOG.level_procedure,
4255: module => g_module_prefix || 'VAL_PARTY_EXCLUSIONS',
4256: message => 'Leaving Procedure');
4257: END IF; --}

Line 4254: FND_LOG.string(log_level => FND_LOG.level_procedure,

4250: pple.vendor_site_id = pbp.vendor_site_id AND
4251: pple.auction_header_id = p_auction_header_id) = l_major_line_count;
4252:
4253: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4254: FND_LOG.string(log_level => FND_LOG.level_procedure,
4255: module => g_module_prefix || 'VAL_PARTY_EXCLUSIONS',
4256: message => 'Leaving Procedure');
4257: END IF; --}
4258:

Line 4270: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

4266: p_login_id IN NUMBER,
4267: p_batch_id IN NUMBER
4268: ) IS
4269: BEGIN
4270: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4271: FND_LOG.string(log_level => FND_LOG.level_procedure,
4272: module => g_module_prefix || 'VAL_LINE_REF_DATA',
4273: message => 'Entering Procedure p_auction_header_id = ' || p_auction_header_id);
4274: END IF; --}

Line 4271: FND_LOG.string(log_level => FND_LOG.level_procedure,

4267: p_batch_id IN NUMBER
4268: ) IS
4269: BEGIN
4270: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4271: FND_LOG.string(log_level => FND_LOG.level_procedure,
4272: module => g_module_prefix || 'VAL_LINE_REF_DATA',
4273: message => 'Entering Procedure p_auction_header_id = ' || p_auction_header_id);
4274: END IF; --}
4275: INSERT ALL

Line 4760: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

4756: PSA.AUCTION_HEADER_ID = P_AUCTION_HEADER_ID AND
4757: PAIP.AUCTION_HEADER_ID = P_AUCTION_HEADER_ID AND
4758: PSA.LINE_NUMBER = PAIP.LINE_NUMBER;
4759:
4760: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4761: FND_LOG.string(log_level => FND_LOG.level_procedure,
4762: module => g_module_prefix || 'VAL_LINE_REF_DATA',
4763: message => 'Leaving Procedure');
4764: END IF; --}

Line 4761: FND_LOG.string(log_level => FND_LOG.level_procedure,

4757: PAIP.AUCTION_HEADER_ID = P_AUCTION_HEADER_ID AND
4758: PSA.LINE_NUMBER = PAIP.LINE_NUMBER;
4759:
4760: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4761: FND_LOG.string(log_level => FND_LOG.level_procedure,
4762: module => g_module_prefix || 'VAL_LINE_REF_DATA',
4763: message => 'Leaving Procedure');
4764: END IF; --}
4765:

Line 4781: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

4777:
4778: l_outside_flag NUMBER;
4779: BEGIN
4780:
4781: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4782: FND_LOG.string(log_level => FND_LOG.level_procedure,
4783: module => g_module_prefix || 'VAL_OUTSIDE_FLAG_EXISTS',
4784: message => 'Entering Procedure p_auction_header_id = ' || p_auction_header_id);
4785: END IF; --}

Line 4782: FND_LOG.string(log_level => FND_LOG.level_procedure,

4778: l_outside_flag NUMBER;
4779: BEGIN
4780:
4781: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4782: FND_LOG.string(log_level => FND_LOG.level_procedure,
4783: module => g_module_prefix || 'VAL_OUTSIDE_FLAG_EXISTS',
4784: message => 'Entering Procedure p_auction_header_id = ' || p_auction_header_id);
4785: END IF; --}
4786:

Line 4793: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN --{

4789:
4790: --ONLY ONE ERROR WILL BE SHOWN SO ROWNUM = 1
4791: IF (p_is_global_agreement) THEN
4792:
4793: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN --{
4794: FND_LOG.string(log_level => FND_LOG.level_statement,
4795: module => g_module_prefix || 'VAL_OUTSIDE_FLAG_EXISTS',
4796: message => 'This is a global agreement so validation for outside ops');
4797: END IF; --}

Line 4794: FND_LOG.string(log_level => FND_LOG.level_statement,

4790: --ONLY ONE ERROR WILL BE SHOWN SO ROWNUM = 1
4791: IF (p_is_global_agreement) THEN
4792:
4793: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN --{
4794: FND_LOG.string(log_level => FND_LOG.level_statement,
4795: module => g_module_prefix || 'VAL_OUTSIDE_FLAG_EXISTS',
4796: message => 'This is a global agreement so validation for outside ops');
4797: END IF; --}
4798:

Line 4828: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

4824: PLTB.OUTSIDE_OPERATION_FLAG='Y' AND
4825: ROWNUM=1;
4826: END IF;
4827:
4828: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4829: FND_LOG.string(log_level => FND_LOG.level_procedure,
4830: module => g_module_prefix || 'VAL_OUTSIDE_FLAG_EXISTS',
4831: message => 'Leaving Procedure');
4832: END IF; --}

Line 4829: FND_LOG.string(log_level => FND_LOG.level_procedure,

4825: ROWNUM=1;
4826: END IF;
4827:
4828: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
4829: FND_LOG.string(log_level => FND_LOG.level_procedure,
4830: module => g_module_prefix || 'VAL_OUTSIDE_FLAG_EXISTS',
4831: message => 'Leaving Procedure');
4832: END IF; --}
4833: END VAL_OUTSIDE_FLAG_EXISTS;

Line 5567: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN

5563: HAVING count(*) > 1;
5564:
5565: EXCEPTION
5566: WHEN OTHERS THEN
5567: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
5568: FND_LOG.string (log_level => FND_LOG.level_exception,
5569: module => g_module_prefix || 'VALIDATE_COMPLEXWORK_LINES',
5570: message => 'Exception occured in duplicate payitem check of validate_complexwork_lines'
5571: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200));

Line 5568: FND_LOG.string (log_level => FND_LOG.level_exception,

5564:
5565: EXCEPTION
5566: WHEN OTHERS THEN
5567: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
5568: FND_LOG.string (log_level => FND_LOG.level_exception,
5569: module => g_module_prefix || 'VALIDATE_COMPLEXWORK_LINES',
5570: message => 'Exception occured in duplicate payitem check of validate_complexwork_lines'
5571: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200));
5572: END IF;

Line 5611: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

5607: BEGIN
5608:
5609:
5610:
5611: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
5612: FND_LOG.string(log_level => FND_LOG.level_procedure,
5613: module => g_module_prefix || 'VALIDATE_PAYMENTS',
5614: message => 'Entering PON_NEGOTIATION_PUBLISH_PVT.VALIDATE_PAYMENTS'
5615: || ', p_auction_header_id = ' || p_auction_header_id

Line 5612: FND_LOG.string(log_level => FND_LOG.level_procedure,

5608:
5609:
5610:
5611: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
5612: FND_LOG.string(log_level => FND_LOG.level_procedure,
5613: module => g_module_prefix || 'VALIDATE_PAYMENTS',
5614: message => 'Entering PON_NEGOTIATION_PUBLISH_PVT.VALIDATE_PAYMENTS'
5615: || ', p_auction_header_id = ' || p_auction_header_id
5616: || ', p_request_id = ' || p_request_id

Line 6157: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

6153: AND ppi.project_expenditure_type IS NOT NULL
6154: AND ppi.project_exp_organization_id IS NOT NULL
6155: AND ppi.project_expenditure_item_date IS NOT NULL;
6156:
6157: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
6158: FND_LOG.string(log_level => FND_LOG.level_procedure,
6159: module => g_module_prefix || 'VALIDATE_PAYMENTS',
6160: message => 'Leaving PON_NEGOTIATION_PUBLISH_PVT.VALIDATE_PAYMENTS'
6161: || ', p_auction_header_id = ' || p_auction_header_id);

Line 6158: FND_LOG.string(log_level => FND_LOG.level_procedure,

6154: AND ppi.project_exp_organization_id IS NOT NULL
6155: AND ppi.project_expenditure_item_date IS NOT NULL;
6156:
6157: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
6158: FND_LOG.string(log_level => FND_LOG.level_procedure,
6159: module => g_module_prefix || 'VALIDATE_PAYMENTS',
6160: message => 'Leaving PON_NEGOTIATION_PUBLISH_PVT.VALIDATE_PAYMENTS'
6161: || ', p_auction_header_id = ' || p_auction_header_id);
6162: END IF; --}

Line 6189: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN

6185:
6186: EXCEPTION
6187: WHEN OTHERS THEN
6188:
6189: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
6190: FND_LOG.string (log_level => FND_LOG.level_exception,
6191: module => g_module_prefix || 'VALIDATE_PAYMENTS',
6192: message => 'Exception occured validate_payments'
6193: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200));

Line 6190: FND_LOG.string (log_level => FND_LOG.level_exception,

6186: EXCEPTION
6187: WHEN OTHERS THEN
6188:
6189: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
6190: FND_LOG.string (log_level => FND_LOG.level_exception,
6191: module => g_module_prefix || 'VALIDATE_PAYMENTS',
6192: message => 'Exception occured validate_payments'
6193: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200));
6194: END IF;

Line 6443: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{

6439: l_module_name := 'validate_lines';
6440:
6441: x_result := FND_API.G_RET_STS_SUCCESS;
6442:
6443: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
6444: FND_LOG.string(log_level => FND_LOG.level_procedure,
6445: module => g_module_prefix || l_module_name,
6446: message => 'Entering procedure:'
6447: || 'p_auction_header_id = ' || p_auction_header_id

Line 6444: FND_LOG.string(log_level => FND_LOG.level_procedure,

6440:
6441: x_result := FND_API.G_RET_STS_SUCCESS;
6442:
6443: IF (FND_LOG.level_procedure>= FND_LOG.g_current_runtime_level) THEN --{
6444: FND_LOG.string(log_level => FND_LOG.level_procedure,
6445: module => g_module_prefix || l_module_name,
6446: message => 'Entering procedure:'
6447: || 'p_auction_header_id = ' || p_auction_header_id
6448: || ', p_doctype_id = ' || p_doctype_id

Line 6488: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6484: FROM DUAL;
6485:
6486: x_batch_id := l_batch_id;
6487:
6488: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6489: FND_LOG.string(log_level => FND_LOG.level_statement,
6490: module => g_module_prefix || l_module_name,
6491: message => 'Validating Lines: Validations that do not require join with po line types');
6492: END IF; --}

Line 6489: FND_LOG.string(log_level => FND_LOG.level_statement,

6485:
6486: x_batch_id := l_batch_id;
6487:
6488: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6489: FND_LOG.string(log_level => FND_LOG.level_statement,
6490: module => g_module_prefix || l_module_name,
6491: message => 'Validating Lines: Validations that do not require join with po line types');
6492: END IF; --}
6493:

Line 6503: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6499: p_fnd_currency_precision, p_close_bidding_date, p_contract_type,
6500: p_global_agreement_flag, p_bid_ranking, p_doctype_id,
6501: p_invitees_count, p_bid_list_type);
6502:
6503: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6504: FND_LOG.string(log_level => FND_LOG.level_statement,
6505: module => g_module_prefix || l_module_name,
6506: message => 'Validating Lines: Validations that require join with po line types');
6507: END IF; --}

Line 6504: FND_LOG.string(log_level => FND_LOG.level_statement,

6500: p_global_agreement_flag, p_bid_ranking, p_doctype_id,
6501: p_invitees_count, p_bid_list_type);
6502:
6503: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6504: FND_LOG.string(log_level => FND_LOG.level_statement,
6505: module => g_module_prefix || l_module_name,
6506: message => 'Validating Lines: Validations that require join with po line types');
6507: END IF; --}
6508:

Line 6522: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6518: */
6519: -- Attribute validations only if the p_line_attribute_enabled_flag is set to Y
6520: IF (NVL (p_line_attribute_enabled_flag, 'Y') = 'Y') THEN
6521:
6522: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6523: FND_LOG.string(log_level => FND_LOG.level_statement,
6524: module => g_module_prefix || l_module_name,
6525: message => 'Validation attributes');
6526: END IF; --}

Line 6523: FND_LOG.string(log_level => FND_LOG.level_statement,

6519: -- Attribute validations only if the p_line_attribute_enabled_flag is set to Y
6520: IF (NVL (p_line_attribute_enabled_flag, 'Y') = 'Y') THEN
6521:
6522: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6523: FND_LOG.string(log_level => FND_LOG.level_statement,
6524: module => g_module_prefix || l_module_name,
6525: message => 'Validation attributes');
6526: END IF; --}
6527: val_attributes (

Line 6531: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6527: val_attributes (
6528: p_auction_header_id, p_request_id, l_expiration_date, l_user_id,
6529: l_login_id, l_batch_id, p_full_quantity_bid_code, p_bid_ranking);
6530:
6531: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6532: FND_LOG.string(log_level => FND_LOG.level_statement,
6533: module => g_module_prefix || l_module_name,
6534: message => 'Validation attributes for uniqueness withing a line');
6535: END IF; --}

Line 6532: FND_LOG.string(log_level => FND_LOG.level_statement,

6528: p_auction_header_id, p_request_id, l_expiration_date, l_user_id,
6529: l_login_id, l_batch_id, p_full_quantity_bid_code, p_bid_ranking);
6530:
6531: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6532: FND_LOG.string(log_level => FND_LOG.level_statement,
6533: module => g_module_prefix || l_module_name,
6534: message => 'Validation attributes for uniqueness withing a line');
6535: END IF; --}
6536: val_attr_name_unique(

Line 6545: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6541: -- We are not checking for NVL (p_line_mas_enabled_flag, 'Y') = 'Y' because bid ranking can be set to
6542: -- MAS only if the condition is true
6543: IF (p_bid_ranking = 'MULTI_ATTRIBUTE_SCORING') THEN
6544:
6545: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6546: FND_LOG.string(log_level => FND_LOG.level_statement,
6547: module => g_module_prefix || l_module_name,
6548: message => 'Validation attribute scores');
6549: END IF; --}

Line 6546: FND_LOG.string(log_level => FND_LOG.level_statement,

6542: -- MAS only if the condition is true
6543: IF (p_bid_ranking = 'MULTI_ATTRIBUTE_SCORING') THEN
6544:
6545: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6546: FND_LOG.string(log_level => FND_LOG.level_statement,
6547: module => g_module_prefix || l_module_name,
6548: message => 'Validation attribute scores');
6549: END IF; --}
6550: val_attr_scores(

Line 6565: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6561: -- and if price tiers indicator is price breaks, if price tiers indicator is price breaks then
6562: -- we can assume that negotiation is not an RFI and is either a BLANKET or a CONTRACT
6563: IF (p_price_tiers_indicator = 'PRICE_BREAKS') THEN
6564:
6565: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6566: FND_LOG.string(log_level => FND_LOG.level_statement,
6567: module => g_module_prefix || l_module_name,
6568: message => 'Validating price breaks');
6569: END IF; --}

Line 6566: FND_LOG.string(log_level => FND_LOG.level_statement,

6562: -- we can assume that negotiation is not an RFI and is either a BLANKET or a CONTRACT
6563: IF (p_price_tiers_indicator = 'PRICE_BREAKS') THEN
6564:
6565: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6566: FND_LOG.string(log_level => FND_LOG.level_statement,
6567: module => g_module_prefix || l_module_name,
6568: message => 'Validating price breaks');
6569: END IF; --}
6570: val_price_breaks (

Line 6583: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6579: -- Shipment validation only if it is not an RFI
6580: -- and if price tiers indicator is Quantity based price tiers
6581: IF (p_price_tiers_indicator = 'QUANTITY_BASED') THEN
6582:
6583: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6584: FND_LOG.string(log_level => FND_LOG.level_statement,
6585: module => g_module_prefix || l_module_name,
6586: message => 'Validating quantity based price tiers');
6587: END IF; --}

Line 6584: FND_LOG.string(log_level => FND_LOG.level_statement,

6580: -- and if price tiers indicator is Quantity based price tiers
6581: IF (p_price_tiers_indicator = 'QUANTITY_BASED') THEN
6582:
6583: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6584: FND_LOG.string(log_level => FND_LOG.level_statement,
6585: module => g_module_prefix || l_module_name,
6586: message => 'Validating quantity based price tiers');
6587: END IF; --}
6588: val_qty_based_price_tiers (

Line 6601: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6597: -- Price differential validation only if this is an RFI or this is a global agreement
6598: IF (g_document_type_names (p_doctype_id) = PON_CONTERMS_UTL_PVT.SRC_REQUEST_FOR_INFORMATION OR
6599: l_is_global_agreement) THEN
6600:
6601: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6602: FND_LOG.string(log_level => FND_LOG.level_statement,
6603: module => g_module_prefix || l_module_name,
6604: message => 'Validating for unique price differentials');
6605: END IF; --}

Line 6602: FND_LOG.string(log_level => FND_LOG.level_statement,

6598: IF (g_document_type_names (p_doctype_id) = PON_CONTERMS_UTL_PVT.SRC_REQUEST_FOR_INFORMATION OR
6599: l_is_global_agreement) THEN
6600:
6601: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6602: FND_LOG.string(log_level => FND_LOG.level_statement,
6603: module => g_module_prefix || l_module_name,
6604: message => 'Validating for unique price differentials');
6605: END IF; --}
6606: val_pd_unique(

Line 6610: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6606: val_pd_unique(
6607: p_auction_header_id, p_request_id, l_expiration_date, l_user_id, l_login_id,
6608: l_batch_id);
6609:
6610: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6611: FND_LOG.string(log_level => FND_LOG.level_statement,
6612: module => g_module_prefix || l_module_name,
6613: message => 'Validating price differentials');
6614: END IF; --}

Line 6611: FND_LOG.string(log_level => FND_LOG.level_statement,

6607: p_auction_header_id, p_request_id, l_expiration_date, l_user_id, l_login_id,
6608: l_batch_id);
6609:
6610: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6611: FND_LOG.string(log_level => FND_LOG.level_statement,
6612: module => g_module_prefix || l_module_name,
6613: message => 'Validating price differentials');
6614: END IF; --}
6615: val_price_differentials(

Line 6626: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6622: * COST FACTOR VALIDATIONS
6623: */
6624: IF (p_pf_type_allowed <> 'NONE') THEN
6625:
6626: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6627: FND_LOG.string(log_level => FND_LOG.level_statement,
6628: module => g_module_prefix || l_module_name,
6629: message => 'Validating price elements');
6630: END IF; --}

Line 6627: FND_LOG.string(log_level => FND_LOG.level_statement,

6623: */
6624: IF (p_pf_type_allowed <> 'NONE') THEN
6625:
6626: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6627: FND_LOG.string(log_level => FND_LOG.level_statement,
6628: module => g_module_prefix || l_module_name,
6629: message => 'Validating price elements');
6630: END IF; --}
6631: val_price_elements (p_auction_header_id, p_request_id, l_expiration_date, l_user_id,

Line 6635: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6631: val_price_elements (p_auction_header_id, p_request_id, l_expiration_date, l_user_id,
6632: l_login_id, l_batch_id, p_auction_currency_precision, p_fnd_currency_precision,
6633: p_trading_partner_id);
6634:
6635: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6636: FND_LOG.string(log_level => FND_LOG.level_statement,
6637: module => g_module_prefix || l_module_name,
6638: message => 'Validation for unique price elements');
6639: END IF; --}

Line 6636: FND_LOG.string(log_level => FND_LOG.level_statement,

6632: l_login_id, l_batch_id, p_auction_currency_precision, p_fnd_currency_precision,
6633: p_trading_partner_id);
6634:
6635: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6636: FND_LOG.string(log_level => FND_LOG.level_statement,
6637: module => g_module_prefix || l_module_name,
6638: message => 'Validation for unique price elements');
6639: END IF; --}
6640: val_pe_unique (

Line 6649: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6645:
6646: -- Validate party exclusions only if this is not a large negotiation
6647: IF (nvl (p_large_neg_enabled_flag, 'N') <> 'Y') THEN
6648:
6649: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6650: FND_LOG.string(log_level => FND_LOG.level_statement,
6651: module => g_module_prefix || l_module_name,
6652: message => 'Validating party exclusions:');
6653: END IF; --}

Line 6650: FND_LOG.string(log_level => FND_LOG.level_statement,

6646: -- Validate party exclusions only if this is not a large negotiation
6647: IF (nvl (p_large_neg_enabled_flag, 'N') <> 'Y') THEN
6648:
6649: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6650: FND_LOG.string(log_level => FND_LOG.level_statement,
6651: module => g_module_prefix || l_module_name,
6652: message => 'Validating party exclusions:');
6653: END IF; --}
6654: val_party_exclusions (

Line 6662: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6658:
6659: -- The reference data validation should happen only in case of publication
6660: -- and concurrent flow
6661: IF ('N' = p_for_approval AND p_request_id IS NOT NULL) THEN
6662: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6663: FND_LOG.string(log_level => FND_LOG.level_statement,
6664: module => g_module_prefix || l_module_name,
6665: message => 'Validating reference data');
6666: END IF; --}

Line 6663: FND_LOG.string(log_level => FND_LOG.level_statement,

6659: -- The reference data validation should happen only in case of publication
6660: -- and concurrent flow
6661: IF ('N' = p_for_approval AND p_request_id IS NOT NULL) THEN
6662: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6663: FND_LOG.string(log_level => FND_LOG.level_statement,
6664: module => g_module_prefix || l_module_name,
6665: message => 'Validating reference data');
6666: END IF; --}
6667: val_line_ref_data (

Line 6672: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6668: p_auction_header_id, p_request_id, l_expiration_date, l_user_id, l_login_id,
6669: l_batch_id);
6670: END IF;
6671:
6672: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6673: FND_LOG.string(log_level => FND_LOG.level_statement,
6674: module => g_module_prefix || l_module_name,
6675: message => 'Validation for multi currency aution with amount based lines');
6676: END IF; --}

Line 6673: FND_LOG.string(log_level => FND_LOG.level_statement,

6669: l_batch_id);
6670: END IF;
6671:
6672: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6673: FND_LOG.string(log_level => FND_LOG.level_statement,
6674: module => g_module_prefix || l_module_name,
6675: message => 'Validation for multi currency aution with amount based lines');
6676: END IF; --}
6677: val_line_amount_multi_curr (

Line 6681: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6677: val_line_amount_multi_curr (
6678: p_auction_header_id, p_allow_other_bid_currency, p_request_id, l_expiration_date,
6679: l_user_id, l_login_id, l_batch_id);
6680:
6681: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6682: FND_LOG.string(log_level => FND_LOG.level_statement,
6683: module => g_module_prefix || l_module_name,
6684: message => 'Validating if outside operation lines are included in a global agreement');
6685: END IF; --}

Line 6682: FND_LOG.string(log_level => FND_LOG.level_statement,

6678: p_auction_header_id, p_allow_other_bid_currency, p_request_id, l_expiration_date,
6679: l_user_id, l_login_id, l_batch_id);
6680:
6681: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6682: FND_LOG.string(log_level => FND_LOG.level_statement,
6683: module => g_module_prefix || l_module_name,
6684: message => 'Validating if outside operation lines are included in a global agreement');
6685: END IF; --}
6686: val_outside_flag_exists (

Line 6690: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6686: val_outside_flag_exists (
6687: p_auction_header_id, l_is_global_agreement, p_request_id, l_expiration_date, l_user_id,
6688: l_login_id, l_batch_id);
6689:
6690: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6691: FND_LOG.string(log_level => FND_LOG.level_statement,
6692: module => g_module_prefix || l_module_name,
6693: message => 'Validating Complex work fields');
6694: END IF; --}

Line 6691: FND_LOG.string(log_level => FND_LOG.level_statement,

6687: p_auction_header_id, l_is_global_agreement, p_request_id, l_expiration_date, l_user_id,
6688: l_login_id, l_batch_id);
6689:
6690: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6691: FND_LOG.string(log_level => FND_LOG.level_statement,
6692: module => g_module_prefix || l_module_name,
6693: message => 'Validating Complex work fields');
6694: END IF; --}
6695: validate_complexwork_lines (

Line 6700: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6696: p_auction_header_id, p_request_id, l_expiration_date, l_user_id, l_login_id,
6697: l_batch_id, p_fnd_currency_precision);
6698:
6699: IF p_progress_payment_type <> 'NONE' AND p_contract_type = 'STANDARD' THEN
6700: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6701: FND_LOG.string(log_level => FND_LOG.level_statement,
6702: module => g_module_prefix || 'VALIDATE_LINES',
6703: message => 'Validating payments:');
6704: END IF; --}

Line 6701: FND_LOG.string(log_level => FND_LOG.level_statement,

6697: l_batch_id, p_fnd_currency_precision);
6698:
6699: IF p_progress_payment_type <> 'NONE' AND p_contract_type = 'STANDARD' THEN
6700: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6701: FND_LOG.string(log_level => FND_LOG.level_statement,
6702: module => g_module_prefix || 'VALIDATE_LINES',
6703: message => 'Validating payments:');
6704: END IF; --}
6705: VALIDATE_PAYMENTS (p_auction_header_id, p_request_id, l_expiration_date, l_user_id, l_login_id, l_batch_id, p_auction_currency_precision);

Line 6714: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN

6710: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
6711: x_error_code := SQLCODE;
6712: x_error_message := SUBSTR(SQLERRM, 1, 100);
6713:
6714: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
6715: FND_LOG.string (log_level => FND_LOG.level_exception,
6716: module => g_module_prefix || l_module_name,
6717: message => 'Unexpected exception occured error_code = ' || x_error_code ||
6718: ', error_message = ' || x_error_message);

Line 6715: FND_LOG.string (log_level => FND_LOG.level_exception,

6711: x_error_code := SQLCODE;
6712: x_error_message := SUBSTR(SQLERRM, 1, 100);
6713:
6714: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
6715: FND_LOG.string (log_level => FND_LOG.level_exception,
6716: module => g_module_prefix || l_module_name,
6717: message => 'Unexpected exception occured error_code = ' || x_error_code ||
6718: ', error_message = ' || x_error_message);
6719: END IF;

Line 6780: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

6776:
6777: l_batch_id NUMBER;
6778: BEGIN
6779:
6780: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6781: FND_LOG.string(log_level => FND_LOG.level_statement,
6782: module => g_module_prefix || 'CHECK_ACTION_ERRORS_PRESENT',
6783: message => 'Checking if any errors are present for batch id = ' || p_batch_id);
6784: END IF; --}

Line 6781: FND_LOG.string(log_level => FND_LOG.level_statement,

6777: l_batch_id NUMBER;
6778: BEGIN
6779:
6780: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
6781: FND_LOG.string(log_level => FND_LOG.level_statement,
6782: module => g_module_prefix || 'CHECK_ACTION_ERRORS_PRESENT',
6783: message => 'Checking if any errors are present for batch id = ' || p_batch_id);
6784: END IF; --}
6785:

Line 7033: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7029:
7030: l_module_name := 'update_line_flag_seq_closedate';
7031: x_result := FND_API.g_ret_sts_success;
7032:
7033: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7034: FND_LOG.string (log_level => FND_LOG.level_procedure,
7035: module => g_module_prefix || l_module_name,
7036: message => 'Entered procedure = ' || l_module_name);
7037: END IF;

Line 7034: FND_LOG.string (log_level => FND_LOG.level_procedure,

7030: l_module_name := 'update_line_flag_seq_closedate';
7031: x_result := FND_API.g_ret_sts_success;
7032:
7033: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7034: FND_LOG.string (log_level => FND_LOG.level_procedure,
7035: module => g_module_prefix || l_module_name,
7036: message => 'Entered procedure = ' || l_module_name);
7037: END IF;
7038:

Line 7153: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7149: auction_header_id = p_auction_header_id AND
7150: line_number >= p_curr_from_line_number AND
7151: line_number <= p_curr_to_line_number;
7152:
7153: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7154: FND_LOG.string (log_level => FND_LOG.level_procedure,
7155: module => g_module_prefix || l_module_name,
7156: message => 'Leaving procedure = ' || l_module_name);
7157: END IF;

Line 7154: FND_LOG.string (log_level => FND_LOG.level_procedure,

7150: line_number >= p_curr_from_line_number AND
7151: line_number <= p_curr_to_line_number;
7152:
7153: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7154: FND_LOG.string (log_level => FND_LOG.level_procedure,
7155: module => g_module_prefix || l_module_name,
7156: message => 'Leaving procedure = ' || l_module_name);
7157: END IF;
7158:

Line 7165: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

7161: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
7162: x_error_code := SQLCODE;
7163: x_error_message := SUBSTR(SQLERRM, 1, 100);
7164:
7165: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7166: FND_LOG.string (log_level => FND_LOG.level_exception,
7167: module => g_module_prefix || l_module_name,
7168: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7169: END IF;

Line 7166: FND_LOG.string (log_level => FND_LOG.level_exception,

7162: x_error_code := SQLCODE;
7163: x_error_message := SUBSTR(SQLERRM, 1, 100);
7164:
7165: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7166: FND_LOG.string (log_level => FND_LOG.level_exception,
7167: module => g_module_prefix || l_module_name,
7168: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7169: END IF;
7170:

Line 7183: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7179: l_module_name VARCHAR2(30);
7180: BEGIN
7181:
7182: l_module_name := 'process_price_factors';
7183: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7184: FND_LOG.string (log_level => FND_LOG.level_procedure,
7185: module => g_module_prefix || l_module_name,
7186: message => 'Entering procedure = ' || l_module_name);
7187: END IF;

Line 7184: FND_LOG.string (log_level => FND_LOG.level_procedure,

7180: BEGIN
7181:
7182: l_module_name := 'process_price_factors';
7183: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7184: FND_LOG.string (log_level => FND_LOG.level_procedure,
7185: module => g_module_prefix || l_module_name,
7186: message => 'Entering procedure = ' || l_module_name);
7187: END IF;
7188:

Line 7365: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7361:
7362: l_module_name := 'process_payments_batch';
7363: x_result := FND_API.g_ret_sts_success;
7364:
7365: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7366: FND_LOG.string (log_level => FND_LOG.level_procedure,
7367: module => g_module_prefix || l_module_name,
7368: message => 'Entered procedure = ' || l_module_name);
7369: END IF;

Line 7366: FND_LOG.string (log_level => FND_LOG.level_procedure,

7362: l_module_name := 'process_payments_batch';
7363: x_result := FND_API.g_ret_sts_success;
7364:
7365: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7366: FND_LOG.string (log_level => FND_LOG.level_procedure,
7367: module => g_module_prefix || l_module_name,
7368: message => 'Entered procedure = ' || l_module_name);
7369: END IF;
7370:

Line 7371: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7367: module => g_module_prefix || l_module_name,
7368: message => 'Entered procedure = ' || l_module_name);
7369: END IF;
7370:
7371: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7372: FND_LOG.string (log_level => FND_LOG.level_procedure,
7373: module => g_module_prefix || l_module_name,
7374: message => 'Update Payments Fields = ' || l_module_name);
7375: END IF;

Line 7372: FND_LOG.string (log_level => FND_LOG.level_procedure,

7368: message => 'Entered procedure = ' || l_module_name);
7369: END IF;
7370:
7371: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7372: FND_LOG.string (log_level => FND_LOG.level_procedure,
7373: module => g_module_prefix || l_module_name,
7374: message => 'Update Payments Fields = ' || l_module_name);
7375: END IF;
7376:

Line 7397: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7393: auction_header_id = p_auction_header_id AND
7394: line_number >= p_curr_from_line_number AND
7395: line_number <= p_curr_to_line_number;
7396:
7397: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7398: FND_LOG.string (log_level => FND_LOG.level_procedure,
7399: module => g_module_prefix || l_module_name,
7400: message => 'Before call Delete_Payment_Attachments = ' || l_module_name);
7401: END IF;

Line 7398: FND_LOG.string (log_level => FND_LOG.level_procedure,

7394: line_number >= p_curr_from_line_number AND
7395: line_number <= p_curr_to_line_number;
7396:
7397: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7398: FND_LOG.string (log_level => FND_LOG.level_procedure,
7399: module => g_module_prefix || l_module_name,
7400: message => 'Before call Delete_Payment_Attachments = ' || l_module_name);
7401: END IF;
7402:

Line 7409: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7405: p_auction_header_id => p_auction_header_id,
7406: p_curr_from_line_number => p_curr_from_line_number,
7407: p_curr_to_line_number => p_curr_to_line_number);
7408:
7409: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7410: FND_LOG.string (log_level => FND_LOG.level_procedure,
7411: module => g_module_prefix || l_module_name,
7412: message => 'After Call Delete_Payment_Attachments = ' || l_module_name);
7413: END IF;

Line 7410: FND_LOG.string (log_level => FND_LOG.level_procedure,

7406: p_curr_from_line_number => p_curr_from_line_number,
7407: p_curr_to_line_number => p_curr_to_line_number);
7408:
7409: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7410: FND_LOG.string (log_level => FND_LOG.level_procedure,
7411: module => g_module_prefix || l_module_name,
7412: message => 'After Call Delete_Payment_Attachments = ' || l_module_name);
7413: END IF;
7414:

Line 7415: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7411: module => g_module_prefix || l_module_name,
7412: message => 'After Call Delete_Payment_Attachments = ' || l_module_name);
7413: END IF;
7414:
7415: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7416: FND_LOG.string (log_level => FND_LOG.level_procedure,
7417: module => g_module_prefix || l_module_name,
7418: message => 'Leaving procedure = ' || l_module_name);
7419: END IF;

Line 7416: FND_LOG.string (log_level => FND_LOG.level_procedure,

7412: message => 'After Call Delete_Payment_Attachments = ' || l_module_name);
7413: END IF;
7414:
7415: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7416: FND_LOG.string (log_level => FND_LOG.level_procedure,
7417: module => g_module_prefix || l_module_name,
7418: message => 'Leaving procedure = ' || l_module_name);
7419: END IF;
7420:

Line 7427: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

7423: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
7424: x_error_code := SQLCODE;
7425: x_error_message := SUBSTR(SQLERRM, 1, 100);
7426:
7427: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7428: FND_LOG.string (log_level => FND_LOG.level_exception,
7429: module => g_module_prefix || l_module_name,
7430: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7431: END IF;

Line 7428: FND_LOG.string (log_level => FND_LOG.level_exception,

7424: x_error_code := SQLCODE;
7425: x_error_message := SUBSTR(SQLERRM, 1, 100);
7426:
7427: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7428: FND_LOG.string (log_level => FND_LOG.level_exception,
7429: module => g_module_prefix || l_module_name,
7430: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7431: END IF;
7432:

Line 7456: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7452:
7453: l_module_name := 'process_payments_auto';
7454: x_result := FND_API.g_ret_sts_success;
7455:
7456: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7457: FND_LOG.string (log_level => FND_LOG.level_procedure,
7458: module => g_module_prefix || l_module_name,
7459: message => 'Entered procedure = ' || l_module_name);
7460: END IF;

Line 7457: FND_LOG.string (log_level => FND_LOG.level_procedure,

7453: l_module_name := 'process_payments_auto';
7454: x_result := FND_API.g_ret_sts_success;
7455:
7456: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7457: FND_LOG.string (log_level => FND_LOG.level_procedure,
7458: module => g_module_prefix || l_module_name,
7459: message => 'Entered procedure = ' || l_module_name);
7460: END IF;
7461:

Line 7477: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7473: ROLLBACK;
7474: return;
7475: END IF;
7476:
7477: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7478: FND_LOG.string(log_level => FND_LOG.level_statement,
7479: module => g_module_prefix || l_module_name,
7480: message => 'Commiting data for lines between ' || p_curr_from_line_number || ' and ' || p_curr_to_line_number);
7481: END IF; --}

Line 7478: FND_LOG.string(log_level => FND_LOG.level_statement,

7474: return;
7475: END IF;
7476:
7477: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7478: FND_LOG.string(log_level => FND_LOG.level_statement,
7479: module => g_module_prefix || l_module_name,
7480: message => 'Commiting data for lines between ' || p_curr_from_line_number || ' and ' || p_curr_to_line_number);
7481: END IF; --}
7482:

Line 7485: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7481: END IF; --}
7482:
7483: COMMIT;
7484:
7485: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7486: FND_LOG.string (log_level => FND_LOG.level_procedure,
7487: module => g_module_prefix || l_module_name,
7488: message => 'Leaving procedure = ' || l_module_name);
7489: END IF;

Line 7486: FND_LOG.string (log_level => FND_LOG.level_procedure,

7482:
7483: COMMIT;
7484:
7485: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7486: FND_LOG.string (log_level => FND_LOG.level_procedure,
7487: module => g_module_prefix || l_module_name,
7488: message => 'Leaving procedure = ' || l_module_name);
7489: END IF;
7490:

Line 7498: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

7494: x_error_code := SQLCODE;
7495: x_error_message := SUBSTR(SQLERRM, 1, 100);
7496: Rollback;
7497:
7498: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7499: FND_LOG.string (log_level => FND_LOG.level_exception,
7500: module => g_module_prefix || l_module_name,
7501: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7502: END IF;

Line 7499: FND_LOG.string (log_level => FND_LOG.level_exception,

7495: x_error_message := SUBSTR(SQLERRM, 1, 100);
7496: Rollback;
7497:
7498: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7499: FND_LOG.string (log_level => FND_LOG.level_exception,
7500: module => g_module_prefix || l_module_name,
7501: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7502: END IF;
7503:

Line 7531: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7527:
7528: l_module_name := 'process_payments';
7529: x_result := FND_API.g_ret_sts_success;
7530:
7531: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7532: FND_LOG.string (log_level => FND_LOG.level_procedure,
7533: module => g_module_prefix || l_module_name,
7534: message => 'Entered procedure = ' || l_module_name);
7535: END IF;

Line 7532: FND_LOG.string (log_level => FND_LOG.level_procedure,

7528: l_module_name := 'process_payments';
7529: x_result := FND_API.g_ret_sts_success;
7530:
7531: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7532: FND_LOG.string (log_level => FND_LOG.level_procedure,
7533: module => g_module_prefix || l_module_name,
7534: message => 'Entered procedure = ' || l_module_name);
7535: END IF;
7536:

Line 7544: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7540: INTO l_max_line_number
7541: FROM pon_auction_item_prices_all
7542: WHERE auction_header_id = p_auction_header_id;
7543:
7544: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7545: FND_LOG.string (log_level => FND_LOG.level_procedure,
7546: module => g_module_prefix || l_module_name,
7547: message => 'Update Payments Fields = ' || l_module_name);
7548: END IF;

Line 7545: FND_LOG.string (log_level => FND_LOG.level_procedure,

7541: FROM pon_auction_item_prices_all
7542: WHERE auction_header_id = p_auction_header_id;
7543:
7544: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7545: FND_LOG.string (log_level => FND_LOG.level_procedure,
7546: module => g_module_prefix || l_module_name,
7547: message => 'Update Payments Fields = ' || l_module_name);
7548: END IF;
7549:

Line 7556: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7552:
7553: --determine the max line number for this batch
7554: IF (l_max_line_number <= l_batch_size) THEN
7555: l_batch_end := l_max_line_number;
7556: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7557: FND_LOG.string(log_level => FND_LOG.level_statement,
7558: module => g_module_prefix || l_module_name,
7559: message => 'before call to Process_Payments_batch l_curr_to_line_number = ' || l_batch_end ||
7560: ' p_auction_header_id = ' || p_auction_header_id ||

Line 7557: FND_LOG.string(log_level => FND_LOG.level_statement,

7553: --determine the max line number for this batch
7554: IF (l_max_line_number <= l_batch_size) THEN
7555: l_batch_end := l_max_line_number;
7556: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7557: FND_LOG.string(log_level => FND_LOG.level_statement,
7558: module => g_module_prefix || l_module_name,
7559: message => 'before call to Process_Payments_batch l_curr_to_line_number = ' || l_batch_end ||
7560: ' p_auction_header_id = ' || p_auction_header_id ||
7561: ', p_user_id = ' || p_user_id ||

Line 7578: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7574: p_curr_from_line_number => l_batch_start ,
7575: p_curr_to_line_number => l_batch_end);
7576:
7577:
7578: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7579: FND_LOG.string (log_level => FND_LOG.level_procedure,
7580: module => g_module_prefix || l_module_name,
7581: message => 'After Call Process_Payments_batch = ' || l_module_name);
7582: END IF;

Line 7579: FND_LOG.string (log_level => FND_LOG.level_procedure,

7575: p_curr_to_line_number => l_batch_end);
7576:
7577:
7578: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7579: FND_LOG.string (log_level => FND_LOG.level_procedure,
7580: module => g_module_prefix || l_module_name,
7581: message => 'After Call Process_Payments_batch = ' || l_module_name);
7582: END IF;
7583:

Line 7591: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7587:
7588: -- loop for each batch
7589: WHILE (l_batch_start <= l_max_line_number) LOOP --{
7590:
7591: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7592: FND_LOG.string(log_level => FND_LOG.level_statement,
7593: module => g_module_prefix || l_module_name,
7594: message => 'before call to Process_Payments_auto l_curr_to_line_number = ' || l_batch_end ||
7595: ' p_auction_header_id = ' || p_auction_header_id ||

Line 7592: FND_LOG.string(log_level => FND_LOG.level_statement,

7588: -- loop for each batch
7589: WHILE (l_batch_start <= l_max_line_number) LOOP --{
7590:
7591: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7592: FND_LOG.string(log_level => FND_LOG.level_statement,
7593: module => g_module_prefix || l_module_name,
7594: message => 'before call to Process_Payments_auto l_curr_to_line_number = ' || l_batch_end ||
7595: ' p_auction_header_id = ' || p_auction_header_id ||
7596: ', p_user_id = ' || p_user_id ||

Line 7613: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7609: p_curr_from_line_number => l_batch_start ,
7610: p_curr_to_line_number => l_batch_end);
7611:
7612:
7613: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7614: FND_LOG.string (log_level => FND_LOG.level_procedure,
7615: module => g_module_prefix || l_module_name,
7616: message => 'After Call Process_Payments_auto = ' || l_module_name);
7617: END IF;

Line 7614: FND_LOG.string (log_level => FND_LOG.level_procedure,

7610: p_curr_to_line_number => l_batch_end);
7611:
7612:
7613: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7614: FND_LOG.string (log_level => FND_LOG.level_procedure,
7615: module => g_module_prefix || l_module_name,
7616: message => 'After Call Process_Payments_auto = ' || l_module_name);
7617: END IF;
7618:

Line 7631: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7627: ELSE
7628: l_batch_end := l_batch_end + l_batch_size;
7629: END IF;
7630:
7631: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7632: FND_LOG.string(log_level => FND_LOG.level_statement,
7633: module => g_module_prefix || l_module_name,
7634: message => 'Calculated new l_curr_from_line_number = ' || l_batch_start);
7635: END IF; --}

Line 7632: FND_LOG.string(log_level => FND_LOG.level_statement,

7628: l_batch_end := l_batch_end + l_batch_size;
7629: END IF;
7630:
7631: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7632: FND_LOG.string(log_level => FND_LOG.level_statement,
7633: module => g_module_prefix || l_module_name,
7634: message => 'Calculated new l_curr_from_line_number = ' || l_batch_start);
7635: END IF; --}
7636:

Line 7640: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7636:
7637: END LOOP; --}
7638:
7639: END IF;--}
7640: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7641: FND_LOG.string (log_level => FND_LOG.level_procedure,
7642: module => g_module_prefix || l_module_name,
7643: message => 'Leaving procedure = ' || l_module_name);
7644: END IF;

Line 7641: FND_LOG.string (log_level => FND_LOG.level_procedure,

7637: END LOOP; --}
7638:
7639: END IF;--}
7640: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7641: FND_LOG.string (log_level => FND_LOG.level_procedure,
7642: module => g_module_prefix || l_module_name,
7643: message => 'Leaving procedure = ' || l_module_name);
7644: END IF;
7645:

Line 7652: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

7648: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
7649: x_error_code := SQLCODE;
7650: x_error_message := SUBSTR(SQLERRM, 1, 100);
7651:
7652: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7653: FND_LOG.string (log_level => FND_LOG.level_exception,
7654: module => g_module_prefix || l_module_name,
7655: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7656: END IF;

Line 7653: FND_LOG.string (log_level => FND_LOG.level_exception,

7649: x_error_code := SQLCODE;
7650: x_error_message := SUBSTR(SQLERRM, 1, 100);
7651:
7652: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7653: FND_LOG.string (log_level => FND_LOG.level_exception,
7654: module => g_module_prefix || l_module_name,
7655: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7656: END IF;
7657:

Line 7704: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7700: l_attributes_exist := 'OPTIONAL';
7701: END;
7702: END IF; --}
7703:
7704: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7705: FND_LOG.string(log_level => FND_LOG.level_statement,
7706: module => g_module_prefix || l_module_name,
7707: message => 'Done getting the flag l_attributes_exist = ' || l_attributes_exist);
7708: END IF; --}

Line 7705: FND_LOG.string(log_level => FND_LOG.level_statement,

7701: END;
7702: END IF; --}
7703:
7704: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7705: FND_LOG.string(log_level => FND_LOG.level_statement,
7706: module => g_module_prefix || l_module_name,
7707: message => 'Done getting the flag l_attributes_exist = ' || l_attributes_exist);
7708: END IF; --}
7709:

Line 7722: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7718: EXCEPTION WHEN NO_DATA_FOUND THEN --{
7719: l_has_price_elements := 'N';
7720: END;
7721:
7722: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7723: FND_LOG.string(log_level => FND_LOG.level_statement,
7724: module => g_module_prefix || l_module_name,
7725: message => 'Done getting the flag l_has_price_elements = ' || l_has_price_elements);
7726: END IF; --}

Line 7723: FND_LOG.string(log_level => FND_LOG.level_statement,

7719: l_has_price_elements := 'N';
7720: END;
7721:
7722: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7723: FND_LOG.string(log_level => FND_LOG.level_statement,
7724: module => g_module_prefix || l_module_name,
7725: message => 'Done getting the flag l_has_price_elements = ' || l_has_price_elements);
7726: END IF; --}
7727:

Line 7747: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7743:
7744: l_has_pe_for_all_items := 'N';
7745: END IF; --}
7746:
7747: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7748: FND_LOG.string(log_level => FND_LOG.level_statement,
7749: module => g_module_prefix || l_module_name,
7750: message => 'Done getting the flag l_has_pe_for_all_items = ' || l_has_pe_for_all_items);
7751: END IF; --}

Line 7748: FND_LOG.string(log_level => FND_LOG.level_statement,

7744: l_has_pe_for_all_items := 'N';
7745: END IF; --}
7746:
7747: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7748: FND_LOG.string(log_level => FND_LOG.level_statement,
7749: module => g_module_prefix || l_module_name,
7750: message => 'Done getting the flag l_has_pe_for_all_items = ' || l_has_pe_for_all_items);
7751: END IF; --}
7752:

Line 7784: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

7780: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
7781: x_error_code := SQLCODE;
7782: x_error_message := SUBSTR(SQLERRM, 1, 100);
7783:
7784: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7785: FND_LOG.string (log_level => FND_LOG.level_exception,
7786: module => g_module_prefix || l_module_name,
7787: message => 'Unexpected exception occured error_code = ' ||
7788: x_error_code || ', error_message = ' || x_error_message);

Line 7785: FND_LOG.string (log_level => FND_LOG.level_exception,

7781: x_error_code := SQLCODE;
7782: x_error_message := SUBSTR(SQLERRM, 1, 100);
7783:
7784: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7785: FND_LOG.string (log_level => FND_LOG.level_exception,
7786: module => g_module_prefix || l_module_name,
7787: message => 'Unexpected exception occured error_code = ' ||
7788: x_error_code || ', error_message = ' || x_error_message);
7789: END IF;

Line 7820: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7816: l_batch_size := PON_LARGE_AUCTION_UTIL_PKG.BATCH_SIZE;
7817: l_module_name := 'update_lines_before_publish';
7818: x_result := FND_API.g_ret_sts_success;
7819:
7820: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7821: FND_LOG.string(log_level => FND_LOG.level_statement,
7822: module => g_module_prefix || l_module_name,
7823: message => 'Batch size is = ' || l_batch_size);
7824: END IF; --}

Line 7821: FND_LOG.string(log_level => FND_LOG.level_statement,

7817: l_module_name := 'update_lines_before_publish';
7818: x_result := FND_API.g_ret_sts_success;
7819:
7820: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7821: FND_LOG.string(log_level => FND_LOG.level_statement,
7822: module => g_module_prefix || l_module_name,
7823: message => 'Batch size is = ' || l_batch_size);
7824: END IF; --}
7825:

Line 7890: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7886:
7887: -- loop for each batch
7888: WHILE (l_batch_start <= l_max_line_number) LOOP --{
7889:
7890: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7891: FND_LOG.string(log_level => FND_LOG.level_statement,
7892: module => g_module_prefix || l_module_name,
7893: message => 'Calculated new l_curr_to_line_number = ' || l_batch_end ||
7894: ' Calling process_price_factors, pon_lrg_draft_to_ord_pf_copy '||

Line 7891: FND_LOG.string(log_level => FND_LOG.level_statement,

7887: -- loop for each batch
7888: WHILE (l_batch_start <= l_max_line_number) LOOP --{
7889:
7890: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7891: FND_LOG.string(log_level => FND_LOG.level_statement,
7892: module => g_module_prefix || l_module_name,
7893: message => 'Calculated new l_curr_to_line_number = ' || l_batch_end ||
7894: ' Calling process_price_factors, pon_lrg_draft_to_ord_pf_copy '||
7895: ' and update_line_flag_seq_closedate with' ||

Line 7945: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7941: IF (x_result <> FND_API.g_ret_sts_success) THEN
7942: return;
7943: END IF;
7944:
7945: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7946: FND_LOG.string(log_level => FND_LOG.level_statement,
7947: module => g_module_prefix || l_module_name,
7948: message => 'Commiting data for lines between ' || l_batch_start || ' and ' || l_batch_end);
7949: END IF; --}

Line 7946: FND_LOG.string(log_level => FND_LOG.level_statement,

7942: return;
7943: END IF;
7944:
7945: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7946: FND_LOG.string(log_level => FND_LOG.level_statement,
7947: module => g_module_prefix || l_module_name,
7948: message => 'Commiting data for lines between ' || l_batch_start || ' and ' || l_batch_end);
7949: END IF; --}
7950:

Line 7961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

7957: ELSE
7958: l_batch_end := l_batch_end + l_batch_size;
7959: END IF;
7960:
7961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7962: FND_LOG.string(log_level => FND_LOG.level_statement,
7963: module => g_module_prefix || l_module_name,
7964: message => 'Calculated new l_curr_from_line_number = ' || l_batch_start);
7965: END IF; --}

Line 7962: FND_LOG.string(log_level => FND_LOG.level_statement,

7958: l_batch_end := l_batch_end + l_batch_size;
7959: END IF;
7960:
7961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
7962: FND_LOG.string(log_level => FND_LOG.level_statement,
7963: module => g_module_prefix || l_module_name,
7964: message => 'Calculated new l_curr_from_line_number = ' || l_batch_start);
7965: END IF; --}
7966:

Line 7975: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

7971: x_result := FND_API.g_ret_sts_unexp_error;
7972: x_error_code := SQLCODE;
7973: x_error_message := SUBSTR(SQLERRM, 1, 100);
7974:
7975: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7976: FND_LOG.string (log_level => FND_LOG.level_exception,
7977: module => g_module_prefix || l_module_name,
7978: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7979: END IF;

Line 7976: FND_LOG.string (log_level => FND_LOG.level_exception,

7972: x_error_code := SQLCODE;
7973: x_error_message := SUBSTR(SQLERRM, 1, 100);
7974:
7975: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
7976: FND_LOG.string (log_level => FND_LOG.level_exception,
7977: module => g_module_prefix || l_module_name,
7978: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
7979: END IF;
7980: END update_lines_before_publish;

Line 7998: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

7994:
7995: l_module_name := 'update_before_publish';
7996: x_result := FND_API.g_ret_sts_success;
7997:
7998: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7999: FND_LOG.string (log_level => FND_LOG.level_procedure,
8000: module => g_module_prefix || l_module_name,
8001: message => 'Entered procedure = ' || l_module_name);
8002: END IF;

Line 7999: FND_LOG.string (log_level => FND_LOG.level_procedure,

7995: l_module_name := 'update_before_publish';
7996: x_result := FND_API.g_ret_sts_success;
7997:
7998: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
7999: FND_LOG.string (log_level => FND_LOG.level_procedure,
8000: module => g_module_prefix || l_module_name,
8001: message => 'Entered procedure = ' || l_module_name);
8002: END IF;
8003:

Line 8051: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

8047: last_update_date = sysdate
8048: WHERE
8049: auction_header_id = p_auction_header_id;
8050:
8051: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8052: FND_LOG.string (log_level => FND_LOG.level_procedure,
8053: module => g_module_prefix || l_module_name,
8054: message => 'Leaving procedure = ' || l_module_name);
8055: END IF;

Line 8052: FND_LOG.string (log_level => FND_LOG.level_procedure,

8048: WHERE
8049: auction_header_id = p_auction_header_id;
8050:
8051: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8052: FND_LOG.string (log_level => FND_LOG.level_procedure,
8053: module => g_module_prefix || l_module_name,
8054: message => 'Leaving procedure = ' || l_module_name);
8055: END IF;
8056:

Line 8063: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

8059: x_result := FND_API.g_ret_sts_unexp_error;
8060: x_error_code := SQLCODE;
8061: x_error_message := SUBSTR(SQLERRM, 1, 100);
8062:
8063: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8064: FND_LOG.string (log_level => FND_LOG.level_exception,
8065: module => g_module_prefix || l_module_name,
8066: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
8067: END IF;

Line 8064: FND_LOG.string (log_level => FND_LOG.level_exception,

8060: x_error_code := SQLCODE;
8061: x_error_message := SUBSTR(SQLERRM, 1, 100);
8062:
8063: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8064: FND_LOG.string (log_level => FND_LOG.level_exception,
8065: module => g_module_prefix || l_module_name,
8066: message => 'Unexpected exception occured error_code = ' || x_error_code || ', error_message = ' || x_error_message);
8067: END IF;
8068: END update_before_publish;

Line 8086: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

8082:
8083: l_module_name := 'report_concurrent_failure';
8084: x_result := FND_API.g_ret_sts_success;
8085:
8086: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8087: FND_LOG.string (log_level => FND_LOG.level_procedure,
8088: module => g_module_prefix || l_module_name,
8089: message => 'Entered procedure = ' || l_module_name);
8090: END IF;

Line 8087: FND_LOG.string (log_level => FND_LOG.level_procedure,

8083: l_module_name := 'report_concurrent_failure';
8084: x_result := FND_API.g_ret_sts_success;
8085:
8086: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8087: FND_LOG.string (log_level => FND_LOG.level_procedure,
8088: module => g_module_prefix || l_module_name,
8089: message => 'Entered procedure = ' || l_module_name);
8090: END IF;
8091:

Line 8092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8088: module => g_module_prefix || l_module_name,
8089: message => 'Entered procedure = ' || l_module_name);
8090: END IF;
8091:
8092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8093: FND_LOG.string(log_level => FND_LOG.level_statement,
8094: module => g_module_prefix || 'report_concurrent_failure',
8095: message => 'Calling the notification genration procedure to inform failure'
8096: || ', p_request_id = ' || p_request_id

Line 8093: FND_LOG.string(log_level => FND_LOG.level_statement,

8089: message => 'Entered procedure = ' || l_module_name);
8090: END IF;
8091:
8092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8093: FND_LOG.string(log_level => FND_LOG.level_statement,
8094: module => g_module_prefix || 'report_concurrent_failure',
8095: message => 'Calling the notification genration procedure to inform failure'
8096: || ', p_request_id = ' || p_request_id
8097: || ', p_messagetype = ' || 'E'

Line 8116: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

8112: p_ProgramTypeCode => p_program_type_code,
8113: p_DestinationPageCode => 'PON_CONCURRENT_ERRORS',
8114: p_bid_number => NULL);
8115:
8116: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8117: FND_LOG.string (log_level => FND_LOG.level_procedure,
8118: module => g_module_prefix || l_module_name,
8119: message => 'Leaving procedure = ' || l_module_name);
8120: END IF;

Line 8117: FND_LOG.string (log_level => FND_LOG.level_procedure,

8113: p_DestinationPageCode => 'PON_CONCURRENT_ERRORS',
8114: p_bid_number => NULL);
8115:
8116: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8117: FND_LOG.string (log_level => FND_LOG.level_procedure,
8118: module => g_module_prefix || l_module_name,
8119: message => 'Leaving procedure = ' || l_module_name);
8120: END IF;
8121:

Line 8128: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

8124: x_result := FND_API.g_ret_sts_unexp_error;
8125: x_error_code := SQLCODE;
8126: x_error_message := SUBSTR(SQLERRM, 1, 100);
8127:
8128: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8129: FND_LOG.string (log_level => FND_LOG.level_exception,
8130: module => g_module_prefix || l_module_name,
8131: message => 'Unexpected exception occured error_code = ' ||
8132: x_error_code || ', error_message = ' || x_error_message);

Line 8129: FND_LOG.string (log_level => FND_LOG.level_exception,

8125: x_error_code := SQLCODE;
8126: x_error_message := SUBSTR(SQLERRM, 1, 100);
8127:
8128: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8129: FND_LOG.string (log_level => FND_LOG.level_exception,
8130: module => g_module_prefix || l_module_name,
8131: message => 'Unexpected exception occured error_code = ' ||
8132: x_error_code || ', error_message = ' || x_error_message);
8133: END IF;

Line 8154: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

8150:
8151: l_module_name := 'report_concurrent_success';
8152: x_result := FND_API.g_ret_sts_success;
8153:
8154: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8155: FND_LOG.string (log_level => FND_LOG.level_procedure,
8156: module => g_module_prefix || l_module_name,
8157: message => 'Entered procedure = ' || l_module_name);
8158: END IF;

Line 8155: FND_LOG.string (log_level => FND_LOG.level_procedure,

8151: l_module_name := 'report_concurrent_success';
8152: x_result := FND_API.g_ret_sts_success;
8153:
8154: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8155: FND_LOG.string (log_level => FND_LOG.level_procedure,
8156: module => g_module_prefix || l_module_name,
8157: message => 'Entered procedure = ' || l_module_name);
8158: END IF;
8159:

Line 8168: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8164: ELSE
8165: l_destination_page_code := 'PON_NEG_SUMMARY';
8166: END IF;
8167:
8168: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8169: FND_LOG.string(log_level => FND_LOG.level_statement,
8170: module => g_module_prefix || l_module_name,
8171: message => 'Calling the notification genration procedure to inform success'
8172: || ', p_request_id = ' || p_request_id

Line 8169: FND_LOG.string(log_level => FND_LOG.level_statement,

8165: l_destination_page_code := 'PON_NEG_SUMMARY';
8166: END IF;
8167:
8168: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8169: FND_LOG.string(log_level => FND_LOG.level_statement,
8170: module => g_module_prefix || l_module_name,
8171: message => 'Calling the notification genration procedure to inform success'
8172: || ', p_request_id = ' || p_request_id
8173: || ', p_messagetype = ' || 'S'

Line 8192: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

8188: p_ProgramTypeCode => p_program_type_code,
8189: p_DestinationPageCode => l_destination_page_code,
8190: p_bid_number => NULL);
8191:
8192: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8193: FND_LOG.string (log_level => FND_LOG.level_procedure,
8194: module => g_module_prefix || l_module_name,
8195: message => 'Leaving procedure = ' || l_module_name);
8196: END IF;

Line 8193: FND_LOG.string (log_level => FND_LOG.level_procedure,

8189: p_DestinationPageCode => l_destination_page_code,
8190: p_bid_number => NULL);
8191:
8192: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8193: FND_LOG.string (log_level => FND_LOG.level_procedure,
8194: module => g_module_prefix || l_module_name,
8195: message => 'Leaving procedure = ' || l_module_name);
8196: END IF;
8197:

Line 8204: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

8200: x_result := FND_API.g_ret_sts_unexp_error;
8201: x_error_code := SQLCODE;
8202: x_error_message := SUBSTR(SQLERRM, 1, 100);
8203:
8204: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8205: FND_LOG.string (log_level => FND_LOG.level_exception,
8206: module => g_module_prefix || l_module_name,
8207: message => 'Unexpected exception occured error_code = ' ||
8208: x_error_code || ', error_message = ' || x_error_message);

Line 8205: FND_LOG.string (log_level => FND_LOG.level_exception,

8201: x_error_code := SQLCODE;
8202: x_error_message := SUBSTR(SQLERRM, 1, 100);
8203:
8204: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8205: FND_LOG.string (log_level => FND_LOG.level_exception,
8206: module => g_module_prefix || l_module_name,
8207: message => 'Unexpected exception occured error_code = ' ||
8208: x_error_code || ', error_message = ' || x_error_message);
8209: END IF;

Line 8233: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

8229:
8230: l_module_name := 'handle_fatal_exception';
8231: x_result := FND_API.g_ret_sts_success;
8232:
8233: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8234: FND_LOG.string (log_level => FND_LOG.level_procedure,
8235: module => g_module_prefix || l_module_name,
8236: message => 'Entered procedure = ' || l_module_name);
8237: END IF;

Line 8234: FND_LOG.string (log_level => FND_LOG.level_procedure,

8230: l_module_name := 'handle_fatal_exception';
8231: x_result := FND_API.g_ret_sts_success;
8232:
8233: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8234: FND_LOG.string (log_level => FND_LOG.level_procedure,
8235: module => g_module_prefix || l_module_name,
8236: message => 'Entered procedure = ' || l_module_name);
8237: END IF;
8238:

Line 8243: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

8239: -- Rollback any changes
8240: ROLLBACK;
8241:
8242: -- Log the error message
8243: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8244: FND_LOG.string (log_level => FND_LOG.level_exception,
8245: module => g_module_prefix || l_module_name,
8246: message => 'Fatal Error Message = ' || p_log_message);
8247: END IF;

Line 8244: FND_LOG.string (log_level => FND_LOG.level_exception,

8240: ROLLBACK;
8241:
8242: -- Log the error message
8243: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8244: FND_LOG.string (log_level => FND_LOG.level_exception,
8245: module => g_module_prefix || l_module_name,
8246: message => 'Fatal Error Message = ' || p_log_message);
8247: END IF;
8248:

Line 8282: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN

8278:
8279: -- commit
8280: COMMIT;
8281:
8282: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8283: FND_LOG.string (log_level => FND_LOG.level_procedure,
8284: module => g_module_prefix || l_module_name,
8285: message => 'Leaving procedure = ' || l_module_name);
8286: END IF;

Line 8283: FND_LOG.string (log_level => FND_LOG.level_procedure,

8279: -- commit
8280: COMMIT;
8281:
8282: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8283: FND_LOG.string (log_level => FND_LOG.level_procedure,
8284: module => g_module_prefix || l_module_name,
8285: message => 'Leaving procedure = ' || l_module_name);
8286: END IF;
8287:

Line 8294: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN

8290: x_result := FND_API.g_ret_sts_unexp_error;
8291: x_error_code := SQLCODE;
8292: x_error_message := SUBSTR(SQLERRM, 1, 100);
8293:
8294: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8295: FND_LOG.string (log_level => FND_LOG.level_exception,
8296: module => g_module_prefix || l_module_name,
8297: message => 'Unexpected exception occured error_code = ' ||
8298: x_error_code || ', error_message = ' || x_error_message);

Line 8295: FND_LOG.string (log_level => FND_LOG.level_exception,

8291: x_error_code := SQLCODE;
8292: x_error_message := SUBSTR(SQLERRM, 1, 100);
8293:
8294: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
8295: FND_LOG.string (log_level => FND_LOG.level_exception,
8296: module => g_module_prefix || l_module_name,
8297: message => 'Unexpected exception occured error_code = ' ||
8298: x_error_code || ', error_message = ' || x_error_message);
8299: END IF;

Line 8427: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN --{

8423:
8424: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
8425: l_login_id := FND_GLOBAL.LOGIN_ID;
8426:
8427: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN --{
8428: FND_LOG.string(log_level => FND_LOG.level_procedure,
8429: module => g_module_prefix || l_module_name,
8430: message => 'Entered procedure: p_auction_header_id = ' || p_auction_header_id
8431: || ', p_for_approval = ' || BOOLEAN_TO_STRING (p_for_approval)

Line 8428: FND_LOG.string(log_level => FND_LOG.level_procedure,

8424: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
8425: l_login_id := FND_GLOBAL.LOGIN_ID;
8426:
8427: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN --{
8428: FND_LOG.string(log_level => FND_LOG.level_procedure,
8429: module => g_module_prefix || l_module_name,
8430: message => 'Entered procedure: p_auction_header_id = ' || p_auction_header_id
8431: || ', p_for_approval = ' || BOOLEAN_TO_STRING (p_for_approval)
8432: || ', p_note_to_approvers = ' || p_note_to_approvers

Line 8444: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8440: || ', p_company_party_id = ' || p_company_party_id
8441: || ', p_curr_language = ' || p_curr_language);
8442: END IF; --}
8443:
8444: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8445: FND_LOG.string(log_level => FND_LOG.level_statement,
8446: module => g_module_prefix || l_module_name,
8447: message => 'Collection auction information');
8448: END IF; --}

Line 8445: FND_LOG.string(log_level => FND_LOG.level_statement,

8441: || ', p_curr_language = ' || p_curr_language);
8442: END IF; --}
8443:
8444: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8445: FND_LOG.string(log_level => FND_LOG.level_statement,
8446: module => g_module_prefix || l_module_name,
8447: message => 'Collection auction information');
8448: END IF; --}
8449:

Line 8553: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8549: INTO l_invitees_count
8550: FROM pon_bidding_parties
8551: WHERE auction_header_id = p_auction_header_id;
8552:
8553: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8554: FND_LOG.string(log_level => FND_LOG.level_statement,
8555: module => g_module_prefix || l_module_name,
8556: message => 'Auction information collected: ' ||
8557: 'l_draft_locked = ' || l_draft_locked ||

Line 8554: FND_LOG.string(log_level => FND_LOG.level_statement,

8550: FROM pon_bidding_parties
8551: WHERE auction_header_id = p_auction_header_id;
8552:
8553: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8554: FND_LOG.string(log_level => FND_LOG.level_statement,
8555: module => g_module_prefix || l_module_name,
8556: message => 'Auction information collected: ' ||
8557: 'l_draft_locked = ' || l_draft_locked ||
8558: ', l_draft_locked_by_contact_id = ' || l_draft_locked_by_contact_id ||

Line 8592: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8588: ', l_bid_visibility_code = ' || l_bid_visibility_code ||
8589: ', l_price_tiers_indicator = ' || l_price_tiers_indicator);
8590: END IF; --}
8591:
8592: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8593: FND_LOG.string(log_level => FND_LOG.level_statement,
8594: module => g_module_prefix || l_module_name,
8595: message => 'Checking for lock on the negotiation');
8596: END IF; --}

Line 8593: FND_LOG.string(log_level => FND_LOG.level_statement,

8589: ', l_price_tiers_indicator = ' || l_price_tiers_indicator);
8590: END IF; --}
8591:
8592: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8593: FND_LOG.string(log_level => FND_LOG.level_statement,
8594: module => g_module_prefix || l_module_name,
8595: message => 'Checking for lock on the negotiation');
8596: END IF; --}
8597:

Line 8602: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8598: --CHECK FOR DRAFT LOCK ON THE NEGOTIATION
8599:
8600: IF (NOT ('Y' = l_draft_locked AND l_draft_locked_by_contact_id = p_user_party_id)) THEN --{
8601:
8602: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8603: FND_LOG.string(log_level => FND_LOG.level_statement,
8604: module => g_module_prefix || l_module_name,
8605: message => 'The person who initiated the concurrent program no longer has the lock on the negotiation');
8606: END IF; --}

Line 8603: FND_LOG.string(log_level => FND_LOG.level_statement,

8599:
8600: IF (NOT ('Y' = l_draft_locked AND l_draft_locked_by_contact_id = p_user_party_id)) THEN --{
8601:
8602: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8603: FND_LOG.string(log_level => FND_LOG.level_statement,
8604: module => g_module_prefix || l_module_name,
8605: message => 'The person who initiated the concurrent program no longer has the lock on the negotiation');
8606: END IF; --}
8607:

Line 8625: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8621: p_auction_header_id => p_auction_header_id,
8622: p_expiration_date => SYSDATE + 7,
8623: p_user_id => p_user_id);
8624:
8625: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8626: FND_LOG.string(log_level => FND_LOG.level_statement,
8627: module => g_module_prefix || l_module_name,
8628: message => 'Setting return code to 2 and returning after logging PON_NO_DRAFT_LOCK error');
8629: END IF; --}

Line 8626: FND_LOG.string(log_level => FND_LOG.level_statement,

8622: p_expiration_date => SYSDATE + 7,
8623: p_user_id => p_user_id);
8624:
8625: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8626: FND_LOG.string(log_level => FND_LOG.level_statement,
8627: module => g_module_prefix || l_module_name,
8628: message => 'Setting return code to 2 and returning after logging PON_NO_DRAFT_LOCK error');
8629: END IF; --}
8630:

Line 8663: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8659: l_is_new_round := true;
8660: l_prev_document_number := l_auction_header_id_prev_round;
8661: END IF; --}
8662:
8663: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8664: FND_LOG.string(log_level => FND_LOG.level_statement,
8665: module => g_module_prefix || l_module_name,
8666: message => 'New round/amendment variables initialized' ||
8667: ', l_is_new_round = ' || BOOLEAN_TO_STRING (l_is_new_round)||

Line 8664: FND_LOG.string(log_level => FND_LOG.level_statement,

8660: l_prev_document_number := l_auction_header_id_prev_round;
8661: END IF; --}
8662:
8663: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8664: FND_LOG.string(log_level => FND_LOG.level_statement,
8665: module => g_module_prefix || l_module_name,
8666: message => 'New round/amendment variables initialized' ||
8667: ', l_is_new_round = ' || BOOLEAN_TO_STRING (l_is_new_round)||
8668: ', l_is_amendment = ' || BOOLEAN_TO_STRING (l_is_amendment)||

Line 8677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8673: --If the negotiation that the buyer is amending becomes closed or cancelled,
8674:
8675: IF (l_is_amendment) THEN
8676:
8677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8678: FND_LOG.string(log_level => FND_LOG.level_statement,
8679: module => g_module_prefix || l_module_name,
8680: message => 'This is an amendment, checking if the amendment can be published or not');
8681: END IF; --}

Line 8678: FND_LOG.string(log_level => FND_LOG.level_statement,

8674:
8675: IF (l_is_amendment) THEN
8676:
8677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8678: FND_LOG.string(log_level => FND_LOG.level_statement,
8679: module => g_module_prefix || l_module_name,
8680: message => 'This is an amendment, checking if the amendment can be published or not');
8681: END IF; --}
8682:

Line 8687: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8683: PON_NEG_UPDATE_PKG.CAN_EDIT_DRAFT_AMEND (
8684: p_auction_header_id_prev_doc => l_auction_header_id_prev_amend,
8685: x_error_code => l_error_code);
8686:
8687: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8688: FND_LOG.string(log_level => FND_LOG.level_statement,
8689: module => g_module_prefix || l_module_name,
8690: message => 'The return code from call to PON_NEG_UPDATE_PKG.CAN_EDIT_DRAFT_AMEND = ' || l_error_code);
8691: END IF; --}

Line 8688: FND_LOG.string(log_level => FND_LOG.level_statement,

8684: p_auction_header_id_prev_doc => l_auction_header_id_prev_amend,
8685: x_error_code => l_error_code);
8686:
8687: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8688: FND_LOG.string(log_level => FND_LOG.level_statement,
8689: module => g_module_prefix || l_module_name,
8690: message => 'The return code from call to PON_NEG_UPDATE_PKG.CAN_EDIT_DRAFT_AMEND = ' || l_error_code);
8691: END IF; --}
8692:

Line 8695: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8691: END IF; --}
8692:
8693: IF (l_error_code <> 'SUCCESS') THEN
8694:
8695: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8696: FND_LOG.string(log_level => FND_LOG.level_statement,
8697: module => g_module_prefix || l_module_name,
8698: message => 'The return code is not success so logging error and exiting');
8699: END IF; --}

Line 8696: FND_LOG.string(log_level => FND_LOG.level_statement,

8692:
8693: IF (l_error_code <> 'SUCCESS') THEN
8694:
8695: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8696: FND_LOG.string(log_level => FND_LOG.level_statement,
8697: module => g_module_prefix || l_module_name,
8698: message => 'The return code is not success so logging error and exiting');
8699: END IF; --}
8700:

Line 8730: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8726: RETURN;
8727: END IF;
8728: END IF;
8729:
8730: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8731: FND_LOG.string(log_level => FND_LOG.level_statement,
8732: module => g_module_prefix || l_module_name,
8733: message => 'Calling validate lines procedure');
8734: END IF; --}

Line 8731: FND_LOG.string(log_level => FND_LOG.level_statement,

8727: END IF;
8728: END IF;
8729:
8730: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8731: FND_LOG.string(log_level => FND_LOG.level_statement,
8732: module => g_module_prefix || l_module_name,
8733: message => 'Calling validate lines procedure');
8734: END IF; --}
8735:

Line 8786: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8782: RETCODE := 2;
8783: RETURN;
8784: END IF; --}
8785:
8786: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8787: FND_LOG.string(log_level => FND_LOG.level_statement,
8788: module => g_module_prefix || l_module_name,
8789: message => 'Calling CHECK_ACTION_ERRORS_PRESENT with l_batch_id = ' || l_batch_id);
8790: END IF; --}

Line 8787: FND_LOG.string(log_level => FND_LOG.level_statement,

8783: RETURN;
8784: END IF; --}
8785:
8786: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8787: FND_LOG.string(log_level => FND_LOG.level_statement,
8788: module => g_module_prefix || l_module_name,
8789: message => 'Calling CHECK_ACTION_ERRORS_PRESENT with l_batch_id = ' || l_batch_id);
8790: END IF; --}
8791:

Line 8795: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8791:
8792: -- Check if there are any errors logged by the VALIDATE_LINES procedure
8793: l_errors_present := CHECK_ACTION_ERRORS_PRESENT (l_batch_id);
8794:
8795: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8796: FND_LOG.string(log_level => FND_LOG.level_statement,
8797: module => g_module_prefix || l_module_name,
8798: message => 'Return value from CHECK_ACTION_ERRORS_PRESENT = ' || BOOLEAN_TO_STRING (l_errors_present));
8799: END IF; --}

Line 8796: FND_LOG.string(log_level => FND_LOG.level_statement,

8792: -- Check if there are any errors logged by the VALIDATE_LINES procedure
8793: l_errors_present := CHECK_ACTION_ERRORS_PRESENT (l_batch_id);
8794:
8795: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8796: FND_LOG.string(log_level => FND_LOG.level_statement,
8797: module => g_module_prefix || l_module_name,
8798: message => 'Return value from CHECK_ACTION_ERRORS_PRESENT = ' || BOOLEAN_TO_STRING (l_errors_present));
8799: END IF; --}
8800:

Line 8806: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8802:
8803: -- If errors are present then the concurrent program status should be set to ERROR
8804: RETCODE := 2;
8805:
8806: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8807: FND_LOG.string(log_level => FND_LOG.level_statement,
8808: module => g_module_prefix || l_module_name,
8809: message => 'Errors were found while validating, exiting with return code = ' || RETCODE);
8810: END IF; --}

Line 8807: FND_LOG.string(log_level => FND_LOG.level_statement,

8803: -- If errors are present then the concurrent program status should be set to ERROR
8804: RETCODE := 2;
8805:
8806: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8807: FND_LOG.string(log_level => FND_LOG.level_statement,
8808: module => g_module_prefix || l_module_name,
8809: message => 'Errors were found while validating, exiting with return code = ' || RETCODE);
8810: END IF; --}
8811:

Line 8812: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8808: module => g_module_prefix || l_module_name,
8809: message => 'Errors were found while validating, exiting with return code = ' || RETCODE);
8810: END IF; --}
8811:
8812: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8813: FND_LOG.string(log_level => FND_LOG.level_statement,
8814: module => g_module_prefix || l_module_name,
8815: message => 'Rolling back the transaction and saving the errors');
8816: END IF; --}

Line 8813: FND_LOG.string(log_level => FND_LOG.level_statement,

8809: message => 'Errors were found while validating, exiting with return code = ' || RETCODE);
8810: END IF; --}
8811:
8812: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8813: FND_LOG.string(log_level => FND_LOG.level_statement,
8814: module => g_module_prefix || l_module_name,
8815: message => 'Rolling back the transaction and saving the errors');
8816: END IF; --}
8817:

Line 8843: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8839:
8840: l_redirect_func := 'PON_NEG_CRT_REVIEW';
8841: END IF; --}
8842:
8843: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8844: FND_LOG.string(log_level => FND_LOG.level_statement,
8845: module => g_module_prefix || l_module_name,
8846: message => 'l_redirect_func = ' || l_redirect_func);
8847: END IF; --}

Line 8844: FND_LOG.string(log_level => FND_LOG.level_statement,

8840: l_redirect_func := 'PON_NEG_CRT_REVIEW';
8841: END IF; --}
8842:
8843: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8844: FND_LOG.string(log_level => FND_LOG.level_statement,
8845: module => g_module_prefix || l_module_name,
8846: message => 'l_redirect_func = ' || l_redirect_func);
8847: END IF; --}
8848:

Line 8854: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8850: -- on the draft and initiate the approval workflow
8851:
8852: IF (p_for_approval) THEN --{
8853:
8854: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8855: FND_LOG.string(log_level => FND_LOG.level_statement,
8856: module => g_module_prefix || l_module_name,
8857: message => 'This is for approval');
8858: END IF; --}

Line 8855: FND_LOG.string(log_level => FND_LOG.level_statement,

8851:
8852: IF (p_for_approval) THEN --{
8853:
8854: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8855: FND_LOG.string(log_level => FND_LOG.level_statement,
8856: module => g_module_prefix || l_module_name,
8857: message => 'This is for approval');
8858: END IF; --}
8859:

Line 8874: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8870: LAST_UPDATED_BY = p_user_id
8871: WHERE
8872: AUCTION_HEADER_ID = p_auction_header_id;
8873:
8874: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8875: FND_LOG.string(log_level => FND_LOG.level_statement,
8876: module => g_module_prefix || l_module_name,
8877: message => 'Initiating the approval workflow'
8878: || ', p_encrypted_auction_header_id = ' || p_encrypted_auction_header_id

Line 8875: FND_LOG.string(log_level => FND_LOG.level_statement,

8871: WHERE
8872: AUCTION_HEADER_ID = p_auction_header_id;
8873:
8874: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8875: FND_LOG.string(log_level => FND_LOG.level_statement,
8876: module => g_module_prefix || l_module_name,
8877: message => 'Initiating the approval workflow'
8878: || ', p_encrypted_auction_header_id = ' || p_encrypted_auction_header_id
8879: || ', P_AUCTION_HEADER_ID = ' || p_auction_header_id

Line 8910: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8906: -- contracts methods, etc and make the auction active
8907:
8908: ELSE
8909:
8910: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8911: FND_LOG.string(log_level => FND_LOG.level_statement,
8912: module => g_module_prefix || l_module_name,
8913: message => 'This is for publish');
8914: END IF; --}

Line 8911: FND_LOG.string(log_level => FND_LOG.level_statement,

8907:
8908: ELSE
8909:
8910: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8911: FND_LOG.string(log_level => FND_LOG.level_statement,
8912: module => g_module_prefix || l_module_name,
8913: message => 'This is for publish');
8914: END IF; --}
8915:

Line 8916: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8912: module => g_module_prefix || l_module_name,
8913: message => 'This is for publish');
8914: END IF; --}
8915:
8916: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8917: FND_LOG.string(log_level => FND_LOG.level_statement,
8918: module => g_module_prefix || l_module_name,
8919: message => 'Calling update lines before publish');
8920: END IF; --}

Line 8917: FND_LOG.string(log_level => FND_LOG.level_statement,

8913: message => 'This is for publish');
8914: END IF; --}
8915:
8916: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8917: FND_LOG.string(log_level => FND_LOG.level_statement,
8918: module => g_module_prefix || l_module_name,
8919: message => 'Calling update lines before publish');
8920: END IF; --}
8921:

Line 8951: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8947: RETCODE := 2;
8948: RETURN;
8949: END IF; --}
8950:
8951: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8952: FND_LOG.string(log_level => FND_LOG.level_statement,
8953: module => g_module_prefix || l_module_name,
8954: message => 'Calling update header before publish');
8955: END IF; --}

Line 8952: FND_LOG.string(log_level => FND_LOG.level_statement,

8948: RETURN;
8949: END IF; --}
8950:
8951: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8952: FND_LOG.string(log_level => FND_LOG.level_statement,
8953: module => g_module_prefix || l_module_name,
8954: message => 'Calling update header before publish');
8955: END IF; --}
8956:

Line 8982: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8978: RETCODE := 2;
8979: RETURN;
8980: END IF; --}
8981:
8982: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8983: FND_LOG.string(log_level => FND_LOG.level_statement,
8984: module => g_module_prefix || l_module_name,
8985: message => 'Checking if this is a new round or amendment');
8986: END IF; --}

Line 8983: FND_LOG.string(log_level => FND_LOG.level_statement,

8979: RETURN;
8980: END IF; --}
8981:
8982: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8983: FND_LOG.string(log_level => FND_LOG.level_statement,
8984: module => g_module_prefix || l_module_name,
8985: message => 'Checking if this is a new round or amendment');
8986: END IF; --}
8987:

Line 8998: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

8994: ELSE
8995: l_transaction_type := 'CREATE_NEW_ROUND';
8996: END IF;
8997:
8998: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8999: FND_LOG.string(log_level => FND_LOG.level_statement,
9000: module => g_module_prefix || l_module_name,
9001: message => 'Calling update_to_new_document');
9002: END IF; --}

Line 8999: FND_LOG.string(log_level => FND_LOG.level_statement,

8995: l_transaction_type := 'CREATE_NEW_ROUND';
8996: END IF;
8997:
8998: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
8999: FND_LOG.string(log_level => FND_LOG.level_statement,
9000: module => g_module_prefix || l_module_name,
9001: message => 'Calling update_to_new_document');
9002: END IF; --}
9003:

Line 9019: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN --{

9015:
9016: IF (nvl (l_error_code, g_invalid_string) <> 'SUCCESS') THEN
9017:
9018: --EXCEPTION: EXIT FROM CONCURRENT PROGRAM
9019: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN --{
9020: FND_LOG.string(log_level => FND_LOG.level_exception,
9021: module => g_module_prefix || l_module_name,
9022: message => 'Exception in update_to_new_document call = ' || l_error_msg);
9023: END IF; --}

Line 9020: FND_LOG.string(log_level => FND_LOG.level_exception,

9016: IF (nvl (l_error_code, g_invalid_string) <> 'SUCCESS') THEN
9017:
9018: --EXCEPTION: EXIT FROM CONCURRENT PROGRAM
9019: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN --{
9020: FND_LOG.string(log_level => FND_LOG.level_exception,
9021: module => g_module_prefix || l_module_name,
9022: message => 'Exception in update_to_new_document call = ' || l_error_msg);
9023: END IF; --}
9024:

Line 9061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{

9057: RETURN;
9058: END IF;
9059: END IF; --}
9060:
9061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
9062: FND_LOG.string(log_level => FND_LOG.level_statement,
9063: module => g_module_prefix || l_module_name,
9064: message => 'Inserting row into pon discussions');
9065: END IF; --}

Line 9062: FND_LOG.string(log_level => FND_LOG.level_statement,

9058: END IF;
9059: END IF; --}
9060:
9061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
9062: FND_LOG.string(log_level => FND_LOG.level_statement,
9063: module => g_module_prefix || l_module_name,
9064: message => 'Inserting row into pon discussions');
9065: END IF; --}
9066:

Line 9235: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN --{

9231: -- In case of an exception then
9232: -- rollback any changes done and send out a failure notification
9233: ROLLBACK;
9234:
9235: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN --{
9236: FND_LOG.string(log_level => FND_LOG.level_exception,
9237: module => g_module_prefix || l_module_name,
9238: message => substrb(SQLERRM, 1, 500));
9239: END IF; --}

Line 9236: FND_LOG.string(log_level => FND_LOG.level_exception,

9232: -- rollback any changes done and send out a failure notification
9233: ROLLBACK;
9234:
9235: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN --{
9236: FND_LOG.string(log_level => FND_LOG.level_exception,
9237: module => g_module_prefix || l_module_name,
9238: message => substrb(SQLERRM, 1, 500));
9239: END IF; --}
9240:

Line 9270: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN --{

9266: END; --}
9267:
9268: COMMIT;
9269:
9270: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN --{
9271: FND_LOG.string(log_level => FND_LOG.level_procedure,
9272: module => g_module_prefix || l_module_name,
9273: message => 'Leaving concurrent program');
9274: END IF; --}

Line 9271: FND_LOG.string(log_level => FND_LOG.level_procedure,

9267:
9268: COMMIT;
9269:
9270: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN --{
9271: FND_LOG.string(log_level => FND_LOG.level_procedure,
9272: module => g_module_prefix || l_module_name,
9273: message => 'Leaving concurrent program');
9274: END IF; --}
9275: