1: PACKAGE BODY GMD_RECIPE_HEADER_PVT AS
2: /* $Header: GMDVRCHB.pls 120.6.12010000.2 2008/11/12 18:37:33 rnalla ship $ */
3:
4:
5: /* Define any variable specific to this package */
2: /* $Header: GMDVRCHB.pls 120.6.12010000.2 2008/11/12 18:37:33 rnalla ship $ */
3:
4:
5: /* Define any variable specific to this package */
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMD_RECIPE_HEADER_PVT' ;
7:
8: --Bug 3222090, NSRIVAST 20-FEB-2004, BEGIN
9: --Forward declaration.
10: FUNCTION set_debug_flag RETURN VARCHAR2;
46: /* End of comments */
47: /* ===================================================*/
48:
49: PROCEDURE CREATE_RECIPE_HEADER
50: ( p_recipe_header_rec IN GMD_RECIPE_HEADER.recipe_hdr ,
51: p_recipe_hdr_flex_rec IN GMD_RECIPE_HEADER.flex ,
52: x_return_status OUT NOCOPY VARCHAR2
53: ) IS
54:
47: /* ===================================================*/
48:
49: PROCEDURE CREATE_RECIPE_HEADER
50: ( p_recipe_header_rec IN GMD_RECIPE_HEADER.recipe_hdr ,
51: p_recipe_hdr_flex_rec IN GMD_RECIPE_HEADER.flex ,
52: x_return_status OUT NOCOPY VARCHAR2
53: ) IS
54:
55: /* Defining all local variables */
345: /* nullified. 10-APR-2006 */
346: /* End of comments */
347:
348: PROCEDURE UPDATE_RECIPE_HEADER
349: ( p_recipe_header_rec IN GMD_RECIPE_HEADER.recipe_hdr ,
350: p_flex_header_rec IN GMD_RECIPE_HEADER.update_flex ,
351: x_return_status OUT NOCOPY VARCHAR2
352: ) IS
353:
346: /* End of comments */
347:
348: PROCEDURE UPDATE_RECIPE_HEADER
349: ( p_recipe_header_rec IN GMD_RECIPE_HEADER.recipe_hdr ,
350: p_flex_header_rec IN GMD_RECIPE_HEADER.update_flex ,
351: x_return_status OUT NOCOPY VARCHAR2
352: ) IS
353:
354: /* Defining all local variables */
670: END UPDATE_RECIPE_HEADER;
671:
672:
673: PROCEDURE DELETE_RECIPE_HEADER
674: ( p_recipe_header_rec IN GMD_RECIPE_HEADER.recipe_hdr ,
675: p_flex_header_rec IN GMD_RECIPE_HEADER.update_flex ,
676: x_return_status OUT NOCOPY VARCHAR2
677: ) IS
678:
671:
672:
673: PROCEDURE DELETE_RECIPE_HEADER
674: ( p_recipe_header_rec IN GMD_RECIPE_HEADER.recipe_hdr ,
675: p_flex_header_rec IN GMD_RECIPE_HEADER.update_flex ,
676: x_return_status OUT NOCOPY VARCHAR2
677: ) IS
678:
679: BEGIN
682: /* Delete in OPM world is not a physical delete. Its a logical delete */
683: /* i.e its an update with the delete_mark set to 1 */
684: /* Therefore prior to calling this procedure the delete_mark need to be set to 1 */
685:
686: GMD_RECIPE_HEADER_PVT.UPDATE_RECIPE_HEADER
687: (p_recipe_header_rec => p_recipe_header_rec ,
688: p_flex_header_rec => p_flex_header_rec ,
689: x_return_status => x_return_status
690: );
717: /* ===================================================*/
718:
719: PROCEDURE COPY_RECIPE_HEADER
720: ( p_old_recipe_id IN GMD_RECIPES_B.recipe_id%TYPE ,
721: p_recipe_header_rec IN GMD_RECIPE_HEADER.recipe_hdr ,
722: p_recipe_hdr_flex_rec IN GMD_RECIPE_HEADER.flex ,
723: x_return_status OUT NOCOPY VARCHAR2
724: ) IS
725:
718:
719: PROCEDURE COPY_RECIPE_HEADER
720: ( p_old_recipe_id IN GMD_RECIPES_B.recipe_id%TYPE ,
721: p_recipe_header_rec IN GMD_RECIPE_HEADER.recipe_hdr ,
722: p_recipe_hdr_flex_rec IN GMD_RECIPE_HEADER.flex ,
723: x_return_status OUT NOCOPY VARCHAR2
724: ) IS
725:
726: CURSOR get_old_recipe_record(vRecipe_id GMD_RECIPES_B.recipe_id%TYPE) IS
767: l_rowcount NUMBER := 0;
768: l_plant_ind NUMBER;
769: l_changed_flag BOOLEAN := FALSE;
770:
771: l_recipe_header_rec GMD_RECIPE_HEADER.recipe_hdr;
772: l_recipe_hdr_flex_rec GMD_RECIPE_HEADER.flex;
773:
774: l_old_formula_no FM_FORM_MST_B.formula_no%TYPE;
775: l_old_formula_vers FM_FORM_MST_B.formula_vers%TYPE;
768: l_plant_ind NUMBER;
769: l_changed_flag BOOLEAN := FALSE;
770:
771: l_recipe_header_rec GMD_RECIPE_HEADER.recipe_hdr;
772: l_recipe_hdr_flex_rec GMD_RECIPE_HEADER.flex;
773:
774: l_old_formula_no FM_FORM_MST_B.formula_no%TYPE;
775: l_old_formula_vers FM_FORM_MST_B.formula_vers%TYPE;
776: l_old_routing_no GMD_ROUTINGS_B.routing_no%TYPE;
2037:
2038:
2039: -- Creating a copy of the original Recipe
2040: IF l_changed_flag THEN
2041: GMD_RECIPE_HEADER_PVT.create_recipe_header
2042: (p_recipe_header_rec => l_recipe_header_rec
2043: ,p_recipe_hdr_flex_rec => p_recipe_hdr_flex_rec
2044: ,x_return_status => x_return_status);
2045: IF x_return_status <> FND_API.g_ret_sts_success THEN
2153: END IF;
2154: END validate_formula;
2155:
2156:
2157: END GMD_RECIPE_HEADER_PVT;