PACKAGE BODY: APPS.OKE_K_USER_ATTR_UTILS

Source

1 PACKAGE BODY OKE_K_USER_ATTR_UTILS AS
2 /* $Header: OKEKUAUB.pls 115.4 2002/08/28 19:00:49 alaw ship $ */
3 
4 --
5 --  Name          : Form_Above_Prompt
6 --  Pre-reqs      : None
7 --  Function      : This function returns the concatenated form above
8 --                  prompt for a given user attribute group (desc flex
9 --                  context)
10 --
11 --  Parameters    :
12 --  IN            : X_USER_ATTRIBUTE_CONTEXT    VARCHAR2
13 --  OUT           : None
14 --
15 --  Returns       : VARCHAR2
16 --
17 
18 FUNCTION Form_Above_Prompt
19 ( X_User_Attribute_Context    IN     VARCHAR2
20 ) RETURN VARCHAR2 IS
21 
22   return_value    VARCHAR2(2000);
23   frozen          VARCHAR2(1);
24   delimiter       VARCHAR2(1);
25 
26   CURSOR dflex IS
27     SELECT concatenated_segment_delimiter
28     ,      freeze_flex_definition_flag
29     FROM   fnd_descriptive_flexs
30     WHERE  application_id = 777
31     AND    descriptive_flexfield_name = 'OKE_K_USER_ATTRIBUTES'
32     ;
33 
34   CURSOR flexcol IS
35     SELECT form_left_prompt
36     FROM   fnd_descr_flex_col_usage_vl
37     WHERE  application_id = 777
38     AND    descriptive_flexfield_name = 'OKE_K_USER_ATTRIBUTES'
39     AND    descriptive_flex_context_code = X_User_Attribute_Context
40     ORDER BY column_seq_num
41     ;
42 
43 BEGIN
44 
45   return_value := NULL;
46 
47   OPEN dflex;
48   FETCH dflex INTO delimiter , frozen;
49   CLOSE dflex;
50 
51   FOR crec IN flexcol LOOP
52     IF ( return_value IS NULL ) THEN
53       return_value := crec.form_left_prompt;
54     ELSE
55       return_value := return_value || delimiter || crec.form_left_prompt;
56     END IF;
57   END LOOP;
58 
59   RETURN ( return_value );
60 
61 END Form_Above_Prompt;
62 
63 END OKE_K_USER_ATTR_UTILS;