[Home] [Help]
496: END IF;
497: x_return_status := 'E';
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
499: -- Get message count and data
500: OE_MSG_PUB.Count_And_Get
501: ( p_count => x_msg_count
502: , p_data => x_msg_data
503: );
504:
501: ( p_count => x_msg_count
502: , p_data => x_msg_data
503: );
504:
505: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
506: OE_MSG_PUB.Add_Exc_Msg
507: ( G_PKG_NAME,
508: 'Call_MRP_ATP');
509: END IF;
502: , p_data => x_msg_data
503: );
504:
505: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
506: OE_MSG_PUB.Add_Exc_Msg
507: ( G_PKG_NAME,
508: 'Call_MRP_ATP');
509: END IF;
510:
776: x_return_status := FND_API.G_RET_STS_ERROR;
777:
778: -- Get message count and data
779:
780: OE_MSG_PUB.Count_And_Get
781: ( p_count => x_msg_count
782: , p_data => x_msg_data
783: );
784:
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
788:
789: -- Get message count and data
790:
791: OE_MSG_PUB.Count_And_Get
792: ( p_count => x_msg_count
793: , p_data => x_msg_data
794: );
795:
796: WHEN OTHERS THEN
797:
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
799:
800: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
801: THEN
802: OE_MSG_PUB.Add_Exc_Msg
803: ( G_PKG_NAME
804: , 'defaulting'
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
799:
800: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
801: THEN
802: OE_MSG_PUB.Add_Exc_Msg
803: ( G_PKG_NAME
804: , 'defaulting'
805: );
806: END IF;
806: END IF;
807:
808: -- Get message count and data
809:
810: OE_MSG_PUB.Count_And_Get
811: ( p_count => x_msg_count
812: , p_data => x_msg_data
813: );
814:
875: --FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_SOURCE');
876: IF in_global_orgs = 'N' then
877:
878: FND_MESSAGE.SET_NAME('ONT','ONT_AVAIL_NO_SOURCES');
879: OE_MSG_PUB.Add;
880: ELSE
881: x_error_message := l_explanation;
882: END IF;
883:
925: FND_MESSAGE.SET_TOKEN('REQUEST_DATE', p_atp_rec.requested_ship_date(J));
926: FND_MESSAGE.SET_TOKEN('EARLIEST_DATE', p_atp_rec.ship_date(J));
927:
928: IF in_global_orgs = 'N' then
929: OE_MSG_PUB.Add;
930: ELSE
931: x_error_message := fnd_message.get;
932: END IF;
933:
950:
951: IF in_global_orgs = 'N' then
952: FND_MESSAGE.SET_NAME('ONT','ONT_INLNE_CUSTOMER');
953: FND_MESSAGE.SET_TOKEN('TEXT',l_explanation);
954: OE_MSG_PUB.Add;
955: ELSE
956: x_error_message := l_explanation;
957: END IF;
958:
1010: END IF;
1011: x_error_message := l_explanation;
1012:
1013: IF p_atp_rec.error_code(J) = 150 THEN
1014: OE_MSG_PUB.add_text(l_explanation);
1015: END IF;
1016:
1017: EXCEPTION
1018: WHEN OTHERS THEN
1027:
1028: -- umcomment for testing the error handling
1029: --x_return_status := 'E';
1030: --FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_SOURCE');
1031: --OE_MSG_PUB.Add;
1032:
1033: IF x_return_status ='E' and in_global_orgs = 'N' then
1034: IF l_debug_level > 0 THEN
1035: oe_debug_pub.add( 'DOING COUNT_AND_GET' ) ;
1033: IF x_return_status ='E' and in_global_orgs = 'N' then
1034: IF l_debug_level > 0 THEN
1035: oe_debug_pub.add( 'DOING COUNT_AND_GET' ) ;
1036: END IF;
1037: oe_msg_pub.count_and_get(p_encoded=>fnd_api.G_TRUE,
1038: p_count => x_msg_count,
1039: p_data=>x_msg_data
1040: );
1041: IF l_debug_level > 0 THEN
1048: END IF;
1049:
1050: EXCEPTION
1051: WHEN OTHERS THEN
1052: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1053: THEN
1054: OE_MSG_PUB.Add_Exc_Msg
1055: ( G_PKG_NAME
1056: , 'Check_Results'
1050: EXCEPTION
1051: WHEN OTHERS THEN
1052: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1053: THEN
1054: OE_MSG_PUB.Add_Exc_Msg
1055: ( G_PKG_NAME
1056: , 'Check_Results'
1057: );
1058: END IF;
1128: EXCEPTION
1129:
1130: WHEN OTHERS THEN
1131:
1132: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1133: OE_MSG_PUB.Add_Exc_Msg
1134: ( G_PKG_NAME,
1135: 'Initialize_mrp_record');
1136: END IF;
1129:
1130: WHEN OTHERS THEN
1131:
1132: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1133: OE_MSG_PUB.Add_Exc_Msg
1134: ( G_PKG_NAME,
1135: 'Initialize_mrp_record');
1136: END IF;
1137:
2911: oe_debug_pub.add( 'WRONG IN INSERT_LINES2'||L_RETURN_STATUS_TEXT , 1 ) ;
2912: END IF;
2913: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
2914: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
2915: OE_MSG_PUB.Add;
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918:
2919: IF G_ATTR_LINE_INDEX_tbl.count > 0 THEN
2956: oe_debug_pub.add( 'ERROR INSERTING INTO LINE ATTRS'||SQLERRM ) ;
2957: END IF;
2958: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
2959: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
2960: OE_MSG_PUB.Add;
2961: raise fnd_api.g_exc_unexpected_error;
2962: END IF;
2963:
2964: END IF;
3897: FND_MESSAGE.SET_TOKEN('TEXT',in_status_text);
3898: IF l_debug_level > 0 THEN
3899: oe_debug_pub.add( 'INVALID PL ERR TXT='||IN_STATUS_TEXT ) ;
3900: END IF;
3901: OE_MSG_PUB.Add;
3902:
3903: ELSE
3904: IF l_debug_level > 0 THEN
3905: oe_debug_pub.add( 'INVALID PRICE LIST' ) ;
3907: FND_MESSAGE.SET_NAME('ONT','OE_PRC_NO_LIST_PRICE');
3908: FND_MESSAGE.SET_TOKEN('ITEM',in_Ordered_Item);
3909: FND_MESSAGE.SET_TOKEN('UNIT',in_uom);
3910: FND_MESSAGE.SET_TOKEN('PRICE_LIST',l_Price_List);
3911: OE_MSG_PUB.Add;
3912:
3913: END IF;
3914:
3915: ELSIF in_status_code = QP_PREQ_GRP.G_STS_LHS_NOT_FOUND Then
3916:
3917: FND_MESSAGE.SET_NAME('ONT','ONT_NO_PRICE_LIST_FOUND');
3918: FND_MESSAGE.SET_TOKEN('ITEM',in_Ordered_Item);
3919: FND_MESSAGE.SET_TOKEN('UOM',in_uom);
3920: OE_MSG_PUB.Add;
3921:
3922: ELSIF in_status_code = QP_PREQ_GRP.G_STATUS_FORMULA_ERROR then
3923: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_ERROR_IN_FORMULA');
3924: OE_MSG_PUB.Add;
3920: OE_MSG_PUB.Add;
3921:
3922: ELSIF in_status_code = QP_PREQ_GRP.G_STATUS_FORMULA_ERROR then
3923: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_ERROR_IN_FORMULA');
3924: OE_MSG_PUB.Add;
3925:
3926: ELSIF in_status_code in
3927: ( QP_PREQ_GRP.G_STATUS_OTHER_ERRORS , FND_API.G_RET_STS_UNEXP_ERROR,
3928: FND_API.G_RET_STS_ERROR) then
3927: ( QP_PREQ_GRP.G_STATUS_OTHER_ERRORS , FND_API.G_RET_STS_UNEXP_ERROR,
3928: FND_API.G_RET_STS_ERROR) then
3929: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
3930: FND_MESSAGE.SET_TOKEN('ERR_TEXT',in_status_text);
3931: OE_MSG_PUB.Add;
3932:
3933: ELSIF in_status_code = QP_PREQ_GRP.G_STATUS_INVALID_UOM then
3934: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM');
3935: FND_MESSAGE.SET_TOKEN('ITEM',in_Ordered_Item);
3933: ELSIF in_status_code = QP_PREQ_GRP.G_STATUS_INVALID_UOM then
3934: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM');
3935: FND_MESSAGE.SET_TOKEN('ITEM',in_Ordered_Item);
3936: FND_MESSAGE.SET_TOKEN('UOM',in_uom);
3937: OE_MSG_PUB.Add;
3938:
3939: ElSIF in_status_code = QP_PREQ_GRP.G_STATUS_DUP_PRICE_LIST then
3940: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_DUPLICATE_PRICE_LIST');
3941:
3977: oe_debug_pub.add( 'PRICE LIST 2='||L_PRICE_LIST ) ;
3978: END IF;
3979:
3980: FND_MESSAGE.SET_TOKEN('PRICE_LIST2',l_price_list);
3981: OE_MSG_PUB.Add;
3982:
3983: ELSIF in_status_code = QP_PREQ_GRP.G_STATUS_INVALID_UOM_CONV then
3984: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM_CONVERSION');
3985: FND_MESSAGE.SET_TOKEN('UOM_TEXT','( '||in_Ordered_Item||' ) '||
3983: ELSIF in_status_code = QP_PREQ_GRP.G_STATUS_INVALID_UOM_CONV then
3984: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM_CONVERSION');
3985: FND_MESSAGE.SET_TOKEN('UOM_TEXT','( '||in_Ordered_Item||' ) '||
3986: in_status_text);
3987: OE_MSG_PUB.Add;
3988:
3989: ElSIF in_status_code = QP_PREQ_GRP.G_STATUS_INVALID_INCOMP then
3990: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_INCOMP');
3991: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '||in_Ordered_Item||' ) '||
3989: ElSIF in_status_code = QP_PREQ_GRP.G_STATUS_INVALID_INCOMP then
3990: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_INCOMP');
3991: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '||in_Ordered_Item||' ) '||
3992: in_status_text);
3993: OE_MSG_PUB.Add;
3994:
3995: ELSIF in_status_code = QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR then
3996: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_BEST_PRICE_ERROR');
3997: FND_MESSAGE.SET_TOKEN('ITEM',in_Ordered_Item);
3995: ELSIF in_status_code = QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR then
3996: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_BEST_PRICE_ERROR');
3997: FND_MESSAGE.SET_TOKEN('ITEM',in_Ordered_Item);
3998: FND_MESSAGE.SET_TOKEN('ERR_TEXT',in_status_text);
3999: OE_MSG_PUB.Add;
4000: END IF;
4001:
4002:
4003: /*elsif ( in_unit_price < 0 or in_Adjusted_unit_price < 0) and
4007: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_PRICE');
4008: FND_MESSAGE.SET_TOKEN('ITEM',in_Ordered_Item);
4009: FND_MESSAGE.SET_TOKEN('LIST_PRICE',in_unit_price);
4010: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',in_Adjusted_unit_price);
4011: OE_MSG_PUB.Add;
4012: --FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_MODIFIERS');
4013: --FND_MESSAGE.SET_TOKEN('LIST_LINE_NO',get_list_lines(g_line_id));
4014: --OE_MSG_PUB.Add;
4015: l_return_status := 'E';
4010: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',in_Adjusted_unit_price);
4011: OE_MSG_PUB.Add;
4012: --FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_MODIFIERS');
4013: --FND_MESSAGE.SET_TOKEN('LIST_LINE_NO',get_list_lines(g_line_id));
4014: --OE_MSG_PUB.Add;
4015: l_return_status := 'E';
4016: --RAISE FND_API.G_EXC_ERROR;*/
4017:
4018: ELSIF in_line_Type_code ='LINE' and
4022: oe_debug_pub.add( 'OE_PRICING_ERROR' ) ;
4023: END IF;
4024: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
4025: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '||in_Ordered_Item||' ) '||in_STATUS_TEXT);
4026: OE_MSG_PUB.Add;
4027:
4028: ELSIF in_line_Type_code ='LINE' and in_status_code in
4029: --( QP_PREQ_GRP.G_STATUS_UPDATED,
4030: (QP_PREQ_GRP.G_STATUS_GSA_VIOLATION) and
4042: IF in_status_text is not null then
4043: l_return_status := 'E';
4044: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
4045: FND_MESSAGE.SET_TOKEN('ERR_TEXT',in_status_text);
4046: OE_MSG_PUB.Add;
4047: END IF;
4048:
4049: -- we need to do this check in UPDATED code or do the gsa check through
4050: -- the control record of Pricing
4078: oe_debug_pub.add('GSA warning or error 2 msg_Text='||l_msg_text);
4079: FND_MESSAGE.SET_NAME('ONT','OE_GSA_VIOLATION');
4080: l_msg_text := l_operand||' ( '||l_msg_text||' )';
4081: FND_MESSAGE.SET_TOKEN('GSA_PRICE',l_msg_text);
4082: OE_MSG_PUB.Add;
4083: END IF;
4084: END IF; */
4085:
4086:
4115: IF l_return_status ='E' then
4116: IF l_debug_level > 0 THEN
4117: oe_debug_pub.add( 'DOING COUNT_AND_GET' ) ;
4118: END IF;
4119: oe_msg_pub.count_and_get(p_encoded=>fnd_api.G_TRUE,
4120: p_count => l_msg_count,
4121: p_data=>l_msg_data
4122: );
4123: END IF;
4844: IF l_debug_level > 0 THEN
4845: oe_debug_pub.add( 'MSG DATA IS NOT NULL 2' ) ;
4846: END IF;
4847: FND_MESSAGE.SET_TOKEN('TEXT',x_msg_data);
4848: OE_MSG_PUB.Add;
4849:
4850: END IF;
4851:
4852:
4915:
4916:
4917: IF x_plan_id is null then
4918: fnd_message.set_name('MSC', 'MSC_NO_PLANS_DEFINED');
4919: oe_msg_pub.add;
4920: x_return_status := 'E';
4921: oe_debug_pub.add('Plan Id NOT FOUND');
4922: END IF;
4923:
4994: IF l_debug_level > 0 THEN
4995: oe_debug_pub.add( ' ERROR IN CALL TO get_supply_sources_local');
4996: END IF;
4997: fnd_message.set_name('MSC', x_err_mesg);
4998: oe_msg_pub.add;
4999:
5000: ELSE
5001:
5002: IF x_return_status IS NULL THEN
5052: END IF;
5053: x_return_status := 'E';
5054: x_error_mesg := 'MRP_ATP_NO_SOURCES';
5055: FND_MESSAGE.SET_NAME('MSC','MRP_ATP_NO_SOURCES');
5056: OE_MSG_PUB.Add;
5057: x_return_status := 'E';
5058:
5059: END IF; -- IF x_sources.organization_id.COUNT > 0
5060:
5073: IF nvl(x_return_status,'E') <> 'S' then
5074: IF l_debug_level > 0 THEN
5075: oe_debug_pub.add( 'DOING COUNT_AND_GET' ) ;
5076: END IF;
5077: oe_msg_pub.count_and_get(p_encoded=>fnd_api.G_TRUE,
5078: p_count => x_msg_count,
5079: p_data=>x_msg_data
5080: );
5081: IF l_debug_level > 0 THEN
5098: x_return_status := 'E';
5099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5100:
5101: -- Get message count and data
5102: OE_MSG_PUB.Count_And_Get
5103: ( p_count => x_msg_count
5104: , p_data => x_msg_data
5105: );
5106:
5103: ( p_count => x_msg_count
5104: , p_data => x_msg_data
5105: );
5106:
5107: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5108: OE_MSG_PUB.Add_Exc_Msg
5109: ( G_PKG_NAME,
5110: 'Get_Global_Availability');
5111: END IF;
5104: , p_data => x_msg_data
5105: );
5106:
5107: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5108: OE_MSG_PUB.Add_Exc_Msg
5109: ( G_PKG_NAME,
5110: 'Get_Global_Availability');
5111: END IF;
5112: