[Home] [Help]
1: PACKAGE BODY jai_general_pkg AS
2: /* $Header: jai_general.plb 120.8 2007/10/01 09:07:31 pramasub ship $ */
3:
4: /*----------------------------------------------------------------------------------------------------------------------------
5: CHANGE HISTORY for FILENAME: jai_general_pkg.sql
1: PACKAGE BODY jai_general_pkg AS
2: /* $Header: jai_general.plb 120.8 2007/10/01 09:07:31 pramasub ship $ */
3:
4: /*----------------------------------------------------------------------------------------------------------------------------
5: CHANGE HISTORY for FILENAME: jai_general_pkg.sql
6: S.No dd/mm/yyyy Author and Details
7: ------------------------------------------------------------------------------------------------------------------------------
8: 1 16/07/2004 Vijay Shankar for Bug# 3496408, Version:115.0
9: This Package is coded for Common Procedure/Functions that will be used across localization Product.
56:
57: lv_inv_item_flag MTL_SYSTEM_ITEMS.inventory_item_flag%TYPE;
58:
59: lv_expense_flag VARCHAR2(1);
60: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.is_item_an_expense';
61:
62: BEGIN
63:
64: OPEN c_item_flag(p_organization_id, p_item_id);
88: WHERE organization_id = p_organization_id
89: AND fin_active_flag = 'Y';
90:
91: ln_fin_year NUMBER;
92: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_fin_year';
93:
94: BEGIN
95: OPEN c_active_fin_year;
96: FETCH c_active_fin_year INTO ln_fin_year;
114: SELECT excise_duty_range, excise_duty_division
115: FROM JAI_CMN_VENDOR_SITES
116: WHERE vendor_id = p_vendor_id
117: AND vendor_site_id = p_vendor_site_id;
118: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_range_division';
119: BEGIN
120:
121: OPEN c_range_division;
122: FETCH c_range_division INTO p_range_no, p_division_no;
158:
159: FUNCTION get_gl_concatenated_segments(
160: p_code_combination_id IN NUMBER
161: ) RETURN VARCHAR2 IS
162: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_gl_concatenated_segments';
163: lv_concatenated_segments GL_CODE_COMBINATIONS_KFV.concatenated_segments%TYPE;
164: CURSOR c_concatenated_segments(cp_code_combination_id IN NUMBER) IS
165: SELECT concatenated_segments
166: FROM gl_code_combinations_kfv
190: */
191: l_func_curr_det jai_plsql_cache_pkg.func_curr_details;
192: -- End for bug 5243532
193: lv_organization_code ORG_ORGANIZATION_DEFINITIONS.organization_code%TYPE;
194: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_organization_code';
195: BEGIN
196:
197: l_func_curr_det := jai_plsql_cache_pkg.return_sob_curr
198: (p_org_id => p_organization_id );
209:
210: FUNCTION get_rg_register_type(p_item_class IN VARCHAR2) RETURN VARCHAR2 IS
211:
212: lv_register_type VARCHAR2(1);
213: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_rg_register_type';
214: BEGIN
215:
216: /* This procedure should be used only for Receipt Transactions. Because FGIN and FGEX should hit RG1, but incase of RMA Receipt
217: the should hit RG23A Register */
240: WHERE organization_id = p_organization_id
241: AND inventory_item_id = p_inventory_item_id;
242:
243: lv_uom_code MTL_SYSTEM_ITEMS.primary_uom_code%TYPE;
244: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_primary_uom_code';
245:
246: BEGIN
247:
248: OPEN c_get_primary_uom_code;
263: FROM mtl_units_of_measure
264: WHERE unit_of_measure = p_uom;
265:
266: lv_uom_code MTL_UNITS_OF_MEASURE.uom_code%TYPE;
267: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_uom_code';
268:
269: BEGIN
270: OPEN c_uom_code;
271: FETCH c_uom_code INTO lv_uom_code;
288: WHERE organization_id = p_organization_id
289: AND location_id = p_location_id;
290:
291: lv_master_flag JAI_CMN_INVENTORY_ORGS.master_org_flag%TYPE;
292: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_orgn_master_flag';
293: BEGIN
294: OPEN c_master_flag;
295: FETCH c_master_flag INTO lv_master_flag;
296: CLOSE c_master_flag;
306: FUNCTION get_matched_boe_no(
307: p_transaction_id IN NUMBER
308: ) RETURN VARCHAR2 IS
309: lv_boe_no VARCHAR2(150); -- := ''; --rpokkula for File.Sql.35
310: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_matched_boe_no';
311: BEGIN
312:
313: lv_boe_no := ''; --rpokkula for File.Sql.35
314:
335: p_primary_uom_code IN MTL_UNITS_OF_MEASURE.uom_code%TYPE,
336: p_inventory_item_id IN MTL_SYSTEM_ITEMS.inventory_item_id%TYPE
337: ) RETURN NUMBER IS
338: vTransToPrimaryUOMConv NUMBER;
339: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.trxn_to_primary_conv_rate';
340: BEGIN
341:
342: IF p_transaction_uom_code <> p_primary_uom_code THEN
343: INV_CONVERT.inv_um_conversion(
443: lv_register_type VARCHAR2(1);
444: ln_register_id NUMBER;
445: ln_fin_year NUMBER(4);
446: ln_prev_fin_year NUMBER(4);
447: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_last_record_of_rg';
448: BEGIN
449:
450: IF p_fin_year IS NULL THEN
451: ln_fin_year := jai_general_pkg.get_fin_year(p_organization_id);
447: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.get_last_record_of_rg';
448: BEGIN
449:
450: IF p_fin_year IS NULL THEN
451: ln_fin_year := jai_general_pkg.get_fin_year(p_organization_id);
452: ELSE
453: ln_fin_year := p_fin_year;
454: END IF;
455: ln_prev_fin_year := ln_fin_year - 1;
531:
532: ln_rg23a_amount NUMBER;
533: ln_rg23c_amount NUMBER;
534: ln_pla_amount NUMBER;
535: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.update_rg_balances';
536:
537: BEGIN
538:
539: IF p_register = 'A' THEN
814: v_address_id NUMBER;
815: v_assessable_value NUMBER;
816: v_conversion_rate NUMBER;
817: v_price_list_uom_code CHAR(4);
818: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_general_pkg.ja_in_vat_assessable_value';
819:
820: BEGIN
821: /*----------------------------------------------------------------------------------------------------------------------------
822: CHANGE HISTORY :
1154: app_exception.raise_exception;
1155:
1156: END ja_in_vat_assessable_value;
1157:
1158: END jai_general_pkg;