31: --------------------------------------------------------------
32:
33: PROCEDURE Get_Status_Order_Rules (
34: p_api_version IN NUMBER,
35: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
36: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
37: p_module_type IN VARCHAR2 := 'JSP',
38: p_current_status_code IN VARCHAR2,
39: p_system_status_type IN VARCHAR2,
32:
33: PROCEDURE Get_Status_Order_Rules (
34: p_api_version IN NUMBER,
35: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
36: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
37: p_module_type IN VARCHAR2 := 'JSP',
38: p_current_status_code IN VARCHAR2,
39: p_system_status_type IN VARCHAR2,
40: x_status_order_rules_tbl OUT NOCOPY Status_Order_Rules_Tbl,
83: IF G_DEBUG='Y' THEN
84: AHL_DEBUG_PUB.debug( 'enter ahl_status_order_rules_pvt.get_status_order_rules','+STORULE+');
85: END IF;
86: -- Standard call to check for call compatibility.
87: IF FND_API.to_boolean(p_init_msg_list)
88: THEN
89: FND_MSG_PUB.initialize;
90: END IF;
91: -- Initialize API return status to success
88: THEN
89: FND_MSG_PUB.initialize;
90: END IF;
91: -- Initialize API return status to success
92: x_return_status := FND_API.G_RET_STS_SUCCESS;
93: -- Initialize message list if p_init_msg_list is set to TRUE.
94: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
95: p_api_version,
96: l_api_name,G_PKG_NAME)
90: END IF;
91: -- Initialize API return status to success
92: x_return_status := FND_API.G_RET_STS_SUCCESS;
93: -- Initialize message list if p_init_msg_list is set to TRUE.
94: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
95: p_api_version,
96: l_api_name,G_PKG_NAME)
97: THEN
98: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
94: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
95: p_api_version,
96: l_api_name,G_PKG_NAME)
97: THEN
98: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
99: END IF;
100:
101: IF G_DEBUG='Y'
102: THEN
136:
137:
138: EXCEPTION
139: WHEN NO_DATA_FOUND THEN
140: x_return_status := Fnd_Api.G_RET_STS_ERROR;
141: IF G_DEBUG='Y' THEN
142: AHL_DEBUG_PUB.disable_debug;
143: END IF;
144:
142: AHL_DEBUG_PUB.disable_debug;
143: END IF;
144:
145: WHEN TOO_MANY_ROWS THEN
146: x_return_status := Fnd_Api.G_RET_STS_ERROR;
147: IF G_DEBUG='Y' THEN
148: AHL_DEBUG_PUB.disable_debug;
149: END IF;
150:
148: AHL_DEBUG_PUB.disable_debug;
149: END IF;
150:
151: WHEN OTHERS THEN
152: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
153: IF G_DEBUG='Y' THEN
154: AHL_DEBUG_PUB.disable_debug;
155: END IF;
156: RAISE;