3607: --my_error_msg( 'In create_task_version pvt API Stage 5' );
3608:
3609:
3610: --create new relationship
3611: PA_RELATIONSHIP_PUB.Create_Relationship
3612: (
3613: p_api_version => p_api_version
3614: ,p_init_msg_list => p_init_msg_list
3615: ,p_commit => p_commit
5731: FETCH get_subproj_relation INTO get_subproj_relation_rec;
5732: IF get_subproj_relation%FOUND --bug 4573340
5733: THEN
5734: IF l_debug_mode = 'Y' THEN
5735: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.object_relationship_id='
5736: ||get_subproj_relation_rec.object_relationship_id, 3);
5737: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.record_version_number='
5738: ||get_subproj_relation_rec.record_version_number, 3);
5739:
5733: THEN
5734: IF l_debug_mode = 'Y' THEN
5735: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.object_relationship_id='
5736: ||get_subproj_relation_rec.object_relationship_id, 3);
5737: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.record_version_number='
5738: ||get_subproj_relation_rec.record_version_number, 3);
5739:
5740: END IF;
5741:
5738: ||get_subproj_relation_rec.record_version_number, 3);
5739:
5740: END IF;
5741:
5742: PA_RELATIONSHIP_PUB.Delete_SubProject_Association --bug 4573340 replaced the call with delete_subproject
5743: (
5744: p_init_msg_list => p_init_msg_list
5745: ,p_commit => p_commit
5746: ,p_validate_only => p_validate_only
5755: ,x_msg_data => l_msg_data
5756: );
5757:
5758: IF l_debug_mode = 'Y' THEN
5759: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'After PA_RELATIONSHIP_PUB.Delete_SubProject_Association l_return_status='||l_return_status, 3);
5760: END IF;
5761:
5762: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5763: x_msg_count := FND_MSG_PUB.count_msg;
5776: END IF; --4573340
5777: CLOSE get_subproj_relation;
5778:
5779:
5780: PA_RELATIONSHIP_PUB.Delete_Relationship
5781: (
5782: p_api_version => p_api_version
5783: ,p_init_msg_list => p_init_msg_list
5784: ,p_commit => p_commit
9265: FETCH get_subproj_relation INTO get_subproj_relation_rec;
9266: IF get_subproj_relation%FOUND --bug 4573340
9267: THEN
9268: IF l_debug_mode = 'Y' THEN
9269: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.object_relationship_id='
9270: ||get_subproj_relation_rec.object_relationship_id, 3);
9271: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.record_version_number='
9272: ||get_subproj_relation_rec.record_version_number, 3);
9273:
9267: THEN
9268: IF l_debug_mode = 'Y' THEN
9269: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.object_relationship_id='
9270: ||get_subproj_relation_rec.object_relationship_id, 3);
9271: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.record_version_number='
9272: ||get_subproj_relation_rec.record_version_number, 3);
9273:
9274: END IF;
9275:
9272: ||get_subproj_relation_rec.record_version_number, 3);
9273:
9274: END IF;
9275:
9276: PA_RELATIONSHIP_PUB.Delete_SubProject_Association --bug 4573340 replaced the call with delete_subproject
9277: (
9278: p_init_msg_list => p_init_msg_list
9279: ,p_commit => p_commit
9280: ,p_validate_only => p_validate_only
9289: ,x_msg_data => l_msg_data
9290: );
9291:
9292: IF l_debug_mode = 'Y' THEN
9293: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'After PA_RELATIONSHIP_PUB.Delete_SubProject_Association l_return_status='||l_return_status, 3);
9294: END IF;
9295:
9296:
9297: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9310: END IF;
9311: END IF; --4573340
9312: CLOSE get_subproj_relation;
9313:
9314: PA_RELATIONSHIP_PUB.Delete_Relationship (
9315: p_api_version => p_api_version
9316: ,p_init_msg_list => p_init_msg_list
9317: ,p_commit => p_commit
9318: ,p_validate_only => p_validate_only