[Home] [Help]
1: PACKAGE BODY CSM_ACC_PKG AS
2: /* $Header: csmeaccb.pls 120.4 2008/04/22 11:45:05 trajasek ship $*/
3: --
4: -- To modify this template, edit file PKGBODY.TXT in TEMPLATE
5: -- directory of SQL Navigator
121: END IF;
122:
123: CSM_UTIL_PKG.LOG( l_stmt || fnd_global.local_chr(10) ||
124: ':1 = ' || p_user_id || fnd_global.local_chr(10) || l_error_msg,
125: 'CSM_ACC_PKG.GET_ACC_ID',FND_LOG.LEVEL_PROCEDURE);
126:
127:
128: IF p_pk2_name IS NULL THEN
129: EXECUTE IMMEDIATE l_stmt INTO l_access_id USING p_user_id, l_pk1_value;
137:
138: EXCEPTION
139: WHEN NO_DATA_FOUND THEN
140: CSM_UTIL_PKG.LOG( 'No Access_ID found for Statement:' || l_stmt || fnd_global.local_chr(10) ||
141: ':1 = ' || p_user_id, 'CSM_ACC_PKG.GET_ACC_ID',FND_LOG.LEVEL_EXCEPTION);
142: /*** Record doesn't exist ***/
143: RETURN -1;
144: WHEN OTHERS THEN
145: CSM_UTIL_PKG.LOG( 'Exception occurred in CSM_ACC_PKG.GET_ACC_ID' || sqlerrm, 'CSM_ACC_PKG.GET_ACC_ID',FND_LOG.LEVEL_EXCEPTION);
141: ':1 = ' || p_user_id, 'CSM_ACC_PKG.GET_ACC_ID',FND_LOG.LEVEL_EXCEPTION);
142: /*** Record doesn't exist ***/
143: RETURN -1;
144: WHEN OTHERS THEN
145: CSM_UTIL_PKG.LOG( 'Exception occurred in CSM_ACC_PKG.GET_ACC_ID' || sqlerrm, 'CSM_ACC_PKG.GET_ACC_ID',FND_LOG.LEVEL_EXCEPTION);
146: /*** Raise any other error ***/
147: RAISE;
148: END Get_Acc_Id;
149:
215: ' WHERE ACCESS_ID = :1'; -- ||l_access_id;
216:
217:
218:
219: CSM_UTIL_PKG.LOG( l_stmt, 'CSM_ACC_PKG.INSERT_ACC',FND_LOG.LEVEL_PROCEDURE);
220:
221: EXECUTE IMMEDIATE l_stmt using l_access_id;
222:
223: ELSE
299: END IF;
300:
301: CSM_UTIL_PKG.LOG( 'executing:' || fnd_global.local_chr(10) ||
302: l_stmt || fnd_global.local_chr(10) || ':1 = ' || l_user_id
303: || fnd_global.local_chr(10) || l_error_msg, 'CSM_ACC_PKG.INSERT_ACC',FND_LOG.LEVEL_PROCEDURE);
304:
305:
306: /*We have at least one PK so get the value*/
307: IF l_pk2_value IS NULL THEN
329: END IF;
330:
331: EXCEPTION
332: WHEN OTHERS THEN
333: CSM_UTIL_PKG.LOG( 'Exception occurred in CSM_ACC_PKG.INSERT_ACC' || sqlerrm, 'CSM_ACC_PKG.INSERT_ACC',FND_LOG.LEVEL_EXCEPTION);
334: /*** Raise any other error ***/
335: RAISE;
336:
337: END Insert_Acc;
451: CSM_UTIL_PKG.LOG( 'executing:' || l_stmt || fnd_global.local_chr(10) ||
452: ':P1 = ' || l_pk1_value || fnd_global.local_chr(10) ||
453: ':P2 = ' || l_pk2_value || fnd_global.local_chr(10) ||
454: ':P3 = ' || l_pk3_value || fnd_global.local_chr(10) ||
455: ':P4 = ' || l_user_id, 'CSM_ACC_PKG.DELETE_ACC',FND_LOG.LEVEL_PROCEDURE);
456:
457:
458: l_count := dbms_sql.execute( l_cursor );
459: LOOP
548: EXCEPTION WHEN OTHERS THEN
549: IF l_cursor <> 0 THEN
550: dbms_sql.close_cursor( l_cursor );
551: END IF;
552: CSM_UTIL_PKG.LOG( 'Exception occurred in CSM_ACC_PKG.DELETE_ACC' || sqlerrm, 'CSM_ACC_PKG.DELETE_ACC',FND_LOG.LEVEL_EXCEPTION);
553: /*** Raise any other error ***/
554: RAISE;
555: END Delete_Acc;
556:
582: END IF;
583:
584: EXCEPTION
585: WHEN OTHERS THEN
586: CSM_UTIL_PKG.LOG( 'Exception occurred in CSM_ACC_PKG.UPDATE_ACC' || sqlerrm, 'CSM_ACC_PKG.UPDATE_ACC',FND_LOG.LEVEL_EXCEPTION);
587: /*** Raise any other error ***/
588: RAISE;
589:
590: END Update_Acc;