DBA Data[Home] [Help]

APPS.RCV_CORE_S dependencies on ASN_DEBUG

Line 5: g_asn_debug VARCHAR2(1) := asn_debug.is_debug_on; -- Bug 9152790

1: PACKAGE BODY rcv_core_s AS
2: /* $Header: RCVCOCOB.pls 120.4 2012/01/05 04:43:51 honwei ship $*/
3:
4: -- Read the profile option that enables/disables the debug log
5: g_asn_debug VARCHAR2(1) := asn_debug.is_debug_on; -- Bug 9152790
6: g_log_head CONSTANT VARCHAR2(30) := 'po.plsql.RCV_CORE_S.'; --
7: e_validation_error EXCEPTION;
8:
9: /*===========================================================================

Line 1295: IF (g_asn_debug = 'Y') THEN

1291: x_header_record IN OUT NOCOPY rcv_shipment_header_sv.headerrectype
1292: ) IS
1293: BEGIN
1294: IF x_header_record.header_record.receipt_header_id IS NOT NULL THEN
1295: IF (g_asn_debug = 'Y') THEN
1296: asn_debug.put_line('Need to put a cursor to retrieve other values');
1297: asn_debug.put_line('Shipment header Id has been provided');
1298: END IF;
1299:

Line 1296: asn_debug.put_line('Need to put a cursor to retrieve other values');

1292: ) IS
1293: BEGIN
1294: IF x_header_record.header_record.receipt_header_id IS NOT NULL THEN
1295: IF (g_asn_debug = 'Y') THEN
1296: asn_debug.put_line('Need to put a cursor to retrieve other values');
1297: asn_debug.put_line('Shipment header Id has been provided');
1298: END IF;
1299:
1300: RETURN;

Line 1297: asn_debug.put_line('Shipment header Id has been provided');

1293: BEGIN
1294: IF x_header_record.header_record.receipt_header_id IS NOT NULL THEN
1295: IF (g_asn_debug = 'Y') THEN
1296: asn_debug.put_line('Need to put a cursor to retrieve other values');
1297: asn_debug.put_line('Shipment header Id has been provided');
1298: END IF;
1299:
1300: RETURN;
1301: END IF;

Line 1311: IF (g_asn_debug = 'Y') THEN

1307: OR REPLACE(x_header_record.header_record.shipment_num,
1308: ' ',
1309: ''
1310: ) IS NULL) THEN
1311: IF (g_asn_debug = 'Y') THEN
1312: asn_debug.put_line('Cannot derive the shipment_header_id at this point');
1313: END IF;
1314:
1315: RETURN;

Line 1312: asn_debug.put_line('Cannot derive the shipment_header_id at this point');

1308: ' ',
1309: ''
1310: ) IS NULL) THEN
1311: IF (g_asn_debug = 'Y') THEN
1312: asn_debug.put_line('Cannot derive the shipment_header_id at this point');
1313: END IF;
1314:
1315: RETURN;
1316: END IF;

Line 1341: IF (g_asn_debug = 'Y') THEN

1337: AND shipment_num = x_header_record.header_record.shipment_num
1338: AND shipped_date >= ADD_MONTHS(x_header_record.header_record.shipped_date, -12);
1339: EXCEPTION
1340: WHEN OTHERS THEN
1341: IF (g_asn_debug = 'Y') THEN
1342: asn_debug.put_line(SQLERRM);
1343: END IF;
1344: END;
1345:

Line 1342: asn_debug.put_line(SQLERRM);

1338: AND shipped_date >= ADD_MONTHS(x_header_record.header_record.shipped_date, -12);
1339: EXCEPTION
1340: WHEN OTHERS THEN
1341: IF (g_asn_debug = 'Y') THEN
1342: asn_debug.put_line(SQLERRM);
1343: END IF;
1344: END;
1345:
1346: RETURN;

Line 1368: IF (g_asn_debug = 'Y') THEN

1364: BEGIN
1365: -- no need to derive shipment_header_id if it is already provided
1366:
1367: IF x_header_record.header_record.receipt_header_id IS NOT NULL THEN
1368: IF (g_asn_debug = 'Y') THEN
1369: asn_debug.put_line('Shipment header Id has been provided');
1370: END IF;
1371:
1372: RETURN;

Line 1369: asn_debug.put_line('Shipment header Id has been provided');

1365: -- no need to derive shipment_header_id if it is already provided
1366:
1367: IF x_header_record.header_record.receipt_header_id IS NOT NULL THEN
1368: IF (g_asn_debug = 'Y') THEN
1369: asn_debug.put_line('Shipment header Id has been provided');
1370: END IF;
1371:
1372: RETURN;
1373: END IF;

Line 1384: IF (g_asn_debug = 'Y') THEN

1380: OR REPLACE(x_header_record.header_record.shipment_num,
1381: ' ',
1382: ''
1383: ) IS NULL) THEN
1384: IF (g_asn_debug = 'Y') THEN
1385: asn_debug.put_line('Shipment num is still null');
1386: END IF;
1387:
1388: RETURN;

Line 1385: asn_debug.put_line('Shipment num is still null');

1381: ' ',
1382: ''
1383: ) IS NULL) THEN
1384: IF (g_asn_debug = 'Y') THEN
1385: asn_debug.put_line('Shipment num is still null');
1386: END IF;
1387:
1388: RETURN;
1389: END IF;

Line 1414: IF (g_asn_debug = 'Y') THEN

1410: AND shipment_num = x_header_record.header_record.shipment_num
1411: AND shipped_date >= ADD_MONTHS(x_header_record.header_record.shipped_date, -12);
1412: EXCEPTION
1413: WHEN OTHERS THEN
1414: IF (g_asn_debug = 'Y') THEN
1415: asn_debug.put_line(SQLERRM);
1416: END IF;
1417: END;
1418:

Line 1415: asn_debug.put_line(SQLERRM);

1411: AND shipped_date >= ADD_MONTHS(x_header_record.header_record.shipped_date, -12);
1412: EXCEPTION
1413: WHEN OTHERS THEN
1414: IF (g_asn_debug = 'Y') THEN
1415: asn_debug.put_line(SQLERRM);
1416: END IF;
1417: END;
1418:
1419: RETURN;

Line 1441: IF (g_asn_debug = 'Y') THEN

1437: x_shipment_header_id NUMBER; -- added for cancel process
1438: x_sysdate DATE := SYSDATE;
1439: BEGIN
1440: -- Check for shipment number which is null, blank , zero
1441: IF (g_asn_debug = 'Y') THEN
1442: asn_debug.put_line('Check for shipment number which is null, blank , zero ');
1443: END IF;
1444:
1445: /*dbms_output.put_line(nvl(X_header_record.header_record.shipment_num,'@@@'));*/

Line 1442: asn_debug.put_line('Check for shipment number which is null, blank , zero ');

1438: x_sysdate DATE := SYSDATE;
1439: BEGIN
1440: -- Check for shipment number which is null, blank , zero
1441: IF (g_asn_debug = 'Y') THEN
1442: asn_debug.put_line('Check for shipment number which is null, blank , zero ');
1443: END IF;
1444:
1445: /*dbms_output.put_line(nvl(X_header_record.header_record.shipment_num,'@@@'));*/
1446: IF x_header_record.header_record.asn_type IN('ASN', 'ASBN')

Line 1461: IF (g_asn_debug = 'Y') THEN

1457: END IF;
1458:
1459: -- Check for Receipts before ASN
1460:
1461: IF (g_asn_debug = 'Y') THEN
1462: asn_debug.put_line('Check for Receipts before ASN ');
1463: END IF;
1464:
1465: /*

Line 1462: asn_debug.put_line('Check for Receipts before ASN ');

1458:
1459: -- Check for Receipts before ASN
1460:
1461: IF (g_asn_debug = 'Y') THEN
1462: asn_debug.put_line('Check for Receipts before ASN ');
1463: END IF;
1464:
1465: /*
1466: * BUGNO: 1708017

Line 1582: IF (g_asn_debug = 'Y') THEN

1578: END IF;
1579: END IF;
1580:
1581: -- Check for matching ASN if ADD, CANCEL
1582: IF (g_asn_debug = 'Y') THEN
1583: asn_debug.put_line('Check for matching ASN if ADD, CANCEL');
1584: END IF;
1585:
1586: /*

Line 1583: asn_debug.put_line('Check for matching ASN if ADD, CANCEL');

1579: END IF;
1580:
1581: -- Check for matching ASN if ADD, CANCEL
1582: IF (g_asn_debug = 'Y') THEN
1583: asn_debug.put_line('Check for matching ASN if ADD, CANCEL');
1584: END IF;
1585:
1586: /*
1587: * BUGNO: 1708017

Line 1614: IF (g_asn_debug = 'Y') THEN

1610: END IF;
1611: END IF;
1612:
1613: -- Check that there are no receipts against the ASN for ADD, CANCEL
1614: IF (g_asn_debug = 'Y') THEN
1615: asn_debug.put_line('Check that there are no receipts against the ASN for ADD, CANCEL');
1616: END IF;
1617:
1618: IF x_header_record.header_record.transaction_type IN('ADD', 'CANCEL')

Line 1615: asn_debug.put_line('Check that there are no receipts against the ASN for ADD, CANCEL');

1611: END IF;
1612:
1613: -- Check that there are no receipts against the ASN for ADD, CANCEL
1614: IF (g_asn_debug = 'Y') THEN
1615: asn_debug.put_line('Check that there are no receipts against the ASN for ADD, CANCEL');
1616: END IF;
1617:
1618: IF x_header_record.header_record.transaction_type IN('ADD', 'CANCEL')
1619: AND x_header_record.header_record.asn_type IN('ASN', 'ASBN') THEN

Line 1649: IF (g_asn_debug = 'Y') THEN

1645: AND shipped_date >= ADD_MONTHS(x_sysdate, -12));
1646: END IF;
1647:
1648: IF NVL(x_count, 0) > 0 THEN -- Some quantity has been received
1649: IF (g_asn_debug = 'Y') THEN
1650: asn_debug.put_line('There are receipts against the ASN ' || x_header_record.header_record.shipment_num);
1651: END IF;
1652:
1653: rcv_error_pkg.set_error_message('RCV_ASN_QTY_RECEIVED');

Line 1650: asn_debug.put_line('There are receipts against the ASN ' || x_header_record.header_record.shipment_num);

1646: END IF;
1647:
1648: IF NVL(x_count, 0) > 0 THEN -- Some quantity has been received
1649: IF (g_asn_debug = 'Y') THEN
1650: asn_debug.put_line('There are receipts against the ASN ' || x_header_record.header_record.shipment_num);
1651: END IF;
1652:
1653: rcv_error_pkg.set_error_message('RCV_ASN_QTY_RECEIVED');
1654: rcv_error_pkg.set_token('SHIPMENT', x_header_record.header_record.shipment_num);

Line 1662: IF (g_asn_debug = 'Y') THEN

1658:
1659: -- If we have reached this place that means the shipment exists
1660: -- Make sure we have a shipment header id
1661:
1662: IF (g_asn_debug = 'Y') THEN
1663: asn_debug.put_line('Make sure we have a shipment_header_id');
1664: END IF;
1665:
1666: /*

Line 1663: asn_debug.put_line('Make sure we have a shipment_header_id');

1659: -- If we have reached this place that means the shipment exists
1660: -- Make sure we have a shipment header id
1661:
1662: IF (g_asn_debug = 'Y') THEN
1663: asn_debug.put_line('Make sure we have a shipment_header_id');
1664: END IF;
1665:
1666: /*
1667: * BUGNO: 1708017

Line 1689: IF (g_asn_debug = 'Y') THEN

1685: END IF;
1686:
1687: -- Verify that the shipment_header_id matches the derived/defaulted shipment_header_id
1688:
1689: IF (g_asn_debug = 'Y') THEN
1690: asn_debug.put_line('Verify that the shipment_header_id matches the derived/defaulted shipment_header_id');
1691: END IF;
1692:
1693: /*

Line 1690: asn_debug.put_line('Verify that the shipment_header_id matches the derived/defaulted shipment_header_id');

1686:
1687: -- Verify that the shipment_header_id matches the derived/defaulted shipment_header_id
1688:
1689: IF (g_asn_debug = 'Y') THEN
1690: asn_debug.put_line('Verify that the shipment_header_id matches the derived/defaulted shipment_header_id');
1691: END IF;
1692:
1693: /*
1694: * BUGNO: 1708017

Line 1714: IF (g_asn_debug = 'Y') THEN

1710: AND TRUNC(shipped_date) = TRUNC(x_header_record.header_record.shipped_date)
1711: AND shipped_date >= ADD_MONTHS(x_sysdate, -12);
1712:
1713: IF x_shipment_header_id <> x_header_record.header_record.receipt_header_id THEN
1714: IF (g_asn_debug = 'Y') THEN
1715: asn_debug.put_line('The shipment_header_id do not match ');
1716: END IF;
1717:
1718: rcv_error_pkg.set_error_message('RCV_ASN_MISMATCH_SHIP_ID');

Line 1715: asn_debug.put_line('The shipment_header_id do not match ');

1711: AND shipped_date >= ADD_MONTHS(x_sysdate, -12);
1712:
1713: IF x_shipment_header_id <> x_header_record.header_record.receipt_header_id THEN
1714: IF (g_asn_debug = 'Y') THEN
1715: asn_debug.put_line('The shipment_header_id do not match ');
1716: END IF;
1717:
1718: rcv_error_pkg.set_error_message('RCV_ASN_MISMATCH_SHIP_ID');
1719: rcv_error_pkg.set_token('SHIPMENT', x_header_record.header_record.shipment_num);