1: PACKAGE BODY INV_CONSIGNED_DIAGNOSTICS_PROC AS
2: -- $Header: INVRCIDB.pls 115.7 2004/02/05 04:00:23 rajkrish noship $
3: --+=======================================================================+
4: --| Copyright (c) 2002 Oracle Corporation |
5: --| Redwood Shores, CA, USA |
673: IF g_debug = 1
674: THEN
675: INV_LOG_UTIL.trace
676: ( '>> IN validate_consumption_txn' ,
677: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
678:
679: INV_LOG_UTIL.trace
680: ( 'p_organization_id => '|| p_organization_id ,
681: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
677: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
678:
679: INV_LOG_UTIL.trace
680: ( 'p_organization_id => '|| p_organization_id ,
681: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
682:
683: INV_LOG_UTIL.trace
684: ( 'p_inventory_item_id => '|| p_inventory_item_id ,
685: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
681: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
682:
683: INV_LOG_UTIL.trace
684: ( 'p_inventory_item_id => '|| p_inventory_item_id ,
685: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
686:
687: INV_LOG_UTIL.trace
688: ( 'p_owning_organization_id => '|| p_owning_organization_id ,
689: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
685: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
686:
687: INV_LOG_UTIL.trace
688: ( 'p_owning_organization_id => '|| p_owning_organization_id ,
689: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
690:
691: INV_LOG_UTIL.trace
692: ( 'p_revision => '|| p_revision ,
693: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
689: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
690:
691: INV_LOG_UTIL.trace
692: ( 'p_revision => '|| p_revision ,
693: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
694: INV_LOG_UTIL.trace
695: ( 'p_po_header_id => '|| p_po_header_id ,
696: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
697: END IF;
692: ( 'p_revision => '|| p_revision ,
693: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
694: INV_LOG_UTIL.trace
695: ( 'p_po_header_id => '|| p_po_header_id ,
696: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
697: END IF;
698:
699: BEGIN
700: OPEN C_VALIDATE_PO ;
725: IF g_debug = 1
726: THEN
727: INV_LOG_UTIL.trace
728: ( 'x_error_code => '|| x_error_code ,
729: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
730: INV_LOG_UTIL.trace
731: ( 'l_blanket_total_amount => '|| l_blanket_total_amount ,
732: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
733: INV_LOG_UTIL.trace
728: ( 'x_error_code => '|| x_error_code ,
729: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
730: INV_LOG_UTIL.trace
731: ( 'l_blanket_total_amount => '|| l_blanket_total_amount ,
732: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
733: INV_LOG_UTIL.trace
734: ( '<< OUT validate_consumption_txn' ,
735: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
736: END IF;
731: ( 'l_blanket_total_amount => '|| l_blanket_total_amount ,
732: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
733: INV_LOG_UTIL.trace
734: ( '<< OUT validate_consumption_txn' ,
735: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
736: END IF;
737:
738:
739: EXCEPTION
787: IF g_debug = 1
788: THEN
789: INV_LOG_UTIL.trace
790: ( '******************************************** ' ,
791: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
792: INV_LOG_UTIL.trace
793: ( '>>> IN Consumption_Advice_diagnostics' ,
794: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
795: INV_LOG_UTIL.trace
790: ( '******************************************** ' ,
791: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
792: INV_LOG_UTIL.trace
793: ( '>>> IN Consumption_Advice_diagnostics' ,
794: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
795: INV_LOG_UTIL.trace
796: ( 'p_error_record_id => '|| p_error_record_id ,
797: 'Consumption_Advice_diagnostics ',9);
798: END IF;
998: IF g_debug = 1
999: THEN
1000: INV_LOG_UTIL.trace
1001: ( '******************************************** ' ,
1002: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1003: INV_LOG_UTIL.trace
1004: ( '<<< OUT Consumption_Advice_diagnostics' ,
1005: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1006: END IF;
1001: ( '******************************************** ' ,
1002: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1003: INV_LOG_UTIL.trace
1004: ( '<<< OUT Consumption_Advice_diagnostics' ,
1005: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1006: END IF;
1007:
1008: EXCEPTION
1009:
1015: ( 'SQLERRM: '|| SQLERRM,9 );
1016:
1017: INV_LOG_UTIL.trace
1018: ( 'Error in Consumption_Advice_diagnostics' ,
1019: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1020: END IF;
1021:
1022: RAISE ;
1023:
1070: IF g_debug = 1
1071: THEN
1072: INV_LOG_UTIL.trace
1073: ( '++++++++++++++++++++++++++++++++++++++++' ,
1074: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1075: INV_LOG_UTIL.trace
1076: ( '>>> IN Ownership_transfer_diagnostics',
1077: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1078: INV_LOG_UTIL.trace
1073: ( '++++++++++++++++++++++++++++++++++++++++' ,
1074: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1075: INV_LOG_UTIL.trace
1076: ( '>>> IN Ownership_transfer_diagnostics',
1077: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1078: INV_LOG_UTIL.trace
1079: ( 'p_error_record_id => '|| p_error_record_id ,
1080: 'Ownership_transfer_diagnostics' ,9);
1081: END IF;
1359: IF g_debug = 1
1360: THEN
1361: INV_LOG_UTIL.trace
1362: ( '++++++++++++++++++++++++++++++++++++++++' ,
1363: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1364: INV_LOG_UTIL.trace
1365: ( '<<< OUT Ownership_transfer_diagnostics',
1366: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1367: END IF;
1362: ( '++++++++++++++++++++++++++++++++++++++++' ,
1363: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1364: INV_LOG_UTIL.trace
1365: ( '<<< OUT Ownership_transfer_diagnostics',
1366: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1367: END IF;
1368:
1369:
1370:
1378: ( 'SQLERRM: '|| SQLERRM,9 );
1379:
1380: INV_LOG_UTIL.trace
1381: ( 'Error in Ownership_transfer_diagnostics',
1382: 'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1383: END IF;
1384:
1385: RAISE ;
1386:
1405:
1406: IF g_debug = 1
1407: THEN
1408: INV_LOG_UTIL.trace
1409: ( '>> Revalidate_error_record' ,'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1410: INV_LOG_UTIL.trace
1411: ( 'p_error_record_id => '|| p_error_record_id,null,9);
1412: END IF;
1413:
1436: IF g_debug = 1
1437: THEN
1438: INV_LOG_UTIL.trace
1439: ( '<< out Revalidate_error_record'
1440: ,'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1441: END IF;
1442: END ;
1443:
1444: IF x_result_out IS NULL
1457:
1458:
1459: IF l_record_type = 1
1460: THEN
1461: INV_CONSIGNED_DIAGNOSTICS_PROC.Ownership_transfer_diagnostics
1462: (p_error_record_id => p_error_record_id );
1463:
1464: ELSIF l_record_type = 2
1465: THEN
1462: (p_error_record_id => p_error_record_id );
1463:
1464: ELSIF l_record_type = 2
1465: THEN
1466: INV_CONSIGNED_DIAGNOSTICS_PROC.Consumption_Advice_diagnostics
1467: (p_error_record_id => p_error_record_id);
1468: END IF;
1469:
1470: IF g_debug = 1
1486: DELETE from mtl_consigned_diag_errors
1487: WHERE record_id = p_error_record_id ;
1488:
1489: END IF;
1490: INV_CONSIGNED_DIAGNOSTICS_PROC.Update_Consumption_Date ;
1491: END IF;
1492: END ;
1493:
1494: COMMIT;
1507: INV_LOG_UTIL.trace
1508: ( 'x_result_out => '|| x_result_out ,
1509: 'Revalidate_error_record',9);
1510: INV_LOG_UTIL.trace
1511: ( '<< out Revalidate_error_record' ,'INV_CONSIGNED_DIAGNOSTICS_PROC',9);
1512: END IF;
1513:
1514:
1515:
1575: IF g_debug = 1
1576: THEN
1577: INV_LOG_UTIL.trace
1578: ( '>> INVRCIDB: IN Consigned_diagnostics ',
1579: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1580:
1581: END IF;
1582:
1583: INV_CONSIGNED_DIAGNOSTICS_PROC.Ownership_transfer_diagnostics
1579: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1580:
1581: END IF;
1582:
1583: INV_CONSIGNED_DIAGNOSTICS_PROC.Ownership_transfer_diagnostics
1584: (p_error_record_id => NULL );
1585:
1586: INV_CONSIGNED_DIAGNOSTICS_PROC.Consumption_Advice_diagnostics
1587: (p_error_record_id => NULL);
1582:
1583: INV_CONSIGNED_DIAGNOSTICS_PROC.Ownership_transfer_diagnostics
1584: (p_error_record_id => NULL );
1585:
1586: INV_CONSIGNED_DIAGNOSTICS_PROC.Consumption_Advice_diagnostics
1587: (p_error_record_id => NULL);
1588:
1589:
1590: INV_CONSIGNED_DIAGNOSTICS_PROC.Purge_diagnostics_passed_rec ;
1586: INV_CONSIGNED_DIAGNOSTICS_PROC.Consumption_Advice_diagnostics
1587: (p_error_record_id => NULL);
1588:
1589:
1590: INV_CONSIGNED_DIAGNOSTICS_PROC.Purge_diagnostics_passed_rec ;
1591: INV_CONSIGNED_DIAGNOSTICS_PROC.Update_Consumption_Date ;
1592:
1593: COMMIT;
1594:
1587: (p_error_record_id => NULL);
1588:
1589:
1590: INV_CONSIGNED_DIAGNOSTICS_PROC.Purge_diagnostics_passed_rec ;
1591: INV_CONSIGNED_DIAGNOSTICS_PROC.Update_Consumption_Date ;
1592:
1593: COMMIT;
1594:
1595: IF g_debug = 1
1595: IF g_debug = 1
1596: THEN
1597: INV_LOG_UTIL.trace
1598: ( 'Completed the conc program diagnostics ' ,
1599: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1600: INV_LOG_UTIL.trace
1601: ( 'p_send_notification => '|| p_send_notification ,
1602: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1603:
1598: ( 'Completed the conc program diagnostics ' ,
1599: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1600: INV_LOG_UTIL.trace
1601: ( 'p_send_notification => '|| p_send_notification ,
1602: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1603:
1604: INV_LOG_UTIL.trace
1605: ( 'p_notification_resend_days => '|| p_notification_resend_days ,
1606: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1602: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1603:
1604: INV_LOG_UTIL.trace
1605: ( 'p_notification_resend_days => '|| p_notification_resend_days ,
1606: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1607: END IF;
1608:
1609: IF TO_NUMBER(p_send_notification) = 1
1610: THEN
1622: IF g_debug = 1
1623: THEN
1624: INV_LOG_UTIL.trace
1625: ( 'Completed the Notification process' ,
1626: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1627:
1628: INV_LOG_UTIL.trace
1629: ( 'l_return_status => '|| l_return_status ,
1630: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1626: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1627:
1628: INV_LOG_UTIL.trace
1629: ( 'l_return_status => '|| l_return_status ,
1630: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1631:
1632: INV_LOG_UTIL.trace
1633: ( 'x_msg_count => '|| l_msg_count ,
1634: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1630: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1631:
1632: INV_LOG_UTIL.trace
1633: ( 'x_msg_count => '|| l_msg_count ,
1634: 'INV_CONSIGNED_DIAGNOSTICS_PROC' , 9);
1635:
1636: INV_LOG_UTIL.trace( 'Error=> '||
1637: substrb(FND_MSG_PUB.Get(p_encoded =>
1638: FND_API.G_FALSE),1,500),
1643: IF g_debug = 1
1644: THEN
1645: INV_LOG_UTIL.trace
1646: ( '<< INVRCIDB: OUT Consigned_diagnostics',
1647: 'INV_CONSIGNED_DIAGNOSTICS_PROC' ,9);
1648:
1649: END IF;
1650:
1651:
1667: RAISE ;
1668:
1669: END Consigned_diagnostics ;
1670:
1671: END INV_CONSIGNED_DIAGNOSTICS_PROC ;