[Home] [Help]
PACKAGE: APPS.GMDFMVAL_PUB
Source
1 PACKAGE GMDFMVAL_PUB AUTHID CURRENT_USER AS
2 /* $Header: GMDPFMVS.pls 120.2.12010000.1 2008/07/24 09:56:33 appldev ship $ */
3
4 /* Type Definition */
5 /* =============== */
6 TYPE formula_info_in IS RECORD
7 (
8 formula_no fm_form_mst.formula_no%TYPE ,
9 formula_vers fm_form_mst.formula_vers%TYPE ,
10 formula_id fm_form_mst.formula_id%TYPE ,
11 recipe_no gmd_recipes.recipe_no%TYPE ,
12 recipe_version gmd_recipes.recipe_version%TYPE ,
13 recipe_id gmd_recipes.recipe_id%TYPE ,
14 user_name fnd_user.user_name%TYPE ,
15 item_no mtl_system_items_kfv.concatenated_segments%TYPE
16 );
17
18 TYPE formula_info_out IS RECORD
19 (
20 formula_no fm_form_mst.formula_no%TYPE ,
21 formula_vers fm_form_mst.formula_vers%TYPE ,
22 formula_id fm_form_mst.formula_id%TYPE ,
23 formulaline_id fm_matl_dtl.formulaline_id%TYPE ,
24 recipe_id gmd_recipes.recipe_id%TYPE,
25 user_id fnd_user.user_id%TYPE
26 );
27
28
29 TYPE formula_table_out IS TABLE OF formula_info_out
30 INDEX BY BINARY_INTEGER;
31
32
33 TYPE formula_detail_tbl IS TABLE OF fm_matl_dtl%rowTYPE
34 INDEX BY BINARY_INTEGER;
35
36
37 /* Constants */
38 /* ========= */
39 ss_debug CONSTANT INTEGER := 0;
40
41 p_called_from_forms VARCHAR2(10) := 'YES';
42
43 /* Error Return Code Constants: */
44 /* =========================== */
45 FMVAL_FORMID_ERR CONSTANT INTEGER := -92200;
46 FMVAL_ITEMID_ERR CONSTANT INTEGER := -92201;
47 FMVAL_ITEMINACTIVE_ERR CONSTANT INTEGER := -92202;
48 FMVAL_ITEMEXPERIMENTAL_ERR CONSTANT INTEGER := -92203;
49 FMVAL_ROUTEID_ERR CONSTANT INTEGER := -92204;
50 FMVAL_CUSTID_ERR CONSTANT INTEGER := -92205;
51 FMVAL_CLASS_ERR CONSTANT INTEGER := -92206;
52 FMVAL_ERRINSERT_ERR CONSTANT INTEGER := -92207;
53 FMVAL_TYPE_ERR CONSTANT INTEGER := -92208;
54 FMVAL_COSTALLOC_ERR CONSTANT INTEGER := -92209;
55 FMVAL_COSTPCT_ERR CONSTANT INTEGER := -92210;
56 FMVAL_PRODUCT_FIND_ERR CONSTANT INTEGER := -92211;
57 FMVAL_PRODUCT_INVUOM_ERR CONSTANT INTEGER := -92212;
58 FMVAL_LOCKED_EFF CONSTANT INTEGER := -92213;
59 FMVAL_FORMLINEID_ERR CONSTANT INTEGER := -92214;
60 FMVAL_FORMEFFID_ERR CONSTANT INTEGER := -92215;
61 FMVAL_DETAILLINE_ERR CONSTANT INTEGER := -92216;
62
63 /* Functions and Procedures */
64 /* ======================== */
65 PROCEDURE validate_insert_record (P_formula_dtl IN GMD_FORMULA_COMMON_PUB.formula_insert_rec_type,
66 X_formula_dtl OUT NOCOPY GMD_FORMULA_COMMON_PUB.formula_insert_rec_type,
67 xReturn OUT NOCOPY VARCHAR2);
68
69 PROCEDURE validate_update_record(P_formula_dtl IN GMD_FORMULA_COMMON_PUB.formula_update_rec_type,
70 X_formula_dtl OUT NOCOPY GMD_FORMULA_COMMON_PUB.formula_update_rec_type,
71 xReturn OUT NOCOPY VARCHAR2);
72
73 PROCEDURE get_element( pElement_name IN VARCHAR2,
74 pRecord_in IN formula_info_in,
75 xTable_out OUT NOCOPY formula_table_out,
76 xReturn OUT NOCOPY VARCHAR2);
77
78 PROCEDURE get_element( pElement_name IN VARCHAR2,
79 pRecord_in IN formula_info_in,
80 pDate IN DATE DEFAULT Null, --Bug 4479101
81 xFormulaHeader_rec OUT NOCOPY fm_form_mst%ROWTYPE,
82 xFormulaDetail_tbl OUT NOCOPY formula_detail_tbl,
83 xReturn OUT NOCOPY VARCHAR2);
84 /** Added the following 4 procedures for Item Substitution, bug 4479101 */
85 PROCEDURE get_substitute_items(pFormula_id in NUMBER,
86 pDate in DATE Default Null,
87 xFormulaDetail_tbl OUT NOCOPY formula_detail_tbl);
88
89 PROCEDURE get_substitute_line_item(pFormulaline_id in NUMBER,
90 pItem_id in Number Default Null,
91 pQty in Number Default Null,
92 pUom in Varchar2 Default Null,
93 pScale_multiple in NUMBER Default Null,
94 pDate in DATE,
95 xFormulaDetail_tbl Out NOCOPY formula_detail_tbl);
96
97 PROCEDURE Copy_Formula_Substitution_list(pOldFormula_id NUMBER
98 ,pNewFormula_id NUMBER
99 ,xReturn_Status OUT NOCOPY VARCHAR2
100 , p_create_new_version VARCHAR2 DEFAULT 'N');
101
102 FUNCTION get_line_qty (P_line_item_id in NUMBER
103 ,P_organization_id in NUMBER
104 ,P_formula_qty in NUMBER
105 ,P_formula_uom in Varchar2
106 ,P_replacement_Item in NUMBER
107 ,P_original_item_qty in NUMBER
108 ,P_original_item_uom in Varchar2
109 ,P_replace_unit_qty in NUMBER
110 ,P_replace_unit_uom in Varchar2
111 ,P_replacement_uom in Varchar2) RETURN Number;
112
113
114
115 PROCEDURE check_rework_type(pType_value IN VARCHAR2,
116 xReturn IN OUT NOCOPY VARCHAR2);
117
118 PROCEDURE get_formula_id(pformula_no IN VARCHAR2,
119 pversion IN NUMBER,
120 xvalue OUT NOCOPY NUMBER,
121 xreturn_code OUT NOCOPY NUMBER);
122
123 PROCEDURE get_formulaline_id(pformulaline_id IN NUMBER,
124 xreturn_code OUT NOCOPY NUMBER);
125
126 PROCEDURE get_item_id(pitem_no IN VARCHAR2,
127 pinventory_item_id IN NUMBER,
128 porganization_id IN NUMBER,
129 xitem_id OUT NOCOPY NUMBER,
130 xitem_um OUT NOCOPY VARCHAR2,
131 xreturn_code OUT NOCOPY NUMBER);
132
133 PROCEDURE determine_product(pformula_id IN NUMBER,
134 xitem_id OUT NOCOPY NUMBER,
135 xitem_um OUT NOCOPY VARCHAR2,
136 xreturn_code OUT NOCOPY NUMBER);
137
138 FUNCTION formula_class_val(pform_class VARCHAR2) RETURN NUMBER;
139
140 --Begin Bug#3090630 P.Raghu
141 --Changed datatype of pvalue parameter to VARCHAR2 from NUMBER.
142 FUNCTION type_val(ptype_name VARCHAR2,
143 pvalue VARCHAR2) RETURN NUMBER;
144 --End Bug#3090630
145
146 FUNCTION cost_alloc_val(pcost_alloc NUMBER,
147 pline_type NUMBER) RETURN NUMBER;
148
149 FUNCTION locked_effectivity_val(pformula_id NUMBER) RETURN NUMBER;
150
151 FUNCTION GMD_EFFECTIVITY_LOCKED_STATUS(pfmeff_id NUMBER) RETURN VARCHAR2;
152
153 FUNCTION convertuom_val(pitem_id NUMBER,
154 pfrom_uom VARCHAR2,
155 pto_uom VARCHAR2) RETURN NUMBER;
156
157 FUNCTION detail_line_val(pformula_id NUMBER,
158 pline_no NUMBER,
159 pline_type NUMBER) RETURN NUMBER;
160
161 /*Functions added as part of Default Status Build (Bug 3408799)*/
162
163 FUNCTION check_expr_items (V_formula_id IN NUMBER) RETURN BOOLEAN;
164 FUNCTION output_qty_zero (V_formula_id IN NUMBER) RETURN BOOLEAN;
165 FUNCTION inactive_items (V_formula_id IN NUMBER) RETURN BOOLEAN;
166 END GMDFMVAL_PUB;
167