1 PACKAGE BODY JL_ZZ_OE_LIBRARY_1_PKG AS
2 /* $Header: jlzzol1b.pls 120.3 2005/09/19 23:58:34 cleyvaol noship $ */
3
4 PROCEDURE get_context_name1 (cntry_code IN VARCHAR2,
5 form_code IN VARCHAR2,
6 global_description IN OUT NOCOPY VARCHAR2,
7 row_number IN NUMBER,
8 Errcd IN OUT NOCOPY NUMBER) IS
9 v_dflx_cc varchar2(30);
10 BEGIN
11 Errcd := 0;
12
13 --BUG 4618564. Due standards we cannot have an harcoded schema, but in
14 -- this case JL is not part of and schema and really is a
15 -- false positive. However we will decompose the string
16 -- to avoid conflicts with the standards.
17
18 v_dflx_cc := 'J'||'L'||'.' || cntry_code || '.' || form_code || '.Lines';
19
20 SELECT SUBSTR (description, 1, 30)
21 INTO global_description
22 FROM fnd_descr_flex_contexts_vl
23 WHERE application_id = 7003
24 AND descriptive_flexfield_name = 'JG_OE_ORDER_LINES'
25 AND descriptive_flex_context_code = v_dflx_cc
26 AND enabled_flag = 'Y'
27 AND rownum = row_number;
28 EXCEPTION
29 WHEN OTHERS THEN
30 Errcd := SQLCODE;
31 END get_context_name1;
32
33 PROCEDURE get_global_attribute3 (p_order_type_id IN NUMBER,
34 def_val IN OUT NOCOPY VARCHAR2,
35 row_number IN NUMBER,
36 Errcd IN OUT NOCOPY NUMBER) IS
37 BEGIN
38 Errcd := 0;
39 SELECT A.global_attribute3
40 INTO def_val
41 FROM ra_cust_trx_types A,
42 oe_order_types_v B
43 WHERE A.cust_trx_type_id = B.cust_trx_type_id
44 AND B.order_type_id = p_order_type_id
45 AND rownum = row_number;
46 EXCEPTION
47 WHEN OTHERS THEN
48 Errcd := SQLCODE;
49 END get_global_attribute3;
50
51 END JL_ZZ_OE_LIBRARY_1_PKG;