PACKAGE BODY: APPS.GL_DAS_DB_PKG

Source

1 PACKAGE BODY gl_das_db_pkg AS
2 /* $Header: gldefacb.pls 120.5 2005/09/02 10:51:14 adesu ship $ */
3 
4  --
5  -- PUBLIC FUNCTIONS
6  --
7 
8   PROCEDURE Insert_Super (
9                        P_Rowid       IN OUT NOCOPY VARCHAR2,
10                        P_Definition_Access_Set_Id  NUMBER,
11                        P_Object_Type               VARCHAR2,
12                        P_Object_Key                VARCHAR2,
13                        P_User_Id                   NUMBER,
14                        P_Login_Id                  NUMBER,
15                        P_Date                      DATE) IS
16   BEGIN
17 
18       GL_DEFAS_ACCESS_DETAILS_PKG.Insert_Row(
19         X_Rowid                      =>   P_Rowid,
20         X_Definition_Access_Set_Id   =>   P_Definition_Access_Set_id,
21         X_Object_Type                =>   P_Object_Type,
22         X_Object_Key                 =>   P_Object_Key,
23         X_View_Access_Flag           =>   'Y',
24         X_Use_Access_Flag            =>   'Y',
25         X_Modify_Access_Flag         =>   'Y',
26         X_User_Id                    =>   P_User_Id,
27         X_Login_Id                   =>   P_Login_Id,
28         X_Date                       =>   P_Date,
29         X_Status_Code                =>   'I',
30         X_Request_Id                 =>   NULL);
31 
32   END Insert_Super;
33 
34   PROCEDURE Insert_Default (
35                        X_Object_Type               VARCHAR2,
36                        X_Object_Key                VARCHAR2,
37                        X_User_Id                   NUMBER,
38                        X_Login_Id                  NUMBER,
39                        X_Date                      DATE) IS
40   BEGIN
41      INSERT INTO GL_DEFAS_ASSIGNMENTS
42      (definition_access_set_id,
43       object_type,
44       object_key,
45       view_access_flag,
46       use_access_flag,
47       modify_access_flag,
48       last_update_date,
49       last_updated_by,
50       creation_date,
51       created_by,
52       last_update_login,
53       status_code)
54     SELECT
55       definition_access_set_id,
56       X_Object_Type,
57       X_Object_Key,
58       default_view_access_flag,
59       default_use_access_flag,
60       default_modify_access_flag,
61       X_Date,
62       X_User_Id,
63       X_Date,
64       X_User_Id,
65       X_Login_Id,
66       'I'
67     FROM gl_defas_resp_assign
68     WHERE application_id = 101
69     AND   responsibility_id = fnd_global.resp_id
70     AND   security_group_id = fnd_global.security_group_id
71     AND   default_flag = 'Y';
72   END Insert_Default;
73 
74   FUNCTION Submit_Req RETURN NUMBER IS
75     request_id NUMBER;
76   BEGIN
77     request_id := fnd_request.submit_request(
78                   'SQLGL', 'GLDASF', '', '', FALSE,
79                   'DEF', 'Y');
80 
81     return request_id;
82 
83   END Submit_Req;
84 
85 END gl_das_db_pkg;