[Home] [Help]
653: TYPE t_varchar_tbl IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
654: l_root_path_tbl t_varchar_tbl; -- will be used as an associatve array, it stores the parents path from root
655: l_min_child_id_tbl t_number_tbl; -- will be used as an associatve array, it stores the child number of parent
656:
657: l_disposition_rec AHL_PRD_DISPOSITION_PVT.DISPOSITION_REC_TYPE;
658: l_imm_disp_type_tbl AHL_PRD_DISP_UTIL_PVT.Disp_Type_Tbl_Type;
659: l_sec_disp_type_tbl AHL_PRD_DISP_UTIL_PVT.Disp_Type_Tbl_Type;
660: l_path_position_id NUMBER;
661: l_curr_row NUMBER;
2627: )IS
2628: L_ERROR_CODE VARCHAR2(30);
2629: L_PARTS_REC_TBL AHL_PRD_PARTS_CHANGE_PVT.AHL_PARTS_TBL_TYPE;
2630: L_MR_ASSO_TBL AHL_PRD_NONROUTINE_PVT.MR_ASSOCIATION_TBL_TYPE;
2631: L_DISPOSITION_REC AHL_PRD_DISPOSITION_PVT.DISPOSITION_REC_TYPE;
2632: MR_TABLE_INDEX INTEGER;
2633: L_API_NAME CONSTANT VARCHAR2(30) := 'INVOKE_PART_CHANGE';
2634: l_debug_key CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name;
2635:
2767: END IF;
2768: END IF;
2769: IF (l_log_statement >= l_log_current_level) THEN
2770: fnd_log.string(l_log_statement, l_debug_key,
2771: ' invoking AHL_PRD_DISPOSITION_PVT.PROCESS_DISPOSITION ');
2772: END IF;
2773: AHL_PRD_DISPOSITION_PVT.PROCESS_DISPOSITION(
2774: P_API_VERSION => 1.0,
2775: P_INIT_MSG_LIST => FND_API.G_TRUE,
2769: IF (l_log_statement >= l_log_current_level) THEN
2770: fnd_log.string(l_log_statement, l_debug_key,
2771: ' invoking AHL_PRD_DISPOSITION_PVT.PROCESS_DISPOSITION ');
2772: END IF;
2773: AHL_PRD_DISPOSITION_PVT.PROCESS_DISPOSITION(
2774: P_API_VERSION => 1.0,
2775: P_INIT_MSG_LIST => FND_API.G_TRUE,
2776: P_COMMIT => FND_API.G_FALSE,
2777: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,