eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OE_DS_PVT dependencies on FND_API

Line 284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

Line 424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

420: WHEN NO_DATA_FOUND THEN
421: IF l_debug_level > 0 THEN
422: oe_debug_pub.add( 'SQL: Fail to retrieve the receiving information '||sqlerrm , 1 ) ;
423: END IF;
424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
425: WHEN OTHERS THEN
426: IF l_debug_level > 0 THEN
427: oe_debug_pub.add( 'Error while retrieving receiving information '||sqlerrm , 1 ) ;
428: END IF;

Line 429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

425: WHEN OTHERS THEN
426: IF l_debug_level > 0 THEN
427: oe_debug_pub.add( 'Error while retrieving receiving information '||sqlerrm , 1 ) ;
428: END IF;
429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
430: END;
431:
432: IF l_debug_level > 0 THEN
433: oe_debug_pub.add( 'Ordered uom code => '||L_ORDER_UOM , 5 ) ;

Line 618: IF l_return_status = FND_API.G_RET_STS_ERROR then

614: ,p_prim_reservation_qty => l_primary_quantity -- 12794393
615: );
616: -- bug 3544019
617:
618: IF l_return_status = FND_API.G_RET_STS_ERROR then
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add('Call to Create Reservation returned expected error '||sqlerrm,1) ;
621: END IF;
622: RAISE FND_API.G_EXC_ERROR;

Line 622: RAISE FND_API.G_EXC_ERROR;

618: IF l_return_status = FND_API.G_RET_STS_ERROR then
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add('Call to Create Reservation returned expected error '||sqlerrm,1) ;
621: END IF;
622: RAISE FND_API.G_EXC_ERROR;
623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
624: IF l_debug_level > 0 THEN
625: oe_debug_pub.add('Call to Create Reservation returned unexpected error '||sqlerrm , 1 ) ;
626: END IF;

Line 623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add('Call to Create Reservation returned expected error '||sqlerrm,1) ;
621: END IF;
622: RAISE FND_API.G_EXC_ERROR;
623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
624: IF l_debug_level > 0 THEN
625: oe_debug_pub.add('Call to Create Reservation returned unexpected error '||sqlerrm , 1 ) ;
626: END IF;
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
624: IF l_debug_level > 0 THEN
625: oe_debug_pub.add('Call to Create Reservation returned unexpected error '||sqlerrm , 1 ) ;
626: END IF;
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
628: END IF;
629:
630: ELSE
631: IF l_debug_level > 0 THEN

Line 679: IF l_return_status = FND_API.G_RET_STS_ERROR then

675: x_return_status => l_return_status);
676: IF l_debug_level > 0 THEN
677: oe_debug_pub.add('After calling decrement inventory for opm: ' || l_return_status,1) ;
678: END IF;
679: IF l_return_status = FND_API.G_RET_STS_ERROR then
680: RAISE FND_API.G_EXC_ERROR;
681: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
683: END IF;

Line 680: RAISE FND_API.G_EXC_ERROR;

676: IF l_debug_level > 0 THEN
677: oe_debug_pub.add('After calling decrement inventory for opm: ' || l_return_status,1) ;
678: END IF;
679: IF l_return_status = FND_API.G_RET_STS_ERROR then
680: RAISE FND_API.G_EXC_ERROR;
681: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
683: END IF;
684: ElSE */

Line 681: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

677: oe_debug_pub.add('After calling decrement inventory for opm: ' || l_return_status,1) ;
678: END IF;
679: IF l_return_status = FND_API.G_RET_STS_ERROR then
680: RAISE FND_API.G_EXC_ERROR;
681: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
683: END IF;
684: ElSE */
685: IF l_debug_level > 0 THEN

Line 682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

678: END IF;
679: IF l_return_status = FND_API.G_RET_STS_ERROR then
680: RAISE FND_API.G_EXC_ERROR;
681: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
683: END IF;
684: ElSE */
685: IF l_debug_level > 0 THEN
686: oe_debug_pub.add( 'Calling decrement inventory()' , 1 ) ;

Line 713: IF l_return_status = FND_API.G_RET_STS_ERROR then

709: IF l_debug_level > 0 THEN
710: oe_debug_pub.add( 'After calling decrement inventory : ' || l_return_status,1) ;
711: END IF;
712:
713: IF l_return_status = FND_API.G_RET_STS_ERROR then
714: IF l_debug_level > 0 THEN
715: oe_debug_pub.add( 'Call to decrementinventory() returned expected error '||sqlerrm,1) ;
716: END IF;
717: RAISE FND_API.G_EXC_ERROR;

Line 717: RAISE FND_API.G_EXC_ERROR;

713: IF l_return_status = FND_API.G_RET_STS_ERROR then
714: IF l_debug_level > 0 THEN
715: oe_debug_pub.add( 'Call to decrementinventory() returned expected error '||sqlerrm,1) ;
716: END IF;
717: RAISE FND_API.G_EXC_ERROR;
718: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
719: IF l_debug_level > 0 THEN
720: oe_debug_pub.add( 'Call to decrementinventory() returned unexpected error '||sqlerrm , 1 ) ;
721: END IF;

Line 718: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

714: IF l_debug_level > 0 THEN
715: oe_debug_pub.add( 'Call to decrementinventory() returned expected error '||sqlerrm,1) ;
716: END IF;
717: RAISE FND_API.G_EXC_ERROR;
718: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
719: IF l_debug_level > 0 THEN
720: oe_debug_pub.add( 'Call to decrementinventory() returned unexpected error '||sqlerrm , 1 ) ;
721: END IF;
722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

718: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
719: IF l_debug_level > 0 THEN
720: oe_debug_pub.add( 'Call to decrementinventory() returned unexpected error '||sqlerrm , 1 ) ;
721: END IF;
722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
723: END IF; -- IF l_return_status = FND_API.G_RET_STS_ERROR then -- INVCONV
724: --END IF; -- INVCONV
725: END IF;
726:

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

719: IF l_debug_level > 0 THEN
720: oe_debug_pub.add( 'Call to decrementinventory() returned unexpected error '||sqlerrm , 1 ) ;
721: END IF;
722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
723: END IF; -- IF l_return_status = FND_API.G_RET_STS_ERROR then -- INVCONV
724: --END IF; -- INVCONV
725: END IF;
726:
727: FETCH transaction_info INTO

Line 757: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

753: ,p_line_rec => l_line_rec
754: ,x_return_status => l_return_status
755: );
756:
757: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
758: IF l_debug_level > 0 THEN
759: oe_debug_pub.add('Call to process order returned unexpected error '||sqlerrm , 1 ) ;
760: END IF;
761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

757: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
758: IF l_debug_level > 0 THEN
759: oe_debug_pub.add('Call to process order returned unexpected error '||sqlerrm , 1 ) ;
760: END IF;
761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
762: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
763: IF l_debug_level > 0 THEN
764: oe_debug_pub.add('Call to process order returned expected error '||sqlerrm , 1 ) ;
765: END IF;

Line 762: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

758: IF l_debug_level > 0 THEN
759: oe_debug_pub.add('Call to process order returned unexpected error '||sqlerrm , 1 ) ;
760: END IF;
761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
762: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
763: IF l_debug_level > 0 THEN
764: oe_debug_pub.add('Call to process order returned expected error '||sqlerrm , 1 ) ;
765: END IF;
766: RAISE FND_API.G_EXC_ERROR;

Line 766: RAISE FND_API.G_EXC_ERROR;

762: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
763: IF l_debug_level > 0 THEN
764: oe_debug_pub.add('Call to process order returned expected error '||sqlerrm , 1 ) ;
765: END IF;
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
768:
769: /* Commented for MOAC
770: IF l_so_ou_id <> l_po_ou_id THEN

Line 794: WHEN FND_API.G_EXC_ERROR THEN

790:
791: RETURN TRUE;
792:
793: EXCEPTION
794: WHEN FND_API.G_EXC_ERROR THEN
795: IF l_debug_level > 0 THEN
796: oe_debug_pub.add( 'Exiting dropshipreceive with exp. error => '||sqlerrm , 1 ) ;
797: END IF;
798: OE_MSG_PUB.Save_API_Messages(); -- bug 4393738

Line 802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

798: OE_MSG_PUB.Save_API_Messages(); -- bug 4393738
799: OE_DEBUG_PUB.dumpdebug;
800: OE_DEBUG_PUB.Debug_Off;
801: RETURN FALSE;
802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
803: IF l_debug_level > 0 THEN
804: oe_debug_pub.add( 'Exiting dropshipreceive with unexp. error => '||sqlerrm , 1 ) ;
805: END IF;
806: OE_MSG_PUB.Save_API_Messages(); -- bug 4393738

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

904: v_serial_number VARCHAR2(30);
905: v_serial_number_temp VARCHAR2(30);
906: l_msg_count NUMBER;
907: l_msg_data VARCHAR2(2000);
908: --l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
909: l_transaction_interface_id NUMBER := null;
910: l_transaction_header_id NUMBER := p_transaction_header_id;
911: l_transaction_source_id NUMBER ; /* sales_order_id */
912: l_converted_qty NUMBER; -- Bug-2311061

Line 933: x_return_status := FND_API.G_RET_STS_SUCCESS;

929: END IF;
930:
931: -- bug 5357879
932: SAVEPOINT DECREMENT_INV;
933: x_return_status := FND_API.G_RET_STS_SUCCESS;
934:
935: profile_values.oe_source_code := FND_PROFILE.VALUE('ONT_SOURCE_CODE');
936: profile_values.user_id := FND_GLOBAL.USER_ID;
937: profile_values.login_id := FND_GLOBAL.LOGIN_ID;

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

964: x_concat_segs => l_concat_segs,
965: x_concat_ids => l_concat_ids,
966: x_concat_descrs => l_concat_descrs,
967: x_msg_count => l_msg_count,
968: x_msg_data => l_msg_data) <> FND_API.G_RET_STS_SUCCESS
969: THEN
970:
971: l_trans_acc := NULL;
972: END IF;

Line 1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'Failed inserting into mtl_serial_numbers_interface' , 1 ) ;
1209: END IF;
1210: -- bug 5357879
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: ROLLBACK TO DECREMENT_INV;
1213:
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END;

Line 1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1210: -- bug 5357879
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: ROLLBACK TO DECREMENT_INV;
1213:
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END;
1216:
1217: /* Update the column group_mark_id with line_id, so that
1218: this serial number will not be used by another transaction

Line 1243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1239: oe_debug_pub.add( 'Updating serial numbers failed '||sqlerrm , 1 ) ;
1240: END IF;
1241:
1242: -- bug 5357879
1243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1244: ROLLBACK TO DECREMENT_INV;
1245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1246:
1247: END;

Line 1245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1241:
1242: -- bug 5357879
1243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1244: ROLLBACK TO DECREMENT_INV;
1245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1246:
1247: END;
1248: END IF;
1249: serial_counter := serial_counter + 1;

Line 1277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1273: oe_debug_pub.add( 'Updating serial_transaction_temp_id failed '||sqlerrm , 1 ) ;
1274: END IF;
1275:
1276: -- bug 5357879
1277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1278: ROLLBACK TO DECREMENT_INV;
1279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1280: END;
1281:

Line 1279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1275:
1276: -- bug 5357879
1277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1278: ROLLBACK TO DECREMENT_INV;
1279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1280: END;
1281:
1282: END IF;
1283:

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

1656: p_transfer_lpn_id); -- 3544019
1657:
1658: IF l_debug_level > 0 THEN
1659: oe_debug_pub.add( 'Successfully inserted records in mtl interface table ' , 5 ) ;
1660: x_return_status := FND_API.G_RET_STS_SUCCESS; -- bug 5357879
1661: END IF;
1662: EXCEPTION WHEN OTHERS THEN
1663: IF l_debug_level > 0 THEN
1664: oe_debug_pub.add( 'Failed while inserting records in mtl_transactions_interface '||sqlerrm , 1 ) ;

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

1664: oe_debug_pub.add( 'Failed while inserting records in mtl_transactions_interface '||sqlerrm , 1 ) ;
1665: oe_debug_pub.add( 'Sales order issue transaction will not occur ' , 1 ) ;
1666: END IF;
1667:
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 5357879
1669: ROLLBACK TO DECREMENT_INV;
1670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1671: END;
1672:

Line 1670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1666: END IF;
1667:
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 5357879
1669: ROLLBACK TO DECREMENT_INV;
1670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1671: END;
1672:
1673: -- Calling this API for immediate decrement of inventory
1674:

Line 1769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1765: WHEN NO_DATA_FOUND THEN
1766: IF l_debug_level > 0 THEN
1767: oe_debug_pub.add( 'UNABLE TO LOCATE ORDER TYPE ID IN DROPSHIPRECEIVE ( ) '||sqlerrm , 1 ) ;
1768: END IF;
1769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1770: END;
1771:
1772: IF l_debug_level > 0 THEN
1773: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 2 ) ;

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

1948: l_concat_descrs VARCHAR2(2000);
1949: l_transaction_date DATE;
1950: l_msg_count NUMBER;
1951: l_msg_data VARCHAR2(2000);
1952: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1953: l_transaction_interface_id NUMBER := null;
1954: l_transaction_header_id NUMBER := p_transaction_header_id;
1955: l_opm_item_id NUMBER;
1956: l_opm_item_no VARCHAR2(32);

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

2048: x_concat_segs => l_concat_segs,
2049: x_concat_ids => l_concat_ids,
2050: x_concat_descrs => l_concat_descrs,
2051: x_msg_count => l_msg_count,
2052: x_msg_data => l_msg_data) <> FND_API.G_RET_STS_SUCCESS
2053: THEN */
2054: /* 1517431, If workflow fails to generate distribution acct,
2055: populate as null */
2056:

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

2129: , x_OPM_UOM => l_opm_trx_uom
2130: , x_return_status => l_return_status
2131: , x_msg_count => l_msg_count
2132: , x_msg_data => l_msg_data);
2133: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2134: THEN
2135: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
2136: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_trx_uom);
2137: FND_MSG_PUB.Add;

Line 2138: RAISE FND_API.G_EXC_ERROR;

2134: THEN
2135: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
2136: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_trx_uom);
2137: FND_MSG_PUB.Add;
2138: RAISE FND_API.G_EXC_ERROR;
2139: ELSE
2140: IF l_debug_level > 0 THEN
2141: oe_debug_pub.add( ' OPM TRX UOM='||L_OPM_TRX_UOM||'.' , 1 ) ;
2142: END IF;

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

2166: , x_msg_data => l_msg_data
2167: ) ;
2168: END IF;
2169:
2170: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2171: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
2172: return_status='|| x_return_status||', x_msg_count='|| l_msg_count||'.');
2173: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
2174: FND_MESSAGE.Set_Token('BY_PROC','OE_DROPSHIP_RCV.OPM_TRANSACTION');

Line 2177: raise FND_API.G_EXC_ERROR;

2173: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
2174: FND_MESSAGE.Set_Token('BY_PROC','OE_DROPSHIP_RCV.OPM_TRANSACTION');
2175: FND_MESSAGE.Set_Token('WHERE','Create_transaction');
2176: FND_MSG_PUB.Add;
2177: raise FND_API.G_EXC_ERROR;
2178: END IF;
2179:
2180: IF l_debug_level > 0 THEN
2181: oe_debug_pub.add( 'EXITING DECREMENT INVENTORY' ) ;

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

2229: END IF;
2230:
2231: -- Populate inventory record structure before calling reservation
2232:
2233: l_reservation_rec.reservation_id := fnd_api.g_miss_num; -- cannot know
2234: l_reservation_rec.requirement_date := p_line_rec.schedule_ship_date;
2235: l_reservation_rec.organization_id := p_line_rec.ship_from_org_id;
2236: l_reservation_rec.inventory_item_id := p_line_rec.inventory_item_id;
2237: l_reservation_rec.demand_source_type_id := INV_RESERVATION_GLOBAL.G_SOURCE_TYPE_OE;

Line 2309: , p_init_msg_lst => FND_API.G_TRUE

2305:
2306: -- Inv_quantity_tree_grp.clear_quantity_cache;
2307: Inv_quantity_tree_pvt.mark_all_for_refresh
2308: ( p_api_version_number => 1.0
2309: , p_init_msg_lst => FND_API.G_TRUE
2310: , x_return_status => l_return_status
2311: , x_msg_count => l_msg_count
2312: , x_msg_data => l_msg_data);
2313:

Line 2314: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2310: , x_return_status => l_return_status
2311: , x_msg_count => l_msg_count
2312: , x_msg_data => l_msg_data);
2313:
2314: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2315: oe_msg_pub.transfer_msg_stack;
2316: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
2317: for I in 1..l_msg_count loop
2318: l_msg_data := OE_MSG_PUB.Get(I,'F');

Line 2323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2319: IF l_debug_level > 0 THEN
2320: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2321: END IF;
2322: end loop;
2323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2325: oe_msg_pub.transfer_msg_stack;
2326: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
2327: for I in 1..l_msg_count loop

Line 2324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

2320: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2321: END IF;
2322: end loop;
2323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2325: oe_msg_pub.transfer_msg_stack;
2326: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
2327: for I in 1..l_msg_count loop
2328: l_msg_data := OE_MSG_PUB.Get(I,'F');

Line 2333: RAISE FND_API.G_EXC_ERROR;

2329: IF l_debug_level > 0 THEN
2330: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2331: END IF;
2332: end loop;
2333: RAISE FND_API.G_EXC_ERROR;
2334: END IF;
2335:
2336: --16429262
2337: IF l_debug_level > 0 THEN

Line 2350: , p_init_msg_lst => FND_API.G_TRUE

2346: END IF;
2347:
2348: Inv_reservation_pub.create_reservation
2349: ( p_api_version_number => 1.0
2350: , p_init_msg_lst => FND_API.G_TRUE
2351: , x_return_status => l_return_status
2352: , x_msg_count => l_msg_count
2353: , x_msg_data => l_msg_data
2354: , p_rsv_rec => l_reservation_rec

Line 2357: , p_partial_reservation_flag => FND_API.G_FALSE

2353: , x_msg_data => l_msg_data
2354: , p_rsv_rec => l_reservation_rec
2355: , p_serial_number => l_dummy_sn
2356: , x_serial_number => l_dummy_sn
2357: , p_partial_reservation_flag => FND_API.G_FALSE
2358: , p_force_reservation_flag => FND_API.G_FALSE
2359: , p_validation_flag => FND_API.G_TRUE
2360: , p_over_reservation_flag => 2 -- bug 4864453
2361: , x_quantity_reserved => l_quantity_reserved

Line 2358: , p_force_reservation_flag => FND_API.G_FALSE

2354: , p_rsv_rec => l_reservation_rec
2355: , p_serial_number => l_dummy_sn
2356: , x_serial_number => l_dummy_sn
2357: , p_partial_reservation_flag => FND_API.G_FALSE
2358: , p_force_reservation_flag => FND_API.G_FALSE
2359: , p_validation_flag => FND_API.G_TRUE
2360: , p_over_reservation_flag => 2 -- bug 4864453
2361: , x_quantity_reserved => l_quantity_reserved
2362: , x_secondary_quantity_reserved => l_quantity2_reserved -- INVCONV

Line 2359: , p_validation_flag => FND_API.G_TRUE

2355: , p_serial_number => l_dummy_sn
2356: , x_serial_number => l_dummy_sn
2357: , p_partial_reservation_flag => FND_API.G_FALSE
2358: , p_force_reservation_flag => FND_API.G_FALSE
2359: , p_validation_flag => FND_API.G_TRUE
2360: , p_over_reservation_flag => 2 -- bug 4864453
2361: , x_quantity_reserved => l_quantity_reserved
2362: , x_secondary_quantity_reserved => l_quantity2_reserved -- INVCONV
2363: , x_reservation_id => l_rsv_id

Line 2378: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2374: END IF;
2375: G_DS_SOISSUE_FLAG := 'N';
2376: --16429262
2377:
2378: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2379: IF l_debug_level > 0 THEN
2380: oe_debug_pub.add( 'Reservation fails with unexpected error in dropshipreceive() : '||sqlerrm , 1 ) ;
2381: oe_debug_pub.add( 'Try receipt after setting sub/item non reservable' , 1 ) ;
2382: END IF;

Line 2392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2388: IF l_debug_level > 0 THEN
2389: oe_debug_pub.add(l_msg_data,1) ;
2390: END IF;
2391: end loop;
2392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2393:
2394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2395: IF l_debug_level > 0 THEN
2396: oe_debug_pub.add('reservation fails with expected error in dropshipreceive() : '||sqlerrm,1) ;

Line 2394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

2390: END IF;
2391: end loop;
2392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2393:
2394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2395: IF l_debug_level > 0 THEN
2396: oe_debug_pub.add('reservation fails with expected error in dropshipreceive() : '||sqlerrm,1) ;
2397: oe_debug_pub.add( 'Try receipt after setting sub/item non reservable' , 1 ) ;
2398: END IF;

Line 2407: RAISE FND_API.G_EXC_ERROR;

2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add(l_msg_data,1) ;
2405: END IF;
2406: end loop;
2407: RAISE FND_API.G_EXC_ERROR;
2408: END IF;
2409:
2410: IF l_debug_level > 0 THEN
2411: oe_debug_pub.add( 'Successfully reserved quantity => '||l_quantity_reserved,1) ;

Line 2425: WHEN FND_API.G_EXC_ERROR THEN

2421: OE_DEBUG_PUB.Add('Exiting Create_Reservation ...',4);
2422: END IF;
2423: EXCEPTION
2424:
2425: WHEN FND_API.G_EXC_ERROR THEN
2426: IF l_debug_level > 0 THEN
2427: OE_DEBUG_PUB.Add('Expected Error in Create Reservation...',4);
2428: END IF;
2429:

Line 2430: x_return_status := FND_API.G_RET_STS_ERROR;

2426: IF l_debug_level > 0 THEN
2427: OE_DEBUG_PUB.Add('Expected Error in Create Reservation...',4);
2428: END IF;
2429:
2430: x_return_status := FND_API.G_RET_STS_ERROR;
2431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2432: IF l_debug_level > 0 THEN
2433: OE_DEBUG_PUB.Add('UnExpected Error in Create Reservation...'||sqlerrm,4);
2434: END IF;

Line 2431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2427: OE_DEBUG_PUB.Add('Expected Error in Create Reservation...',4);
2428: END IF;
2429:
2430: x_return_status := FND_API.G_RET_STS_ERROR;
2431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2432: IF l_debug_level > 0 THEN
2433: OE_DEBUG_PUB.Add('UnExpected Error in Create Reservation...'||sqlerrm,4);
2434: END IF;
2435:

Line 2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2432: IF l_debug_level > 0 THEN
2433: OE_DEBUG_PUB.Add('UnExpected Error in Create Reservation...'||sqlerrm,4);
2434: END IF;
2435:
2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2437: WHEN OTHERS THEN
2438: IF l_debug_level > 0 THEN
2439: OE_DEBUG_PUB.Add('When Others in Create Reservation...'||sqlerrm,4);
2440: END IF;

Line 2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2438: IF l_debug_level > 0 THEN
2439: OE_DEBUG_PUB.Add('When Others in Create Reservation...'||sqlerrm,4);
2440: END IF;
2441:
2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2443:
2444: END Create_Reservation;
2445:
2446: -- bug 4393738

Line 2538: IF l_cal_tolr_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2534: x_return_status => l_cal_tolr_return_status,
2535: x_msg_count => l_msg_count,
2536: x_msg_data => l_msg_data);
2537:
2538: IF l_cal_tolr_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2539: IF l_debug_level > 0 THEN
2540: oe_debug_pub.add('OE_Shipping_Integration_PUB.Get_Tolerance returned Error', 1 ) ;
2541: END IF;
2542: x_return_status := FND_API.G_RET_STS_ERROR;

Line 2542: x_return_status := FND_API.G_RET_STS_ERROR;

2538: IF l_cal_tolr_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2539: IF l_debug_level > 0 THEN
2540: oe_debug_pub.add('OE_Shipping_Integration_PUB.Get_Tolerance returned Error', 1 ) ;
2541: END IF;
2542: x_return_status := FND_API.G_RET_STS_ERROR;
2543: return;
2544: END IF;
2545:
2546: -- If the qty received > the overship tolerance limit and the operation is

Line 2703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2699: ,x_return_status => l_return_status
2700: ,x_msg_count => l_msg_count
2701: ,x_msg_data => l_msg_data);
2702:
2703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2704: IF l_debug_level > 0 THEN
2705: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned unexpected error '||sqlerrm , 1 ) ;
2706: END IF;
2707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2704: IF l_debug_level > 0 THEN
2705: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned unexpected error '||sqlerrm , 1 ) ;
2706: END IF;
2707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2708: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2709: IF l_debug_level > 0 THEN
2710: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned expected error '||sqlerrm , 1 ) ;
2711: END IF;

Line 2708: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

2704: IF l_debug_level > 0 THEN
2705: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned unexpected error '||sqlerrm , 1 ) ;
2706: END IF;
2707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2708: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2709: IF l_debug_level > 0 THEN
2710: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned expected error '||sqlerrm , 1 ) ;
2711: END IF;
2712: RAISE FND_API.G_EXC_ERROR;

Line 2712: RAISE FND_API.G_EXC_ERROR;

2708: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2709: IF l_debug_level > 0 THEN
2710: oe_debug_pub.add('OEXVDSRB.pls: Call_Ship_Confirm_New returned expected error '||sqlerrm , 1 ) ;
2711: END IF;
2712: RAISE FND_API.G_EXC_ERROR;
2713: END IF;
2714:
2715: IF l_debug_level > 0 THEN
2716: oe_debug_pub.add('OEXVDSRB.pls: After Call_Ship_Confirm_New, return_status='|| l_return_status,1) ;

Line 2767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2763: WHEN OTHERS THEN
2764: IF l_debug_level > 0 THEN
2765: oe_debug_pub.add( 'Unexpected: line not found '||sqlerrm , 1 ) ;
2766: END IF;
2767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2768: END;
2769: -- Bug2344242 added following if condition
2770: IF l_new_line_id is NOT NULL THEN
2771: IF l_debug_level > 0 THEN

Line 2793: WHEN FND_API.G_EXC_ERROR THEN

2789: IF l_debug_level > 0 THEN
2790: OE_DEBUG_PUB.Add('Exiting Call Process Order...',4);
2791: END IF;
2792: EXCEPTION
2793: WHEN FND_API.G_EXC_ERROR THEN
2794: IF l_debug_level > 0 THEN
2795: OE_DEBUG_PUB.Add('Expected Error in Call Process Order...',4);
2796: END IF;
2797:

Line 2798: x_return_status := FND_API.G_RET_STS_ERROR;

2794: IF l_debug_level > 0 THEN
2795: OE_DEBUG_PUB.Add('Expected Error in Call Process Order...',4);
2796: END IF;
2797:
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2800: IF l_debug_level > 0 THEN
2801: OE_DEBUG_PUB.Add('UnExpected Error in Call Process Order...'||sqlerrm,4);
2802: END IF;

Line 2799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2795: OE_DEBUG_PUB.Add('Expected Error in Call Process Order...',4);
2796: END IF;
2797:
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2800: IF l_debug_level > 0 THEN
2801: OE_DEBUG_PUB.Add('UnExpected Error in Call Process Order...'||sqlerrm,4);
2802: END IF;
2803:

Line 2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2800: IF l_debug_level > 0 THEN
2801: OE_DEBUG_PUB.Add('UnExpected Error in Call Process Order...'||sqlerrm,4);
2802: END IF;
2803:
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2805: WHEN OTHERS THEN
2806: IF l_debug_level > 0 THEN
2807: OE_DEBUG_PUB.Add('When Others in Call Process Order...'||sqlerrm,4);
2808: END IF;

Line 2810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2806: IF l_debug_level > 0 THEN
2807: OE_DEBUG_PUB.Add('When Others in Call Process Order...'||sqlerrm,4);
2808: END IF;
2809:
2810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2811:
2812: END Call_Process_Order;
2813:
2814: ------------------------------------------------------

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

2908: , p_release_id => l_po_release_id --bug 5328526
2909: , p_mode => 'GET_STATUS'
2910: , x_po_status_rec => l_po_status_rec
2911: , x_return_status => l_return_status);
2912: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2913: l_cancel_flag := l_po_status_rec.cancel_flag(1);
2914: l_closed_code := l_po_status_rec.closed_code(1);
2915: IF l_debug_level > 0 THEN
2916: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);

Line 2920: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2916: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
2917: OE_DEBUG_PUB.Add('Cancel_flag : '|| l_cancel_flag, 2);
2918: OE_DEBUG_PUB.Add('Closed_code : '|| l_closed_code,2);
2919: END IF;
2920: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2922: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;

Line 2921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2917: OE_DEBUG_PUB.Add('Cancel_flag : '|| l_cancel_flag, 2);
2918: OE_DEBUG_PUB.Add('Closed_code : '|| l_closed_code,2);
2919: END IF;
2920: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2922: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;
2925:

Line 2922: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

2918: OE_DEBUG_PUB.Add('Closed_code : '|| l_closed_code,2);
2919: END IF;
2920: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2922: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;
2925:
2926: END IF;

Line 2923: RAISE FND_API.G_EXC_ERROR;

2919: END IF;
2920: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2922: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;
2925:
2926: END IF;
2927:

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

3003: BEGIN
3004:
3005: p_result := 0;
3006:
3007: IF NVL(l_line_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
3008: RETURN;
3009: END IF;
3010:
3011: IF l_source_type_code <> 'EXTERNAL' OR

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

3008: RETURN;
3009: END IF;
3010:
3011: IF l_source_type_code <> 'EXTERNAL' OR
3012: NVL(l_source_type_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
3013: RETURN;
3014: END IF;
3015:
3016: IF (l_ato_line_id IS NOT NULL AND

Line 3017: l_ato_line_id <> FND_API.G_MISS_NUM) AND

3013: RETURN;
3014: END IF;
3015:
3016: IF (l_ato_line_id IS NOT NULL AND
3017: l_ato_line_id <> FND_API.G_MISS_NUM) AND
3018: NOT (l_item_type_code in('OPTION','STANDARD','INCLUDED') AND --9775352
3019: l_ato_line_id = l_line_id ) THEN
3020:
3021: IF l_debug_level > 0 THEN

Line 3036: l_operation <> FND_API.G_MISS_CHAR) AND

3032:
3033: ELSE
3034:
3035: IF (l_operation IS NOT NULL AND
3036: l_operation <> FND_API.G_MISS_CHAR) AND
3037: l_operation <> OE_GLOBALS.G_OPR_CREATE THEN
3038:
3039: SELECT po_header_id, po_release_id
3040: INTO l_po_header_id, l_po_release_id --bug 5328526

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

3064: , p_mode => 'GET_STATUS'
3065: , x_po_status_rec => l_po_status_rec
3066: , x_return_status => l_return_status);
3067:
3068: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3069: l_autorization_status := l_po_status_rec.authorization_status(1);
3070:
3071: IF l_debug_level > 0 THEN
3072: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);

Line 3075: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3071: IF l_debug_level > 0 THEN
3072: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
3073: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
3074: END IF;
3075: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3077: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3078: RAISE FND_API.G_EXC_ERROR;
3079: END IF;

Line 3076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3072: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
3073: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
3074: END IF;
3075: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3077: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3078: RAISE FND_API.G_EXC_ERROR;
3079: END IF;
3080:

Line 3077: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

3073: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
3074: END IF;
3075: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3077: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3078: RAISE FND_API.G_EXC_ERROR;
3079: END IF;
3080:
3081: END IF;

Line 3078: RAISE FND_API.G_EXC_ERROR;

3074: END IF;
3075: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3077: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3078: RAISE FND_API.G_EXC_ERROR;
3079: END IF;
3080:
3081: END IF;
3082:

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

3134: BEGIN
3135:
3136: p_result := 0;
3137:
3138: IF NVL(l_line_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
3139: RETURN;
3140: END IF;
3141:
3142: IF l_source_type_code <> 'EXTERNAL' OR

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

3139: RETURN;
3140: END IF;
3141:
3142: IF l_source_type_code <> 'EXTERNAL' OR
3143: NVL(l_source_type_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
3144: RETURN;
3145: END IF;
3146:
3147: