188: -- Initialize API return status to success
189: x_return_status := FND_API.G_RET_STS_SUCCESS;
190:
191: -- API body starts here
192: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
193: THEN
194: fnd_log.string
195: (
196: fnd_log.level_procedure,
190:
191: -- API body starts here
192: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
193: THEN
194: fnd_log.string
195: (
196: fnd_log.level_procedure,
197: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
198: 'At the start of PLSQL procedure'
192: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
193: THEN
194: fnd_log.string
195: (
196: fnd_log.level_procedure,
197: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
198: 'At the start of PLSQL procedure'
199: );
200: END IF;
199: );
200: END IF;
201:
202: -- Log all input params
203: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
204: THEN
205: fnd_log.string
206: (
207: fnd_log.level_statement,
201:
202: -- Log all input params
203: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
204: THEN
205: fnd_log.string
206: (
207: fnd_log.level_statement,
208: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
209: 'IN -- [p_mc_header_id = '||p_mc_header_id||'] [p_parent_rel_id = '||p_parent_rel_id||'] [p_is_parent_subconfig = '||p_is_parent_subconfig||']'
203: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
204: THEN
205: fnd_log.string
206: (
207: fnd_log.level_statement,
208: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
209: 'IN -- [p_mc_header_id = '||p_mc_header_id||'] [p_parent_rel_id = '||p_parent_rel_id||'] [p_is_parent_subconfig = '||p_is_parent_subconfig||']'
210: );
211:
208: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
209: 'IN -- [p_mc_header_id = '||p_mc_header_id||'] [p_parent_rel_id = '||p_parent_rel_id||'] [p_is_parent_subconfig = '||p_is_parent_subconfig||']'
210: );
211:
212: fnd_log.string
213: (
214: fnd_log.level_statement,
215: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
216: 'IN -- [p_parent_pos_path = '||p_parent_pos_path||'] [p_is_top_config_node = '||p_is_top_config_node||'] [p_is_sub_config_node = '||p_is_sub_config_node||']'
210: );
211:
212: fnd_log.string
213: (
214: fnd_log.level_statement,
215: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
216: 'IN -- [p_parent_pos_path = '||p_parent_pos_path||'] [p_is_top_config_node = '||p_is_top_config_node||'] [p_is_sub_config_node = '||p_is_sub_config_node||']'
217: );
218: END IF;
394: l_tree_node_rec.POSITION_REF_MEANING := l_topnode_rec.POSITION_REF_MEANING;
395: END IF;
396:
397: -- Log some output params
398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
399: THEN
400: fnd_log.string
401: (
402: fnd_log.level_statement,
396:
397: -- Log some output params
398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
399: THEN
400: fnd_log.string
401: (
402: fnd_log.level_statement,
403: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
404: 'OUT -- [num_chilren = '||l_tree_node_rec.NUM_CHILD_NODES||'] [has_subconfigs = '||l_tree_node_rec.HAS_SUBCONFIGS||'] [is_subconfig = '||l_tree_node_rec.IS_SUBCONFIG_NODE||']'
398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
399: THEN
400: fnd_log.string
401: (
402: fnd_log.level_statement,
403: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
404: 'OUT -- [num_chilren = '||l_tree_node_rec.NUM_CHILD_NODES||'] [has_subconfigs = '||l_tree_node_rec.HAS_SUBCONFIGS||'] [is_subconfig = '||l_tree_node_rec.IS_SUBCONFIG_NODE||']'
405: );
406:
403: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
404: 'OUT -- [num_chilren = '||l_tree_node_rec.NUM_CHILD_NODES||'] [has_subconfigs = '||l_tree_node_rec.HAS_SUBCONFIGS||'] [is_subconfig = '||l_tree_node_rec.IS_SUBCONFIG_NODE||']'
405: );
406:
407: fnd_log.string
408: (
409: fnd_log.level_statement,
410: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
411: 'OUT -- [subconfig_top = '||l_tree_node_rec.IS_SUBCONFIG_TOPNODE||'] [parent_subconfig = '||l_tree_node_rec.IS_PARENT_SUBCONFIG||']'
405: );
406:
407: fnd_log.string
408: (
409: fnd_log.level_statement,
410: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
411: 'OUT -- [subconfig_top = '||l_tree_node_rec.IS_SUBCONFIG_TOPNODE||'] [parent_subconfig = '||l_tree_node_rec.IS_PARENT_SUBCONFIG||']'
412: );
413:
410: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
411: 'OUT -- [subconfig_top = '||l_tree_node_rec.IS_SUBCONFIG_TOPNODE||'] [parent_subconfig = '||l_tree_node_rec.IS_PARENT_SUBCONFIG||']'
412: );
413:
414: fnd_log.string
415: (
416: fnd_log.level_statement,
417: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
418: 'OUT -- [position_path = '||l_tree_node_rec.POSITION_PATH||'] [position_path_id = '||l_tree_node_rec.POSITION_PATH_ID||']'
412: );
413:
414: fnd_log.string
415: (
416: fnd_log.level_statement,
417: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
418: 'OUT -- [position_path = '||l_tree_node_rec.POSITION_PATH||'] [position_path_id = '||l_tree_node_rec.POSITION_PATH_ID||']'
419: );
420: END IF;
426: END LOOP;
427: CLOSE Nodes_list_for_parent;
428: -- API body ends here
429:
430: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
431: THEN
432: fnd_log.string
433: (
434: fnd_log.level_procedure,
428: -- API body ends here
429:
430: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
431: THEN
432: fnd_log.string
433: (
434: fnd_log.level_procedure,
435: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
436: 'At the end of PLSQL procedure'
430: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
431: THEN
432: fnd_log.string
433: (
434: fnd_log.level_procedure,
435: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
436: 'At the end of PLSQL procedure'
437: );
438: END IF;
520: l_tbl_idx NUMBER := 0;
521:
522: BEGIN
523:
524: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
525: THEN
526: fnd_log.string
527: (
528: fnd_log.level_procedure,
522: BEGIN
523:
524: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
525: THEN
526: fnd_log.string
527: (
528: fnd_log.level_procedure,
529: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path.begin',
530: 'At the start of PLSQL procedure'
524: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
525: THEN
526: fnd_log.string
527: (
528: fnd_log.level_procedure,
529: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path.begin',
530: 'At the start of PLSQL procedure'
531: );
532: END IF;
563:
564: -- Retrieve the POSITION_KEY from the node token
565: l_position_tbl(l_tbl_idx).POSITION_KEY := TO_NUMBER(SUBSTR(l_node_str, l_id_start + 1, l_node_end - l_id_start - 1));
566:
567: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
568: THEN
569: fnd_log.string
570: (
571: fnd_log.level_statement,
565: l_position_tbl(l_tbl_idx).POSITION_KEY := TO_NUMBER(SUBSTR(l_node_str, l_id_start + 1, l_node_end - l_id_start - 1));
566:
567: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
568: THEN
569: fnd_log.string
570: (
571: fnd_log.level_statement,
572: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
573: 'l_position_tbl -- ['||l_tbl_idx||'] ['||l_position_tbl(l_tbl_idx).MC_ID||'] ['||l_position_tbl(l_tbl_idx).VERSION_NUMBER||'] ['||l_position_tbl(l_tbl_idx).POSITION_KEY||']'
567: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
568: THEN
569: fnd_log.string
570: (
571: fnd_log.level_statement,
572: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
573: 'l_position_tbl -- ['||l_tbl_idx||'] ['||l_position_tbl(l_tbl_idx).MC_ID||'] ['||l_position_tbl(l_tbl_idx).VERSION_NUMBER||'] ['||l_position_tbl(l_tbl_idx).POSITION_KEY||']'
574: );
575: END IF;
576:
577: EXIT WHEN l_node_end >= LENGTH(p_encoded_path);
578: END LOOP;
579:
580: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
581: THEN
582: fnd_log.string
583: (
584: fnd_log.level_procedure,
578: END LOOP;
579:
580: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
581: THEN
582: fnd_log.string
583: (
584: fnd_log.level_procedure,
585: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path.end',
586: 'At the end of PLSQL procedure'
580: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
581: THEN
582: fnd_log.string
583: (
584: fnd_log.level_procedure,
585: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path.end',
586: 'At the end of PLSQL procedure'
587: );
588: END IF;