1: PACKAGE BODY CZ_IB_LOCKING AS
2: /* $Header: cziblckb.pls 120.3 2006/08/01 15:46:41 skudryav ship $*/
3:
4: ------------------------------------------------------------------------------------------
5:
2: /* $Header: cziblckb.pls 120.3 2006/08/01 15:46:41 skudryav ship $*/
3:
4: ------------------------------------------------------------------------------------------
5:
6: G_PKG_NAME VARCHAR2(50) := 'CZ_IB_LOCKING';
7:
8: FUNCTION is_Valid_Data
9: (
10: p_config_session_hdr_id IN NUMBER,
188: ' l_config_tbl(l_rec_counter).config_inst_hdr_id := i.instance_hdr_id; ' ||
189: ' l_config_tbl(l_rec_counter).config_inst_item_id := i.config_item_id; ' ||
190: ' l_config_tbl(l_rec_counter).config_inst_rev_num := i.instance_rev_nbr; ' ||
191: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
192: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''lock_Config'', l_ndebug, ' ||
193: ' ''CSI_CZ_INT.lock_item_instances() will be called for instance_hdr_id=''||TO_CHAR(i.instance_hdr_id) || ' ||
194: ' '' instance_rev_nbr=''||TO_CHAR(i.instance_rev_nbr)||'' config_item_id=''||TO_CHAR(i.config_item_id), ' ||
195: ' fnd_log.LEVEL_PROCEDURE); ' ||
196: ' END IF; ' ||
200: ' ,p_commit => :9 ' ||
201: ' ,p_init_msg_list => :10 ' ||
202: ' ,p_validation_level => :11 ' ||
203: ' ,px_config_tbl => l_config_tbl ' ||
204: ' ,x_return_status => CZ_IB_LOCKING.m_return_status ' ||
205: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
206: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
207: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
208: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''lock_Config'', l_ndebug, ' ||
201: ' ,p_init_msg_list => :10 ' ||
202: ' ,p_validation_level => :11 ' ||
203: ' ,px_config_tbl => l_config_tbl ' ||
204: ' ,x_return_status => CZ_IB_LOCKING.m_return_status ' ||
205: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
206: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
207: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
208: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''lock_Config'', l_ndebug, ' ||
209: ' ''CSI_CZ_INT.lock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
202: ' ,p_validation_level => :11 ' ||
203: ' ,px_config_tbl => l_config_tbl ' ||
204: ' ,x_return_status => CZ_IB_LOCKING.m_return_status ' ||
205: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
206: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
207: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
208: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''lock_Config'', l_ndebug, ' ||
209: ' ''CSI_CZ_INT.lock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
210: ' ''x_msg_count=''||to_char(CZ_IB_LOCKING.m_msg_count)||''x_msg_data=''||CZ_IB_LOCKING.m_msg_data, ' ||
204: ' ,x_return_status => CZ_IB_LOCKING.m_return_status ' ||
205: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
206: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
207: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
208: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''lock_Config'', l_ndebug, ' ||
209: ' ''CSI_CZ_INT.lock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
210: ' ''x_msg_count=''||to_char(CZ_IB_LOCKING.m_msg_count)||''x_msg_data=''||CZ_IB_LOCKING.m_msg_data, ' ||
211: ' fnd_log.LEVEL_PROCEDURE); ' ||
212: ' END IF; ' ||
205: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
206: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
207: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
208: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''lock_Config'', l_ndebug, ' ||
209: ' ''CSI_CZ_INT.lock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
210: ' ''x_msg_count=''||to_char(CZ_IB_LOCKING.m_msg_count)||''x_msg_data=''||CZ_IB_LOCKING.m_msg_data, ' ||
211: ' fnd_log.LEVEL_PROCEDURE); ' ||
212: ' END IF; ' ||
213: ' END IF; '||
206: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
207: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
208: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''lock_Config'', l_ndebug, ' ||
209: ' ''CSI_CZ_INT.lock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
210: ' ''x_msg_count=''||to_char(CZ_IB_LOCKING.m_msg_count)||''x_msg_data=''||CZ_IB_LOCKING.m_msg_data, ' ||
211: ' fnd_log.LEVEL_PROCEDURE); ' ||
212: ' END IF; ' ||
213: ' END IF; '||
214: ' END;' USING
215: p_config_session_hdr_id,p_config_session_rev_nbr,p_config_session_item_id,
216: p_source_application_id,p_source_header_ref,p_source_line_ref1,p_source_line_ref2,
217: p_source_line_ref3,p_commit,p_init_msg_list,p_validation_level;
218:
219: IF CZ_IB_LOCKING.m_return_status IS NOT NULL THEN
220: x_return_status := CZ_IB_LOCKING.m_return_status;
221: x_msg_count := CZ_IB_LOCKING.m_msg_count;
222: x_msg_data := CZ_IB_LOCKING.m_msg_data;
223: END IF;
216: p_source_application_id,p_source_header_ref,p_source_line_ref1,p_source_line_ref2,
217: p_source_line_ref3,p_commit,p_init_msg_list,p_validation_level;
218:
219: IF CZ_IB_LOCKING.m_return_status IS NOT NULL THEN
220: x_return_status := CZ_IB_LOCKING.m_return_status;
221: x_msg_count := CZ_IB_LOCKING.m_msg_count;
222: x_msg_data := CZ_IB_LOCKING.m_msg_data;
223: END IF;
224:
217: p_source_line_ref3,p_commit,p_init_msg_list,p_validation_level;
218:
219: IF CZ_IB_LOCKING.m_return_status IS NOT NULL THEN
220: x_return_status := CZ_IB_LOCKING.m_return_status;
221: x_msg_count := CZ_IB_LOCKING.m_msg_count;
222: x_msg_data := CZ_IB_LOCKING.m_msg_data;
223: END IF;
224:
225: EXCEPTION
218:
219: IF CZ_IB_LOCKING.m_return_status IS NOT NULL THEN
220: x_return_status := CZ_IB_LOCKING.m_return_status;
221: x_msg_count := CZ_IB_LOCKING.m_msg_count;
222: x_msg_data := CZ_IB_LOCKING.m_msg_data;
223: END IF;
224:
225: EXCEPTION
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
395: ' l_config_tbl(l_rec_counter).config_inst_hdr_id := i.instance_hdr_id; ' ||
396: ' l_config_tbl(l_rec_counter).config_inst_item_id := i.config_item_id; ' ||
397: ' l_config_tbl(l_rec_counter).config_inst_rev_num := i.instance_rev_nbr; ' ||
398: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
399: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''unlock_Config'', l_ndebug, ' ||
400: ' ''CSI_CZ_INT.unlock_item_instances() will be called for instance_hdr_id=''||TO_CHAR(i.instance_hdr_id)|| ' ||
401: ' '' instance_rev_nbr=''||TO_CHAR(i.instance_rev_nbr)||'' config_item_id=''||TO_CHAR(i.config_item_id), ' ||
402: ' fnd_log.LEVEL_PROCEDURE); ' ||
403: ' END IF; ' ||
407: ' ,p_commit => :10 ' ||
408: ' ,p_init_msg_list => :11 ' ||
409: ' ,p_validation_level => :12 ' ||
410: ' ,p_config_tbl => l_config_tbl ' ||
411: ' ,x_return_status => CZ_IB_LOCKING.m_return_status ' ||
412: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
413: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
414: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
415: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''unlock_Config'', l_ndebug, ' ||
408: ' ,p_init_msg_list => :11 ' ||
409: ' ,p_validation_level => :12 ' ||
410: ' ,p_config_tbl => l_config_tbl ' ||
411: ' ,x_return_status => CZ_IB_LOCKING.m_return_status ' ||
412: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
413: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
414: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
415: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''unlock_Config'', l_ndebug, ' ||
416: ' ''CSI_CZ_INT.unlock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
409: ' ,p_validation_level => :12 ' ||
410: ' ,p_config_tbl => l_config_tbl ' ||
411: ' ,x_return_status => CZ_IB_LOCKING.m_return_status ' ||
412: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
413: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
414: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
415: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''unlock_Config'', l_ndebug, ' ||
416: ' ''CSI_CZ_INT.unlock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
417: ' ''x_msg_count=''||to_char(CZ_IB_LOCKING.m_msg_count)||''x_msg_data=''||CZ_IB_LOCKING.m_msg_data, ' ||
411: ' ,x_return_status => CZ_IB_LOCKING.m_return_status ' ||
412: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
413: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
414: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
415: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''unlock_Config'', l_ndebug, ' ||
416: ' ''CSI_CZ_INT.unlock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
417: ' ''x_msg_count=''||to_char(CZ_IB_LOCKING.m_msg_count)||''x_msg_data=''||CZ_IB_LOCKING.m_msg_data, ' ||
418: ' fnd_log.LEVEL_PROCEDURE); ' ||
419: ' END IF; ' ||
412: ' ,x_msg_count => CZ_IB_LOCKING.m_msg_count ' ||
413: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
414: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
415: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''unlock_Config'', l_ndebug, ' ||
416: ' ''CSI_CZ_INT.unlock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
417: ' ''x_msg_count=''||to_char(CZ_IB_LOCKING.m_msg_count)||''x_msg_data=''||CZ_IB_LOCKING.m_msg_data, ' ||
418: ' fnd_log.LEVEL_PROCEDURE); ' ||
419: ' END IF; ' ||
420: ' END IF; '||
413: ' ,x_msg_data => CZ_IB_LOCKING.m_msg_data); ' ||
414: ' IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN ' ||
415: ' cz_utils.log_report(''CZ_IB_LOCKING'', ''unlock_Config'', l_ndebug, ' ||
416: ' ''CSI_CZ_INT.unlock_item_instances() has been called : x_return_status=''||CZ_IB_LOCKING.m_return_status|| ' ||
417: ' ''x_msg_count=''||to_char(CZ_IB_LOCKING.m_msg_count)||''x_msg_data=''||CZ_IB_LOCKING.m_msg_data, ' ||
418: ' fnd_log.LEVEL_PROCEDURE); ' ||
419: ' END IF; ' ||
420: ' END IF; '||
421: ' END;' USING
422: p_config_session_hdr_id,p_config_session_rev_nbr,p_config_session_item_id,
423: p_source_application_id,p_source_header_ref,p_source_line_ref1,p_source_line_ref2,
424: p_source_line_ref3,p_locking_key,p_commit,p_init_msg_list,p_validation_level;
425:
426: IF CZ_IB_LOCKING.m_return_status IS NOT NULL THEN
427: x_return_status := CZ_IB_LOCKING.m_return_status;
428: x_msg_count := CZ_IB_LOCKING.m_msg_count;
429: x_msg_data := CZ_IB_LOCKING.m_msg_data;
430: END IF;
423: p_source_application_id,p_source_header_ref,p_source_line_ref1,p_source_line_ref2,
424: p_source_line_ref3,p_locking_key,p_commit,p_init_msg_list,p_validation_level;
425:
426: IF CZ_IB_LOCKING.m_return_status IS NOT NULL THEN
427: x_return_status := CZ_IB_LOCKING.m_return_status;
428: x_msg_count := CZ_IB_LOCKING.m_msg_count;
429: x_msg_data := CZ_IB_LOCKING.m_msg_data;
430: END IF;
431:
424: p_source_line_ref3,p_locking_key,p_commit,p_init_msg_list,p_validation_level;
425:
426: IF CZ_IB_LOCKING.m_return_status IS NOT NULL THEN
427: x_return_status := CZ_IB_LOCKING.m_return_status;
428: x_msg_count := CZ_IB_LOCKING.m_msg_count;
429: x_msg_data := CZ_IB_LOCKING.m_msg_data;
430: END IF;
431:
432: EXCEPTION
425:
426: IF CZ_IB_LOCKING.m_return_status IS NOT NULL THEN
427: x_return_status := CZ_IB_LOCKING.m_return_status;
428: x_msg_count := CZ_IB_LOCKING.m_msg_count;
429: x_msg_data := CZ_IB_LOCKING.m_msg_data;
430: END IF;
431:
432: EXCEPTION
433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN