[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:
2075:
2076: --
2077: -- IF the number of messaages is 1 then fetch the message code from the stack and return its text
2078: --
2079: x_msg_count := FND_MSG_PUB.Count_Msg;
2080: IF x_msg_count = 1 THEN
2081: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
2082: ,p_msg_index => 1
2083: ,p_data => x_msg_data
2103: IF p_commit = FND_API.G_TRUE THEN
2104: ROLLBACK TO ASG_PUB_CHANGE_STATUS;
2105: END IF;
2106: -- Set the excetption Message and the stack
2107: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.Change_Assignment_Status'
2108: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2109: --
2110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2111: RAISE; -- This is optional depending on the needs
2241: --
2242: EXCEPTION
2243: WHEN OTHERS THEN
2244: -- Set the excetption Message and the stack
2245: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.Get_Current_Approver'
2246: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2247: RAISE; -- This is optional depending on the needs
2248:
2249: END Get_Current_Approver;
2293: END IF;
2294:
2295: --Clear the global PL/SQL message table
2296: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
2297: FND_MSG_PUB.initialize;
2298: END IF;
2299:
2300: -- Assignment cannot be deleted if project transactions
2301: -- are associated with it
2359:
2360: --
2361: -- IF the number of messaages is 1 then fetch the message code from the stack and return its text
2362: --
2363: x_msg_count := FND_MSG_PUB.Count_Msg;
2364: IF x_msg_count = 1 THEN
2365: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
2366: ,p_msg_index => 1
2367: ,p_data => x_msg_data
2381: END IF; --end of if loop for Bug#8240018
2382: EXCEPTION
2383: WHEN OTHERS THEN
2384: -- Set the excetption Message and the stack
2385: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.Cancel_Assignment'
2386: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2387: --
2388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2389: RAISE; -- This is optional depending on the needs
2580: -- Initialize the return status to success
2581: x_return_status := FND_API.G_RET_STS_SUCCESS;
2582:
2583: --Clear the global PL/SQL message table
2584: FND_MSG_PUB.initialize;
2585:
2586: -- Issue API savepoint if the transaction is to be committed
2587: IF p_commit = FND_API.G_TRUE THEN
2588: SAVEPOINT MASS_SUBMIT_ASGN_APPRVL;
2766: END IF;
2767:
2768: END IF;
2769:
2770: x_msg_count := FND_MSG_PUB.Count_Msg;
2771:
2772: -- IF the number of messages is 1 then fetch the message code from
2773: -- the stack and return its text
2774: IF x_msg_count = 1 THEN
2782: -- Reset the error stack when returning to the calling program
2783: PA_DEBUG.Reset_Err_Stack;
2784:
2785: -- If g_error_exists is TRUE then set the x_return_status to 'E'
2786: IF FND_MSG_PUB.Count_Msg >0 THEN
2787: x_return_status := FND_API.G_RET_STS_ERROR;
2788: END IF;
2789:
2790: EXCEPTION
2794: ROLLBACK TO MASS_SUBMIT_ASGN_APPRVL;
2795: END IF;
2796:
2797: -- Set the excetption Message and the stack
2798: FND_MSG_PUB.add_exc_msg
2799: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.mass_submit_for_asgmt_aprvl'
2800: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2801:
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2969: -- Initialize the return status to success
2970: x_return_status := FND_API.G_RET_STS_SUCCESS;
2971:
2972: --Clear the global PL/SQL message table
2973: FND_MSG_PUB.initialize;
2974:
2975: -- Issue API savepoint if the transaction is to be committed
2976: IF p_commit = FND_API.G_TRUE THEN
2977: SAVEPOINT MASS_ASGN_APPRVL;
3756: END IF;
3757:
3758: -- IF the number of messages is 1 then fetch the message code from
3759: -- the stack and return its text
3760: x_msg_count := FND_MSG_PUB.Count_Msg;
3761:
3762: IF x_msg_count = 1 THEN
3763: pa_interface_utils_pub.get_messages
3764: ( p_encoded => FND_API.G_TRUE
3770: -- Reset the error stack when returning to the calling program
3771: PA_DEBUG.Reset_Err_Stack;
3772:
3773: -- If g_error_exists is TRUE then set the x_return_status to 'E'
3774: IF FND_MSG_PUB.Count_Msg >0 THEN
3775: x_return_status := FND_API.G_RET_STS_ERROR;
3776: END IF;
3777:
3778: EXCEPTION
3786: ROLLBACK TO MASS_ASGN_APPRVL;
3787: END IF;
3788:
3789: -- Set the excetption Message and the stack
3790: FND_MSG_PUB.add_exc_msg
3791: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.mass_assignment_approval'
3792: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3793:
3794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3800: ROLLBACK TO MASS_ASGN_APPRVL;
3801: END IF;
3802:
3803: -- Set the excetption Message and the stack
3804: FND_MSG_PUB.add_exc_msg
3805: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.mass_assignment_approval'
3806: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3807:
3808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3881: -- Initialize the return status to success
3882: x_return_status := FND_API.G_RET_STS_SUCCESS;
3883:
3884: --Clear the global PL/SQL message table
3885: FND_MSG_PUB.initialize;
3886:
3887: -- Issue API savepoint if the transaction is to be committed
3888: IF p_commit = FND_API.G_TRUE THEN
3889: SAVEPOINT MASS_APPRVL_RESULT;
4089: --Setting the original value
4090: wf_engine.threshold := l_save_threshold;
4091:
4092: -- Set the excetption Message and the stack
4093: FND_MSG_PUB.add_exc_msg
4094: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.mass_process_approval_result'
4095: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4096:
4097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4154: -- Initialize the return status to success
4155: x_return_status := FND_API.G_RET_STS_SUCCESS;
4156:
4157: --Clear the global PL/SQL message table
4158: FND_MSG_PUB.initialize;
4159:
4160: -- Issue API savepoint if the transaction is to be committed
4161: IF p_commit = FND_API.G_TRUE THEN
4162: SAVEPOINT MASS_APPRVL_VALIDATE_NAMEID;
4304: --x_approver2_id_tbl (i) := l_approver2_person_id;
4305:
4306: END IF;
4307:
4308: log_message('COUNT of message stack:' || FND_MSG_PUB.Count_Msg);
4309:
4310: -------------------------------------------
4311: --Populate x_success_assignment_id_tbl
4312: -------------------------------------------
4309:
4310: -------------------------------------------
4311: --Populate x_success_assignment_id_tbl
4312: -------------------------------------------
4313: IF FND_MSG_PUB.Count_Msg > 0 THEN
4314:
4315: --Setting pending approval flag in pa_project_assignments
4316: PA_ASGMT_WFSTD.Maintain_wf_pending_flag
4317: (p_assignment_id => p_assignment_id_tbl(i),
4328: ELSE
4329: x_assignment_id_tbl (i) := p_assignment_id_tbl (i);
4330: END IF;
4331:
4332: IF FND_MSG_PUB.Count_Msg > 0 THEN
4333:
4334: SELECT resource_id
4335: INTO l_resource_id
4336: FROM pa_project_assignments
4363: ROLLBACK TO MASS_APPRVL_VALIDATE_NAMEID;
4364: END IF;
4365:
4366: -- Set the excetption Message and the stack
4367: FND_MSG_PUB.add_exc_msg
4368: ( p_pkg_name => 'PA_ASSIGNMENT_APPROVAL_PUB.validate_approver_name_id'
4369: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4370:
4371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;