[Home] [Help]
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;