1: PACKAGE BODY GMD_ROUTINGS_PUB AS
2: /* $Header: GMDPROUB.pls 120.4.12010000.4 2010/02/03 19:37:49 plowe ship $ */
3:
4:
5: --Bug 3222090, NSRIVAST 20-FEB-2004, BEGIN
42: p_api_version IN NUMBER := 1
43: , p_init_msg_list IN BOOLEAN := TRUE
44: , p_commit IN BOOLEAN := FALSE
45: , p_routings IN gmd_routings%ROWTYPE
46: , p_routings_step_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_tab
47: , p_routings_step_dep_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab
48: , x_message_count OUT NOCOPY NUMBER
49: , x_message_list OUT NOCOPY VARCHAR2
50: , x_return_status OUT NOCOPY VARCHAR2
43: , p_init_msg_list IN BOOLEAN := TRUE
44: , p_commit IN BOOLEAN := FALSE
45: , p_routings IN gmd_routings%ROWTYPE
46: , p_routings_step_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_tab
47: , p_routings_step_dep_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab
48: , x_message_count OUT NOCOPY NUMBER
49: , x_message_list OUT NOCOPY VARCHAR2
50: , x_return_status OUT NOCOPY VARCHAR2
51: ) IS
64: l_return_from_routing_step VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
65: l_routing_qty gmd_routings.routing_qty%TYPE := 0;
66: l_process_loss gmd_routings.process_loss%TYPE := 0;
67: l_routing_class_um fm_rout_cls.uom%TYPE;
68: l_stepdep_tbl GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
69: l_step_dep_tab GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
70:
71: --kkillams,bug 3408799
72: l_entity_status GMD_API_GRP.status_rec_type;
65: l_routing_qty gmd_routings.routing_qty%TYPE := 0;
66: l_process_loss gmd_routings.process_loss%TYPE := 0;
67: l_routing_class_um fm_rout_cls.uom%TYPE;
68: l_stepdep_tbl GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
69: l_step_dep_tab GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
70:
71: --kkillams,bug 3408799
72: l_entity_status GMD_API_GRP.status_rec_type;
73:
153: RAISE setup_failure;
154: END IF;
155:
156: /* Make sure we are call compatible */
157: IF NOT FND_API.compatible_api_call ( gmd_routings_PUB.m_api_version
158: ,p_api_version
159: ,'INSERT_ROUTING'
160: ,gmd_routings_PUB.m_pkg_name) THEN
161: RAISE invalid_version;
156: /* Make sure we are call compatible */
157: IF NOT FND_API.compatible_api_call ( gmd_routings_PUB.m_api_version
158: ,p_api_version
159: ,'INSERT_ROUTING'
160: ,gmd_routings_PUB.m_pkg_name) THEN
161: RAISE invalid_version;
162: END IF;
163:
164: IF p_routings.routing_no IS NULL THEN
587: ,p_data => x_message_list);
588: WHEN OTHERS THEN
589: ROLLBACK TO SAVEPOINT create_routing;
590: x_return_status := FND_API.g_ret_sts_unexp_error;
591: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);
592: IF (l_debug = 'Y') THEN
593: gmd_debug.put_line (m_pkg_name||'.'||l_api_name||':'||'When others exception:'||SQLERRM);
594: END IF;
595: fnd_msg_pub.count_and_get (
686: RAISE setup_failure;
687: END IF;
688:
689: /* Make sure we are call compatible */
690: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
691: ,p_api_version
692: ,l_api_name
693: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
694: RAISE invalid_version;
689: /* Make sure we are call compatible */
690: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
691: ,p_api_version
692: ,l_api_name
693: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
694: RAISE invalid_version;
695: END IF;
696:
697: /* Validation 1. Check if this routing that is updated does exists
882: ,p_data => x_message_list);
883: WHEN OTHERS THEN
884: ROLLBACK TO SAVEPOINT update_routing;
885: x_return_status := FND_API.g_ret_sts_unexp_error;
886: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);
887: IF (l_debug = 'Y') THEN
888: gmd_debug.put_line (m_pkg_name||'.'||l_api_name||':'||'When others exception:'||SQLERRM);
889: END IF;
890: fnd_msg_pub.count_and_get (
931: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
932: l_count NUMBER;
933:
934: /* Define a table type */
935: l_update_table GMD_ROUTINGS_PUB.UPDATE_TBL_TYPE;
936:
937:
938: /* Define Exceptions */
939: routing_delete_failure EXCEPTION;
962: RAISE setup_failure;
963: END IF;
964:
965: /* Make sure we are call compatible */
966: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
967: ,p_api_version
968: ,l_api_name
969: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
970: x_return_status := FND_API.G_RET_STS_ERROR;
965: /* Make sure we are call compatible */
966: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
967: ,p_api_version
968: ,l_api_name
969: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
970: x_return_status := FND_API.G_RET_STS_ERROR;
971: RAISE invalid_version;
972: END IF;
973:
1003:
1004: l_update_table(1).P_COL_TO_UPDATE := 'DELETE_MARK';
1005: l_update_table(1).P_VALUE := '1';
1006:
1007: GMD_ROUTINGS_PUB.update_routing
1008: ( p_routing_id => l_routing_id
1009: , p_update_table => l_update_table
1010: , p_commit => FALSE
1011: , x_message_count => x_message_count
1058: ,p_data => x_message_list);
1059: WHEN OTHERS THEN
1060: ROLLBACK TO SAVEPOINT delete_routing;
1061: x_return_status := FND_API.g_ret_sts_unexp_error;
1062: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);
1063: IF (l_debug = 'Y') THEN
1064: gmd_debug.put_line (m_pkg_name||'.'||l_api_name||':'||'When others exception:'||SQLERRM);
1065: END IF;
1066: fnd_msg_pub.count_and_get (
1098: l_routing_id gmd_routings.routing_id%TYPE;
1099: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1100:
1101: /* Define a table type */
1102: l_update_table GMD_ROUTINGS_PUB.UPDATE_TBL_TYPE;
1103:
1104: /* Define Exceptions */
1105: routing_undelete_failure EXCEPTION;
1106: invalid_version EXCEPTION;
1127: RAISE setup_failure;
1128: END IF;
1129:
1130: /* Make sure we are call compatible */
1131: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
1132: ,p_api_version
1133: ,l_api_name
1134: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1130: /* Make sure we are call compatible */
1131: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
1132: ,p_api_version
1133: ,l_api_name
1134: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1136: RAISE invalid_version;
1137: END IF;
1138:
1199: ,p_data => x_message_list);
1200: WHEN OTHERS THEN
1201: ROLLBACK TO SAVEPOINT undelete_routing;
1202: x_return_status := FND_API.g_ret_sts_unexp_error;
1203: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);
1204: IF (l_debug = 'Y') THEN
1205: gmd_debug.put_line (m_pkg_name||'.'||l_api_name||':'||'When others exception:'||SQLERRM);
1206: END IF;
1207: fnd_msg_pub.count_and_get (
1210: ,p_data => x_message_list);
1211: END undelete_routing;
1212:
1213:
1214: END GMD_ROUTINGS_PUB;