PACKAGE BODY: APPS.JL_ZZ_INV_LIBRARY_1_PKG

Source

1 PACKAGE BODY JL_ZZ_INV_LIBRARY_1_PKG AS
2 /* $Header: jlzzil1b.pls 115.4 99/07/16 03:15:12 porting ship  $ */
3 
4   PROCEDURE get_global_description (flex_name          IN     VARCHAR2,
5                                     context            IN     VARCHAR2,
6                                     global_description IN OUT VARCHAR2,
7                                     row_number         IN     NUMBER,
8                                     Errcd              IN OUT NUMBER) IS
9   BEGIN
10     Errcd := 0;
11     SELECT SUBSTR (description, 1, 50)
12     INTO   global_description
13     FROM   fnd_descr_flex_contexts_vl
14     WHERE  application_id = 7003
15     AND    descriptive_flexfield_name  = flex_name
16     AND    descriptive_flex_context_code = context
17     AND    enabled_flag = 'Y'
18     AND    rownum = row_number;
19     EXCEPTION
20       WHEN OTHERS THEN
21         Errcd := SQLCODE;
22   END get_global_description;
23 
24 
25 END JL_ZZ_INV_LIBRARY_1_PKG;