[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
3474: CLOSE l_get_record_version_csr;
3475:
3476: -- call the pa_asgmt_approval_pvt to update the
3477: -- assignment approval status and the schedules
3478: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3479: SAVEPOINT asgmt_apprvl;
3480:
3481: pa_assignment_approval_pvt.update_approval_status
3482: (p_assignment_id => p_assignment_id,
3490: x_msg_data => l_msg_data );
3491:
3492: -- if return status <> SUCCESS, populate the error messages rollback to asgmt_apprvl
3493: -- and return error
3494: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3495: set_nf_error_msg_attr (p_item_type => p_item_type,
3496: p_item_key => p_item_key,
3497: p_msg_count => l_msg_count,
3498: p_msg_data => l_msg_data);
3518: ,p_assignment_id => p_assignment_id
3519: ,x_return_status => l_return_status
3520: ,x_msg_count => l_msg_count
3521: ,x_msg_data => l_msg_data);
3522: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3523: RAISE FND_API.G_EXC_ERROR;
3524: END IF;*/
3525:
3526: -- complete post overcommitment processing
3519: ,x_return_status => l_return_status
3520: ,x_msg_count => l_msg_count
3521: ,x_msg_data => l_msg_data);
3522: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3523: RAISE FND_API.G_EXC_ERROR;
3524: END IF;*/
3525:
3526: -- complete post overcommitment processing
3527: PA_SCHEDULE_PVT.OVERCOM_POST_APRVL_PROCESSING
3529: ,p_fnd_user_name => l_submitter_uname
3530: ,x_return_status => l_return_status
3531: ,x_msg_count => l_msg_count
3532: ,x_msg_data => l_msg_data);
3533: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3534: RAISE FND_API.G_EXC_ERROR;
3535: END IF;*/
3536: END IF; -- IF (l_conflict_group_id IS NOT NULL...
3537: END IF;
3530: ,x_return_status => l_return_status
3531: ,x_msg_count => l_msg_count
3532: ,x_msg_data => l_msg_data);
3533: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3534: RAISE FND_API.G_EXC_ERROR;
3535: END IF;*/
3536: END IF; -- IF (l_conflict_group_id IS NOT NULL...
3537: END IF;
3538:
3833:
3834: IF l_msg_count > 1 THEN
3835: FOR i in 1..l_msg_count LOOP
3836: pa_interface_utils_pub.get_messages
3837: (p_encoded => FND_API.G_FALSE,
3838: p_msg_index => i,
3839: p_msg_count => l_msg_count ,
3840: p_msg_data => l_msg_data ,
3841: p_data => l_data,
3888: IF i > 5 THEN
3889: EXIT;
3890: END IF;
3891: pa_interface_utils_pub.get_messages
3892: (p_encoded => FND_API.G_FALSE,
3893: p_msg_index => i,
3894: p_msg_count => p_msg_count ,
3895: p_msg_data => p_msg_data ,
3896: p_data => l_data,
4436: --This API is called in mass_assignment_approval
4437: --and in process_approval_result_wf
4438: --------------------------------------------
4439: PROCEDURE start_mass_approval_flow
4440: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4441: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4442: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4443: ,p_forwarded_from IN VARCHAR2
4444: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4437: --and in process_approval_result_wf
4438: --------------------------------------------
4439: PROCEDURE start_mass_approval_flow
4440: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4441: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4442: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4443: ,p_forwarded_from IN VARCHAR2
4444: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4445: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4438: --------------------------------------------
4439: PROCEDURE start_mass_approval_flow
4440: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4441: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4442: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4443: ,p_forwarded_from IN VARCHAR2
4444: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4445: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4446: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4440: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4441: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4442: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4443: ,p_forwarded_from IN VARCHAR2
4444: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4445: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4446: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4447: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4448: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4441: ,p_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4442: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4443: ,p_forwarded_from IN VARCHAR2
4444: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4445: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4446: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4447: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4448: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4449: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4442: ,p_note_to_approvers IN VARCHAR2 := FND_API.G_MISS_CHAR
4443: ,p_forwarded_from IN VARCHAR2
4444: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4445: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4446: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4447: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4448: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4449: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4450: ,p_project_name IN VARCHAR2
4443: ,p_forwarded_from IN VARCHAR2
4444: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4445: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4446: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4447: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4448: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4449: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4450: ,p_project_name IN VARCHAR2
4451: ,p_project_number IN VARCHAR2
4444: ,p_performer_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4445: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4446: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4447: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4448: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4449: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4450: ,p_project_name IN VARCHAR2
4451: ,p_project_number IN VARCHAR2
4452: ,p_project_manager IN VARCHAR2
4445: ,p_routing_order IN NUMBER := FND_API.G_MISS_NUM
4446: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
4447: ,p_approver_group_id IN NUMBER := FND_API.G_MISS_NUM
4448: ,p_submitter_user_name IN VARCHAR2 := FND_API.G_MISS_CHAR
4449: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
4450: ,p_project_name IN VARCHAR2
4451: ,p_project_number IN VARCHAR2
4452: ,p_project_manager IN VARCHAR2
4453: ,p_project_org IN VARCHAR2
4451: ,p_project_number IN VARCHAR2
4452: ,p_project_manager IN VARCHAR2
4453: ,p_project_org IN VARCHAR2
4454: ,p_project_cus IN VARCHAR2
4455: ,p_conflict_group_id IN NUMBER := FND_API.G_MISS_NUM
4456: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
4457: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
4458: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
4459: IS
4494: ,x_log_level => 1);
4495: END IF;
4496:
4497: -- Initialize the return status to success
4498: x_return_status := FND_API.G_RET_STS_SUCCESS;
4499:
4500: --Clear the global PL/SQL message table
4501: FND_MSG_PUB.initialize;
4502:
4765: FND_MSG_PUB.add_exc_msg
4766: ( p_pkg_name => 'PA_ASGMT_WFSTD.start_mass_Approval_flow'
4767: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4768:
4769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4770: RAISE;
4771: END start_mass_approval_flow;
4772:
4773:
4775: * asignments have been approved or rejected. It sends the following notification.
4776: * 1. Resource FYI for every assignment approved/rejected
4777: */
4778: PROCEDURE process_res_fyi_notification
4779: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4780: ,p_assignment_id IN NUMBER := FND_API.G_MISS_NUM
4781: ,p_mode IN VARCHAR2
4782: ,p_project_name IN VARCHAR2
4783: ,p_project_number IN VARCHAR2
4776: * 1. Resource FYI for every assignment approved/rejected
4777: */
4778: PROCEDURE process_res_fyi_notification
4779: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
4780: ,p_assignment_id IN NUMBER := FND_API.G_MISS_NUM
4781: ,p_mode IN VARCHAR2
4782: ,p_project_name IN VARCHAR2
4783: ,p_project_number IN VARCHAR2
4784: ,p_project_manager IN VARCHAR2
4924: END IF;
4925: log_message('Inside process res mgr');
4926:
4927: -- Initialize the return status to success
4928: x_return_status := FND_API.G_RET_STS_SUCCESS;
4929:
4930: --Clear the global PL/SQL message table
4931: FND_MSG_PUB.initialize;
4932: x_msg_count := 0;
5051: OPEN l_assignments_csr;
5052: FETCH l_assignments_csr INTO l_assignments_rec;
5053:
5054: IF l_assignments_csr%NOTFOUND THEN
5055: x_return_status := FND_API.G_RET_STS_ERROR;
5056: pa_utils.add_message (p_app_short_name => 'PA',
5057: p_msg_name => 'PA_INVALID_ASMGT_ID');
5058: x_msg_count := x_msg_count + 1;
5059:
5088: OPEN l_resource_csr(l_resource_id, l_resource_start_date);
5089: FETCH l_resource_csr INTO l_resource_rec;
5090:
5091: IF l_resource_csr%NOTFOUND THEN
5092: x_return_status := FND_API.G_RET_STS_ERROR;
5093: pa_utils.add_message (p_app_short_name => 'PA',
5094: p_msg_name => 'PA_INVALID_PERSON_ID');
5095: x_msg_count := x_msg_count + 1;
5096: END IF;
5442: x_msg_count := FND_MSG_PUB.Count_Msg;
5443:
5444: IF x_msg_count = 1 THEN
5445: pa_interface_utils_pub.get_messages
5446: ( p_encoded => FND_API.G_TRUE
5447: ,p_msg_index => 1
5448: ,p_data => x_msg_data
5449: ,p_msg_index_out => l_msg_index_out );
5450: END IF;
5453: PA_DEBUG.Reset_Err_Stack;
5454:
5455: -- If g_error_exists is TRUE then set the x_return_status to 'E'
5456: IF FND_MSG_PUB.Count_Msg >0 THEN
5457: x_return_status := FND_API.G_RET_STS_ERROR;
5458: END IF;
5459:
5460: EXCEPTION
5461: WHEN OTHERS THEN
5467: FND_MSG_PUB.add_exc_msg
5468: ( p_pkg_name => 'PA_ASGMT_WFSTD.process_res_fyi_notification'
5469: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
5470:
5471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5472: RAISE;
5473: END process_res_fyi_notification;
5474:
5475: --------------------------------------------------------
5481: ( itemtype IN VARCHAR2
5482: ,itemkey IN VARCHAR2
5483: ,p_group_id IN NUMBER
5484: ,p_mode IN VARCHAR2
5485: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
5486: ,p_num_apr_asgns IN NUMBER
5487: ,p_num_rej_asgns IN NUMBER
5488: ,p_project_name IN VARCHAR2
5489: ,p_project_number IN VARCHAR2
5489: ,p_project_number IN VARCHAR2
5490: ,p_project_manager IN VARCHAR2
5491: ,p_project_org IN VARCHAR2
5492: ,p_project_cus IN VARCHAR2
5493: ,p_conflict_group_id IN NUMBER := FND_API.G_MISS_NUM
5494: ,p_notified_id IN NUMBER
5495: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5496: ,x_msg_count OUT NOCOPY NUMBER ) --File.Sql.39 bug 4440895
5497: IS
5569: OPEN l_assignments_csr (l_assignment_id);
5570: FETCH l_assignments_csr INTO l_assignments_rec;
5571:
5572: IF l_assignments_csr%NOTFOUND THEN
5573: x_return_status := FND_API.G_RET_STS_ERROR;
5574: pa_utils.add_message (p_app_short_name => 'PA',
5575: p_msg_name => 'PA_INVALID_ASMGT_ID');
5576: l_msg_count := l_msg_count + 1;
5577:
5843: , aname => 'PROJECT_CUSTOMER'
5844: , avalue => p_project_cus );
5845:
5846: -- Always display View Conflict link
5847: IF (p_conflict_group_id IS NUll OR p_conflict_group_id = FND_API.G_MISS_NUM) THEN
5848: l_conflict_group_id := '';
5849: ELSE
5850: l_conflict_group_id := p_conflict_group_id;
5851: END IF;
5874: * Notifications are then sent to recipients from the pa_wf_ntf_performers table
5875: */
5876: PROCEDURE process_mgr_fyi_notification
5877: ( p_assignment_id_tbl IN SYSTEM.pa_num_tbl_type
5878: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
5879: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
5880: ,p_mode IN VARCHAR2
5881: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
5882: ,p_num_apr_asgns IN NUMBER
5875: */
5876: PROCEDURE process_mgr_fyi_notification
5877: ( p_assignment_id_tbl IN SYSTEM.pa_num_tbl_type
5878: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
5879: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
5880: ,p_mode IN VARCHAR2
5881: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
5882: ,p_num_apr_asgns IN NUMBER
5883: ,p_num_rej_asgns IN NUMBER
5877: ( p_assignment_id_tbl IN SYSTEM.pa_num_tbl_type
5878: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
5879: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
5880: ,p_mode IN VARCHAR2
5881: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
5882: ,p_num_apr_asgns IN NUMBER
5883: ,p_num_rej_asgns IN NUMBER
5884: ,p_project_name IN VARCHAR2
5885: ,p_project_number IN VARCHAR2
5886: ,p_project_manager IN VARCHAR2
5887: ,p_project_org IN VARCHAR2
5888: ,p_project_cus IN VARCHAR2
5889: ,p_submitter_user_name IN VARCHAR2
5890: ,p_conflict_group_id IN NUMBER := FND_API.G_MISS_NUM
5891: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5892: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5893: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
5894: IS
6011: ,x_log_level => 1);
6012: END IF;
6013:
6014: -- Initialize the return status to success
6015: x_return_status := FND_API.G_RET_STS_SUCCESS;
6016:
6017: --Clear the global PL/SQL message table
6018: FND_MSG_PUB.initialize;
6019:
6050: ,x_project_role_name => l_project_role_name
6051: ,x_return_status => l_return_status
6052: ,x_error_message_code => l_error_message_code );
6053:
6054: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6055: PA_UTILS.Add_Message( p_app_short_name => 'PA'
6056: ,p_msg_name => l_error_message_code);
6057: END IF;
6058:
6055: PA_UTILS.Add_Message( p_app_short_name => 'PA'
6056: ,p_msg_name => l_error_message_code);
6057: END IF;
6058:
6059: l_return_status := FND_API.G_MISS_CHAR;
6060: l_error_message_code := FND_API.G_MISS_CHAR;
6061:
6062: END IF; --end l_admin_project = 'N'
6063:
6056: ,p_msg_name => l_error_message_code);
6057: END IF;
6058:
6059: l_return_status := FND_API.G_MISS_CHAR;
6060: l_error_message_code := FND_API.G_MISS_CHAR;
6061:
6062: END IF; --end l_admin_project = 'N'
6063:
6064: log_message('After Getting manager');
6414: x_msg_count := FND_MSG_PUB.Count_Msg;
6415:
6416: IF x_msg_count = 1 THEN
6417: pa_interface_utils_pub.get_messages
6418: ( p_encoded => FND_API.G_TRUE
6419: ,p_msg_index => 1
6420: ,p_data => x_msg_data
6421: ,p_msg_index_out => l_msg_index_out );
6422: END IF;
6425: PA_DEBUG.Reset_Err_Stack;
6426:
6427: -- If g_error_exists is TRUE then set the x_return_status to 'E'
6428: IF FND_MSG_PUB.Count_Msg >0 THEN
6429: x_return_status := FND_API.G_RET_STS_ERROR;
6430: END IF;
6431:
6432: EXCEPTION
6433: WHEN OTHERS THEN
6436: FND_MSG_PUB.add_exc_msg
6437: ( p_pkg_name => 'PA_ASGMT_WFSTD.process_mgr_fyi_notification'
6438: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6439:
6440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6441: RAISE;
6442: END process_mgr_fyi_notification;
6443:
6444:
6494: ,x_log_level => 1);
6495: END IF;
6496:
6497: -- Initialize the return status to success
6498: x_return_status := FND_API.G_RET_STS_SUCCESS;
6499:
6500: --Clear the global PL/SQL message table
6501: FND_MSG_PUB.initialize;
6502:
6606: x_msg_count := FND_MSG_PUB.Count_Msg;
6607:
6608: IF x_msg_count = 1 THEN
6609: pa_interface_utils_pub.get_messages
6610: ( p_encoded => FND_API.G_TRUE
6611: ,p_msg_index => 1
6612: ,p_data => x_msg_data
6613: ,p_msg_index_out => l_msg_index_out );
6614: END IF;
6617: PA_DEBUG.Reset_Err_Stack;
6618:
6619: -- If g_error_exists is TRUE then set the x_return_status to 'E'
6620: IF FND_MSG_PUB.Count_Msg >0 THEN
6621: x_return_status := FND_API.G_RET_STS_ERROR;
6622: END IF;
6623:
6624: EXCEPTION
6625: WHEN OTHERS THEN
6628: FND_MSG_PUB.add_exc_msg
6629: ( p_pkg_name => 'PA_ASGMT_WFSTD.process_approval_result_wf'
6630: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6631:
6632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6633: RAISE;
6634: END process_approval_result_wf;
6635:
6636: -----------------------------------------------------------
6696:
6697: EXCEPTION
6698: WHEN OTHERS THEN
6699:
6700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6701: RAISE;
6702: END Revert_assignment_status;
6703:
6704: ----------------------------------------------------------
6843: p_source_identifier2 => p_group_id,
6844: p_context1 => p_project_id,
6845: p_context2 => p_assignment_id,
6846: p_context3 => l_resource_id,
6847: p_commit => FND_API.G_TRUE,
6848: x_return_status => l_return_status);
6849:
6850: log_message('After Error in res_fyi');
6851:
7016: ,x_error_message_code => l_error_message_code );
7017:
7018: -- Only non-admin projects require a manager
7019: IF l_projects_rec.admin_flag = 'N' THEN
7020: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7021: x_return_status := l_return_status;
7022: x_error_message_code := l_error_message_code;
7023: pa_utils.add_message (p_app_short_name => 'PA',
7024: p_msg_name => l_error_message_code);
7260: log_message('After call to mgr fyi');
7261:
7262: EXCEPTION
7263: WHEN OTHERS THEN
7264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7265: RAISE;
7266: END process_approval_result;
7267:
7268: -----------------------------------------------------------
7273: --when there are no errors and in that case notification
7274: --is not sent to the submitter
7275: -----------------------------------------------------------
7276: PROCEDURE process_submitter_notification
7277: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
7278: ,p_mode IN VARCHAR2
7279: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
7280: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
7281: ,p_num_apr_asgns IN NUMBER
7275: -----------------------------------------------------------
7276: PROCEDURE process_submitter_notification
7277: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
7278: ,p_mode IN VARCHAR2
7279: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
7280: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
7281: ,p_num_apr_asgns IN NUMBER
7282: ,p_num_rej_asgns IN NUMBER
7283: ,p_project_name IN VARCHAR2
7276: PROCEDURE process_submitter_notification
7277: ( p_project_id IN NUMBER := FND_API.G_MISS_NUM
7278: ,p_mode IN VARCHAR2
7279: ,p_group_id IN NUMBER := FND_API.G_MISS_NUM
7280: ,p_update_info_doc IN VARCHAR2 := FND_API.G_MISS_CHAR
7281: ,p_num_apr_asgns IN NUMBER
7282: ,p_num_rej_asgns IN NUMBER
7283: ,p_project_name IN VARCHAR2
7284: ,p_project_number IN VARCHAR2
7285: ,p_project_manager IN VARCHAR2
7286: ,p_project_org IN VARCHAR2
7287: ,p_project_cus IN VARCHAR2
7288: ,p_submitter_user_name IN VARCHAR2
7289: ,p_assignment_id IN NUMBER := FND_API.G_MISS_NUM
7290: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
7291: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
7292: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
7293: IS
7378: ,x_log_level => 1);
7379: END IF;
7380:
7381: -- Initialize the return status to success
7382: x_return_status := FND_API.G_RET_STS_SUCCESS;
7383:
7384: --Clear the global PL/SQL message table
7385: FND_MSG_PUB.initialize;
7386: x_msg_count := 0;
7477: OPEN l_assignments_csr (l_assignment_id);
7478: FETCH l_assignments_csr INTO l_assignments_rec;
7479:
7480: IF l_assignments_csr%NOTFOUND THEN
7481: x_return_status := FND_API.G_RET_STS_ERROR;
7482: pa_utils.add_message (p_app_short_name => 'PA',
7483: p_msg_name => 'PA_INVALID_ASMGT_ID');
7484: END IF;
7485:
7746: x_msg_count := FND_MSG_PUB.Count_Msg;
7747:
7748: IF x_msg_count = 1 THEN
7749: pa_interface_utils_pub.get_messages
7750: ( p_encoded => FND_API.G_TRUE
7751: ,p_msg_index => 1
7752: ,p_data => x_msg_data
7753: ,p_msg_index_out => l_msg_index_out );
7754: END IF;
7757: PA_DEBUG.Reset_Err_Stack;
7758:
7759: -- If g_error_exists is TRUE then set the x_return_status to 'E'
7760: IF FND_MSG_PUB.Count_Msg >0 THEN
7761: x_return_status := FND_API.G_RET_STS_ERROR;
7762: END IF;
7763:
7764: EXCEPTION
7765: WHEN NO_ASSIGNMENT_ERRORS THEN
7762: END IF;
7763:
7764: EXCEPTION
7765: WHEN NO_ASSIGNMENT_ERRORS THEN
7766: x_return_status := FND_API.G_RET_STS_SUCCESS;
7767: WHEN OTHERS THEN
7768:
7769: --Setting the original value
7770: wf_engine.threshold := l_save_threshold;
7773: FND_MSG_PUB.add_exc_msg
7774: ( p_pkg_name => 'PA_ASGMT_WFSTD.process_submitter_notification'
7775: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
7776:
7777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7778: RAISE;
7779: END process_submitter_notification;
7780:
7781: ---------------------------------------------------------
8150: p_source_identifier2 => l_group_id,
8151: p_context1 => l_project_id,
8152: p_context2 => l_assignment_id_tbl(i),
8153: p_context3 => l_resource_id,
8154: p_commit => FND_API.G_FALSE,
8155: x_return_status => l_return_status);
8156:
8157: END LOOP;
8158: