[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;
2899:
2900: 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)
2901: THEN
2902: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_SHIPTO_BILLTO_MISS');
2903: FND_Msg_Pub.Add;
2904: RAISE FND_API.G_EXC_ERROR;
2905: END IF;
2906:
2907: l_order_header_rec := lx_order_header_rec;
3240: end if;
3241:
3242: for j in 1 .. x_msg_count
3243: loop
3244: x_msg_data:= OE_MSG_PUB.get(fnd_msg_pub.g_next,FND_API.G_FALSE);
3245: IF (IBE_UTIL.G_DEBUGON = l_true) then
3246: IBE_UTIL.DEBUG('Message from OE Save: ' || x_msg_data );
3247: end if;
3248: end loop;
3309: --for logging appropriate error message
3310: if(x_msg_count is not null AND x_msg_count > 0) then
3311: for j in 1 .. x_msg_count
3312: loop
3313: x_msg_data:= OE_MSG_PUB.get(fnd_msg_pub.g_next,FND_API.G_FALSE);
3314: IF (IBE_UTIL.G_DEBUGON = l_true) then
3315: IBE_UTIL.DEBUG('Message from OE Save: ' || x_msg_data );
3316: end if;
3317: end loop;
3414: END IF;
3415:
3416: -- Standard call to get message count and if count is 1, get message info.
3417:
3418: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3419: p_data => x_msg_data);
3420:
3421: EXCEPTION
3422: WHEN FND_API.G_EXC_ERROR THEN
3421: EXCEPTION
3422: WHEN FND_API.G_EXC_ERROR THEN
3423: ROLLBACK TO SAVE_ORDER_SAVE_PVT;
3424: x_return_status := FND_API.G_RET_STS_ERROR;
3425: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3426: p_count => x_msg_count ,
3427: p_data => x_msg_data);
3428: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3429: IBE_Util.Debug('Error IBE_ORDER_SAVE_PVT:Save()'|| sqlerrm);
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3433: ROLLBACK TO SAVE_ORDER_SAVE_PVT;
3434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3435: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3436: p_count => x_msg_count ,
3437: p_data => x_msg_data);
3438: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3439: IBE_Util.Debug('UNEXPECTEDError IBE_ORDER_SAVE_PVT:Save()' || sqlerrm);
3441: WHEN OTHERS THEN
3442: ROLLBACK TO SAVE_ORDER_SAVE_PVT;
3443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3444:
3445: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3446: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3447: L_API_NAME);
3448: END IF;
3449:
3442: ROLLBACK TO SAVE_ORDER_SAVE_PVT;
3443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3444:
3445: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3446: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3447: L_API_NAME);
3448: END IF;
3449:
3450: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3446: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3447: L_API_NAME);
3448: END IF;
3449:
3450: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3451: p_count => x_msg_count ,
3452: p_data => x_msg_data);
3453: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3454: IBE_Util.Debug('Other IBE_ORDER_SAVE_PVT:Save()' || sqlerrm);
3569: END IF;
3570:
3571: -- Initialize message list if p_init_msg_list is set to TRUE.
3572: IF FND_API.To_Boolean( p_init_msg_list ) THEN
3573: FND_Msg_Pub.initialize;
3574: END IF;
3575:
3576: -- Initialize API return status to success
3577: x_return_status := FND_API.G_RET_STS_SUCCESS;
3590: l_order_type_id := FND_PROFILE.VALUE('IBE_RETURN_TRANSACTION_TYPE');
3591:
3592: IF (l_order_type_id is null) THEN
3593: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_ORDER_TYPE_ID_MISS');
3594: FND_Msg_Pub.Add;
3595: RAISE FND_API.G_EXC_ERROR;
3596: ELSE
3597: l_order_header_rec.order_type_id := l_order_type_id;
3598: END IF;
3611:
3612: -- Bug 5359687, Proper error message when default salesrep is not set
3613: IF (l_salesrep_number is null) THEN
3614: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_SALESREPID_MISS');
3615: FND_Msg_Pub.Add;
3616: RAISE FND_API.G_EXC_ERROR;
3617: ELSE
3618: -- Get the sales rep id from the sales rep number using the JTF table
3619: select SALESREP_ID into l_salesrep_id from JTF_RS_SALESREPS where SALESREP_NUMBER = l_salesrep_number and ORG_ID = l_user_orgid;
3626: --l_salesrep_id := FND_PROFILE.VALUE('ASO_DEFAULT_PERSON_ID');
3627:
3628: IF (l_salesrep_id is null) THEN
3629: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_SALESREPID_MISS');
3630: FND_Msg_Pub.Add;
3631: RAISE FND_API.G_EXC_ERROR;
3632: ELSE
3633: l_order_header_rec.salesrep_id := l_salesrep_id;
3634: END IF;
3841: end if;
3842:
3843: for j in 1 .. x_msg_count
3844: loop
3845: x_msg_data:= OE_MSG_PUB.get(fnd_msg_pub.g_next,FND_API.G_FALSE);
3846: IF (IBE_UTIL.G_DEBUGON = l_true) then
3847: IBE_Util.debug('Chk Constraint Exception Message' || x_msg_data);
3848: end if;
3849: end loop;
3877: IBE_Util.Debug('End OE_ORDER_SAVE_PVT:CHECKCONSTRAINT()');
3878: END IF;
3879:
3880: -- Standard call to get message count and if count is 1, get message info.
3881: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3882: p_data => x_msg_data);
3883:
3884:
3885: EXCEPTION
3885: EXCEPTION
3886: WHEN FND_API.G_EXC_ERROR THEN
3887: ROLLBACK TO ORDER_CHKCONSTRAINT;
3888: x_return_status := FND_API.G_RET_STS_ERROR;
3889: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3890: p_count => x_msg_count ,
3891: p_data => x_msg_data);
3892: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3893: IBE_Util.Debug('Error IBE_ORDER_SAVE_PVT:CHECKCONSTRAINT()'|| sqlerrm);
3895:
3896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3897: ROLLBACK TO ORDER_CHKCONSTRAINT;
3898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3899: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3900: p_count => x_msg_count ,
3901: p_data => x_msg_data);
3902: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3903: IBE_Util.Debug('UNEXPECTEDError IBE_ORDER_SAVE_PVT:CHECKCONSTRAINT()' || sqlerrm);
3905:
3906: WHEN OTHERS THEN
3907: ROLLBACK TO ORDER_CHKCONSTRAINT;
3908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3909: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3910: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3911: L_API_NAME);
3912: END IF;
3913:
3906: WHEN OTHERS THEN
3907: ROLLBACK TO ORDER_CHKCONSTRAINT;
3908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3909: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3910: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3911: L_API_NAME);
3912: END IF;
3913:
3914: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3910: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3911: L_API_NAME);
3912: END IF;
3913:
3914: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3915: p_count => x_msg_count ,
3916: p_data => x_msg_data);
3917: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3918: IBE_Util.Debug('Other IBE_ORDER_SAVE_PVT:CHECKCONSTRAINT()' || sqlerrm);
3999: END IF;
4000:
4001: -- Initialize message list if p_init_msg_list is set to TRUE.
4002: IF FND_API.To_Boolean( p_init_msg_list ) THEN
4003: FND_Msg_Pub.initialize;
4004: END IF;
4005:
4006: -- Initialize API return status to success
4007: x_return_status := FND_API.G_RET_STS_SUCCESS;
4044: l_flow_status_code = 'CANCELLED')
4045: OR l_last_update_date > p_last_update_date)
4046: THEN
4047: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_REFRESH_RETURN');
4048: FND_Msg_Pub.Add;
4049: RAISE FND_API.G_EXC_ERROR;
4050: END IF;
4051:
4052:
4088: IBE_Util.Debug('UpdateLinebilling- Get_Cust_Account_Site_Use() fails raise exception');
4089: END IF;
4090:
4091: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
4092: FND_Msg_Pub.Add;
4093: RAISE FND_API.G_EXC_ERROR;
4094: END IF;
4095:
4096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4116: IBE_Util.Debug('UpdateLinebilling- Get_Cust_Account_Site_Use() fails raise exception');
4117: END IF;
4118:
4119: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_SHIPTO_ADDR');
4120: FND_Msg_Pub.Add;
4121: RAISE FND_API.G_EXC_ERROR;
4122: END IF;
4123: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4124: IBE_Util.Debug('UpdateLinebilling-l_acct_siteuse_id: ' || l_shipto_acct_siteuse_id);
4251: end if;
4252:
4253: for j in 1 .. x_msg_count
4254: loop
4255: x_msg_data:= OE_MSG_PUB.get(fnd_msg_pub.g_next,FND_API.G_FALSE);
4256: IF (IBE_UTIL.G_DEBUGON = l_true) then
4257: IBE_UTIL.DEBUG('Message from OE update line bill: ' || x_msg_data );
4258: end if;
4259: end loop;
4281: IBE_Util.Debug('End IBE_ORDER_SAVE_PVT:UpdateLinebilling()');
4282: END IF;
4283:
4284: -- Standard call to get message count and if count is 1, get message info.
4285: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4286: p_data => x_msg_data);
4287:
4288: EXCEPTION
4289: WHEN FND_API.G_EXC_ERROR THEN
4288: EXCEPTION
4289: WHEN FND_API.G_EXC_ERROR THEN
4290: ROLLBACK TO ORDER_UPDTLINEBILL;
4291: x_return_status := FND_API.G_RET_STS_ERROR;
4292: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4293: p_count => x_msg_count ,
4294: p_data => x_msg_data);
4295: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4296: IBE_Util.Debug('Error IBE_ORDER_SAVE_PVT:UpdateLineShippingBilling()'|| sqlerrm);
4298:
4299: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4300: ROLLBACK TO ORDER_UPDTLINEBILL;
4301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4302: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4303: p_count => x_msg_count ,
4304: p_data => x_msg_data);
4305: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4306: IBE_Util.Debug('UNEXPECTEDErr IBE_ORDER_SAVE_PVT:UpdateLineShippingBilling()' || sqlerrm);
4308:
4309: WHEN OTHERS THEN
4310: ROLLBACK TO ORDER_UPDTLINEBILL;
4311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4312: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
4313: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4314: L_API_NAME);
4315: END IF;
4316:
4309: WHEN OTHERS THEN
4310: ROLLBACK TO ORDER_UPDTLINEBILL;
4311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4312: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
4313: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4314: L_API_NAME);
4315: END IF;
4316:
4317: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4313: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4314: L_API_NAME);
4315: END IF;
4316:
4317: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4318: p_count => x_msg_count ,
4319: p_data => x_msg_data);
4320: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4321: IBE_Util.Debug('OtherExc IBE_ORDER_SAVE_PVT:UpdateLineShippingBilling()' || sqlerrm);