[Home] [Help]
PACKAGE BODY: APPS.INVIDTMP_PKG
Source
1 PACKAGE BODY INVIDTMP_PKG as
2 /* $Header: INVIDTMB.pls 120.1 2005/06/21 04:10:52 appldev ship $ */
3
4 PROCEDURE Populate_Fields
5 ( X_template_id IN NUMBER
6 , X_inventory_item_status_code OUT NOCOPY varchar2,
7 X_primary_unit_of_measure OUT NOCOPY varchar2,
8 X_item_type_dsp OUT NOCOPY varchar2,
9 X_bom_item_type OUT NOCOPY varchar,
10 X_inventory_item_flag OUT NOCOPY varchar,
11 X_stock_enabled_flag OUT NOCOPY varchar,
12 X_mtl_transactions_enabled_fla OUT NOCOPY varchar,
13 X_costing_enabled_flag OUT NOCOPY varchar,
14 X_purchasing_item_flag OUT NOCOPY varchar,
15 X_purchasing_enabled_flag OUT NOCOPY varchar,
16 X_customer_order_flag OUT NOCOPY varchar,
17 X_customer_order_enabled_flag OUT NOCOPY varchar,
18 X_internal_order_flag OUT NOCOPY varchar,
19 X_internal_order_enabled_flag OUT NOCOPY varchar,
20 X_invoiceable_item_flag OUT NOCOPY varchar,
21 X_invoice_enabled_flag OUT NOCOPY varchar,
22 X_build_in_wip_flag OUT NOCOPY varchar,
23 X_bom_enabled_flag OUT NOCOPY varchar,
24 X_eam_item_type OUT NOCOPY NUMBER,
25 /* Start Bug 3713912 */
26 X_recipe_enabled_flag OUT NOCOPY varchar,
27 X_process_exec_enabled_flag OUT NOCOPY varchar,
28 X_process_costing_enabled_flag OUT NOCOPY varchar,
29 X_process_quality_enabled_flag OUT NOCOPY varchar
30 /* End Bug 3713912 */
31 )
32 IS
33 v_attr_name varchar2(50);
34 v_attr_value varchar2(240);
35 v_valid_code number;
36
37 CURSOR attr_info is
38 select t.attribute_name,
39 t.attribute_value
40 from mtl_item_templ_attributes t
41 where template_id = X_template_id;
42 begin
43 OPEN attr_info;
44 LOOP
45 FETCH attr_info into v_attr_name, v_attr_value;
46 EXIT when attr_info%NOTFOUND;
47
48
49 if (v_attr_name = 'MTL_SYSTEM_ITEMS.INVENTORY_ITEM_STATUS_CODE') then
50 -- X_inventory_item_status_code := v_attr_value;
51 Begin
52 Select inventory_item_status_code_tl
53 INTO X_inventory_item_status_code
54 from mtl_item_status
55 where nvl(disable_date, sysdate+1) > sysdate
56 and inventory_item_status_code = v_attr_value;
57 Exception
58 When no_data_found then
59 X_inventory_item_status_code := NULL;
60 End;
61
62 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.PRIMARY_UOM_CODE') then
63 Begin
64 SELECT unit_of_measure_tl
65 INTO X_primary_unit_of_measure
66 FROM mtl_units_of_measure_vl
67 WHERE uom_code = v_attr_value;
68 Exception
69 When no_data_found then
70 X_primary_unit_of_measure := NULL;
71 End;
72
73 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.ITEM_TYPE') then
74 X_item_type_dsp := INVIDTMP_PKG.resolve_fnd_lookup('ITEM_TYPE', v_attr_value);
75 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.BOM_ITEM_TYPE') then
76 X_bom_item_type := v_attr_value;
77
78 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.INVENTORY_ITEM_FLAG') then
79 X_inventory_item_flag := v_attr_value;
80
81 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.STOCK_ENABLED_FLAG') then
82 X_stock_enabled_flag := v_attr_value;
83
84 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.MTL_TRANSACTIONS_ENABLED_FLAG') then
85 X_mtl_transactions_enabled_fla := v_attr_value;
86
87 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.COSTING_ENABLED_FLAG') then
88 X_costing_enabled_flag := v_attr_value;
89
90 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.PURCHASING_ITEM_FLAG') then
91 X_purchasing_item_flag := v_attr_value;
92
93 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.PURCHASING_ENABLED_FLAG') then
94 X_purchasing_enabled_flag := v_attr_value;
95
96 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.CUSTOMER_ORDER_FLAG') then
97 X_customer_order_flag := v_attr_value;
98
99 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.CUSTOMER_ORDER_ENABLED_FLAG') then
100 X_customer_order_enabled_flag := v_attr_value;
101
102 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.INTERNAL_ORDER_FLAG') then
103 X_internal_order_flag := v_attr_value;
104
105 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.INTERNAL_ORDER_ENABLED_FLAG') then
106 X_internal_order_enabled_flag := v_attr_value;
107
108 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.INVOICEABLE_ITEM_FLAG') then
109 X_invoiceable_item_flag := v_attr_value;
110
111 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.INVOICE_ENABLED_FLAG') then
112 X_invoice_enabled_flag := v_attr_value;
113
114 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.BUILD_IN_WIP_FLAG') then
115 X_build_in_wip_flag := v_attr_value;
116
117 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.BOM_ENABLED_FLAG') then
118 X_bom_enabled_flag := v_attr_value;
119
120 -- ** KNAGUMO **
121 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.EAM_ITEM_TYPE') then
122 X_eam_item_type := v_attr_value;
123 /* Start Bug 3713912 */
124 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.RECIPE_ENABLED_FLAG') then
125 X_recipe_enabled_flag := v_attr_value;
126
127 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.PROCESS_EXECUTION_ENABLED_FLAG') then
128 X_process_exec_enabled_flag := v_attr_value;
129
130 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.PROCESS_COSTING_ENABLED_FLAG') then
131 X_process_costing_enabled_flag := v_attr_value;
132
133 elsif (v_attr_name = 'MTL_SYSTEM_ITEMS.PROCESS_QUALITY_ENABLED_FLAG') then
134 X_process_quality_enabled_flag := v_attr_value;
135
136 /* End Bug 3713912 */
137 end if;
138
139 end LOOP;
140 CLOSE attr_info;
141
142 end Populate_Fields;
143
144
145 FUNCTION Resolve_Mfg_Lookup(X_lu_type IN varchar2,
146 X_lu_code IN number
147 ) return varchar2 is
148 v_meaning varchar2(80);
149
150 begin
151 select meaning
152 into v_meaning
153 from mfg_lookups
154 where lookup_type = X_lu_type
155 and lookup_code = X_lu_code;
156
157 return(v_meaning);
158
159 exception
160 when NO_DATA_FOUND then
161 return(null);
162
163 end Resolve_Mfg_Lookup;
164
165 FUNCTION Resolve_Fnd_Lookup(X_lu_type IN varchar2,
166 X_lu_code IN varchar2
167 ) return varchar2 is
168 v_meaning varchar2(80);
169
170 begin
171 select meaning
172 into v_meaning
173 from fnd_common_lookups
174 where lookup_type = X_lu_type
175 and lookup_code = X_lu_code;
176
177 return(v_meaning);
178
179 exception
180
181 when NO_DATA_FOUND then
182 return(null);
183
184 end Resolve_Fnd_Lookup;
185
186 END INVIDTMP_PKG;