DBA Data[Home] [Help]

APPS.PA_PROJECT_STRUCTURE_UTILS dependencies on FND_API

Line 70: x_return_status := FND_API.G_RET_STS_ERROR;

66: fetch get_lock_user into l_dummy;
67: if get_lock_user%NOTFOUND then
68: --the structure version is locked by another user.
69: close get_lock_user;
70: x_return_status := FND_API.G_RET_STS_ERROR;
71: x_error_message_code := 'PA_PS_STRUC_VER_LOCKED';
72: return;
73: end if;
74: close get_lock_user;

Line 83: -- x_return_status := FND_API.G_RET_STS_ERROR;

79: --for Advanced Structure changes
80: --
81: -- If (Check_Struc_Ver_Published(p_project_id, p_structure_version_id) = 'Y') THEN
82: --version is published. Error.
83: -- x_return_status := FND_API.G_RET_STS_ERROR;
84: -- x_error_message_code := 'PA_PS_DEL_PUB_STRUC_ERR';
85: -- return;
86: -- END IF;
87:

Line 98: x_return_status := FND_API.G_RET_STS_ERROR;

94: fetch get_link into l_dummy;
95: if get_link%FOUND then
96: --a link exists
97: close get_link;
98: x_return_status := FND_API.G_RET_STS_ERROR;
99: x_error_message_code := 'PA_PS_LINK_EXISTS';
100: return;
101: end if;
102: close get_link;

Line 107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

103:
104:
105: EXCEPTION
106: WHEN OTHERS THEN
107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
108:
109: -- 4537865 RESET OUT PARAMS
110: x_error_message_code := SQLERRM ;
111:

Line 297: x_return_status := FND_API.G_RET_STS_ERROR;

293:
294: BEGIN
295:
296: if (p_project_id IS NULL or p_structure_type is NULL) then
297: x_return_status := FND_API.G_RET_STS_ERROR;
298: x_error_message_code := 'PA_PS_INPUT_NOT_SPECIFIC';
299: return;
300: end if;
301:

Line 307: x_return_status := FND_API.G_RET_STS_SUCCESS;

303: fetch c1 into l_dummy;
304: if c1%notfound THEN
305: close c1;
306: -- selected structure type does not exist
307: x_return_status := FND_API.G_RET_STS_SUCCESS;
308: else
309: close c1;
310: -- selected structure type exists
311: x_return_status := FND_API.G_RET_STS_ERROR;

Line 311: x_return_status := FND_API.G_RET_STS_ERROR;

307: x_return_status := FND_API.G_RET_STS_SUCCESS;
308: else
309: close c1;
310: -- selected structure type exists
311: x_return_status := FND_API.G_RET_STS_ERROR;
312: x_error_message_code := 'PA_PS_STRUC_TYPE_EXISTS';
313: end if;
314: EXCEPTION
315: when others then

Line 316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

312: x_error_message_code := 'PA_PS_STRUC_TYPE_EXISTS';
313: end if;
314: EXCEPTION
315: when others then
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
317: -- 4537865 RESET OUT PARAMS
318: x_error_message_code := SQLERRM ;
319:
320: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_UTILS',

Line 633: x_return_status:= FND_API.G_RET_STS_SUCCESS;

629:
630: l_posA := instr(l_name, ' - ', -1, 1);
631: if (l_posA = 0) then
632: x_structure_version_name := substrb(l_name||' - 1',0,240); -- 4537865 replaced substr usage with substrb
633: x_return_status:= FND_API.G_RET_STS_SUCCESS;
634: return;
635: end if;
636: if (l_posA > 0) then
637: --check if this is a number

Line 650: x_return_status:= FND_API.G_RET_STS_SUCCESS;

646:
647: if new_name_valid%NOTFOUND then
648: --name is valid
649: x_structure_version_name := l_new_name;
650: x_return_status:= FND_API.G_RET_STS_SUCCESS;
651: close new_name_valid;
652: EXIT;
653: end if;
654: close new_name_valid;

Line 671: x_return_status:= FND_API.G_RET_STS_SUCCESS;

667:
668: if new_name_valid%NOTFOUND then
669: --name is valid
670: x_structure_version_name := l_new_name;
671: x_return_status:= FND_API.G_RET_STS_SUCCESS;
672: close new_name_valid;
673: EXIT;
674: end if;
675: close new_name_valid;

Line 683: x_return_status := FND_API.G_RET_STS_ERROR;

679:
680: EXCEPTION
681: WHEN NO_DATA_FOUND THEN
682:
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: x_error_message_code := 'PA_PS_STRUC_VER_NAME_GEN_ERR';
685: -- 4537865 RESET OUT PARAMS
686: x_structure_version_name := NULL ;
687:

Line 689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

685: -- 4537865 RESET OUT PARAMS
686: x_structure_version_name := NULL ;
687:
688: WHEN OTHERS THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690:
691: -- 4537865 RESET OUT PARAMS
692: x_structure_version_name := NULL ;
693: x_error_message_code := SQLERRM ;

Line 766: x_return_status := FND_API.G_RET_STS_SUCCESS;

762: and pevs.proj_element_id = pe.proj_element_id
763: and pevs.name = p_structure_version_name;
764: END IF;
765:
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767: EXCEPTION
768: WHEN no_data_found THEN
769: x_return_status:= FND_API.G_RET_STS_ERROR;
770: x_error_message_code:= 'PA_PS_INVAL_STRUC_VER_NAME';

Line 769: x_return_status:= FND_API.G_RET_STS_ERROR;

765:
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767: EXCEPTION
768: WHEN no_data_found THEN
769: x_return_status:= FND_API.G_RET_STS_ERROR;
770: x_error_message_code:= 'PA_PS_INVAL_STRUC_VER_NAME';
771:
772: -- 4537865 RESET OUT PARAMS
773: x_structure_version_id := NULL ;

Line 776: x_return_status:= FND_API.G_RET_STS_ERROR;

772: -- 4537865 RESET OUT PARAMS
773: x_structure_version_id := NULL ;
774:
775: WHEN too_many_rows THEN
776: x_return_status:= FND_API.G_RET_STS_ERROR;
777: x_error_message_code:= 'PA_PS_STRUC_V_NAME_NOT_UNIQUE';
778:
779: -- 4537865 RESET OUT PARAMS
780: x_structure_version_id := NULL ;

Line 782: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;

778:
779: -- 4537865 RESET OUT PARAMS
780: x_structure_version_id := NULL ;
781: WHEN OTHERS THEN
782: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
783:
784: -- 4537865 RESET OUT PARAMS
785: x_structure_version_id := NULL ;
786: x_error_message_code := SQLERRM ;

Line 841: x_return_status := FND_API.G_RET_STS_SUCCESS;

837: where project_id = p_project_id
838: and object_type = 'PA_STRUCTURES'
839: and name = p_structure_name;
840: END IF;
841: x_return_status := FND_API.G_RET_STS_SUCCESS;
842: EXCEPTION
843: WHEN no_data_found THEN
844: x_return_status:= FND_API.G_RET_STS_ERROR;
845: x_error_message_code:= 'PA_PS_INVALID_STRUCT_NAME';

Line 844: x_return_status:= FND_API.G_RET_STS_ERROR;

840: END IF;
841: x_return_status := FND_API.G_RET_STS_SUCCESS;
842: EXCEPTION
843: WHEN no_data_found THEN
844: x_return_status:= FND_API.G_RET_STS_ERROR;
845: x_error_message_code:= 'PA_PS_INVALID_STRUCT_NAME';
846:
847: -- 4537865 RESET OUT PARAM
848: x_structure_id := NULL ;

Line 850: x_return_status:= FND_API.G_RET_STS_ERROR;

846:
847: -- 4537865 RESET OUT PARAM
848: x_structure_id := NULL ;
849: WHEN too_many_rows THEN
850: x_return_status:= FND_API.G_RET_STS_ERROR;
851: x_error_message_code:= 'PA_PS_STRUC_NAME_NOT_UNIQUE';
852:
853: -- 4537865 RESET OUT PARAM
854: x_structure_id := NULL ;

Line 856: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;

852:
853: -- 4537865 RESET OUT PARAM
854: x_structure_id := NULL ;
855: WHEN OTHERS THEN
856: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
857:
858: -- 4537865 RESET OUT PARAM
859: x_structure_id := NULL ;
860: x_error_message_code := SQLERRM ;

Line 935: = FND_API.G_TRUE) THEN

931: /*
932: IF (PA_SECURITY_PVT.check_user_privilege('PA_UNLOCK_ANY_STRUCTURE'
933: ,NULL
934: ,to_number(NULL))
935: = FND_API.G_TRUE) THEN
936: --current user is super user. can edit
937: return 'Y';
938: END IF;
939: */

Line 1703: raise FND_API.G_EXC_ERROR;

1699: CLOSE get_latest_pub_ver;
1700:
1701: x_msg_count := FND_MSG_PUB.count_msg;
1702: IF (x_msg_count > 0) THEN
1703: raise FND_API.G_EXC_ERROR;
1704: END IF;
1705:
1706: x_return_status := FND_API.G_RET_STS_SUCCESS;
1707: EXCEPTION

Line 1706: x_return_status := FND_API.G_RET_STS_SUCCESS;

1702: IF (x_msg_count > 0) THEN
1703: raise FND_API.G_EXC_ERROR;
1704: END IF;
1705:
1706: x_return_status := FND_API.G_RET_STS_SUCCESS;
1707: EXCEPTION
1708: WHEN FND_API.G_EXC_ERROR THEN
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710: WHEN OTHERS THEN

Line 1708: WHEN FND_API.G_EXC_ERROR THEN

1704: END IF;
1705:
1706: x_return_status := FND_API.G_RET_STS_SUCCESS;
1707: EXCEPTION
1708: WHEN FND_API.G_EXC_ERROR THEN
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710: WHEN OTHERS THEN
1711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1712: --4537865

Line 1709: x_return_status := FND_API.G_RET_STS_ERROR;

1705:
1706: x_return_status := FND_API.G_RET_STS_SUCCESS;
1707: EXCEPTION
1708: WHEN FND_API.G_EXC_ERROR THEN
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710: WHEN OTHERS THEN
1711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1712: --4537865
1713: x_msg_count := 1;

Line 1711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1707: EXCEPTION
1708: WHEN FND_API.G_EXC_ERROR THEN
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710: WHEN OTHERS THEN
1711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1712: --4537865
1713: x_msg_count := 1;
1714: x_msg_data := SQLERRM ;
1715:

Line 2936: raise FND_API.G_EXC_ERROR;

2932: CLOSE c1;
2933:
2934: x_msg_count := FND_MSG_PUB.count_msg;
2935: IF (x_msg_count > 0) THEN
2936: raise FND_API.G_EXC_ERROR;
2937: END IF;
2938:
2939: x_return_status := FND_API.G_RET_STS_SUCCESS;
2940: EXCEPTION

Line 2939: x_return_status := FND_API.G_RET_STS_SUCCESS;

2935: IF (x_msg_count > 0) THEN
2936: raise FND_API.G_EXC_ERROR;
2937: END IF;
2938:
2939: x_return_status := FND_API.G_RET_STS_SUCCESS;
2940: EXCEPTION
2941: WHEN FND_API.G_EXC_ERROR THEN
2942: x_return_status := FND_API.G_RET_STS_ERROR;
2943: x_msg_count := FND_MSG_PUB.count_msg; -- 4537865

Line 2941: WHEN FND_API.G_EXC_ERROR THEN

2937: END IF;
2938:
2939: x_return_status := FND_API.G_RET_STS_SUCCESS;
2940: EXCEPTION
2941: WHEN FND_API.G_EXC_ERROR THEN
2942: x_return_status := FND_API.G_RET_STS_ERROR;
2943: x_msg_count := FND_MSG_PUB.count_msg; -- 4537865
2944: x_msg_data := l_message_text ; -- 4537865
2945:

Line 2942: x_return_status := FND_API.G_RET_STS_ERROR;

2938:
2939: x_return_status := FND_API.G_RET_STS_SUCCESS;
2940: EXCEPTION
2941: WHEN FND_API.G_EXC_ERROR THEN
2942: x_return_status := FND_API.G_RET_STS_ERROR;
2943: x_msg_count := FND_MSG_PUB.count_msg; -- 4537865
2944: x_msg_data := l_message_text ; -- 4537865
2945:
2946: WHEN OTHERS THEN

Line 2947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2943: x_msg_count := FND_MSG_PUB.count_msg; -- 4537865
2944: x_msg_data := l_message_text ; -- 4537865
2945:
2946: WHEN OTHERS THEN
2947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2948: x_msg_count := 1; -- 4537865
2949: x_msg_data := SQLERRM ; -- 4537865
2950: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_UTILS',
2951: p_procedure_name => 'Check_txn_on_summary_tasks',

Line 3029: -- raise FND_API.G_EXC_ERROR;

3025: FETCH c3 into l_system_status_code;
3026: IF (c3%FOUND) THEN
3027: --inconsistent statuses. Error
3028: -- x_error_message_code := 'PA_PS_PUB_TK_STATS_ERR';
3029: -- raise FND_API.G_EXC_ERROR;
3030: OPEN get_task_name_num(l_proj_element_id);
3031: FETCH get_task_name_num into l_task_name, l_task_number;
3032: CLOSE get_task_name_num;
3033: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_PUB_TK_STATS_ERR',

Line 3045: raise FND_API.G_EXC_ERROR;

3041: CLOSE c1;
3042:
3043: x_msg_count := FND_MSG_PUB.count_msg;
3044: IF (x_msg_count > 0) THEN
3045: raise FND_API.G_EXC_ERROR;
3046: END IF;
3047:
3048: x_return_status := FND_API.G_RET_STS_SUCCESS;
3049:

Line 3048: x_return_status := FND_API.G_RET_STS_SUCCESS;

3044: IF (x_msg_count > 0) THEN
3045: raise FND_API.G_EXC_ERROR;
3046: END IF;
3047:
3048: x_return_status := FND_API.G_RET_STS_SUCCESS;
3049:
3050: EXCEPTION
3051: WHEN FND_API.G_EXC_ERROR THEN
3052: x_return_status := FND_API.G_RET_STS_ERROR;

Line 3051: WHEN FND_API.G_EXC_ERROR THEN

3047:
3048: x_return_status := FND_API.G_RET_STS_SUCCESS;
3049:
3050: EXCEPTION
3051: WHEN FND_API.G_EXC_ERROR THEN
3052: x_return_status := FND_API.G_RET_STS_ERROR;
3053: x_msg_count := FND_MSG_PUB.count_msg; -- 4537865
3054: x_msg_data := 'PA_PS_PUB_TK_STATS_ERR'; -- 4537865
3055:

Line 3052: x_return_status := FND_API.G_RET_STS_ERROR;

3048: x_return_status := FND_API.G_RET_STS_SUCCESS;
3049:
3050: EXCEPTION
3051: WHEN FND_API.G_EXC_ERROR THEN
3052: x_return_status := FND_API.G_RET_STS_ERROR;
3053: x_msg_count := FND_MSG_PUB.count_msg; -- 4537865
3054: x_msg_data := 'PA_PS_PUB_TK_STATS_ERR'; -- 4537865
3055:
3056: WHEN OTHERS THEN

Line 3057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3053: x_msg_count := FND_MSG_PUB.count_msg; -- 4537865
3054: x_msg_data := 'PA_PS_PUB_TK_STATS_ERR'; -- 4537865
3055:
3056: WHEN OTHERS THEN
3057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3058: x_msg_count := 1; -- 4537865
3059: x_msg_data := SQLERRM ; -- 4537865
3060: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_UTILS',
3061: p_procedure_name => 'Check_tasks_statuses_valid',

Line 3191: = FND_API.G_TRUE) THEN

3187: --added for bug 3071008
3188: IF (PA_SECURITY_PVT.check_user_privilege('PA_UNLOCK_ANY_STRUCTURE'
3189: ,NULL
3190: ,to_number(NULL))
3191: = FND_API.G_TRUE) THEN
3192: return 'Y';
3193: END IF;
3194: --end bug 3071008
3195: return 'N';

Line 3228: = FND_API.G_TRUE) THEN

3224: --added for bug 3071008
3225: IF (PA_SECURITY_PVT.check_user_privilege('PA_UNLOCK_ANY_STRUCTURE'
3226: ,NULL
3227: ,to_number(NULL))
3228: = FND_API.G_TRUE) THEN
3229: return 'Y';
3230: END IF;
3231: --end bug 3071008
3232: return 'N';

Line 3562: x_return_status := FND_API.G_RET_STS_SUCCESS;

3558:
3559: BEGIN
3560:
3561: x_msg_count := 0;
3562: x_return_status := FND_API.G_RET_STS_SUCCESS;
3563: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3564:
3565: IF l_debug_mode = 'Y' THEN
3566: pa_debug.set_curr_function( p_function => 'GET_CONC_REQUEST_DETAILS',

Line 3616: x_return_status := FND_API.G_RET_STS_ERROR;

3612: EXCEPTION
3613:
3614: WHEN Invalid_Arg_Exc_WP THEN
3615:
3616: x_return_status := FND_API.G_RET_STS_ERROR;
3617: l_msg_count := FND_MSG_PUB.count_msg;
3618:
3619: -- 4537865 RESET OUT PARAMS
3620: x_request_id := NULL ;

Line 3630: (p_encoded => FND_API.G_TRUE

3626: END IF;
3627:
3628: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3629: PA_INTERFACE_UTILS_PUB.get_messages
3630: (p_encoded => FND_API.G_TRUE
3631: ,p_msg_index => 1
3632: ,p_msg_count => l_msg_count
3633: ,p_msg_data => l_msg_data
3634: ,p_data => l_data

Line 3649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3645: RETURN;
3646:
3647: WHEN others THEN
3648:
3649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3650: x_msg_count := 1;
3651: x_msg_data := SQLERRM;
3652:
3653: -- 4537865 RESET OUT PARAMS

Line 4478: l_return_status := FND_API.G_RET_STS_SUCCESS;

4474: l_return_status VARCHAR2(30) := NULL;
4475:
4476: BEGIN
4477:
4478: l_return_status := FND_API.G_RET_STS_SUCCESS;
4479:
4480: update pa_proj_elem_ver_structure
4481: set process_code = decode(p_calling_context, 'APPLY_PROGRESS', 'APP'
4482: , 'CONC_PUBLISH', 'PUP'

Line 4499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4495:
4496: when others then
4497:
4498: -- Changed l_return_status to x_return_status : 4537865
4499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4500:
4501: raise;
4502:
4503: END SET_PROCESS_CODE_IN_PROC;

Line 4518: l_return_status := FND_API.G_RET_STS_SUCCESS;

4514: l_return_status VARCHAR2(30) := NULL;
4515:
4516: BEGIN
4517:
4518: l_return_status := FND_API.G_RET_STS_SUCCESS;
4519:
4520: update pa_proj_elem_ver_structure
4521: set process_code = decode(p_calling_context, 'APPLY_PROGRESS', 'APE'
4522: , 'CONC_PUBLISH', 'PUE'

Line 4536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4532: EXCEPTION
4533:
4534: when others then
4535: -- 4537865 Changed l_return_status to x_return_status
4536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4537:
4538: raise;
4539:
4540: END SET_PROCESS_CODE_ERR;

Line 4559: l_return_status := FND_API.G_RET_STS_SUCCESS;

4555: l_return_status VARCHAR2(30) := NULL;
4556:
4557: BEGIN
4558:
4559: l_return_status := FND_API.G_RET_STS_SUCCESS;
4560: if p_process_code = 'PRE' then
4561: update pa_proj_elem_ver_structure
4562: set process_code = p_process_code
4563: , conc_request_id = p_conc_request_id

Line 4580: x_return_status := FND_API.G_RET_STS_ERROR;

4576:
4577: when others then
4578:
4579: -- Changed l_return_status to x_return_status for NOCOPY
4580: x_return_status := FND_API.G_RET_STS_ERROR;
4581:
4582: raise;
4583:
4584: END SET_PROCESS_CODE;

Line 4757: x_return_status := FND_API.G_RET_STS_SUCCESS;

4753:
4754: savepoint lock_unlock_wp_str;
4755:
4756: x_msg_count := 0;
4757: x_return_status := FND_API.G_RET_STS_SUCCESS;
4758: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4759:
4760: if l_debug_mode = 'Y' THEN
4761: pa_debug.set_curr_function( p_function => 'lock_unlock_wp_str_autonomous');

Line 4790: , p_init_msg_list => FND_API.G_FALSE -- Added for bug 5130360

4786: pa_project_structure_pub1.update_structure_version_attr
4787: (p_pev_structure_id => l_rec_ppevs.pev_structure_id
4788: , p_locked_status_code => p_lock_status_code
4789: , p_structure_version_name => l_rec_ppevs.name
4790: , p_init_msg_list => FND_API.G_FALSE -- Added for bug 5130360
4791: , p_record_version_number => l_rec_ppevs.record_version_number
4792: , p_calling_module => p_calling_module
4793: , x_return_status => x_return_status
4794: , x_msg_count => x_msg_count

Line 4804: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then

4800:
4801:
4802: end if;
4803:
4804: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
4805: commit;
4806: else
4807: raise FND_API.G_EXC_ERROR;
4808: end if;

Line 4807: raise FND_API.G_EXC_ERROR;

4803:
4804: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
4805: commit;
4806: else
4807: raise FND_API.G_EXC_ERROR;
4808: end if;
4809:
4810: exception
4811:

Line 4812: when FND_API.G_EXC_ERROR then

4808: end if;
4809:
4810: exception
4811:
4812: when FND_API.G_EXC_ERROR then
4813: /*rollback to lock_unlock_wp_str; bug#6414944*/
4814: rollback; /*bug# 6414944*/
4815:
4816: when others then

Line 4854: x_return_status := FND_API.G_RET_STS_SUCCESS;

4850:
4851: savepoint lock_unlock_wp_str2;
4852:
4853: x_msg_count := 0;
4854: x_return_status := FND_API.G_RET_STS_SUCCESS;
4855: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4856:
4857: if l_debug_mode = 'Y' THEN
4858: pa_debug.set_curr_function( p_function => 'lock_unlock_wp_str');

Line 4887: , p_init_msg_list => FND_API.G_FALSE -- Added for bug 5130360

4883: pa_project_structure_pub1.update_structure_version_attr
4884: (p_pev_structure_id => l_rec_ppevs.pev_structure_id
4885: , p_locked_status_code => p_lock_status_code
4886: , p_structure_version_name => l_rec_ppevs.name
4887: , p_init_msg_list => FND_API.G_FALSE -- Added for bug 5130360
4888: , p_record_version_number => l_rec_ppevs.record_version_number
4889: , p_calling_module => p_calling_module
4890: , x_return_status => x_return_status
4891: , x_msg_count => x_msg_count

Line 4901: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then

4897:
4898:
4899: end if;
4900:
4901: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
4902: --commit;
4903: null;
4904: else
4905: raise FND_API.G_EXC_ERROR;

Line 4905: raise FND_API.G_EXC_ERROR;

4901: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
4902: --commit;
4903: null;
4904: else
4905: raise FND_API.G_EXC_ERROR;
4906: end if;
4907:
4908: exception
4909:

Line 4910: when FND_API.G_EXC_ERROR then

4906: end if;
4907:
4908: exception
4909:
4910: when FND_API.G_EXC_ERROR then
4911: rollback to lock_unlock_wp_str2;
4912:
4913: when others then
4914: rollback to lock_unlock_wp_str2;