[Home] [Help]
1: PACKAGE BODY GMD_ERES_UTILS AS
2: /* $Header: GMDERESB.pls 120.8.12000000.2 2007/02/13 12:17:16 kmotupal ship $ */
3:
4:
5: --Bug 3222090, NSRIVAST 20-FEB-2004, BEGIN
1594: END IF;
1595: CLOSE Cur_get_status_type;
1596:
1597: IF (l_debug= 'Y') THEN
1598: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1599: 'The to status type = '||l_status_type);
1600: END IF;
1601:
1602: /* Bug # 2353561 - Shyam Sitaram */
1603: /*ERES Implementation - If approvals are required for the */
1604: /*status change of the validity rules then the user has to */
1605: /*do them manually */
1606: IF (l_status_type IN ('800','900','1000') ) THEN
1607: IF GMD_ERES_UTILS.check_recipe_validity_eres (p_recipe_id
1608: ,p_to_status) THEN
1609: IF (l_debug= 'Y') THEN
1610: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1611: 'VR eres sig is required and it has be done manually ');
1606: IF (l_status_type IN ('800','900','1000') ) THEN
1607: IF GMD_ERES_UTILS.check_recipe_validity_eres (p_recipe_id
1608: ,p_to_status) THEN
1609: IF (l_debug= 'Y') THEN
1610: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1611: 'VR eres sig is required and it has be done manually ');
1612: END IF;
1613:
1614: RAISE VR_ERES_REQ;
1635: END IF;
1636: END IF;
1637:
1638: IF (l_debug= 'Y') THEN
1639: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1640: 'About to lock this recipe '||p_recipe_id);
1641: END IF;
1642:
1643: SELECT 'x'
1646: WHERE recipe_id = p_recipe_id
1647: FOR UPDATE OF recipe_status nowait;
1648:
1649: IF (l_debug= 'Y') THEN
1650: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1651: 'About to update recipe with status = '||p_to_status);
1652: END IF;
1653:
1654: UPDATE gmd_recipes_b
1665: ,p_event_key => p_recipe_id
1666: ,p_status => l_erec_reqd);
1667:
1668: IF (l_debug= 'Y') THEN
1669: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1670: 'Checks if recipe esig is req ');
1671: END IF;
1672:
1673: IF (l_esig_reqd OR l_erec_reqd) THEN
1674:
1675: IF (l_esig_reqd) THEN
1676:
1677: IF (l_debug= 'Y') THEN
1678: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1679: 'Esig is req with pending sts = '|| p_pending_status);
1680: END IF;
1681:
1682: OPEN Cur_get_status_desc (p_from_status);
1699:
1700: END IF; /* IF (l_esig_reqd OR l_erec_reqd) */
1701:
1702: IF (l_debug= 'Y') THEN
1703: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1704: 'Raising Esig event ');
1705: END IF;
1706:
1707: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_RECP_USR_LBL');
1731: ,p_parameter_name7 =>'PSIG_TRANSACTION_AUDIT_ID'
1732: ,p_parameter_value7=>-1);
1733:
1734: IF (l_debug= 'Y') THEN
1735: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1736: 'After Raise Esig event ');
1737: END IF;
1738:
1739: IF l_esig_reqd THEN
2020: );
2021: WHEN OTHERS THEN
2022: ROLLBACK TO SAVEPOINT update_validity;
2023: X_return_status := FND_API.g_ret_sts_unexp_error;
2024: fnd_msg_pub.add_exc_msg ('GMD_ERES_UTILS', l_api_name);
2025: END update_validity_rule_status;
2026:
2027: /*###############################################################
2028: # NAME
2181: );
2182: WHEN OTHERS THEN
2183: ROLLBACK TO SAVEPOINT update_substitution;
2184: X_return_status := FND_API.g_ret_sts_unexp_error;
2185: fnd_msg_pub.add_exc_msg ('GMD_ERES_UTILS', l_api_name);
2186:
2187:
2188: END update_substitution_status;
2189:
2631: CLOSE get_lookup;
2632:
2633: END get_yes_no_value ;
2634:
2635: end GMD_ERES_UTILS;