[Home] [Help]
128: END IF; -- end of rebuild id
129:
130: SAVEPOINT fork_logic;
131: -- Standard call to check for call compatibility.
132: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
133: l_api_name, G_PKG_NAME ) THEN
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136: -- Initialize message list if p_init_msg_list is set to TRUE.
130: SAVEPOINT fork_logic;
131: -- Standard call to check for call compatibility.
132: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
133: l_api_name, G_PKG_NAME ) THEN
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136: -- Initialize message list if p_init_msg_list is set to TRUE.
137: IF FND_API.to_Boolean( p_init_msg_list ) THEN
138: FND_MSG_PUB.initialize;
133: l_api_name, G_PKG_NAME ) THEN
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136: -- Initialize message list if p_init_msg_list is set to TRUE.
137: IF FND_API.to_Boolean( p_init_msg_list ) THEN
138: FND_MSG_PUB.initialize;
139: END IF;
140: -- Initialize API return status to success
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
137: IF FND_API.to_Boolean( p_init_msg_list ) THEN
138: FND_MSG_PUB.initialize;
139: END IF;
140: -- Initialize API return status to success
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142:
143: -- API body
144: if (l_pLog) then FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
145: 'Start of ' || l_full_name || '('
175: and organization_id=p_organization_id;
176: if (l_sLog) then FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
177: 'l_material_issue_by_mo=' || l_material_issue_by_mo);
178: end if;
179: if (l_project_id is null) then l_project_id := fnd_api.G_MISS_NUM;
180: end if;
181: if (l_task_id is null) then l_task_id := fnd_api.G_MISS_NUM;
182: end if;
183: if (l_material_issue_by_mo = 'N') then
177: 'l_material_issue_by_mo=' || l_material_issue_by_mo);
178: end if;
179: if (l_project_id is null) then l_project_id := fnd_api.G_MISS_NUM;
180: end if;
181: if (l_task_id is null) then l_task_id := fnd_api.G_MISS_NUM;
182: end if;
183: if (l_material_issue_by_mo = 'N') then
184: l_issue_by_mo := false;
185: end if;
261: x_msg_count=> l_msg_count_qoh,
262: x_msg_data =>l_msg_data_qoh
263: );
264:
265: IF(l_ret_status_qoh = FND_API.G_RET_STS_UNEXP_ERROR OR
266: l_ret_status_qoh = FND_API.G_RET_STS_ERROR
267: ) THEN
268:
269: x_return_status := FND_API.G_RET_STS_ERROR;
262: x_msg_data =>l_msg_data_qoh
263: );
264:
265: IF(l_ret_status_qoh = FND_API.G_RET_STS_UNEXP_ERROR OR
266: l_ret_status_qoh = FND_API.G_RET_STS_ERROR
267: ) THEN
268:
269: x_return_status := FND_API.G_RET_STS_ERROR;
270: fnd_message.set_name('EAM', 'EAM_INV_ONHAND_NOT_DETERMINED');
265: IF(l_ret_status_qoh = FND_API.G_RET_STS_UNEXP_ERROR OR
266: l_ret_status_qoh = FND_API.G_RET_STS_ERROR
267: ) THEN
268:
269: x_return_status := FND_API.G_RET_STS_ERROR;
270: fnd_message.set_name('EAM', 'EAM_INV_ONHAND_NOT_DETERMINED');
271: fnd_message.set_token('MATERIAL',l_material);
272: fnd_msg_pub.add;
273: fnd_msg_pub.Count_And_Get(
280:
281:
282: exception
283: when others then
284: x_return_status := fnd_api.g_ret_sts_unexp_error;
285:
286: END;
287:
288:
300: IF l_neg_inv_receipt_code = 2 THEN
301:
302: IF (p_requested_quantity > l_onhand_quantity) THEN
303:
304: x_return_status := FND_API.G_RET_STS_ERROR;
305: fnd_message.set_name('EAM', 'EAM_INV_QUANTITY_NEGATIVE');
306: fnd_message.set_token('OPERATION',p_operation_seq_num);
307: fnd_message.set_token('MATERIAL',l_material);
308: fnd_message.set_token('ONHAND',l_onhand_quantity);
332: l_within_open_period:='N';
333: END;
334:
335: IF (l_within_open_period<>'Y') THEN
336: x_return_status := FND_API.G_RET_STS_ERROR;
337: fnd_message.set_name('EAM', 'EAM_ISSUE_TXN_NOT_OPEN_PERIOD');
338: fnd_message.set_token('OPERATION',p_operation_seq_num);
339: fnd_message.set_token('MATERIAL',l_material);
340: fnd_msg_pub.add;
364: , user_id => NULL
365: );
366:
367: IF NOT (l_sec_sta_valid ) THEN
368: x_return_status := FND_API.G_RET_STS_ERROR;
369: fnd_message.set_name('EAM', 'EAM_INV_SEC_LOC_RULE');
370: fnd_message.set_token('OPERATION',p_operation_seq_num);
371: fnd_message.set_token('MATERIAL',l_material);
372: fnd_message.set_token('LOCATOR',l_source_locator_id);
380:
381: --fix for 3454251.raise an error message if quantity to be issued is negative or zero
382:
383: if(p_requested_quantity<=0) then
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: fnd_message.set_name('EAM', 'EAM_REQUESTED_QUAN_NEG_ZERO');
386: fnd_message.set_token('OPERATION',p_operation_seq_num);
387: fnd_message.set_token('MATERIAL',l_material);
388: fnd_msg_pub.add;
392: return;
393: end if;
394: --if the transaction date is in future raise an error message
395: if(p_date > sysdate) then
396: x_return_status := FND_API.G_RET_STS_ERROR;
397: fnd_message.set_name('EAM', 'EAM_TRANS_DATE_FUTURE');
398: fnd_message.set_token('OPERATION',p_operation_seq_num);
399: fnd_message.set_token('MATERIAL',l_material);
400: fnd_msg_pub.add;
413: else
414: l_num_range_serials := inv_serial_number_pub.get_serial_diff(
415: l_fm_serial_number, l_to_serial_number);
416: if (l_num_range_serials <> p_requested_quantity) then
417: x_return_status := FND_API.G_RET_STS_ERROR;
418: fnd_message.set_name('EAM', 'EAM_SERIAL_RANGE_QTY_MISMATCH');
419: fnd_message.set_token('OPERATION',p_operation_seq_num);
420: fnd_message.set_token('MATERIAL',l_material);
421: fnd_message.set_token('QTY_RANGE',l_num_range_serials);
444: AND msn.serial_number between l_fm_serial_number and l_to_serial_number
445: AND LENGTH(msn.serial_number) = LENGTH(l_fm_serial_number);
446:
447: if (l_num_valid_serials <> p_requested_quantity) then
448: x_return_status := FND_API.G_RET_STS_ERROR;
449: fnd_message.set_name('EAM', 'EAM_N_SERIALS_UNAVAILABLE');
450: fnd_message.set_token('OPERATION',p_operation_seq_num);
451: fnd_message.set_token('MATERIAL',l_material);
452: fnd_message.set_token('NUM_UNAVAILABLE', p_requested_quantity - l_num_valid_serials);
513:
514:
515: if (x_err_flag = 1) then
516: eam_execution_jsp.add_message(p_app_short_name => 'EAM', p_msg_name => x_error_msg);
517: x_return_status := FND_API.G_RET_STS_ERROR;
518: return;
519: elsif (x_err_flag = 2) then
520: eam_execution_jsp.add_message(p_app_short_name => 'EAM', p_msg_name => 'EAM_CANNOT_DELETE_RESOURCE',
521: p_token1=>'EAM_RET_MAT_PROCESS_MESSAGE', p_value1=>x_error_msg);
518: return;
519: elsif (x_err_flag = 2) then
520: eam_execution_jsp.add_message(p_app_short_name => 'EAM', p_msg_name => 'EAM_CANNOT_DELETE_RESOURCE',
521: p_token1=>'EAM_RET_MAT_PROCESS_MESSAGE', p_value1=>x_error_msg);
522: x_return_status := FND_API.G_RET_STS_ERROR;
523: return;
524: end if; -- end of x_error_flag check
525:
526: exception
524: end if; -- end of x_error_flag check
525:
526: exception
527: when others then --some unhandled exception occurred. rollback everything.
528: x_return_status := fnd_api.g_ret_sts_unexp_error;
529: rollback to before_insert_mti;
530: return ;
531: end;
532:
649: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
650: 'INV_TXN_MANAGER_PUB finished with return status='|| x_wip_ret_status);
651: end if;
652:
653: if(x_wip_ret_status = FND_API.G_RET_STS_UNEXP_ERROR OR
654: x_wip_ret_status = FND_API.G_RET_STS_ERROR
655: ) then
656:
657: BEGIN
650: 'INV_TXN_MANAGER_PUB finished with return status='|| x_wip_ret_status);
651: end if;
652:
653: if(x_wip_ret_status = FND_API.G_RET_STS_UNEXP_ERROR OR
654: x_wip_ret_status = FND_API.G_RET_STS_ERROR
655: ) then
656:
657: BEGIN
658: SELECT error_explanation into x_error_mssg1
680: WHEN others THEN
681: x_error_mssg1:='Error from Inventory transaction manager';
682: END;
683: rollback to before_insert_mti;
684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
685: if x_error_mssg1 is not null then
686: eam_execution_jsp.add_message(p_app_short_name => 'EAM', p_msg_name => 'EAM_WO_API_MESG',
687: p_token1=>'MESG', p_value1=>x_error_mssg1);
688: end if;
703: end if;
704: -- End of API body.
705:
706: -- Standard check of p_commit.
707: IF FND_API.To_Boolean( p_commit )
708: AND x_return_status = FND_API.g_RET_STS_SUCCESS THEN
709: COMMIT WORK;
710: END IF;
711: -- Standard call to get message count and if count is 1, get message info.
704: -- End of API body.
705:
706: -- Standard check of p_commit.
707: IF FND_API.To_Boolean( p_commit )
708: AND x_return_status = FND_API.g_RET_STS_SUCCESS THEN
709: COMMIT WORK;
710: END IF;
711: -- Standard call to get message count and if count is 1, get message info.
712: FND_MSG_PUB.Count_And_Get(
717: ROLLBACK TO fork_logic;
718: if (l_log) then
719: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module, 'Exception occured' );
720: end if;
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
722: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
723: THEN
724: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
725: END IF;
765: end if;
766: -- Standard Start of API savepoint
767: SAVEPOINT PROCESS_MMTT;
768: -- Standard call to check for call compatibility.
769: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
770: l_api_name, G_PKG_NAME )
771: THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: END IF;
768: -- Standard call to check for call compatibility.
769: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
770: l_api_name, G_PKG_NAME )
771: THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: END IF;
774: -- Initialize message list if p_init_msg_list is set to TRUE.
775: IF FND_API.to_Boolean( p_init_msg_list ) THEN
776: FND_MSG_PUB.initialize;
771: THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: END IF;
774: -- Initialize message list if p_init_msg_list is set to TRUE.
775: IF FND_API.to_Boolean( p_init_msg_list ) THEN
776: FND_MSG_PUB.initialize;
777: END IF;
778: -- Initialize API return status to success
779: x_return_status := FND_API.G_RET_STS_SUCCESS;
775: IF FND_API.to_Boolean( p_init_msg_list ) THEN
776: FND_MSG_PUB.initialize;
777: END IF;
778: -- Initialize API return status to success
779: x_return_status := FND_API.G_RET_STS_SUCCESS;
780:
781: -- API body
782: l_msg_data := NULL;
783: l_return_status := NULL;
814: if (l_slog) then FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
815: 'Calling wip_mtlTempProc_grp.processTemp. p_txnHdrID=' || l_header_id);
816: end if;
817: wip_mtlTempProc_grp.processTemp(
818: p_initMsgList => fnd_api.G_TRUE,
819: p_processInv => fnd_api.G_TRUE, --whether or not to call inventory TM
820: p_txnHdrID => l_header_id,
821: x_returnStatus => x_return_status,
822: x_errorMsg => x_msg_data);
815: 'Calling wip_mtlTempProc_grp.processTemp. p_txnHdrID=' || l_header_id);
816: end if;
817: wip_mtlTempProc_grp.processTemp(
818: p_initMsgList => fnd_api.G_TRUE,
819: p_processInv => fnd_api.G_TRUE, --whether or not to call inventory TM
820: p_txnHdrID => l_header_id,
821: x_returnStatus => x_return_status,
822: x_errorMsg => x_msg_data);
823: if (l_slog) then FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
823: if (l_slog) then FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
824: 'wip_mtlTempProc_grp.processTemp returned. x_returnStatus='||x_return_status
825: ||', x_errorMsg=' || REPLACE(x_msg_data, CHR(0), ' '));
826: end if;
827: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
828: ROLLBACK TO PROCESS_MMTT;
829: /* Fix for bug no :2719414 */
830: if(x_msg_data is not null) then
831: x_msg_count := 1 ;
844: end if;
845: -- End of API body.
846:
847: -- Standard check of p_commit.
848: IF FND_API.To_Boolean( p_commit ) THEN
849: COMMIT WORK;
850: END IF;
851: -- Standard call to get message count and if count is 1, get message info.
852: FND_MSG_PUB.Count_And_Get(
855: EXCEPTION
856: /* Added for bug 4041420 - Start */
857: WHEN NO_ACCT_PERIOD_EXC THEN
858: eam_execution_jsp.add_message(p_app_short_name => 'EAM', p_msg_name => 'EAM_TRANSACTION_DATE_INVALID');
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: /* Added for bug 4041420 - End */
861: WHEN OTHERS THEN
862: ROLLBACK TO PROCESS_MMTT;
863: if (l_log) then
862: ROLLBACK TO PROCESS_MMTT;
863: if (l_log) then
864: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module, 'Exception occured');
865: end if;
866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
867: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
868: THEN
869: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
870: END IF;
1034:
1035: SAVEPOINT cancel_alloc_matl_del;
1036:
1037: -- Standard call to check for call compatibility.
1038: IF NOT fnd_api.compatible_api_call(
1039: l_api_version
1040: ,p_api_version
1041: ,l_api_name
1042: ,g_pkg_name) THEN
1039: l_api_version
1040: ,p_api_version
1041: ,l_api_name
1042: ,g_pkg_name) THEN
1043: RAISE fnd_api.g_exc_unexpected_error;
1044: END IF;
1045:
1046: -- Initialize message list if p_init_msg_list is set to TRUE.
1047: IF fnd_api.to_boolean(p_init_msg_list) THEN
1043: RAISE fnd_api.g_exc_unexpected_error;
1044: END IF;
1045:
1046: -- Initialize message list if p_init_msg_list is set to TRUE.
1047: IF fnd_api.to_boolean(p_init_msg_list) THEN
1048: fnd_msg_pub.initialize;
1049: END IF;
1050:
1051: -- Initialize API return status to success
1048: fnd_msg_pub.initialize;
1049: END IF;
1050:
1051: -- Initialize API return status to success
1052: x_return_status := fnd_api.g_ret_sts_success; -- line 892
1053:
1054: -- API body
1055:
1056:
1072:
1073: -- End of API body.
1074: -- Standard check of p_commit.
1075:
1076: IF fnd_api.to_boolean(p_commit) THEN
1077: COMMIT WORK;
1078: END IF;
1079:
1080: -- l_stmt_num := 999;
1083: fnd_msg_pub.count_and_get(
1084: p_count => x_msg_count,
1085: p_data => x_msg_data);
1086: EXCEPTION
1087: WHEN fnd_api.g_exc_error THEN
1088: ROLLBACK TO cancel_alloc_matl_del;
1089: x_return_status := fnd_api.g_ret_sts_error;
1090: fnd_msg_pub.count_and_get(
1091: -- p_encoded => FND_API.g_false
1085: p_data => x_msg_data);
1086: EXCEPTION
1087: WHEN fnd_api.g_exc_error THEN
1088: ROLLBACK TO cancel_alloc_matl_del;
1089: x_return_status := fnd_api.g_ret_sts_error;
1090: fnd_msg_pub.count_and_get(
1091: -- p_encoded => FND_API.g_false
1092: p_count => x_msg_count
1093: ,p_data => x_msg_data);
1087: WHEN fnd_api.g_exc_error THEN
1088: ROLLBACK TO cancel_alloc_matl_del;
1089: x_return_status := fnd_api.g_ret_sts_error;
1090: fnd_msg_pub.count_and_get(
1091: -- p_encoded => FND_API.g_false
1092: p_count => x_msg_count
1093: ,p_data => x_msg_data);
1094: WHEN fnd_api.g_exc_unexpected_error THEN
1095: ROLLBACK TO cancel_alloc_matl_del;
1090: fnd_msg_pub.count_and_get(
1091: -- p_encoded => FND_API.g_false
1092: p_count => x_msg_count
1093: ,p_data => x_msg_data);
1094: WHEN fnd_api.g_exc_unexpected_error THEN
1095: ROLLBACK TO cancel_alloc_matl_del;
1096: x_return_status := fnd_api.g_ret_sts_unexp_error;
1097:
1098: fnd_msg_pub.count_and_get(
1092: p_count => x_msg_count
1093: ,p_data => x_msg_data);
1094: WHEN fnd_api.g_exc_unexpected_error THEN
1095: ROLLBACK TO cancel_alloc_matl_del;
1096: x_return_status := fnd_api.g_ret_sts_unexp_error;
1097:
1098: fnd_msg_pub.count_and_get(
1099: p_count => x_msg_count
1100: ,p_data => x_msg_data);
1099: p_count => x_msg_count
1100: ,p_data => x_msg_data);
1101: WHEN OTHERS THEN
1102: ROLLBACK TO cancel_alloc_matl_del;
1103: x_return_status := fnd_api.g_ret_sts_unexp_error;
1104: IF fnd_msg_pub.check_msg_level(
1105: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1106: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1107: END IF;
1169: -- Standard Start of API savepoint
1170: SAVEPOINT comp_alloc_chng_qty;
1171:
1172: -- Standard call to check for call compatibility.
1173: IF NOT fnd_api.compatible_api_call(
1174: l_api_version
1175: ,p_api_version
1176: ,l_api_name
1177: ,g_pkg_name) THEN
1174: l_api_version
1175: ,p_api_version
1176: ,l_api_name
1177: ,g_pkg_name) THEN
1178: RAISE fnd_api.g_exc_unexpected_error;
1179: END IF;
1180:
1181: -- Initialize message list if p_init_msg_list is set to TRUE.
1182: IF fnd_api.to_boolean(p_init_msg_list) THEN
1178: RAISE fnd_api.g_exc_unexpected_error;
1179: END IF;
1180:
1181: -- Initialize message list if p_init_msg_list is set to TRUE.
1182: IF fnd_api.to_boolean(p_init_msg_list) THEN
1183: fnd_msg_pub.initialize;
1184: END IF;
1185:
1186: -- Initialize API return status to success
1183: fnd_msg_pub.initialize;
1184: END IF;
1185:
1186: -- Initialize API return status to success
1187: x_return_status := fnd_api.g_ret_sts_success;
1188:
1189: -- API body
1190:
1191: if (l_plog) then
1272:
1273:
1274: else
1275:
1276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1277: fnd_message.set_name('EAM', 'EAM_ALLOCATE_QTY_ERROR'); -- Error message to be provided
1278: x_msg_data := fnd_message.get;
1279:
1280:
1301: l_allocate_comp_inc_rec.end_serial := null;
1302: l_allocate_comp_inc_tbl(1) := l_allocate_comp_inc_rec;
1303:
1304: EAM_MATERIAL_request_PVT.allocate(p_api_version => 1.0,
1305: p_init_msg_list => fnd_api.g_false ,
1306: p_commit => fnd_api.g_false,
1307: p_validation_level => fnd_api.g_valid_level_full,
1308: x_return_status => l_return_status,
1309: x_msg_count => l_msg_count,
1302: l_allocate_comp_inc_tbl(1) := l_allocate_comp_inc_rec;
1303:
1304: EAM_MATERIAL_request_PVT.allocate(p_api_version => 1.0,
1305: p_init_msg_list => fnd_api.g_false ,
1306: p_commit => fnd_api.g_false,
1307: p_validation_level => fnd_api.g_valid_level_full,
1308: x_return_status => l_return_status,
1309: x_msg_count => l_msg_count,
1310: x_msg_data => l_msg_data,
1303:
1304: EAM_MATERIAL_request_PVT.allocate(p_api_version => 1.0,
1305: p_init_msg_list => fnd_api.g_false ,
1306: p_commit => fnd_api.g_false,
1307: p_validation_level => fnd_api.g_valid_level_full,
1308: x_return_status => l_return_status,
1309: x_msg_count => l_msg_count,
1310: x_msg_data => l_msg_data,
1311: x_request_number => l_request_number,
1330:
1331: -- End of API body.
1332: -- Standard check of p_commit.
1333:
1334: IF fnd_api.to_boolean(p_commit) THEN
1335: COMMIT WORK;
1336: END IF;
1337:
1338: -- l_stmt_num := 999;
1341: fnd_msg_pub.count_and_get(
1342: p_count => x_msg_count
1343: ,p_data => x_msg_data);
1344: EXCEPTION
1345: WHEN fnd_api.g_exc_error THEN
1346: ROLLBACK TO comp_alloc_chng_qty;
1347: x_return_status := fnd_api.g_ret_sts_error;
1348: fnd_msg_pub.count_and_get(
1349: -- p_encoded => FND_API.g_false
1343: ,p_data => x_msg_data);
1344: EXCEPTION
1345: WHEN fnd_api.g_exc_error THEN
1346: ROLLBACK TO comp_alloc_chng_qty;
1347: x_return_status := fnd_api.g_ret_sts_error;
1348: fnd_msg_pub.count_and_get(
1349: -- p_encoded => FND_API.g_false
1350: p_count => x_msg_count
1351: ,p_data => x_msg_data);
1345: WHEN fnd_api.g_exc_error THEN
1346: ROLLBACK TO comp_alloc_chng_qty;
1347: x_return_status := fnd_api.g_ret_sts_error;
1348: fnd_msg_pub.count_and_get(
1349: -- p_encoded => FND_API.g_false
1350: p_count => x_msg_count
1351: ,p_data => x_msg_data);
1352: WHEN fnd_api.g_exc_unexpected_error THEN
1353: ROLLBACK TO comp_alloc_chng_qty;
1348: fnd_msg_pub.count_and_get(
1349: -- p_encoded => FND_API.g_false
1350: p_count => x_msg_count
1351: ,p_data => x_msg_data);
1352: WHEN fnd_api.g_exc_unexpected_error THEN
1353: ROLLBACK TO comp_alloc_chng_qty;
1354: x_return_status := fnd_api.g_ret_sts_unexp_error;
1355:
1356: fnd_msg_pub.count_and_get(
1350: p_count => x_msg_count
1351: ,p_data => x_msg_data);
1352: WHEN fnd_api.g_exc_unexpected_error THEN
1353: ROLLBACK TO comp_alloc_chng_qty;
1354: x_return_status := fnd_api.g_ret_sts_unexp_error;
1355:
1356: fnd_msg_pub.count_and_get(
1357: p_count => x_msg_count
1358: ,p_data => x_msg_data);
1357: p_count => x_msg_count
1358: ,p_data => x_msg_data);
1359: WHEN OTHERS THEN
1360: ROLLBACK TO comp_alloc_chng_qty;
1361: x_return_status := fnd_api.g_ret_sts_unexp_error;
1362: IF fnd_msg_pub.check_msg_level(
1363: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1364: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1365: END IF;
1416:
1417: SAVEPOINT comp_alloc_new_mat;
1418:
1419: -- Standard call to check for call compatibility.
1420: IF NOT fnd_api.compatible_api_call(
1421: l_api_version
1422: ,p_api_version
1423: ,l_api_name
1424: ,g_pkg_name) THEN
1421: l_api_version
1422: ,p_api_version
1423: ,l_api_name
1424: ,g_pkg_name) THEN
1425: RAISE fnd_api.g_exc_unexpected_error;
1426: END IF;
1427:
1428: -- Initialize message list if p_init_msg_list is set to TRUE.
1429: IF fnd_api.to_boolean(p_init_msg_list) THEN
1425: RAISE fnd_api.g_exc_unexpected_error;
1426: END IF;
1427:
1428: -- Initialize message list if p_init_msg_list is set to TRUE.
1429: IF fnd_api.to_boolean(p_init_msg_list) THEN
1430: fnd_msg_pub.initialize;
1431: END IF;
1432:
1433: -- Initialize API return status to success
1430: fnd_msg_pub.initialize;
1431: END IF;
1432:
1433: -- Initialize API return status to success
1434: x_return_status := fnd_api.g_ret_sts_success;
1435:
1436: -- API body
1437:
1438: l_wip_entity_id := p_wip_entity_id;
1488:
1489: l_allocate_comp_inc_tbl(1) := l_allocate_comp_inc_rec;
1490:
1491: EAM_MATERIAL_request_PVT.allocate(p_api_version => 1.0,
1492: p_init_msg_list => fnd_api.g_false ,
1493: p_commit => fnd_api.g_false,
1494: p_validation_level => fnd_api.g_valid_level_full,
1495: x_return_status => l_return_status,
1496: x_msg_count => l_msg_count,
1489: l_allocate_comp_inc_tbl(1) := l_allocate_comp_inc_rec;
1490:
1491: EAM_MATERIAL_request_PVT.allocate(p_api_version => 1.0,
1492: p_init_msg_list => fnd_api.g_false ,
1493: p_commit => fnd_api.g_false,
1494: p_validation_level => fnd_api.g_valid_level_full,
1495: x_return_status => l_return_status,
1496: x_msg_count => l_msg_count,
1497: x_msg_data => l_msg_data,
1490:
1491: EAM_MATERIAL_request_PVT.allocate(p_api_version => 1.0,
1492: p_init_msg_list => fnd_api.g_false ,
1493: p_commit => fnd_api.g_false,
1494: p_validation_level => fnd_api.g_valid_level_full,
1495: x_return_status => l_return_status,
1496: x_msg_count => l_msg_count,
1497: x_msg_data => l_msg_data,
1498: x_request_number => l_request_number,
1511:
1512: -- End of API body.
1513: -- Standard check of p_commit.
1514:
1515: IF fnd_api.to_boolean(p_commit) THEN
1516: COMMIT WORK;
1517: END IF;
1518:
1519: -- l_stmt_num := 999;
1522: fnd_msg_pub.count_and_get(
1523: p_count => x_msg_count
1524: ,p_data => x_msg_data);
1525: EXCEPTION
1526: WHEN fnd_api.g_exc_error THEN
1527: ROLLBACK TO comp_alloc_new_mat;
1528: x_return_status := fnd_api.g_ret_sts_error;
1529: fnd_msg_pub.count_and_get(
1530: -- p_encoded => FND_API.g_false
1524: ,p_data => x_msg_data);
1525: EXCEPTION
1526: WHEN fnd_api.g_exc_error THEN
1527: ROLLBACK TO comp_alloc_new_mat;
1528: x_return_status := fnd_api.g_ret_sts_error;
1529: fnd_msg_pub.count_and_get(
1530: -- p_encoded => FND_API.g_false
1531: p_count => x_msg_count
1532: ,p_data => x_msg_data);
1526: WHEN fnd_api.g_exc_error THEN
1527: ROLLBACK TO comp_alloc_new_mat;
1528: x_return_status := fnd_api.g_ret_sts_error;
1529: fnd_msg_pub.count_and_get(
1530: -- p_encoded => FND_API.g_false
1531: p_count => x_msg_count
1532: ,p_data => x_msg_data);
1533: WHEN fnd_api.g_exc_unexpected_error THEN
1534: ROLLBACK TO comp_alloc_new_mat;
1529: fnd_msg_pub.count_and_get(
1530: -- p_encoded => FND_API.g_false
1531: p_count => x_msg_count
1532: ,p_data => x_msg_data);
1533: WHEN fnd_api.g_exc_unexpected_error THEN
1534: ROLLBACK TO comp_alloc_new_mat;
1535: x_return_status := fnd_api.g_ret_sts_unexp_error;
1536:
1537: fnd_msg_pub.count_and_get(
1531: p_count => x_msg_count
1532: ,p_data => x_msg_data);
1533: WHEN fnd_api.g_exc_unexpected_error THEN
1534: ROLLBACK TO comp_alloc_new_mat;
1535: x_return_status := fnd_api.g_ret_sts_unexp_error;
1536:
1537: fnd_msg_pub.count_and_get(
1538: p_count => x_msg_count
1539: ,p_data => x_msg_data);
1538: p_count => x_msg_count
1539: ,p_data => x_msg_data);
1540: WHEN OTHERS THEN
1541: ROLLBACK TO comp_alloc_new_mat;
1542: x_return_status := fnd_api.g_ret_sts_unexp_error;
1543: IF fnd_msg_pub.check_msg_level(
1544: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1545: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1546: END IF;
1594:
1595: SAVEPOINT alloc_at_release_cancel;
1596:
1597: -- Standard call to check for call compatibility.
1598: IF NOT fnd_api.compatible_api_call(
1599: l_api_version
1600: ,p_api_version
1601: ,l_api_name
1602: ,g_pkg_name) THEN
1599: l_api_version
1600: ,p_api_version
1601: ,l_api_name
1602: ,g_pkg_name) THEN
1603: RAISE fnd_api.g_exc_unexpected_error;
1604: END IF;
1605:
1606: -- Initialize message list if p_init_msg_list is set to TRUE.
1607: IF fnd_api.to_boolean(p_init_msg_list) THEN
1603: RAISE fnd_api.g_exc_unexpected_error;
1604: END IF;
1605:
1606: -- Initialize message list if p_init_msg_list is set to TRUE.
1607: IF fnd_api.to_boolean(p_init_msg_list) THEN
1608: fnd_msg_pub.initialize;
1609: END IF;
1610:
1611: -- Initialize API return status to success
1608: fnd_msg_pub.initialize;
1609: END IF;
1610:
1611: -- Initialize API return status to success
1612: x_return_status := fnd_api.g_ret_sts_success;
1613:
1614: -- API body
1615: if (l_pLog) then FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'Start');
1616: end if;
1686: end if;
1687:
1688: -- End of API body.
1689: -- Standard check of p_commit.
1690: IF fnd_api.to_boolean(p_commit) THEN
1691: COMMIT WORK;
1692: END IF;
1693:
1694: -- Standard call to get message count and if count is 1, get message info.
1697: fnd_msg_pub.count_and_get(
1698: p_count => x_msg_count
1699: ,p_data => x_msg_data);
1700: EXCEPTION
1701: WHEN fnd_api.g_exc_error THEN
1702: ROLLBACK TO alloc_at_release_cancel;
1703: x_return_status := fnd_api.g_ret_sts_error;
1704: fnd_msg_pub.count_and_get(
1705: -- p_encoded => FND_API.g_false
1699: ,p_data => x_msg_data);
1700: EXCEPTION
1701: WHEN fnd_api.g_exc_error THEN
1702: ROLLBACK TO alloc_at_release_cancel;
1703: x_return_status := fnd_api.g_ret_sts_error;
1704: fnd_msg_pub.count_and_get(
1705: -- p_encoded => FND_API.g_false
1706: p_count => x_msg_count
1707: ,p_data => x_msg_data);
1701: WHEN fnd_api.g_exc_error THEN
1702: ROLLBACK TO alloc_at_release_cancel;
1703: x_return_status := fnd_api.g_ret_sts_error;
1704: fnd_msg_pub.count_and_get(
1705: -- p_encoded => FND_API.g_false
1706: p_count => x_msg_count
1707: ,p_data => x_msg_data);
1708: WHEN fnd_api.g_exc_unexpected_error THEN
1709: ROLLBACK TO alloc_at_release_cancel;
1704: fnd_msg_pub.count_and_get(
1705: -- p_encoded => FND_API.g_false
1706: p_count => x_msg_count
1707: ,p_data => x_msg_data);
1708: WHEN fnd_api.g_exc_unexpected_error THEN
1709: ROLLBACK TO alloc_at_release_cancel;
1710: x_return_status := fnd_api.g_ret_sts_unexp_error;
1711:
1712: fnd_msg_pub.count_and_get(
1706: p_count => x_msg_count
1707: ,p_data => x_msg_data);
1708: WHEN fnd_api.g_exc_unexpected_error THEN
1709: ROLLBACK TO alloc_at_release_cancel;
1710: x_return_status := fnd_api.g_ret_sts_unexp_error;
1711:
1712: fnd_msg_pub.count_and_get(
1713: p_count => x_msg_count
1714: ,p_data => x_msg_data);
1713: p_count => x_msg_count
1714: ,p_data => x_msg_data);
1715: WHEN OTHERS THEN
1716: ROLLBACK TO alloc_at_release_cancel;
1717: x_return_status := fnd_api.g_ret_sts_unexp_error;
1718: IF fnd_msg_pub.check_msg_level(
1719: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1720: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1721: END IF;