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
728: END IF;
729:
730:
731: EXCEPTION
732: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
733: oe_debug_pub.add('Unexp Error, Load_MRP_Request');
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: WHEN OTHERS THEN
736: oe_debug_pub.add('Others Error, Load_MRP_Request');
730:
731: EXCEPTION
732: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
733: oe_debug_pub.add('Unexp Error, Load_MRP_Request');
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: WHEN OTHERS THEN
736: oe_debug_pub.add('Others Error, Load_MRP_Request');
737: oe_debug_pub.add(substr(sqlerrm,1,240));
738: OE_BULK_MSG_PUB.Add_Exc_Msg
738: OE_BULK_MSG_PUB.Add_Exc_Msg
739: ( G_PKG_NAME
740: , 'Load_MRP_Request'
741: );
742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
743: END Load_MRP_Request;
744:
745: PROCEDURE Update_Line_Rec
746: (p_line_index IN NUMBER
989:
990: END IF;
991:
992: EXCEPTION
993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
994: IF l_debug_level > 0 THEN
995: oe_debug_pub.add( 'UNEXP ERROR , Update_Line_Rec' ) ;
996: END IF;
997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
994: IF l_debug_level > 0 THEN
995: oe_debug_pub.add( 'UNEXP ERROR , Update_Line_Rec' ) ;
996: END IF;
997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: WHEN OTHERS THEN
999: IF l_debug_level > 0 THEN
1000: oe_debug_pub.add( 'OTHERS ERROR , Update_Line_Rec' ) ;
1001: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1003: OE_BULK_MSG_PUB.Add_Exc_Msg
1004: ( G_PKG_NAME
1005: , 'Update_Line_Rec'
1006: );
1007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1008: END Update_Line_Rec;
1009:
1010: PROCEDURE Update_MRP_Results
1011: (p_x_atp_rec IN OUT NOCOPY MRP_ATP_PUB.ATP_Rec_Typ
1051: ---------------------------------------------------------------------
1052: Insert_Error_Messages(p_line_rec);
1053:
1054: EXCEPTION
1055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1056: IF l_debug_level > 0 THEN
1057: oe_debug_pub.add( 'UNEXP ERROR , UPDATE_MRP_RESULTS' ) ;
1058: END IF;
1059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1056: IF l_debug_level > 0 THEN
1057: oe_debug_pub.add( 'UNEXP ERROR , UPDATE_MRP_RESULTS' ) ;
1058: END IF;
1059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1060: WHEN OTHERS THEN
1061: IF l_debug_level > 0 THEN
1062: oe_debug_pub.add( 'OTHERS ERROR , UPDATE_MRP_RESULTS' ) ;
1063: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1065: OE_BULK_MSG_PUB.Add_Exc_Msg
1066: ( G_PKG_NAME
1067: , 'Update_MRP_Results'
1068: );
1069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1070: END Update_MRP_Results;
1071:
1072:
1073: ---------------------------------------------------------------------
1121: Inactive_Demand_Scheduling(
1122: p_line_rec => p_line_rec
1123: ,x_return_status => x_return_status);
1124:
1125: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1128: RAISE FND_API.G_EXC_ERROR;
1129: END IF;
1122: p_line_rec => p_line_rec
1123: ,x_return_status => x_return_status);
1124:
1125: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1128: RAISE FND_API.G_EXC_ERROR;
1129: END IF;
1130:
1123: ,x_return_status => x_return_status);
1124:
1125: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1128: RAISE FND_API.G_EXC_ERROR;
1129: END IF;
1130:
1131: ELSE -- Existing code
1124:
1125: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1128: RAISE FND_API.G_EXC_ERROR;
1129: END IF;
1130:
1131: ELSE -- Existing code
1132: -------------------------------------------------------------------
1187: END IF;
1188:
1189: FND_FILE.PUT_LINE(FND_FILE.LOG,'Time spent in MRP Call is (sec) '||((l_end_time-l_start_time)/100));
1190:
1191: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1193: END IF;
1194:
1195:
1188:
1189: FND_FILE.PUT_LINE(FND_FILE.LOG,'Time spent in MRP Call is (sec) '||((l_end_time-l_start_time)/100));
1190:
1191: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1193: END IF;
1194:
1195:
1196: -------------------------------------------------------------------
1206: oe_debug_pub.add( 'Exiting SCHEDULE_ORDERS' ) ;
1207: END IF;
1208:
1209: EXCEPTION
1210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1211: IF l_debug_level > 0 THEN
1212: oe_debug_pub.add( 'UNEXP ERROR , SCHEDULE_ORDERS' ) ;
1213: END IF;
1214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1211: IF l_debug_level > 0 THEN
1212: oe_debug_pub.add( 'UNEXP ERROR , SCHEDULE_ORDERS' ) ;
1213: END IF;
1214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1215: WHEN OTHERS THEN
1216: IF l_debug_level > 0 THEN
1217: oe_debug_pub.add( 'OTHERS ERROR , SCHEDULE_ORDERS' ) ;
1218: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1220: OE_BULK_MSG_PUB.Add_Exc_Msg
1221: ( G_PKG_NAME
1222: , 'Schedule_Orders'
1223: );
1224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1225: END Schedule_Orders;
1226: -- Pack J
1227: /*-----------------------------------------------------------------------------
1228: Function Name : Get_Date_Type