1: PACKAGE BODY CN_SECURITY_PROFILES_PKG AS
2: /* $Header: cntsecpb.pls 115.6 2001/10/29 17:16:49 pkm ship $ */
3: --
4: -- Package Name
5: -- CN_SECURITY_PROFILES_PKG
1: PACKAGE BODY CN_SECURITY_PROFILES_PKG AS
2: /* $Header: cntsecpb.pls 115.6 2001/10/29 17:16:49 pkm ship $ */
3: --
4: -- Package Name
5: -- CN_SECURITY_PROFILES_PKG
6: -- Purpose
7: -- Table handler for CN_SECURITY_PROFILES
8: -- Form
9: -- CNSPROF
3: --
4: -- Package Name
5: -- CN_SECURITY_PROFILES_PKG
6: -- Purpose
7: -- Table handler for CN_SECURITY_PROFILES
8: -- Form
9: -- CNSPROF
10: -- Block
11: -- SECURITY_PROFILES
14: -- 28-Jul-99 Yonghong Mao Created
15:
16: PROCEDURE get_security_profile_id(x_security_profile_id IN OUT NUMBER) IS
17: BEGIN
18: SELECT cn_security_profiles_s.NEXTVAL
19: INTO x_security_profile_id
20: FROM dual;
21: END get_security_profile_id;
22:
22:
23: PROCEDURE Insert_Row( x_new_rec IN OUT security_profiles_rec_type) IS
24: CURSOR c IS
25: SELECT 1
26: FROM cn_security_profiles
27: WHERE security_profile_id = x_new_rec.security_profile_id;
28: l_dummy number;
29: BEGIN
30: IF x_new_rec.security_profile_id IS NULL THEN
118: x_new_rec.last_update_date,
119: x_new_rec.last_updated_by
120: FROM dual;
121:
122: INSERT INTO cn_security_profiles
123: (security_profile_id,
124: profile_user_id,
125: attribute_category,
126: attribute1,
182:
183: PROCEDURE Update_Row(x_new_rec security_profiles_rec_type) IS
184: CURSOR c IS
185: SELECT *
186: FROM cn_security_profiles
187: WHERE security_profile_id = x_new_rec.security_profile_id
188: FOR UPDATE OF security_profile_id nowait;
189:
190: rec c%ROWTYPE;
283: rec.last_update_date,
284: rec.last_updated_by
285: FROM dual;
286:
287: UPDATE cn_security_profiles SET
288: profile_user_id = rec.profile_user_id,
289: attribute_category = rec.attribute_category,
290: attribute1 = rec.attribute1,
291: attribute2 = rec.attribute2,
315:
316: PROCEDURE Lock_Row(x_rec security_profiles_rec_type) IS
317: CURSOR c IS
318: SELECT *
319: FROM cn_security_profiles
320: WHERE security_profile_id = x_rec.security_profile_id
321: FOR UPDATE OF security_profile_id nowait;
322: recinfo c%ROWTYPE;
323:
408: END Lock_Row;
409:
410: PROCEDURE Delete_Row(x_security_profile_id NUMBER) IS
411: BEGIN
412: DELETE cn_security_profiles
413: WHERE security_profile_id = x_security_profile_id;
414:
415: IF (SQL%notfound) THEN
416: RAISE no_data_found;
417: END IF;
418:
419: END Delete_Row;
420:
421: END CN_SECURITY_PROFILES_PKG;