[Home] [Help]
135: profile_values.request_id := 0;
136: profile_values.application_id := 0;
137: profile_values.program_id := 0;
138:
139: OE_MSG_PUB.set_msg_context(
140: p_entity_code => 'LINE'
141: ,p_entity_id => p_line_id
142: ,p_line_id => p_line_id);
143:
156: /* we are reusing the OE_INVOICING_HOLD message here,
157: the message is generic, not invoicing specific */
158:
159: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_HOLD');
160: OE_MSG_PUB.ADD;
161: x_return_status := FND_API.G_RET_STS_ERROR;
162: x_result_out := OE_GLOBALS.G_WFR_ON_HOLD;
163: IF l_debug_level > 0 THEN
164: oe_debug_pub.add( 'INV IFACE: ACTIVITY ON HOLD , EXITING' , 5 ) ;
191: x_return_status := FND_API.G_RET_STS_ERROR;
192: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
193: END IF;
194:
195: OE_MSG_PUB.update_msg_context(
196: p_header_id => l_line_rec.header_id
197: ,p_orig_sys_document_ref => l_line_rec.orig_sys_document_ref
198: ,p_orig_sys_document_line_ref => l_line_rec.orig_sys_line_ref
199: ,p_orig_sys_shipment_ref => l_line_rec.orig_sys_shipment_ref
230: IF l_debug_level > 0 THEN
231: oe_debug_pub.add( 'INV IFACE: INV IFACE INCOMPLETE - NO WAREHOUSE' , 5 ) ;
232: END IF;
233: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_NO_WAREHOUSE');
234: OE_MSG_PUB.ADD;
235: x_return_status := FND_API.G_RET_STS_ERROR;
236: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
237: RETURN;
238: END IF;
325: END IF;
326: /* ER 8419373
327: -- give a message here
328: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_SERIAL');
329: OE_MSG_PUB.ADD;
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
332: RETURN;
333: */
334: --Serial items with serial generation Sales Order Issue not supported
335: IF nvl(l_serial_code, 1) = 6 THEN
336: -- give a message here
337: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_SER_SO_ISSUE');
338: OE_MSG_PUB.ADD;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
341: RETURN;
342: END IF;
558: IF l_revision = 'Y' THEN
559: IF l_rsv_tbl(I).revision is null THEN
560: -- give a message
561: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_REVISION');
562: OE_MSG_PUB.ADD;
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
565: ROLLBACK TO INVENTORY_INTERFACE;
566: RETURN;
574: IF ( l_rsv_tbl(I).lot_number is null ) THEN -- INVCONV
575: -- AND l_process_org = 0 ) THEN -- For discrete INVCONV
576: -- give a message
577: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_LOT');
578: OE_MSG_PUB.ADD;
579: x_return_status := FND_API.G_RET_STS_ERROR;
580: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
581: ROLLBACK TO INVENTORY_INTERFACE;
582: RETURN;
587: --if the item is serial controlled then serial number table should not be empty
588: IF l_serial = 'Y' and l_serial_tbl_count = 0 THEN
589: -- give a message
590: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_SER');
591: OE_MSG_PUB.ADD;
592: x_return_status := FND_API.G_RET_STS_ERROR;
593: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
594: ROLLBACK TO INVENTORY_INTERFACE;
595: RETURN;
651:
652: IF l_rsv_tbl(I).subinventory_code is null THEN
653: -- give a message
654: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_RSV_SUB');
655: OE_MSG_PUB.ADD;
656: x_return_status := FND_API.G_RET_STS_ERROR;
657: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
658: ROLLBACK TO INVENTORY_INTERFACE;
659: RETURN;
729: IF l_debug_level > 0 THEN
730: oe_debug_pub.add( 'INV IFACE: ITEM UNDER LOCATOR CONTROL' , 5 ) ;
731: END IF;
732: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_LOCATOR');
733: OE_MSG_PUB.ADD;
734: x_return_status := FND_API.G_RET_STS_ERROR;
735: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
736: ROLLBACK TO INVENTORY_INTERFACE;
737: RETURN;
853: -- i.e. if the reserved quantity is 10 then the serial number entered should also be 10
854: IF l_rsv_tbl(I).reservation_quantity <> l_rsv_serial_count THEN
855: -- give a message
856: FND_MESSAGE.SET_NAME('ONT','OE_QUANTITY_MISMATCH');
857: OE_MSG_PUB.ADD;
858: x_return_status := FND_API.G_RET_STS_ERROR;
859: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
860: ROLLBACK TO INVENTORY_INTERFACE;
861: RETURN;
1192: -- Give a message here
1193: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_SUB');
1194: -- message should say if item is under revision/lot/locator control, use the
1195: -- reservation form to reserve first
1196: OE_MSG_PUB.ADD;
1197: x_return_status := FND_API.G_RET_STS_ERROR;
1198: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
1199: ROLLBACK TO INVENTORY_INTERFACE;
1200: RETURN;
1278: oe_debug_pub.add( 'INV IFACE: ITEM UNDER SERIAL CONTORL , ERROR' , 5 ) ;
1279: END IF;
1280: -- give a message here
1281: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_SERIAL');
1282: OE_MSG_PUB.ADD;
1283: ELSE*/
1284: IF l_debug_level > 0 THEN
1285: oe_debug_pub.add( 'INV IFACE: ITEM UNDER REVISION/LOT/LOCATOR/SERIAL CONTROL AND NO RESERVATION EXISTS' , 5 ) ;
1286: END IF;
1285: oe_debug_pub.add( 'INV IFACE: ITEM UNDER REVISION/LOT/LOCATOR/SERIAL CONTROL AND NO RESERVATION EXISTS' , 5 ) ;
1286: END IF;
1287: -- Give a message here
1288: FND_MESSAGE.SET_NAME('ONT', 'OE_INV_IFACE_NO_RSV');
1289: OE_MSG_PUB.ADD;
1290: --END IF;
1291: x_return_status := FND_API.G_RET_STS_ERROR;
1292: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
1293: ROLLBACK TO INVENTORY_INTERFACE;
1665: END IF;
1666:
1667: EXCEPTION
1668: WHEN OTHERS THEN
1669: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1670: THEN
1671: OE_MSG_PUB.Add_Exc_Msg
1672: ( G_PKG_NAME
1673: , 'Inventory_Interface'
1667: EXCEPTION
1668: WHEN OTHERS THEN
1669: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1670: THEN
1671: OE_MSG_PUB.Add_Exc_Msg
1672: ( G_PKG_NAME
1673: , 'Inventory_Interface'
1674: );
1675: END IF;