[Home] [Help]
57: PROCEDURE rsv_interface_manager(
58: x_errbuf OUT NOCOPY VARCHAR2
59: , x_retcode OUT NOCOPY NUMBER
60: , p_api_version_number IN NUMBER DEFAULT 1.0
61: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
62: , p_form_mode IN VARCHAR2 DEFAULT 'N') as
63:
64: -- Constants
65: c_max_numof_lines constant number := 3;
109:
110: /*
111: ** Standard call to check for call compatibility
112: */
113: if not fnd_api.compatible_api_call(
114: c_api_version_number
115: , p_api_version_number
116: , c_api_name
117: , g_pkg_name) then
114: c_api_version_number
115: , p_api_version_number
116: , c_api_name
117: , g_pkg_name) then
118: raise fnd_api.g_exc_unexpected_error;
119: end if;
120:
121: /*
122: ** Initialize message list
120:
121: /*
122: ** Initialize message list
123: */
124: if fnd_api.to_boolean(p_init_msg_lst) then
125: fnd_msg_pub.initialize;
126: end if;
127:
128: /*
127:
128: /*
129: ** Initialize return status to success
130: */
131: l_return_status := fnd_api.g_ret_sts_success;
132:
133: if (p_form_mode in ('N','n')) then
134: fnd_message.set_name('INV', 'INV_RSV_MANAGER');
135: fnd_file.put_line(fnd_file.log,fnd_message.get);
187: -- , 'Y' /* Commit */
188: -- )
189: rsv_interface_batch_processor(
190: p_api_version_number => 1.0
191: , p_init_msg_lst => fnd_api.g_false
192: , p_reservation_batches => l_batch_arg
193: , p_process_mode => 3 /* Background */
194: , p_partial_batch_process_flag => 2 /* No Partial Processing */
195: , p_commit_flag => 'Y'/* Commit */
233: -- )
234:
235: rsv_interface_batch_processor(
236: p_api_version_number => 1.0
237: , p_init_msg_lst => fnd_api.g_false
238: , p_reservation_batches => l_batch_array_arg
239: , p_process_mode => 3 /* Background */
240: , p_partial_batch_process_flag => 2 /* No Partial Processing */
241: , p_commit_flag => 'Y'/* Commit */
298: -- )
299:
300: rsv_interface_batch_processor(
301: p_api_version_number => 1.0
302: , p_init_msg_lst => fnd_api.g_false
303: , p_reservation_batches => l_batch_array_arg
304: , p_process_mode => 3 /* Background */
305: , p_partial_batch_process_flag => 2 /* No Partial Processing */
306: , p_commit_flag => 'Y'/* Commit */
312:
313: l_conc_status := fnd_concurrent.set_completion_status('NORMAL','NORMAL');
314:
315: exception
316: when fnd_api.g_exc_error then
317: l_return_status := fnd_api.g_ret_sts_error;
318:
319: fnd_msg_pub.count_and_get(
320: p_count => l_msg_count
313: l_conc_status := fnd_concurrent.set_completion_status('NORMAL','NORMAL');
314:
315: exception
316: when fnd_api.g_exc_error then
317: l_return_status := fnd_api.g_ret_sts_error;
318:
319: fnd_msg_pub.count_and_get(
320: p_count => l_msg_count
321: , p_data => l_msg_data
326: end if;
327:
328: l_conc_status := fnd_concurrent.set_completion_status('ERROR','ERROR');
329:
330: when fnd_api.g_exc_unexpected_error then
331: l_return_status := fnd_api.g_ret_sts_unexp_error;
332:
333: fnd_msg_pub.count_and_get(
334: p_count => l_msg_count
327:
328: l_conc_status := fnd_concurrent.set_completion_status('ERROR','ERROR');
329:
330: when fnd_api.g_exc_unexpected_error then
331: l_return_status := fnd_api.g_ret_sts_unexp_error;
332:
333: fnd_msg_pub.count_and_get(
334: p_count => l_msg_count
335: , p_data => l_msg_data
341:
342: l_conc_status := fnd_concurrent.set_completion_status('ERROR','ERROR');
343:
344: when others then
345: l_return_status := fnd_api.g_ret_sts_unexp_error;
346:
347: if (fnd_msg_pub.check_msg_level
348: (fnd_msg_pub.g_msg_lvl_unexp_error))then
349: fnd_msg_pub.add_exc_msg(g_pkg_name,c_api_name);
425: */
426:
427: PROCEDURE rsv_interface_batch_processor (
428: p_api_version_number IN NUMBER
429: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
430: , p_reservation_batches IN VARCHAR2
431: , p_process_mode IN NUMBER DEFAULT 1
432: , p_partial_batch_process_flag IN NUMBER DEFAULT 1
433: , p_commit_flag IN VARCHAR2 DEFAULT 'Y'
469: begin
470: /*
471: ** Standard call to check for call compatibility
472: */
473: if not fnd_api.compatible_api_call(
474: c_api_version_number
475: , p_api_version_number
476: , c_api_name
477: , g_pkg_name) then
474: c_api_version_number
475: , p_api_version_number
476: , c_api_name
477: , g_pkg_name) then
478: raise fnd_api.g_exc_unexpected_error;
479: end if;
480:
481: /*
482: ** Initialize message list
480:
481: /*
482: ** Initialize message list
483: */
484: if fnd_api.to_boolean(p_init_msg_lst) then
485: fnd_msg_pub.initialize;
486: end if;
487:
488: /*
487:
488: /*
489: ** Initialize return status to success
490: */
491: x_return_status := fnd_api.g_ret_sts_success;
492:
493: l_reservation_batches := rtrim(ltrim(p_reservation_batches));
494:
495: while (0=0) loop
531: for mric_row in mric(l_batch_id, p_process_mode) loop
532:
533: -- Initialize
534: l_interface_id := mric_row.reservation_interface_id;
535: l_return_status := fnd_api.g_ret_sts_success;
536: l_error_code := null;
537: l_error_text := null;
538:
539: if (p_form_mode in ('N','n')) then
556:
557: -- Call rsv_interface_line_processor
558: rsv_interface_line_processor (
559: p_api_version_number => 1.0
560: , p_init_msg_lst => fnd_api.g_false
561: , p_reservation_interface_id => l_interface_id
562: , p_form_mode => p_form_mode
563: , x_error_code => l_error_code
564: , x_error_text => l_error_text
573: ** for a value of 1, processing should continue for others when one
574: ** fails.
575: */
576:
577: if ((l_return_status <> fnd_api.g_ret_sts_success or
578: l_error_text is not null or
579: l_error_code is not null) and
580: (p_partial_batch_process_flag = 2))then
581:
594:
595: exit;
596: end if;
597:
598: if ((l_return_status <> fnd_api.g_ret_sts_success or
599: l_error_text is not null or
600: l_error_code is not null) and
601: (p_partial_batch_process_flag = 1))then
602:
632:
633: -- l_conc_status := fnd_concurrent.set_completion_status('NORMAL','NORMAL');
634:
635: exception
636: when fnd_api.g_exc_error then
637: x_return_status := fnd_api.g_ret_sts_error;
638:
639: fnd_msg_pub.count_and_get(
640: p_count => x_msg_count
633: -- l_conc_status := fnd_concurrent.set_completion_status('NORMAL','NORMAL');
634:
635: exception
636: when fnd_api.g_exc_error then
637: x_return_status := fnd_api.g_ret_sts_error;
638:
639: fnd_msg_pub.count_and_get(
640: p_count => x_msg_count
641: , p_data => x_msg_data
646: end if;
647:
648: --l_conc_status := fnd_concurrent.set_completion_status('ERROR','ERROR');
649:
650: when fnd_api.g_exc_unexpected_error then
651: x_return_status := fnd_api.g_ret_sts_unexp_error;
652:
653: fnd_msg_pub.count_and_get(
654: p_count => x_msg_count
647:
648: --l_conc_status := fnd_concurrent.set_completion_status('ERROR','ERROR');
649:
650: when fnd_api.g_exc_unexpected_error then
651: x_return_status := fnd_api.g_ret_sts_unexp_error;
652:
653: fnd_msg_pub.count_and_get(
654: p_count => x_msg_count
655: , p_data => x_msg_data
661:
662: --l_conc_status := fnd_concurrent.set_completion_status('ERROR','ERROR');
663:
664: when others then
665: x_return_status := fnd_api.g_ret_sts_unexp_error;
666:
667: if (fnd_msg_pub.check_msg_level
668: (fnd_msg_pub.g_msg_lvl_unexp_error))then
669: fnd_msg_pub.add_exc_msg(g_pkg_name,c_api_name);
732: */
733:
734: PROCEDURE rsv_interface_line_processor (
735: p_api_version_number IN NUMBER
736: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
737: , p_reservation_interface_id IN NUMBER
738: , p_form_mode IN VARCHAR2 DEFAULT 'N'
739: , x_error_code OUT NOCOPY NUMBER
740: , x_error_text OUT NOCOPY VARCHAR2
852: begin
853: /*
854: ** Standard call to check for call compatibility
855: */
856: if not fnd_api.compatible_api_call(
857: c_api_version_number
858: , p_api_version_number
859: , c_api_name
860: , g_pkg_name) then
857: c_api_version_number
858: , p_api_version_number
859: , c_api_name
860: , g_pkg_name) then
861: raise fnd_api.g_exc_unexpected_error;
862: end if;
863:
864: /*
865: ** Initialize message list
863:
864: /*
865: ** Initialize message list
866: */
867: if fnd_api.to_boolean(p_init_msg_lst) then
868: fnd_msg_pub.initialize;
869: end if;
870:
871: /*
870:
871: /*
872: ** Initialize return status to success
873: */
874: x_return_status := fnd_api.g_ret_sts_success;
875: x_error_code := NULL;
876: x_error_text := NULL;
877:
878: /*
1135:
1136: If (l_oe_line_subinventory is not null) and (l_oe_line_subinventory <> l_rsv_rec.subinventory_code) then
1137: fnd_message.set_name('INV','INV_INVALID_SUBINVENTORY');
1138: fnd_msg_pub.add;
1139: raise fnd_api.g_exc_error;
1140: End if;
1141: End if;
1142: End if;
1143:
1150: IF l_rsv_rec.primary_reservation_quantity <= 0 OR l_rsv_rec.reservation_quantity <= 0 THEN
1151: debug('Primary Reservation Quantity or Reservation Quantity should not be equal to lessa than zero',c_api_name,1);
1152: fnd_message.set_name('INV', 'INV_GREATER_THAN_ZERO');
1153: fnd_msg_pub.ADD;
1154: RAISE fnd_api.g_exc_error;
1155: END IF;
1156:
1157: IF ( inv_cache.set_item_rec(l_rsv_rec.organization_id, l_rsv_rec.inventory_item_id) ) THEN
1158: l_rsv_rec.primary_uom_code := inv_cache.item_rec.primary_uom_code;
1179: -- conversion failed
1180: debug('Cannot Convert to Primary UOM',c_api_name,1);
1181: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-PRIMARY-UOM');
1182: fnd_msg_pub.ADD;
1183: RAISE fnd_api.g_exc_error;
1184: END IF;
1185: END IF;
1186: END IF;
1187:
1207: When No_Data_Found Then
1208: debug('For Sales Orders, RMA and Internal Orders DEMAND_SOURCE_HEADER_id Should be mtl_sales_order sales_order_id',c_api_name,1);
1209: fnd_message.set_name('INV','INV_INVALID_DEMAND_SOURCE');
1210: fnd_msg_pub.add;
1211: raise fnd_api.g_exc_error;
1212: End;
1213: Begin
1214: Select Header_ID into l_oe_order_header_id from OE_Order_Lines_All
1215: Where line_id = l_rsv_rec.demand_source_line_id;
1218: or inv_salesorder.get_salesorder_for_oeheader(l_oe_order_header_id) <> l_mso_sales_order_id Then
1219: debug('This sales_order_id does not belog to the given demand_source_line_id',c_api_name,1);
1220: fnd_message.set_name('INV','INV_INVALID_DEMAND_SOURCE');
1221: fnd_msg_pub.add;
1222: raise fnd_api.g_exc_error;
1223: End If;
1224: EXCEPTION
1225: When No_Data_Found Then
1226: debug('Demand_Source_line_Id does not exist',c_api_name,1);
1225: When No_Data_Found Then
1226: debug('Demand_Source_line_Id does not exist',c_api_name,1);
1227: fnd_message.set_name('INV', 'INV_INVALID_SALES_ORDER');
1228: fnd_msg_pub.ADD;
1229: RAISE fnd_api.g_exc_error;
1230: End;
1231: End If;
1232: End if;
1233: --End of Fix for Bug: 8237995
1237: ** we have to do this.
1238: ** l_partial_quantities 1=Yes; Not(1)=No;
1239: */
1240: if (l_partial_quantities_allowed = 1) then
1241: l_partial_reservation_flag := fnd_api.g_true;
1242: else
1243: l_partial_reservation_flag := fnd_api.g_false;
1244: end if;
1245:
1239: */
1240: if (l_partial_quantities_allowed = 1) then
1241: l_partial_reservation_flag := fnd_api.g_true;
1242: else
1243: l_partial_reservation_flag := fnd_api.g_false;
1244: end if;
1245:
1246: /*
1247: ** Initialize parameter return status
1245:
1246: /*
1247: ** Initialize parameter return status
1248: */
1249: l_return_status := fnd_api.g_ret_sts_success;
1250:
1251: /*
1252: ** For not(insert) requests quantity should be a value of don't care
1253: ** for a successful retrieval of source record.
1252: ** For not(insert) requests quantity should be a value of don't care
1253: ** for a successful retrieval of source record.
1254: */
1255: if (l_reservation_action_code in (2,3,4)) then
1256: l_rsv_rec.reservation_quantity := fnd_api.g_miss_num;
1257: l_rsv_rec.primary_reservation_quantity := fnd_api.g_miss_num;
1258: l_rsv_rec.secondary_reservation_quantity:= fnd_api.g_miss_num; -- INVCONV
1259: end if;
1260:
1253: ** for a successful retrieval of source record.
1254: */
1255: if (l_reservation_action_code in (2,3,4)) then
1256: l_rsv_rec.reservation_quantity := fnd_api.g_miss_num;
1257: l_rsv_rec.primary_reservation_quantity := fnd_api.g_miss_num;
1258: l_rsv_rec.secondary_reservation_quantity:= fnd_api.g_miss_num; -- INVCONV
1259: end if;
1260:
1261: /*
1254: */
1255: if (l_reservation_action_code in (2,3,4)) then
1256: l_rsv_rec.reservation_quantity := fnd_api.g_miss_num;
1257: l_rsv_rec.primary_reservation_quantity := fnd_api.g_miss_num;
1258: l_rsv_rec.secondary_reservation_quantity:= fnd_api.g_miss_num; -- INVCONV
1259: end if;
1260:
1261: /*
1262: ** Call appropriate API based on action code
1270: -- Create reservation
1271:
1272: inv_reservation_pub.create_reservation(
1273: p_api_version_number => 1.0
1274: , p_init_msg_lst => fnd_api.g_false
1275: , x_return_status => l_return_status
1276: , x_msg_count => x_msg_count
1277: , x_msg_data => x_msg_data
1278: , p_rsv_rec => l_rsv_rec
1278: , p_rsv_rec => l_rsv_rec
1279: , p_serial_number => l_serial_number
1280: , x_serial_number => l_serial_number
1281: , p_partial_reservation_flag => l_partial_reservation_flag
1282: , p_force_reservation_flag => fnd_api.g_false
1283: , p_validation_flag => fnd_api.g_true
1284: , x_quantity_reserved => l_quantity_reserved
1285: , x_secondary_quantity_reserved => l_secondary_quantity_reserved --INVCONV
1286: , x_reservation_id => l_reservation_id);
1279: , p_serial_number => l_serial_number
1280: , x_serial_number => l_serial_number
1281: , p_partial_reservation_flag => l_partial_reservation_flag
1282: , p_force_reservation_flag => fnd_api.g_false
1283: , p_validation_flag => fnd_api.g_true
1284: , x_quantity_reserved => l_quantity_reserved
1285: , x_secondary_quantity_reserved => l_secondary_quantity_reserved --INVCONV
1286: , x_reservation_id => l_reservation_id);
1287:
1284: , x_quantity_reserved => l_quantity_reserved
1285: , x_secondary_quantity_reserved => l_secondary_quantity_reserved --INVCONV
1286: , x_reservation_id => l_reservation_id);
1287:
1288: if (l_return_status = fnd_api.g_ret_sts_success) then
1289: x_return_status := l_return_status;
1290:
1291: if (p_form_mode in ('N','n')) then
1292: -- kgm_msg
1317: fnd_file.put_line(fnd_file.log,' ');
1318: */
1319: end if;
1320:
1321: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1322: raise fnd_api.g_exc_error;
1323: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1324: raise fnd_api.g_exc_unexpected_error;
1325: end if;
1318: */
1319: end if;
1320:
1321: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1322: raise fnd_api.g_exc_error;
1323: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1324: raise fnd_api.g_exc_unexpected_error;
1325: end if;
1326:
1319: end if;
1320:
1321: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1322: raise fnd_api.g_exc_error;
1323: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1324: raise fnd_api.g_exc_unexpected_error;
1325: end if;
1326:
1327: elsif (l_reservation_action_code = 2) then
1320:
1321: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1322: raise fnd_api.g_exc_error;
1323: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1324: raise fnd_api.g_exc_unexpected_error;
1325: end if;
1326:
1327: elsif (l_reservation_action_code = 2) then
1328: -- Update reservation
1329: -- Adeed the extra parameter for call to update_reservations
1330: -- Bug Number 3392957
1331: inv_reservation_pub.update_reservation(
1332: p_api_version_number => 1.0
1333: , p_init_msg_lst => fnd_api.g_false
1334: , x_return_status => l_return_status
1335: , x_msg_count => x_msg_count
1336: , x_msg_data => x_msg_data
1337: , p_original_rsv_rec => l_rsv_rec
1337: , p_original_rsv_rec => l_rsv_rec
1338: , p_to_rsv_rec => l_to_rsv_rec
1339: , p_original_serial_number => l_serial_number
1340: , p_to_serial_number => l_serial_number
1341: , p_validation_flag => fnd_api.g_true
1342: , p_check_availability => fnd_api.g_true
1343: );
1344:
1345: if (l_return_status = fnd_api.g_ret_sts_success) then
1338: , p_to_rsv_rec => l_to_rsv_rec
1339: , p_original_serial_number => l_serial_number
1340: , p_to_serial_number => l_serial_number
1341: , p_validation_flag => fnd_api.g_true
1342: , p_check_availability => fnd_api.g_true
1343: );
1344:
1345: if (l_return_status = fnd_api.g_ret_sts_success) then
1346: x_return_status := l_return_status;
1341: , p_validation_flag => fnd_api.g_true
1342: , p_check_availability => fnd_api.g_true
1343: );
1344:
1345: if (l_return_status = fnd_api.g_ret_sts_success) then
1346: x_return_status := l_return_status;
1347:
1348: if (p_form_mode in ('N','n')) then
1349: -- kgm_msg
1362: fnd_file.put_line(fnd_file.log,' ');
1363: */
1364: end if;
1365:
1366: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1367: raise fnd_api.g_exc_error;
1368: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1369: raise fnd_api.g_exc_unexpected_error;
1370: end if;
1363: */
1364: end if;
1365:
1366: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1367: raise fnd_api.g_exc_error;
1368: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1369: raise fnd_api.g_exc_unexpected_error;
1370: end if;
1371:
1364: end if;
1365:
1366: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1367: raise fnd_api.g_exc_error;
1368: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1369: raise fnd_api.g_exc_unexpected_error;
1370: end if;
1371:
1372: elsif (l_reservation_action_code = 3) then
1365:
1366: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1367: raise fnd_api.g_exc_error;
1368: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1369: raise fnd_api.g_exc_unexpected_error;
1370: end if;
1371:
1372: elsif (l_reservation_action_code = 3) then
1373: -- Delete reservation
1370: end if;
1371:
1372: elsif (l_reservation_action_code = 3) then
1373: -- Delete reservation
1374: l_rsv_rec.reservation_id := fnd_api.g_miss_num;
1375:
1376: inv_reservation_pub.delete_reservation(
1377: p_api_version_number => 1.0
1378: , p_init_msg_lst => fnd_api.g_false
1374: l_rsv_rec.reservation_id := fnd_api.g_miss_num;
1375:
1376: inv_reservation_pub.delete_reservation(
1377: p_api_version_number => 1.0
1378: , p_init_msg_lst => fnd_api.g_false
1379: , x_return_status => l_return_status
1380: , x_msg_count => x_msg_count
1381: , x_msg_data => x_msg_data
1382: , p_rsv_rec => l_rsv_rec
1381: , x_msg_data => x_msg_data
1382: , p_rsv_rec => l_rsv_rec
1383: , p_serial_number => l_serial_number);
1384:
1385: if (l_return_status = fnd_api.g_ret_sts_success) then
1386: x_return_status := l_return_status;
1387:
1388: if (p_form_mode in ('N','n')) then
1389: -- kgm_msg
1402: fnd_file.put_line(fnd_file.log,' ');
1403: */
1404: end if;
1405:
1406: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1407: raise fnd_api.g_exc_error;
1408: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1409: raise fnd_api.g_exc_unexpected_error;
1410: end if;
1403: */
1404: end if;
1405:
1406: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1407: raise fnd_api.g_exc_error;
1408: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1409: raise fnd_api.g_exc_unexpected_error;
1410: end if;
1411:
1404: end if;
1405:
1406: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1407: raise fnd_api.g_exc_error;
1408: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1409: raise fnd_api.g_exc_unexpected_error;
1410: end if;
1411:
1412: elsif (l_reservation_action_code = 4) then
1405:
1406: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1407: raise fnd_api.g_exc_error;
1408: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1409: raise fnd_api.g_exc_unexpected_error;
1410: end if;
1411:
1412: elsif (l_reservation_action_code = 4) then
1413: -- Transfer reservation
1411:
1412: elsif (l_reservation_action_code = 4) then
1413: -- Transfer reservation
1414:
1415: l_rsv_rec.reservation_id := fnd_api.g_miss_num;
1416:
1417: inv_reservation_pub.transfer_reservation(
1418: p_api_version_number => 1.0
1419: , p_init_msg_lst => fnd_api.g_false
1415: l_rsv_rec.reservation_id := fnd_api.g_miss_num;
1416:
1417: inv_reservation_pub.transfer_reservation(
1418: p_api_version_number => 1.0
1419: , p_init_msg_lst => fnd_api.g_false
1420: , x_return_status => l_return_status
1421: , x_msg_count => x_msg_count
1422: , x_msg_data => x_msg_data
1423: , p_is_transfer_supply => fnd_api.g_true
1419: , p_init_msg_lst => fnd_api.g_false
1420: , x_return_status => l_return_status
1421: , x_msg_count => x_msg_count
1422: , x_msg_data => x_msg_data
1423: , p_is_transfer_supply => fnd_api.g_true
1424: , p_original_rsv_rec => l_rsv_rec
1425: , p_to_rsv_rec => l_to_rsv_rec
1426: , p_original_serial_number => l_serial_number
1427: , p_to_serial_number => l_serial_number
1424: , p_original_rsv_rec => l_rsv_rec
1425: , p_to_rsv_rec => l_to_rsv_rec
1426: , p_original_serial_number => l_serial_number
1427: , p_to_serial_number => l_serial_number
1428: , p_validation_flag => fnd_api.g_true
1429: , x_to_reservation_id => l_reservation_id);
1430:
1431: if (l_return_status = fnd_api.g_ret_sts_success) then
1432: x_return_status := l_return_status;
1427: , p_to_serial_number => l_serial_number
1428: , p_validation_flag => fnd_api.g_true
1429: , x_to_reservation_id => l_reservation_id);
1430:
1431: if (l_return_status = fnd_api.g_ret_sts_success) then
1432: x_return_status := l_return_status;
1433:
1434: if (p_form_mode in ('N','n')) then
1435: -- kgm_msg
1448: fnd_file.put_line(fnd_file.log,' ');
1449: */
1450: end if;
1451:
1452: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1453: raise fnd_api.g_exc_error;
1454: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1455: raise fnd_api.g_exc_unexpected_error;
1456: end if;
1449: */
1450: end if;
1451:
1452: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1453: raise fnd_api.g_exc_error;
1454: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1455: raise fnd_api.g_exc_unexpected_error;
1456: end if;
1457:
1450: end if;
1451:
1452: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1453: raise fnd_api.g_exc_error;
1454: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1455: raise fnd_api.g_exc_unexpected_error;
1456: end if;
1457:
1458: else
1451:
1452: elsif (l_return_status = fnd_api.g_ret_sts_error) then
1453: raise fnd_api.g_exc_error;
1454: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
1455: raise fnd_api.g_exc_unexpected_error;
1456: end if;
1457:
1458: else
1459: -- Invalid or unsuitable action code here
1461: raise INVALID_ACTION_CODE;
1462:
1463: end if;
1464:
1465: if (l_return_status = fnd_api.g_ret_sts_success) then
1466: update mtl_reservations_interface
1467: set row_status_code = 2 /* Completed */
1468: where reservation_interface_id = p_reservation_interface_id;
1469: end if;
1469: end if;
1470:
1471: exception
1472: when NO_DATA_FOUND then
1473: x_return_status := fnd_api.g_ret_sts_error;
1474:
1475: -- kgm_msg
1476: if (p_form_mode in ('N','n')) then
1477: fnd_message.set_name('INV', 'INV_RSV_INTERFACE_ERROR');
1497: print_error(x_msg_count);
1498: end if;
1499:
1500: when INVALID_ACTION_CODE then
1501: x_return_status := fnd_api.g_ret_sts_error;
1502:
1503: if (p_form_mode in ('N','n')) then
1504: -- kgm_msg
1505: fnd_message.set_name('INV', 'INV_RSV_INTERFACE_ERROR');
1524: if (p_form_mode in ('N','n')) then
1525: print_error(x_msg_count);
1526: end if;
1527:
1528: when fnd_api.g_exc_error then
1529: x_return_status := fnd_api.g_ret_sts_error;
1530:
1531: if (p_form_mode in ('N','n')) then
1532: -- kgm_msg
1525: print_error(x_msg_count);
1526: end if;
1527:
1528: when fnd_api.g_exc_error then
1529: x_return_status := fnd_api.g_ret_sts_error;
1530:
1531: if (p_form_mode in ('N','n')) then
1532: -- kgm_msg
1533: fnd_message.set_name('INV', 'INV_RSV_INTERFACE_ERROR');
1548: if (p_form_mode in ('N','n')) then
1549: print_error(x_msg_count);
1550: end if;
1551:
1552: when fnd_api.g_exc_unexpected_error then
1553: x_return_status := fnd_api.g_ret_sts_unexp_error;
1554:
1555: if (p_form_mode in ('N','n')) then
1556: -- kgm_msg
1549: print_error(x_msg_count);
1550: end if;
1551:
1552: when fnd_api.g_exc_unexpected_error then
1553: x_return_status := fnd_api.g_ret_sts_unexp_error;
1554:
1555: if (p_form_mode in ('N','n')) then
1556: -- kgm_msg
1557: fnd_message.set_name('INV', 'INV_RSV_INTERFACE_ERROR');
1573: print_error(x_msg_count);
1574: end if;
1575:
1576: when others then
1577: x_return_status := fnd_api.g_ret_sts_unexp_error;
1578:
1579: if (p_form_mode in ('N','n')) then
1580: -- kgm_msg
1581: fnd_message.set_name('INV', 'INV_RSV_INTERFACE_ERROR');