4026: agg_val VARCHAR2(4000);
4027:
4028: BEGIN
4029:
4030: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4031: FND_LOG.string
4032: (
4033: FND_LOG.level_procedure,
4034: g_pkg_name || '.' || l_api_name,
4027:
4028: BEGIN
4029:
4030: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4031: FND_LOG.string
4032: (
4033: FND_LOG.level_procedure,
4034: g_pkg_name || '.' || l_api_name,
4035: 'ENTERING PROCEDURE: P_PLAN_ID: ' || p_plan_id || ' P_COLLECTION_ID: ' || p_collection_id || ' P_OCCURRENCE: ' || p_occurrence || ' P_ENABLED: ' || p_enabled
4029:
4030: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4031: FND_LOG.string
4032: (
4033: FND_LOG.level_procedure,
4034: g_pkg_name || '.' || l_api_name,
4035: 'ENTERING PROCEDURE: P_PLAN_ID: ' || p_plan_id || ' P_COLLECTION_ID: ' || p_collection_id || ' P_OCCURRENCE: ' || p_occurrence || ' P_ENABLED: ' || p_enabled
4036: );
4037: END IF;
4040: WHERE occurrence = p_occurrence
4041: AND plan_id = p_plan_id
4042: AND collection_id = p_collection_id;
4043:
4044: IF ( FND_LOG.level_statement >= FND_LOG.g_current_runtime_level ) THEN
4045: FND_LOG.string
4046: (
4047: FND_LOG.level_statement,
4048: g_pkg_name || '.' || l_api_name,
4041: AND plan_id = p_plan_id
4042: AND collection_id = p_collection_id;
4043:
4044: IF ( FND_LOG.level_statement >= FND_LOG.g_current_runtime_level ) THEN
4045: FND_LOG.string
4046: (
4047: FND_LOG.level_statement,
4048: g_pkg_name || '.' || l_api_name,
4049: 'DELETED ROW IN QA RESULTS. GETTING PARENT'
4043:
4044: IF ( FND_LOG.level_statement >= FND_LOG.g_current_runtime_level ) THEN
4045: FND_LOG.string
4046: (
4047: FND_LOG.level_statement,
4048: g_pkg_name || '.' || l_api_name,
4049: 'DELETED ROW IN QA RESULTS. GETTING PARENT'
4050: );
4051: END IF;
4059: FETCH C1 INTO l_parent_plan_id,l_parent_collection_id,l_parent_occurrence;
4060: CLOSE C1;
4061:
4062: IF ( l_parent_plan_id IS NOT NULL ) THEN
4063: IF ( FND_LOG.level_statement >= FND_LOG.g_current_runtime_level ) THEN
4064: FND_LOG.string
4065: (
4066: FND_LOG.level_statement,
4067: g_pkg_name || '.' || l_api_name,
4060: CLOSE C1;
4061:
4062: IF ( l_parent_plan_id IS NOT NULL ) THEN
4063: IF ( FND_LOG.level_statement >= FND_LOG.g_current_runtime_level ) THEN
4064: FND_LOG.string
4065: (
4066: FND_LOG.level_statement,
4067: g_pkg_name || '.' || l_api_name,
4068: 'BEFORE DELETING RELATIONSHIP ROW FOR CHILD'
4062: IF ( l_parent_plan_id IS NOT NULL ) THEN
4063: IF ( FND_LOG.level_statement >= FND_LOG.g_current_runtime_level ) THEN
4064: FND_LOG.string
4065: (
4066: FND_LOG.level_statement,
4067: g_pkg_name || '.' || l_api_name,
4068: 'BEFORE DELETING RELATIONSHIP ROW FOR CHILD'
4069: );
4070: END IF;
4074: p_child_plan_id => p_plan_id,
4075: p_child_occurrence => p_occurrence
4076: );
4077:
4078: IF ( FND_LOG.level_statement >= FND_LOG.g_current_runtime_level ) THEN
4079: FND_LOG.string
4080: (
4081: FND_LOG.level_statement,
4082: g_pkg_name || '.' || l_api_name,
4075: p_child_occurrence => p_occurrence
4076: );
4077:
4078: IF ( FND_LOG.level_statement >= FND_LOG.g_current_runtime_level ) THEN
4079: FND_LOG.string
4080: (
4081: FND_LOG.level_statement,
4082: g_pkg_name || '.' || l_api_name,
4083: 'BEFORE UPDATING PARENT FOR AGGREGATION PLAN_ID: ' || l_parent_plan_id || ' COLLECTION_ID: ' || l_parent_collection_id || ' OCCURRENCE: ' || l_parent_occurrence || ' FOR AGGREGATION '
4077:
4078: IF ( FND_LOG.level_statement >= FND_LOG.g_current_runtime_level ) THEN
4079: FND_LOG.string
4080: (
4081: FND_LOG.level_statement,
4082: g_pkg_name || '.' || l_api_name,
4083: 'BEFORE UPDATING PARENT FOR AGGREGATION PLAN_ID: ' || l_parent_plan_id || ' COLLECTION_ID: ' || l_parent_collection_id || ' OCCURRENCE: ' || l_parent_occurrence || ' FOR AGGREGATION '
4084: );
4085: END IF;
4102: x_agg_val => agg_val
4103: );
4104: END IF;
4105:
4106: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4107: FND_LOG.string
4108: (
4109: FND_LOG.level_procedure,
4110: g_pkg_name || '.' || l_api_name,
4103: );
4104: END IF;
4105:
4106: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4107: FND_LOG.string
4108: (
4109: FND_LOG.level_procedure,
4110: g_pkg_name || '.' || l_api_name,
4111: 'EXITING PROCEDURE: SUCCESS'
4105:
4106: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4107: FND_LOG.string
4108: (
4109: FND_LOG.level_procedure,
4110: g_pkg_name || '.' || l_api_name,
4111: 'EXITING PROCEDURE: SUCCESS'
4112: );
4113: END IF;
4193: p_error_text => SUBSTR(SQLERRM,1,240)
4194: );
4195: END IF;
4196:
4197: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4198: FND_LOG.string
4199: (
4200: FND_LOG.level_procedure,
4201: g_pkg_name || '.' || l_api_name,
4194: );
4195: END IF;
4196:
4197: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4198: FND_LOG.string
4199: (
4200: FND_LOG.level_procedure,
4201: g_pkg_name || '.' || l_api_name,
4202: 'EXITING PROCEDURE: ERROR'
4196:
4197: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4198: FND_LOG.string
4199: (
4200: FND_LOG.level_procedure,
4201: g_pkg_name || '.' || l_api_name,
4202: 'EXITING PROCEDURE: ERROR'
4203: );
4204: END IF;
4306: p_error_text => SUBSTR(SQLERRM,1,240)
4307: );
4308: END IF;
4309:
4310: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4311: FND_LOG.string
4312: (
4313: FND_LOG.level_procedure,
4314: g_pkg_name || '.' || l_api_name,
4307: );
4308: END IF;
4309:
4310: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4311: FND_LOG.string
4312: (
4313: FND_LOG.level_procedure,
4314: g_pkg_name || '.' || l_api_name,
4315: 'EXITING PROCEDURE: ERROR'
4309:
4310: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4311: FND_LOG.string
4312: (
4313: FND_LOG.level_procedure,
4314: g_pkg_name || '.' || l_api_name,
4315: 'EXITING PROCEDURE: ERROR'
4316: );
4317: END IF;
4457: p_error_text => SUBSTR(SQLERRM,1,240)
4458: );
4459: END IF;
4460:
4461: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4462: FND_LOG.string
4463: (
4464: FND_LOG.level_procedure,
4465: g_pkg_name || '.' || l_api_name,
4458: );
4459: END IF;
4460:
4461: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4462: FND_LOG.string
4463: (
4464: FND_LOG.level_procedure,
4465: g_pkg_name || '.' || l_api_name,
4466: 'EXITING PROCEDURE: ERROR'
4460:
4461: IF ( FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level ) THEN
4462: FND_LOG.string
4463: (
4464: FND_LOG.level_procedure,
4465: g_pkg_name || '.' || l_api_name,
4466: 'EXITING PROCEDURE: ERROR'
4467: );
4468: END IF;