68:
69: EXCEPTION
70: WHEN OTHERS THEN
71:
72: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
73: retcode := 2;
74: errbuf := Fnd_message.get;
75:
76: write_to_log ( l_excep_level, 'get_schema_name','END Procedure get_schema_name - failed with error '|| SQLERRM );
70: WHEN OTHERS THEN
71:
72: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
73: retcode := 2;
74: errbuf := Fnd_message.get;
75:
76: write_to_log ( l_excep_level, 'get_schema_name','END Procedure get_schema_name - failed with error '|| SQLERRM );
77: RETURN;
78:
210:
211: EXCEPTION
212: WHEN OTHERS THEN
213:
214: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
215: retcode := 2;
216: errbuf := Fnd_message.get;
217: write_to_log (l_excep_level, 'get_mrc_mls_schemanames', 'END Procedure Apply Security - failed with error '|| SQLERRM );
218: RETURN;
212: WHEN OTHERS THEN
213:
214: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
215: retcode := 2;
216: errbuf := Fnd_message.get;
217: write_to_log (l_excep_level, 'get_mrc_mls_schemanames', 'END Procedure Apply Security - failed with error '|| SQLERRM );
218: RETURN;
219:
220: END get_mrc_mls_schemanames;
278: write_to_log (l_excep_level, 'check_allocation_exists', 'END Procedure Apply Security - failed with error '|| SQLERRM );
279:
280: IF ( l_unexp_level >= l_debug_level ) THEN
281:
282: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
283: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
284: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
285: FND_LOG.MESSAGE ( l_unexp_level,l_path || 'check_allocation_exists' , TRUE);
286: END IF;
279:
280: IF ( l_unexp_level >= l_debug_level ) THEN
281:
282: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
283: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
284: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
285: FND_LOG.MESSAGE ( l_unexp_level,l_path || 'check_allocation_exists' , TRUE);
286: END IF;
287: Raise_Application_Error (-20000,
280: IF ( l_unexp_level >= l_debug_level ) THEN
281:
282: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
283: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
284: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
285: FND_LOG.MESSAGE ( l_unexp_level,l_path || 'check_allocation_exists' , TRUE);
286: END IF;
287: Raise_Application_Error (-20000,
288: 'Error encountered in check_allocation_exists');
753:
754: EXCEPTION
755: WHEN OTHERS THEN
756:
757: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
758: retcode := 2;
759: errbuf := Fnd_message.get;
760:
761: write_to_log (l_excep_level, 'create_drop_sls_objects', 'END Procedure Apply Security - failed with error '|| SQLERRM || ' in create_drop_sls_objects' );
755: WHEN OTHERS THEN
756:
757: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
758: retcode := 2;
759: errbuf := Fnd_message.get;
760:
761: write_to_log (l_excep_level, 'create_drop_sls_objects', 'END Procedure Apply Security - failed with error '|| SQLERRM || ' in create_drop_sls_objects' );
762: ROLLBACK;
763: RETURN;
994:
995: EXCEPTION
996: WHEN OTHERS THEN
997:
998: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
999: retcode := 2;
1000: errbuf := Fnd_message.get;
1001: write_to_log ( l_excep_level, 'refresh_sls_objects','END Procedure Apply Security - failed with error '|| SQLERRM );
1002:
996: WHEN OTHERS THEN
997:
998: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
999: retcode := 2;
1000: errbuf := Fnd_message.get;
1001: write_to_log ( l_excep_level, 'refresh_sls_objects','END Procedure Apply Security - failed with error '|| SQLERRM );
1002:
1003: END refresh_sls_objects;
1004:
1035:
1036: EXCEPTION
1037: WHEN OTHERS THEN
1038:
1039: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
1040: retcode := 2;
1041: errbuf := Fnd_message.get;
1042: write_to_log (l_excep_level, 'populate_group_alloc', 'END Procedure Apply Security - failed with error '|| SQLERRM ||
1043: ' in populate_group_alloc');
1037: WHEN OTHERS THEN
1038:
1039: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
1040: retcode := 2;
1041: errbuf := Fnd_message.get;
1042: write_to_log (l_excep_level, 'populate_group_alloc', 'END Procedure Apply Security - failed with error '|| SQLERRM ||
1043: ' in populate_group_alloc');
1044: ROLLBACK;
1045: RETURN;
1380: NULL;
1381:
1382: WHEN OTHERS THEN
1383:
1384: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
1385: retcode := 2;
1386: errbuf := Fnd_message.get;
1387: write_to_log (l_excep_level, 'cleanup_data', 'END Procedure Apply Security - failed with error '|| SQLERRM ||
1388: ' when cleaning up data ');
1382: WHEN OTHERS THEN
1383:
1384: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
1385: retcode := 2;
1386: errbuf := Fnd_message.get;
1387: write_to_log (l_excep_level, 'cleanup_data', 'END Procedure Apply Security - failed with error '|| SQLERRM ||
1388: ' when cleaning up data ');
1389: ROLLBACK;
1390:
1486: -- Records to be commited after the cleanup exercise
1487: EXCEPTION
1488: WHEN OTHERS THEN
1489:
1490: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
1491: retcode := 2;
1492: errbuf := Fnd_message.get;
1493: write_to_log ( l_excep_level, 'stamp_records','END Procedure Apply Security - failed with error '|| SQLERRM ||
1494: ' when stamping records with the date_security_applied ');
1488: WHEN OTHERS THEN
1489:
1490: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
1491: retcode := 2;
1492: errbuf := Fnd_message.get;
1493: write_to_log ( l_excep_level, 'stamp_records','END Procedure Apply Security - failed with error '|| SQLERRM ||
1494: ' when stamping records with the date_security_applied ');
1495: ROLLBACK;
1496:
1785:
1786: EXCEPTION
1787: WHEN OTHERS THEN
1788:
1789: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
1790: retcode := 2;
1791: errbuf := Fnd_message.get;
1792: write_to_log (l_excep_level, 'consolidate_groups', 'END Procedure Apply Security - failed with error '|| SQLERRM ||
1793: ' when consolidating groups ');
1787: WHEN OTHERS THEN
1788:
1789: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
1790: retcode := 2;
1791: errbuf := Fnd_message.get;
1792: write_to_log (l_excep_level, 'consolidate_groups', 'END Procedure Apply Security - failed with error '|| SQLERRM ||
1793: ' when consolidating groups ');
1794: ROLLBACK;
1795:
1964: FOR l_chk_tab IN c_chk_tab
1965: LOOP
1966: l_dup_tabs_exist := TRUE;
1967:
1968: fnd_message.set_name('IGI','IGI_SLS_DUP_ALLOC_EXISTS');
1969: fnd_message.set_token('TAB_NAME',l_chk_tab.table_name);
1970: Write_to_log(l_state_level, 'secure_existing_data',Fnd_Message.Get);
1971:
1972: END LOOP ;
1965: LOOP
1966: l_dup_tabs_exist := TRUE;
1967:
1968: fnd_message.set_name('IGI','IGI_SLS_DUP_ALLOC_EXISTS');
1969: fnd_message.set_token('TAB_NAME',l_chk_tab.table_name);
1970: Write_to_log(l_state_level, 'secure_existing_data',Fnd_Message.Get);
1971:
1972: END LOOP ;
1973:
1966: l_dup_tabs_exist := TRUE;
1967:
1968: fnd_message.set_name('IGI','IGI_SLS_DUP_ALLOC_EXISTS');
1969: fnd_message.set_token('TAB_NAME',l_chk_tab.table_name);
1970: Write_to_log(l_state_level, 'secure_existing_data',Fnd_Message.Get);
1971:
1972: END LOOP ;
1973:
1974: -- Get the tables for which the data needs to be made secure
2040: EXCEPTION
2041:
2042: WHEN igi_sls_sec_not_applied_excep
2043: THEN
2044: fnd_message.set_name('IGI','IGI_SLS_SEC_NOT_APPLIED');
2045: errbuf := fnd_message.get;
2046: write_to_log(l_excep_level, 'secure_existing_data',errbuf);
2047: retcode := 2;
2048: RETURN;
2041:
2042: WHEN igi_sls_sec_not_applied_excep
2043: THEN
2044: fnd_message.set_name('IGI','IGI_SLS_SEC_NOT_APPLIED');
2045: errbuf := fnd_message.get;
2046: write_to_log(l_excep_level, 'secure_existing_data',errbuf);
2047: retcode := 2;
2048: RETURN;
2049:
2049:
2050: WHEN OTHERS
2051: THEN
2052:
2053: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
2054: errbuf := Fnd_message.get;
2055:
2056: write_to_log ( l_excep_level, 'secure_existing_data','END Procedure Secure Existing data - failed with error '|| SQLERRM );
2057: ROLLBACK;
2050: WHEN OTHERS
2051: THEN
2052:
2053: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
2054: errbuf := Fnd_message.get;
2055:
2056: write_to_log ( l_excep_level, 'secure_existing_data','END Procedure Secure Existing data - failed with error '|| SQLERRM );
2057: ROLLBACK;
2058: retcode := 2;