[Home] [Help]
135: x_conflict_group_id := null;
136:
137: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
138: --Clear the global PL/SQL message table
139: FND_MSG_PUB.initialize;
140:
141: -- delete all the records from the approver_tbl
142: PA_ASSIGNMENT_APPROVAL_PUB.g_approver_tbl.delete;
143: END IF;
404: END LOOP; --end of for loop
405:
406:
407: -- if there is no error so far
408: IF FND_MSG_PUB.Count_Msg < 1 THEN
409:
410: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
411: PA_DEBUG.write_log ('pa.plsql.PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals.update_status',
412: 'Update Assignment Approval Status.', 5);
462: PA_DEBUG.write_log ('pa.plsql.PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals.get_wf_info'
463: ,'Getting workflow info.', 5);
464: END IF;
465:
466: --dbms_output.put_line('error before get_workflow_process_info'||FND_MSG_PUB.Count_Msg);
467: PA_ASGMT_WFSTD.get_workflow_process_info(p_status_code => l_apprvl_status_code,
468: x_wf_item_type => l_wf_item_type,
469: x_wf_process => l_wf_process,
470: x_wf_type => l_wf_type,
558:
559: --------------------------------------------------------------------------------------------------------
560: -- Launch workflow
561: --------------------------------------------------------------------------------------------------------
562: IF FND_MSG_PUB.Count_Msg < 1 THEN
563: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
564: PA_DEBUG.write_log ('pa.plsql.PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals.launch_wf'
565: ,'Launching workflow.', 5);
566: END IF;
585:
586: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
587: PA_UTILS.Add_Message('PA', l_error_message_code);
588: END IF;
589: END IF; -- FND_MSG_PUB.Count_Msg < 1
590:
591: END IF; -- IF (l_wf_type <> 'NOT_ENABLED') AND...
592: END IF; -- return_status of update_approval_status = FND_API.G_RET_STS_SUCCESS
593: END IF; -- IF FND_MSG_PUB.Count_Msg < 1
589: END IF; -- FND_MSG_PUB.Count_Msg < 1
590:
591: END IF; -- IF (l_wf_type <> 'NOT_ENABLED') AND...
592: END IF; -- return_status of update_approval_status = FND_API.G_RET_STS_SUCCESS
593: END IF; -- IF FND_MSG_PUB.Count_Msg < 1
594:
595:
596: --clear PL/SQL table for next time
597: PA_ASSIGNMENT_APPROVAL_PUB.g_approver_tbl.DELETE;
600:
601: --------------------------------------------------------------------------------------------------------
602: -- Set OUT parameters
603: --------------------------------------------------------------------------------------------------------
604: x_msg_count := FND_MSG_PUB.Count_Msg;
605:
606: -- If g_error_exists is TRUE then set the x_return_status to 'E'
607: IF x_msg_count >0 THEN
608: x_return_status := FND_API.G_RET_STS_ERROR;
620:
621: EXCEPTION
622: WHEN FND_API.G_EXC_ERROR THEN
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: x_msg_count := FND_MSG_PUB.Count_Msg;
625:
626: IF x_msg_count = 1 THEN
627: pa_interface_utils_pub.get_messages (p_encoded => FND_API.G_TRUE,
628: p_msg_index => 1,
635: ROLLBACK TO ASG_APR_PUB_START_APPRVL;
636: END IF;
637:
638: -- Set the exception Message and the stack
639: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PVT.Start_Assignment_Approvals'
640: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642:
643: --clear PL/SQL table for next time
699: x_return_status := FND_API.G_RET_STS_SUCCESS;
700:
701: --Clear the global PL/SQL message table
702: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
703: FND_MSG_PUB.initialize;
704: END IF;
705:
706: -- Issue API savepoint if the transaction is to be committed
707: IF p_commit = FND_API.G_TRUE THEN
893:
894: --
895: --Delete the last approved record from the assignment history table.
896: --
897: IF (FND_MSG_PUB.Count_Msg = 0) THEN
898: PA_ASSIGNMENTS_HISTORY_PKG.Delete_Row( p_assignment_id => p_assignment_id
899: ,p_last_approved_flag => 'Y'
900: ,x_return_status => l_return_status);
901: END IF;
929:
930: --
931: --Update the current assignment record with new status and record details from the history table
932: --
933: IF (FND_MSG_PUB.Count_Msg = 0) THEN
934:
935: --Log Message
936: IF P_DEBUG_MODE = 'Y' THEN
937: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENT_APPROVAL_PUB.Revert_To_Last_Approved.update_row'
1067: --
1068: -- IF the number of messaages is 1 then fetch the message code from the stack and return its text
1069: --
1070:
1071: x_msg_count := FND_MSG_PUB.Count_Msg;
1072:
1073: IF x_msg_count = 1 THEN
1074: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
1075: ,p_msg_index => 1
1083: PA_DEBUG.Reset_Err_Stack;
1084:
1085: -- If g_error_exists is TRUE then set the x_return_status to 'E'
1086:
1087: IF FND_MSG_PUB.Count_Msg >0 THEN
1088:
1089: x_return_status := FND_API.G_RET_STS_ERROR;
1090:
1091: END IF;
1097: ROLLBACK TO ASG_APR_PUB_REVERT;
1098: END IF;
1099:
1100: -- Set the exception Message and the stack
1101: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.Revert_To_Last_Approved'
1102: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1104:
1105: RAISE; -- This is optional depending on the needs
1235: x_return_status := FND_API.G_RET_STS_SUCCESS;
1236:
1237: -- Clear the global PL/SQL message table
1238: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1239: FND_MSG_PUB.initialize;
1240: END IF;
1241:
1242: -- set out parameter
1243: OPEN get_rec_ver_num;
1556:
1557: ---------------------------------------------------------------------------
1558: -- Set out parameters
1559: ---------------------------------------------------------------------------
1560: x_msg_count := FND_MSG_PUB.Count_Msg;
1561:
1562: -- If g_error_exists is TRUE then set the x_return_status to 'E'
1563: IF x_msg_count > 0 THEN
1564: x_return_status := FND_API.G_RET_STS_ERROR;
1576:
1577: EXCEPTION
1578: WHEN OTHERS THEN
1579: -- Set the exception Message and the stack
1580: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.Populate_Changed_Items_Table'
1581: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1582: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1583: RAISE; -- This is optional depending on the needs
1584:
1730: END IF;
1731:
1732: --Clear the global PL/SQL message table
1733: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1734: FND_MSG_PUB.initialize;
1735: END IF;
1736:
1737: OPEN check_record_version;
1738:
2064:
2065: --
2066: -- IF the number of messaages is 1 then fetch the message code from the stack and return its text
2067: --
2068: x_msg_count := FND_MSG_PUB.Count_Msg;
2069: IF x_msg_count = 1 THEN
2070: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
2071: ,p_msg_index => 1
2072: ,p_data => x_msg_data
2092: IF p_commit = FND_API.G_TRUE THEN
2093: ROLLBACK TO ASG_PUB_CHANGE_STATUS;
2094: END IF;
2095: -- Set the excetption Message and the stack
2096: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.Change_Assignment_Status'
2097: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2098: --
2099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2100: RAISE; -- This is optional depending on the needs
2185: --
2186: EXCEPTION
2187: WHEN OTHERS THEN
2188: -- Set the excetption Message and the stack
2189: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.Get_Current_Approver'
2190: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2191: RAISE; -- This is optional depending on the needs
2192:
2193: END Get_Current_Approver;
2237: END IF;
2238:
2239: --Clear the global PL/SQL message table
2240: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
2241: FND_MSG_PUB.initialize;
2242: END IF;
2243:
2244: -- Assignment cannot be deleted if project transactions
2245: -- are associated with it
2298:
2299: --
2300: -- IF the number of messaages is 1 then fetch the message code from the stack and return its text
2301: --
2302: x_msg_count := FND_MSG_PUB.Count_Msg;
2303: IF x_msg_count = 1 THEN
2304: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
2305: ,p_msg_index => 1
2306: ,p_data => x_msg_data
2320:
2321: EXCEPTION
2322: WHEN OTHERS THEN
2323: -- Set the excetption Message and the stack
2324: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.Cancel_Assignment'
2325: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2326: --
2327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2328: RAISE; -- This is optional depending on the needs
2519: -- Initialize the return status to success
2520: x_return_status := FND_API.G_RET_STS_SUCCESS;
2521:
2522: --Clear the global PL/SQL message table
2523: FND_MSG_PUB.initialize;
2524:
2525: -- Issue API savepoint if the transaction is to be committed
2526: IF p_commit = FND_API.G_TRUE THEN
2527: SAVEPOINT MASS_SUBMIT_ASGN_APPRVL;
2705: END IF;
2706:
2707: END IF;
2708:
2709: x_msg_count := FND_MSG_PUB.Count_Msg;
2710:
2711: -- IF the number of messages is 1 then fetch the message code from
2712: -- the stack and return its text
2713: IF x_msg_count = 1 THEN
2721: -- Reset the error stack when returning to the calling program
2722: PA_DEBUG.Reset_Err_Stack;
2723:
2724: -- If g_error_exists is TRUE then set the x_return_status to 'E'
2725: IF FND_MSG_PUB.Count_Msg >0 THEN
2726: x_return_status := FND_API.G_RET_STS_ERROR;
2727: END IF;
2728:
2729: EXCEPTION
2733: ROLLBACK TO MASS_SUBMIT_ASGN_APPRVL;
2734: END IF;
2735:
2736: -- Set the excetption Message and the stack
2737: FND_MSG_PUB.add_exc_msg
2738: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.mass_submit_for_asgmt_aprvl'
2739: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2740:
2741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2908: -- Initialize the return status to success
2909: x_return_status := FND_API.G_RET_STS_SUCCESS;
2910:
2911: --Clear the global PL/SQL message table
2912: FND_MSG_PUB.initialize;
2913:
2914: -- Issue API savepoint if the transaction is to be committed
2915: IF p_commit = FND_API.G_TRUE THEN
2916: SAVEPOINT MASS_ASGN_APPRVL;
3691: END IF;
3692:
3693: -- IF the number of messages is 1 then fetch the message code from
3694: -- the stack and return its text
3695: x_msg_count := FND_MSG_PUB.Count_Msg;
3696:
3697: IF x_msg_count = 1 THEN
3698: pa_interface_utils_pub.get_messages
3699: ( p_encoded => FND_API.G_TRUE
3705: -- Reset the error stack when returning to the calling program
3706: PA_DEBUG.Reset_Err_Stack;
3707:
3708: -- If g_error_exists is TRUE then set the x_return_status to 'E'
3709: IF FND_MSG_PUB.Count_Msg >0 THEN
3710: x_return_status := FND_API.G_RET_STS_ERROR;
3711: END IF;
3712:
3713: EXCEPTION
3721: ROLLBACK TO MASS_ASGN_APPRVL;
3722: END IF;
3723:
3724: -- Set the excetption Message and the stack
3725: FND_MSG_PUB.add_exc_msg
3726: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.mass_assignment_approval'
3727: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3728:
3729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3735: ROLLBACK TO MASS_ASGN_APPRVL;
3736: END IF;
3737:
3738: -- Set the excetption Message and the stack
3739: FND_MSG_PUB.add_exc_msg
3740: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.mass_assignment_approval'
3741: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3742:
3743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3816: -- Initialize the return status to success
3817: x_return_status := FND_API.G_RET_STS_SUCCESS;
3818:
3819: --Clear the global PL/SQL message table
3820: FND_MSG_PUB.initialize;
3821:
3822: -- Issue API savepoint if the transaction is to be committed
3823: IF p_commit = FND_API.G_TRUE THEN
3824: SAVEPOINT MASS_APPRVL_RESULT;
4024: --Setting the original value
4025: wf_engine.threshold := l_save_threshold;
4026:
4027: -- Set the excetption Message and the stack
4028: FND_MSG_PUB.add_exc_msg
4029: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.mass_process_approval_result'
4030: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4031:
4032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4089: -- Initialize the return status to success
4090: x_return_status := FND_API.G_RET_STS_SUCCESS;
4091:
4092: --Clear the global PL/SQL message table
4093: FND_MSG_PUB.initialize;
4094:
4095: -- Issue API savepoint if the transaction is to be committed
4096: IF p_commit = FND_API.G_TRUE THEN
4097: SAVEPOINT MASS_APPRVL_VALIDATE_NAMEID;
4239: --x_approver2_id_tbl (i) := l_approver2_person_id;
4240:
4241: END IF;
4242:
4243: log_message('COUNT of message stack:' || FND_MSG_PUB.Count_Msg);
4244:
4245: -------------------------------------------
4246: --Populate x_success_assignment_id_tbl
4247: -------------------------------------------
4244:
4245: -------------------------------------------
4246: --Populate x_success_assignment_id_tbl
4247: -------------------------------------------
4248: IF FND_MSG_PUB.Count_Msg > 0 THEN
4249:
4250: --Setting pending approval flag in pa_project_assignments
4251: PA_ASGMT_WFSTD.Maintain_wf_pending_flag
4252: (p_assignment_id => p_assignment_id_tbl(i),
4263: ELSE
4264: x_assignment_id_tbl (i) := p_assignment_id_tbl (i);
4265: END IF;
4266:
4267: IF FND_MSG_PUB.Count_Msg > 0 THEN
4268:
4269: SELECT resource_id
4270: INTO l_resource_id
4271: FROM pa_project_assignments
4298: ROLLBACK TO MASS_APPRVL_VALIDATE_NAMEID;
4299: END IF;
4300:
4301: -- Set the excetption Message and the stack
4302: FND_MSG_PUB.add_exc_msg
4303: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.validate_approver_name_id'
4304: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4305:
4306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;