[Home] [Help]
PACKAGE BODY: APPS.CN_USER_ACCESS_PKG
Source
1 PACKAGE BODY CN_USER_ACCESS_PKG AS
2 /*$Header: cnturasb.pls 115.4 2002/11/21 21:11:15 hlchen ship $*/
3
4 PROCEDURE Insert_Row(newrec IN OUT
5 CN_USER_ACCESS_PVT.USER_ACCESS_REC_TYPE) IS
6 BEGIN
7 -- get the next pk from sequence
8 SELECT cn_user_accesses_s.nextval
9 INTO newrec.user_access_id
10 FROM dual;
11
12 INSERT into cn_user_accesses
13 (user_access_id,
14 user_id,
15 comp_group_id,
16 org_code,
17 access_code,
18 attribute_category,
19 attribute1,
20 attribute2,
21 attribute3,
22 attribute4,
23 attribute5,
24 attribute6,
25 attribute7,
26 attribute8,
27 attribute9,
28 attribute10,
29 attribute11,
30 attribute12,
31 attribute13,
32 attribute14,
33 attribute15,
34 last_update_date,
35 last_updated_by,
36 last_update_login,
37 creation_date,
38 created_by,
39 object_version_number)
40 VALUES
41 (newrec.user_access_id,
42 newrec.user_id,
43 newrec.comp_group_id,
44 newrec.org_code,
45 newrec.access_code,
46 newrec.attribute_category,
47 newrec.attribute1,
48 newrec.attribute2,
49 newrec.attribute3,
50 newrec.attribute4,
51 newrec.attribute5,
52 newrec.attribute6,
53 newrec.attribute7,
54 newrec.attribute8,
55 newrec.attribute9,
56 newrec.attribute10,
57 newrec.attribute11,
58 newrec.attribute12,
59 newrec.attribute13,
60 newrec.attribute14,
61 newrec.attribute15,
62 sysdate,
63 fnd_global.user_id,
64 fnd_global.login_id,
65 sysdate,
66 fnd_global.user_id,
67 1);
68 END Insert_Row;
69
70 PROCEDURE Update_Row(newrec
71 CN_USER_ACCESS_PVT.USER_ACCESS_REC_TYPE) IS
72 CURSOR c IS
73 SELECT *
74 FROM cn_user_accesses
75 WHERE user_access_id = newrec.user_access_id;
76 oldrec c%ROWTYPE;
77 BEGIN
78 open c;
79 fetch c into oldrec;
80 close c;
81
82 update cn_user_accesses set
83 user_id = decode(newrec.user_id, fnd_api.g_miss_num,
84 oldrec.user_id,
85 newrec.user_id),
86 comp_group_id = decode(newrec.comp_group_id, fnd_api.g_miss_num,
87 oldrec.comp_group_id,
88 newrec.comp_group_id),
89 org_code = decode(newrec.org_code, fnd_api.g_miss_char,
90 oldrec.org_code,
91 newrec.org_code),
92 access_code = decode(newrec.access_code, fnd_api.g_miss_char,
93 oldrec.access_code,
94 newrec.access_code),
95 attribute_category= decode(newrec.attribute_category, fnd_api.g_miss_char,
96 oldrec.attribute_category,
97 newrec.attribute_category),
98 attribute1 = decode(newrec.attribute1, fnd_api.g_miss_char,
99 oldrec.attribute1,
100 newrec.attribute1),
101 attribute2 = decode(newrec.attribute2, fnd_api.g_miss_char,
102 oldrec.attribute2,
103 newrec.attribute2),
104 attribute3 = decode(newrec.attribute3, fnd_api.g_miss_char,
105 oldrec.attribute3,
106 newrec.attribute3),
107 attribute4 = decode(newrec.attribute4, fnd_api.g_miss_char,
108 oldrec.attribute4,
109 newrec.attribute4),
110 attribute5 = decode(newrec.attribute5, fnd_api.g_miss_char,
111 oldrec.attribute5,
112 newrec.attribute5),
113 attribute6 = decode(newrec.attribute6, fnd_api.g_miss_char,
114 oldrec.attribute6,
115 newrec.attribute6),
116 attribute7 = decode(newrec.attribute7, fnd_api.g_miss_char,
117 oldrec.attribute7,
118 newrec.attribute7),
119 attribute8 = decode(newrec.attribute8, fnd_api.g_miss_char,
120 oldrec.attribute8,
121 newrec.attribute8),
122 attribute9 = decode(newrec.attribute9, fnd_api.g_miss_char,
123 oldrec.attribute9,
124 newrec.attribute9),
125 attribute10 = decode(newrec.attribute10, fnd_api.g_miss_char,
126 oldrec.attribute10,
127 newrec.attribute10),
128 attribute11 = decode(newrec.attribute11, fnd_api.g_miss_char,
129 oldrec.attribute11,
130 newrec.attribute11),
131 attribute12 = decode(newrec.attribute12, fnd_api.g_miss_char,
132 oldrec.attribute12,
133 newrec.attribute12),
134 attribute13 = decode(newrec.attribute13, fnd_api.g_miss_char,
135 oldrec.attribute13,
136 newrec.attribute13),
137 attribute14 = decode(newrec.attribute14, fnd_api.g_miss_char,
138 oldrec.attribute14,
139 newrec.attribute14),
140 attribute15 = decode(newrec.attribute15, fnd_api.g_miss_char,
141 oldrec.attribute15,
142 newrec.attribute15),
143 last_update_login = fnd_global.login_id,
144 last_update_date = sysdate,
145 last_updated_by = fnd_global.user_id,
146 object_version_number = oldrec.object_version_number + 1
147 where user_access_id = oldrec.user_access_id;
148 END Update_Row;
149
150 PROCEDURE LOCK_ROW (p_user_access_id IN NUMBER,
151 p_object_version_number IN NUMBER) IS
152 cursor c is
153 select object_version_number
154 from cn_user_accesses
155 where user_access_id = p_user_access_id
156 for update of user_access_id nowait;
157 tlinfo c%rowtype ;
158 BEGIN
159 open c;
160 fetch c into tlinfo;
161 if (c%notfound) then
162 close c;
163 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
164 fnd_msg_pub.add;
165 raise fnd_api.g_exc_unexpected_error;
166 end if;
167 close c;
168
169 if (tlinfo.object_version_number <> p_object_version_number) then
170 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
171 fnd_msg_pub.add;
172 raise fnd_api.g_exc_unexpected_error;
173 end if;
174
175 END LOCK_ROW;
176
177 PROCEDURE Delete_Row(p_user_access_id NUMBER) IS
178 BEGIN
179 DELETE from cn_user_accesses
180 WHERE user_access_id = p_user_access_id;
181 if (sql%notfound) then
182 raise no_data_found;
183 end if;
184
185 END Delete_Row;
186
187 END CN_USER_ACCESS_PKG;
188