[Home] [Help]
302: l_last_approver_uname fnd_user.USER_NAME%TYPE; --- VARCHAR2(240); -- Added for the bug 3817940
303: l_res_manager_id PER_PEOPLE_F.PERSON_ID%TYPE; -- Added for bug 4334741
304: BEGIN
305: -- dbms_output.put_line ('inside start workflow');
306: x_return_status := FND_API.G_RET_STS_SUCCESS;
307: /*
308: IF fnd_msg_pub.count_msg > 0 THEN
309: insert_into_temp ('msgs in stack inside start_workflow is',
310: fnd_msg_pub.count_msg);
334: -- Now start fetching the details
335: OPEN l_assignments_csr;
336: FETCH l_assignments_csr INTO l_assignments_rec;
337: IF l_assignments_csr%NOTFOUND THEN
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: pa_utils.add_message (p_app_short_name => 'PA',
340: p_msg_name => 'PA_INVALID_ASMGT_ID');
341: x_error_message_code := 'PA_INVALID_ASMGT_ID'; -- msg already avail
342: CLOSE l_assignments_csr;
347: -- := l_assignments_rec.apprvl_status_code;
348: /*
349: -- Do not launch a workflow if an approval is already pending
350: IF NVL(l_assignments_rec.pending_approval_flag, 'N') = 'Y' THEN
351: x_return_status := FND_API.G_RET_STS_ERROR;
352: pa_utils.add_message (p_app_short_name => 'PA',
353: p_msg_name =>
354: 'PA_ASG_APPROVAL_PENDING' );
355: x_error_message_code := 'PA_ASG_APPROVAL_PENDING';
361: l_wf_success_status_code,
362: l_wf_failure_status_code,
363: l_project_status_name ;
364: IF l_stus_csr%NOTFOUND THEN
365: x_return_status := FND_API.G_RET_STS_ERROR;
366: pa_utils.add_message (p_app_short_name => 'PA',
367: p_msg_name => 'PA_INVALID_STATUS_CODE');
368: x_error_message_code := 'PA_INVALID_STATUS_CODE';-- msg already avail
369: CLOSE l_stus_csr;
374:
375: OPEN l_projects_csr(l_assignments_rec.project_id);
376: FETCH l_projects_csr INTO l_projects_rec;
377: IF l_projects_csr%NOTFOUND THEN
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: x_error_message_code := 'PA_INVALID_PROJECT_ID'; -- msg already avail
380: pa_utils.add_message (p_app_short_name => 'PA',
381: p_msg_name => 'PA_INVALID_PROJECT_ID');
382: CLOSE l_projects_csr;
412: ,x_return_status => l_return_status
413: ,x_error_message_code => l_error_message_code );
414: -- dbms_output.put_line ('after pa_location_utils');
415:
416: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: x_return_status := l_return_status;
418: x_error_message_code := l_error_message_code ;
419: pa_utils.add_message (p_app_short_name => 'PA',
420: p_msg_name => l_error_message_code);
434:
435: OPEN l_resource_csr(l_assignments_rec.resource_id, l_resource_start_date );
436: FETCH l_resource_csr INTO l_resource_rec;
437: IF l_resource_csr%NOTFOUND THEN
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: x_error_message_code := 'PA_INVALID_PERSON_ID'; --msg already avail
440: pa_utils.add_message (p_app_short_name => 'PA',
441: p_msg_name => 'PA_INVALID_PERSON_ID');
442: CLOSE l_resource_csr;
458:
459: -- dbms_output.put_line ('after pa_project_parties_utils');
460: -- Only non-admin projects require a manager
461: IF l_projects_rec.admin_flag = 'N' THEN
462: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
463: x_return_status := l_return_status;
464: x_error_message_code := l_error_message_code;
465: pa_utils.add_message (p_app_short_name => 'PA',
466: p_msg_name => l_error_message_code);
471: l_msg_count := fnd_msg_pub.count_msg;
472: IF l_msg_count > 0 THEN
473: IF l_msg_count = 1 THEN
474: pa_interface_utils_pub.get_messages
475: (p_encoded => FND_API.G_TRUE,
476: p_msg_index => 1,
477: p_msg_count => l_msg_count,
478: p_msg_data => l_msg_data ,
479: p_data => l_data,
1459: fnd_msg_pub.add_exc_msg
1460: (p_pkg_name => 'PA_ASGMT_WFSTD',
1461: p_procedure_name => pa_debug.g_err_stack );
1462: x_msg_count := fnd_msg_pub.count_msg;
1463: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1464: END Start_Workflow ;
1465:
1466:
1467:
1496: -- The logic is
1497: -- If the approval status is a SUBMITTED status , then the
1498: -- workflow is an APPROVAL WORKFLOW. else if the status
1499: -- is an APPROVED or REJECTED status, the workflow is a FYI only
1500: x_return_status := FND_API.G_RET_STS_SUCCESS;
1501: x_msg_count := 0;
1502: pa_debug.init_err_stack ('pa_asgmt_wfstd.get_workflow_process_info');
1503: OPEN l_stus_csr;
1504: FETCH l_stus_csr INTO l_stus_rec;
1502: pa_debug.init_err_stack ('pa_asgmt_wfstd.get_workflow_process_info');
1503: OPEN l_stus_csr;
1504: FETCH l_stus_csr INTO l_stus_rec;
1505: IF l_stus_csr%NOTFOUND THEN
1506: x_return_status := FND_API.G_RET_STS_ERROR;
1507: x_error_message_code := 'PA_INVALID_STATUS_CODE';-- msg already avail
1508: pa_utils.add_message (p_app_short_name => 'PA',
1509: p_msg_name => 'PA_INVALID_STATUS_CODE');
1510: l_msg_count := l_msg_count + 1;
1516:
1517: IF l_msg_count > 0 THEN
1518: IF l_msg_count = 1 THEN
1519: pa_interface_utils_pub.get_messages
1520: (p_encoded => FND_API.G_TRUE,
1521: p_msg_index => 1,
1522: p_msg_count => l_msg_count,
1523: p_msg_data => l_msg_data ,
1524: p_data => l_data,
1528: ELSE
1529: x_msg_count := l_msg_count;
1530: END IF;
1531: pa_debug.reset_err_stack;
1532: x_return_status := FND_API.G_RET_STS_ERROR;
1533: RETURN;
1534: END IF;
1535:
1536: IF NVL(l_stus_rec.enable_wf_flag,'N') = 'N' THEN
1560: fnd_msg_pub.add_exc_msg
1561: (p_pkg_name => 'PA_ASGMT_WFSTD',
1562: p_procedure_name => pa_debug.g_err_stack );
1563: x_msg_count := fnd_msg_pub.count_msg;
1564: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1565: RAISE ;
1566: END Get_workflow_process_info ;
1567:
1568: FUNCTION Is_approval_pending (p_assignment_id IN NUMBER) RETURN VARCHAR2
1874: , x_msg_count => l_msg_count
1875: , x_msg_data => l_msg_data
1876: , x_return_status => l_return_status
1877: , x_error_message_code => l_error_message_code);
1878: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1879: raise_application_error(-20001, l_error_message_code);
1880: END IF;
1881: END IF;
1882: resultout := wf_engine.eng_completed||':'||'S';
1950: ,X_RETURN_STATUS => l_return_status
1951: ,X_MSG_COUNT => l_msg_count
1952: ,X_MSG_DATA => l_msg_data );
1953: */
1954: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1955: resultout := wf_engine.eng_completed||':'||'F';
1956: RETURN;
1957: END IF;
1958: resultout := wf_engine.eng_completed||':'||'S';
2027: ,x_return_status => l_return_status
2028: ,x_msg_count => l_msg_count
2029: ,x_msg_data => l_msg_data );
2030: */
2031: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2032: resultout := wf_engine.eng_completed||':'||'F';
2033: RETURN;
2034: END IF;
2035: resultout := wf_engine.eng_completed||':'||'S';
2095: ,x_msg_data => l_msg_data
2096: ,x_return_status => l_return_status
2097: ,x_error_message_code => l_error_message_code );
2098:
2099: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2100: resultout := wf_engine.eng_completed||':'||'N';
2101: RETURN;
2102: END IF;
2103: IF l_wf_type = 'NOT_ENABLED' THEN
3459: CLOSE l_get_record_version_csr;
3460:
3461: -- call the pa_asgmt_approval_pvt to update the
3462: -- assignment approval status and the schedules
3463: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3464: SAVEPOINT asgmt_apprvl;
3465:
3466: pa_assignment_approval_pvt.update_approval_status
3467: (p_assignment_id => p_assignment_id,
3475: x_msg_data => l_msg_data );
3476:
3477: -- if return status <> SUCCESS, populate the error messages rollback to asgmt_apprvl
3478: -- and return error
3479: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3480: set_nf_error_msg_attr (p_item_type => p_item_type,
3481: p_item_key => p_item_key,
3482: p_msg_count => l_msg_count,
3483: p_msg_data => l_msg_data);
3503: ,p_assignment_id => p_assignment_id
3504: ,x_return_status => l_return_status
3505: ,x_msg_count => l_msg_count
3506: ,x_msg_data => l_msg_data);
3507: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3508: RAISE FND_API.G_EXC_ERROR;
3509: END IF;*/
3510:
3511: -- complete post overcommitment processing
3504: ,x_return_status => l_return_status
3505: ,x_msg_count => l_msg_count
3506: ,x_msg_data => l_msg_data);
3507: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3508: RAISE FND_API.G_EXC_ERROR;
3509: END IF;*/
3510:
3511: -- complete post overcommitment processing
3512: PA_SCHEDULE_PVT.OVERCOM_POST_APRVL_PROCESSING
3514: ,p_fnd_user_name => l_submitter_uname
3515: ,x_return_status => l_return_status
3516: ,x_msg_count => l_msg_count
3517: ,x_msg_data => l_msg_data);
3518: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3519: RAISE FND_API.G_EXC_ERROR;
3520: END IF;*/
3521: END IF; -- IF (l_conflict_group_id IS NOT NULL...
3522: END IF;
3515: ,x_return_status => l_return_status
3516: ,x_msg_count => l_msg_count
3517: ,x_msg_data => l_msg_data);
3518: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3519: RAISE FND_API.G_EXC_ERROR;
3520: END IF;*/
3521: END IF; -- IF (l_conflict_group_id IS NOT NULL...
3522: END IF;
3523:
3818:
3819: IF l_msg_count > 1 THEN
3820: FOR i in 1..l_msg_count LOOP
3821: pa_interface_utils_pub.get_messages
3822: (p_encoded => FND_API.G_FALSE,
3823: p_msg_index => i,
3824: p_msg_count => l_msg_count ,
3825: p_msg_data => l_msg_data ,
3826: p_data => l_data,
3873: IF i > 5 THEN
3874: EXIT;
3875: END IF;
3876: pa_interface_utils_pub.get_messages
3877: (p_encoded => FND_API.G_FALSE,
3878: p_msg_index => i,
3879: p_msg_count => p_msg_count ,
3880: p_msg_data => p_msg_data ,
3881: p_data => l_data,
4421: --This API is called in mass_assignment_approval
4422: --and in process_approval_result_wf
4423: --------------------------------------------
4424: PROCEDURE start_mass_approval_flow
4425: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4426: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4427: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4428: ,p_forwarded_from IN VARCHAR2
4429: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4422: --and in process_approval_result_wf
4423: --------------------------------------------
4424: PROCEDURE start_mass_approval_flow
4425: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4426: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4427: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4428: ,p_forwarded_from IN VARCHAR2
4429: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4430: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4423: --------------------------------------------
4424: PROCEDURE start_mass_approval_flow
4425: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4426: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4427: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4428: ,p_forwarded_from IN VARCHAR2
4429: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4430: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4431: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4425: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4426: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4427: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4428: ,p_forwarded_from IN VARCHAR2
4429: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4430: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4431: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4432: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4433: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4426: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4427: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4428: ,p_forwarded_from IN VARCHAR2
4429: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4430: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4431: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4432: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4433: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4434: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4427: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4428: ,p_forwarded_from IN VARCHAR2
4429: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4430: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4431: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4432: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4433: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4434: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4435: ,p_project_name IN VARCHAR2
4428: ,p_forwarded_from IN VARCHAR2
4429: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4430: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4431: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4432: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4433: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4434: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4435: ,p_project_name IN VARCHAR2
4436: ,p_project_number IN VARCHAR2
4429: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4430: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4431: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4432: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4433: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4434: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4435: ,p_project_name IN VARCHAR2
4436: ,p_project_number IN VARCHAR2
4437: ,p_project_manager IN VARCHAR2
4430: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4431: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4432: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4433: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4434: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4435: ,p_project_name IN VARCHAR2
4436: ,p_project_number IN VARCHAR2
4437: ,p_project_manager IN VARCHAR2
4438: ,p_project_org IN VARCHAR2
4436: ,p_project_number IN VARCHAR2
4437: ,p_project_manager IN VARCHAR2
4438: ,p_project_org IN VARCHAR2
4439: ,p_project_cus IN VARCHAR2
4440: ,p_conflict_group_id IN NUMBER := FND_API.G_MISS_NUM
4441: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
4442: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
4443: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
4444: IS
4479: ,x_log_level => 1);
4480: END IF;
4481:
4482: -- Initialize the return status to success
4483: x_return_status := FND_API.G_RET_STS_SUCCESS;
4484:
4485: --Clear the global PL/SQL message table
4486: FND_MSG_PUB.initialize;
4487:
4749: FND_MSG_PUB.add_exc_msg
4750: ( p_pkg_name => 'PA_ASGMT_WFSTD.start_mass_Approval_flow'
4751: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4752:
4753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4754: RAISE;
4755: END start_mass_approval_flow;
4756:
4757:
4759: * asignments have been approved or rejected. It sends the following notification.
4760: * 1. Resource FYI for every assignment approved/rejected
4761: */
4762: PROCEDURE process_res_fyi_notification
4763: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4764: ,p_assignment_id IN NUMBER := FND_API.G_MISS_NUM
4765: ,p_mode IN VARCHAR2
4766: ,p_project_name IN VARCHAR2
4767: ,p_project_number IN VARCHAR2
4760: * 1. Resource FYI for every assignment approved/rejected
4761: */
4762: PROCEDURE process_res_fyi_notification
4763: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4764: ,p_assignment_id IN NUMBER := FND_API.G_MISS_NUM
4765: ,p_mode IN VARCHAR2
4766: ,p_project_name IN VARCHAR2
4767: ,p_project_number IN VARCHAR2
4768: ,p_project_manager IN VARCHAR2
4908: END IF;
4909: log_message('Inside process res mgr');
4910:
4911: -- Initialize the return status to success
4912: x_return_status := FND_API.G_RET_STS_SUCCESS;
4913:
4914: --Clear the global PL/SQL message table
4915: FND_MSG_PUB.initialize;
4916: x_msg_count := 0;
5035: OPEN l_assignments_csr;
5036: FETCH l_assignments_csr INTO l_assignments_rec;
5037:
5038: IF l_assignments_csr%NOTFOUND THEN
5039: x_return_status := FND_API.G_RET_STS_ERROR;
5040: pa_utils.add_message (p_app_short_name => 'PA',
5041: p_msg_name => 'PA_INVALID_ASMGT_ID');
5042: x_msg_count := x_msg_count + 1;
5043:
5072: OPEN l_resource_csr(l_resource_id, l_resource_start_date);
5073: FETCH l_resource_csr INTO l_resource_rec;
5074:
5075: IF l_resource_csr%NOTFOUND THEN
5076: x_return_status := FND_API.G_RET_STS_ERROR;
5077: pa_utils.add_message (p_app_short_name => 'PA',
5078: p_msg_name => 'PA_INVALID_PERSON_ID');
5079: x_msg_count := x_msg_count + 1;
5080: END IF;
5426: x_msg_count := FND_MSG_PUB.Count_Msg;
5427:
5428: IF x_msg_count = 1 THEN
5429: pa_interface_utils_pub.get_messages
5430: ( p_encoded => FND_API.G_TRUE
5431: ,p_msg_index => 1
5432: ,p_data => x_msg_data
5433: ,p_msg_index_out => l_msg_index_out );
5434: END IF;
5437: PA_DEBUG.Reset_Err_Stack;
5438:
5439: -- If g_error_exists is TRUE then set the x_return_status to 'E'
5440: IF FND_MSG_PUB.Count_Msg >0 THEN
5441: x_return_status := FND_API.G_RET_STS_ERROR;
5442: END IF;
5443:
5444: EXCEPTION
5445: WHEN OTHERS THEN
5451: FND_MSG_PUB.add_exc_msg
5452: ( p_pkg_name => 'PA_ASGMT_WFSTD.process_res_fyi_notification'
5453: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
5454:
5455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5456: RAISE;
5457: END process_res_fyi_notification;
5458:
5459: --------------------------------------------------------
5465: ( itemtype IN VARCHAR2
5466: ,itemkey IN VARCHAR2
5467: ,p_group_id IN NUMBER
5468: ,p_mode IN VARCHAR2
5469: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
5470: ,p_num_apr_asgns IN NUMBER
5471: ,p_num_rej_asgns IN NUMBER
5472: ,p_project_name IN VARCHAR2
5473: ,p_project_number IN VARCHAR2
5473: ,p_project_number IN VARCHAR2
5474: ,p_project_manager IN VARCHAR2
5475: ,p_project_org IN VARCHAR2
5476: ,p_project_cus IN VARCHAR2
5477: ,p_conflict_group_id IN NUMBER := FND_API.G_MISS_NUM
5478: ,p_notified_id IN NUMBER
5479: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5480: ,x_msg_count OUT NOCOPY NUMBER ) --File.Sql.39 bug 4440895
5481: IS
5553: OPEN l_assignments_csr (l_assignment_id);
5554: FETCH l_assignments_csr INTO l_assignments_rec;
5555:
5556: IF l_assignments_csr%NOTFOUND THEN
5557: x_return_status := FND_API.G_RET_STS_ERROR;
5558: pa_utils.add_message (p_app_short_name => 'PA',
5559: p_msg_name => 'PA_INVALID_ASMGT_ID');
5560: l_msg_count := l_msg_count + 1;
5561:
5827: , aname => 'PROJECT_CUSTOMER'
5828: , avalue => p_project_cus );
5829:
5830: -- Always display View Conflict link
5831: IF (p_conflict_group_id IS NUll OR p_conflict_group_id = FND_API.G_MISS_NUM) THEN
5832: l_conflict_group_id := '';
5833: ELSE
5834: l_conflict_group_id := p_conflict_group_id;
5835: END IF;
5858: * Notifications are then sent to recipients from the pa_wf_ntf_performers table
5859: */
5860: PROCEDURE process_mgr_fyi_notification
5861: ( p_assignment_id_tbl IN SYSTEM.pa_num_tbl_type
5862: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
5863: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
5864: ,p_mode IN VARCHAR2
5865: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
5866: ,p_num_apr_asgns IN NUMBER
5859: */
5860: PROCEDURE process_mgr_fyi_notification
5861: ( p_assignment_id_tbl IN SYSTEM.pa_num_tbl_type
5862: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
5863: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
5864: ,p_mode IN VARCHAR2
5865: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
5866: ,p_num_apr_asgns IN NUMBER
5867: ,p_num_rej_asgns IN NUMBER
5861: ( p_assignment_id_tbl IN SYSTEM.pa_num_tbl_type
5862: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
5863: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
5864: ,p_mode IN VARCHAR2
5865: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
5866: ,p_num_apr_asgns IN NUMBER
5867: ,p_num_rej_asgns IN NUMBER
5868: ,p_project_name IN VARCHAR2
5869: ,p_project_number IN VARCHAR2
5870: ,p_project_manager IN VARCHAR2
5871: ,p_project_org IN VARCHAR2
5872: ,p_project_cus IN VARCHAR2
5873: ,p_submitter_user_name IN VARCHAR2
5874: ,p_conflict_group_id IN NUMBER := FND_API.G_MISS_NUM
5875: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5876: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5877: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
5878: IS
5995: ,x_log_level => 1);
5996: END IF;
5997:
5998: -- Initialize the return status to success
5999: x_return_status := FND_API.G_RET_STS_SUCCESS;
6000:
6001: --Clear the global PL/SQL message table
6002: FND_MSG_PUB.initialize;
6003:
6034: ,x_project_role_name => l_project_role_name
6035: ,x_return_status => l_return_status
6036: ,x_error_message_code => l_error_message_code );
6037:
6038: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6039: PA_UTILS.Add_Message( p_app_short_name => 'PA'
6040: ,p_msg_name => l_error_message_code);
6041: END IF;
6042:
6039: PA_UTILS.Add_Message( p_app_short_name => 'PA'
6040: ,p_msg_name => l_error_message_code);
6041: END IF;
6042:
6043: l_return_status := FND_API.G_MISS_CHAR;
6044: l_error_message_code := FND_API.G_MISS_CHAR;
6045:
6046: END IF; --end l_admin_project = 'N'
6047:
6040: ,p_msg_name => l_error_message_code);
6041: END IF;
6042:
6043: l_return_status := FND_API.G_MISS_CHAR;
6044: l_error_message_code := FND_API.G_MISS_CHAR;
6045:
6046: END IF; --end l_admin_project = 'N'
6047:
6048: log_message('After Getting manager');
6398: x_msg_count := FND_MSG_PUB.Count_Msg;
6399:
6400: IF x_msg_count = 1 THEN
6401: pa_interface_utils_pub.get_messages
6402: ( p_encoded => FND_API.G_TRUE
6403: ,p_msg_index => 1
6404: ,p_data => x_msg_data
6405: ,p_msg_index_out => l_msg_index_out );
6406: END IF;
6409: PA_DEBUG.Reset_Err_Stack;
6410:
6411: -- If g_error_exists is TRUE then set the x_return_status to 'E'
6412: IF FND_MSG_PUB.Count_Msg >0 THEN
6413: x_return_status := FND_API.G_RET_STS_ERROR;
6414: END IF;
6415:
6416: EXCEPTION
6417: WHEN OTHERS THEN
6420: FND_MSG_PUB.add_exc_msg
6421: ( p_pkg_name => 'PA_ASGMT_WFSTD.process_mgr_fyi_notification'
6422: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6423:
6424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6425: RAISE;
6426: END process_mgr_fyi_notification;
6427:
6428:
6478: ,x_log_level => 1);
6479: END IF;
6480:
6481: -- Initialize the return status to success
6482: x_return_status := FND_API.G_RET_STS_SUCCESS;
6483:
6484: --Clear the global PL/SQL message table
6485: FND_MSG_PUB.initialize;
6486:
6590: x_msg_count := FND_MSG_PUB.Count_Msg;
6591:
6592: IF x_msg_count = 1 THEN
6593: pa_interface_utils_pub.get_messages
6594: ( p_encoded => FND_API.G_TRUE
6595: ,p_msg_index => 1
6596: ,p_data => x_msg_data
6597: ,p_msg_index_out => l_msg_index_out );
6598: END IF;
6601: PA_DEBUG.Reset_Err_Stack;
6602:
6603: -- If g_error_exists is TRUE then set the x_return_status to 'E'
6604: IF FND_MSG_PUB.Count_Msg >0 THEN
6605: x_return_status := FND_API.G_RET_STS_ERROR;
6606: END IF;
6607:
6608: EXCEPTION
6609: WHEN OTHERS THEN
6612: FND_MSG_PUB.add_exc_msg
6613: ( p_pkg_name => 'PA_ASGMT_WFSTD.process_approval_result_wf'
6614: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6615:
6616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6617: RAISE;
6618: END process_approval_result_wf;
6619:
6620: -----------------------------------------------------------
6680:
6681: EXCEPTION
6682: WHEN OTHERS THEN
6683:
6684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6685: RAISE;
6686: END Revert_assignment_status;
6687:
6688: ----------------------------------------------------------
6827: p_source_identifier2 => p_group_id,
6828: p_context1 => p_project_id,
6829: p_context2 => p_assignment_id,
6830: p_context3 => l_resource_id,
6831: p_commit => FND_API.G_TRUE,
6832: x_return_status => l_return_status);
6833:
6834: log_message('After Error in res_fyi');
6835:
7000: ,x_error_message_code => l_error_message_code );
7001:
7002: -- Only non-admin projects require a manager
7003: IF l_projects_rec.admin_flag = 'N' THEN
7004: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7005: x_return_status := l_return_status;
7006: x_error_message_code := l_error_message_code;
7007: pa_utils.add_message (p_app_short_name => 'PA',
7008: p_msg_name => l_error_message_code);
7244: log_message('After call to mgr fyi');
7245:
7246: EXCEPTION
7247: WHEN OTHERS THEN
7248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7249: RAISE;
7250: END process_approval_result;
7251:
7252: -----------------------------------------------------------
7257: --when there are no errors and in that case notification
7258: --is not sent to the submitter
7259: -----------------------------------------------------------
7260: PROCEDURE process_submitter_notification
7261: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
7262: ,p_mode IN VARCHAR2
7263: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
7264: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
7265: ,p_num_apr_asgns IN NUMBER
7259: -----------------------------------------------------------
7260: PROCEDURE process_submitter_notification
7261: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
7262: ,p_mode IN VARCHAR2
7263: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
7264: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
7265: ,p_num_apr_asgns IN NUMBER
7266: ,p_num_rej_asgns IN NUMBER
7267: ,p_project_name IN VARCHAR2
7260: PROCEDURE process_submitter_notification
7261: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
7262: ,p_mode IN VARCHAR2
7263: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
7264: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
7265: ,p_num_apr_asgns IN NUMBER
7266: ,p_num_rej_asgns IN NUMBER
7267: ,p_project_name IN VARCHAR2
7268: ,p_project_number IN VARCHAR2
7269: ,p_project_manager IN VARCHAR2
7270: ,p_project_org IN VARCHAR2
7271: ,p_project_cus IN VARCHAR2
7272: ,p_submitter_user_name IN VARCHAR2
7273: ,p_assignment_id IN NUMBER := FND_API.G_MISS_NUM
7274: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
7275: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
7276: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
7277: IS
7362: ,x_log_level => 1);
7363: END IF;
7364:
7365: -- Initialize the return status to success
7366: x_return_status := FND_API.G_RET_STS_SUCCESS;
7367:
7368: --Clear the global PL/SQL message table
7369: FND_MSG_PUB.initialize;
7370: x_msg_count := 0;
7461: OPEN l_assignments_csr (l_assignment_id);
7462: FETCH l_assignments_csr INTO l_assignments_rec;
7463:
7464: IF l_assignments_csr%NOTFOUND THEN
7465: x_return_status := FND_API.G_RET_STS_ERROR;
7466: pa_utils.add_message (p_app_short_name => 'PA',
7467: p_msg_name => 'PA_INVALID_ASMGT_ID');
7468: END IF;
7469:
7730: x_msg_count := FND_MSG_PUB.Count_Msg;
7731:
7732: IF x_msg_count = 1 THEN
7733: pa_interface_utils_pub.get_messages
7734: ( p_encoded => FND_API.G_TRUE
7735: ,p_msg_index => 1
7736: ,p_data => x_msg_data
7737: ,p_msg_index_out => l_msg_index_out );
7738: END IF;
7741: PA_DEBUG.Reset_Err_Stack;
7742:
7743: -- If g_error_exists is TRUE then set the x_return_status to 'E'
7744: IF FND_MSG_PUB.Count_Msg >0 THEN
7745: x_return_status := FND_API.G_RET_STS_ERROR;
7746: END IF;
7747:
7748: EXCEPTION
7749: WHEN NO_ASSIGNMENT_ERRORS THEN
7746: END IF;
7747:
7748: EXCEPTION
7749: WHEN NO_ASSIGNMENT_ERRORS THEN
7750: x_return_status := FND_API.G_RET_STS_SUCCESS;
7751: WHEN OTHERS THEN
7752:
7753: --Setting the original value
7754: wf_engine.threshold := l_save_threshold;
7757: FND_MSG_PUB.add_exc_msg
7758: ( p_pkg_name => 'PA_ASGMT_WFSTD.process_submitter_notification'
7759: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
7760:
7761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7762: RAISE;
7763: END process_submitter_notification;
7764:
7765: ---------------------------------------------------------
8134: p_source_identifier2 => l_group_id,
8135: p_context1 => l_project_id,
8136: p_context2 => l_assignment_id_tbl(i),
8137: p_context3 => l_resource_id,
8138: p_commit => FND_API.G_FALSE,
8139: x_return_status => l_return_status);
8140:
8141: END LOOP;
8142: