[Home] [Help]
1: package body CTO_UPDATE_CONFIGS_PK as
2: /* $Header: CTOUCFGB.pls 120.6.12010000.4 2008/09/10 17:54:22 appldev ship $*/
3: /*----------------------------------------------------------------------------+
4: | Copyright (c) 1993 Oracle Corporation Belmont, California, USA
5: | All rights reserved.
70: | nvl(to_char(msi.option_specific_sourced),'N')
71: |
72: +-----------------------------------------------------------------------------*/
73:
74: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CTO_UPDATE_CONFIGS_PK';
75: PG_DEBUG Number := NVL(FND_PROFILE.value('ONT_DEBUG_LEVEL'), 0);
76:
77: --forward declaration
78: PROCEDURE Check_invalid_configurations(
679:
680: EXCEPTION
681:
682: WHEN FND_API.G_EXC_ERROR THEN
683: WriteToLog('ERROR: Exp error in CTO_Update_Configs_Pk.Update_Configs:: '|| l_stmt_num ||'::'||sqlerrm);
684: WriteToLog('+++++++++++++++++++++++++++++++++++++++++++++++++++');
685: WriteToLog('Update Existing Configurations completed with ERROR.', 1);
686: WriteToLog('Please contact the system administrator.', 1);
687: WriteToLog('+++++++++++++++++++++++++++++++++++++++++++++++++++');
688: errbuf := 'Program completed with error';
689: retcode := 2; --exits with error
690:
691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
692: WriteToLog('ERROR: Unexp error in CTO_Update_Configs_Pk.Update_Configs:: '|| l_stmt_num ||'::'||sqlerrm, 1);
693: WriteToLog('+++++++++++++++++++++++++++++++++++++++++++++++++++');
694: WriteToLog('Update Existing Configurations completed with ERROR');
695: WriteToLog('+++++++++++++++++++++++++++++++++++++++++++++++++++');
696: errbuf := 'Program completed with error';
696: errbuf := 'Program completed with error';
697: retcode := 2; --exits with error
698:
699: WHEN OTHERS THEN
700: WriteToLog('ERROR: Others error in CTO_Update_Configs_Pk.Update_Configs:: '|| l_stmt_num ||'::'||sqlerrm, 1);
701: WriteToLog('+++++++++++++++++++++++++++++++++++++++++++++++++++');
702: WriteToLog('Update Existing Configurations completed with ERROR.', 1);
703: WriteToLog('Please contact the system administrator.', 1);
704: WriteToLog('+++++++++++++++++++++++++++++++++++++++++++++++++++');
2882: sysdate, -- creation_date
2883: nvl(Fnd_Global.USER_ID, -1), -- created_by
2884: sysdate, -- last_update_date
2885: nvl(Fnd_Global.USER_ID, -1), -- last_updated_by
2886: cto_update_configs_pk.bac_program_id, -- program_id
2887: 'Y', -- perform_match /* Sushant made changes to identify matched items */
2888: 'N', -- reuse_config
2889: bac.organization_id
2890: from bom_ato_configurations bac,
3193: sysdate, -- creation_date
3194: nvl(Fnd_Global.USER_ID, -1), -- created_by
3195: sysdate, -- last_update_date
3196: nvl(Fnd_Global.USER_ID, -1), -- last_updated_by
3197: cto_update_configs_pk.bac_program_id -- program_id
3198: from bom_ato_configurations bac,
3199: mtl_system_items msi
3200: where bac.config_item_id = l_curr_config_id
3201: and bac.component_item_id <> bac.base_model_id --not pick up top model
3886:
3887: EXCEPTION
3888:
3889: WHEN OTHERS THEN
3890: WriteToLog('ERROR: Unexp error in CTO_Update_Configs_Pk.Check_invalid_configurations:: '|| l_stmt_num ||'::'||sqlerrm, 1);
3891: WriteToLog('+++++++++++++++++++++++++++++++++++++++++++++++++++');
3892: WriteToLog('Update Existing Configurations completed with ERROR');
3893: WriteToLog('+++++++++++++++++++++++++++++++++++++++++++++++++++');
3894: WriteToLog(' error in Check_invalid_configurations::'||sqlerrm, 1);
3966: --end bugfix 3377963
3967:
3968:
3969:
3970: END CTO_UPDATE_CONFIGS_PK;