39: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
40: --
41: IF l_debug_on IS NULL
42: THEN
43: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
44: END IF;
45: --
46: IF l_debug_on THEN
47: WSH_DEBUG_SV.push(l_module_name);
43: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
44: END IF;
45: --
46: IF l_debug_on THEN
47: WSH_DEBUG_SV.push(l_module_name);
48: END IF;
49: --
50: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
51:
102: --
103: -- Debug Statements
104: --
105: IF l_debug_on THEN
106: WSH_DEBUG_SV.pop(l_module_name);
107: END IF;
108: --
109: EXCEPTION
110: WHEN wsh_duplicate_name THEN
115: --
116: -- Debug Statements
117: --
118: IF l_debug_on THEN
119: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DUPLICATE_NAME exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DUPLICATE_NAME');
121: END IF;
122: --
123: WHEN others THEN
116: -- Debug Statements
117: --
118: IF l_debug_on THEN
119: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DUPLICATE_NAME exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DUPLICATE_NAME');
121: END IF;
122: --
123: WHEN others THEN
124: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
127: --
128: -- Debug Statements
129: --
130: IF l_debug_on THEN
131: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
132: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
133: END IF;
134: --
135: END Insert_Row;
128: -- Debug Statements
129: --
130: IF l_debug_on THEN
131: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
132: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
133: END IF;
134: --
135: END Insert_Row;
136:
160: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
161: --
162: IF l_debug_on IS NULL
163: THEN
164: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
165: END IF;
166: --
167: IF l_debug_on THEN
168: WSH_DEBUG_SV.push(l_module_name);
164: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
165: END IF;
166: --
167: IF l_debug_on THEN
168: WSH_DEBUG_SV.push(l_module_name);
169: --
170: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
171: END IF;
172: --
166: --
167: IF l_debug_on THEN
168: WSH_DEBUG_SV.push(l_module_name);
169: --
170: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
171: END IF;
172: --
173: OPEN c_lock_role;
174: FETCH c_lock_role INTO l_db_rec;
194: --
195: -- Debug Statements
196: --
197: IF l_debug_on THEN
198: WSH_DEBUG_SV.pop(l_module_name);
199: END IF;
200: --
201: RETURN;
202: ELSE
207: --
208: -- Debug Statements
209: --
210: IF l_debug_on THEN
211: WSH_DEBUG_SV.pop(l_module_name);
212: END IF;
213: --
214: EXCEPTION
215: WHEN app_exception.application_exception
222: --
223: -- Debug Statements
224: --
225: IF l_debug_on THEN
226: WSH_DEBUG_SV.logmsg(l_module_name,'APP_EXCEPTION.APPLICATION_EXCEPTION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
227: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:APP_EXCEPTION.APPLICATION_EXCEPTION');
228: END IF;
229: --
230: RAISE;
223: -- Debug Statements
224: --
225: IF l_debug_on THEN
226: WSH_DEBUG_SV.logmsg(l_module_name,'APP_EXCEPTION.APPLICATION_EXCEPTION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
227: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:APP_EXCEPTION.APPLICATION_EXCEPTION');
228: END IF;
229: --
230: RAISE;
231:
243: --
244: -- Debug Statements
245: --
246: IF l_debug_on THEN
247: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
248: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
249: END IF;
250: --
251: RAISE;
244: -- Debug Statements
245: --
246: IF l_debug_on THEN
247: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
248: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
249: END IF;
250: --
251: RAISE;
252:
253: --
254: -- Debug Statements
255: --
256: IF l_debug_on THEN
257: WSH_DEBUG_SV.pop(l_module_name);
258: END IF;
259: --
260: END Lock_Row;
261:
288: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
289: --
290: IF l_debug_on IS NULL
291: THEN
292: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
293: END IF;
294: --
295: IF l_debug_on THEN
296: WSH_DEBUG_SV.push(l_module_name);
292: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
293: END IF;
294: --
295: IF l_debug_on THEN
296: WSH_DEBUG_SV.push(l_module_name);
297: --
298: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
299: WSH_DEBUG_SV.log(l_module_name,'P_ROLE_ID',p_role_record.ROLE_ID);
300: END IF;
294: --
295: IF l_debug_on THEN
296: WSH_DEBUG_SV.push(l_module_name);
297: --
298: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
299: WSH_DEBUG_SV.log(l_module_name,'P_ROLE_ID',p_role_record.ROLE_ID);
300: END IF;
301: --
302: OPEN c_dup_role_name;
295: IF l_debug_on THEN
296: WSH_DEBUG_SV.push(l_module_name);
297: --
298: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
299: WSH_DEBUG_SV.log(l_module_name,'P_ROLE_ID',p_role_record.ROLE_ID);
300: END IF;
301: --
302: OPEN c_dup_role_name;
303: FETCH c_dup_role_name INTO l_dup_id;
329: --
330: -- Debug Statements
331: --
332: IF l_debug_on THEN
333: WSH_DEBUG_SV.pop(l_module_name);
334: END IF;
335: --
336: EXCEPTION
337: WHEN wsh_duplicate_name THEN
342: --
343: -- Debug Statements
344: --
345: IF l_debug_on THEN
346: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DUPLICATE_NAME exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
347: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DUPLICATE_NAME');
348: END IF;
349: --
350: WHEN others THEN
343: -- Debug Statements
344: --
345: IF l_debug_on THEN
346: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DUPLICATE_NAME exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
347: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DUPLICATE_NAME');
348: END IF;
349: --
350: WHEN others THEN
351: IF c_dup_role_name%isopen THEN
357: --
358: -- Debug Statements
359: --
360: IF l_debug_on THEN
361: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
362: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
363: END IF;
364: --
365: END Update_Row;
358: -- Debug Statements
359: --
360: IF l_debug_on THEN
361: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
362: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
363: END IF;
364: --
365: END Update_Row;
366:
382: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
383: --
384: IF l_debug_on IS NULL
385: THEN
386: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
387: END IF;
388: --
389: IF l_debug_on THEN
390: WSH_DEBUG_SV.push(l_module_name);
386: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
387: END IF;
388: --
389: IF l_debug_on THEN
390: WSH_DEBUG_SV.push(l_module_name);
391: --
392: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
393: END IF;
394: --
388: --
389: IF l_debug_on THEN
390: WSH_DEBUG_SV.push(l_module_name);
391: --
392: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
393: END IF;
394: --
395: DELETE FROM WSH_ROLES
396: WHERE rowid = p_rowid;
402: --
403: -- Debug Statements
404: --
405: IF l_debug_on THEN
406: WSH_DEBUG_SV.pop(l_module_name);
407: END IF;
408: --
409: EXCEPTION
410: WHEN others THEN
414: --
415: -- Debug Statements
416: --
417: IF l_debug_on THEN
418: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
419: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
420: END IF;
421: --
422: END Delete_Row;
415: -- Debug Statements
416: --
417: IF l_debug_on THEN
418: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
419: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
420: END IF;
421: --
422: END Delete_Row;
423: