[Home] [Help]
144: LOOP
145: FND_MESSAGE.Set_Name('IBE', 'IBE_OM_ERROR');
146: FND_MESSAGE.Set_token('MSG_TXT' , substr(x_msg_data,i,240));
147: i := i + 240;
148: FND_MSG_PUB.ADD;
149: END LOOP;
150:
151: END IF;
152: END LOOP;
540: ibe_util.debug('line type id..'||l_order_line_tbl(i).line_type_id);
541: end if;
542: ELSE
543: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_LINE_TYPE_ID_MISS');
544: FND_Msg_Pub.Add;
545: RAISE FND_API.G_EXC_ERROR;
546: END IF;
547: END IF;
548: END IF; -- l_order_line_tbl.operation =create
583: ibe_util.debug('line type id..'||l_order_line_tbl(i).line_type_id);
584: end if;
585: ELSE
586: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_LINE_TYPE_ID_MISS');
587: FND_Msg_Pub.Add;
588: RAISE FND_API.G_EXC_ERROR;
589: END IF;
590: END IF;
591:
691: IF (x_order_header_rec.ORDER_CATEGORY_CODE is null
692: OR x_order_header_rec.ORDER_CATEGORY_CODE = FND_API.G_MISS_CHAR)
693: THEN
694: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_ORDER_CATG_MISS');
695: FND_Msg_Pub.Add;
696: RAISE FND_API.G_EXC_ERROR;
697: END IF;
698: END IF;
699:
729: l_flow_status_code = 'CANCELLED')
730: OR l_last_update_date > x_order_header_rec.last_update_date)
731: THEN
732: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_REFRESH_RETURN');
733: FND_Msg_Pub.Add;
734: RAISE FND_API.G_EXC_ERROR;
735: ELSE
736: x_order_header_rec.operation := OE_Globals.G_OPR_UPDATE;
737: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
765: x_order_header_rec.order_type_id := FND_PROFILE.VALUE('IBE_RETURN_TRANSACTION_TYPE');
766: IF (x_order_header_rec.order_type_id IS NULL OR x_order_header_rec.order_type_id = FND_API.G_MISS_NUM)
767: THEN
768: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_ORDER_TYPE_ID_MISS');
769: FND_Msg_Pub.Add;
770: RAISE FND_API.G_EXC_ERROR;
771: END IF;
772: end if; -- if order type id
773:
788: END IF;
789: -- Bug 5255625, Proper error message when default salesrep is not set
790: IF (l_salesrep_number is null) THEN
791: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_SALESREPID_MISS');
792: FND_Msg_Pub.Add;
793: RAISE FND_API.G_EXC_ERROR;
794: ELSE
795: -- Get the sales rep id from the sales rep number using the JTF table
796: select SALESREP_ID into l_salesrep_id from JTF_RS_SALESREPS where SALESREP_NUMBER = l_salesrep_number and ORG_ID = l_user_orgid;
802: --l_salesrep_id := FND_PROFILE.VALUE('ASO_DEFAULT_PERSON_ID');
803:
804: IF (l_salesrep_id is null) THEN
805: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_SALESREPID_MISS');
806: FND_Msg_Pub.Add;
807: RAISE FND_API.G_EXC_ERROR;
808: ELSE
809: x_order_header_rec.salesrep_id := l_salesrep_id;
810: END IF;
826: END IF;
827:
828: ELSIF(p_save_type = SAVE_NORMAL OR p_save_type = SAVE_REMOVEITEMS) THEN
829: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_REFRESH_RETURN');
830: FND_Msg_Pub.Add;
831: RAISE FND_API.G_EXC_ERROR;
832: END If; --save type= normal
833: ELSE
834:
1025:
1026: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1027: -- raise FND_API.G_EXC_ERROR;
1028: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_SHIPTO_ADDR');
1029: FND_Msg_Pub.Add;
1030: RAISE FND_API.G_EXC_ERROR;
1031: END IF;
1032:
1033: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1059: END IF;
1060:
1061: -- If final attempt also fails, no other go, Raise An Exception
1062: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_SHIPTO_ADDR');
1063: FND_Msg_Pub.Add;
1064: RAISE FND_API.G_EXC_ERROR; -- Error Message should indicate the
1065: -- user to select/ create a valid Shipping address
1066: -- in the profiles tab.
1067: END IF;
1067: END IF;
1068: ELSE
1069: -- FOR B2C raise an exception.
1070: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_SHIPTO_ADDR');
1071: FND_Msg_Pub.Add;
1072: RAISE FND_API.G_EXC_ERROR;
1073: END IF;
1074:
1075: ----
1093: END IF;
1094:
1095: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1096: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
1097: FND_Msg_Pub.Add;
1098: RAISE FND_API.G_EXC_ERROR;
1099: END IF;
1100:
1101: IF (lx_header_siteuse_id is not null AND lx_header_siteuse_id <> FND_API.G_MISS_NUM)
1121: Ibe_util.Debug('DefaultHdrLineAddress: Final Attempt- Bill To');
1122: END IF;
1123:
1124: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
1125: FND_Msg_Pub.Add;
1126: RAISE FND_API.G_EXC_ERROR; -- Error Message should indicate the
1127: -- user to select/ create a valid Shipping address
1128: -- in the profiles tab.
1129: END IF;
1129: END IF;
1130: ELSE
1131: -- FOR B2C raise an exception.
1132: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
1133: FND_Msg_Pub.Add;
1134: RAISE FND_API.G_EXC_ERROR;
1135: END IF;
1136:
1137: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1206: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1207: Ibe_util.Debug('End IBE_ORDER_SAVE_PVT:DefaultHdrLineAddress');
1208: END IF;
1209:
1210: FND_MSG_PUB.Count_And_Get
1211: ( p_count => x_msg_count,
1212: p_data => x_msg_data
1213: );
1214:
1214:
1215: EXCEPTION
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: x_return_status := FND_API.G_RET_STS_ERROR;
1218: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1219: p_count => x_msg_count ,
1220: p_data => x_msg_data);
1221: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1222: IBE_Util.Debug('Error IBE_ORDER_SAVE_PVT:DefaultHdrLineAddress()'|| sqlerrm);
1223: END IF;
1224:
1225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1227: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1228: p_count => x_msg_count ,
1229: p_data => x_msg_data);
1230: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1231: IBE_Util.Debug('UNEXPError IBE_ORDER_SAVE_PVT:DefaultHdrLineAddress()' || sqlerrm);
1232: END IF;
1233:
1234: WHEN OTHERS THEN
1235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1236: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
1237: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1238: L_API_NAME);
1239: END IF;
1240:
1233:
1234: WHEN OTHERS THEN
1235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1236: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
1237: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1238: L_API_NAME);
1239: END IF;
1240:
1241: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1237: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1238: L_API_NAME);
1239: END IF;
1240:
1241: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1242: p_count => x_msg_count ,
1243: p_data => x_msg_data);
1244: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1245: IBE_Util.Debug('Other IBE_ORDER_SAVE_PVT:DefaultHdrLineAddress()' || sqlerrm);
1661: IF (IBE_UTIL.G_DEBUGON = l_true) then
1662: IBE_UTIL.DEBUG('Inside If');
1663: END IF;
1664: FND_Message.Set_Name('IBE', 'IBE_OT_ERR_USERACCESS');
1665: FND_Msg_Pub.Add;
1666: RAISE FND_API.G_EXC_ERROR;
1667: END IF;
1668:
1669: IF (IBE_UTIL.G_DEBUGON = l_true) then
1963: FND_MESSAGE.Set_Token('ORD', l_tmp_order_line_tbl(l_index2).order_number);
1964: FND_MESSAGE.Set_Token('DESC', trim(l_tmp_order_line_tbl(l_index2).description));
1965:
1966: FND_MESSAGE.Set_Token('QTY', tempQty);
1967: FND_Msg_Pub.Add;
1968:
1969: ELSIF(l_tmp_order_line_tbl(l_index2).item_type_code IN ('MODEL','KIT')) then
1970: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1971: IBE_Util.debug('MDL-Item: Fails for Qty: Order#='||l_tmp_order_line_tbl(l_index2).order_number||
1973: end if;
1974: FND_MESSAGE.Set_Name('IBE','IBE_ERR_OT_MDL_LINE_OVER_QTY');
1975: FND_MESSAGE.Set_Token('ORD', l_tmp_order_line_tbl(l_index2).order_number);
1976: FND_MESSAGE.Set_Token('DESC', trim(l_tmp_order_line_tbl(l_index2).description));
1977: FND_Msg_Pub.Add;
1978: END IF;
1979: END IF;
1980: l_index2 := l_tmp_order_line_tbl.NEXT(l_index2);
1981: END LOOP;
2010: --
2011:
2012: -- Standard call to get message count and if count is 1, get message info.
2013:
2014: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2015: p_data => x_msg_data);
2016:
2017: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2018: IBE_Util.Debug('End OE_ORDER_SAVE_PVT.CheckReturnQty()');
2022: EXCEPTION
2023:
2024: WHEN FND_API.G_EXC_ERROR THEN
2025: x_return_status := FND_API.G_RET_STS_ERROR;
2026: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2027: p_count => x_msg_count ,
2028: p_data => x_msg_data);
2029: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2030: IBE_Util.Debug('Error IBE_ORDER_SAVE_PVT:CheckOverReturnQty()'|| sqlerrm);
2031: END IF;
2032:
2033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2035: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2036: p_count => x_msg_count ,
2037: p_data => x_msg_data);
2038: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2039: IBE_Util.Debug('UNEXPECTEDError IBE_ORDER_SAVE_PVT:CheckOverReturnQty()' || sqlerrm);
2040: END IF;
2041: WHEN OTHERS THEN
2042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2043:
2044: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
2045: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2046: L_API_NAME);
2047: END IF;
2048:
2041: WHEN OTHERS THEN
2042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2043:
2044: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
2045: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2046: L_API_NAME);
2047: END IF;
2048:
2049: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2045: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2046: L_API_NAME);
2047: END IF;
2048:
2049: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2050: p_count => x_msg_count ,
2051: p_data => x_msg_data);
2052: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2053: IBE_Util.Debug('Other IBE_ORDER_SAVE_PVT:CheckOverReturnQty()' || sqlerrm);
2389: -- Initialize API return status to success
2390: x_return_status := FND_API.G_RET_STS_SUCCESS;
2391:
2392: IF FND_API.To_Boolean( p_init_msg_list ) THEN
2393: FND_Msg_Pub.initialize;
2394: END IF;
2395:
2396:
2397: -- Calling Address validate API w/ BILL_TO
2491: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2492: IBE_Util.Debug('Invalid Billing Details- Settig the Error to FND stack');
2493: END IF;
2494: FND_MESSAGE.Set_Name('IBE','IBE_ERR_OT_INVALID_BILLDET');
2495: FND_Msg_Pub.Add;
2496: end if;
2497:
2498: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2499: IBE_Util.Debug('Before calling TCA_AddressValidate: BILL_TO');
2583: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2584: IBE_Util.Debug('Invalid Billing Details- Settig the Error to FND stack');
2585: END IF;
2586: FND_MESSAGE.Set_Name('IBE','IBE_ERR_OT_INVALID_SHIPDET');
2587: FND_Msg_Pub.Add;
2588: end if;
2589:
2590:
2591: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2648: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2649: Ibe_util.Debug('End IBE_ORDER_SAVE_PVT:Complete_RetOrder_Validate');
2650: END IF;
2651:
2652: FND_MSG_PUB.Count_And_Get
2653: ( p_count => x_msg_count,
2654: p_data => x_msg_data
2655: );
2656:
2656:
2657: EXCEPTION
2658: WHEN FND_API.G_EXC_ERROR THEN
2659: x_return_status := FND_API.G_RET_STS_ERROR;
2660: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2661: p_count => x_msg_count ,
2662: p_data => x_msg_data);
2663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2664: IBE_Util.Debug('Error IBE_ORDER_SAVE_PVT:Complete_RetOrder_Validate()'|| sqlerrm);
2665: END IF;
2666:
2667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2669: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2670: p_count => x_msg_count ,
2671: p_data => x_msg_data);
2672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2673: IBE_Util.Debug('UNEXPError IBE_ORDER_SAVE_PVT:Complete_RetOrder_Validate()' || sqlerrm);
2674: END IF;
2675:
2676: WHEN OTHERS THEN
2677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2678: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
2679: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2680: L_API_NAME);
2681: END IF;
2682:
2675:
2676: WHEN OTHERS THEN
2677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2678: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
2679: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2680: L_API_NAME);
2681: END IF;
2682:
2683: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2679: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2680: L_API_NAME);
2681: END IF;
2682:
2683: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2684: p_count => x_msg_count ,
2685: p_data => x_msg_data);
2686: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2687: IBE_Util.Debug('Other IBE_ORDER_SAVE_PVT:Complete_RetOrder_Validate()' || sqlerrm);
2808: END IF;
2809:
2810: -- Initialize message list if p_init_msg_list is set to TRUE.
2811: IF FND_API.To_Boolean( p_init_msg_list ) THEN
2812: FND_Msg_Pub.initialize;
2813: END IF;
2814:
2815: -- Initialize API return status to success
2816: x_return_status := FND_API.G_RET_STS_SUCCESS;
2897:
2898: IF(lx_order_header_rec.invoice_to_org_id is null OR lx_order_header_rec.invoice_to_org_id = FND_API.G_MISS_NUM)
2899: THEN
2900: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_SHIPTO_BILLTO_MISS');
2901: FND_Msg_Pub.Add;
2902: RAISE FND_API.G_EXC_ERROR;
2903: END IF;
2904:
2905: l_order_header_rec := lx_order_header_rec;
3227: end if;
3228:
3229: for j in 1 .. x_msg_count
3230: loop
3231: x_msg_data:= OE_MSG_PUB.get(fnd_msg_pub.g_next,FND_API.G_FALSE);
3232: IF (IBE_UTIL.G_DEBUGON = l_true) then
3233: IBE_UTIL.DEBUG('Message from OE Save: ' || x_msg_data );
3234: end if;
3235: end loop;
3296: --for logging appropriate error message
3297: if(x_msg_count is not null AND x_msg_count > 0) then
3298: for j in 1 .. x_msg_count
3299: loop
3300: x_msg_data:= OE_MSG_PUB.get(fnd_msg_pub.g_next,FND_API.G_FALSE);
3301: IF (IBE_UTIL.G_DEBUGON = l_true) then
3302: IBE_UTIL.DEBUG('Message from OE Save: ' || x_msg_data );
3303: end if;
3304: end loop;
3401: END IF;
3402:
3403: -- Standard call to get message count and if count is 1, get message info.
3404:
3405: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3406: p_data => x_msg_data);
3407:
3408: EXCEPTION
3409: WHEN FND_API.G_EXC_ERROR THEN
3408: EXCEPTION
3409: WHEN FND_API.G_EXC_ERROR THEN
3410: ROLLBACK TO SAVE_ORDER_SAVE_PVT;
3411: x_return_status := FND_API.G_RET_STS_ERROR;
3412: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3413: p_count => x_msg_count ,
3414: p_data => x_msg_data);
3415: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3416: IBE_Util.Debug('Error IBE_ORDER_SAVE_PVT:Save()'|| sqlerrm);
3418:
3419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3420: ROLLBACK TO SAVE_ORDER_SAVE_PVT;
3421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3422: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3423: p_count => x_msg_count ,
3424: p_data => x_msg_data);
3425: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3426: IBE_Util.Debug('UNEXPECTEDError IBE_ORDER_SAVE_PVT:Save()' || sqlerrm);
3428: WHEN OTHERS THEN
3429: ROLLBACK TO SAVE_ORDER_SAVE_PVT;
3430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3431:
3432: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3433: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3434: L_API_NAME);
3435: END IF;
3436:
3429: ROLLBACK TO SAVE_ORDER_SAVE_PVT;
3430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3431:
3432: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3433: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3434: L_API_NAME);
3435: END IF;
3436:
3437: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3433: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3434: L_API_NAME);
3435: END IF;
3436:
3437: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3438: p_count => x_msg_count ,
3439: p_data => x_msg_data);
3440: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3441: IBE_Util.Debug('Other IBE_ORDER_SAVE_PVT:Save()' || sqlerrm);
3556: END IF;
3557:
3558: -- Initialize message list if p_init_msg_list is set to TRUE.
3559: IF FND_API.To_Boolean( p_init_msg_list ) THEN
3560: FND_Msg_Pub.initialize;
3561: END IF;
3562:
3563: -- Initialize API return status to success
3564: x_return_status := FND_API.G_RET_STS_SUCCESS;
3577: l_order_type_id := FND_PROFILE.VALUE('IBE_RETURN_TRANSACTION_TYPE');
3578:
3579: IF (l_order_type_id is null) THEN
3580: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_ORDER_TYPE_ID_MISS');
3581: FND_Msg_Pub.Add;
3582: RAISE FND_API.G_EXC_ERROR;
3583: ELSE
3584: l_order_header_rec.order_type_id := l_order_type_id;
3585: END IF;
3598:
3599: -- Bug 5359687, Proper error message when default salesrep is not set
3600: IF (l_salesrep_number is null) THEN
3601: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_SALESREPID_MISS');
3602: FND_Msg_Pub.Add;
3603: RAISE FND_API.G_EXC_ERROR;
3604: ELSE
3605: -- Get the sales rep id from the sales rep number using the JTF table
3606: select SALESREP_ID into l_salesrep_id from JTF_RS_SALESREPS where SALESREP_NUMBER = l_salesrep_number and ORG_ID = l_user_orgid;
3613: --l_salesrep_id := FND_PROFILE.VALUE('ASO_DEFAULT_PERSON_ID');
3614:
3615: IF (l_salesrep_id is null) THEN
3616: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_SALESREPID_MISS');
3617: FND_Msg_Pub.Add;
3618: RAISE FND_API.G_EXC_ERROR;
3619: ELSE
3620: l_order_header_rec.salesrep_id := l_salesrep_id;
3621: END IF;
3828: end if;
3829:
3830: for j in 1 .. x_msg_count
3831: loop
3832: x_msg_data:= OE_MSG_PUB.get(fnd_msg_pub.g_next,FND_API.G_FALSE);
3833: IF (IBE_UTIL.G_DEBUGON = l_true) then
3834: IBE_Util.debug('Chk Constraint Exception Message' || x_msg_data);
3835: end if;
3836: end loop;
3864: IBE_Util.Debug('End OE_ORDER_SAVE_PVT:CHECKCONSTRAINT()');
3865: END IF;
3866:
3867: -- Standard call to get message count and if count is 1, get message info.
3868: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3869: p_data => x_msg_data);
3870:
3871:
3872: EXCEPTION
3872: EXCEPTION
3873: WHEN FND_API.G_EXC_ERROR THEN
3874: ROLLBACK TO ORDER_CHKCONSTRAINT;
3875: x_return_status := FND_API.G_RET_STS_ERROR;
3876: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3877: p_count => x_msg_count ,
3878: p_data => x_msg_data);
3879: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3880: IBE_Util.Debug('Error IBE_ORDER_SAVE_PVT:CHECKCONSTRAINT()'|| sqlerrm);
3882:
3883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3884: ROLLBACK TO ORDER_CHKCONSTRAINT;
3885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3886: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3887: p_count => x_msg_count ,
3888: p_data => x_msg_data);
3889: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3890: IBE_Util.Debug('UNEXPECTEDError IBE_ORDER_SAVE_PVT:CHECKCONSTRAINT()' || sqlerrm);
3892:
3893: WHEN OTHERS THEN
3894: ROLLBACK TO ORDER_CHKCONSTRAINT;
3895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3896: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3897: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3898: L_API_NAME);
3899: END IF;
3900:
3893: WHEN OTHERS THEN
3894: ROLLBACK TO ORDER_CHKCONSTRAINT;
3895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3896: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3897: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3898: L_API_NAME);
3899: END IF;
3900:
3901: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3897: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3898: L_API_NAME);
3899: END IF;
3900:
3901: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3902: p_count => x_msg_count ,
3903: p_data => x_msg_data);
3904: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3905: IBE_Util.Debug('Other IBE_ORDER_SAVE_PVT:CHECKCONSTRAINT()' || sqlerrm);
3986: END IF;
3987:
3988: -- Initialize message list if p_init_msg_list is set to TRUE.
3989: IF FND_API.To_Boolean( p_init_msg_list ) THEN
3990: FND_Msg_Pub.initialize;
3991: END IF;
3992:
3993: -- Initialize API return status to success
3994: x_return_status := FND_API.G_RET_STS_SUCCESS;
4031: l_flow_status_code = 'CANCELLED')
4032: OR l_last_update_date > p_last_update_date)
4033: THEN
4034: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_REFRESH_RETURN');
4035: FND_Msg_Pub.Add;
4036: RAISE FND_API.G_EXC_ERROR;
4037: END IF;
4038:
4039:
4075: IBE_Util.Debug('UpdateLinebilling- Get_Cust_Account_Site_Use() fails raise exception');
4076: END IF;
4077:
4078: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
4079: FND_Msg_Pub.Add;
4080: RAISE FND_API.G_EXC_ERROR;
4081: END IF;
4082:
4083: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4103: IBE_Util.Debug('UpdateLinebilling- Get_Cust_Account_Site_Use() fails raise exception');
4104: END IF;
4105:
4106: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_SHIPTO_ADDR');
4107: FND_Msg_Pub.Add;
4108: RAISE FND_API.G_EXC_ERROR;
4109: END IF;
4110: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4111: IBE_Util.Debug('UpdateLinebilling-l_acct_siteuse_id: ' || l_shipto_acct_siteuse_id);
4238: end if;
4239:
4240: for j in 1 .. x_msg_count
4241: loop
4242: x_msg_data:= OE_MSG_PUB.get(fnd_msg_pub.g_next,FND_API.G_FALSE);
4243: IF (IBE_UTIL.G_DEBUGON = l_true) then
4244: IBE_UTIL.DEBUG('Message from OE update line bill: ' || x_msg_data );
4245: end if;
4246: end loop;
4268: IBE_Util.Debug('End IBE_ORDER_SAVE_PVT:UpdateLinebilling()');
4269: END IF;
4270:
4271: -- Standard call to get message count and if count is 1, get message info.
4272: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4273: p_data => x_msg_data);
4274:
4275: EXCEPTION
4276: WHEN FND_API.G_EXC_ERROR THEN
4275: EXCEPTION
4276: WHEN FND_API.G_EXC_ERROR THEN
4277: ROLLBACK TO ORDER_UPDTLINEBILL;
4278: x_return_status := FND_API.G_RET_STS_ERROR;
4279: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4280: p_count => x_msg_count ,
4281: p_data => x_msg_data);
4282: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4283: IBE_Util.Debug('Error IBE_ORDER_SAVE_PVT:UpdateLineShippingBilling()'|| sqlerrm);
4285:
4286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4287: ROLLBACK TO ORDER_UPDTLINEBILL;
4288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4289: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4290: p_count => x_msg_count ,
4291: p_data => x_msg_data);
4292: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4293: IBE_Util.Debug('UNEXPECTEDErr IBE_ORDER_SAVE_PVT:UpdateLineShippingBilling()' || sqlerrm);
4295:
4296: WHEN OTHERS THEN
4297: ROLLBACK TO ORDER_UPDTLINEBILL;
4298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4299: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
4300: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4301: L_API_NAME);
4302: END IF;
4303:
4296: WHEN OTHERS THEN
4297: ROLLBACK TO ORDER_UPDTLINEBILL;
4298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4299: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
4300: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4301: L_API_NAME);
4302: END IF;
4303:
4304: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4300: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4301: L_API_NAME);
4302: END IF;
4303:
4304: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4305: p_count => x_msg_count ,
4306: p_data => x_msg_data);
4307: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4308: IBE_Util.Debug('OtherExc IBE_ORDER_SAVE_PVT:UpdateLineShippingBilling()' || sqlerrm);