92: FROM GL_ACCESS_SET_LEDGERS gas
93: where gas.access_set_id = p_access_set_id;
94:
95: lv_procedure_name VARCHAR2(40) := 'Get_BSV_LIST';
96: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
97: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
98: l_bsv CUR_BSV%rowtype;
99: l_non_bsv CUR_NON_BSV%rowtype;
100: l_flex_valueset_id pls_integer;
93: where gas.access_set_id = p_access_set_id;
94:
95: lv_procedure_name VARCHAR2(40) := 'Get_BSV_LIST';
96: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
97: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
98: l_bsv CUR_BSV%rowtype;
99: l_non_bsv CUR_NON_BSV%rowtype;
100: l_flex_valueset_id pls_integer;
101: l_security_status varchar2(30);
104: x_where varchar2(4000);
105: l_bsv_count pls_integer;
106: BEGIN
107: IF (ln_proc_level >= ln_dbg_level) THEN
108: FND_LOG.STRING(ln_proc_level,
109: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
110: '.begin',
111: 'Enter procedure');
112:
184: x_where := 'FLEX_SEGMENT_VALUE in ('|| substr(x_bsv_list,2,length(x_bsv_list)) ||')';
185: x_where := x_where ||' and ledger_id in (select ledger_id from gl_access_set_ledgers where access_set_id='||p_access_set_id||')';
186: --logging for debug
187: IF (ln_proc_level >= ln_dbg_level) THEN
188: FND_LOG.STRING(ln_proc_level,
189: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
190: 'Exit procedure');
191: END IF; -- (ln_proc_level>=ln_dbg_level)
192: p_bsv_list := x_where;
710: x_Charset_Request_Id OUT NOCOPY NUMBER,
711: x_Result_Flag OUT NOCOPY VARCHAR2) IS
712:
713: l_Procedure_Name VARCHAR2(30) := 'Submit_XML_Charset_Conversion ';
714: l_Runtime_Level NUMBER := Fnd_Log.g_Current_Runtime_Level;
715: l_Procedure_Level NUMBER := Fnd_Log.Level_Procedure;
716: --l_statement_level NUMBER := fnd_log.level_statement;
717: --l_exception_level NUMBER := fnd_log.level_exception;
718: l_Complete_Flag BOOLEAN;
711: x_Result_Flag OUT NOCOPY VARCHAR2) IS
712:
713: l_Procedure_Name VARCHAR2(30) := 'Submit_XML_Charset_Conversion ';
714: l_Runtime_Level NUMBER := Fnd_Log.g_Current_Runtime_Level;
715: l_Procedure_Level NUMBER := Fnd_Log.Level_Procedure;
716: --l_statement_level NUMBER := fnd_log.level_statement;
717: --l_exception_level NUMBER := fnd_log.level_exception;
718: l_Complete_Flag BOOLEAN;
719: l_Phase VARCHAR2(100);
712:
713: l_Procedure_Name VARCHAR2(30) := 'Submit_XML_Charset_Conversion ';
714: l_Runtime_Level NUMBER := Fnd_Log.g_Current_Runtime_Level;
715: l_Procedure_Level NUMBER := Fnd_Log.Level_Procedure;
716: --l_statement_level NUMBER := fnd_log.level_statement;
717: --l_exception_level NUMBER := fnd_log.level_exception;
718: l_Complete_Flag BOOLEAN;
719: l_Phase VARCHAR2(100);
720: l_Status VARCHAR2(100);
713: l_Procedure_Name VARCHAR2(30) := 'Submit_XML_Charset_Conversion ';
714: l_Runtime_Level NUMBER := Fnd_Log.g_Current_Runtime_Level;
715: l_Procedure_Level NUMBER := Fnd_Log.Level_Procedure;
716: --l_statement_level NUMBER := fnd_log.level_statement;
717: --l_exception_level NUMBER := fnd_log.level_exception;
718: l_Complete_Flag BOOLEAN;
719: l_Phase VARCHAR2(100);
720: l_Status VARCHAR2(100);
721: l_Del_Phase VARCHAR2(100);
725: BEGIN
726: --log for debug
727: IF (l_Procedure_Level >= l_Runtime_Level)
728: THEN
729: Fnd_Log.STRING(l_Procedure_Level,
730: GV_MODULE_PREFIX || '.' || l_Procedure_Name || '.begin',
731: 'begin procedure');
732: END IF; --l_procedure_level >= l_runtime_level
733: -- submit charset conversion concurrent program
767:
768: --log for debug
769: IF (l_Procedure_Level >= l_Runtime_Level)
770: THEN
771: Fnd_Log.STRING(l_Procedure_Level,
772: GV_MODULE_PREFIX || '.' || l_Procedure_Name || '.end',
773: 'end procedure');
774: END IF; --l_procedure_level >= l_runtime_level
775: EXCEPTION
774: END IF; --l_procedure_level >= l_runtime_level
775: EXCEPTION
776: WHEN OTHERS THEN
777: --log for debug
778: IF (Fnd_Log.Level_Unexpected >= Fnd_Log.g_Current_Runtime_Level)
779: THEN
780: Fnd_Log.STRING(Fnd_Log.Level_Unexpected,
781: GV_MODULE_PREFIX || l_Procedure_Name ||
782: '. OTHER_EXCEPTION ',
776: WHEN OTHERS THEN
777: --log for debug
778: IF (Fnd_Log.Level_Unexpected >= Fnd_Log.g_Current_Runtime_Level)
779: THEN
780: Fnd_Log.STRING(Fnd_Log.Level_Unexpected,
781: GV_MODULE_PREFIX || l_Procedure_Name ||
782: '. OTHER_EXCEPTION ',
783: SQLCODE || SQLERRM);
784: END IF; -- fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
780: Fnd_Log.STRING(Fnd_Log.Level_Unexpected,
781: GV_MODULE_PREFIX || l_Procedure_Name ||
782: '. OTHER_EXCEPTION ',
783: SQLCODE || SQLERRM);
784: END IF; -- fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
785: RAISE;
786: END Submit_XML_Charset_Conversion;
787:
788: