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