1 PACKAGE BODY ADI_Security_Nominate AS
2 /* $Header: frmsnomb.pls 120.0 2006/12/14 02:08:02 dvayro noship $ */
3 --------------------------------------------------------------------------------
4 -- PACKAGE: ADI_Security_Nominate --
5 -- --
6 -- DESCRIPTION: Allows the user to select any number of flex values sets to --
7 -- participate within the User To Value Security model. --
8 -- --
9 -- Modification History --
10 -- Date Username Description --
11 -- 18-JUN-99 CCLYDE Initial creation --
12 -- 09-AUG-99 CCLYDE Procedures: Show, AddValue --
13 -- Changed the colour of the table header - white --
14 -- text on a wierd blue background. --
15 -- 28-AUG-99 CCLYDE Added Exception clauses to all procedures which --
16 -- contained a SQL statement. (Task: 3275) --
17 -- 10-SEP-99 CCLYDE Changed v_index; it's now initialised with 1 and --
18 -- not 2. See below for details. (Task: 3486) --
19 -- (InsertSecuritySets) --
20 -- 02-NOV-99 CCLYDE Replaced the call to ADI_HEADER_FOOTER.pageHead --
21 -- with ADI_HEADER_FOOTER.htmlHead and --
22 -- ADI_HEADER_FOOTER.pageBanner. This allows better --
23 -- manipulation of the banner icons. --
24 -- Show / AddValue (Tasks: 3526 / 3598) --
25 -- 17-DEC-99 CCLYDE Due to performance problems, the SELECT statement --
26 -- (in procedure AddValue) had to be modified so that --
27 -- the NOT IN clause was removed. As a result of --
28 -- this, the user has the ability to re-select value --
29 -- sets previously selected - not a good idea! Added --
30 -- the NewValueSet function which checks to see if --
31 -- the value set currently exists... if Yes, the --
32 -- Value Set is ignored, otherwise, the Value Set --
33 -- will be created as a new Security Set. --
34 -- (InsertSecuritySets, AddValue) (Task: 3780) --
35 -- 16-FEB-00 cclyde Added Package_Revision procedure to see if we can --
36 -- capture the revision number of the package during --
37 -- runtime. (Task: 3858) --
38 -- 24-FEB-00 CCLYDE Changed the IF form v_flexValueSet.application_id --
39 -- to g_appsRelease. v_flexValueSet.application_id --
40 -- does not exist in Release 11.5.1. Also, set the --
41 -- application_id to 265 (Report Manager product). --
42 -- CreateValueSet Task: 3885 --
43 -- 02-MAR-00 GSANAP Changed the IF from 11.5 to 11.51 for g_appsRelease--
44 -- Task 3925 --
45 -- 28-MAR-00 GSANAP Changed the p_ValueSetId parameter in function --
46 -- NewValueSet & procedures CreateValueSet & --
47 -- CreateDocument from Integer to Varchar2 --
48 -- Task 4108 --
49 -- 16-MAY-00 GSANAP Moved the $Header comment from the top and replced --
50 -- CREATE OR REPLACE PACKAGE IS TO AS --
51 -- 02-JUN-00 GSANAP Renamed AddValue to ValueSetDisplayFrame, created --
52 -- AddValue and ValueSetSearchFrame. Moved Header & --
53 -- Banner calls from ValueSetDisplayFrame to --
54 -- ValueSetSearchFrame --
55 -- Task 4363 --
56 -- 21-JUN-00 GSANAP Removed local Insert stmt. From CreateValueSet --
57 -- and added a call to fnd_flex_val_api.Create_ --
58 -- valueset_none procedure. Also replaced parameter --
59 -- p_SecuritySetId with p_SecuritySetName in --
60 -- CreateValueSet and CreateDocument procedures --
61 -- Task 4396 --
62 -- 30-JUN-00 GSANAP Modified the debug stmts. to include package names --
63 -- Task 4425 --
64 -- 07-DEC-00 CCLYDE New Help tag: rptmgr1005277 --
65 -- (show, valuesetsearchframe) --
66 -- 15-NOV-02 GHOOKER Stub out procedures not used by RM8 --
67 --------------------------------------------------------------------------------
68 END ADI_Security_Nominate;