[Home] [Help]
PACKAGE: APPS.GMD_TECH_PARAMS
Source
1 PACKAGE gmd_tech_params AUTHID CURRENT_USER AS
2 /* $Header: GMDTECHS.pls 115.5 2002/10/25 20:22:05 santunes noship $ */
3
4 /* BEGIN BUG#2360352 T Prasuna */
5 /* Changed the length of the 'value' field from 30 to 80 characters */
6 TYPE tech_param_rec IS RECORD
7 (tech_parm_name VARCHAR2(30),
8 value VARCHAR2(80),
9 uom VARCHAR2(4),
10 data_type NUMBER,
11 expression VARCHAR2(100));
12 /* END BUG#2360352 */
13 TYPE tech_param_tab IS TABLE OF tech_param_rec INDEX BY BINARY_INTEGER;
14
15 TYPE item_master_rec IS RECORD
16 (item_no VARCHAR2(32),
17 item_id NUMBER,
18 item_primary_uom VARCHAR2(4),
19 line_type NUMBER,
20 quantity NUMBER,
21 uom VARCHAR2(4),
22 line_no NUMBER,
23 line_id NUMBER,
24 formula_id NUMBER,
25 lot_no VARCHAR2(32),
26 sublot_no VARCHAR2(32),
27 lot_id NUMBER,
28 primary_uom_qty NUMBER,
29 mass_uom_qty NUMBER,
30 vol_uom_qty NUMBER);
31 TYPE item_tbl IS TABLE OF item_master_rec INDEX BY BINARY_INTEGER;
32 item_master_tbl item_tbl;
33
34 TYPE tp_master_rec IS RECORD
35 (tech_parm_name VARCHAR2(32),
36 expression VARCHAR2(240),
37 data_type NUMBER,
38 tp_uom VARCHAR2(4),
39 qc_orgn_code VARCHAR2(4),
40 qc_assay_name VARCHAR2(32));
41 TYPE tp_tbl IS TABLE OF tp_master_rec INDEX BY BINARY_INTEGER;
42 tp_master_tbl tp_tbl;
43
44 TYPE attrib_master_rec IS RECORD
45 (item_id NUMBER,
46 line_type NUMBER,
47 line_no NUMBER,
48 tech_parm_name VARCHAR2(32),
49 num_value NUMBER,
50 char_value VARCHAR2(240),
51 boolean_value VARCHAR2(30));
52 TYPE attrib_tbl IS TABLE OF attrib_master_rec INDEX BY BINARY_INTEGER;
53 attrib_master_tbl attrib_tbl;
54
55 PROCEDURE load_ingred_tp(p_lab_type IN VARCHAR2,
56 p_formula_id IN NUMBER,
57 p_item_id IN NUMBER,
58 p_line_no IN NUMBER,
59 x_tech_table OUT NOCOPY tech_param_tab,
60 x_return_status OUT NOCOPY VARCHAR2,
61 x_msg_count OUT NOCOPY NUMBER,
62 x_msg_data OUT NOCOPY VARCHAR2);
63 PROCEDURE load_prod_tp(p_lab_type IN VARCHAR2,
64 p_formula_id IN NUMBER,
65 p_item_id IN NUMBER,
66 p_line_no IN NUMBER,
67 x_tech_table OUT NOCOPY tech_param_tab,
68 x_return_status OUT NOCOPY VARCHAR2,
69 x_msg_count OUT NOCOPY NUMBER,
70 x_msg_data OUT NOCOPY VARCHAR2);
71 PROCEDURE load_lab_arrays(p_formula_id NUMBER, p_lab_type VARCHAR2, p_prod_tech_parm NUMBER);
72 PROCEDURE calculate_expr(p_tech_table IN tech_param_tab, calc_table OUT NOCOPY tech_param_tab);
73 PROCEDURE convert_uoms(p_lab_type IN VARCHAR2,
74 x_return_status OUT NOCOPY VARCHAR2);
75 PROCEDURE get_qc_results;
76 PROCEDURE rollup_wt_pct(p_tech_parm_name VARCHAR2, p_result OUT NOCOPY NUMBER);
77 PROCEDURE rollup_vol_pct_and_spec_gr(p_tech_parm_name VARCHAR2, p_data_type NUMBER, p_result OUT NOCOPY NUMBER);
78 PROCEDURE rollup_cost_and_units(p_tech_parm_name VARCHAR2, p_prod_uom VARCHAR2,
79 p_lab_type VARCHAR2, p_result OUT NOCOPY NUMBER, x_return_status OUT NOCOPY VARCHAR2);
80 PROCEDURE rollup_equiv_wt(p_tech_parm_name VARCHAR2, p_prod_uom VARCHAR2,
81 p_lab_type VARCHAR2, p_result OUT NOCOPY NUMBER, x_return_status OUT NOCOPY VARCHAR2);
82
83 FUNCTION check_for_tech_data(plab_type VARCHAR2, pitem_id NUMBER, pformula_id NUMBER) RETURN NUMBER;
84
85 END gmd_tech_params;