DBA Data[Home] [Help]

APPS.OE_DS_PVT dependencies on FND_API

Line 279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

275: OE_MSG_PUB.Add;
276: IF l_debug_level > 0 THEN
277: oe_debug_pub.add( 'Unable to find the sales order identifier in dropshipreceive()'||sqlerrm , 1 ) ;
278: END IF;
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END;
281:
282: ---------------------------------------
283: -- Changes for Enhanced Drop Shipments

Line 417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

413: WHEN NO_DATA_FOUND THEN
414: IF l_debug_level > 0 THEN
415: oe_debug_pub.add( 'SQL: Fail to retrieve the receiving information '||sqlerrm , 1 ) ;
416: END IF;
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: WHEN OTHERS THEN
419: IF l_debug_level > 0 THEN
420: oe_debug_pub.add( 'Error while retrieving receiving information '||sqlerrm , 1 ) ;
421: END IF;

Line 422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

418: WHEN OTHERS THEN
419: IF l_debug_level > 0 THEN
420: oe_debug_pub.add( 'Error while retrieving receiving information '||sqlerrm , 1 ) ;
421: END IF;
422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
423: END;
424:
425: IF l_debug_level > 0 THEN
426: oe_debug_pub.add( 'Ordered uom code => '||L_ORDER_UOM , 5 ) ;

Line 594: IF l_return_status = FND_API.G_RET_STS_ERROR then

590: ,x_return_status => l_return_status
591: ,p_transfer_lpn_id => l_transfer_lpn_id);
592: -- bug 3544019
593:
594: IF l_return_status = FND_API.G_RET_STS_ERROR then
595: IF l_debug_level > 0 THEN
596: oe_debug_pub.add('Call to Create Reservation returned expected error '||sqlerrm,1) ;
597: END IF;
598: RAISE FND_API.G_EXC_ERROR;

Line 598: RAISE FND_API.G_EXC_ERROR;

594: IF l_return_status = FND_API.G_RET_STS_ERROR then
595: IF l_debug_level > 0 THEN
596: oe_debug_pub.add('Call to Create Reservation returned expected error '||sqlerrm,1) ;
597: END IF;
598: RAISE FND_API.G_EXC_ERROR;
599: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
600: IF l_debug_level > 0 THEN
601: oe_debug_pub.add('Call to Create Reservation returned unexpected error '||sqlerrm , 1 ) ;
602: END IF;

Line 599: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

595: IF l_debug_level > 0 THEN
596: oe_debug_pub.add('Call to Create Reservation returned expected error '||sqlerrm,1) ;
597: END IF;
598: RAISE FND_API.G_EXC_ERROR;
599: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
600: IF l_debug_level > 0 THEN
601: oe_debug_pub.add('Call to Create Reservation returned unexpected error '||sqlerrm , 1 ) ;
602: END IF;
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

599: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
600: IF l_debug_level > 0 THEN
601: oe_debug_pub.add('Call to Create Reservation returned unexpected error '||sqlerrm , 1 ) ;
602: END IF;
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
606: ELSE
607: IF l_debug_level > 0 THEN

Line 655: IF l_return_status = FND_API.G_RET_STS_ERROR then

651: x_return_status => l_return_status);
652: IF l_debug_level > 0 THEN
653: oe_debug_pub.add('After calling decrement inventory for opm: ' || l_return_status,1) ;
654: END IF;
655: IF l_return_status = FND_API.G_RET_STS_ERROR then
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;

Line 656: RAISE FND_API.G_EXC_ERROR;

652: IF l_debug_level > 0 THEN
653: oe_debug_pub.add('After calling decrement inventory for opm: ' || l_return_status,1) ;
654: END IF;
655: IF l_return_status = FND_API.G_RET_STS_ERROR then
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660: ElSE */

Line 657: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

653: oe_debug_pub.add('After calling decrement inventory for opm: ' || l_return_status,1) ;
654: END IF;
655: IF l_return_status = FND_API.G_RET_STS_ERROR then
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660: ElSE */
661: IF l_debug_level > 0 THEN

Line 658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

654: END IF;
655: IF l_return_status = FND_API.G_RET_STS_ERROR then
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660: ElSE */
661: IF l_debug_level > 0 THEN
662: oe_debug_pub.add( 'Calling decrement inventory()' , 1 ) ;

Line 689: IF l_return_status = FND_API.G_RET_STS_ERROR then

685: IF l_debug_level > 0 THEN
686: oe_debug_pub.add( 'After calling decrement inventory : ' || l_return_status,1) ;
687: END IF;
688:
689: IF l_return_status = FND_API.G_RET_STS_ERROR then
690: IF l_debug_level > 0 THEN
691: oe_debug_pub.add( 'Call to decrementinventory() returned expected error '||sqlerrm,1) ;
692: END IF;
693: RAISE FND_API.G_EXC_ERROR;

Line 693: RAISE FND_API.G_EXC_ERROR;

689: IF l_return_status = FND_API.G_RET_STS_ERROR then
690: IF l_debug_level > 0 THEN
691: oe_debug_pub.add( 'Call to decrementinventory() returned expected error '||sqlerrm,1) ;
692: END IF;
693: RAISE FND_API.G_EXC_ERROR;
694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add( 'Call to decrementinventory() returned unexpected error '||sqlerrm , 1 ) ;
697: END IF;

Line 694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

690: IF l_debug_level > 0 THEN
691: oe_debug_pub.add( 'Call to decrementinventory() returned expected error '||sqlerrm,1) ;
692: END IF;
693: RAISE FND_API.G_EXC_ERROR;
694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add( 'Call to decrementinventory() returned unexpected error '||sqlerrm , 1 ) ;
697: END IF;
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add( 'Call to decrementinventory() returned unexpected error '||sqlerrm , 1 ) ;
697: END IF;
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
699: END IF; -- IF l_return_status = FND_API.G_RET_STS_ERROR then -- INVCONV
700: --END IF; -- INVCONV
701: END IF;
702:

Line 699: END IF; -- IF l_return_status = FND_API.G_RET_STS_ERROR then -- INVCONV

695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add( 'Call to decrementinventory() returned unexpected error '||sqlerrm , 1 ) ;
697: END IF;
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
699: END IF; -- IF l_return_status = FND_API.G_RET_STS_ERROR then -- INVCONV
700: --END IF; -- INVCONV
701: END IF;
702:
703: FETCH transaction_info INTO

Line 732: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

728: ,p_line_rec => l_line_rec
729: ,x_return_status => l_return_status
730: );
731:
732: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
733: IF l_debug_level > 0 THEN
734: oe_debug_pub.add('Call to process order returned unexpected error '||sqlerrm , 1 ) ;
735: END IF;
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

732: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
733: IF l_debug_level > 0 THEN
734: oe_debug_pub.add('Call to process order returned unexpected error '||sqlerrm , 1 ) ;
735: END IF;
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
738: IF l_debug_level > 0 THEN
739: oe_debug_pub.add('Call to process order returned expected error '||sqlerrm , 1 ) ;
740: END IF;

Line 737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

733: IF l_debug_level > 0 THEN
734: oe_debug_pub.add('Call to process order returned unexpected error '||sqlerrm , 1 ) ;
735: END IF;
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
738: IF l_debug_level > 0 THEN
739: oe_debug_pub.add('Call to process order returned expected error '||sqlerrm , 1 ) ;
740: END IF;
741: RAISE FND_API.G_EXC_ERROR;

Line 741: RAISE FND_API.G_EXC_ERROR;

737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
738: IF l_debug_level > 0 THEN
739: oe_debug_pub.add('Call to process order returned expected error '||sqlerrm , 1 ) ;
740: END IF;
741: RAISE FND_API.G_EXC_ERROR;
742: END IF;
743:
744: /* Commented for MOAC
745: IF l_so_ou_id <> l_po_ou_id THEN

Line 769: WHEN FND_API.G_EXC_ERROR THEN

765:
766: RETURN TRUE;
767:
768: EXCEPTION
769: WHEN FND_API.G_EXC_ERROR THEN
770: IF l_debug_level > 0 THEN
771: oe_debug_pub.add( 'Exiting dropshipreceive with exp. error => '||sqlerrm , 1 ) ;
772: END IF;
773: OE_MSG_PUB.Save_API_Messages(); -- bug 4393738

Line 777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

773: OE_MSG_PUB.Save_API_Messages(); -- bug 4393738
774: OE_DEBUG_PUB.dumpdebug;
775: OE_DEBUG_PUB.Debug_Off;
776: RETURN FALSE;
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: IF l_debug_level > 0 THEN
779: oe_debug_pub.add( 'Exiting dropshipreceive with unexp. error => '||sqlerrm , 1 ) ;
780: END IF;
781: OE_MSG_PUB.Save_API_Messages(); -- bug 4393738

Line 883: --l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

879: v_serial_number VARCHAR2(30);
880: v_serial_number_temp VARCHAR2(30);
881: l_msg_count NUMBER;
882: l_msg_data VARCHAR2(2000);
883: --l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
884: l_transaction_interface_id NUMBER := null;
885: l_transaction_header_id NUMBER := p_transaction_header_id;
886: l_transaction_source_id NUMBER ; /* sales_order_id */
887: l_converted_qty NUMBER; -- Bug-2311061

Line 908: x_return_status := FND_API.G_RET_STS_SUCCESS;

904: END IF;
905:
906: -- bug 5357879
907: SAVEPOINT DECREMENT_INV;
908: x_return_status := FND_API.G_RET_STS_SUCCESS;
909:
910: profile_values.oe_source_code := FND_PROFILE.VALUE('ONT_SOURCE_CODE');
911: profile_values.user_id := FND_GLOBAL.USER_ID;
912: profile_values.login_id := FND_GLOBAL.LOGIN_ID;

Line 943: x_msg_data => l_msg_data) <> FND_API.G_RET_STS_SUCCESS

939: x_concat_segs => l_concat_segs,
940: x_concat_ids => l_concat_ids,
941: x_concat_descrs => l_concat_descrs,
942: x_msg_count => l_msg_count,
943: x_msg_data => l_msg_data) <> FND_API.G_RET_STS_SUCCESS
944: THEN
945:
946: l_trans_acc := NULL;
947: END IF;

Line 1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1182: IF l_debug_level > 0 THEN
1183: oe_debug_pub.add( 'Failed inserting into mtl_serial_numbers_interface' , 1 ) ;
1184: END IF;
1185: -- bug 5357879
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: ROLLBACK TO DECREMENT_INV;
1188:
1189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1190: END;

Line 1189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1185: -- bug 5357879
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: ROLLBACK TO DECREMENT_INV;
1188:
1189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1190: END;
1191:
1192: /* Update the column group_mark_id with line_id, so that
1193: this serial number will not be used by another transaction

Line 1218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1214: oe_debug_pub.add( 'Updating serial numbers failed '||sqlerrm , 1 ) ;
1215: END IF;
1216:
1217: -- bug 5357879
1218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1219: ROLLBACK TO DECREMENT_INV;
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221:
1222: END;

Line 1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1216:
1217: -- bug 5357879
1218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1219: ROLLBACK TO DECREMENT_INV;
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221:
1222: END;
1223: END IF;
1224: serial_counter := serial_counter + 1;

Line 1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1248: oe_debug_pub.add( 'Updating serial_transaction_temp_id failed '||sqlerrm , 1 ) ;
1249: END IF;
1250:
1251: -- bug 5357879
1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1253: ROLLBACK TO DECREMENT_INV;
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END;
1256:

Line 1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1250:
1251: -- bug 5357879
1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1253: ROLLBACK TO DECREMENT_INV;
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END;
1256:
1257: END IF;
1258:

Line 1635: x_return_status := FND_API.G_RET_STS_SUCCESS; -- bug 5357879

1631: p_transfer_lpn_id); -- 3544019
1632:
1633: IF l_debug_level > 0 THEN
1634: oe_debug_pub.add( 'Successfully inserted records in mtl interface table ' , 5 ) ;
1635: x_return_status := FND_API.G_RET_STS_SUCCESS; -- bug 5357879
1636: END IF;
1637: EXCEPTION WHEN OTHERS THEN
1638: IF l_debug_level > 0 THEN
1639: oe_debug_pub.add( 'Failed while inserting records in mtl_transactions_interface '||sqlerrm , 1 ) ;

Line 1643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 5357879

1639: oe_debug_pub.add( 'Failed while inserting records in mtl_transactions_interface '||sqlerrm , 1 ) ;
1640: oe_debug_pub.add( 'Sales order issue transaction will not occur ' , 1 ) ;
1641: END IF;
1642:
1643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 5357879
1644: ROLLBACK TO DECREMENT_INV;
1645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1646: END;
1647:

Line 1645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1641: END IF;
1642:
1643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 5357879
1644: ROLLBACK TO DECREMENT_INV;
1645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1646: END;
1647:
1648: -- Calling this API for immediate decrement of inventory
1649:

Line 1744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1740: WHEN NO_DATA_FOUND THEN
1741: IF l_debug_level > 0 THEN
1742: oe_debug_pub.add( 'UNABLE TO LOCATE ORDER TYPE ID IN DROPSHIPRECEIVE ( ) '||sqlerrm , 1 ) ;
1743: END IF;
1744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1745: END;
1746:
1747: IF l_debug_level > 0 THEN
1748: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 2 ) ;

Line 1927: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

1923: l_concat_descrs VARCHAR2(2000);
1924: l_transaction_date DATE;
1925: l_msg_count NUMBER;
1926: l_msg_data VARCHAR2(2000);
1927: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1928: l_transaction_interface_id NUMBER := null;
1929: l_transaction_header_id NUMBER := p_transaction_header_id;
1930: l_opm_item_id NUMBER;
1931: l_opm_item_no VARCHAR2(32);

Line 2027: x_msg_data => l_msg_data) <> FND_API.G_RET_STS_SUCCESS

2023: x_concat_segs => l_concat_segs,
2024: x_concat_ids => l_concat_ids,
2025: x_concat_descrs => l_concat_descrs,
2026: x_msg_count => l_msg_count,
2027: x_msg_data => l_msg_data) <> FND_API.G_RET_STS_SUCCESS
2028: THEN */
2029: /* 1517431, If workflow fails to generate distribution acct,
2030: populate as null */
2031:

Line 2108: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)

2104: , x_OPM_UOM => l_opm_trx_uom
2105: , x_return_status => l_return_status
2106: , x_msg_count => l_msg_count
2107: , x_msg_data => l_msg_data);
2108: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2109: THEN
2110: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
2111: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_trx_uom);
2112: FND_MSG_PUB.Add;

Line 2113: RAISE FND_API.G_EXC_ERROR;

2109: THEN
2110: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
2111: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_trx_uom);
2112: FND_MSG_PUB.Add;
2113: RAISE FND_API.G_EXC_ERROR;
2114: ELSE
2115: IF l_debug_level > 0 THEN
2116: oe_debug_pub.add( ' OPM TRX UOM='||L_OPM_TRX_UOM||'.' , 1 ) ;
2117: END IF;

Line 2145: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2141: , x_msg_data => l_msg_data
2142: ) ;
2143: END IF;
2144:
2145: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2146: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
2147: return_status='|| x_return_status||', x_msg_count='|| l_msg_count||'.');
2148: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
2149: FND_MESSAGE.Set_Token('BY_PROC','OE_DROPSHIP_RCV.OPM_TRANSACTION');

Line 2152: raise FND_API.G_EXC_ERROR;

2148: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
2149: FND_MESSAGE.Set_Token('BY_PROC','OE_DROPSHIP_RCV.OPM_TRANSACTION');
2150: FND_MESSAGE.Set_Token('WHERE','Create_transaction');
2151: FND_MSG_PUB.Add;
2152: raise FND_API.G_EXC_ERROR;
2153: END IF;
2154:
2155: IF l_debug_level > 0 THEN
2156: oe_debug_pub.add( 'EXITING DECREMENT INVENTORY' ) ;

Line 2207: l_reservation_rec.reservation_id := fnd_api.g_miss_num; -- cannot know

2203: END IF;
2204:
2205: -- Populate inventory record structure before calling reservation
2206:
2207: l_reservation_rec.reservation_id := fnd_api.g_miss_num; -- cannot know
2208: l_reservation_rec.requirement_date := p_line_rec.schedule_ship_date;
2209: l_reservation_rec.organization_id := p_line_rec.ship_from_org_id;
2210: l_reservation_rec.inventory_item_id := p_line_rec.inventory_item_id;
2211: l_reservation_rec.demand_source_type_id := INV_RESERVATION_GLOBAL.G_SOURCE_TYPE_OE;

Line 2283: , p_init_msg_lst => FND_API.G_TRUE

2279:
2280: -- Inv_quantity_tree_grp.clear_quantity_cache;
2281: Inv_quantity_tree_pvt.mark_all_for_refresh
2282: ( p_api_version_number => 1.0
2283: , p_init_msg_lst => FND_API.G_TRUE
2284: , x_return_status => l_return_status
2285: , x_msg_count => l_msg_count
2286: , x_msg_data => l_msg_data);
2287:

Line 2288: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2284: , x_return_status => l_return_status
2285: , x_msg_count => l_msg_count
2286: , x_msg_data => l_msg_data);
2287:
2288: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2289: oe_msg_pub.transfer_msg_stack;
2290: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
2291: for I in 1..l_msg_count loop
2292: l_msg_data := OE_MSG_PUB.Get(I,'F');

Line 2297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2293: IF l_debug_level > 0 THEN
2294: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2295: END IF;
2296: end loop;
2297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299: oe_msg_pub.transfer_msg_stack;
2300: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
2301: for I in 1..l_msg_count loop

Line 2298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

2294: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2295: END IF;
2296: end loop;
2297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299: oe_msg_pub.transfer_msg_stack;
2300: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
2301: for I in 1..l_msg_count loop
2302: l_msg_data := OE_MSG_PUB.Get(I,'F');

Line 2307: RAISE FND_API.G_EXC_ERROR;

2303: IF l_debug_level > 0 THEN
2304: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2305: END IF;
2306: end loop;
2307: RAISE FND_API.G_EXC_ERROR;
2308: END IF;
2309:
2310: IF l_debug_level > 0 THEN
2311: oe_debug_pub.add( 'Calling inv to reserve quantity : ' || p_qty_to_be_reserved , 1 ) ;

Line 2317: , p_init_msg_lst => FND_API.G_TRUE

2313: END IF;
2314:
2315: Inv_reservation_pub.create_reservation
2316: ( p_api_version_number => 1.0
2317: , p_init_msg_lst => FND_API.G_TRUE
2318: , x_return_status => l_return_status
2319: , x_msg_count => l_msg_count
2320: , x_msg_data => l_msg_data
2321: , p_rsv_rec => l_reservation_rec

Line 2324: , p_partial_reservation_flag => FND_API.G_FALSE

2320: , x_msg_data => l_msg_data
2321: , p_rsv_rec => l_reservation_rec
2322: , p_serial_number => l_dummy_sn
2323: , x_serial_number => l_dummy_sn
2324: , p_partial_reservation_flag => FND_API.G_FALSE
2325: , p_force_reservation_flag => FND_API.G_FALSE
2326: , p_validation_flag => FND_API.G_TRUE
2327: , p_over_reservation_flag => 2 -- bug 4864453
2328: , x_quantity_reserved => l_quantity_reserved

Line 2325: , p_force_reservation_flag => FND_API.G_FALSE

2321: , p_rsv_rec => l_reservation_rec
2322: , p_serial_number => l_dummy_sn
2323: , x_serial_number => l_dummy_sn
2324: , p_partial_reservation_flag => FND_API.G_FALSE
2325: , p_force_reservation_flag => FND_API.G_FALSE
2326: , p_validation_flag => FND_API.G_TRUE
2327: , p_over_reservation_flag => 2 -- bug 4864453
2328: , x_quantity_reserved => l_quantity_reserved
2329: , x_secondary_quantity_reserved => l_quantity2_reserved -- INVCONV

Line 2326: , p_validation_flag => FND_API.G_TRUE

2322: , p_serial_number => l_dummy_sn
2323: , x_serial_number => l_dummy_sn
2324: , p_partial_reservation_flag => FND_API.G_FALSE
2325: , p_force_reservation_flag => FND_API.G_FALSE
2326: , p_validation_flag => FND_API.G_TRUE
2327: , p_over_reservation_flag => 2 -- bug 4864453
2328: , x_quantity_reserved => l_quantity_reserved
2329: , x_secondary_quantity_reserved => l_quantity2_reserved -- INVCONV
2330: , x_reservation_id => l_rsv_id

Line 2338: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2334: oe_debug_pub.add( 'Create reservation returns : ' || l_return_status , 1 ) ;
2335: oe_debug_pub.add( l_msg_data , 1 ) ;
2336: END IF;
2337:
2338: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2339: IF l_debug_level > 0 THEN
2340: oe_debug_pub.add( 'Reservation fails with unexpected error in dropshipreceive() : '||sqlerrm , 1 ) ;
2341: oe_debug_pub.add( 'Try receipt after setting sub/item non reservable' , 1 ) ;
2342: END IF;

Line 2352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2348: IF l_debug_level > 0 THEN
2349: oe_debug_pub.add(l_msg_data,1) ;
2350: END IF;
2351: end loop;
2352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2353:
2354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2355: IF l_debug_level > 0 THEN
2356: oe_debug_pub.add('reservation fails with expected error in dropshipreceive() : '||sqlerrm,1) ;

Line 2354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

2350: END IF;
2351: end loop;
2352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2353:
2354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2355: IF l_debug_level > 0 THEN
2356: oe_debug_pub.add('reservation fails with expected error in dropshipreceive() : '||sqlerrm,1) ;
2357: oe_debug_pub.add( 'Try receipt after setting sub/item non reservable' , 1 ) ;
2358: END IF;

Line 2367: RAISE FND_API.G_EXC_ERROR;

2363: IF l_debug_level > 0 THEN
2364: oe_debug_pub.add(l_msg_data,1) ;
2365: END IF;
2366: end loop;
2367: RAISE FND_API.G_EXC_ERROR;
2368: END IF;
2369:
2370: IF l_debug_level > 0 THEN
2371: oe_debug_pub.add( 'Successfully reserved quantity => '||l_quantity_reserved,1) ;

Line 2385: WHEN FND_API.G_EXC_ERROR THEN

2381: OE_DEBUG_PUB.Add('Exiting Create_Reservation ...',4);
2382: END IF;
2383: EXCEPTION
2384:
2385: WHEN FND_API.G_EXC_ERROR THEN
2386: IF l_debug_level > 0 THEN
2387: OE_DEBUG_PUB.Add('Expected Error in Create Reservation...',4);
2388: END IF;
2389:

Line 2390: x_return_status := FND_API.G_RET_STS_ERROR;

2386: IF l_debug_level > 0 THEN
2387: OE_DEBUG_PUB.Add('Expected Error in Create Reservation...',4);
2388: END IF;
2389:
2390: x_return_status := FND_API.G_RET_STS_ERROR;
2391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2392: IF l_debug_level > 0 THEN
2393: OE_DEBUG_PUB.Add('UnExpected Error in Create Reservation...'||sqlerrm,4);
2394: END IF;

Line 2391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2387: OE_DEBUG_PUB.Add('Expected Error in Create Reservation...',4);
2388: END IF;
2389:
2390: x_return_status := FND_API.G_RET_STS_ERROR;
2391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2392: IF l_debug_level > 0 THEN
2393: OE_DEBUG_PUB.Add('UnExpected Error in Create Reservation...'||sqlerrm,4);
2394: END IF;
2395:

Line 2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2392: IF l_debug_level > 0 THEN
2393: OE_DEBUG_PUB.Add('UnExpected Error in Create Reservation...'||sqlerrm,4);
2394: END IF;
2395:
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: WHEN OTHERS THEN
2398: IF l_debug_level > 0 THEN
2399: OE_DEBUG_PUB.Add('When Others in Create Reservation...'||sqlerrm,4);
2400: END IF;

Line 2402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2398: IF l_debug_level > 0 THEN
2399: OE_DEBUG_PUB.Add('When Others in Create Reservation...'||sqlerrm,4);
2400: END IF;
2401:
2402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2403:
2404: END Create_Reservation;
2405:
2406: -- bug 4393738

Line 2498: IF l_cal_tolr_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2494: x_return_status => l_cal_tolr_return_status,
2495: x_msg_count => l_msg_count,
2496: x_msg_data => l_msg_data);
2497:
2498: IF l_cal_tolr_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2499: IF l_debug_level > 0 THEN
2500: oe_debug_pub.add('OE_Shipping_Integration_PUB.Get_Tolerance returned Error', 1 ) ;
2501: END IF;
2502: x_return_status := FND_API.G_RET_STS_ERROR;

Line 2502: x_return_status := FND_API.G_RET_STS_ERROR;

2498: IF l_cal_tolr_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2499: IF l_debug_level > 0 THEN
2500: oe_debug_pub.add('OE_Shipping_Integration_PUB.Get_Tolerance returned Error', 1 ) ;
2501: END IF;
2502: x_return_status := FND_API.G_RET_STS_ERROR;
2503: return;
2504: END IF;
2505:
2506: -- If the qty received > the overship tolerance limit and the operation is

Line 2663: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2659: ,x_return_status => l_return_status
2660: ,x_msg_count => l_msg_count
2661: ,x_msg_data => l_msg_data);
2662:
2663: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2664: IF l_debug_level > 0 THEN
2665: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned unexpected error '||sqlerrm , 1 ) ;
2666: END IF;
2667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2663: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2664: IF l_debug_level > 0 THEN
2665: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned unexpected error '||sqlerrm , 1 ) ;
2666: END IF;
2667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2668: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2669: IF l_debug_level > 0 THEN
2670: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned expected error '||sqlerrm , 1 ) ;
2671: END IF;

Line 2668: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

2664: IF l_debug_level > 0 THEN
2665: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned unexpected error '||sqlerrm , 1 ) ;
2666: END IF;
2667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2668: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2669: IF l_debug_level > 0 THEN
2670: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned expected error '||sqlerrm , 1 ) ;
2671: END IF;
2672: RAISE FND_API.G_EXC_ERROR;

Line 2672: RAISE FND_API.G_EXC_ERROR;

2668: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2669: IF l_debug_level > 0 THEN
2670: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned expected error '||sqlerrm , 1 ) ;
2671: END IF;
2672: RAISE FND_API.G_EXC_ERROR;
2673: END IF;
2674:
2675: IF l_debug_level > 0 THEN
2676: oe_debug_pub.add('OEXVDSRB.pls: After Call_Ship_Confirm_New, return_status='|| l_return_status,1) ;

Line 2727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2723: WHEN OTHERS THEN
2724: IF l_debug_level > 0 THEN
2725: oe_debug_pub.add( 'Unexpected: line not found '||sqlerrm , 1 ) ;
2726: END IF;
2727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2728: END;
2729: -- Bug2344242 added following if condition
2730: IF l_new_line_id is NOT NULL THEN
2731: IF l_debug_level > 0 THEN

Line 2753: WHEN FND_API.G_EXC_ERROR THEN

2749: IF l_debug_level > 0 THEN
2750: OE_DEBUG_PUB.Add('Exiting Call Process Order...',4);
2751: END IF;
2752: EXCEPTION
2753: WHEN FND_API.G_EXC_ERROR THEN
2754: IF l_debug_level > 0 THEN
2755: OE_DEBUG_PUB.Add('Expected Error in Call Process Order...',4);
2756: END IF;
2757:

Line 2758: x_return_status := FND_API.G_RET_STS_ERROR;

2754: IF l_debug_level > 0 THEN
2755: OE_DEBUG_PUB.Add('Expected Error in Call Process Order...',4);
2756: END IF;
2757:
2758: x_return_status := FND_API.G_RET_STS_ERROR;
2759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2760: IF l_debug_level > 0 THEN
2761: OE_DEBUG_PUB.Add('UnExpected Error in Call Process Order...'||sqlerrm,4);
2762: END IF;

Line 2759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2755: OE_DEBUG_PUB.Add('Expected Error in Call Process Order...',4);
2756: END IF;
2757:
2758: x_return_status := FND_API.G_RET_STS_ERROR;
2759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2760: IF l_debug_level > 0 THEN
2761: OE_DEBUG_PUB.Add('UnExpected Error in Call Process Order...'||sqlerrm,4);
2762: END IF;
2763:

Line 2764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2760: IF l_debug_level > 0 THEN
2761: OE_DEBUG_PUB.Add('UnExpected Error in Call Process Order...'||sqlerrm,4);
2762: END IF;
2763:
2764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2765: WHEN OTHERS THEN
2766: IF l_debug_level > 0 THEN
2767: OE_DEBUG_PUB.Add('When Others in Call Process Order...'||sqlerrm,4);
2768: END IF;

Line 2770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2766: IF l_debug_level > 0 THEN
2767: OE_DEBUG_PUB.Add('When Others in Call Process Order...'||sqlerrm,4);
2768: END IF;
2769:
2770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2771:
2772: END Call_Process_Order;
2773:
2774: ------------------------------------------------------

Line 2872: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN

2868: , p_release_id => l_po_release_id --bug 5328526
2869: , p_mode => 'GET_STATUS'
2870: , x_po_status_rec => l_po_status_rec
2871: , x_return_status => l_return_status);
2872: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2873: l_cancel_flag := l_po_status_rec.cancel_flag(1);
2874: l_closed_code := l_po_status_rec.closed_code(1);
2875: IF l_debug_level > 0 THEN
2876: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);

Line 2880: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2876: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
2877: OE_DEBUG_PUB.Add('Cancel_flag : '|| l_cancel_flag, 2);
2878: OE_DEBUG_PUB.Add('Closed_code : '|| l_closed_code,2);
2879: END IF;
2880: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2883: RAISE FND_API.G_EXC_ERROR;
2884: END IF;

Line 2881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2877: OE_DEBUG_PUB.Add('Cancel_flag : '|| l_cancel_flag, 2);
2878: OE_DEBUG_PUB.Add('Closed_code : '|| l_closed_code,2);
2879: END IF;
2880: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2883: RAISE FND_API.G_EXC_ERROR;
2884: END IF;
2885:

Line 2882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

2878: OE_DEBUG_PUB.Add('Closed_code : '|| l_closed_code,2);
2879: END IF;
2880: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2883: RAISE FND_API.G_EXC_ERROR;
2884: END IF;
2885:
2886: END IF;

Line 2883: RAISE FND_API.G_EXC_ERROR;

2879: END IF;
2880: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2883: RAISE FND_API.G_EXC_ERROR;
2884: END IF;
2885:
2886: END IF;
2887:

Line 2967: IF NVL(l_line_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN

2963: BEGIN
2964:
2965: p_result := 0;
2966:
2967: IF NVL(l_line_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2968: RETURN;
2969: END IF;
2970:
2971: IF l_source_type_code <> 'EXTERNAL' OR

Line 2972: NVL(l_source_type_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN

2968: RETURN;
2969: END IF;
2970:
2971: IF l_source_type_code <> 'EXTERNAL' OR
2972: NVL(l_source_type_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
2973: RETURN;
2974: END IF;
2975:
2976: IF (l_ato_line_id IS NOT NULL AND

Line 2977: l_ato_line_id <> FND_API.G_MISS_NUM) AND

2973: RETURN;
2974: END IF;
2975:
2976: IF (l_ato_line_id IS NOT NULL AND
2977: l_ato_line_id <> FND_API.G_MISS_NUM) AND
2978: NOT (l_item_type_code in('OPTION','STANDARD') AND
2979: l_ato_line_id = l_line_id ) THEN
2980:
2981: IF l_debug_level > 0 THEN

Line 2996: l_operation <> FND_API.G_MISS_CHAR) AND

2992:
2993: ELSE
2994:
2995: IF (l_operation IS NOT NULL AND
2996: l_operation <> FND_API.G_MISS_CHAR) AND
2997: l_operation <> OE_GLOBALS.G_OPR_CREATE THEN
2998:
2999: SELECT po_header_id, po_release_id
3000: INTO l_po_header_id, l_po_release_id --bug 5328526

Line 3028: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN

3024: , p_mode => 'GET_STATUS'
3025: , x_po_status_rec => l_po_status_rec
3026: , x_return_status => l_return_status);
3027:
3028: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3029: l_autorization_status := l_po_status_rec.authorization_status(1);
3030:
3031: IF l_debug_level > 0 THEN
3032: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);

Line 3035: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3031: IF l_debug_level > 0 THEN
3032: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
3033: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
3034: END IF;
3035: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3037: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3038: RAISE FND_API.G_EXC_ERROR;
3039: END IF;

Line 3036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3032: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
3033: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
3034: END IF;
3035: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3037: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3038: RAISE FND_API.G_EXC_ERROR;
3039: END IF;
3040:

Line 3037: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

3033: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
3034: END IF;
3035: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3037: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3038: RAISE FND_API.G_EXC_ERROR;
3039: END IF;
3040:
3041: END IF;

Line 3038: RAISE FND_API.G_EXC_ERROR;

3034: END IF;
3035: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3037: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3038: RAISE FND_API.G_EXC_ERROR;
3039: END IF;
3040:
3041: END IF;
3042:

Line 3098: IF NVL(l_line_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN

3094: BEGIN
3095:
3096: p_result := 0;
3097:
3098: IF NVL(l_line_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
3099: RETURN;
3100: END IF;
3101:
3102: IF l_source_type_code <> 'EXTERNAL' OR

Line 3103: NVL(l_source_type_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN

3099: RETURN;
3100: END IF;
3101:
3102: IF l_source_type_code <> 'EXTERNAL' OR
3103: NVL(l_source_type_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
3104: RETURN;
3105: END IF;
3106:
3107: