[Home] [Help]
189:
190: -- Initialize message list if p_init_msg_list is set to TRUE.
191: IF Fnd_Api.to_Boolean(p_init_msg_list)
192: THEN
193: Fnd_Msg_Pub.initialize;
194: END IF;
195:
196: -- Initialize API return status to success
197: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
368: COMMIT WORK;
369: END IF;
370:
371: -- Standard call to get message count and IF count is get message info.
372: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
373: p_data => x_msg_data);
374: EXCEPTION
375: WHEN Fnd_Api.G_EXC_ERROR THEN
376: ROLLBACK TO process_service_request;
374: EXCEPTION
375: WHEN Fnd_Api.G_EXC_ERROR THEN
376: ROLLBACK TO process_service_request;
377: x_return_status := Fnd_Api.G_RET_STS_ERROR;
378: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
379: p_data => x_msg_data);
380: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
381: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
382: ROLLBACK TO process_service_request;
379: p_data => x_msg_data);
380: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
381: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
382: ROLLBACK TO process_service_request;
383: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
384: p_data => x_msg_data);
385: WHEN OTHERS THEN
386: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
387: ROLLBACK TO process_service_request;
384: p_data => x_msg_data);
385: WHEN OTHERS THEN
386: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
387: ROLLBACK TO process_service_request;
388: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
389: THEN
390: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
391: END IF;
392: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
386: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
387: ROLLBACK TO process_service_request;
388: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
389: THEN
390: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
391: END IF;
392: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
393: p_data => x_msg_data);
394: END process_service_request;
388: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
389: THEN
390: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
391: END IF;
392: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
393: p_data => x_msg_data);
394: END process_service_request;
395:
396: /*--------------------------------------------------*/
441:
442: -- Initialize message list if p_init_msg_list is set to TRUE.
443: IF Fnd_Api.to_Boolean(p_init_msg_list)
444: THEN
445: Fnd_Msg_Pub.initialize;
446: END IF;
447:
448: -- Initialize API return status to success
449: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
647: COMMIT WORK;
648: END IF;
649:
650: -- Standard call to get message count and IF count is get message info.
651: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
652: p_data => x_msg_data);
653: EXCEPTION
654: WHEN Fnd_Api.G_EXC_ERROR THEN
655: ROLLBACK TO process_charge_lines;
653: EXCEPTION
654: WHEN Fnd_Api.G_EXC_ERROR THEN
655: ROLLBACK TO process_charge_lines;
656: x_return_status := Fnd_Api.G_RET_STS_ERROR;
657: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
658: p_data => x_msg_data);
659: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
660: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
661: ROLLBACK TO process_charge_lines;
658: p_data => x_msg_data);
659: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
660: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
661: ROLLBACK TO process_charge_lines;
662: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
663: p_data => x_msg_data);
664: WHEN OTHERS THEN
665: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
666: ROLLBACK TO process_charge_lines;
663: p_data => x_msg_data);
664: WHEN OTHERS THEN
665: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
666: ROLLBACK TO process_charge_lines;
667: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
668: THEN
669: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
670: END IF;
671: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
665: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
666: ROLLBACK TO process_charge_lines;
667: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
668: THEN
669: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
670: END IF;
671: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
672: p_data => x_msg_data);
673: END process_charge_lines;
667: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
668: THEN
669: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
670: END IF;
671: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
672: p_data => x_msg_data);
673: END process_charge_lines;
674:
675: /*--------------------------------------------------*/
708:
709: -- Initialize message list if p_init_msg_list is set to TRUE.
710: IF Fnd_Api.to_Boolean(p_init_msg_list)
711: THEN
712: Fnd_Msg_Pub.initialize;
713: END IF;
714:
715: -- Initialize API return status to success
716: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
751: COMMIT WORK;
752: END IF;
753:
754: -- Standard call to get message count and IF count is get message info.
755: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
756: p_data => x_msg_data);
757: EXCEPTION
758: WHEN Fnd_Api.G_EXC_ERROR THEN
759: ROLLBACK TO apply_contract;
757: EXCEPTION
758: WHEN Fnd_Api.G_EXC_ERROR THEN
759: ROLLBACK TO apply_contract;
760: x_return_status := Fnd_Api.G_RET_STS_ERROR;
761: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
762: p_data => x_msg_data);
763: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
764: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
765: ROLLBACK TO apply_contract;
762: p_data => x_msg_data);
763: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
764: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
765: ROLLBACK TO apply_contract;
766: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
767: p_data => x_msg_data);
768: WHEN OTHERS THEN
769: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
770: ROLLBACK TO apply_contract;
767: p_data => x_msg_data);
768: WHEN OTHERS THEN
769: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
770: ROLLBACK TO apply_contract;
771: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
772: THEN
773: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
774: END IF;
775: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
769: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
770: ROLLBACK TO apply_contract;
771: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
772: THEN
773: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
774: END IF;
775: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
776: p_data => x_msg_data);
777: END apply_contract;
771: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
772: THEN
773: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
774: END IF;
775: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
776: p_data => x_msg_data);
777: END apply_contract;
778:
779: /*--------------------------------------------------*/
895:
896: -- Initialize message list if p_init_msg_list is set to TRUE.
897: IF Fnd_Api.to_Boolean(p_init_msg_list)
898: THEN
899: Fnd_Msg_Pub.initialize;
900: END IF;
901:
902: -- Initialize API return status to success
903: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
923: IF NVL(p_delivery_id, Fnd_Api.G_MISS_NUM) = Fnd_Api.G_MISS_NUM
924: THEN
925: Fnd_Message.SET_NAME('CSD', 'CSD_INV_DELIVERY_ID');
926: Fnd_Message.SET_TOKEN('DELIVERY_ID', p_delivery_id);
927: Fnd_Msg_Pub.ADD;
928: IF (g_debug > 0)
929: THEN
930: Csd_Gen_Utility_Pvt.ADD('Delivery_id is invalid');
931: END IF;
940: EXCEPTION
941: WHEN NO_DATA_FOUND THEN
942: Fnd_Message.SET_NAME('CSD', 'CSD_INV_DELIVERY_ID');
943: Fnd_Message.SET_TOKEN('DELIVERY_ID', p_delivery_id);
944: Fnd_Msg_Pub.ADD;
945: IF (g_debug > 0)
946: THEN
947: Csd_Gen_Utility_Pvt.ADD('Delivery_id is invalid');
948: END IF;
1022: END IF;
1023: Fnd_Message.SET_NAME('CSD',
1024: 'CSD_UPDATE_SHIPPING_FAILED');
1025: Fnd_Message.SET_TOKEN('ERR_MSG', x_msg_data);
1026: Fnd_Msg_Pub.ADD;
1027: RAISE Fnd_Api.G_EXC_ERROR;
1028: END;
1029:
1030: END IF; --end of update_shipping_attributes
1128: IF (x_return_status <> Wsh_Util_Core.G_RET_STS_WARNING)
1129: THEN
1130: Fnd_Message.SET_NAME('CSD', 'CSD_SHIP_CONFIRM_FAILED');
1131: Fnd_Message.SET_TOKEN('ERR_MSG', x_msg_data);
1132: Fnd_Msg_Pub.ADD;
1133: RAISE Fnd_Api.G_EXC_ERROR;
1134: END IF;
1135:
1136: END; -- end of delivery action
1143: COMMIT WORK;
1144: END IF;
1145:
1146: -- Standard call to get message count and IF count is get message info.
1147: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1148: p_data => x_msg_data);
1149:
1150: EXCEPTION
1151: WHEN Fnd_Api.G_EXC_ERROR THEN
1150: EXCEPTION
1151: WHEN Fnd_Api.G_EXC_ERROR THEN
1152: ROLLBACK TO ship_sales_order;
1153: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1154: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1155: p_data => x_msg_data);
1156: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1157: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1158: ROLLBACK TO ship_sales_order;
1155: p_data => x_msg_data);
1156: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1157: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1158: ROLLBACK TO ship_sales_order;
1159: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1160: p_data => x_msg_data);
1161: WHEN OTHERS THEN
1162: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1163: ROLLBACK TO ship_sales_order;
1160: p_data => x_msg_data);
1161: WHEN OTHERS THEN
1162: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1163: ROLLBACK TO ship_sales_order;
1164: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1165: THEN
1166: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1167: END IF;
1168: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1162: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1163: ROLLBACK TO ship_sales_order;
1164: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1165: THEN
1166: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1167: END IF;
1168: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1169: p_data => x_msg_data);
1170: END ship_sales_order;
1164: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1165: THEN
1166: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1167: END IF;
1168: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1169: p_data => x_msg_data);
1170: END ship_sales_order;
1171:
1172:
1177:
1178: begin
1179: IF p_MSG_COUNT > 1 THEN
1180: FOR i IN 1..p_MSG_COUNT LOOP
1181: l_msg := apps.FND_MSG_PUB.Get(i,apps.FND_API.G_FALSE) ;
1182: Fnd_Log.STRING(l_stat_level, p_mod_name, l_msg);
1183: END LOOP ;
1184: ELSE
1185: l_msg := apps.FND_MSG_PUB.Get(1,apps.FND_API.G_FALSE) ;
1181: l_msg := apps.FND_MSG_PUB.Get(i,apps.FND_API.G_FALSE) ;
1182: Fnd_Log.STRING(l_stat_level, p_mod_name, l_msg);
1183: END LOOP ;
1184: ELSE
1185: l_msg := apps.FND_MSG_PUB.Get(1,apps.FND_API.G_FALSE) ;
1186: Fnd_Log.STRING(l_stat_level, p_mod_name, l_msg);
1187: END IF ;
1188:
1189: end dbg_print_stack;
1390:
1391: -- Initialize message list if p_init_msg_list is set to TRUE.
1392: IF Fnd_Api.to_Boolean(p_init_msg_list)
1393: THEN
1394: Fnd_Msg_Pub.initialize;
1395: END IF;
1396:
1397: -- Initialize API return status to success
1398: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1522: THEN
1523: Fnd_Message.SET_NAME('CSD', 'CSD_INV_ORDER_HEADER_ID');
1524: Fnd_Message.SET_TOKEN('ORDER_HEADER_ID',
1525: p_order_rec.order_header_id);
1526: Fnd_Msg_Pub.ADD;
1527: Debug('Invalid Order header Id is passed ', l_mod_name, 1);
1528: RAISE Fnd_Api.G_EXC_ERROR;
1529: END IF;
1530:
1533: THEN
1534: Fnd_Message.SET_NAME('CSD', 'CSD_INV_PICKING_RULE_ID');
1535: Fnd_Message.SET_TOKEN('PICKING_RULE_ID',
1536: p_order_rec.PICKING_RULE_ID);
1537: Fnd_Msg_Pub.ADD;
1538: Debug('Invalid Picking rule Id is passed ', l_mod_name, 1);
1539: RAISE Fnd_Api.G_EXC_ERROR;
1540: END IF;
1541:
1689: Exception
1690: WHEN OTHERS THEN
1691: Fnd_Message.SET_NAME('CSD', 'CSD_PICK_RELEASE_FAIL');
1692: Fnd_Message.SET_TOKEN('BATCH_NAME', l_batch_name);
1693: Fnd_Msg_Pub.ADD;
1694: Debug(' Picking rules insert failed ',l_mod_name, 1);
1695: RAISE Fnd_Api.G_EXC_ERROR;
1696: End ;
1697:
1754: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR)
1755: THEN
1756: Fnd_Message.SET_NAME('CSD', 'CSD_PICK_RELEASE_FAIL');
1757: Fnd_Message.SET_TOKEN('BATCH_NAME', l_batch_name);
1758: Fnd_Msg_Pub.ADD;
1759: Debug('WSH_PICK_LIST.RELEASE_BATCH failed for batch : ' ||
1760: l_batch_name,
1761: l_mod_name,1) ;
1762: RAISE Fnd_Api.G_EXC_ERROR;
1778: THEN
1779: Fnd_Message.SET_NAME('CSD', 'CSD_INV_ORDER_HEADER_ID');
1780: Fnd_Message.SET_TOKEN('ORDER_HEADER_ID',
1781: p_order_rec.order_header_id);
1782: Fnd_Msg_Pub.ADD;
1783: Debug('Order_header_id is invalid', l_mod_name, 1);
1784: RAISE Fnd_Api.G_EXC_ERROR;
1785: END IF;
1786:
1941:
1942: if nvl(p_product_txn_rec.source_serial_number,FND_API.G_MISS_CHAR)=FND_API.G_MISS_CHAR then
1943: /* Validation 3 */
1944: FND_MESSAGE.SET_NAME('CSD','CSD_API_SERIAL_NUM_REQD');
1945: FND_MSG_PUB.ADD;
1946: RAISE FND_API.G_EXC_ERROR;
1947: else
1948: l_shipped_serial_number := p_product_txn_rec.source_serial_number;
1949: end if;
1961: /*Validation 1 */
1962: FND_MESSAGE.SET_NAME('CSD','CSD_SERIAL_NUM_NOT_IN_INVORG');
1963: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',l_shipped_serial_number);
1964: FND_MESSAGE.SET_TOKEN('INV_ORG',i.organization_code);
1965: FND_MSG_PUB.ADD;
1966: RAISE FND_API.G_EXC_ERROR;
1967: else /*if Item is Serialied at SO then user may pass SN that does not resides in any warehouse */
1968: l_SN_at_SO_new_SN_number :=TRUE;
1969: end if;
1973: if ( i.serial_number_control_code =1 or (i.serial_number_control_code=6 and l_SN_at_SO_new_SN_number=TRUE ) ) then
1974: if nvl(p_product_txn_rec.sub_inventory ,FND_API.G_MISS_CHAR)=FND_API.G_MISS_CHAR then
1975: /*Validation 4 */
1976: FND_MESSAGE.SET_NAME('CSD','CSD_SUBINV_IS_REQD');
1977: FND_MSG_PUB.ADD;
1978: RAISE FND_API.G_EXC_ERROR;
1979: end if;
1980:
1981: begin
1992: /*Validation 2 */
1993: FND_MESSAGE.SET_NAME('CSD','CSD_SUBINV_NOT_IN_INVORG');
1994: FND_MESSAGE.SET_TOKEN('SUB_INV',p_product_txn_rec.sub_inventory);
1995: FND_MESSAGE.SET_TOKEN('INV_ORG',i.organization_code);
1996: FND_MSG_PUB.ADD;
1997: RAISE FND_API.G_EXC_ERROR;
1998: end;
1999:
2000: if i.LOT_CONTROL_CODE =2 then
2001: if nvl(p_product_txn_rec.lot_number,FND_API.G_MISS_CHAR)=FND_API.G_MISS_CHAR then
2002: /*Validation 5 */
2003: FND_MESSAGE.SET_NAME('CSD','CSD_LOT_NUMBER_REQD');
2004: FND_MESSAGE.SET_TOKEN('ITEM',i.item_name);
2005: FND_MSG_PUB.ADD;
2006: RAISE FND_API.G_EXC_ERROR;
2007: else
2008: l_lot_number:= p_product_txn_rec.lot_number;
2009: end if;
2012: if i.REVISION_QTY_CONTROL_CODE =2 then
2013: if nvl(p_product_txn_rec.revision,FND_API.G_MISS_CHAR)=FND_API.G_MISS_CHAR then
2014: FND_MESSAGE.SET_NAME('CSD','CSD_ITEM_REVISION_REQD');
2015: FND_MESSAGE.SET_TOKEN('ITEM',i.item_name);
2016: FND_MSG_PUB.ADD;
2017: RAISE FND_API.G_EXC_ERROR;
2018: else
2019: l_revision:=p_product_txn_rec.revision;
2020: end if;
2083: l_mod_name,
2084: 1);
2085: Fnd_Message.SET_NAME('CSD','CSD_UPDATE_SHIPPING_FAILED');
2086: Fnd_Message.SET_TOKEN('ERR_MSG', x_msg_data);
2087: Fnd_Msg_Pub.ADD;
2088: RAISE Fnd_Api.G_EXC_ERROR;
2089: END;
2090:
2091: -- END IF; --end of update_shipping_attributes
2180: THEN
2181: Fnd_Message.SET_NAME('CSD',
2182: 'CSD_SHIP_CONFIRM_FAILED');
2183: Fnd_Message.SET_TOKEN('ERR_MSG', x_msg_data);
2184: Fnd_Msg_Pub.ADD;
2185: RAISE Fnd_Api.G_EXC_ERROR;
2186: END IF;
2187: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2188: END; -- end of delivery action
2198: COMMIT WORK;
2199: END IF;
2200:
2201: -- Standard call to get message count and IF count is get message info.
2202: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2203: p_data => x_msg_data);
2204:
2205: EXCEPTION
2206: WHEN Fnd_Api.G_EXC_ERROR THEN
2207: Debug('In EXC_ERROR in process_sales_order', l_mod_name, 1);
2208: ROLLBACK TO process_sales_order;
2209:
2210: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2211: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2212: p_data => x_msg_data);
2213:
2214: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2215: Debug('In EXC_UNEXP_ERROR in process_sales_order', l_mod_name, 1);
2214: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2215: Debug('In EXC_UNEXP_ERROR in process_sales_order', l_mod_name, 1);
2216: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2217: ROLLBACK TO process_sales_order;
2218: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2219: p_data => x_msg_data);
2220: WHEN OTHERS THEN
2221: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2222: Debug('In OTHERS in process_sales_order' || sqlerrm, l_mod_name, 1);
2220: WHEN OTHERS THEN
2221: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2222: Debug('In OTHERS in process_sales_order' || sqlerrm, l_mod_name, 1);
2223: ROLLBACK TO process_sales_order;
2224: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2225: THEN
2226: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2227: END IF;
2228: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2222: Debug('In OTHERS in process_sales_order' || sqlerrm, l_mod_name, 1);
2223: ROLLBACK TO process_sales_order;
2224: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2225: THEN
2226: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2227: END IF;
2228: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2229: p_data => x_msg_data);
2230: END process_sales_order;
2224: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2225: THEN
2226: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2227: END IF;
2228: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2229: p_data => x_msg_data);
2230: END process_sales_order;
2231:
2232: /*------------------------------------------------------------------*/
2408:
2409: -- Initialize message list if p_init_msg_list is set to TRUE.
2410: IF Fnd_Api.to_Boolean(p_init_msg_list)
2411: THEN
2412: Fnd_Msg_Pub.initialize;
2413: END IF;
2414:
2415: -- Api body starts
2416:
2502: INTO l_tmp_char;
2503: IF (cur_pick_rules%NOTFOUND)
2504: THEN
2505: Fnd_Message.SET_NAME('CSD', 'CSD_INV_PICK_RULE');
2506: Fnd_Msg_Pub.ADD;
2507: RAISE Fnd_Api.G_EXC_ERROR;
2508: END IF;
2509: END IF;
2510: --R12 Development changes End
2550: AND lookup_code = x_product_txn_rec.PROD_TXN_STATUS;
2551: EXCEPTION
2552: WHEN OTHERS THEN
2553: Fnd_Message.SET_NAME('CSD', 'CSD_ERR_PROD_TXN_STATUS');
2554: Fnd_Msg_Pub.ADD;
2555: RAISE Fnd_Api.G_EXC_ERROR;
2556: END;
2557: END IF;
2558:
2573: WHEN OTHERS THEN
2574: Fnd_Message.SET_NAME('CSD', 'CSD_API_INV_REP_LINE_ID');
2575: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
2576: x_product_txn_rec.repair_line_id);
2577: Fnd_Msg_Pub.ADD;
2578: RAISE Fnd_Api.G_EXC_ERROR;
2579: END;
2580:
2581: Debug('l_incident_id =' || l_incident_id, l_mod_name, 1);
2678: WHEN NO_DATA_FOUND THEN
2679: Fnd_Message.SET_NAME('CSD', 'CSD_API_CONTRACT_MISSING');
2680: Fnd_Message.SET_TOKEN('CONTRACT_LINE_ID',
2681: x_product_txn_rec.contract_id);
2682: Fnd_Msg_Pub.ADD;
2683: Debug('Contract Line Id missing', l_mod_name, 1);
2684: RAISE Fnd_Api.G_EXC_ERROR;
2685: WHEN TOO_MANY_ROWS THEN
2686: Debug('Too many Contract Line', l_mod_name, 1);
2706: IF (order_rec%NOTFOUND OR l_party_id IS NULL)
2707: THEN
2708: Fnd_Message.SET_NAME('CSD', 'CSD_API_PARTY_MISSING');
2709: Fnd_Message.SET_TOKEN('INCIDENT_ID', l_incident_id);
2710: Fnd_Msg_Pub.ADD;
2711: RAISE Fnd_Api.G_EXC_ERROR;
2712: END IF;
2713: IF order_rec%ISOPEN
2714: THEN
2765: THEN
2766: Fnd_Message.SET_NAME('CSD', 'CSD_API_LINE_TYPE_MISSING');
2767: Fnd_Message.SET_TOKEN('TXN_BILLING_TYPE_ID',
2768: x_product_txn_rec.txn_billing_type_id);
2769: Fnd_Msg_Pub.ADD;
2770: RAISE Fnd_Api.G_EXC_ERROR;
2771: END IF;
2772:
2773: -- Get the currency code from the price list if it is null or g_miss
2784: Fnd_Message.SET_NAME('CSD',
2785: 'CSD_API_INV_PRICE_LIST_ID');
2786: Fnd_Message.SET_TOKEN('PRICE_LIST_ID',
2787: x_product_txn_rec.price_list_id);
2788: Fnd_Msg_Pub.ADD;
2789: RAISE Fnd_Api.G_EXC_ERROR;
2790: WHEN TOO_MANY_ROWS THEN
2791: Debug('Too many currency_codes', l_mod_name, 1);
2792: END;
2799: THEN
2800: Fnd_Message.SET_NAME('CSD', 'CSD_API_INV_CURR_CODE');
2801: Fnd_Message.SET_TOKEN('PRICE_LIST_ID',
2802: x_product_txn_rec.price_list_id);
2803: Fnd_Msg_Pub.ADD;
2804: RAISE Fnd_Api.G_EXC_ERROR;
2805: END IF;
2806:
2807: l_serial_flag := Csd_Process_Util.Is_item_serialized(x_product_txn_rec.inventory_item_id);
2825: THEN
2826: Fnd_Message.SET_NAME('CSD', 'CSD_API_SERIAL_NUM_MISSING');
2827: Fnd_Message.SET_TOKEN('INVENTORY_ITEM_ID',
2828: x_product_txn_rec.inventory_item_id);
2829: Fnd_Msg_Pub.ADD;
2830: Debug('Serial Number missing for inventory_item_id =' ||
2831: x_product_txn_rec.inventory_item_id,
2832: l_mod_name,
2833: 1);
3021: THEN
3022: Fnd_Message.SET_NAME('CSD', 'CSD_ERR_REPAIRS_UPDATE');
3023: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
3024: x_product_txn_rec.repair_line_id);
3025: Fnd_Msg_Pub.ADD;
3026: RAISE Fnd_Api.G_EXC_ERROR;
3027: END IF;
3028:
3029: -- Process the product txn only if the process_flag = 'Y'
3057: EXCEPTION
3058: WHEN NO_DATA_FOUND THEN
3059: Fnd_Message.SET_NAME('CSD',
3060: 'CSD_INVALID_INVENTORY_ITEM');
3061: Fnd_Msg_Pub.ADD;
3062: RAISE CREATE_ORDER;
3063: END;
3064:
3065: IF l_rev_ctl_code = 2
3076: EXCEPTION
3077: WHEN NO_DATA_FOUND THEN
3078: Fnd_Message.SET_NAME('CSD',
3079: 'CSD_INVALID_REVISION');
3080: Fnd_Msg_Pub.ADD;
3081: RAISE CREATE_ORDER;
3082: END;
3083: END IF;
3084:
3138: Fnd_Message.SET_NAME('CSD',
3139: 'CSD_ERR_PRD_TXN_UPDATE');
3140: Fnd_Message.SET_TOKEN('PRODUCT_TRANSACTION_ID',
3141: x_product_txn_rec.PRODUCT_TRANSACTION_ID);
3142: Fnd_Msg_Pub.ADD;
3143: RAISE CREATE_ORDER;
3144: END IF;
3145:
3146: UPDATE csd_repairs
3152: Fnd_Message.SET_NAME('CSD',
3153: 'CSD_ERR_REPAIRS_UPDATE');
3154: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
3155: x_product_txn_rec.repair_line_id);
3156: Fnd_Msg_Pub.ADD;
3157: RAISE CREATE_ORDER;
3158: END IF;
3159:
3160: -- swai: bug 6001057
3190: else
3191: FND_MESSAGE.SET_NAME('CSD','CSD_ERR_PROJECT_UPDATE');
3192: FND_MESSAGE.SET_TOKEN('project_id',x_product_txn_rec.project_id);
3193: FND_MESSAGE.SET_TOKEN('ship_from_org_id',l_p_ship_from_org_id);
3194: FND_MSG_PUB.ADD;
3195: RAISE CREATE_ORDER;
3196: end if;
3197: end if;
3198: end if; -- end update project and unit number fields
3221: );
3222:
3223: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3224: FND_MESSAGE.SET_NAME('CSD','CSD_ERR_OM_PROCESS_LINE');
3225: FND_MSG_PUB.ADD;
3226: RAISE CREATE_ORDER;
3227: END IF;
3228: end if; -- order line is not null
3229: end if;
3273: Fnd_Message.SET_NAME('CSD',
3274: 'CSD_API_INV_EST_DETAIL_ID');
3275: Fnd_Message.SET_TOKEN('ESTIMATE_DETAIL_ID',
3276: x_estimate_detail_id); */
3277: Fnd_Msg_Pub.ADD;
3278: Debug('Sales Order missing for estimate_detail_id =' ||
3279: x_estimate_detail_id,
3280: l_mod_name,
3281: 1);
3310: Fnd_Message.SET_NAME('CSD',
3311: 'CSD_API_SALES_REP_MISSING');
3312: Fnd_Message.SET_TOKEN('ORDER_LINE_ID',
3313: l_order_line_id);
3314: Fnd_Msg_Pub.ADD;
3315: Debug('Sales rep missing for Line_id=' ||
3316: l_order_line_id,
3317: l_mod_name,
3318: 1);
3328: Fnd_Message.SET_NAME('CSD',
3329: 'CSD_API_SHIP_FROM_ORG_MISSING');
3330: Fnd_Message.SET_TOKEN('ORDER_LINE_ID',
3331: l_order_line_id);
3332: Fnd_Msg_Pub.ADD;
3333: Debug('Ship from Org Id missing for Line_id=' ||
3334: l_order_line_id,
3335: l_mod_name,
3336: 1);
3342: Fnd_Message.SET_NAME('CSD',
3343: 'CSD_API_PRICE_MISSING');
3344: Fnd_Message.SET_TOKEN('ORDER_LINE_ID',
3345: l_order_line_id);
3346: Fnd_Msg_Pub.ADD;
3347: Debug('Unit Selling price missing for Line_id=' ||
3348: l_order_line_id,
3349: l_mod_name,
3350: 1);
3404: else
3405: FND_MESSAGE.SET_NAME('CSD','CSD_ERR_PROJECT_UPDATE');
3406: FND_MESSAGE.SET_TOKEN('project_id',x_product_txn_rec.project_id);
3407: FND_MESSAGE.SET_TOKEN('ship_from_org_id',l_ship_from_org_id);
3408: FND_MSG_PUB.ADD;
3409: RAISE BOOK_ORDER;
3410: end if;
3411: end if;
3412: end if;
3435: );
3436:
3437: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3438: FND_MESSAGE.SET_NAME('CSD','CSD_ERR_OM_PROCESS_LINE');
3439: FND_MSG_PUB.ADD;
3440: RAISE BOOK_ORDER;
3441: END IF;
3442: end if; -- order line is not null
3443: end if;
3472: -- WHERE product_transaction_id = x_product_txn_rec.PRODUCT_TRANSACTION_ID;
3473: -- IF SQL%NOTFOUND then
3474: -- FND_MESSAGE.SET_NAME('CSD','CSD_ERR_PRD_TXN_UPDATE');
3475: -- FND_MESSAGE.SET_TOKEN('PRODUCT_TRANSACTION_ID',x_product_txn_rec.PRODUCT_TRANSACTION_ID);
3476: -- FND_MSG_PUB.ADD;
3477: -- RAISE BOOK_ORDER;
3478: -- END IF;
3479:
3480: -- Fix for bug#4020651
3491: Fnd_Message.SET_NAME('CSD',
3492: 'CSD_ERR_REPAIRS_UPDATE');
3493: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
3494: x_product_txn_rec.repair_line_id);
3495: Fnd_Msg_Pub.ADD;
3496: RAISE BOOK_ORDER;
3497: END IF;
3498:
3499: EXCEPTION
3538: Fnd_Message.SET_NAME('CSD',
3539: 'CSD_API_SUB_INV_MISSING');
3540: Fnd_Message.SET_TOKEN('SUB_INVENTORY',
3541: x_product_txn_rec.sub_inventory);
3542: Fnd_Msg_Pub.ADD;
3543: Debug(x_product_txn_rec.sub_inventory ||
3544: ':Subinventory does not exist',
3545: l_mod_name,
3546: 1);
3602: CSD_LOGISTICS_UTIL.Reserve_serial_number(l_serial_rsv_rec, x_return_status);
3603:
3604: if(x_return_status = FND_API.G_RET_STS_ERROR) THEN
3605: Fnd_Message.SET_NAME('CSD', 'CSD_SRL_RESERVE_FAILED');
3606: Fnd_Msg_Pub.ADD;
3607: RAISE RELEASE_ORDER;
3608: END IF;
3609:
3610: END IF;
3639: Fnd_Message.SET_NAME('CSD',
3640: 'CSD_API_INV_PICKING_RULE_ID');
3641: Fnd_Message.SET_TOKEN('PICKING_RULE_ID',
3642: l_picking_rule_id);
3643: Fnd_Msg_Pub.ADD;
3644: Debug(l_picking_rule_id ||
3645: ':Picking Rule does not exist ',
3646: l_mod_name,
3647: 1);
3730: Fnd_Message.SET_NAME('CSD',
3731: 'CSD_ERR_PRD_TXN_UPDATE');
3732: Fnd_Message.SET_TOKEN('PRODUCT_TRANSACTION_ID',
3733: x_product_txn_rec.PRODUCT_TRANSACTION_ID);
3734: Fnd_Msg_Pub.ADD;
3735: RAISE RELEASE_ORDER;
3736: END IF;
3737: END IF;
3738:
3745: Fnd_Message.SET_NAME('CSD',
3746: 'CSD_ERR_REPAIRS_UPDATE');
3747: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
3748: x_product_txn_rec.repair_line_id);
3749: Fnd_Msg_Pub.ADD;
3750: RAISE RELEASE_ORDER;
3751: END IF;
3752:
3753: ELSIF l_release_status IN ('S', 'B')
3765: Fnd_Message.SET_NAME('CSD',
3766: 'CSD_ERR_PRD_TXN_UPDATE');
3767: Fnd_Message.SET_TOKEN('PRODUCT_TRANSACTION_ID',
3768: x_product_txn_rec.PRODUCT_TRANSACTION_ID);
3769: Fnd_Msg_Pub.ADD;
3770: RAISE RELEASE_ORDER;
3771: END IF;
3772: END IF;
3773:
3780: Fnd_Message.SET_NAME('CSD',
3781: 'CSD_ERR_REPAIRS_UPDATE');
3782: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
3783: x_product_txn_rec.repair_line_id);
3784: Fnd_Msg_Pub.ADD;
3785: RAISE RELEASE_ORDER;
3786: END IF;
3787:
3788: END IF;
3871: Fnd_Message.SET_NAME('CSD',
3872: 'CSD_ERR_PRD_TXN_UPDATE');
3873: Fnd_Message.SET_TOKEN('PRODUCT_TRANSACTION_ID',
3874: x_product_txn_rec.PRODUCT_TRANSACTION_ID);
3875: Fnd_Msg_Pub.ADD;
3876: RAISE SHIP_ORDER;
3877: END IF;
3878: END IF;
3879:
3886: Fnd_Message.SET_NAME('CSD',
3887: 'CSD_ERR_REPAIRS_UPDATE');
3888: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
3889: x_product_txn_rec.repair_line_id);
3890: Fnd_Msg_Pub.ADD;
3891: RAISE SHIP_ORDER;
3892: END IF;
3893:
3894: END IF;
3913: COMMIT WORK;
3914: END IF;
3915:
3916: -- Standard call to get message count and IF count is get message info.
3917: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3918: p_data => x_msg_data);
3919: EXCEPTION
3920: WHEN CREATE_ORDER THEN
3921: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3937: UPDATE csd_repairs
3938: SET auto_process_rma = 'N'
3939: WHERE repair_line_id = x_product_txn_rec.repair_line_id;
3940: END IF;
3941: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3942: p_data => x_msg_data);
3943: WHEN BOOK_ORDER THEN
3944: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3945: ROLLBACK TO book_sales_order;
3959: UPDATE csd_repairs
3960: SET auto_process_rma = 'N'
3961: WHERE repair_line_id = x_product_txn_rec.repair_line_id;
3962: END IF;
3963: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3964: p_data => x_msg_data);
3965: WHEN RELEASE_ORDER THEN
3966: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3967: ROLLBACK TO release_sales_order;
3971: SET release_sales_order_flag = 'N',
3972: ship_sales_order_flag = 'N'
3973: WHERE product_transaction_id =
3974: x_product_txn_rec.PRODUCT_TRANSACTION_ID;
3975: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3976: p_data => x_msg_data);
3977: WHEN SHIP_ORDER THEN
3978: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3979: ROLLBACK TO ship_sales_order;
3982: UPDATE csd_product_transactions
3983: SET ship_sales_order_flag = 'N'
3984: WHERE product_transaction_id =
3985: x_product_txn_rec.PRODUCT_TRANSACTION_ID;
3986: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3987: p_data => x_msg_data);
3988: WHEN Fnd_Api.G_EXC_ERROR THEN
3989: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3990: ROLLBACK TO create_product_txn;
3987: p_data => x_msg_data);
3988: WHEN Fnd_Api.G_EXC_ERROR THEN
3989: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3990: ROLLBACK TO create_product_txn;
3991: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3992: p_data => x_msg_data);
3993: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3994: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3995: ROLLBACK TO create_product_txn;
3992: p_data => x_msg_data);
3993: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3994: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3995: ROLLBACK TO create_product_txn;
3996: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3997: p_data => x_msg_data);
3998: WHEN OTHERS THEN
3999: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4000: ROLLBACK TO create_product_txn;
3997: p_data => x_msg_data);
3998: WHEN OTHERS THEN
3999: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4000: ROLLBACK TO create_product_txn;
4001: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4002: THEN
4003: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4004: END IF;
4005: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3999: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4000: ROLLBACK TO create_product_txn;
4001: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4002: THEN
4003: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4004: END IF;
4005: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4006: p_data => x_msg_data);
4007: END create_product_txn;
4001: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4002: THEN
4003: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4004: END IF;
4005: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4006: p_data => x_msg_data);
4007: END create_product_txn;
4008:
4009: /*-----------------------------------------------------------------*/
4095:
4096: -- Initialize message list if p_init_msg_list is set to TRUE.
4097: IF Fnd_Api.to_Boolean(p_init_msg_list)
4098: THEN
4099: Fnd_Msg_Pub.initialize;
4100: END IF;
4101:
4102: -- Initialize API return status to success
4103: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4237: AND lookup_code = x_product_txn_rec.PROD_TXN_STATUS;
4238: EXCEPTION
4239: WHEN OTHERS THEN
4240: Fnd_Message.SET_NAME('CSD', 'CSD_ERR_PROD_TXN_STATUS');
4241: Fnd_Msg_Pub.ADD;
4242: RAISE Fnd_Api.G_EXC_ERROR;
4243: END;
4244: END IF;
4245:
4254: WHEN OTHERS THEN
4255: Fnd_Message.SET_NAME('CSD', 'CSD_API_INV_REP_LINE_ID');
4256: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
4257: x_product_txn_rec.repair_line_id);
4258: Fnd_Msg_Pub.ADD;
4259: RAISE Fnd_Api.G_EXC_ERROR;
4260: END;
4261:
4262: IF (g_debug > 0)
4306: IF (get_account_details%NOTFOUND OR l_party_id IS NULL)
4307: THEN
4308: Fnd_Message.SET_NAME('CSD', 'CSD_API_PARTY_MISSING');
4309: Fnd_Message.SET_TOKEN('INCIDENT_ID', l_incident_id);
4310: Fnd_Msg_Pub.ADD;
4311: RAISE Fnd_Api.G_EXC_ERROR;
4312: END IF;
4313: IF get_account_details%ISOPEN
4314: THEN
4357: THEN
4358: Fnd_Message.SET_NAME('CSD', 'CSD_API_LINE_TYPE_MISSING');
4359: Fnd_Message.SET_TOKEN('TXN_BILLING_TYPE_ID',
4360: x_product_txn_rec.txn_billing_type_id);
4361: Fnd_Msg_Pub.ADD;
4362: RAISE Fnd_Api.G_EXC_ERROR;
4363: END IF;
4364:
4365: -- Get the currency code from the price list if it is null or g_miss
4376: Fnd_Message.SET_NAME('CSD',
4377: 'CSD_API_INV_PRICE_LIST_ID');
4378: Fnd_Message.SET_TOKEN('PRICE_LIST_ID',
4379: x_product_txn_rec.price_list_id);
4380: Fnd_Msg_Pub.ADD;
4381: RAISE Fnd_Api.G_EXC_ERROR;
4382: WHEN TOO_MANY_ROWS THEN
4383: IF (g_debug > 0)
4384: THEN
4398: THEN
4399: Fnd_Message.SET_NAME('CSD', 'CSD_API_INV_CURR_CODE');
4400: Fnd_Message.SET_TOKEN('PRICE_LIST_ID',
4401: x_product_txn_rec.price_list_id);
4402: Fnd_Msg_Pub.ADD;
4403: RAISE Fnd_Api.G_EXC_ERROR;
4404: END IF;
4405:
4406: l_serial_flag := Csd_Process_Util.Is_item_serialized(x_product_txn_rec.inventory_item_id);
4423: THEN
4424: Fnd_Message.SET_NAME('CSD', 'CSD_API_SERIAL_NUM_MISSING');
4425: Fnd_Message.SET_TOKEN('INVENTORY_ITEM_ID',
4426: x_product_txn_rec.inventory_item_id);
4427: Fnd_Msg_Pub.ADD;
4428: IF (g_debug > 0)
4429: THEN
4430: Csd_Gen_Utility_Pvt.ADD('Serial Number missing for inventory_item_id =' ||
4431: x_product_txn_rec.inventory_item_id);
4511: THEN
4512: Fnd_Message.SET_NAME('CSD', 'CSD_ERR_REPAIRS_UPDATE');
4513: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
4514: x_product_txn_rec.repair_line_id);
4515: Fnd_Msg_Pub.ADD;
4516: RAISE Fnd_Api.G_EXC_ERROR;
4517: END IF;
4518:
4519: -- Api body ends here
4524: COMMIT WORK;
4525: END IF;
4526:
4527: -- Standard call to get message count and IF count is get message info.
4528: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4529: p_data => x_msg_data);
4530: EXCEPTION
4531: WHEN Fnd_Api.G_EXC_ERROR THEN
4532: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4530: EXCEPTION
4531: WHEN Fnd_Api.G_EXC_ERROR THEN
4532: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4533: ROLLBACK TO create_product_txn;
4534: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4535: p_data => x_msg_data);
4536: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4537: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4538: ROLLBACK TO create_product_txn;
4535: p_data => x_msg_data);
4536: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4537: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4538: ROLLBACK TO create_product_txn;
4539: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4540: p_data => x_msg_data);
4541: WHEN OTHERS THEN
4542: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4543: ROLLBACK TO create_product_txn;
4540: p_data => x_msg_data);
4541: WHEN OTHERS THEN
4542: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4543: ROLLBACK TO create_product_txn;
4544: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4545: THEN
4546: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4547: END IF;
4548: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4542: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4543: ROLLBACK TO create_product_txn;
4544: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4545: THEN
4546: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4547: END IF;
4548: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4549: p_data => x_msg_data);
4550: END create_ext_prod_txn;
4544: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4545: THEN
4546: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4547: END IF;
4548: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4549: p_data => x_msg_data);
4550: END create_ext_prod_txn;
4551:
4552: /*----------------------------------------------------------------*/
4615: -- Fix for bug#6210765
4616: -- Initialize message list if p_init_msg_list is set to TRUE.
4617: IF Fnd_Api.to_Boolean(p_init_msg_list)
4618: THEN
4619: Fnd_Msg_Pub.initialize;
4620: END IF;
4621:
4622:
4623: l_prodtxn_db_attr := Csd_Logistics_Util.get_prodtxn_db_attr(x_product_txn_rec.product_transaction_id);
4770: COMMIT WORK;
4771: END IF;
4772:
4773: -- Standard call to get message count and IF count is get message info.
4774: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4775: p_data => x_msg_data);
4776: EXCEPTION
4777: WHEN CREATE_ORDER THEN
4778: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4794: release_sales_order_flag = 'N',
4795: ship_sales_order_flag = 'N'
4796: WHERE product_transaction_id =
4797: x_product_txn_rec.PRODUCT_TRANSACTION_ID;
4798: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4799: p_data => x_msg_data);
4800: WHEN BOOK_ORDER THEN
4801: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4802: ROLLBACK TO book_sales_order;
4807: release_sales_order_flag = 'N',
4808: ship_sales_order_flag = 'N'
4809: WHERE product_transaction_id =
4810: x_product_txn_rec.PRODUCT_TRANSACTION_ID;
4811: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4812: p_data => x_msg_data);
4813: WHEN RELEASE_ORDER THEN
4814: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4815: ROLLBACK TO release_sales_order;
4819: SET release_sales_order_flag = 'N',
4820: ship_sales_order_flag = 'N'
4821: WHERE product_transaction_id =
4822: x_product_txn_rec.PRODUCT_TRANSACTION_ID;
4823: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4824: p_data => x_msg_data);
4825: WHEN SHIP_ORDER THEN
4826: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4827: ROLLBACK TO ship_sales_order;
4830: UPDATE csd_product_transactions
4831: SET ship_sales_order_flag = 'N'
4832: WHERE product_transaction_id =
4833: x_product_txn_rec.PRODUCT_TRANSACTION_ID;
4834: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4835: p_data => x_msg_data);
4836: WHEN Fnd_Api.G_EXC_ERROR THEN
4837: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4838: ROLLBACK TO UPDATE_PRODUCT_TXN_PVT;
4835: p_data => x_msg_data);
4836: WHEN Fnd_Api.G_EXC_ERROR THEN
4837: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4838: ROLLBACK TO UPDATE_PRODUCT_TXN_PVT;
4839: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4840: p_data => x_msg_data);
4841: Debug('in exc_error, x_msg_data,count[' || x_msg_data|| ','||to_char(x_msg_count)||']',
4842: l_mod_name,
4843: l_statement_level);
4842: l_mod_name,
4843: l_statement_level);
4844: IF x_msg_count > 1 THEN
4845: FOR i IN 1..x_msg_count LOOP
4846: l_msg_data := apps.FND_MSG_PUB.Get(i,FND_API.G_TRUE) ;
4847: Debug('in exc_error, l_msg_data[' || l_msg_data||']',
4848: l_mod_name,
4849: l_statement_level);
4850: END LOOP ;
4851: END IF ;
4852: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4853: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4854: ROLLBACK TO UPDATE_PRODUCT_TXN_PVT;
4855: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4856: p_data => x_msg_data);
4857: Debug('in unexp_Error, x_msg_data[' || x_msg_data||']',
4858: l_mod_name,
4859: l_statement_level);
4858: l_mod_name,
4859: l_statement_level);
4860: IF x_msg_count > 1 THEN
4861: FOR i IN 1..x_msg_count LOOP
4862: l_msg_data := apps.FND_MSG_PUB.Get(i,apps.FND_API.G_FALSE) ;
4863: Debug('in exc_error, l_msg_data[' || l_msg_data||']',
4864: l_mod_name,
4865: l_statement_level);
4866: END LOOP ;
4867: END IF ;
4868: WHEN OTHERS THEN
4869: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4870: ROLLBACK TO UPDATE_PRODUCT_TXN_PVT;
4871: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4872: THEN
4873: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4874: END IF;
4875: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4869: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4870: ROLLBACK TO UPDATE_PRODUCT_TXN_PVT;
4871: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4872: THEN
4873: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4874: END IF;
4875: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4876: p_data => x_msg_data);
4877: Debug('in others, x_msg_data[' || x_msg_data||']',
4871: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4872: THEN
4873: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4874: END IF;
4875: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
4876: p_data => x_msg_data);
4877: Debug('in others, x_msg_data[' || x_msg_data||']',
4878: l_mod_name,
4879: l_statement_level);
4878: l_mod_name,
4879: l_statement_level);
4880: IF x_msg_count > 1 THEN
4881: FOR i IN 1..x_msg_count LOOP
4882: l_msg_data := apps.FND_MSG_PUB.Get(i,apps.FND_API.G_FALSE) ;
4883: Debug('in exc_error, l_msg_data[' || l_msg_data||']',
4884: l_mod_name,
4885: l_statement_level);
4886: END LOOP ;
4927:
4928: -- Initialize message list if p_init_msg_list is set to TRUE.
4929: IF Fnd_Api.to_Boolean(p_init_msg_list)
4930: THEN
4931: Fnd_Msg_Pub.initialize;
4932: END IF;
4933:
4934: -- Initialize API return status to success
4935: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4979: WHEN NO_DATA_FOUND THEN
4980: l_delete_allow := 'N';
4981: Fnd_Message.SET_NAME('CSD', 'CSD_API_DELETE_NOT_ALLOWED');
4982: --FND_MESSAGE.SET_TOKEN('PRODUCT_TXN_ID',p_product_txn_id);
4983: Fnd_Msg_Pub.ADD;
4984: IF (g_debug > 0)
4985: THEN
4986: Csd_Gen_Utility_Pvt.ADD('Product txn is interfaced,so it cannot be deleted');
4987: END IF;
5041: COMMIT WORK;
5042: END IF;
5043:
5044: -- Standard call to get message count and IF count is get message info.
5045: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5046: p_data => x_msg_data);
5047: EXCEPTION
5048: WHEN Fnd_Api.G_EXC_ERROR THEN
5049: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5047: EXCEPTION
5048: WHEN Fnd_Api.G_EXC_ERROR THEN
5049: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5050: ROLLBACK TO delete_product_txn;
5051: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5052: p_data => x_msg_data);
5053: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5054: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5055: ROLLBACK TO delete_product_txn;
5052: p_data => x_msg_data);
5053: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5054: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5055: ROLLBACK TO delete_product_txn;
5056: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5057: p_data => x_msg_data);
5058: WHEN OTHERS THEN
5059: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5060: ROLLBACK TO delete_product_txn;
5057: p_data => x_msg_data);
5058: WHEN OTHERS THEN
5059: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5060: ROLLBACK TO delete_product_txn;
5061: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5062: THEN
5063: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5064: END IF;
5065: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5059: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5060: ROLLBACK TO delete_product_txn;
5061: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5062: THEN
5063: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5064: END IF;
5065: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5066: p_data => x_msg_data);
5067: END delete_product_txn;
5061: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5062: THEN
5063: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5064: END IF;
5065: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5066: p_data => x_msg_data);
5067: END delete_product_txn;
5068:
5069: /*--------------------------------------------------*/
5113:
5114: -- Initialize message list if p_init_msg_list is set to TRUE.
5115: IF Fnd_Api.to_Boolean(p_init_msg_list)
5116: THEN
5117: Fnd_Msg_Pub.initialize;
5118: END IF;
5119:
5120: -- Initialize API return status to success
5121: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5198: END IF;
5199: -- Log the message after processing
5200: -- each prod txn
5201: FOR i in 1..x_msg_Count LOOP
5202: FND_MSG_PUB.Get
5203: (p_msg_index => i,
5204: p_encoded => 'F',
5205: p_data => x_msg_data,
5206: p_msg_index_out => x_msg_index_out );
5259: END IF;
5260: -- Log the message after processing
5261: -- each prod txn
5262: FOR i in 1..x_msg_Count LOOP
5263: FND_MSG_PUB.Get
5264: (p_msg_index => i,
5265: p_encoded => 'F',
5266: p_data => x_msg_data,
5267: p_msg_index_out => x_msg_index_out );
5277: IF l_msg_text IS NOT NULL
5278: THEN
5279: Fnd_Message.SET_NAME('CSD', 'CSD_API_OM_ERR_MSG');
5280: Fnd_Message.SET_TOKEN('MSG_DATA', l_msg_text);
5281: Fnd_Msg_Pub.ADD;
5282: END IF;
5283:
5284: -- Standard check of p_commit.
5285: IF Fnd_Api.To_Boolean(p_commit)
5287: COMMIT WORK;
5288: END IF;
5289:
5290: -- Standard call to get message count and IF count is get message info.
5291: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5292: p_data => x_msg_data);
5293:
5294: EXCEPTION
5295: WHEN Fnd_Api.G_EXC_ERROR THEN
5294: EXCEPTION
5295: WHEN Fnd_Api.G_EXC_ERROR THEN
5296: ROLLBACK TO create_default_prod_txn;
5297: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5298: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5299: p_data => x_msg_data);
5300: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5302: ROLLBACK TO create_default_prod_txn;
5299: p_data => x_msg_data);
5300: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5302: ROLLBACK TO create_default_prod_txn;
5303: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5304: p_data => x_msg_data);
5305: WHEN OTHERS THEN
5306: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5307: ROLLBACK TO create_default_prod_txn;
5304: p_data => x_msg_data);
5305: WHEN OTHERS THEN
5306: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5307: ROLLBACK TO create_default_prod_txn;
5308: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5309: THEN
5310: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5311: END IF;
5312: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5306: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5307: ROLLBACK TO create_default_prod_txn;
5308: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5309: THEN
5310: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5311: END IF;
5312: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5313: p_data => x_msg_data);
5314: END create_default_prod_txn;
5308: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5309: THEN
5310: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5311: END IF;
5312: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5313: p_data => x_msg_data);
5314: END create_default_prod_txn;
5315:
5316: --------------------- travi changes---------------
5462: END IF;
5463: -- Initialize message list if p_init_msg_list is set to TRUE.
5464: IF Fnd_Api.to_Boolean(p_init_msg_list)
5465: THEN
5466: Fnd_Msg_Pub.initialize;
5467: END IF;
5468: -- Initialize API return status to success
5469: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5470: -- ---------------
5552: THEN
5553: COMMIT WORK;
5554: END IF;
5555: -- Standard call to get message count and IF count is get message info.
5556: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5557: p_data => x_msg_data);
5558: EXCEPTION
5559: WHEN Fnd_Api.G_EXC_ERROR THEN
5560: ROLLBACK TO create_task;
5558: EXCEPTION
5559: WHEN Fnd_Api.G_EXC_ERROR THEN
5560: ROLLBACK TO create_task;
5561: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5562: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5563: p_data => x_msg_data);
5564: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5565: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5566: ROLLBACK TO create_task;
5563: p_data => x_msg_data);
5564: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5565: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5566: ROLLBACK TO create_task;
5567: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5568: p_data => x_msg_data);
5569: WHEN OTHERS THEN
5570: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5571: ROLLBACK TO create_task;
5568: p_data => x_msg_data);
5569: WHEN OTHERS THEN
5570: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5571: ROLLBACK TO create_task;
5572: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5573: THEN
5574: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5575: END IF;
5576: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5570: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5571: ROLLBACK TO create_task;
5572: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5573: THEN
5574: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5575: END IF;
5576: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5577: p_data => x_msg_data);
5578: END create_task;
5572: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5573: THEN
5574: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5575: END IF;
5576: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5577: p_data => x_msg_data);
5578: END create_task;
5579:
5580: /*-----------------------------------------------------------------------------------------------------------*/
5631: END IF;
5632: -- Initialize message list if p_init_msg_list is set to TRUE.
5633: IF Fnd_Api.to_Boolean(p_init_msg_list)
5634: THEN
5635: Fnd_Msg_Pub.initialize;
5636: END IF;
5637: -- Initialize API return status to success
5638: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5639: -- ---------------
5722: THEN
5723: COMMIT WORK;
5724: END IF;
5725: -- Standard call to get message count and IF count is get message info.
5726: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5727: p_data => x_msg_data);
5728: EXCEPTION
5729: WHEN Fnd_Api.G_EXC_ERROR THEN
5730: ROLLBACK TO update_task;
5728: EXCEPTION
5729: WHEN Fnd_Api.G_EXC_ERROR THEN
5730: ROLLBACK TO update_task;
5731: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5732: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5733: p_data => x_msg_data);
5734: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5735: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5736: ROLLBACK TO update_task;
5733: p_data => x_msg_data);
5734: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5735: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5736: ROLLBACK TO update_task;
5737: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5738: p_data => x_msg_data);
5739: WHEN OTHERS THEN
5740: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5741: ROLLBACK TO update_task;
5738: p_data => x_msg_data);
5739: WHEN OTHERS THEN
5740: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5741: ROLLBACK TO update_task;
5742: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5743: THEN
5744: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5745: END IF;
5746: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5740: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5741: ROLLBACK TO update_task;
5742: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5743: THEN
5744: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5745: END IF;
5746: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5747: p_data => x_msg_data);
5748: END update_task;
5742: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5743: THEN
5744: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5745: END IF;
5746: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5747: p_data => x_msg_data);
5748: END update_task;
5749: FUNCTION GET_ADDRESS_REC_TYPE RETURN Csd_Process_Pvt.ADDRESS_REC_TYPE IS
5750: TMP_ADDRESS_REC_TYPE Csd_Process_Pvt.ADDRESS_REC_TYPE;
5997: END IF;
5998: -- Initialize message list if p_init_msg_list is set to TRUE.
5999: IF Fnd_Api.to_Boolean(p_init_msg_list)
6000: THEN
6001: Fnd_Msg_Pub.initialize;
6002: END IF;
6003: -- Initialize API return status to success
6004: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6005: -- ---------------
6100: COMMIT WORK;
6101: END IF;
6102:
6103: -- Standard call to get message count and IF count is get message info.
6104: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6105: p_data => x_msg_data);
6106: END IF;
6107: EXCEPTION
6108: WHEN Fnd_Api.G_EXC_ERROR THEN
6107: EXCEPTION
6108: WHEN Fnd_Api.G_EXC_ERROR THEN
6109: ROLLBACK TO Create_repair_task_hist;
6110: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6111: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6112: p_data => x_msg_data);
6113: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6114: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6115: ROLLBACK TO Create_repair_task_hist;
6112: p_data => x_msg_data);
6113: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6114: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6115: ROLLBACK TO Create_repair_task_hist;
6116: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6117: p_data => x_msg_data);
6118: WHEN OTHERS THEN
6119: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6120: ROLLBACK TO Create_repair_task_hist;
6117: p_data => x_msg_data);
6118: WHEN OTHERS THEN
6119: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6120: ROLLBACK TO Create_repair_task_hist;
6121: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6122: THEN
6123: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6124: END IF;
6125: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6119: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6120: ROLLBACK TO Create_repair_task_hist;
6121: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6122: THEN
6123: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6124: END IF;
6125: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6126: p_data => x_msg_data);
6127: END Create_repair_task_hist;
6121: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6122: THEN
6123: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6124: END IF;
6125: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6126: p_data => x_msg_data);
6127: END Create_repair_task_hist;
6128:
6129: /*-----------------------------------------------------------------------------------------------------------*/
6315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6316: END IF;
6317: -- Initialize message list if p_init_msg_list is set to TRUE.
6318: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6319: FND_MSG_PUB.initialize;
6320: END IF;
6321: -- Initialize API return status to success
6322: x_return_status := FND_API.G_RET_STS_SUCCESS;
6323: -- ---------------
6416: IF FND_API.To_Boolean( p_commit ) THEN
6417: COMMIT WORK;
6418: END IF;
6419: -- Standard call to get message count and IF count is get message info.
6420: FND_MSG_PUB.Count_And_Get
6421: (p_count => x_msg_count,
6422: p_data => x_msg_data );
6423: END IF;
6424: -- ---------------------------------------------------------
6425: EXCEPTION
6426: WHEN FND_API.G_EXC_ERROR THEN
6427: ROLLBACK TO Update_repair_task_hist;
6428: x_return_status := FND_API.G_RET_STS_ERROR ;
6429: FND_MSG_PUB.Count_And_Get
6430: (p_count => x_msg_count,
6431: p_data => x_msg_data
6432: );
6433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6432: );
6433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6435: ROLLBACK TO Update_repair_task_hist;
6436: FND_MSG_PUB.Count_And_Get
6437: ( p_count => x_msg_count,
6438: p_data => x_msg_data
6439: );
6440: WHEN OTHERS THEN
6439: );
6440: WHEN OTHERS THEN
6441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6442: ROLLBACK TO Update_repair_task_hist;
6443: IF FND_MSG_PUB.Check_Msg_Level
6444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6445: THEN
6446: FND_MSG_PUB.Add_Exc_Msg
6447: (G_PKG_NAME ,
6440: WHEN OTHERS THEN
6441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6442: ROLLBACK TO Update_repair_task_hist;
6443: IF FND_MSG_PUB.Check_Msg_Level
6444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6445: THEN
6446: FND_MSG_PUB.Add_Exc_Msg
6447: (G_PKG_NAME ,
6448: l_api_name );
6442: ROLLBACK TO Update_repair_task_hist;
6443: IF FND_MSG_PUB.Check_Msg_Level
6444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6445: THEN
6446: FND_MSG_PUB.Add_Exc_Msg
6447: (G_PKG_NAME ,
6448: l_api_name );
6449: END IF;
6450: FND_MSG_PUB.Count_And_Get
6446: FND_MSG_PUB.Add_Exc_Msg
6447: (G_PKG_NAME ,
6448: l_api_name );
6449: END IF;
6450: FND_MSG_PUB.Count_And_Get
6451: (p_count => x_msg_count,
6452: p_data => x_msg_data );
6453: END Update_repair_task_hist;
6454: */
6602: END IF;
6603: -- Initialize message list if p_init_msg_list is set to TRUE.
6604: IF Fnd_Api.to_Boolean(p_init_msg_list)
6605: THEN
6606: Fnd_Msg_Pub.initialize;
6607: END IF;
6608: -- Initialize API return status to success
6609: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6610: -- ---------------
6705: COMMIT WORK;
6706: END IF;
6707:
6708: -- Standard call to get message count and IF count is get message info.
6709: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6710: p_data => x_msg_data);
6711: END IF;
6712: EXCEPTION
6713: WHEN Fnd_Api.G_EXC_ERROR THEN
6712: EXCEPTION
6713: WHEN Fnd_Api.G_EXC_ERROR THEN
6714: ROLLBACK TO Create_repair_task_hist;
6715: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6716: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6717: p_data => x_msg_data);
6718: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6719: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6720: ROLLBACK TO Create_repair_task_hist;
6717: p_data => x_msg_data);
6718: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6719: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6720: ROLLBACK TO Create_repair_task_hist;
6721: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6722: p_data => x_msg_data);
6723: WHEN OTHERS THEN
6724: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6725: ROLLBACK TO Create_repair_task_hist;
6722: p_data => x_msg_data);
6723: WHEN OTHERS THEN
6724: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6725: ROLLBACK TO Create_repair_task_hist;
6726: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6727: THEN
6728: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6729: END IF;
6730: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6724: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6725: ROLLBACK TO Create_repair_task_hist;
6726: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6727: THEN
6728: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6729: END IF;
6730: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6731: p_data => x_msg_data);
6732: END Create_repair_task_hist;
6726: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6727: THEN
6728: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6729: END IF;
6730: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6731: p_data => x_msg_data);
6732: END Create_repair_task_hist;
6733:
6734: /*-----------------------------------------------------------------------------------------------------------*/
6836: END IF;
6837: -- Initialize message list if p_init_msg_list is set to TRUE.
6838: IF Fnd_Api.to_Boolean(p_init_msg_list)
6839: THEN
6840: Fnd_Msg_Pub.initialize;
6841: END IF;
6842: -- Initialize API return status to success
6843: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6844: -- ---------------
7124: THEN
7125: COMMIT WORK;
7126: END IF;
7127: -- Standard call to get message count and IF count is get message info.
7128: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7129: p_data => x_msg_data);
7130: --END IF;
7131: -- ---------------------------------------------------------
7132: EXCEPTION
7132: EXCEPTION
7133: WHEN Fnd_Api.G_EXC_ERROR THEN
7134: ROLLBACK TO Update_repair_task_hist;
7135: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7136: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7137: p_data => x_msg_data);
7138: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7139: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7140: ROLLBACK TO Update_repair_task_hist;
7137: p_data => x_msg_data);
7138: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7139: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7140: ROLLBACK TO Update_repair_task_hist;
7141: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7142: p_data => x_msg_data);
7143: WHEN OTHERS THEN
7144: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7145: ROLLBACK TO Update_repair_task_hist;
7142: p_data => x_msg_data);
7143: WHEN OTHERS THEN
7144: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7145: ROLLBACK TO Update_repair_task_hist;
7146: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7147: THEN
7148: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7149: END IF;
7150: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7144: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7145: ROLLBACK TO Update_repair_task_hist;
7146: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7147: THEN
7148: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7149: END IF;
7150: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7151: p_data => x_msg_data);
7152: END Update_repair_task_hist;
7146: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7147: THEN
7148: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7149: END IF;
7150: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7151: p_data => x_msg_data);
7152: END Update_repair_task_hist;
7153:
7154: /*----------------------------------------------------------------*/
7225: -- Initialize message list if p_init_msg_list is set to TRUE.
7226: ------------------------------------------------------------
7227: IF Fnd_Api.to_Boolean(p_init_msg_list)
7228: THEN
7229: Fnd_Msg_Pub.initialize;
7230: END IF;
7231:
7232: ---------------------------------------------
7233: -- Initialize API return status to success
7327: Fnd_Message.SET_NAME('CSD',
7328: 'CSD_API_RO_STAT_UPD_FAIL');
7329: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
7330: ro.repair_line_id);
7331: Fnd_Msg_Pub.ADD;
7332: RAISE Fnd_Api.G_EXC_ERROR;
7333: END IF;
7334:
7335: END LOOP;
7369: Fnd_Message.SET_NAME('CSD',
7370: 'CSD_API_GRP_STAT_UPD_FAIL');
7371: Fnd_Message.SET_TOKEN('REPAIR_GROUP_ID',
7372: grp.repair_group_id);
7373: Fnd_Msg_Pub.ADD;
7374: RAISE Fnd_Api.G_EXC_ERROR;
7375: END IF;
7376:
7377: END IF;
7421: Fnd_Message.SET_NAME('CSD',
7422: 'CSD_API_RO_STAT_UPD_FAIL');
7423: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
7424: ro.repair_line_id);
7425: Fnd_Msg_Pub.ADD;
7426: RAISE Fnd_Api.G_EXC_ERROR;
7427: END IF;
7428:
7429: END LOOP;
7464: Fnd_Message.SET_NAME('CSD',
7465: 'CSD_API_GRP_STAT_UPD_FAIL');
7466: Fnd_Message.SET_TOKEN('REPAIR_GROUP_ID',
7467: grp.repair_group_id);
7468: Fnd_Msg_Pub.ADD;
7469: RAISE Fnd_Api.G_EXC_ERROR;
7470: END IF;
7471:
7472: END IF; -- grp_txn_status
7578: THEN
7579: Fnd_Message.SET_NAME('CSD',
7580: 'CSD_API_SR_STAT_UPD_FAIL');
7581: Fnd_Message.SET_TOKEN('INCIDENT_ID', p_incident_id);
7582: Fnd_Msg_Pub.ADD;
7583: RAISE Fnd_Api.G_EXC_ERROR;
7584: END IF;
7585:
7586: END IF;
7637: IF (l_return_status <> 'S')
7638: THEN
7639: Fnd_Message.SET_NAME('CSD', 'CSD_API_RO_STAT_UPD_FAIL');
7640: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID', p_repair_line_id);
7641: Fnd_Msg_Pub.ADD;
7642: RAISE Fnd_Api.G_EXC_ERROR;
7643: END IF;
7644:
7645: BEGIN
7702: Fnd_Message.SET_NAME('CSD',
7703: 'CSD_API_GRP_STAT_UPD_FAIL');
7704: Fnd_Message.SET_TOKEN('REPAIR_GROUP_ID',
7705: l_repair_group_id);
7706: Fnd_Msg_Pub.ADD;
7707: RAISE Fnd_Api.G_EXC_ERROR;
7708: END IF;
7709:
7710: END IF;
7814: THEN
7815: Fnd_Message.SET_NAME('CSD',
7816: 'CSD_API_SR_STAT_UPD_FAIL');
7817: Fnd_Message.SET_TOKEN('INCIDENT_ID', l_incident_id);
7818: Fnd_Msg_Pub.ADD;
7819: --Bug fix for 3555256 Begin
7820: --RAISE FND_API.G_EXC_ERROR;
7821: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7822: p_data => x_msg_data);
7817: Fnd_Message.SET_TOKEN('INCIDENT_ID', l_incident_id);
7818: Fnd_Msg_Pub.ADD;
7819: --Bug fix for 3555256 Begin
7820: --RAISE FND_API.G_EXC_ERROR;
7821: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7822: p_data => x_msg_data);
7823: --Bug fix for 3555256 End
7824:
7825: END IF;
7831: EXCEPTION
7832: WHEN Fnd_Api.G_EXC_ERROR THEN
7833: ROLLBACK TO Close_Status;
7834: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7835: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7836: p_data => x_msg_data);
7837: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7838: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7839: ROLLBACK TO status_close;
7836: p_data => x_msg_data);
7837: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7838: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7839: ROLLBACK TO status_close;
7840: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7841: p_data => x_msg_data);
7842: WHEN OTHERS THEN
7843: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7844: ROLLBACK TO status_close;
7841: p_data => x_msg_data);
7842: WHEN OTHERS THEN
7843: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7844: ROLLBACK TO status_close;
7845: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7846: THEN
7847: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7848: END IF;
7849: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7843: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7844: ROLLBACK TO status_close;
7845: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7846: THEN
7847: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7848: END IF;
7849: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7850: p_data => x_msg_data);
7851: END Close_Status;
7845: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7846: THEN
7847: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7848: END IF;
7849: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7850: p_data => x_msg_data);
7851: END Close_Status;
7852:
7853: /*---------------------------------------------------------------*/
7964:
7965: EXCEPTION
7966: WHEN OTHERS THEN
7967: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7968: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7969: THEN
7970: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7971: END IF;
7972: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7966: WHEN OTHERS THEN
7967: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7968: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7969: THEN
7970: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7971: END IF;
7972: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7973: p_data => x_msg_data);
7974:
7968: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7969: THEN
7970: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7971: END IF;
7972: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7973: p_data => x_msg_data);
7974:
7975: END Check_Service_Request;
7976:
8177:
8178: -- initialize message list if p_init_msg_list is set to true.
8179: IF Fnd_Api.to_boolean(p_init_msg_list)
8180: THEN
8181: Fnd_Msg_Pub.initialize;
8182: END IF;
8183:
8184: -- initialize api return status to success
8185: x_return_status := Fnd_Api.g_ret_sts_success;
8341: '.check_in_parameters',
8342: 'Product txn status is invalid : ' ||
8343: x_product_txn_rec.prod_txn_status);
8344: END IF;
8345: Fnd_Msg_Pub.ADD;
8346: RAISE Fnd_Api.g_exc_error;
8347: END;
8348: END IF;
8349:
8423: WHEN NO_DATA_FOUND THEN
8424: Fnd_Message.set_name('CSD', 'CSD_API_INV_REP_LINE_ID');
8425: Fnd_Message.set_token('REPAIR_LINE_ID',
8426: l_repair_line_id);
8427: Fnd_Msg_Pub.ADD;
8428: IF l_statement_level >= l_debug_level
8429: THEN
8430: Fnd_Log.string(l_statement_level,
8431: l_module_name ||
8443: CLOSE sr_rec;
8444: ELSE
8445: Fnd_Message.set_name('CSD', 'CSD_API_INV_SR_ID');
8446: Fnd_Message.set_token('INCIDENT_ID', l_incident_id);
8447: Fnd_Msg_Pub.ADD;
8448: IF (g_debug > 0)
8449: THEN
8450: Csd_Gen_Utility_Pvt.ADD('incident id missing ');
8451: END IF;
8518: Fnd_Message.set_name('CSD',
8519: 'CSD_API_INV_PICKING_RULE_ID');
8520: Fnd_Message.set_token('PICKING_RULE_ID',
8521: l_picking_rule_id);
8522: Fnd_Msg_Pub.ADD;
8523: IF l_exception_level >= l_debug_level
8524: THEN
8525: Fnd_Log.string(l_exception_level,
8526: l_module_name,
8682: where repair_line_id = x_product_txn_rec.repair_line_id;
8683: if sql%notfound then
8684: fnd_message.set_name('CSD','CSD_ERR_REPAIRS_UPDATE');
8685: fnd_message.set_token('REPAIR_LINE_ID',x_product_txn_rec.repair_line_id);
8686: fnd_msg_pub.add;
8687: raise release_order_excep;
8688: end if;
8689: ********************************/
8690: ELSE
8743: Fnd_Message.set_name('CSD',
8744: 'CSD_ORDER_LINE_NOT_SHIPABLE');
8745: Fnd_Message.set_token('ORDER_LINE_ID',
8746: l_order_rec.order_line_id);
8747: Fnd_Msg_Pub.ADD;
8748: IF l_statement_level >= l_debug_level
8749: THEN
8750: Fnd_Log.string(l_statement_level,
8751: l_module_name,
8758: Fnd_Message.set_name('CSD',
8759: 'CSD_TOO_MANY_ROWS_SHIPABLE');
8760: Fnd_Message.set_token('ORDER_LINE_ID',
8761: l_order_rec.order_line_id);
8762: Fnd_Msg_Pub.ADD;
8763: IF l_statement_level >= l_debug_level
8764: THEN
8765: Fnd_Log.string(l_statement_level,
8766: l_module_name,
8872: Where repair_line_id = x_product_txn_rec.repair_line_id;
8873: If sql%notfound then
8874: fnd_message.set_name('CSD','CSD_ERR_REPAIRS_UPDATE');
8875: fnd_message.set_token('REPAIR_LINE_ID',x_product_txn_rec.repair_line_id);
8876: fnd_msg_pub.add;
8877: Raise release_order_excep;
8878: End if;
8879: *****************/
8880: ELSE
8911: -- If there is any error then rollback
8912: ROLLBACK TO release_sales_order;
8913: -- Standard procedure to get error message count and error message is also returned
8914: -- if error message count is 1
8915: Fnd_Msg_Pub.count_and_get(p_count => x_msg_count,
8916: p_data => x_msg_data);
8917: WHEN ship_order_excep THEN
8918: -- Set return status to unexpected error
8919: x_return_status := Fnd_Api.g_ret_sts_success;
8920: -- If there is any error then rollback
8921: ROLLBACK TO ship_sales_order;
8922: -- Standard procedure to get error message count and error message is also returned
8923: -- if error message count is 1
8924: Fnd_Msg_Pub.count_and_get(p_count => x_msg_count,
8925: p_data => x_msg_data);
8926: WHEN Fnd_Api.g_exc_error THEN
8927: -- Set return status to unexpected error
8928: x_return_status := Fnd_Api.g_ret_sts_error;
8929: -- If there is any error then rollback
8930: ROLLBACK TO update_iro_product_txn;
8931: -- Standard procedure to get error message count and error message is also returned
8932: -- if error message count is 1
8933: Fnd_Msg_Pub.count_and_get(p_count => x_msg_count,
8934: p_data => x_msg_data);
8935: WHEN Fnd_Api.g_exc_unexpected_error THEN
8936: -- Set return status to unexpected error
8937: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
8938: -- If there is any error then rollback
8939: ROLLBACK TO update_iro_product_txn;
8940: -- Standard procedure to get error message count and error message is also returned
8941: -- if error message count is 1
8942: Fnd_Msg_Pub.count_and_get(p_count => x_msg_count,
8943: p_data => x_msg_data);
8944: WHEN OTHERS THEN
8945: -- Set return status to unexpected error
8946: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
8945: -- Set return status to unexpected error
8946: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
8947: -- If there is any error then rollback
8948: ROLLBACK TO update_iro_product_txn;
8949: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8950: THEN
8951: -- Standard way to add sql error message to stack
8952: Fnd_Msg_Pub.add_exc_msg(g_pkg_name, l_api_name);
8953: END IF;
8948: ROLLBACK TO update_iro_product_txn;
8949: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8950: THEN
8951: -- Standard way to add sql error message to stack
8952: Fnd_Msg_Pub.add_exc_msg(g_pkg_name, l_api_name);
8953: END IF;
8954: -- Standard procedure to get error message count and error message is also returned
8955: -- if error message count is 1
8956: Fnd_Msg_Pub.count_and_get(p_count => x_msg_count,
8952: Fnd_Msg_Pub.add_exc_msg(g_pkg_name, l_api_name);
8953: END IF;
8954: -- Standard procedure to get error message count and error message is also returned
8955: -- if error message count is 1
8956: Fnd_Msg_Pub.count_and_get(p_count => x_msg_count,
8957: p_data => x_msg_data);
8958: END update_iro_product_txn;
8959:
8960:
9019:
9020: -- Initialize message list if p_init_msg_list is set to TRUE.
9021: IF Fnd_Api.to_Boolean(p_init_msg_list)
9022: THEN
9023: Fnd_Msg_Pub.initialize;
9024: END IF;
9025:
9026: -- Initialize API return status to success
9027: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
9079: Fnd_Message.SET_NAME('CSD',
9080: 'CSD_RO_NOT_OPEN_NO_PRODTXN_LNS');
9081: Fnd_Message.SET_TOKEN('RO_NUMBER', l_RO_Number);
9082: Fnd_Message.SET_TOKEN('RO_STATUS', l_RO_Status_Meaning);
9083: Fnd_Msg_Pub.ADD;
9084: RAISE Fnd_Api.G_EXC_ERROR;
9085: END IF;
9086: -- Check if repair Type Ref is Standard
9087: IF l_RO_Repair_Type_Ref = C_Repair_TYpe_Ref_Standard
9090: -- CSD_STD_REP_TYPE_NO_PRODUCTXN_LINES
9091: Fnd_Message.SET_NAME('CSD',
9092: 'CSD_STD_REPTYPE_NO_PRODTXN_LNS');
9093: Fnd_Message.SET_TOKEN('RO_NUMBER', l_RO_Number);
9094: Fnd_Msg_Pub.ADD;
9095: RAISE Fnd_Api.G_EXC_ERROR;
9096: END IF;
9097: -- Check Serial control code if quantity is greater then 1
9098: IF l_RO_Quantity > 1
9110: -- CSD_RO_QTY_MORE_FOR_SERIAL_ITEM
9111: -- Raise G_Exc_Error,
9112: Fnd_Message.SET_NAME('CSD',
9113: 'CSD_RO_QTY_MORE_FOR_SRLCT_ITEM');
9114: Fnd_Msg_Pub.ADD;
9115: RAISE Fnd_Api.G_EXC_ERROR;
9116: END IF;
9117: EXCEPTION
9118: WHEN NO_DATA_FOUND THEN
9135: 'CSD_NO_ITEM_FOR_SRV_VALDN_ORG');
9136: Fnd_Message.Set_Token('ITEM', l_Item_Name);
9137: Fnd_Message.Set_Token('ORG_NAME',
9138: l_Service_Valdn_Org_Name);
9139: Fnd_Msg_Pub.ADD;
9140: RAISE Fnd_Api.G_EXC_ERROR;
9141:
9142: END;
9143: END IF;
9155: -- RAise G_Exc_Error
9156: Fnd_Message.SET_NAME('CSD',
9157: 'CSD_RO_HAS_PRODUCT_TXN_LINES');
9158: Fnd_Message.SET_TOKEN('RO_NUMBER', l_RO_Number);
9159: Fnd_Msg_Pub.ADD;
9160: RAISE Fnd_Api.G_EXC_ERROR;
9161: END IF;
9162: END;
9163: EXCEPTION
9165: -- Message Code CSD_REPAIR_LINE_ID_INVALID
9166: -- Display message; Invalid repair line id is passed
9167: Fnd_Message.SET_NAME('CSD', 'CSD_API_INV_REP_LINE_ID');
9168: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID', P_Repair_Line_ID);
9169: Fnd_Msg_Pub.ADD;
9170: RAISE Fnd_Api.G_EXC_ERROR;
9171: END;
9172: -- Now call Default Product Txn lines API
9173:
9200:
9201: EXCEPTION
9202: WHEN Fnd_Api.G_EXC_ERROR THEN
9203: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9204: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9205: p_data => x_msg_data);
9206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
9207: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9208: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9204: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9205: p_data => x_msg_data);
9206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
9207: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9208: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9209: p_data => x_msg_data);
9210: WHEN OTHERS THEN
9211: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9212: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9208: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9209: p_data => x_msg_data);
9210: WHEN OTHERS THEN
9211: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9212: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9213: THEN
9214: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9215: END IF;
9216: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9210: WHEN OTHERS THEN
9211: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9212: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9213: THEN
9214: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9215: END IF;
9216: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9217: p_data => x_msg_data);
9218: END Create_Default_Prod_Txn_Wrapr;
9212: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9213: THEN
9214: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9215: END IF;
9216: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9217: p_data => x_msg_data);
9218: END Create_Default_Prod_Txn_Wrapr;
9219:
9220: /*-----------------------------------------------------------------------------------------------------------*/
9318:
9319: -- Initialize message list if p_init_msg_list is set to TRUE.
9320: IF Fnd_Api.to_Boolean(p_init_msg_list)
9321: THEN
9322: Fnd_Msg_Pub.initialize;
9323: END IF;
9324: -- Initialize API return status to success
9325: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
9326: -- ---------------
9402: THEN
9403: COMMIT WORK;
9404: END IF;
9405: -- Standard call to get message count and IF count is get message info.
9406: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9407: p_data => x_msg_data);
9408: EXCEPTION
9409: WHEN Fnd_Api.G_EXC_ERROR THEN
9410: ROLLBACK TO create_task;
9408: EXCEPTION
9409: WHEN Fnd_Api.G_EXC_ERROR THEN
9410: ROLLBACK TO create_task;
9411: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9412: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9413: p_data => x_msg_data);
9414: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
9415: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9416: ROLLBACK TO create_task;
9413: p_data => x_msg_data);
9414: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
9415: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9416: ROLLBACK TO create_task;
9417: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9418: p_data => x_msg_data);
9419: WHEN OTHERS THEN
9420: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9421: ROLLBACK TO create_task;
9418: p_data => x_msg_data);
9419: WHEN OTHERS THEN
9420: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9421: ROLLBACK TO create_task;
9422: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9423: THEN
9424: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9425: END IF;
9426: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9420: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9421: ROLLBACK TO create_task;
9422: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9423: THEN
9424: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9425: END IF;
9426: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9427: p_data => x_msg_data);
9428:
9422: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9423: THEN
9424: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9425: END IF;
9426: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9427: p_data => x_msg_data);
9428:
9429: END CREATE_REPAIR_TASK;
9430:
9528:
9529: -- Initialize message list if p_init_msg_list is set to TRUE.
9530: IF Fnd_Api.to_Boolean(p_init_msg_list)
9531: THEN
9532: Fnd_Msg_Pub.initialize;
9533: END IF;
9534: -- Initialize API return status to success
9535: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
9536: -- ---------------
9619: THEN
9620: COMMIT WORK;
9621: END IF;
9622: -- Standard call to get message count and IF count is get message info.
9623: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9624: p_data => x_msg_data);
9625: EXCEPTION
9626: WHEN Fnd_Api.G_EXC_ERROR THEN
9627: ROLLBACK TO update_repair_task;
9625: EXCEPTION
9626: WHEN Fnd_Api.G_EXC_ERROR THEN
9627: ROLLBACK TO update_repair_task;
9628: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9629: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9630: p_data => x_msg_data);
9631: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
9632: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9633: ROLLBACK TO update_repair_task;
9630: p_data => x_msg_data);
9631: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
9632: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9633: ROLLBACK TO update_repair_task;
9634: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9635: p_data => x_msg_data);
9636: WHEN OTHERS THEN
9637: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9638: ROLLBACK TO update_repair_task;
9635: p_data => x_msg_data);
9636: WHEN OTHERS THEN
9637: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9638: ROLLBACK TO update_repair_task;
9639: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9640: THEN
9641: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9642: END IF;
9643: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9637: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9638: ROLLBACK TO update_repair_task;
9639: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9640: THEN
9641: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9642: END IF;
9643: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9644: p_data => x_msg_data);
9645:
9639: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
9640: THEN
9641: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9642: END IF;
9643: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
9644: p_data => x_msg_data);
9645:
9646: END UPDATE_REPAIR_TASK;
9647: