[Home] [Help]
337:
338: -- initialize message list
339: FND_MSG_PUB.initialize;
340:
341: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
342: p_api_version_number,
343: l_api_name,
344: G_PKG_NAME) THEN
345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
341: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
342: p_api_version_number,
343: l_api_name,
344: G_PKG_NAME) THEN
345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
346: END IF;
347:
348: x_return_status := FND_API.G_RET_STS_SUCCESS;
349:
344: G_PKG_NAME) THEN
345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
346: END IF;
347:
348: x_return_status := FND_API.G_RET_STS_SUCCESS;
349:
350: SELECT Sysdate INTO l_today FROM dual;
351: l_user_id := fnd_global.user_id;
352: l_login_id := fnd_global.login_id;
376: EXCEPTION
377: WHEN NO_DATA_FOUND THEN
378: CSP_TO_FORM_MOHEADERS.Validate_And_Write(
379: P_Api_Version_Number => 1.0,
380: P_Init_Msg_List => FND_API.G_FALSE,
381: P_Commit => FND_API.G_FALSE,
382: p_validation_level => null,
383: p_action_code => l_action_code,/* 0 = insert, 1 = update, 2 = delete */
384: p_header_id => mo_replen_rec.header_id,
377: WHEN NO_DATA_FOUND THEN
378: CSP_TO_FORM_MOHEADERS.Validate_And_Write(
379: P_Api_Version_Number => 1.0,
380: P_Init_Msg_List => FND_API.G_FALSE,
381: P_Commit => FND_API.G_FALSE,
382: p_validation_level => null,
383: p_action_code => l_action_code,/* 0 = insert, 1 = update, 2 = delete */
384: p_header_id => mo_replen_rec.header_id,
385: p_created_by => l_user_id,
412: X_Msg_Count => l_msg_count,
413: X_Msg_Data => l_msg_data
414: );
415:
416: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: CLOSE mo_replen_cur;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420:
414: );
415:
416: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: CLOSE mo_replen_cur;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420:
421: l_prev_header_id := mo_replen_rec.header_id;
422:
431:
432: -- insert into csp_move_order_line
433: CSP_TO_FORM_MOLINES.Validate_And_write(
434: P_Api_Version_Number => 1.0,
435: P_Init_Msg_List => FND_API.G_FALSE,
436: P_Commit => FND_API.G_FALSE,
437: p_validation_level => null,
438: p_action_code => l_action_code,
439: P_line_id => mo_replen_rec.line_id,
432: -- insert into csp_move_order_line
433: CSP_TO_FORM_MOLINES.Validate_And_write(
434: P_Api_Version_Number => 1.0,
435: P_Init_Msg_List => FND_API.G_FALSE,
436: P_Commit => FND_API.G_FALSE,
437: p_validation_level => null,
438: p_action_code => l_action_code,
439: P_line_id => mo_replen_rec.line_id,
440: p_CREATED_BY => l_user_id,
468: X_Msg_Count => l_msg_count,
469: X_Msg_Data => l_msg_data
470: );
471:
472: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
473: CLOSE mo_replen_cur;
474: RAISE FND_API.G_EXC_ERROR;
475: END IF;
476:
470: );
471:
472: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
473: CLOSE mo_replen_cur;
474: RAISE FND_API.G_EXC_ERROR;
475: END IF;
476:
477: WHEN OTHERS THEN
478: fnd_message.set_name('CSP', 'CSP_UNEXPECTED_EXEC_ERRORS');
496: OPEN mo_line_cur_date_Reqd;
497: ELSIF (p_order_by = 5) THEN
498: OPEN mo_line_cur_created_by;
499: ELSE
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502:
503: LOOP
504: IF (p_order_by = 1) THEN
511: FETCH mo_line_cur_date_reqd INTO mo_line_rec;
512: ELSIF (p_order_by = 5) THEN
513: FETCH mo_line_cur_created_by INTO mo_line_rec;
514: ELSE
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517:
518: EXIT WHEN ((p_order_by = 1 and mo_line_cur_header%NOTFOUND) OR
519: (p_order_by = 2 and mo_line_cur_from_sub%NOTFOUND) OR
534: WHERE inventory_item_id = mo_line_rec.inventory_item_id
535: AND organization_id = p_org_id;
536:
537: IF l_serial_control = 1 THEN
538: l_serial_flag := fnd_api.g_false;
539: ELSE
540: l_serial_flag := fnd_api.g_true;
541: END IF;
542:
536:
537: IF l_serial_control = 1 THEN
538: l_serial_flag := fnd_api.g_false;
539: ELSE
540: l_serial_flag := fnd_api.g_true;
541: END IF;
542:
543:
544: INV_Replenish_Detail_PUB.Line_Details_PUB(
559: p_move_order_type => mo_line_rec.move_order_type,
560: p_serial_flag => l_serial_flag
561: );
562:
563: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
564: fnd_message.set_name ('CSP', 'CSP_MO_DETAILING_ERROR');
565: fnd_message.set_token ('MOVE_ORDER_LINE_ID', to_char(mo_line_rec.line_id), FALSE);
566: fnd_msg_pub.add;
567:
567:
568: for j in reverse 1..fnd_msg_pub.count_msg loop
569: fnd_msg_pub.get
570: ( j
571: , FND_API.G_FALSE
572: , t_msg_data
573: , t_msg_dummy
574: );
575:
579: x_msg_data := x_msg_data || fnd_global.local_chr(10);
580: END IF;
581: l_return_count := l_return_count + 1;
582: end loop;
583: l_return_status := fnd_api.g_ret_sts_success;
584: x_msg_count := -1 ;
585: END IF;
586:
587: IF (l_num_of_rows >= 1) THEN
633: FROM dual;
634:
635: CSP_PC_FORM_PICKHEADERS.Validate_And_Write (
636: P_Api_Version_Number => 1.0,
637: P_Init_Msg_List => FND_API.G_FALSE,
638: P_Commit => FND_API.G_FALSE,
639: p_validation_level => null,
640: p_action_code => l_action_code,
641: px_PICKLIST_HEADER_ID => l_picklist_header_id,
634:
635: CSP_PC_FORM_PICKHEADERS.Validate_And_Write (
636: P_Api_Version_Number => 1.0,
637: P_Init_Msg_List => FND_API.G_FALSE,
638: P_Commit => FND_API.G_FALSE,
639: p_validation_level => null,
640: p_action_code => l_action_code,
641: px_PICKLIST_HEADER_ID => l_picklist_header_id,
642: p_CREATED_BY => l_user_id,
670: X_Msg_Data => l_msg_data
671: );
672: END IF;
673:
674: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
675: RAISE FND_API.G_EXC_ERROR;
676: END IF;
677:
678: l_line_number := (l_line_number + 1);
671: );
672: END IF;
673:
674: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
675: RAISE FND_API.G_EXC_ERROR;
676: END IF;
677:
678: l_line_number := (l_line_number + 1);
679:
682: FROM dual;
683:
684: CSP_PC_FORM_PICKLINES.Validate_And_Write (
685: P_Api_Version_Number => 1.0
686: ,P_Init_Msg_List => FND_API.G_FALSE
687: ,P_Commit => FND_API.G_FALSE
688: ,p_validation_level => null
689: ,p_action_code => l_action_code /* 0 = insert, 1 = update, 2 = delete */
690: ,px_PICKLIST_LINE_ID => l_picklist_line_id
683:
684: CSP_PC_FORM_PICKLINES.Validate_And_Write (
685: P_Api_Version_Number => 1.0
686: ,P_Init_Msg_List => FND_API.G_FALSE
687: ,P_Commit => FND_API.G_FALSE
688: ,p_validation_level => null
689: ,p_action_code => l_action_code /* 0 = insert, 1 = update, 2 = delete */
690: ,px_PICKLIST_LINE_ID => l_picklist_line_id
691: ,p_CREATED_BY => txn_temp_rec.created_by
721: ,x_msg_count => l_msg_count
722: ,x_msg_data => l_msg_data
723: );
724:
725: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
726: RAISE FND_API.G_EXC_ERROR;
727: END IF;
728: END IF;
729: END LOOP;
722: ,x_msg_data => l_msg_data
723: );
724:
725: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
726: RAISE FND_API.G_EXC_ERROR;
727: END IF;
728: END IF;
729: END LOOP;
730: CLOSE txn_temp_cur;
742: CLOSE mo_line_cur_date_Reqd;
743: ELSIF (p_order_by = 5) THEN
744: CLOSE mo_line_cur_created_by;
745: ELSE
746: RAISE FND_API.G_EXC_ERROR;
747: END IF;
748:
749:
750: x_return_status := l_return_status;
754: Rollback to Create_Pick_PUB;
755: fnd_msg_pub.count_and_get
756: ( p_count => x_msg_count
757: , p_data => x_msg_data);
758: x_return_status := FND_API.G_RET_STS_ERROR;
759:
760: WHEN FND_API.G_EXC_ERROR THEN
761: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
762: P_API_NAME => L_API_NAME
756: ( p_count => x_msg_count
757: , p_data => x_msg_data);
758: x_return_status := FND_API.G_RET_STS_ERROR;
759:
760: WHEN FND_API.G_EXC_ERROR THEN
761: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
762: P_API_NAME => L_API_NAME
763: ,P_PKG_NAME => G_PKG_NAME
764: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
765: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
766: ,X_MSG_COUNT => X_MSG_COUNT
767: ,X_MSG_DATA => X_MSG_DATA
768: ,X_RETURN_STATUS => X_RETURN_STATUS);
769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
770: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
771: P_API_NAME => L_API_NAME
772: ,P_PKG_NAME => G_PKG_NAME
773: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
783: fnd_msg_pub.add;
784: fnd_msg_pub.count_and_get
785: ( p_count => x_msg_count
786: , p_data => x_msg_data);
787: x_return_status := fnd_api.g_ret_sts_error;
788: END create_pick;
789:
790:
791: Procedure Confirm_Pick (
818: l_api_name CONSTANT VARCHAR2(30) := 'Confirm_Pick';
819: l_return_status VARCHAR2(1);
820: l_msg_count NUMBER := 0;
821: l_msg_data VARCHAR2(500);
822: l_commit VARCHAR2(1) := fnd_api.g_false;
823: l_check_existence NUMBER := 0;
824: EXCP_USER_DEFINED EXCEPTION;
825: l_picklist_serial_lot_id NUMBER;
826:
942:
943: IF l_total_serial_numbers = 1 THEN
944: CSP_Pick_SL_Util.Validate_And_Write (
945: P_Api_Version_Number => l_api_version_number,
946: P_Init_Msg_List => FND_API.G_TRUE,
947: P_Commit => l_commit,
948: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
949: p_action_code => 0,
950: px_PICKLIST_SERIAL_LOT_ID => l_picklist_serial_lot_id,
944: CSP_Pick_SL_Util.Validate_And_Write (
945: P_Api_Version_Number => l_api_version_number,
946: P_Init_Msg_List => FND_API.G_TRUE,
947: P_Commit => l_commit,
948: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
949: p_action_code => 0,
950: px_PICKLIST_SERIAL_LOT_ID => l_picklist_serial_lot_id,
951: p_CREATED_BY => G_USER_ID,
952: p_CREATION_DATE => sysdate,
963: X_Msg_Count => l_msg_count,
964: X_Msg_Data => l_msg_data
965: );
966:
967: IF l_return_status <> fnd_api.g_ret_sts_success THEN
968: CLOSE l_Get_Serial_Numbers_Csr;
969: RETURN FALSE;
970: END IF;
971: ELSE
974:
975: WHILE l_index <= l_total_serial_numbers LOOP
976: CSP_Pick_SL_Util.Validate_And_Write (
977: P_Api_Version_Number => l_api_version_number,
978: P_Init_Msg_List => FND_API.G_TRUE,
979: P_Commit => l_commit,
980: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
981: p_action_code => 0,
982: px_PICKLIST_SERIAL_LOT_ID => l_picklist_serial_lot_id,
976: CSP_Pick_SL_Util.Validate_And_Write (
977: P_Api_Version_Number => l_api_version_number,
978: P_Init_Msg_List => FND_API.G_TRUE,
979: P_Commit => l_commit,
980: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
981: p_action_code => 0,
982: px_PICKLIST_SERIAL_LOT_ID => l_picklist_serial_lot_id,
983: p_CREATED_BY => G_USER_ID,
984: p_CREATION_DATE => sysdate,
994: X_Return_Status => l_return_status,
995: X_Msg_Count => l_msg_count,
996: X_Msg_Data => l_msg_data );
997:
998: IF l_return_status <> fnd_api.g_ret_sts_success THEN
999: CLOSE l_Get_Serial_Numbers_Csr;
1000: RETURN FALSE;
1001: END IF;
1002:
1049:
1050: BEGIN
1051: -- Start of API savepoint
1052: SAVEPOINT Confirm_Pick_PUB;
1053: x_return_status := fnd_api.g_ret_sts_success;
1054:
1055: -- initialize message list
1056: IF fnd_api.to_boolean(p_init_msg_list) THEN
1057: FND_MSG_PUB.initialize;
1052: SAVEPOINT Confirm_Pick_PUB;
1053: x_return_status := fnd_api.g_ret_sts_success;
1054:
1055: -- initialize message list
1056: IF fnd_api.to_boolean(p_init_msg_list) THEN
1057: FND_MSG_PUB.initialize;
1058: END IF;
1059:
1060: -- Standard call to check for call compatibility.
1057: FND_MSG_PUB.initialize;
1058: END IF;
1059:
1060: -- Standard call to check for call compatibility.
1061: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1062: p_api_version_number,
1063: l_api_name,
1064: G_PKG_NAME)
1065: THEN
1062: p_api_version_number,
1063: l_api_name,
1064: G_PKG_NAME)
1065: THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: END IF;
1068:
1069: IF p_organization_id IS NULL THEN
1070: fnd_message.set_name ('CSP', 'CSP_MISSING_PARAMETERS');
1127:
1128: Update_Misc_MMTT (
1129: P_Api_Version_Number => p_api_version_number,
1130: P_Init_Msg_List => p_init_msg_list,
1131: P_Commit => fnd_api.g_false,
1132: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1133: p_transaction_temp_id => l_picklist_line_rec.transaction_temp_id,
1134: p_organization_id => p_organization_id,
1135: X_Return_Status => l_return_status,
1128: Update_Misc_MMTT (
1129: P_Api_Version_Number => p_api_version_number,
1130: P_Init_Msg_List => p_init_msg_list,
1131: P_Commit => fnd_api.g_false,
1132: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1133: p_transaction_temp_id => l_picklist_line_rec.transaction_temp_id,
1134: p_organization_id => p_organization_id,
1135: X_Return_Status => l_return_status,
1136: X_Msg_Count => l_msg_count,
1135: X_Return_Status => l_return_status,
1136: X_Msg_Count => l_msg_count,
1137: X_Msg_Data => l_msg_data );
1138:
1139: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1140: CLOSE l_Get_Mmtt_Csr;
1141: CLOSE l_Get_Picklist_Lines_Csr;
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1138:
1139: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1140: CLOSE l_Get_Mmtt_Csr;
1141: CLOSE l_Get_Picklist_Lines_Csr;
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1144:
1145: -- Find the serial_control_code and the lot_control_code of the record in the mmtt table.
1146: OPEN l_Get_Mmtt_Csr(l_picklist_line_rec.transaction_temp_id);
1180: Else
1181: -- the item is only under lot control, insert the lot number into the csp_picklist_serial_lots
1182: CSP_Pick_SL_Util.Validate_And_Write (
1183: P_Api_Version_Number => l_api_version_number,
1184: P_Init_Msg_List => FND_API.G_TRUE,
1185: P_Commit => l_commit,
1186: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1187: p_action_code => 0,
1188: px_PICKLIST_SERIAL_LOT_ID => l_picklist_serial_lot_id,
1182: CSP_Pick_SL_Util.Validate_And_Write (
1183: P_Api_Version_Number => l_api_version_number,
1184: P_Init_Msg_List => FND_API.G_TRUE,
1185: P_Commit => l_commit,
1186: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1187: p_action_code => 0,
1188: px_PICKLIST_SERIAL_LOT_ID => l_picklist_serial_lot_id,
1189: p_CREATED_BY => G_USER_ID,
1190: p_CREATION_DATE => sysdate,
1200: X_Return_Status => l_return_status,
1201: X_Msg_Count => l_msg_count,
1202: X_Msg_Data => l_msg_data
1203: );
1204: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1205: CLOSE l_Get_Mmtt_Csr;
1206: CLOSE l_Get_Picklist_Lines_Csr;
1207: RAISE FND_API.G_EXC_ERROR;
1208: END IF;
1203: );
1204: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1205: CLOSE l_Get_Mmtt_Csr;
1206: CLOSE l_Get_Picklist_Lines_Csr;
1207: RAISE FND_API.G_EXC_ERROR;
1208: END IF;
1209: End If;
1210: End loop process_lot_rec;
1211:
1252:
1253: -- update the quantity_detailed in the mtl_txn_request_lines
1254: /* Save_Pick (
1255: P_Api_Version_Number => l_api_version_number
1256: ,P_Init_Msg_List => FND_API.G_TRUE
1257: ,P_Commit => FND_API.G_FALSE
1258: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1259: ,p_picklist_header_id => p_picklist_header_id
1260: ,p_organization_id => p_organization_id
1253: -- update the quantity_detailed in the mtl_txn_request_lines
1254: /* Save_Pick (
1255: P_Api_Version_Number => l_api_version_number
1256: ,P_Init_Msg_List => FND_API.G_TRUE
1257: ,P_Commit => FND_API.G_FALSE
1258: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1259: ,p_picklist_header_id => p_picklist_header_id
1260: ,p_organization_id => p_organization_id
1261: ,x_return_status => l_return_status
1254: /* Save_Pick (
1255: P_Api_Version_Number => l_api_version_number
1256: ,P_Init_Msg_List => FND_API.G_TRUE
1257: ,P_Commit => FND_API.G_FALSE
1258: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1259: ,p_picklist_header_id => p_picklist_header_id
1260: ,p_organization_id => p_organization_id
1261: ,x_return_status => l_return_status
1262: ,x_msg_count => l_msg_count
1262: ,x_msg_count => l_msg_count
1263: ,x_msg_data => l_msg_data
1264: );
1265:
1266: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1267: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1269: */
1270: IF fnd_api.to_boolean(p_commit) THEN
1263: ,x_msg_data => l_msg_data
1264: );
1265:
1266: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1267: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1269: */
1270: IF fnd_api.to_boolean(p_commit) THEN
1271: commit work;
1266: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1267: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1269: */
1270: IF fnd_api.to_boolean(p_commit) THEN
1271: commit work;
1272: END IF;
1273:
1274: EXCEPTION
1276: Rollback to Confirm_Pick_PUB;
1277: fnd_msg_pub.count_and_get
1278: ( p_count => x_msg_count
1279: , p_data => x_msg_data);
1280: x_return_status := FND_API.G_RET_STS_ERROR;
1281:
1282: WHEN FND_API.G_EXC_ERROR THEN
1283: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1284: P_API_NAME => L_API_NAME
1278: ( p_count => x_msg_count
1279: , p_data => x_msg_data);
1280: x_return_status := FND_API.G_RET_STS_ERROR;
1281:
1282: WHEN FND_API.G_EXC_ERROR THEN
1283: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1284: P_API_NAME => L_API_NAME
1285: ,P_PKG_NAME => G_PKG_NAME
1286: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1287: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1288: ,X_MSG_COUNT => X_MSG_COUNT
1289: ,X_MSG_DATA => X_MSG_DATA
1290: ,X_RETURN_STATUS => X_RETURN_STATUS);
1291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1292: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1293: P_API_NAME => L_API_NAME
1294: ,P_PKG_NAME => G_PKG_NAME
1295: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1305: fnd_msg_pub.add;
1306: fnd_msg_pub.count_and_get
1307: ( p_count => x_msg_count
1308: , p_data => x_msg_data);
1309: x_return_status := fnd_api.g_ret_sts_error;
1310:
1311: END Confirm_Pick;
1312:
1313: Procedure Update_Misc_MMTT (
1341:
1342: l_api_version_number CONSTANT NUMBER := 1.0;
1343: l_api_name CONSTANT VARCHAR2(50) := 'Update_Misc_MMTT';
1344: l_msg_data VARCHAR2(300);
1345: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_NONE;
1346: l_check_existence NUMBER := 0;
1347: l_return_status VARCHAR2(1);
1348: l_msg_count NUMBER := 0;
1349: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1345: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_NONE;
1346: l_check_existence NUMBER := 0;
1347: l_return_status VARCHAR2(1);
1348: l_msg_count NUMBER := 0;
1349: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1350: l_item_serial_control_code NUMBER;
1351: l_item_lot_control_code NUMBER;
1352: EXCP_USER_DEFINED EXCEPTION;
1353:
1550: WHERE transaction_temp_id = p_transaction_temp_id
1551: AND organization_id = p_organization_id;
1552: BEGIN
1553: SAVEPOINT Update_Misc_MMTT_PUB;
1554: x_return_status := fnd_api.g_ret_sts_success;
1555:
1556: -- initialize message list
1557: IF fnd_api.to_boolean(p_init_msg_list) THEN
1558: FND_MSG_PUB.initialize;
1553: SAVEPOINT Update_Misc_MMTT_PUB;
1554: x_return_status := fnd_api.g_ret_sts_success;
1555:
1556: -- initialize message list
1557: IF fnd_api.to_boolean(p_init_msg_list) THEN
1558: FND_MSG_PUB.initialize;
1559: END IF;
1560:
1561: -- Standard call to check for call compatibility.
1558: FND_MSG_PUB.initialize;
1559: END IF;
1560:
1561: -- Standard call to check for call compatibility.
1562: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1563: p_api_version_number,
1564: l_api_name,
1565: G_PKG_NAME)
1566: THEN
1563: p_api_version_number,
1564: l_api_name,
1565: G_PKG_NAME)
1566: THEN
1567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1568: END IF;
1569:
1570: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL THEN
1571: IF p_organization_id IS NULL THEN
1566: THEN
1567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1568: END IF;
1569:
1570: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL THEN
1571: IF p_organization_id IS NULL THEN
1572: fnd_message.set_name ('CSP', 'CSP_MISSING_PARAMETERS');
1573: fnd_message.set_token ('PARAMETER', 'p_organization_id', TRUE);
1574: fnd_msg_pub.add;
1629:
1630: CSP_Material_Transactions_PVT.Update_material_transactions(
1631: P_Api_Version_Number => p_api_version_number,
1632: P_Init_Msg_List => p_init_msg_list,
1633: P_Commit => fnd_api.g_false,
1634: p_validation_level => l_validation_level,
1635: P_CSP_Rec => l_csp_mtltxn_rec,
1636: X_Return_Status => l_return_status,
1637: X_Msg_Count => l_msg_count,
1636: X_Return_Status => l_return_status,
1637: X_Msg_Count => l_msg_count,
1638: X_Msg_Data => l_msg_data);
1639:
1640: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1641: RAISE FND_API.G_EXC_ERROR;
1642: END IF;
1643:
1644: x_return_status := l_return_status;
1637: X_Msg_Count => l_msg_count,
1638: X_Msg_Data => l_msg_data);
1639:
1640: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1641: RAISE FND_API.G_EXC_ERROR;
1642: END IF;
1643:
1644: x_return_status := l_return_status;
1645:
1642: END IF;
1643:
1644: x_return_status := l_return_status;
1645:
1646: IF fnd_api.to_boolean(P_Commit) THEN
1647: commit work;
1648: END IF;
1649:
1650: EXCEPTION
1652: Rollback to Update_Misc_MMTT_PUB;
1653: fnd_msg_pub.count_and_get
1654: ( p_count => x_msg_count
1655: , p_data => x_msg_data);
1656: x_return_status := FND_API.G_RET_STS_ERROR;
1657: WHEN FND_API.G_EXC_ERROR THEN
1658: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1659: P_API_NAME => L_API_NAME
1660: ,P_PKG_NAME => G_PKG_NAME
1653: fnd_msg_pub.count_and_get
1654: ( p_count => x_msg_count
1655: , p_data => x_msg_data);
1656: x_return_status := FND_API.G_RET_STS_ERROR;
1657: WHEN FND_API.G_EXC_ERROR THEN
1658: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1659: P_API_NAME => L_API_NAME
1660: ,P_PKG_NAME => G_PKG_NAME
1661: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1662: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1663: ,X_MSG_COUNT => X_MSG_COUNT
1664: ,X_MSG_DATA => X_MSG_DATA
1665: ,X_RETURN_STATUS => X_RETURN_STATUS);
1666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1667: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1668: P_API_NAME => L_API_NAME
1669: ,P_PKG_NAME => G_PKG_NAME
1670: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1680: fnd_msg_pub.add;
1681: fnd_msg_pub.count_and_get
1682: ( p_count => x_msg_count
1683: , p_data => x_msg_data);
1684: x_return_status := fnd_api.g_ret_sts_error;
1685:
1686: END Update_Misc_MMTT;
1687:
1688:
1718: l_api_name CONSTANT VARCHAR2(30) := 'Save_Pick';
1719: l_return_status VARCHAR2(1);
1720: l_msg_count NUMBER := 0;
1721: l_msg_data VARCHAR2(500);
1722: l_commit VARCHAR2(1) := fnd_api.g_false;
1723: l_check_existence NUMBER := 0;
1724: EXCP_USER_DEFINED EXCEPTION;
1725:
1726: CURSOR pickline_cur IS
1734: l_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1735: BEGIN
1736: -- Start of API savepoint
1737: SAVEPOINT Save_Pick_PUB;
1738: x_return_status := fnd_api.g_ret_sts_success;
1739:
1740: -- initialize message list
1741: IF fnd_api.to_boolean(p_init_msg_list) THEN
1742: FND_MSG_PUB.initialize;
1737: SAVEPOINT Save_Pick_PUB;
1738: x_return_status := fnd_api.g_ret_sts_success;
1739:
1740: -- initialize message list
1741: IF fnd_api.to_boolean(p_init_msg_list) THEN
1742: FND_MSG_PUB.initialize;
1743: END IF;
1744:
1745: -- Standard call to check for call compatibility.
1742: FND_MSG_PUB.initialize;
1743: END IF;
1744:
1745: -- Standard call to check for call compatibility.
1746: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1747: p_api_version_number,
1748: l_api_name,
1749: G_PKG_NAME)
1750: THEN
1747: p_api_version_number,
1748: l_api_name,
1749: G_PKG_NAME)
1750: THEN
1751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1752: END IF;
1753:
1754: IF p_organization_id IS NULL THEN
1755: fnd_message.set_name ('CSP', 'CSP_MISSING_PARAMETERS');
1795:
1796: END LOOP;
1797:
1798: CLOSE pickline_cur;
1799: x_return_status := fnd_api.G_ret_sts_success;
1800:
1801: EXCEPTION
1802: WHEN EXCP_USER_DEFINED THEN
1803: Rollback to Save_Pick_PUB;
1803: Rollback to Save_Pick_PUB;
1804: fnd_msg_pub.count_and_get
1805: ( p_count => x_msg_count
1806: , p_data => x_msg_data);
1807: x_return_status := FND_API.G_RET_STS_ERROR;
1808:
1809: WHEN FND_API.G_EXC_ERROR THEN
1810: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1811: P_API_NAME => L_API_NAME
1805: ( p_count => x_msg_count
1806: , p_data => x_msg_data);
1807: x_return_status := FND_API.G_RET_STS_ERROR;
1808:
1809: WHEN FND_API.G_EXC_ERROR THEN
1810: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1811: P_API_NAME => L_API_NAME
1812: ,P_PKG_NAME => G_PKG_NAME
1813: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1814: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1815: ,X_MSG_COUNT => X_MSG_COUNT
1816: ,X_MSG_DATA => X_MSG_DATA
1817: ,X_RETURN_STATUS => X_RETURN_STATUS);
1818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1819: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1820: P_API_NAME => L_API_NAME
1821: ,P_PKG_NAME => G_PKG_NAME
1822: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1832: fnd_msg_pub.add;
1833: fnd_msg_pub.count_and_get
1834: ( p_count => x_msg_count
1835: , p_data => x_msg_data);
1836: x_return_status := fnd_api.g_ret_sts_error;
1837:
1838: END Save_Pick;
1839: Procedure Issue_Savepoint(p_Savepoint Varchar2) Is
1840: Begin
2333: END get_object_Type_meaning;
2334: FUNCTION get_ret_sts_success return varchar2
2335: IS
2336: BEGIN
2337: return fnd_api.g_ret_sts_success;
2338: END get_ret_sts_success;
2339:
2340: FUNCTION get_ret_sts_error return varchar2
2341: IS
2339:
2340: FUNCTION get_ret_sts_error return varchar2
2341: IS
2342: BEGIN
2343: return fnd_api.g_ret_sts_error;
2344: END get_ret_sts_error;
2345:
2346: FUNCTION get_ret_sts_unexp_error return varchar2
2347: IS
2345:
2346: FUNCTION get_ret_sts_unexp_error return varchar2
2347: IS
2348: BEGIN
2349: return fnd_api.g_ret_sts_unexp_error;
2350: END get_ret_sts_unexp_error;
2351:
2352: FUNCTION get_true return varchar2
2353: IS
2351:
2352: FUNCTION get_true return varchar2
2353: IS
2354: BEGIN
2355: return fnd_api.g_true;
2356: END get_true;
2357:
2358: FUNCTION get_false return varchar2
2359: IS
2357:
2358: FUNCTION get_false return varchar2
2359: IS
2360: BEGIN
2361: return fnd_api.g_false;
2362: END get_false;
2363:
2364: Function get_rs_cust_sequence return number
2365: IS