809: -- Added by skannoji
810: -- added for doosan customer to add the planning transaction
811: IF ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(x_structure_version_id, 'WORKPLAN') = 'Y') THEN
812: /*Smukka Bug No. 3474141 Date 03/01/2004 */
813: /*moved PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions into plsql block */
814: BEGIN
815: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
816: (
817: p_context => 'WORKPLAN'
811: IF ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(x_structure_version_id, 'WORKPLAN') = 'Y') THEN
812: /*Smukka Bug No. 3474141 Date 03/01/2004 */
813: /*moved PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions into plsql block */
814: BEGIN
815: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
816: (
817: p_context => 'WORKPLAN'
818: ,p_project_id => l_project_id
819: ,p_struct_elem_version_id => x_structure_version_id
824: EXCEPTION
825: WHEN OTHERS THEN
826: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
827: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
828: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
829: RAISE FND_API.G_EXC_ERROR;
830: END;
831: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
832: RAISE FND_API.G_EXC_ERROR;
15422: CLOSE sel_struc_ver;
15423:
15424: --add financial planning
15425: /*Smukka Bug No. 3474141 Date 03/01/2004 */
15426: /*moved PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions into plsql block */
15427: BEGIN
15428: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions(
15429: p_context => 'WORKPLAN'
15430: ,p_project_id => p_project_id
15424: --add financial planning
15425: /*Smukka Bug No. 3474141 Date 03/01/2004 */
15426: /*moved PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions into plsql block */
15427: BEGIN
15428: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions(
15429: p_context => 'WORKPLAN'
15430: ,p_project_id => p_project_id
15431: ,p_struct_elem_version_id => l_structure_version_id
15432: ,x_return_status => l_return_status
15435: EXCEPTION
15436: WHEN OTHERS THEN
15437: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
15438: p_procedure_name => 'update_structures_setup_attr',
15439: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
15440: RAISE FND_API.G_EXC_ERROR;
15441: END;
15442: --Check if there is any error.
15443: l_msg_count := FND_MSG_PUB.count_msg;
17412:
17413: --add planning transaction to the shared structure version
17414: --add financial planning
17415: /*Smukka Bug No. 3474141 Date 03/01/2004 */
17416: /*moved PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions into plsql block */
17417: BEGIN
17418: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions(
17419: p_context => 'WORKPLAN'
17420: ,p_project_id => p_project_id
17414: --add financial planning
17415: /*Smukka Bug No. 3474141 Date 03/01/2004 */
17416: /*moved PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions into plsql block */
17417: BEGIN
17418: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions(
17419: p_context => 'WORKPLAN'
17420: ,p_project_id => p_project_id
17421: ,p_struct_elem_version_id => l_structure_version_id
17422: ,x_return_status => l_return_status
17425: EXCEPTION
17426: WHEN OTHERS THEN
17427: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17428: p_procedure_name => 'update_structures_setup_attr',
17429: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17430: RAISE FND_API.G_EXC_ERROR;
17431: END;
17432: --Check if there is any error.
17433: l_msg_count := FND_MSG_PUB.count_msg;
17803: CLOSE sel_struc_ver;
17804:
17805: --add financial planning
17806: /*Smukka Bug No. 3474141 Date 03/01/2004 */
17807: /*moved PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions into plsql block */
17808: BEGIN
17809: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions(
17810: p_context => 'WORKPLAN'
17811: ,p_project_id => p_project_id
17805: --add financial planning
17806: /*Smukka Bug No. 3474141 Date 03/01/2004 */
17807: /*moved PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions into plsql block */
17808: BEGIN
17809: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions(
17810: p_context => 'WORKPLAN'
17811: ,p_project_id => p_project_id
17812: ,p_struct_elem_version_id => l_structure_version_id
17813: ,x_return_status => l_return_status
17816: EXCEPTION
17817: WHEN OTHERS THEN
17818: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17819: p_procedure_name => 'update_structures_setup_attr',
17820: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17821: RAISE FND_API.G_EXC_ERROR;
17822: END;
17823: --Check if there is any error.
17824: l_msg_count := FND_MSG_PUB.count_msg;