[Home] [Help]
382: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
383: ELSE
384: fnd_message.set_name('CSD','CSD_UOM_MISSING');
385: fnd_message.set_token('UOM',p_from_uom);
386: fnd_msg_pub.add;
387: END IF;
388: RAISE FND_API.G_EXC_ERROR;
389: WHEN TOO_MANY_ROWS THEN
390: IF ( l_error_level >= G_debug_level) THEN
393: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
394: ELSE
395: fnd_message.set_name('CSD','CSD_MANY_UOM_FOUND');
396: fnd_message.set_token('UOM',p_from_uom);
397: fnd_msg_pub.add;
398: END IF;
399: RAISE FND_API.G_EXC_ERROR;
400: End;
401: Else
423: fnd_message.set_name('CSD','CSD_INV_UM_CONV_FAILED');
424: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
425: ELSE
426: fnd_message.set_name('CSD','CSD_INV_UM_CONV_FAILED');
427: fnd_msg_pub.add;
428: END IF;
429: RAISE FND_API.G_EXC_ERROR;
430: END IF;
431: ELSE
514: END IF;
515:
516: -- Initialize message list if p_init_msg_list is set to TRUE.
517: IF FND_API.to_Boolean( p_init_msg_list ) THEN
518: FND_MSG_PUB.initialize;
519: END IF;
520:
521: -- Debug messages
522: Debug('p_EVENT_CODE ='||p_activity_rec.EVENT_CODE,l_mod_name,1);
622: COMMIT WORK;
623: END IF;
624:
625: -- Standard call to get message count and IF count is get message info.
626: FND_MSG_PUB.Count_And_Get
627: (p_count => x_msg_count,
628: p_data => x_msg_data );
629: EXCEPTION
630: WHEN FND_API.G_EXC_ERROR THEN
630: WHEN FND_API.G_EXC_ERROR THEN
631: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
632: ROLLBACK TO LOG_ACTIVITY;
633: x_return_status := FND_API.G_RET_STS_ERROR ;
634: FND_MSG_PUB.Count_And_Get
635: (p_count => x_msg_count,
636: p_data => x_msg_data );
637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
639: ROLLBACK TO LOG_ACTIVITY;
640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
641: FND_MSG_PUB.Count_And_Get
642: ( p_count => x_msg_count,
643: p_data => x_msg_data );
644: WHEN OTHERS THEN
645: Debug('In OTHERS exception',l_mod_name,4 );
644: WHEN OTHERS THEN
645: Debug('In OTHERS exception',l_mod_name,4 );
646: ROLLBACK TO LOG_ACTIVITY;
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
648: IF FND_MSG_PUB.Check_Msg_Level
649: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
650: THEN
651: FND_MSG_PUB.Add_Exc_Msg
652: (G_PKG_NAME ,
645: Debug('In OTHERS exception',l_mod_name,4 );
646: ROLLBACK TO LOG_ACTIVITY;
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
648: IF FND_MSG_PUB.Check_Msg_Level
649: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
650: THEN
651: FND_MSG_PUB.Add_Exc_Msg
652: (G_PKG_NAME ,
653: l_api_name );
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
648: IF FND_MSG_PUB.Check_Msg_Level
649: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
650: THEN
651: FND_MSG_PUB.Add_Exc_Msg
652: (G_PKG_NAME ,
653: l_api_name );
654: END IF;
655: FND_MSG_PUB.Count_And_Get
651: FND_MSG_PUB.Add_Exc_Msg
652: (G_PKG_NAME ,
653: l_api_name );
654: END IF;
655: FND_MSG_PUB.Count_And_Get
656: (p_count => x_msg_count,
657: p_data => x_msg_data );
658: END LOG_ACTIVITY;
659:
835: END IF;
836:
837: -- Initialize message list if p_init_msg_list is set to TRUE.
838: IF FND_API.to_Boolean( p_init_msg_list ) THEN
839: FND_MSG_PUB.initialize;
840: END IF;
841:
842: -- Keep the record count
843: l_count := 0;
974: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
975: ELSE
976: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_XREF_UPD_FAILED');
977: FND_MESSAGE.SET_TOKEN('REP_JOB_XREF_ID',JOB.repair_job_xref_id );
978: FND_MSG_PUB.ADD;
979: END IF;
980: RAISE FND_API.G_EXC_ERROR;
981: End IF;
982:
1097: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1098: ELSE
1099: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_XREF_UPD_FAILED');
1100: FND_MESSAGE.SET_TOKEN('REP_JOB_XREF_ID',JOB.repair_job_xref_id );
1101: FND_MSG_PUB.ADD;
1102: END IF;
1103: RAISE FND_API.G_EXC_ERROR;
1104: End IF;
1105:
1229: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1230: ELSE
1231: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_XREF_UPD_FAILED');
1232: FND_MESSAGE.SET_TOKEN('REP_JOB_XREF_ID',JOB.repair_job_xref_id );
1233: FND_MSG_PUB.ADD;
1234: END IF;
1235: RAISE FND_API.G_EXC_ERROR;
1236: End IF;
1237:
1282: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1283: ELSE
1284: FND_MESSAGE.SET_NAME('CSD','CSD_INV_WIP_ENTITY_ID');
1285: FND_MESSAGE.SET_TOKEN('WIP_ENTITY_ID',JOB.wip_entity_id );
1286: FND_MSG_PUB.ADD;
1287: END IF;
1288: RAISE FND_API.G_EXC_ERROR;
1289: END;
1290: END IF;
1346: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1347: ELSE
1348: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_XREF_UPD_FAILED');
1349: FND_MESSAGE.SET_TOKEN('REP_JOB_XREF_ID',JOB.repair_job_xref_id );
1350: FND_MSG_PUB.ADD;
1351: END IF;
1352: RAISE FND_API.G_EXC_ERROR;
1353: End IF;
1354:
1445:
1446: -- Log messages for the number of records processed
1447: fnd_message.set_name('CSD','CSD_DRC_WIP_REC_PROC');
1448: fnd_message.set_token('TOT_REC',to_char(l_total_rec));
1449: FND_MSG_PUB.ADD;
1450:
1451: -- Retrive the message from the msg stack
1452: l_msg_text := fnd_message.get;
1453:
1463: COMMIT WORK;
1464: END IF;
1465:
1466: -- Standard call to get message count and IF count is get message info.
1467: FND_MSG_PUB.Count_And_Get
1468: (p_count => x_msg_count,
1469: p_data => x_msg_data );
1470: EXCEPTION
1471: WHEN FND_API.G_EXC_ERROR THEN
1471: WHEN FND_API.G_EXC_ERROR THEN
1472: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
1473: ROLLBACK TO JOB_COMPLETION_UPDATE;
1474: x_return_status := FND_API.G_RET_STS_ERROR ;
1475: FND_MSG_PUB.Count_And_Get
1476: (p_count => x_msg_count,
1477: p_data => x_msg_data );
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
1480: ROLLBACK TO JOB_COMPLETION_UPDATE;
1481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1482: FND_MSG_PUB.Count_And_Get
1483: ( p_count => x_msg_count,
1484: p_data => x_msg_data );
1485: WHEN OTHERS THEN
1486: Debug('In OTHERS exception',l_mod_name,4);
1485: WHEN OTHERS THEN
1486: Debug('In OTHERS exception',l_mod_name,4);
1487: ROLLBACK TO JOB_COMPLETION_UPDATE;
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1489: IF FND_MSG_PUB.Check_Msg_Level
1490: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1491: THEN
1492: FND_MSG_PUB.Add_Exc_Msg
1493: (G_PKG_NAME ,
1486: Debug('In OTHERS exception',l_mod_name,4);
1487: ROLLBACK TO JOB_COMPLETION_UPDATE;
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1489: IF FND_MSG_PUB.Check_Msg_Level
1490: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1491: THEN
1492: FND_MSG_PUB.Add_Exc_Msg
1493: (G_PKG_NAME ,
1494: l_api_name );
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1489: IF FND_MSG_PUB.Check_Msg_Level
1490: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1491: THEN
1492: FND_MSG_PUB.Add_Exc_Msg
1493: (G_PKG_NAME ,
1494: l_api_name );
1495: END IF;
1496: FND_MSG_PUB.Count_And_Get
1492: FND_MSG_PUB.Add_Exc_Msg
1493: (G_PKG_NAME ,
1494: l_api_name );
1495: END IF;
1496: FND_MSG_PUB.Count_And_Get
1497: (p_count => x_msg_count,
1498: p_data => x_msg_data );
1499: END JOB_COMPLETION_UPDATE;
1500:
1617: END IF;
1618:
1619: -- Initialize message list if p_init_msg_list is set to TRUE.
1620: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1621: FND_MSG_PUB.initialize;
1622: END IF;
1623:
1624: -- Keeping the running total of the records
1625: -- for commiting purpose
1721: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1722: ELSE
1723: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_XREF_UPD_FAILED');
1724: FND_MESSAGE.SET_TOKEN('REP_JOB_XREF_ID',K.repair_job_xref_id );
1725: FND_MSG_PUB.ADD;
1726: END IF;
1727: RAISE FND_API.G_EXC_ERROR;
1728: End IF;
1729:
1742: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1743: ELSE
1744: FND_MESSAGE.SET_NAME('CSD','CSD_RO_UPD_FAILED');
1745: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',K.repair_line_id );
1746: FND_MSG_PUB.ADD;
1747: END IF;
1748: RAISE FND_API.G_EXC_ERROR;
1749: End IF;
1750:
1788: COMMIT WORK;
1789: END IF;
1790:
1791: -- Standard call to get message count and IF count is get message info.
1792: FND_MSG_PUB.Count_And_Get
1793: (p_count => x_msg_count,
1794: p_data => x_msg_data );
1795: EXCEPTION
1796: WHEN FND_API.G_EXC_ERROR THEN
1796: WHEN FND_API.G_EXC_ERROR THEN
1797: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
1798: ROLLBACK TO JOB_CREATION_UPDATE;
1799: x_return_status := FND_API.G_RET_STS_ERROR ;
1800: FND_MSG_PUB.Count_And_Get
1801: (p_count => x_msg_count,
1802: p_data => x_msg_data );
1803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1804: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
1803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1804: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
1805: ROLLBACK TO JOB_CREATION_UPDATE;
1806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1807: FND_MSG_PUB.Count_And_Get
1808: ( p_count => x_msg_count,
1809: p_data => x_msg_data );
1810: WHEN OTHERS THEN
1811: Debug('In OTHERS exception',l_mod_name,4);
1810: WHEN OTHERS THEN
1811: Debug('In OTHERS exception',l_mod_name,4);
1812: ROLLBACK TO JOB_CREATION_UPDATE;
1813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1814: IF FND_MSG_PUB.Check_Msg_Level
1815: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1816: THEN
1817: FND_MSG_PUB.Add_Exc_Msg
1818: (G_PKG_NAME ,
1811: Debug('In OTHERS exception',l_mod_name,4);
1812: ROLLBACK TO JOB_CREATION_UPDATE;
1813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1814: IF FND_MSG_PUB.Check_Msg_Level
1815: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1816: THEN
1817: FND_MSG_PUB.Add_Exc_Msg
1818: (G_PKG_NAME ,
1819: l_api_name );
1813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1814: IF FND_MSG_PUB.Check_Msg_Level
1815: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1816: THEN
1817: FND_MSG_PUB.Add_Exc_Msg
1818: (G_PKG_NAME ,
1819: l_api_name );
1820: END IF;
1821: FND_MSG_PUB.Count_And_Get
1817: FND_MSG_PUB.Add_Exc_Msg
1818: (G_PKG_NAME ,
1819: l_api_name );
1820: END IF;
1821: FND_MSG_PUB.Count_And_Get
1822: (p_count => x_msg_count,
1823: p_data => x_msg_data );
1824: END JOB_CREATION_UPDATE;
1825:
1900: END IF;
1901:
1902: -- Initialize message list if p_init_msg_list is set to TRUE.
1903: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1904: FND_MSG_PUB.initialize;
1905: END IF;
1906:
1907: -- Api body starts
1908: IF p_internal_order_flag = 'Y' then
1982: l_msg_data_warning := null;
1983: -- Concatenate the message from the message stack
1984: IF x_msg_count >= 1 then
1985: FOR i IN 1..x_msg_count LOOP
1986: l_msg_data_warning := l_msg_data_warning ||' : '||FND_MSG_PUB.Get(i,FND_API.G_FALSE) ;
1987: Debug('l_msg_data_warning loop :'||l_msg_data_warning,l_mod_name,2);
1988: END LOOP ;
1989: END IF ;
1990: Debug(l_msg_data_warning,l_mod_name,4);
2016: COMMIT WORK;
2017: END IF;
2018:
2019: -- Standard call to get message count and IF count is get message info.
2020: FND_MSG_PUB.Count_And_Get
2021: (p_count => x_msg_count,
2022: p_data => x_msg_data );
2023:
2024: --bug#8261344
2037: IF NOT(FND_API.To_Boolean( p_commit )) THEN
2038: ROLLBACK TO RECEIPTS_UPDATE;
2039: END IF;
2040: x_return_status := FND_API.G_RET_STS_ERROR ;
2041: FND_MSG_PUB.Count_And_Get
2042: (p_count => x_msg_count,
2043: p_data => x_msg_data );
2044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2045: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4 );
2054: IF NOT(FND_API.To_Boolean( p_commit )) THEN
2055: ROLLBACK TO RECEIPTS_UPDATE;
2056: END IF;
2057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2058: FND_MSG_PUB.Count_And_Get
2059: ( p_count => x_msg_count,
2060: p_data => x_msg_data );
2061: WHEN OTHERS THEN
2062: Debug('In OTHERS exception',l_mod_name,4 );
2071: IF NOT(FND_API.To_Boolean( p_commit )) THEN
2072: ROLLBACK TO RECEIPTS_UPDATE;
2073: END IF;
2074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2075: IF FND_MSG_PUB.Check_Msg_Level
2076: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2077: THEN
2078: FND_MSG_PUB.Add_Exc_Msg
2079: (G_PKG_NAME ,
2072: ROLLBACK TO RECEIPTS_UPDATE;
2073: END IF;
2074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2075: IF FND_MSG_PUB.Check_Msg_Level
2076: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2077: THEN
2078: FND_MSG_PUB.Add_Exc_Msg
2079: (G_PKG_NAME ,
2080: l_api_name );
2074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2075: IF FND_MSG_PUB.Check_Msg_Level
2076: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2077: THEN
2078: FND_MSG_PUB.Add_Exc_Msg
2079: (G_PKG_NAME ,
2080: l_api_name );
2081: END IF;
2082: FND_MSG_PUB.Count_And_Get
2078: FND_MSG_PUB.Add_Exc_Msg
2079: (G_PKG_NAME ,
2080: l_api_name );
2081: END IF;
2082: FND_MSG_PUB.Count_And_Get
2083: (p_count => x_msg_count,
2084: p_data => x_msg_data );
2085: END RECEIPTS_UPDATE;
2086:
2444: END IF;
2445:
2446: -- Initialize message list if p_init_msg_list is set to TRUE.
2447: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2448: FND_MSG_PUB.initialize;
2449: END IF;
2450:
2451: -- Api body starts
2452:
2672: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
2673: ELSE
2674: fnd_message.set_name('CSD','CSD_INV_ITEM_ID');
2675: fnd_message.set_token('ITEM_ID',I.inventory_item_id);
2676: fnd_msg_pub.add;
2677: END IF;
2678: RAISE FND_API.G_EXC_ERROR;
2679: When others then
2680: Debug('In Others exception',l_mod_name,4);
2699: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
2700: ELSE
2701: FND_MESSAGE.SET_NAME('CSD','CSD_SERIAL_NUM_MISSING');
2702: FND_MESSAGE.SET_TOKEN('TXN_ID',i.transaction_id);
2703: FND_MSG_PUB.ADD;
2704: END IF;
2705: RAISE FND_API.G_EXC_ERROR;
2706: END IF;
2707: -- Close the cursor
2730: IF ( l_error_level >= G_debug_level) THEN
2731: FND_MESSAGE.SET_NAME('CSD','CSD_INSTANCE_MISSING');
2732: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',l_st_serial_num);
2733: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
2734: FND_MSG_PUB.ADD; -- swai: bug 12547701 need to add message to the stack
2735: ELSE
2736: FND_MESSAGE.SET_NAME('CSD','CSD_INSTANCE_MISSING');
2737: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',l_st_serial_num);
2738: FND_MSG_PUB.ADD;
2734: FND_MSG_PUB.ADD; -- swai: bug 12547701 need to add message to the stack
2735: ELSE
2736: FND_MESSAGE.SET_NAME('CSD','CSD_INSTANCE_MISSING');
2737: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',l_st_serial_num);
2738: FND_MSG_PUB.ADD;
2739: END IF;
2740:
2741: --RAISE FND_API.G_EXC_ERROR;
2742: --bug#8261344
2753: IF ( l_error_level >= G_debug_level) THEN
2754: FND_MESSAGE.SET_NAME('CSD','CSD_FOUND_MANY_INSTANCE');
2755: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',l_st_serial_num);
2756: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
2757: FND_MSG_PUB.ADD; -- swai: bug 12547701 need to add message to the stack
2758: ELSE
2759: FND_MESSAGE.SET_NAME('CSD','CSD_FOUND_MANY_INSTANCE');
2760: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',l_st_serial_num);
2761: FND_MSG_PUB.ADD;
2757: FND_MSG_PUB.ADD; -- swai: bug 12547701 need to add message to the stack
2758: ELSE
2759: FND_MESSAGE.SET_NAME('CSD','CSD_FOUND_MANY_INSTANCE');
2760: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',l_st_serial_num);
2761: FND_MSG_PUB.ADD;
2762: END IF;
2763: RAISE FND_API.G_EXC_ERROR;
2764: Debug(' Found many IB instance for the Serial Num ='||l_st_serial_num, l_mod_name,1);
2765: END;
2842: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
2843: ELSE
2844: fnd_message.set_name('CSD','CSD_INV_ITEM_ID');
2845: fnd_message.set_token('ITEM_ID',I.inventory_item_id);
2846: fnd_msg_pub.add;
2847: END IF;
2848: RAISE FND_API.G_EXC_ERROR;
2849:
2850: --bug#16017759
2913: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
2914: ELSE
2915: fnd_message.set_name('CSD','CSD_RO_UPD_FAILED');
2916: fnd_message.set_token('REPAIR_LINE_ID',I.repair_line_id);
2917: fnd_msg_pub.add;
2918: END IF;
2919: RAISE FND_API.G_EXC_ERROR;
2920: END IF;
2921:
2936: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
2937: ELSE
2938: fnd_message.set_name('CSD','CSD_RO_UPD_FAILED');
2939: fnd_message.set_token('REPAIR_LINE_ID',I.repair_line_id);
2940: fnd_msg_pub.add;
2941: END IF;
2942: RAISE FND_API.G_EXC_ERROR;
2943: END IF;
2944:
2972: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
2973: ELSE
2974: fnd_message.set_name('CSD','CSD_PROD_TXN_UPD_FAILED');
2975: fnd_message.set_token('PROD_TXN_ID',I.product_transaction_id);
2976: fnd_msg_pub.add;
2977: END IF;
2978: RAISE FND_API.G_EXC_ERROR;
2979: END IF;
2980:
2981: fnd_message.set_name('CSD','CSD_DRC_RMA_RECEIPT');
2982: fnd_message.set_token('RMA_NO',i.rma_number);
2983: fnd_message.set_token('REP_NO',i.repair_number);
2984: fnd_message.set_token('QTY_RCVD',to_char(i.received_quantity));
2985: FND_MSG_PUB.ADD;
2986:
2987: --bug#13505961
2988: --need to update the received organization_id
2989: UPDATE CS_ESTIMATE_DETAILS
3149: -- Log seed messages for the number of records
3150: -- processed by rma update
3151: fnd_message.set_name('CSD','CSD_DRC_RMA_TOT_REC_PROC');
3152: fnd_message.set_token('TOT_REC',to_char(l_total_records));
3153: FND_MSG_PUB.ADD;
3154:
3155: -- Debug Messages
3156: Debug(fnd_message.get,l_mod_name,1);
3157:
3170: x_return_status := G_CSD_RET_STS_WARNING;
3171: End if;
3172:
3173: -- Standard call to get message count and IF count is get message info.
3174: FND_MSG_PUB.Count_And_Get
3175: (p_count => x_msg_count,
3176: p_data => x_msg_data );
3177: EXCEPTION
3178: WHEN FND_API.G_EXC_ERROR THEN
3178: WHEN FND_API.G_EXC_ERROR THEN
3179: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4 );
3180: ROLLBACK TO RMA_RCV_UPDATE;
3181: x_return_status := FND_API.G_RET_STS_ERROR ;
3182: FND_MSG_PUB.Count_And_Get
3183: (p_count => x_msg_count,
3184: p_data => x_msg_data );
3185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3186: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4 );
3185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3186: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4 );
3187: ROLLBACK TO RMA_RCV_UPDATE;
3188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3189: FND_MSG_PUB.Count_And_Get
3190: ( p_count => x_msg_count,
3191: p_data => x_msg_data );
3192: WHEN OTHERS THEN
3193: Debug('In OTHERS exception',l_mod_name,4 );
3192: WHEN OTHERS THEN
3193: Debug('In OTHERS exception',l_mod_name,4 );
3194: ROLLBACK TO RMA_RCV_UPDATE;
3195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3196: IF FND_MSG_PUB.Check_Msg_Level
3197: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3198: THEN
3199: FND_MSG_PUB.Add_Exc_Msg
3200: (G_PKG_NAME ,
3193: Debug('In OTHERS exception',l_mod_name,4 );
3194: ROLLBACK TO RMA_RCV_UPDATE;
3195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3196: IF FND_MSG_PUB.Check_Msg_Level
3197: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3198: THEN
3199: FND_MSG_PUB.Add_Exc_Msg
3200: (G_PKG_NAME ,
3201: l_api_name );
3195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3196: IF FND_MSG_PUB.Check_Msg_Level
3197: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3198: THEN
3199: FND_MSG_PUB.Add_Exc_Msg
3200: (G_PKG_NAME ,
3201: l_api_name );
3202: END IF;
3203: FND_MSG_PUB.Count_And_Get
3199: FND_MSG_PUB.Add_Exc_Msg
3200: (G_PKG_NAME ,
3201: l_api_name );
3202: END IF;
3203: FND_MSG_PUB.Count_And_Get
3204: (p_count => x_msg_count,
3205: p_data => x_msg_data );
3206: END RMA_RCV_UPDATE;
3207:
3437: END IF;
3438:
3439: -- Initialize message list if p_init_msg_list is set to TRUE.
3440: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3441: FND_MSG_PUB.initialize;
3442: END IF;
3443:
3444: -- Api body starts
3445:
3467: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
3468: ELSE
3469: fnd_message.set_name('CSD','CSD_INV_ORD_HEADER_ID');
3470: fnd_message.set_token('HEADER_ID',p_order_header_id);
3471: fnd_msg_pub.add;
3472: END IF;
3473: RAISE FND_API.G_EXC_ERROR;
3474: END;
3475: END IF;
3696: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
3697: ELSE
3698: fnd_message.set_name('CSD','CSD_SERIAL_NUM_MISSING');
3699: fnd_message.set_token('TXN_ID',DEL.transaction_id);
3700: fnd_msg_pub.add;
3701: END If;
3702: RAISE PROCESS_ERROR;
3703: END;
3704: -- Get the instance id from
3718: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
3719: ELSE
3720: fnd_message.set_name('CSD','CSD_ITEM_INSTANCE_MISSING');
3721: fnd_message.set_token('SERIAL_NUM',l_serial_num);
3722: fnd_msg_pub.add;
3723: END If;
3724: When Others THEN
3725: IF ( l_error_level >= G_debug_level) THEN
3726: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
3728: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
3729: ELSE
3730: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
3731: fnd_message.set_token('SERIAL_NUM',l_serial_num);
3732: fnd_msg_pub.add;
3733: END If;
3734: End;
3735: ELSE
3736: l_instance_id := NULL;
3759: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
3760: ELSE
3761: fnd_message.set_name('CSD','CSD_INV_TXN_ID');
3762: fnd_message.set_token('TXN_ID',DEL.transaction_id);
3763: fnd_msg_pub.add;
3764: END IF;
3765: RAISE FND_API.G_EXC_ERROR;
3766: END;
3767: ELSE
3807: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
3808: ELSE
3809: fnd_message.set_name('CSD','CSD_RO_UPD_FAILED');
3810: fnd_message.set_token('REPAIR_LINE_ID',RO.repair_line_id);
3811: fnd_msg_pub.add;
3812: END IF;
3813: RAISE PROCESS_ERROR;
3814: END IF;
3815:
3836: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
3837: ELSE
3838: fnd_message.set_name('CSD','CSD_PROD_TXN_UPD_FAILED');
3839: fnd_message.set_token('PROD_TXN_ID',RO.product_transaction_id);
3840: fnd_msg_pub.add;
3841: END IF;
3842: RAISE PROCESS_ERROR;
3843: END IF;
3844:
4064: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4065: ELSE
4066: fnd_message.set_name('CSD','CSD_SERIAL_NUM_MISSING');
4067: fnd_message.set_token('TXN_ID',DEL.transaction_id);
4068: fnd_msg_pub.add;
4069: END If;
4070: RAISE PROCESS_ERROR;
4071: END;
4072: -- Get the instance id from
4086: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4087: ELSE
4088: fnd_message.set_name('CSD','CSD_ITEM_INSTANCE_MISSING');
4089: fnd_message.set_token('SERIAL_NUM',l_serial_num);
4090: fnd_msg_pub.add;
4091: END If;
4092: When Others THEN
4093: IF ( l_error_level >= G_debug_level) THEN
4094: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
4096: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4097: ELSE
4098: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
4099: fnd_message.set_token('SERIAL_NUM',l_serial_num);
4100: fnd_msg_pub.add;
4101: END If;
4102: End;
4103: ELSE
4104: l_instance_id := NULL;
4127: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4128: ELSE
4129: fnd_message.set_name('CSD','CSD_INV_TXN_ID');
4130: fnd_message.set_token('TXN_ID',DEL.transaction_id);
4131: fnd_msg_pub.add;
4132: END IF;
4133: RAISE FND_API.G_EXC_ERROR;
4134: END;
4135: ELSE
4175: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4176: ELSE
4177: fnd_message.set_name('CSD','CSD_RO_UPD_FAILED');
4178: fnd_message.set_token('REPAIR_LINE_ID',RO.repair_line_id);
4179: fnd_msg_pub.add;
4180: END IF;
4181: RAISE PROCESS_ERROR;
4182: END IF;
4183:
4205: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4206: ELSE
4207: fnd_message.set_name('CSD','CSD_PROD_TXN_UPD_FAILED');
4208: fnd_message.set_token('PROD_TXN_ID',RO.product_transaction_id);
4209: fnd_msg_pub.add;
4210: END IF;
4211: RAISE PROCESS_ERROR;
4212: END IF;
4213:
4340: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4341: ELSE
4342: fnd_message.set_name('CSD','CSD_SERIAL_NUM_MISSING');
4343: fnd_message.set_token('TXN_ID',RCV.transaction_id);
4344: fnd_msg_pub.add;
4345: END IF;
4346: RAISE PROCESS_ERROR;
4347: END;
4348:
4363: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4364: ELSE
4365: fnd_message.set_name('CSD','CSD_ITEM_INSTANCE_MISSING');
4366: fnd_message.set_token('SERIAL_NUM',l_serial_num);
4367: fnd_msg_pub.add;
4368: END If;
4369: When Others THEN
4370: IF ( l_error_level >= G_debug_level) THEN
4371: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
4373: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4374: ELSE
4375: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
4376: fnd_message.set_token('SERIAL_NUM',l_serial_num);
4377: fnd_msg_pub.add;
4378: END If;
4379: End;
4380: ELSE
4381: l_instance_id := NULL;
4402: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4403: ELSE
4404: fnd_message.set_name('CSD','CSD_INV_TXN_ID');
4405: fnd_message.set_token('TXN_ID',RCV.transaction_id);
4406: fnd_msg_pub.add;
4407: END IF;
4408: RAISE FND_API.G_EXC_ERROR;
4409: END;
4410: ELSE
4450: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4451: ELSE
4452: fnd_message.set_name('CSD','CSD_RO_UPD_FAILED');
4453: fnd_message.set_token('REPAIR_LINE_ID',RO.repair_line_id);
4454: fnd_msg_pub.add;
4455: END IF;
4456: RAISE PROCESS_ERROR;
4457: END IF;
4458:
4478: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4479: ELSE
4480: fnd_message.set_name('CSD','CSD_PROD_TXN_UPD_FAILED');
4481: fnd_message.set_token('PROD_TXN_ID',RO.product_transaction_id);
4482: fnd_msg_pub.add;
4483: END IF;
4484: RAISE PROCESS_ERROR;
4485: END IF;
4486:
4583: COMMIT WORK;
4584: END IF;
4585:
4586: -- Standard call to get message count and IF count is get message info.
4587: FND_MSG_PUB.Count_And_Get
4588: (p_count => x_msg_count,
4589: p_data => x_msg_data);
4590: EXCEPTION
4591: WHEN FND_API.G_EXC_ERROR THEN
4591: WHEN FND_API.G_EXC_ERROR THEN
4592: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
4593: ROLLBACK TO IO_RCV_UPDATE;
4594: x_return_status := FND_API.G_RET_STS_ERROR ;
4595: FND_MSG_PUB.Count_And_Get
4596: (p_count => x_msg_count,
4597: p_data => x_msg_data );
4598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4599: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
4598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4599: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
4600: ROLLBACK TO IO_RCV_UPDATE;
4601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4602: FND_MSG_PUB.Count_And_Get
4603: ( p_count => x_msg_count,
4604: p_data => x_msg_data );
4605: WHEN OTHERS THEN
4606: Debug('In OTHERS exception',l_mod_name,4);
4605: WHEN OTHERS THEN
4606: Debug('In OTHERS exception',l_mod_name,4);
4607: ROLLBACK TO IO_RCV_UPDATE;
4608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4609: IF FND_MSG_PUB.Check_Msg_Level
4610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4611: THEN
4612: FND_MSG_PUB.Add_Exc_Msg
4613: (G_PKG_NAME ,
4606: Debug('In OTHERS exception',l_mod_name,4);
4607: ROLLBACK TO IO_RCV_UPDATE;
4608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4609: IF FND_MSG_PUB.Check_Msg_Level
4610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4611: THEN
4612: FND_MSG_PUB.Add_Exc_Msg
4613: (G_PKG_NAME ,
4614: l_api_name );
4608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4609: IF FND_MSG_PUB.Check_Msg_Level
4610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4611: THEN
4612: FND_MSG_PUB.Add_Exc_Msg
4613: (G_PKG_NAME ,
4614: l_api_name );
4615: END IF;
4616: FND_MSG_PUB.Count_And_Get
4612: FND_MSG_PUB.Add_Exc_Msg
4613: (G_PKG_NAME ,
4614: l_api_name );
4615: END IF;
4616: FND_MSG_PUB.Count_And_Get
4617: (p_count => x_msg_count,
4618: p_data => x_msg_data );
4619: END IO_RCV_UPDATE;
4620:
4853: END IF;
4854:
4855: -- Initialize message list if p_init_msg_list is set to TRUE.
4856: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4857: FND_MSG_PUB.initialize;
4858: END IF;
4859:
4860: -- Api body starts
4861:
4883: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
4884: ELSE
4885: fnd_message.set_name('CSD','CSD_INV_ORD_HEADER_ID');
4886: fnd_message.set_token('HEADER_ID',p_order_header_id);
4887: fnd_msg_pub.add;
4888: END IF;
4889: RAISE FND_API.G_EXC_ERROR;
4890: END;
4891: END IF;
5112: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5113: ELSE
5114: fnd_message.set_name('CSD','CSD_SERIAL_NUM_MISSING');
5115: fnd_message.set_token('TXN_ID',DEL.transaction_id);
5116: fnd_msg_pub.add;
5117: END If;
5118: RAISE PROCESS_ERROR;
5119: END;
5120: -- Get the instance id from
5134: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5135: ELSE
5136: fnd_message.set_name('CSD','CSD_ITEM_INSTANCE_MISSING');
5137: fnd_message.set_token('SERIAL_NUM',l_serial_num);
5138: fnd_msg_pub.add;
5139: END If;
5140: When Others THEN
5141: IF ( l_error_level >= G_debug_level) THEN
5142: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
5144: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5145: ELSE
5146: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
5147: fnd_message.set_token('SERIAL_NUM',l_serial_num);
5148: fnd_msg_pub.add;
5149: END If;
5150: End;
5151: ELSE
5152: l_instance_id := NULL;
5175: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5176: ELSE
5177: fnd_message.set_name('CSD','CSD_INV_TXN_ID');
5178: fnd_message.set_token('TXN_ID',DEL.transaction_id);
5179: fnd_msg_pub.add;
5180: END IF;
5181: RAISE FND_API.G_EXC_ERROR;
5182: END;
5183: ELSE
5228: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5229: ELSE
5230: fnd_message.set_name('CSD','CSD_RO_UPD_FAILED');
5231: fnd_message.set_token('REPAIR_LINE_ID',RO.repair_line_id);
5232: fnd_msg_pub.add;
5233: END IF;
5234: RAISE PROCESS_ERROR;
5235: END IF;
5236: */
5257: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5258: ELSE
5259: fnd_message.set_name('CSD','CSD_PROD_TXN_UPD_FAILED');
5260: fnd_message.set_token('PROD_TXN_ID',RO.product_transaction_id);
5261: fnd_msg_pub.add;
5262: END IF;
5263: RAISE PROCESS_ERROR;
5264: END IF;
5265:
5485: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5486: ELSE
5487: fnd_message.set_name('CSD','CSD_SERIAL_NUM_MISSING');
5488: fnd_message.set_token('TXN_ID',DEL.transaction_id);
5489: fnd_msg_pub.add;
5490: END If;
5491: RAISE PROCESS_ERROR;
5492: END;
5493: -- Get the instance id from
5507: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5508: ELSE
5509: fnd_message.set_name('CSD','CSD_ITEM_INSTANCE_MISSING');
5510: fnd_message.set_token('SERIAL_NUM',l_serial_num);
5511: fnd_msg_pub.add;
5512: END If;
5513: When Others THEN
5514: IF ( l_error_level >= G_debug_level) THEN
5515: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
5517: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5518: ELSE
5519: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
5520: fnd_message.set_token('SERIAL_NUM',l_serial_num);
5521: fnd_msg_pub.add;
5522: END If;
5523: End;
5524: ELSE
5525: l_instance_id := NULL;
5548: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5549: ELSE
5550: fnd_message.set_name('CSD','CSD_INV_TXN_ID');
5551: fnd_message.set_token('TXN_ID',DEL.transaction_id);
5552: fnd_msg_pub.add;
5553: END IF;
5554: RAISE FND_API.G_EXC_ERROR;
5555: END;
5556: ELSE
5601: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5602: ELSE
5603: fnd_message.set_name('CSD','CSD_RO_UPD_FAILED');
5604: fnd_message.set_token('REPAIR_LINE_ID',RO.repair_line_id);
5605: fnd_msg_pub.add;
5606: END IF;
5607: RAISE PROCESS_ERROR;
5608: END IF;
5609: */
5631: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5632: ELSE
5633: fnd_message.set_name('CSD','CSD_PROD_TXN_UPD_FAILED');
5634: fnd_message.set_token('PROD_TXN_ID',RO.product_transaction_id);
5635: fnd_msg_pub.add;
5636: END IF;
5637: RAISE PROCESS_ERROR;
5638: END IF;
5639:
5774: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5775: ELSE
5776: fnd_message.set_name('CSD','CSD_SERIAL_NUM_MISSING');
5777: fnd_message.set_token('TXN_ID',RCV.transaction_id);
5778: fnd_msg_pub.add;
5779: END IF;
5780: RAISE PROCESS_ERROR;
5781: END;
5782:
5797: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5798: ELSE
5799: fnd_message.set_name('CSD','CSD_ITEM_INSTANCE_MISSING');
5800: fnd_message.set_token('SERIAL_NUM',l_serial_num);
5801: fnd_msg_pub.add;
5802: END If;
5803: When Others THEN
5804: IF ( l_error_level >= G_debug_level) THEN
5805: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
5807: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5808: ELSE
5809: fnd_message.set_name('CSD','CSD_INV_SERIAL_NUM');
5810: fnd_message.set_token('SERIAL_NUM',l_serial_num);
5811: fnd_msg_pub.add;
5812: END If;
5813: End;
5814: ELSE
5815: l_instance_id := NULL;
5836: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5837: ELSE
5838: fnd_message.set_name('CSD','CSD_INV_TXN_ID');
5839: fnd_message.set_token('TXN_ID',RCV.transaction_id);
5840: fnd_msg_pub.add;
5841: END IF;
5842: RAISE FND_API.G_EXC_ERROR;
5843: END;
5844: ELSE
5889: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5890: ELSE
5891: fnd_message.set_name('CSD','CSD_RO_UPD_FAILED');
5892: fnd_message.set_token('REPAIR_LINE_ID',RO.repair_line_id);
5893: fnd_msg_pub.add;
5894: END IF;
5895: RAISE PROCESS_ERROR;
5896: END IF;
5897: */
5917: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
5918: ELSE
5919: fnd_message.set_name('CSD','CSD_PROD_TXN_UPD_FAILED');
5920: fnd_message.set_token('PROD_TXN_ID',RO.product_transaction_id);
5921: fnd_msg_pub.add;
5922: END IF;
5923: RAISE PROCESS_ERROR;
5924: END IF;
5925:
6022: COMMIT WORK;
6023: END IF;
6024:
6025: -- Standard call to get message count and IF count is get message info.
6026: FND_MSG_PUB.Count_And_Get
6027: (p_count => x_msg_count,
6028: p_data => x_msg_data);
6029: EXCEPTION
6030: WHEN FND_API.G_EXC_ERROR THEN
6030: WHEN FND_API.G_EXC_ERROR THEN
6031: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
6032: ROLLBACK TO IO_RCV_UPDATE_MOVE_OUT;
6033: x_return_status := FND_API.G_RET_STS_ERROR ;
6034: FND_MSG_PUB.Count_And_Get
6035: (p_count => x_msg_count,
6036: p_data => x_msg_data );
6037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6038: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
6037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6038: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
6039: ROLLBACK TO IO_RCV_UPDATE_MOVE_OUT;
6040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6041: FND_MSG_PUB.Count_And_Get
6042: ( p_count => x_msg_count,
6043: p_data => x_msg_data );
6044: WHEN OTHERS THEN
6045: Debug('In OTHERS exception',l_mod_name,4);
6044: WHEN OTHERS THEN
6045: Debug('In OTHERS exception',l_mod_name,4);
6046: ROLLBACK TO IO_RCV_UPDATE_MOVE_OUT;
6047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6048: IF FND_MSG_PUB.Check_Msg_Level
6049: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6050: THEN
6051: FND_MSG_PUB.Add_Exc_Msg
6052: (G_PKG_NAME ,
6045: Debug('In OTHERS exception',l_mod_name,4);
6046: ROLLBACK TO IO_RCV_UPDATE_MOVE_OUT;
6047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6048: IF FND_MSG_PUB.Check_Msg_Level
6049: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6050: THEN
6051: FND_MSG_PUB.Add_Exc_Msg
6052: (G_PKG_NAME ,
6053: l_api_name );
6047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6048: IF FND_MSG_PUB.Check_Msg_Level
6049: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6050: THEN
6051: FND_MSG_PUB.Add_Exc_Msg
6052: (G_PKG_NAME ,
6053: l_api_name );
6054: END IF;
6055: FND_MSG_PUB.Count_And_Get
6051: FND_MSG_PUB.Add_Exc_Msg
6052: (G_PKG_NAME ,
6053: l_api_name );
6054: END IF;
6055: FND_MSG_PUB.Count_And_Get
6056: (p_count => x_msg_count,
6057: p_data => x_msg_data );
6058: END IO_RCV_UPDATE_MOVE_OUT;
6059:
6136: END IF;
6137:
6138: -- Initialize message list if p_init_msg_list is set to TRUE.
6139: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6140: FND_MSG_PUB.initialize;
6141: END IF;
6142:
6143: -- Api body starts
6144: IF p_internal_order_flag = 'Y' then
6217: l_msg_data_warning := null;
6218: -- Concatenate the message from the message stack
6219: IF x_msg_count >= 1 then
6220: FOR i IN 1..x_msg_count LOOP
6221: l_msg_data_warning := l_msg_data_warning ||' : '||FND_MSG_PUB.Get(i,FND_API.G_FALSE) ;
6222: Debug('l_msg_data_warning loop :'||l_msg_data_warning,l_mod_name,2);
6223: END LOOP ;
6224: END IF ;
6225: Debug(l_msg_data_warning,l_mod_name,4);
6236: COMMIT WORK;
6237: END IF;
6238:
6239: -- Standard call to get message count and IF count is get message info.
6240: FND_MSG_PUB.Count_And_Get
6241: (p_count => x_msg_count,
6242: p_data => x_msg_data );
6243:
6244: --bug#8261344
6257: IF NOT(FND_API.To_Boolean( p_commit )) THEN
6258: ROLLBACK TO SHIP_UPDATE;
6259: END IF;
6260: x_return_status := FND_API.G_RET_STS_ERROR ;
6261: FND_MSG_PUB.Count_And_Get
6262: (p_count => x_msg_count,
6263: p_data => x_msg_data );
6264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6265: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
6274: IF NOT(FND_API.To_Boolean( p_commit )) THEN
6275: ROLLBACK TO SHIP_UPDATE;
6276: END IF;
6277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6278: FND_MSG_PUB.Count_And_Get
6279: ( p_count => x_msg_count,
6280: p_data => x_msg_data );
6281: WHEN OTHERS THEN
6282: Debug('In OTHERS Exception',l_mod_name,4);
6291: IF NOT(FND_API.To_Boolean( p_commit )) THEN
6292: ROLLBACK TO SHIP_UPDATE;
6293: END IF;
6294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6295: IF FND_MSG_PUB.Check_Msg_Level
6296: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6297: THEN
6298: FND_MSG_PUB.Add_Exc_Msg
6299: (G_PKG_NAME ,
6292: ROLLBACK TO SHIP_UPDATE;
6293: END IF;
6294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6295: IF FND_MSG_PUB.Check_Msg_Level
6296: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6297: THEN
6298: FND_MSG_PUB.Add_Exc_Msg
6299: (G_PKG_NAME ,
6300: l_api_name );
6294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6295: IF FND_MSG_PUB.Check_Msg_Level
6296: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6297: THEN
6298: FND_MSG_PUB.Add_Exc_Msg
6299: (G_PKG_NAME ,
6300: l_api_name );
6301: END IF;
6302: FND_MSG_PUB.Count_And_Get
6298: FND_MSG_PUB.Add_Exc_Msg
6299: (G_PKG_NAME ,
6300: l_api_name );
6301: END IF;
6302: FND_MSG_PUB.Count_And_Get
6303: (p_count => x_msg_count,
6304: p_data => x_msg_data );
6305: END SHIP_UPDATE;
6306:
6660: END IF;
6661:
6662: -- Initialize message list if p_init_msg_list is set to TRUE.
6663: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6664: FND_MSG_PUB.initialize;
6665: END IF;
6666:
6667: -- Api body starts
6668:
6817: fnd_message.set_name('CSD','CSD_INVALID_INVENTORY_ITEM');
6818: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
6819: ELSE
6820: fnd_message.set_name('CSD','CSD_INVALID_INVENTORY_ITEM');
6821: fnd_msg_pub.add;
6822: END IF;
6823: RAISE FND_API.G_EXC_ERROR;
6824: End;
6825:
6921: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
6922: ELSE
6923: fnd_message.set_name('CSD','CSD_RO_UPD_FAILED');
6924: fnd_message.set_token('REPAIR_LINE_ID',I.repair_line_id);
6925: fnd_msg_pub.add;
6926: END IF;
6927: RAISE FND_API.G_EXC_ERROR;
6928: END IF;
6929: END IF;
6946: */
6947: IF ( l_error_level >= G_debug_level) THEN
6948: fnd_message.set_name('CSD','CSD_INSTANCE_MISSING');
6949: fnd_message.set_token('SERIAL_NUM',I.shipped_serial_num);
6950: fnd_msg_pub.add;
6951: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
6952: fnd_file.put_line(fnd_file.log, fnd_message.get);
6953: ELSE
6954: fnd_message.set_name('CSD','CSD_INSTANCE_MISSING');
6952: fnd_file.put_line(fnd_file.log, fnd_message.get);
6953: ELSE
6954: fnd_message.set_name('CSD','CSD_INSTANCE_MISSING');
6955: fnd_message.set_token('SERIAL_NUM',I.shipped_serial_num);
6956: fnd_msg_pub.add;
6957: fnd_file.put_line(fnd_file.log, fnd_message.get);
6958: /*Fixed for bug#5563369
6959: Correct message name CSD_INSTANCE_MISSING is used instead of
6960: CSD_INV_INSTANCE_ID.
6975: When OTHERS then
6976: IF ( l_error_level >= G_debug_level) THEN
6977: fnd_message.set_name('CSD','CSD_INSTANCE_MISSING');
6978: fnd_message.set_token('SERIAL_NUM',I.shipped_serial_num);
6979: fnd_msg_pub.add;
6980: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
6981: fnd_file.put_line(fnd_file.log, fnd_message.get);
6982: ELSE
6983: fnd_message.set_name('CSD','CSD_INSTANCE_MISSING');
6981: fnd_file.put_line(fnd_file.log, fnd_message.get);
6982: ELSE
6983: fnd_message.set_name('CSD','CSD_INSTANCE_MISSING');
6984: fnd_message.set_token('SERIAL_NUM',I.shipped_serial_num);
6985: fnd_msg_pub.add;
6986: fnd_file.put_line(fnd_file.log, fnd_message.get);
6987: END IF;
6988: RAISE FND_API.G_EXC_ERROR;
6989: End;
7027: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
7028: ELSE
7029: fnd_message.set_name('CSD','CSD_PROD_TXN_UPD_FAILED');
7030: fnd_message.set_token('PROD_TXN_ID',I.product_transaction_id);
7031: fnd_msg_pub.add;
7032: END IF;
7033: RAISE FND_API.G_EXC_ERROR;
7034: END IF;
7035:
7188:
7189: -- Log seeded messages for the number of processed records
7190: fnd_message.set_name('CSD','CSD_DRC_SHIP_TOTAL_REC_PROC');
7191: fnd_message.set_token('TOT_REC',to_char(l_total_records));
7192: FND_MSG_PUB.ADD;
7193:
7194: -- Debug messages
7195: Debug(fnd_message.get,l_mod_name,1);
7196:
7208: x_return_status := G_CSD_RET_STS_WARNING;
7209: End if;
7210:
7211: -- Standard call to get message count and IF count is get message info.
7212: FND_MSG_PUB.Count_And_Get
7213: (p_count => x_msg_count,
7214: p_data => x_msg_data);
7215:
7216: EXCEPTION
7217: WHEN FND_API.G_EXC_ERROR THEN
7218: Debug('FND_API.G_EXC_ERROR Exception',l_mod_name,4);
7219: ROLLBACK TO SO_SHIP_UPDATE;
7220: x_return_status := FND_API.G_RET_STS_ERROR ;
7221: FND_MSG_PUB.Count_And_Get
7222: (p_count => x_msg_count,
7223: p_data => x_msg_data );
7224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7225: Debug('FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
7224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7225: Debug('FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
7226: ROLLBACK TO SO_SHIP_UPDATE;
7227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7228: FND_MSG_PUB.Count_And_Get
7229: ( p_count => x_msg_count,
7230: p_data => x_msg_data );
7231: WHEN OTHERS THEN
7232: Debug('OTHERS Exception',l_mod_name,4);
7231: WHEN OTHERS THEN
7232: Debug('OTHERS Exception',l_mod_name,4);
7233: ROLLBACK TO SO_SHIP_UPDATE;
7234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7235: IF FND_MSG_PUB.Check_Msg_Level
7236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7237: THEN
7238: FND_MSG_PUB.Add_Exc_Msg
7239: (G_PKG_NAME ,
7232: Debug('OTHERS Exception',l_mod_name,4);
7233: ROLLBACK TO SO_SHIP_UPDATE;
7234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7235: IF FND_MSG_PUB.Check_Msg_Level
7236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7237: THEN
7238: FND_MSG_PUB.Add_Exc_Msg
7239: (G_PKG_NAME ,
7240: l_api_name );
7234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7235: IF FND_MSG_PUB.Check_Msg_Level
7236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7237: THEN
7238: FND_MSG_PUB.Add_Exc_Msg
7239: (G_PKG_NAME ,
7240: l_api_name );
7241: END IF;
7242: FND_MSG_PUB.Count_And_Get
7238: FND_MSG_PUB.Add_Exc_Msg
7239: (G_PKG_NAME ,
7240: l_api_name );
7241: END IF;
7242: FND_MSG_PUB.Count_And_Get
7243: (p_count => x_msg_count,
7244: p_data => x_msg_data );
7245: END SO_SHIP_UPDATE;
7246:
7508: END IF;
7509:
7510: -- Initialize message list if p_init_msg_list is set to TRUE.
7511: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7512: FND_MSG_PUB.initialize;
7513: END IF;
7514:
7515: -- Api body starts
7516:
7536: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
7537: ELSE
7538: fnd_message.set_name('CSD','CSD_INV_ORD_HEADER_ID');
7539: fnd_message.set_token('HEADER_ID',p_order_header_id);
7540: fnd_msg_pub.add;
7541: END IF;
7542: RAISE FND_API.G_EXC_ERROR;
7543: END;
7544: END IF;
7585: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
7586: ELSE
7587: fnd_message.set_name('CSD','CSD_INV_ORD_HEADER_ID');
7588: fnd_message.set_token('HEADER_ID',DEL.header_id);
7589: fnd_msg_pub.add;
7590: END IF;
7591: RAISE FND_API.G_EXC_ERROR;
7592: END;
7593:
7685: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
7686: ELSE
7687: fnd_message.set_name('CSD','CSD_INV_PROD_TXN_ID');
7688: fnd_message.set_token('PROD_TXN_ID',l_prod_txn_id);
7689: fnd_msg_pub.add;
7690: END IF;
7691: RAISE PROCESS_ERROR;
7692: END IF;
7693:
7711: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
7712: ELSE
7713: fnd_message.set_name('CSD','CSD_INV_ORD_HEADER_ID');
7714: fnd_message.set_token('ORDER_HEADER_ID',DEL.header_id);
7715: fnd_msg_pub.add;
7716: END IF;
7717: RAISE PROCESS_ERROR;
7718: End;
7719: Begin
7777: fnd_message.set_name('CSD','CSD_PROD_TXN_INSERT_FAILED');
7778: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
7779: ELSE
7780: fnd_message.set_name('CSD','CSD_PROD_TXN_INSERT_FAILED');
7781: fnd_msg_pub.add;
7782: END IF;
7783: RAISE PROCESS_ERROR;
7784: END;
7785: END IF;
7842: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
7843: ELSE
7844: fnd_message.set_name('CSD','CSD_INV_ORDER_LINE_ID');
7845: fnd_message.set_token('ORDER_LINE_ID',DEL.line_id);
7846: fnd_msg_pub.add;
7847: END IF;
7848: RAISE PROCESS_ERROR;
7849: END IF;
7850: ELSE
7873: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
7874: ELSE
7875: fnd_message.set_name('CSD','CSD_INV_ORDER_LINE_ID');
7876: fnd_message.set_token('ORDER_LINE_ID',DEL.line_id);
7877: fnd_msg_pub.add;
7878: END IF;
7879: RAISE PROCESS_ERROR;
7880: END IF;
7881: END IF;
8000: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
8001: ELSE
8002: fnd_message.set_name('CSD','CSD_INV_PROD_TXN_ID');
8003: fnd_message.set_token('PROD_TXN_ID',l_prod_txn_id);
8004: fnd_msg_pub.add;
8005: END IF;
8006: RAISE PROCESS_ERROR;
8007: END IF;
8008:
8026: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
8027: ELSE
8028: fnd_message.set_name('CSD','CSD_INV_ORD_HEADER_ID');
8029: fnd_message.set_token('ORDER_HEADER_ID',DEL.header_id);
8030: fnd_msg_pub.add;
8031: END IF;
8032: RAISE PROCESS_ERROR;
8033: End;
8034: Begin
8093: fnd_message.set_name('CSD','CSD_PROD_TXN_INSERT_FAILED');
8094: FND_LOG.MESSAGE(l_error_level,l_mod_name, FALSE);
8095: ELSE
8096: fnd_message.set_name('CSD','CSD_PROD_TXN_INSERT_FAILED');
8097: fnd_msg_pub.add;
8098: END IF;
8099: RAISE PROCESS_ERROR;
8100: END;
8101: END IF; -- end if prod_txn_exists
8117: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
8118: ELSE
8119: FND_MESSAGE.SET_NAME('CSD','CSD_RO_UPD_FAILED');
8120: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',l_rep_line_id);
8121: FND_MSG_PUB.ADD;
8122: END IF;
8123: RAISE PROCESS_ERROR;
8124: END IF;
8125:
8246: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
8247: ELSE
8248: FND_MESSAGE.SET_NAME('CSD','CSD_INV_PROD_TXN_ID');
8249: FND_MESSAGE.SET_TOKEN('PROD_TXN_ID',l_prod_txn_id);
8250: FND_MSG_PUB.ADD;
8251: END IF;
8252: RAISE PROCESS_ERROR;
8253: END IF;
8254:
8267: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
8268: ELSE
8269: FND_MESSAGE.SET_NAME('CSD','CSD_RO_UPD_FAILED');
8270: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',l_rep_line_id);
8271: FND_MSG_PUB.ADD;
8272: END IF;
8273: RAISE PROCESS_ERROR;
8274: END IF;
8275: -- product txn exist
8365: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
8366: ELSE
8367: FND_MESSAGE.SET_NAME('CSD','CSD_PROD_TXN_UPD_FAILED');
8368: FND_MESSAGE.SET_TOKEN('PROD_TXN_ID',l_prod_txn_id);
8369: FND_MSG_PUB.ADD;
8370: END IF;
8371: RAISE PROCESS_ERROR;
8372: END IF;
8373:
8386: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
8387: ELSE
8388: FND_MESSAGE.SET_NAME('CSD','CSD_RO_UPD_FAILED');
8389: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',l_rep_line_id);
8390: FND_MSG_PUB.ADD;
8391: END IF;
8392: RAISE PROCESS_ERROR;
8393: END IF;
8394: Exception
8502: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
8503: ELSE
8504: FND_MESSAGE.SET_NAME('CSD','CSD_INV_PROD_TXN_ID');
8505: FND_MESSAGE.SET_TOKEN('PROD_TXN_ID',l_prod_txn_id);
8506: FND_MSG_PUB.ADD;
8507: END IF;
8508: RAISE PROCESS_ERROR;
8509: END IF;
8510:
8523: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
8524: ELSE
8525: FND_MESSAGE.SET_NAME('CSD','CSD_RO_UPD_FAILED');
8526: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',l_rep_line_id);
8527: FND_MSG_PUB.ADD;
8528: END IF;
8529: RAISE PROCESS_ERROR;
8530: END IF;
8531: -- product txn exist
8621: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
8622: ELSE
8623: FND_MESSAGE.SET_NAME('CSD','CSD_PROD_TXN_UPD_FAILED');
8624: FND_MESSAGE.SET_TOKEN('PROD_TXN_ID',l_prod_txn_id);
8625: FND_MSG_PUB.ADD;
8626: END IF;
8627: RAISE PROCESS_ERROR;
8628: END IF;
8629:
8642: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
8643: ELSE
8644: FND_MESSAGE.SET_NAME('CSD','CSD_RO_UPD_FAILED');
8645: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',l_rep_line_id);
8646: FND_MSG_PUB.ADD;
8647: END IF;
8648: RAISE PROCESS_ERROR;
8649: END IF;
8650: Exception
8742: COMMIT WORK;
8743: END IF;
8744:
8745: -- Standard call to get message count and IF count is get message info.
8746: FND_MSG_PUB.Count_And_Get
8747: (p_count => x_msg_count,
8748: p_data => x_msg_data);
8749:
8750: EXCEPTION
8750: EXCEPTION
8751: WHEN FND_API.G_EXC_ERROR THEN
8752: ROLLBACK TO IO_SHIP_UPDATE;
8753: x_return_status := FND_API.G_RET_STS_ERROR ;
8754: FND_MSG_PUB.Count_And_Get
8755: (p_count => x_msg_count,
8756: p_data => x_msg_data );
8757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8758: ROLLBACK TO IO_SHIP_UPDATE;
8756: p_data => x_msg_data );
8757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8758: ROLLBACK TO IO_SHIP_UPDATE;
8759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8760: FND_MSG_PUB.Count_And_Get
8761: ( p_count => x_msg_count,
8762: p_data => x_msg_data );
8763: WHEN OTHERS THEN
8764: ROLLBACK TO IO_SHIP_UPDATE;
8762: p_data => x_msg_data );
8763: WHEN OTHERS THEN
8764: ROLLBACK TO IO_SHIP_UPDATE;
8765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8766: IF FND_MSG_PUB.Check_Msg_Level
8767: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8768: THEN
8769: FND_MSG_PUB.Add_Exc_Msg
8770: (G_PKG_NAME ,
8763: WHEN OTHERS THEN
8764: ROLLBACK TO IO_SHIP_UPDATE;
8765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8766: IF FND_MSG_PUB.Check_Msg_Level
8767: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8768: THEN
8769: FND_MSG_PUB.Add_Exc_Msg
8770: (G_PKG_NAME ,
8771: l_api_name );
8765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8766: IF FND_MSG_PUB.Check_Msg_Level
8767: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8768: THEN
8769: FND_MSG_PUB.Add_Exc_Msg
8770: (G_PKG_NAME ,
8771: l_api_name );
8772: END IF;
8773: FND_MSG_PUB.Count_And_Get
8769: FND_MSG_PUB.Add_Exc_Msg
8770: (G_PKG_NAME ,
8771: l_api_name );
8772: END IF;
8773: FND_MSG_PUB.Count_And_Get
8774: (p_count => x_msg_count,
8775: p_data => x_msg_data );
8776:
8777: END IO_SHIP_UPDATE;
8847: END IF;
8848:
8849: -- Initialize message list if p_init_msg_list is set to TRUE.
8850: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8851: FND_MSG_PUB.initialize;
8852: END IF;
8853:
8854: -- Api body starts
8855:
8915: COMMIT WORK;
8916: END IF;
8917:
8918: -- Standard call to get message count and IF count is get message info.
8919: FND_MSG_PUB.Count_And_Get
8920: (p_count => x_msg_count,
8921: p_data => x_msg_data);
8922: EXCEPTION
8923: WHEN FND_API.G_EXC_ERROR THEN
8927: IF NOT(FND_API.To_Boolean( p_commit )) THEN
8928: ROLLBACK TO WIP_UPDATE;
8929: END IF;
8930: x_return_status := FND_API.G_RET_STS_ERROR ;
8931: FND_MSG_PUB.Count_And_Get
8932: (p_count => x_msg_count,
8933: p_data => x_msg_data );
8934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8935: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
8944: IF NOT(FND_API.To_Boolean( p_commit )) THEN
8945: ROLLBACK TO WIP_UPDATE;
8946: END IF;
8947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8948: FND_MSG_PUB.Count_And_Get
8949: ( p_count => x_msg_count,
8950: p_data => x_msg_data );
8951: WHEN OTHERS THEN
8952: Debug('In OTHERS Exception',l_mod_name,4);
8961: IF NOT(FND_API.To_Boolean( p_commit )) THEN
8962: ROLLBACK TO WIP_UPDATE;
8963: END IF;
8964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8965: IF FND_MSG_PUB.Check_Msg_Level
8966: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8967: THEN
8968: FND_MSG_PUB.Add_Exc_Msg
8969: (G_PKG_NAME ,
8962: ROLLBACK TO WIP_UPDATE;
8963: END IF;
8964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8965: IF FND_MSG_PUB.Check_Msg_Level
8966: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8967: THEN
8968: FND_MSG_PUB.Add_Exc_Msg
8969: (G_PKG_NAME ,
8970: l_api_name );
8964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8965: IF FND_MSG_PUB.Check_Msg_Level
8966: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8967: THEN
8968: FND_MSG_PUB.Add_Exc_Msg
8969: (G_PKG_NAME ,
8970: l_api_name );
8971: END IF;
8972: FND_MSG_PUB.Count_And_Get
8968: FND_MSG_PUB.Add_Exc_Msg
8969: (G_PKG_NAME ,
8970: l_api_name );
8971: END IF;
8972: FND_MSG_PUB.Count_And_Get
8973: (p_count => x_msg_count,
8974: p_data => x_msg_data );
8975: End WIP_UPDATE;
8976:
9073: -- Write the messages in the message stack to both log and output files
9074: -- Also concatenate the messages to l_msg_data
9075: IF l_msg_count > 1 then
9076: FOR i IN 1..l_msg_count LOOP
9077: l_msg_text := FND_MSG_PUB.Get(i,FND_API.G_FALSE);
9078: fnd_file.put_line(fnd_file.log,l_msg_text);
9079: fnd_file.put_line(fnd_file.output,l_msg_text);
9080: l_msg_data := l_msg_data||l_msg_text;
9081: END LOOP ;
9096: /*
9097: -- Concatenate the message from the message stack
9098: IF l_msg_count > 1 then
9099: FOR i IN 1..l_msg_count LOOP
9100: l_msg_data := l_msg_data||FND_MSG_PUB.Get(i,FND_API.G_FALSE) ;
9101: END LOOP ;
9102: END IF ;
9103: */
9104:
9198: -- Raise error message if the API returns status <> 'S'
9199: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9200: IF l_msg_count > 1 then
9201: FOR i IN 1..l_msg_count LOOP
9202: l_msg_data := l_msg_data||FND_MSG_PUB.Get(i,FND_API.G_FALSE) ;
9203: END LOOP ;
9204: END IF ;
9205: Debug(l_msg_data,l_mod_name,4);
9206: RAISE FND_API.G_EXC_ERROR;
9309: -- Write the messages in the message stack to both log and output files
9310: -- Also concatenate the messages to l_msg_data
9311: IF l_msg_count > 1 then
9312: FOR i IN 1..l_msg_count LOOP
9313: l_msg_text := FND_MSG_PUB.Get(i,FND_API.G_FALSE);
9314: fnd_file.put_line(fnd_file.log,l_msg_text);
9315: fnd_file.put_line(fnd_file.output,l_msg_text);
9316: l_msg_data := l_msg_data||l_msg_text;
9317: END LOOP ;
9332: /*
9333: -- Concatenate the message from the message stack
9334: IF l_msg_count > 1 then
9335: FOR i IN 1..l_msg_count LOOP
9336: l_msg_data := l_msg_data||FND_MSG_PUB.Get(i,FND_API.G_FALSE) ;
9337: END LOOP ;
9338: END IF ;
9339: */
9340:
9646: COMMIT WORK;
9647: END IF;
9648:
9649: -- Standard call to get message count and IF count is get message info.
9650: FND_MSG_PUB.Count_And_Get
9651: (p_count => x_msg_count,
9652: p_data => x_msg_data );
9653:
9654: EXCEPTION
9654: EXCEPTION
9655: WHEN FND_API.G_EXC_ERROR THEN
9656: ROLLBACK TO Update_rep_task_hist;
9657: x_return_status := FND_API.G_RET_STS_ERROR ;
9658: FND_MSG_PUB.Count_And_Get
9659: (p_count => x_msg_count,
9660: p_data => x_msg_data );
9661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9660: p_data => x_msg_data );
9661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9663: ROLLBACK TO Update_rep_task_hist;
9664: FND_MSG_PUB.Count_And_Get
9665: ( p_count => x_msg_count,
9666: p_data => x_msg_data );
9667: WHEN OTHERS THEN
9668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9666: p_data => x_msg_data );
9667: WHEN OTHERS THEN
9668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9669: ROLLBACK TO Update_rep_task_hist;
9670: IF FND_MSG_PUB.Check_Msg_Level
9671: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9672: THEN
9673: FND_MSG_PUB.Add_Exc_Msg
9674: (G_PKG_NAME ,
9667: WHEN OTHERS THEN
9668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9669: ROLLBACK TO Update_rep_task_hist;
9670: IF FND_MSG_PUB.Check_Msg_Level
9671: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9672: THEN
9673: FND_MSG_PUB.Add_Exc_Msg
9674: (G_PKG_NAME ,
9675: l_api_name );
9669: ROLLBACK TO Update_rep_task_hist;
9670: IF FND_MSG_PUB.Check_Msg_Level
9671: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9672: THEN
9673: FND_MSG_PUB.Add_Exc_Msg
9674: (G_PKG_NAME ,
9675: l_api_name );
9676: END IF;
9677: FND_MSG_PUB.Count_And_Get
9673: FND_MSG_PUB.Add_Exc_Msg
9674: (G_PKG_NAME ,
9675: l_api_name );
9676: END IF;
9677: FND_MSG_PUB.Count_And_Get
9678: (p_count => x_msg_count,
9679: p_data => x_msg_data );
9680:
9681: END TASK_UPDATE_CONC_PROG;