790: ,EGO_ITEM_PUB.G_INTF_DELETE_NONE
791: ) THEN
792: -- invalid parameters
793: x_retcode := RETCODE_ERROR;
794: fnd_message.set_name('EGO','EGO_IPI_INSUFFICIENT_PARAMS');
795: fnd_message.set_token('PROG_NAME',l_program_name);
796: x_errbuff := fnd_message.get();
797: Conc_Output (p_msg => x_errbuff);
798: ELSE
791: ) THEN
792: -- invalid parameters
793: x_retcode := RETCODE_ERROR;
794: fnd_message.set_name('EGO','EGO_IPI_INSUFFICIENT_PARAMS');
795: fnd_message.set_token('PROG_NAME',l_program_name);
796: x_errbuff := fnd_message.get();
797: Conc_Output (p_msg => x_errbuff);
798: ELSE
799: IF p_delete_line_type = EGO_ITEM_PUB.G_INTF_DELETE_ALL THEN
792: -- invalid parameters
793: x_retcode := RETCODE_ERROR;
794: fnd_message.set_name('EGO','EGO_IPI_INSUFFICIENT_PARAMS');
795: fnd_message.set_token('PROG_NAME',l_program_name);
796: x_errbuff := fnd_message.get();
797: Conc_Output (p_msg => x_errbuff);
798: ELSE
799: IF p_delete_line_type = EGO_ITEM_PUB.G_INTF_DELETE_ALL THEN
800: --
850:
851: EXCEPTION
852: WHEN OTHERS THEN
853: x_retcode := RETCODE_ERROR;
854: fnd_message.set_name('EGO','EGO_IPI_EXCEPTION');
855: fnd_message.set_token('PROG_NAME',l_program_name);
856: x_errbuff := fnd_message.get();
857: Conc_Output (p_msg => x_errbuff);
858: Write_Debug (x_errbuff);
851: EXCEPTION
852: WHEN OTHERS THEN
853: x_retcode := RETCODE_ERROR;
854: fnd_message.set_name('EGO','EGO_IPI_EXCEPTION');
855: fnd_message.set_token('PROG_NAME',l_program_name);
856: x_errbuff := fnd_message.get();
857: Conc_Output (p_msg => x_errbuff);
858: Write_Debug (x_errbuff);
859: -- ROLLBACK;
852: WHEN OTHERS THEN
853: x_retcode := RETCODE_ERROR;
854: fnd_message.set_name('EGO','EGO_IPI_EXCEPTION');
855: fnd_message.set_token('PROG_NAME',l_program_name);
856: x_errbuff := fnd_message.get();
857: Conc_Output (p_msg => x_errbuff);
858: Write_Debug (x_errbuff);
859: -- ROLLBACK;
860: RAISE;
2038: , p_entity_code => G_ERROR_ENTITY_CODE
2039: );
2040: END IF;
2041: x_retcode := RETCODE_SUCCESS;
2042: fnd_message.set_name('EGO', 'EGO_IPI_NO_LINES');
2043: l_msg_data := fnd_message.get();
2044: Write_Debug (l_msg_data);
2045: -- conc_output (x_errbuff);
2046: RETURN;
2039: );
2040: END IF;
2041: x_retcode := RETCODE_SUCCESS;
2042: fnd_message.set_name('EGO', 'EGO_IPI_NO_LINES');
2043: l_msg_data := fnd_message.get();
2044: Write_Debug (l_msg_data);
2045: -- conc_output (x_errbuff);
2046: RETURN;
2047: END IF;
2052: initialize_access_items (p_login_person_id => l_login_party_id
2053: ,x_retcode => x_retcode);
2054: IF x_retcode = RETCODE_ERROR THEN
2055: Write_Debug('Error Initalizing Ego_Login_Items_Temp');
2056: fnd_message.set_name('EGO', 'EGO_IPI_ERR_INIT_ITEMS');
2057: x_errbuff := fnd_message.get();
2058: -- conc_output (x_errbuff);
2059: purge_login_items_table();
2060: RETURN;
2053: ,x_retcode => x_retcode);
2054: IF x_retcode = RETCODE_ERROR THEN
2055: Write_Debug('Error Initalizing Ego_Login_Items_Temp');
2056: fnd_message.set_name('EGO', 'EGO_IPI_ERR_INIT_ITEMS');
2057: x_errbuff := fnd_message.get();
2058: -- conc_output (x_errbuff);
2059: purge_login_items_table();
2060: RETURN;
2061: END IF;
3077: EXCEPTION
3078: WHEN OTHERS THEN
3079: x_retcode := RETCODE_ERROR;
3080: purge_login_items_table();
3081: fnd_message.set_name ('EGO','EGO_IPI_EXCEPTION');
3082: fnd_message.set_token('PROG_NAME',l_program_name);
3083: x_errbuff := fnd_message.get();
3084: Conc_Output (p_msg => x_errbuff);
3085: Write_Debug (x_errbuff ||': Details => ' || SQLERRM(SQLCODE));
3078: WHEN OTHERS THEN
3079: x_retcode := RETCODE_ERROR;
3080: purge_login_items_table();
3081: fnd_message.set_name ('EGO','EGO_IPI_EXCEPTION');
3082: fnd_message.set_token('PROG_NAME',l_program_name);
3083: x_errbuff := fnd_message.get();
3084: Conc_Output (p_msg => x_errbuff);
3085: Write_Debug (x_errbuff ||': Details => ' || SQLERRM(SQLCODE));
3086:
3079: x_retcode := RETCODE_ERROR;
3080: purge_login_items_table();
3081: fnd_message.set_name ('EGO','EGO_IPI_EXCEPTION');
3082: fnd_message.set_token('PROG_NAME',l_program_name);
3083: x_errbuff := fnd_message.get();
3084: Conc_Output (p_msg => x_errbuff);
3085: Write_Debug (x_errbuff ||': Details => ' || SQLERRM(SQLCODE));
3086:
3087: -- Bug 13637215 Start
3187: ,EGO_ITEM_PUB.G_INTF_DELETE_NONE
3188: ) THEN
3189: -- invalid parameters
3190: x_retcode := RETCODE_ERROR;
3191: fnd_message.set_name('EGO','EGO_IPI_INSUFFICIENT_PARAMS');
3192: x_errbuff := fnd_message.get();
3193: conc_output (x_errbuff);
3194: ELSE
3195: -- call purge lines program with sufficient parameters.
3188: ) THEN
3189: -- invalid parameters
3190: x_retcode := RETCODE_ERROR;
3191: fnd_message.set_name('EGO','EGO_IPI_INSUFFICIENT_PARAMS');
3192: x_errbuff := fnd_message.get();
3193: conc_output (x_errbuff);
3194: ELSE
3195: -- call purge lines program with sufficient parameters.
3196: IF p_closed_date IS NULL THEN
3209:
3210: EXCEPTION
3211: WHEN OTHERS THEN
3212: x_retcode := RETCODE_ERROR;
3213: fnd_message.set_name('EGO','EGO_IPI_EXCEPTION');
3214: fnd_message.set_token('PROG_NAME',l_program_name);
3215: x_errbuff := fnd_message.get();
3216: conc_output (x_errbuff);
3217: Write_Debug (x_errbuff);
3210: EXCEPTION
3211: WHEN OTHERS THEN
3212: x_retcode := RETCODE_ERROR;
3213: fnd_message.set_name('EGO','EGO_IPI_EXCEPTION');
3214: fnd_message.set_token('PROG_NAME',l_program_name);
3215: x_errbuff := fnd_message.get();
3216: conc_output (x_errbuff);
3217: Write_Debug (x_errbuff);
3218: ROLLBACK;
3211: WHEN OTHERS THEN
3212: x_retcode := RETCODE_ERROR;
3213: fnd_message.set_name('EGO','EGO_IPI_EXCEPTION');
3214: fnd_message.set_token('PROG_NAME',l_program_name);
3215: x_errbuff := fnd_message.get();
3216: conc_output (x_errbuff);
3217: Write_Debug (x_errbuff);
3218: ROLLBACK;
3219: RAISE;