94: AND m.lookup_type(+) = 'MTL_DEMAND_INTERFACE_ERRORS';
95: END LOOP;
96:
97: EXCEPTION
98: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
99: IF l_debug_level > 0 THEN
100: oe_debug_pub.add( 'UNEXP ERROR , INSERT_ERROR_MESSAGE' ) ;
101: END IF;
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
98: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
99: IF l_debug_level > 0 THEN
100: oe_debug_pub.add( 'UNEXP ERROR , INSERT_ERROR_MESSAGE' ) ;
101: END IF;
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: WHEN OTHERS THEN
104: IF l_debug_level > 0 THEN
105: oe_debug_pub.add( 'OTHERS ERROR , INSERT_ERROR_MESSAGES' ) ;
106: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
108: OE_BULK_MSG_PUB.Add_Exc_Msg
109: ( G_PKG_NAME
110: , 'Insert_Error_Messages'
111: );
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: END Insert_Error_Messages;
114:
115: --BYPASS ATP
116: PROCEDURE Inactive_Demand_Scheduling
127: BEGIN
128: IF l_debug_level > 0 THEN
129: oe_debug_pub.add( 'ENTERING INACTIVE_DEMAND_SCHEDULING' , 1 ) ;
130: END IF;
131: x_return_status := FND_API.G_RET_STS_SUCCESS;
132: FOR I IN 1..p_line_rec.line_id.count
133: LOOP
134: oe_bulk_msg_pub.set_msg_context
135: ( p_entity_code => 'LINE'
146: l_order_date_type_code :=
147: NVL(Get_Date_Type(p_line_rec.header_id(I)), 'SHIP');
148: IF l_order_date_type_code = 'SHIP' THEN
149: IF p_line_rec.schedule_ship_date(I) IS NOT NULL AND
150: p_line_rec.schedule_ship_date(I) <> FND_API.G_MISS_DATE THEN
151: -- If the user provides a ship_date, or changes the existing, use it
152: p_line_rec.schedule_arrival_date(I) :=
153: p_line_rec.schedule_ship_date(I);
154:
158: p_line_rec.schedule_arrival_date(I) := p_line_rec.request_date(I);
159: END IF;
160: ELSE -- Arrival
161: IF p_line_rec.schedule_arrival_date(I) IS NOT NULL AND
162: p_line_rec.schedule_arrival_date(I) <> FND_API.G_MISS_DATE THEN
163: -- If the user provides a arrival_date, or changes the existing, use it
164: p_line_rec.schedule_ship_date(I) :=
165: p_line_rec.schedule_arrival_date(I);
166: ELSE
260: p_x_atp_rec.attribute_05.extend(p_count);
261: p_x_atp_rec.substitution_typ_code.extend(p_count); --BUG 4494602
262: p_x_atp_rec.req_item_detail_flag.extend(p_count); --BUG 4494602
263: EXCEPTION
264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
265: IF l_debug_level > 0 THEN
266: oe_debug_pub.add( 'UNEXP ERROR , EXTEND_MRP_REC' ) ;
267: END IF;
268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
265: IF l_debug_level > 0 THEN
266: oe_debug_pub.add( 'UNEXP ERROR , EXTEND_MRP_REC' ) ;
267: END IF;
268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
269: WHEN OTHERS THEN
270: IF l_debug_level > 0 THEN
271: oe_debug_pub.add( 'OTHERS ERROR , EXTEND_MRP_REC' ) ;
272: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
274: OE_BULK_MSG_PUB.Add_Exc_Msg
275: ( G_PKG_NAME
276: , 'Extend_MRP_Rec'
277: );
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: END Extend_MRP_Rec;
280:
281: FUNCTION Get_Lead_Time
282: (
465: oe_debug_pub.add('Exiting OE_BULK_SCHEDULE_UTIL.Add_MRP_Rec');
466: END IF;
467:
468: EXCEPTION
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470: IF l_debug_level > 0 THEN
471: oe_debug_pub.add( 'UNEXP ERROR , ADD_MRP_REC' ) ;
472: END IF;
473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470: IF l_debug_level > 0 THEN
471: oe_debug_pub.add( 'UNEXP ERROR , ADD_MRP_REC' ) ;
472: END IF;
473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
474: WHEN OTHERS THEN
475: IF l_debug_level > 0 THEN
476: oe_debug_pub.add( 'OTHERS ERROR , ADD_MRP_REC' ) ;
477: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
479: OE_BULK_MSG_PUB.Add_Exc_Msg
480: ( G_PKG_NAME
481: , 'Add_MRP_Rec'
482: );
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
484: END Add_MRP_Rec;
485:
486:
487: PROCEDURE Load_MRP_Request
523: --for bug 3675870
524: MSC_SATP_FUNC.Extend_Atp(p_atp_tab=>p_x_atp_rec,
525: x_return_status => l_return_status,
526: p_index => OE_BULK_ORDER_PVT.G_SCH_COUNT);
527: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
528: oe_debug_pub.add('Error while extending ATP record');
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: end if ;
531: p_x_atp_line_map_rec.extend(OE_BULK_ORDER_PVT.G_SCH_COUNT);
525: x_return_status => l_return_status,
526: p_index => OE_BULK_ORDER_PVT.G_SCH_COUNT);
527: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
528: oe_debug_pub.add('Error while extending ATP record');
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: end if ;
531: p_x_atp_line_map_rec.extend(OE_BULK_ORDER_PVT.G_SCH_COUNT);
532:
533: IF nvl(FND_PROFILE.VALUE('MRP_ATP_CALC_SD'),'N') = 'Y' THEN
729: END IF;
730:
731:
732: EXCEPTION
733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
734: oe_debug_pub.add('Unexp Error, Load_MRP_Request');
735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
736: WHEN OTHERS THEN
737: oe_debug_pub.add('Others Error, Load_MRP_Request');
731:
732: EXCEPTION
733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
734: oe_debug_pub.add('Unexp Error, Load_MRP_Request');
735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
736: WHEN OTHERS THEN
737: oe_debug_pub.add('Others Error, Load_MRP_Request');
738: oe_debug_pub.add(substr(sqlerrm,1,240));
739: OE_BULK_MSG_PUB.Add_Exc_Msg
739: OE_BULK_MSG_PUB.Add_Exc_Msg
740: ( G_PKG_NAME
741: , 'Load_MRP_Request'
742: );
743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
744: END Load_MRP_Request;
745:
746: PROCEDURE Update_Line_Rec
747: (p_line_index IN NUMBER
990:
991: END IF;
992:
993: EXCEPTION
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995: IF l_debug_level > 0 THEN
996: oe_debug_pub.add( 'UNEXP ERROR , Update_Line_Rec' ) ;
997: END IF;
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995: IF l_debug_level > 0 THEN
996: oe_debug_pub.add( 'UNEXP ERROR , Update_Line_Rec' ) ;
997: END IF;
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: WHEN OTHERS THEN
1000: IF l_debug_level > 0 THEN
1001: oe_debug_pub.add( 'OTHERS ERROR , Update_Line_Rec' ) ;
1002: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1004: OE_BULK_MSG_PUB.Add_Exc_Msg
1005: ( G_PKG_NAME
1006: , 'Update_Line_Rec'
1007: );
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: END Update_Line_Rec;
1010:
1011: PROCEDURE Update_MRP_Results
1012: (p_x_atp_rec IN OUT NOCOPY MRP_ATP_PUB.ATP_Rec_Typ
1052: ---------------------------------------------------------------------
1053: Insert_Error_Messages(p_line_rec);
1054:
1055: EXCEPTION
1056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1057: IF l_debug_level > 0 THEN
1058: oe_debug_pub.add( 'UNEXP ERROR , UPDATE_MRP_RESULTS' ) ;
1059: END IF;
1060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1057: IF l_debug_level > 0 THEN
1058: oe_debug_pub.add( 'UNEXP ERROR , UPDATE_MRP_RESULTS' ) ;
1059: END IF;
1060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1061: WHEN OTHERS THEN
1062: IF l_debug_level > 0 THEN
1063: oe_debug_pub.add( 'OTHERS ERROR , UPDATE_MRP_RESULTS' ) ;
1064: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1066: OE_BULK_MSG_PUB.Add_Exc_Msg
1067: ( G_PKG_NAME
1068: , 'Update_MRP_Results'
1069: );
1070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1071: END Update_MRP_Results;
1072:
1073:
1074: ---------------------------------------------------------------------
1122: Inactive_Demand_Scheduling(
1123: p_line_rec => p_line_rec
1124: ,x_return_status => x_return_status);
1125:
1126: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1123: p_line_rec => p_line_rec
1124: ,x_return_status => x_return_status);
1125:
1126: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131:
1124: ,x_return_status => x_return_status);
1125:
1126: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131:
1132: ELSE -- Existing code
1125:
1126: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131:
1132: ELSE -- Existing code
1133: -------------------------------------------------------------------
1188: END IF;
1189:
1190: FND_FILE.PUT_LINE(FND_FILE.LOG,'Time spent in MRP Call is (sec) '||((l_end_time-l_start_time)/100));
1191:
1192: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: END IF;
1195:
1196:
1189:
1190: FND_FILE.PUT_LINE(FND_FILE.LOG,'Time spent in MRP Call is (sec) '||((l_end_time-l_start_time)/100));
1191:
1192: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: END IF;
1195:
1196:
1197: -------------------------------------------------------------------
1207: oe_debug_pub.add( 'Exiting SCHEDULE_ORDERS' ) ;
1208: END IF;
1209:
1210: EXCEPTION
1211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1212: IF l_debug_level > 0 THEN
1213: oe_debug_pub.add( 'UNEXP ERROR , SCHEDULE_ORDERS' ) ;
1214: END IF;
1215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1212: IF l_debug_level > 0 THEN
1213: oe_debug_pub.add( 'UNEXP ERROR , SCHEDULE_ORDERS' ) ;
1214: END IF;
1215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1216: WHEN OTHERS THEN
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'OTHERS ERROR , SCHEDULE_ORDERS' ) ;
1219: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1221: OE_BULK_MSG_PUB.Add_Exc_Msg
1222: ( G_PKG_NAME
1223: , 'Schedule_Orders'
1224: );
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1226: END Schedule_Orders;
1227: -- Pack J
1228: /*-----------------------------------------------------------------------------
1229: Function Name : Get_Date_Type