194: -- Initialize API return status to success
195: x_return_status := FND_API.G_RET_STS_SUCCESS;
196:
197: -- API body starts here
198: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
199: THEN
200: fnd_log.string
201: (
202: fnd_log.level_procedure,
196:
197: -- API body starts here
198: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
199: THEN
200: fnd_log.string
201: (
202: fnd_log.level_procedure,
203: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
204: 'At the start of PLSQL procedure'
198: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
199: THEN
200: fnd_log.string
201: (
202: fnd_log.level_procedure,
203: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
204: 'At the start of PLSQL procedure'
205: );
206: END IF;
205: );
206: END IF;
207:
208: -- Log all input params
209: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
210: THEN
211: fnd_log.string
212: (
213: fnd_log.level_statement,
207:
208: -- Log all input params
209: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
210: THEN
211: fnd_log.string
212: (
213: fnd_log.level_statement,
214: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
215: '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||']'
209: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
210: THEN
211: fnd_log.string
212: (
213: fnd_log.level_statement,
214: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
215: '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||']'
216: );
217:
214: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
215: '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||']'
216: );
217:
218: fnd_log.string
219: (
220: fnd_log.level_statement,
221: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
222: '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||']'
216: );
217:
218: fnd_log.string
219: (
220: fnd_log.level_statement,
221: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
222: '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||']'
223: );
224: END IF;
234: END IF;
235: CLOSE check_mc_exists;
236:
237: -- SATHAPLI : Time-specific debugs
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
239: THEN
240: fnd_log.string
241: (
242: fnd_log.level_statement,
236:
237: -- SATHAPLI : Time-specific debugs
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
239: THEN
240: fnd_log.string
241: (
242: fnd_log.level_statement,
243: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
244: ' TSDL::About to call Get_nodes_for_parent ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
239: THEN
240: fnd_log.string
241: (
242: fnd_log.level_statement,
243: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
244: ' TSDL::About to call Get_nodes_for_parent ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
245: );
246: END IF;
257: x_Get_nodes_tbl => l_Nodes_for_parent_tbl
258: );
259:
260: -- SATHAPLI : Time-specific debugs
261: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
262: THEN
263: fnd_log.string
264: (
265: fnd_log.level_statement,
259:
260: -- SATHAPLI : Time-specific debugs
261: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
262: THEN
263: fnd_log.string
264: (
265: fnd_log.level_statement,
266: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
267: ' TSDL::Returned from Get_nodes_for_parent ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
261: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
262: THEN
263: fnd_log.string
264: (
265: fnd_log.level_statement,
266: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
267: ' TSDL::Returned from Get_nodes_for_parent ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
268: );
269: fnd_log.string
265: fnd_log.level_statement,
266: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
267: ' TSDL::Returned from Get_nodes_for_parent ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
268: );
269: fnd_log.string
270: (
271: fnd_log.level_statement,
272: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
273: ' TSDL::Loop start ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
267: ' TSDL::Returned from Get_nodes_for_parent ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
268: );
269: fnd_log.string
270: (
271: fnd_log.level_statement,
272: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
273: ' TSDL::Loop start ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
274: );
275: END IF;
434: l_tree_node_rec.POSITION_REF_MEANING := l_topnode_rec.POSITION_REF_MEANING;
435: END IF;
436:
437: -- Log some output params
438: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
439: THEN
440: fnd_log.string
441: (
442: fnd_log.level_statement,
436:
437: -- Log some output params
438: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
439: THEN
440: fnd_log.string
441: (
442: fnd_log.level_statement,
443: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
444: '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||']'
438: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
439: THEN
440: fnd_log.string
441: (
442: fnd_log.level_statement,
443: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
444: '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||']'
445: );
446:
443: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
444: '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||']'
445: );
446:
447: fnd_log.string
448: (
449: fnd_log.level_statement,
450: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
451: 'OUT -- [subconfig_top = '||l_tree_node_rec.IS_SUBCONFIG_TOPNODE||'] [parent_subconfig = '||l_tree_node_rec.IS_PARENT_SUBCONFIG||']'
445: );
446:
447: fnd_log.string
448: (
449: fnd_log.level_statement,
450: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
451: 'OUT -- [subconfig_top = '||l_tree_node_rec.IS_SUBCONFIG_TOPNODE||'] [parent_subconfig = '||l_tree_node_rec.IS_PARENT_SUBCONFIG||']'
452: );
453:
450: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
451: 'OUT -- [subconfig_top = '||l_tree_node_rec.IS_SUBCONFIG_TOPNODE||'] [parent_subconfig = '||l_tree_node_rec.IS_PARENT_SUBCONFIG||']'
452: );
453:
454: fnd_log.string
455: (
456: fnd_log.level_statement,
457: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
458: 'OUT -- [position_path = '||l_tree_node_rec.POSITION_PATH||'] [position_path_id = '||l_tree_node_rec.POSITION_PATH_ID||']'
452: );
453:
454: fnd_log.string
455: (
456: fnd_log.level_statement,
457: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
458: 'OUT -- [position_path = '||l_tree_node_rec.POSITION_PATH||'] [position_path_id = '||l_tree_node_rec.POSITION_PATH_ID||']'
459: );
460: END IF;
467: -- CLOSE Nodes_list_for_parent;
468: -- API body ends here
469:
470: -- SATHAPLI : Time-specific debugs
471: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
472: THEN
473: fnd_log.string
474: (
475: fnd_log.level_statement,
469:
470: -- SATHAPLI : Time-specific debugs
471: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
472: THEN
473: fnd_log.string
474: (
475: fnd_log.level_statement,
476: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
477: ' TSDL::Loop end ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
471: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
472: THEN
473: fnd_log.string
474: (
475: fnd_log.level_statement,
476: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
477: ' TSDL::Loop end ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
478: );
479: END IF;
477: ' TSDL::Loop end ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY hh24:mi:ss')
478: );
479: END IF;
480:
481: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
482: THEN
483: fnd_log.string
484: (
485: fnd_log.level_procedure,
479: END IF;
480:
481: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
482: THEN
483: fnd_log.string
484: (
485: fnd_log.level_procedure,
486: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
487: 'At the end of PLSQL procedure'
481: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
482: THEN
483: fnd_log.string
484: (
485: fnd_log.level_procedure,
486: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
487: 'At the end of PLSQL procedure'
488: );
489: END IF;
571: l_tbl_idx NUMBER := 0;
572:
573: BEGIN
574:
575: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
576: THEN
577: fnd_log.string
578: (
579: fnd_log.level_procedure,
573: BEGIN
574:
575: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
576: THEN
577: fnd_log.string
578: (
579: fnd_log.level_procedure,
580: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path.begin',
581: 'At the start of PLSQL procedure'
575: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
576: THEN
577: fnd_log.string
578: (
579: fnd_log.level_procedure,
580: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path.begin',
581: 'At the start of PLSQL procedure'
582: );
583: END IF;
614:
615: -- Retrieve the POSITION_KEY from the node token
616: 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));
617:
618: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
619: THEN
620: fnd_log.string
621: (
622: fnd_log.level_statement,
616: 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));
617:
618: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
619: THEN
620: fnd_log.string
621: (
622: fnd_log.level_statement,
623: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
624: '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||']'
618: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
619: THEN
620: fnd_log.string
621: (
622: fnd_log.level_statement,
623: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path',
624: '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||']'
625: );
626: END IF;
627:
628: EXIT WHEN l_node_end >= LENGTH(p_encoded_path);
629: END LOOP;
630:
631: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
632: THEN
633: fnd_log.string
634: (
635: fnd_log.level_procedure,
629: END LOOP;
630:
631: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
632: THEN
633: fnd_log.string
634: (
635: fnd_log.level_procedure,
636: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path.end',
637: 'At the end of PLSQL procedure'
631: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
632: THEN
633: fnd_log.string
634: (
635: fnd_log.level_procedure,
636: 'ahl.plsql.'||G_PKG_NAME||'.Decode_Pos_Path.end',
637: 'At the end of PLSQL procedure'
638: );
639: END IF;