1 PACKAGE BODY ADI_Security_User AS
2 /* $Header: frmsusrb.pls 120.0 2006/03/19 13:58:07 dvayro noship $ */
3 --------------------------------------------------------------------------------
4 -- PACKAGE: ADI_Security_User_To_Value --
5 -- --
6 -- DESCRIPTION: Select a value set and multiple flex values in order to --
7 -- grant and revoke access privileges between flex values and --
8 -- users. --
9 -- --
10 -- Modification History --
11 -- Date Username Description --
12 -- 14-JUL-99 CCLYDE Initial creation --
13 -- 02-AUG-99 CCLYDE Added a million comments --
14 -- 03-AUG-99 CCLYDE Restricted Value Sets to users access rights. --
15 -- Added restrictions into security assignments. --
16 -- 08-AUG-99 CCLYDE Procedure: DisplayValues --
17 -- Changed checkbox for owner, it was always showing --
18 -- checked, even when it technically wasn't (it was --
19 -- hard coded to CHECKED). --
20 -- Cleaned up the buttons so that they lined up with --
21 -- each other and the end of the table. --
22 -- 08-AUG-99 CCLYDE Procedure: AddUsers --
23 -- Changed SQL so that username is retrieved as lower --
24 -- case. --
25 -- 09-AUG-99 CCLYDE Moved icons and created them as constant variables --
26 -- 09-AUG-99 CCLYDE Changed the table headings so that it prints white --
27 -- on wierd blus background. (DisplayValue) --
28 -- 09-AUG-99 CCLYDE Changed the banner title and added a sub title --
29 -- which includes a success icon and success message. --
30 -- (Confirm) --
31 -- 28-AUG-99 CCLYDE Added Exception clauses to all procedures which --
32 -- contained a SQL statement. (Task: 3275) --
33 -- 08-SEP-99 CCLYDE Removed the TO_CHAR from around SECFLEX.FLEX_VALUE --
34 -- as this is alreadydefined to be a VARCHAR and --
35 -- added it around the USR.WEB_USER_ID variable. This--
36 -- problem was identified when fixing Task 3438, but --
37 -- has nothing to do with the actual fix of 3438. --
38 -- (Task: 3438) (Show, DisplayValues, UpdatePriv..) --
39 -- 08-SEP-99 CCLYDE Added the extra AND clause to ensure that users --
40 -- currently assigned to this Security Set/Expansion --
41 -- Value combination are excluded from the retrieved --
42 -- list of available users. (Task: 3426) (AddValues) --
43 -- 02-NOV-99 CCLYDE Calling new banner code which will allow the Home --
44 -- Page icon to be manipulated (ie. call the relevant --
45 -- home page - Report Manager Kiosk or Self Service). --
46 -- Confirm / Show / GetValueSetValues / DisplayValues --
47 -- AddUsers (Task: 3526 / 3598) --
48 -- 04-NOV-99 CCLYDE Changed all occurences of FND_FLEX_VALUES.desc... --
49 -- to FND_FLEX_VALUES_TL.description. --
50 -- 03-DEC-99 CCLYDE Added g_SecurityOwner and functionality surrounding--
51 -- this field. Allowing the user more flexibility in --
52 -- defining who can set ownership privilege: --
53 -- 1. SYSADMIN user --
54 -- 2. System Administration responsibility --
55 -- 3. Profile Option - FRM_SECURITY_OWNERSHIP. --
56 -- 18-DEC-99 CCLYDE Due to really poor performance from this function --
57 -- several modications were made: --
58 -- AddValue Removed NOT IN clause from --
59 -- SELECT which means user --
60 -- could re-select a currently --
61 -- selected value. --
62 -- CreateSelectEntries Calls ExpansionValuExists --
63 -- to determine if the value --
64 -- is a duplicate. If it is, --
65 -- no record is created. --
66 -- ExpansionValueExists Checks to see if the new --
67 -- value currently exists. --
68 -- DisplayValues Removed the connection to --
69 -- fnd_document_categories. --
70 -- Retrieve the category id --
71 -- external to the main --
72 -- select. --
73 -- 16-FEB-00 cclyde Added Package_Revision procedure to see if we can --
74 -- capture the revision number of the package during --
75 -- runtime. (Task: 3858) --
76 -- 19-MAR-00 gsanap Modified the procedure CreateValueEntries so that --
77 -- the insert into the FND_FLEX_VALUES_TL table can --
78 -- accomodate the changes to the table for Rel>11.5 --
79 -- flex_value_meaning column will be populated with --
80 -- User to Value Security (Task 4057) --
81 -- 12-APR-00 GSANAP Added the ELSIF in CreateSelectEntries procedure --
82 -- to handle schema change --
83 -- between versions < 11.5 and >= 11.5 in --
84 -- FND_FLEX_VALUES_TL table (GSANAP) (Task 4057) --
85 -- 12-APR-00 gsanap Assigned 'User to Value Security' to variable --
86 -- g_Flex_Value_Meaning to be inserted into table --
87 -- FND_FLEX_VALUES_TL table --
88 -- 12-APR-00 GSANAP DisplayValues procedure modified --
89 -- Added missing quotes for V_EXPANSIONVALUE in the --
90 -- select statement which was trying to select a --
91 -- VARCHAR2 column without enclosing the value in the --
92 -- variable in quotes.Without the quotes an error --
93 -- Invalid column occurs. --
94 -- 16-MAY-00 GSANAP Moved the $Header comment from the top to under --
95 -- CREATE OR REPLACE PACKAGE stmt. --
96 -- 26-JUN-00 GSANAP Implemented AOL api by replacing the local Insert --
97 -- stmt. with a call to fnd_flex_values_pkg.insert_row--
98 -- procedure. Task 4413 --
99 -- 29-JUN-00 GSANAP Modified the debug stmts. to include package names --
100 -- Task 4425 --
101 -- 16-AUG-00 CCLYDE Removed the LEFT alignment from the table --
102 -- definition as the new UI was causing problems with --
103 -- footer area. The following procedures were --
104 -- modified: --
105 -- Show --
106 -- GetValueSetValue --
107 -- AddUsers --
108 -- 07-DEC-00 CCLYDE New Help Tag: rptmgr1005285 --
109 -- Confirm DisplayValues --
110 -- Show AddUsers --
111 -- GetValueSetValues PackageRevision --
112 -- 15-NOV-02 GHOOKER Stub out procedures not used by RM8 --
113 --------------------------------------------------------------------------------
114 END ADI_Security_User;