[Home] [Help]
1: PACKAGE BODY GMDFMVAL_PUB AS
2: /* $Header: GMDPFMVB.pls 120.17.12020000.2 2012/08/31 03:33:17 mtou ship $ */
3: /* ============================================= */
4: /* PROCEDURE: */
5: /* get_formula_id */
15: /* returns xvalue as NULL and xreturn_code contains the */
16: /* error code. */
17: /* */
18: /* SYNOPSIS: */
19: /* iret := GMDFMVAL_PUB.get_formula_id(pformula_no, */
20: /* pversion, */
21: /* ptype, */
22: /* xvalue, */
23: /* xreturn_code); */
130: /* returns xvalue as NULL and xreturn_code contains the */
131: /* error code. */
132: /* */
133: /* SYNOPSIS: */
134: /* iret := GMDFMVAL_PUB.get_item_id(pitem_no, */
135: /* xitem_id, */
136: /* xitem_um, */
137: /* xreturn_code); */
138: /* */
242: /* returns values as NULL and xreturn_code contains the */
243: /* error code. */
244: /* */
245: /* SYNOPSIS: */
246: /* iret := GMDFMVAL_PUB.determine_product(formula_id, */
247: /* xitem_id, */
248: /* xitem_um, */
249: /* xreturn_code); */
250: /* */
380: /* validating a formula class */
381: /* based on the passed in formula class */
382: /* */
383: /* SYNOPSIS: */
384: /* iret := GMDFMVAL_PUB.formula_class_val(pform_class); */
385: /* */
386: /* RETURNS: */
387: /* 0 Success */
388: /* -92206 Formula Class Not Found. */
434: /* for products only. */
435: /* */
436: /* */
437: /* SYNOPSIS: */
438: /* iret := GMDFMVAL_PUB.cost_alloc_val(pcost_alloc, */
439: /* pline_type); */
440: /* */
441: /* RETURNS: */
442: /* 0 Success */
498: /* 2 - Costing */
499: /* 3 - MSDS (Material Safety Data Sheets) */
500: /* */
501: /* SYNOPSIS: */
502: /* iret := GMDFMVAL_PUB.formula_class_val(pcolumn_name, */
503: /* pvalue); */
504: /* */
505: /* RETURNS: */
506: /* 0 Success */
614: /* */
615: /* This validation is for CHANGES only! */
616: /* */
617: /* SYNOPSIS: */
618: /* iret := GMDFMVAL_PUB.locked_effectivity_val(pformula_id); */
619: /* */
620: /* RETURNS: */
621: /* 0 Success (effectivity may be changed) */
622: /* -92213 Effectivity is locked (update not allowed) */
671: /* formualted UOM of the item is different from */
672: /* the item's primary inventored UOM. */
673: /* */
674: /* SYNOPSIS: */
675: /* iret := GMDFMVAL_PUB.convertuom_val(pitem_id, */
676: /* pfrom_uom, */
677: /* pto_uom); */
678: /* */
679: /* pitem_id the item surrogate (unique number). */
1626: check_type_exception EXCEPTION;
1627: BEGIN
1628: /* Use the function type_val to validate the */
1629: /* field type. Checks if it exists in GEM_LOOKUPS */
1630: iret := GMDFMVAL_PUB.type_val('REWORK_TYPE', pType_value);
1631:
1632: If (iret <> 0) THEN
1633: xReturn := 'E';
1634: RAISE check_type_exception;
1755: --The value for by_product_type is only applicable for byproducts
1756: IF (X_formula_dtl.line_type <> 2) THEN
1757: RAISE inv_line_type;
1758: ELSE
1759: l_ret := GMDFMVAL_PUB.type_val(ptype_name => 'GMD_BY_PRODUCT_TYPE',
1760: Pvalue => X_formula_dtl.by_product_type);
1761: IF l_ret <> 0 THEN
1762: RAISE Inv_Byprod_Type;
1763: ELSE
1771: X_formula_dtl.by_product_type := NULL;
1772: END IF;
1773:
1774: --Phantom_type validation
1775: l_ret := GMDFMVAL_PUB.type_val('PHANTOM_TYPE',
1776: X_formula_dtl.phantom_type);
1777:
1778: IF (l_ret <> 0) THEN
1779: xReturn := 'E';
1790: xReturn := 'S';
1791: END IF;
1792:
1793: IF (xReturn = 'S') then
1794: l_ret := GMDFMVAL_PUB.type_val('LINE_TYPE', X_formula_dtl.line_type);
1795: IF (l_ret < 0) then
1796: xReturn := 'E';
1797: RAISE check_line_type_exception;
1798: ELSE
1800: END IF;
1801: END IF;
1802:
1803: --Release Type validation
1804: l_ret := GMDFMVAL_PUB.type_val('RELEASE_TYPE',
1805: X_formula_dtl.release_type);
1806:
1807: IF (l_ret <> 0) THEN
1808: xReturn := 'E';
1811: xReturn := 'S';
1812: END IF;
1813:
1814: --Scale Type validation
1815: l_ret := GMDFMVAL_PUB.type_val('SCALE_TYPE',
1816: X_formula_dtl.scale_type_dtl);
1817:
1818: IF (l_ret <> 0) THEN
1819: xReturn := 'E';
1824:
1825: --Item Uom Validation
1826: IF (X_formula_dtl.inventory_item_id IS NOT NULL) then
1827: --Based on the item_id get its primary UOM
1828: GMDFMVAL_PUB.get_item_id(pitem_no => X_formula_dtl.Item_no,
1829: pinventory_item_id => X_formula_dtl.inventory_item_id,
1830: porganization_id => X_formula_dtl.owner_organization_id,
1831: xitem_id => lItem_id,
1832: xitem_um => lItem_um,
2069: --The value for by_product_type is only applicable for byproducts
2070: IF (X_formula_dtl.line_type <> 2) THEN
2071: RAISE inv_line_type;
2072: ELSE
2073: l_ret := GMDFMVAL_PUB.type_val(ptype_name => 'GMD_BY_PRODUCT_TYPE',
2074: Pvalue => X_formula_dtl.by_product_type);
2075: IF l_ret <> 0 THEN
2076: RAISE Inv_Byprod_Type;
2077: ELSE
2085: X_formula_dtl.by_product_type := NULL;
2086: END IF;
2087:
2088: --Phantom_type validation
2089: l_ret := GMDFMVAL_PUB.type_val('PHANTOM_TYPE',
2090: X_formula_dtl.phantom_type);
2091:
2092: IF (l_ret <> 0) THEN
2093: xReturn := 'E';
2096: xReturn := 'S';
2097: END IF;
2098:
2099: --Release Type validation
2100: l_ret := GMDFMVAL_PUB.type_val('RELEASE_TYPE',
2101: X_formula_dtl.release_type);
2102:
2103: IF (l_ret <> 0) THEN
2104: xReturn := 'E';
2107: xReturn := 'S';
2108: END IF;
2109:
2110: --Scale Type validation
2111: l_ret := GMDFMVAL_PUB.type_val('SCALE_TYPE',
2112: X_formula_dtl.scale_type_dtl);
2113:
2114: IF (l_ret <> 0) THEN
2115: xReturn := 'E';
2119: END IF;
2120:
2121: --Item Uom Validation
2122: --Based on the item_id get its primary UOM
2123: GMDFMVAL_PUB.get_item_id(pitem_no => X_formula_dtl.Item_no,
2124: pinventory_item_id => X_formula_dtl.inventory_item_id,
2125: porganization_id => X_formula_dtl.owner_organization_id,
2126: xitem_id => lItem_id,
2127: xitem_um => lItem_um,
2380: END IF; -- IF (Cur_check_inactive%FOUND) THEN
2381: END IF; -- IF (V_formula_id IS NOT NULL) THEN
2382: RETURN FALSE;
2383: END inactive_items;
2384: END GMDFMVAL_PUB;