[Home] [Help]
1: PACKAGE BODY pa_assignments_pub AS
2: /*$Header: PARAPUBB.pls 120.28 2011/11/24 11:28:15 krkondur ship $*/
3: --
4:
5: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N'); /* Added Debug Profile Option variable initialization for bug#2674619 */
125: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
126: )
127: IS
128:
129: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
130: l_return_status VARCHAR2(1);
131: /*Added for the bug 3464074*/
132: l_person_name PER_PEOPLE_F.full_name%TYPE;
133: l_error_message_code fnd_new_messages.message_name%TYPE;
142: AND NVL(end_date_active,TRUNC(SYSDATE));
143: BEGIN
144:
145: -- Initialize the Error Stack
146: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment');
147:
148: -- Initialize the return status to success
149: x_return_status := FND_API.G_RET_STS_SUCCESS;
150:
155: END IF;
156:
157: --Log Message
158: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
159: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment.begin'
160: ,x_msg => 'Beginning of the Execute_Create_Assignment'
161: ,x_log_level => 5);
162: END IF;
163: /*
169: close c_validate_work_type;
170:
171: IF l_work_type_exixts='Y' then
172:
173: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment.begin'
174: ,x_msg => 'Work type is valid'
175: ,x_log_level => 5);
176: ELSE
177: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment.begin'
173: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment.begin'
174: ,x_msg => 'Work type is valid'
175: ,x_log_level => 5);
176: ELSE
177: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment.begin'
178: ,x_msg => 'Work type is not valid'
179: ,x_log_level => 5);
180:
181: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
179: ,x_log_level => 5);
180:
181: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
182: ,p_msg_name => 'PA_INVALID_WORK_TYPE');
183: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
184:
185:
186: END IF;
187:
205: FND_PROFILE.Get('PA_START_OPEN_ASGMT_STATUS',l_assignment_rec.status_code);
206: IF l_assignment_rec.status_code IS NULL THEN
207: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
208: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
209: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
210: END IF;
211: END IF;
212:
213: IF (p_assignment_type = 'STAFFED_ASSIGNMENT' OR p_assignment_type = 'STAFFED_ADMIN_ASSIGNMENT') THEN
214: FND_PROFILE.Get('PA_START_STAFFED_ASGMT_STATUS',l_assignment_rec.status_code);
215: IF l_assignment_rec.status_code IS NULL THEN
216: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
217: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
218: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
219: END IF;
220: END IF;
221:
222: ELSE
260: l_assignment_rec.calendar_id := p_calendar_id;
261: l_assignment_rec.resource_calendar_percent := p_resource_calendar_percent;
262:
263: IF P_DEBUG_MODE = 'Y' THEN
264: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment'
265: ,x_msg => 'Execute_Create_Assignment before L'
266: ,x_log_level => li_message_level);
267: END IF;
268:
278: l_assignment_rec.tp_percent_applied_override := p_tp_percent_applied_override;
279: l_assignment_rec.staffing_owner_person_id := p_staffing_owner_person_id;
280:
281: IF P_DEBUG_MODE = 'Y' THEN
282: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment'
283: ,x_msg => 'Execute_Create_Assignment before M'
284: ,x_log_level => li_message_level);
285: END IF;
286: -- FP.M Development
318: --Start Bug 3249669 : Check for profile option PA: Global Week Start Day being set.
319: IF NVL(FND_PROFILE.value('PA_GLOBAL_WEEK_START_DAY'),'N') = 'N' THEN
320: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
321: ,p_msg_name => 'PA_GLOBAL_WEEK_START_DAY_ERR' );
322: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
323: END IF;
324: --End Bug 3249669 : Check for profile option PA: Global Week Start Day being set.
325:
326: --Log Message
324: --End Bug 3249669 : Check for profile option PA: Global Week Start Day being set.
325:
326: --Log Message
327: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
328: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment.create_asgmt'
329: ,x_msg => 'Calling Create_Assignment'
330: ,x_log_level => 5);
331: END IF;
332:
352:
353: END IF;
354:
355: IF P_DEBUG_MODE = 'Y' THEN
356: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment'
357: ,x_msg => 'before calling pub.Create_Assignment'
358: ,x_log_level => li_message_level);
359: END IF;
360:
357: ,x_msg => 'before calling pub.Create_Assignment'
358: ,x_log_level => li_message_level);
359: END IF;
360:
361: PA_ASSIGNMENTS_PUB.Create_Assignment
362: ( p_assignment_rec => l_assignment_rec
363: ,p_asgn_creation_mode => p_asgn_creation_mode
364: ,p_project_number => p_project_number
365: ,p_project_name => p_project_name
397: ,x_msg_data => x_msg_data
398: );
399:
400: IF P_DEBUG_MODE = 'Y' THEN
401: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment'
402: ,x_msg => 'after calling pub.Create_Assignment'
403: ,x_log_level => li_message_level);
404: END IF;
405:
417: -- Bug 3132280 : MOved the following table initialization outside the if
418: -- so that the NPE can be avoided in Java Layer
419: x_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
420:
421: IF PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.count > 0 THEN -- Bug 3132280
422:
423: /*Added the code for bug 3079906*/
424: IF p_asgn_creation_mode <> 'MASS' OR (p_asgn_creation_mode = 'MASS' AND p_validate_only = FND_API.G_FALSE) THEN
425: -- Bug 3132280 x_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
422:
423: /*Added the code for bug 3079906*/
424: IF p_asgn_creation_mode <> 'MASS' OR (p_asgn_creation_mode = 'MASS' AND p_validate_only = FND_API.G_FALSE) THEN
425: -- Bug 3132280 x_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
426: FOR i in PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST..PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
427: x_new_assignment_id_tbl.extend(1);
428: x_new_assignment_id_tbl(i):=PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id;
429: END LOOP;
430: /* code addition for bug 3079906 ends*/
424: IF p_asgn_creation_mode <> 'MASS' OR (p_asgn_creation_mode = 'MASS' AND p_validate_only = FND_API.G_FALSE) THEN
425: -- Bug 3132280 x_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
426: FOR i in PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST..PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
427: x_new_assignment_id_tbl.extend(1);
428: x_new_assignment_id_tbl(i):=PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id;
429: END LOOP;
430: /* code addition for bug 3079906 ends*/
431: end if;
432: END IF;
432: END IF;
433: EXCEPTION
434: WHEN OTHERS THEN
435: -- Set the excetption Message and the stack
436: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Execute_Create_Assignment'
437: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
438: --
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
440: RAISE; -- This is optional depending on the needs
469: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
470: )
471: IS
472:
473: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
474: l_return_status VARCHAR2(1);
475: l_person_name PER_PEOPLE_F.full_name%TYPE;
476: l_err_msg_code VARCHAR2(80);
477:
478: BEGIN
479:
480:
481: -- Initialize the Error Stack
482: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Exec_Create_Assign_With_Def');
483:
484: -- Initialize the return status to success
485: x_return_status := FND_API.G_RET_STS_SUCCESS;
486:
490: END IF;
491:
492: --Log Message
493: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
494: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exec_Create_Assign_With_Def.begin'
495: ,x_msg => 'Beginning of the Exec_Create_Assign_With_Def'
496: ,x_log_level => 5);
497: END IF;
498:
522: ,x_error_message_code => l_err_msg_code);
523:
524: --Log Message
525: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
526: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exec_Create_Assign_With_Def.begin'
527: ,x_msg => 'Calling Create_Assign_With_Def'
528: ,x_log_level => 5);
529: END IF;
530: --
529: END IF;
530: --
531: -- Call the create staff assignment with defaults public API
532:
533: PA_ASSIGNMENTS_PUB.Create_Assign_With_Def
534: ( p_assignment_rec => l_assignment_rec
535: ,p_asgn_creation_mode => p_asgn_creation_mode
536: ,p_role_name => p_role_name
537: ,p_project_name => p_project_name
558: EXCEPTION
559: WHEN OTHERS THEN
560:
561: -- Set the excetption Message and the stack
562: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Execute_Create_Assignment'
563: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
564: --
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
566: RAISE; -- This is optional depending on the needs
568: END Exec_Create_Assign_With_Def;
569:
570:
571: PROCEDURE Create_Assign_With_Def
572: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
573: ,p_role_name IN pa_project_role_types.meaning%TYPE := FND_API.G_MISS_CHAR
574: ,p_asgn_creation_mode IN VARCHAR2 := 'FULL'
575: ,p_project_name IN pa_projects_all.name%TYPE := FND_API.G_MISS_CHAR
576: ,p_project_number IN pa_projects_all.segment1%TYPE := FND_API.G_MISS_CHAR
590: )
591:
592: IS
593:
594: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
595: l_return_status VARCHAR2(1);
596: l_schedulable_flag VARCHAR2(1);
597: l_msg_index_out NUMBER;
598: l_menu_id NUMBER;
631:
632: l_assignment_rec := p_assignment_rec;
633:
634: -- Initialize the Error Stack
635: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assign_With_Def');
636:
637: -- Initialize the error flag
638: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
639:
634: -- Initialize the Error Stack
635: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assign_With_Def');
636:
637: -- Initialize the error flag
638: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
639:
640: -- Initialize the return status to success
641: x_return_status := FND_API.G_RET_STS_SUCCESS;
642:
651: FND_MSG_PUB.initialize;
652: END IF;
653: --Log Message
654: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
655: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assign_With_Def.begin'
656: ,x_msg => 'Beginning of Create_Assign_With_Def'
657: ,x_log_level => 5);
658: END IF;
659:
712:
713: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
714: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
715: ,p_msg_name => l_error_message_code );
716: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
717: END IF;
718:
719: IF l_schedulable_flag <> 'Y' THEN
720: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
718:
719: IF l_schedulable_flag <> 'Y' THEN
720: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
721: ,p_msg_name => 'PA_ROLE_NOT_SCHEDULABLE' );
722: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
723: return;
724: END IF;
725:
726: --Log Message
724: END IF;
725:
726: --Log Message
727: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
728: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assign_With_Def.role_defaults'
729: ,x_msg => 'After gettting role defaults'
730: ,x_log_level => 5);
731: END IF;
732:
751: x_msg_count => l_msg_count,
752: x_msg_data => l_msg_data
753: );
754: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
755: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
756: END IF;
757:
758: --Log Message
759: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
756: END IF;
757:
758: --Log Message
759: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
760: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assign_With_Def.utilization_defaults'
761: ,x_msg => 'After gettting utilization defaults'
762: ,x_log_level => 5);
763: END IF;
764: END IF;
770: IF get_project_defaults%NOTFOUND THEN
771:
772: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
773: ,p_msg_name => 'PA_CANNOT_GET_PROJ_DEFAULTS');
774: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
775:
776: END IF;
777:
778: CLOSE get_project_defaults;
785: IF l_assignment_rec.status_code IS NULL THEN
786:
787: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
788: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
789: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
790:
791: END IF;
792:
793: -- Bug 3466411
801: ,x_error_message_code => l_err_msg_code);
802:
803: --Log Message
804: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
805: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assign_With_Def.create_asgmt'
806: ,x_msg => 'Calling Create_Assignment'
807: ,x_log_level => 5);
808: END IF;
809:
806: ,x_msg => 'Calling Create_Assignment'
807: ,x_log_level => 5);
808: END IF;
809:
810: PA_ASSIGNMENTS_PUB.Create_Assignment
811: ( p_assignment_rec => l_assignment_rec
812: ,p_asgn_creation_mode => p_asgn_creation_mode
813: ,p_project_name => p_project_name
814: ,p_project_number => p_project_number
873: IF p_commit = FND_API.G_TRUE THEN
874: ROLLBACK TO ASG_PUB_CREATE_ASGMT_WITH_DEF;
875: END IF;
876: -- Set the excetption Message and the stack
877: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Create_Assignment'
878: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
879: --
880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
881: RAISE; -- This is optional depending on the needs
886:
887:
888:
889: PROCEDURE Create_Assignment
890: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
891: ,p_asgn_creation_mode IN VARCHAR2 := 'FULL'
892: ,p_project_name IN pa_projects_all.name%TYPE := FND_API.G_MISS_CHAR
893: ,p_project_number IN pa_projects_all.segment1%TYPE := FND_API.G_MISS_CHAR
894: ,p_resource_name IN pa_resources.name%TYPE := FND_API.G_MISS_CHAR
926: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
927: )
928: IS
929:
930: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
931: l_resource_source_id NUMBER;
932: -- Bug: 4537865
933: l_new_resource_source_id NUMBER;
934: l_new_project_role_id pa_project_assignments.project_role_id%TYPE;
998:
999: BEGIN
1000:
1001: IF P_DEBUG_MODE = 'Y' THEN
1002: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1003: ,x_msg => 'Entrance of pub.Create_Assignment'
1004: ,x_log_level => li_message_level);
1005: END IF;
1006:
1003: ,x_msg => 'Entrance of pub.Create_Assignment'
1004: ,x_log_level => li_message_level);
1005: END IF;
1006:
1007: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Create_Assignment');
1008: /* Moved the call for deleting the global table from below to above for bug 3079906*/
1009: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
1010: -- Initialize the Error Stack
1011: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assignment');
1005: END IF;
1006:
1007: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Create_Assignment');
1008: /* Moved the call for deleting the global table from below to above for bug 3079906*/
1009: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
1010: -- Initialize the Error Stack
1011: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assignment');
1012:
1013: -- Initialize the error flag
1007: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Create_Assignment');
1008: /* Moved the call for deleting the global table from below to above for bug 3079906*/
1009: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
1010: -- Initialize the Error Stack
1011: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assignment');
1012:
1013: -- Initialize the error flag
1014: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
1015:
1010: -- Initialize the Error Stack
1011: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assignment');
1012:
1013: -- Initialize the error flag
1014: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
1015:
1016: -- Initialize the return status to success
1017: x_return_status := FND_API.G_RET_STS_SUCCESS;
1018:
1027: END IF;
1028:
1029: --Log Message
1030: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
1031: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment.begin'
1032: ,x_msg => 'Beginning of Create_Assignment'
1033: ,x_log_level => 5);
1034: END IF;
1035:
1058:
1059: IF l_workflow_in_progress_flag='Y' THEN
1060: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1061: ,p_msg_name => 'PA_NO_REQ_WF');
1062: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1063: x_return_status := FND_API.G_RET_STS_ERROR;
1064: END IF;
1065: END IF;
1066:
1075:
1076: --Assumption: Add Template Requirement does not pass in Project Number
1077:
1078: IF P_DEBUG_MODE = 'Y' THEN
1079: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1080: ,x_msg => 'before check project number'
1081: ,x_log_level => li_message_level);
1082: END IF;
1083:
1084: --Check to see if project number is passed in
1085: IF (p_project_number IS NOT NULL AND p_project_number <> FND_API.G_MISS_CHAR )THEN
1086:
1087: IF P_DEBUG_MODE = 'Y' THEN
1088: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1089: ,x_msg => 'project number is ok'
1090: ,x_log_level => li_message_level);
1091: END IF;
1092:
1103:
1104: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1105: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1106: ,p_msg_name => l_error_message_code);
1107: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1108: END IF;
1109: l_return_status := FND_API.G_MISS_CHAR;
1110: l_error_message_code := FND_API.G_MISS_CHAR;
1111:
1118:
1119: --dbms_output.put_line('Before Get project_number_info');
1120:
1121: IF P_DEBUG_MODE = 'Y' THEN
1122: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1123: ,x_msg => 'before get calendar id'
1124: ,x_log_level => li_message_level);
1125: END IF;
1126:
1140: l_admin_flag <> 'Y') OR
1141: (l_assignment_rec.assignment_type = 'STAFFED_ASSIGNMENT' AND l_admin_flag = 'Y') THEN
1142: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1143: ,p_msg_name => 'PA_CREATE_ADMIN_RESTRICT');
1144: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1145: END IF; --staffed admin or staffed assignment with admin project
1146:
1147: IF P_DEBUG_MODE = 'Y' THEN
1148: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1144: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1145: END IF; --staffed admin or staffed assignment with admin project
1146:
1147: IF P_DEBUG_MODE = 'Y' THEN
1148: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1149: ,x_msg => 'before calendar=PROJECT?'
1150: ,x_log_level => li_message_level);
1151: END IF;
1152:
1174: END IF;
1175: IF l_unassigned_time = 'Y' THEN
1176: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1177: ,p_msg_name => 'PA_NO_ASGMT_UNASSIGN_TIME_PROJ');
1178: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1179: END IF;
1180:
1181: -- Check for Org Project
1182: PA_FP_ORG_FCST_UTILS.detect_org_project(
1189: PA_ASSIGNMENT_UTILS.Add_Message(
1190: p_app_short_name => 'PA'
1191: ,p_msg_name => l_error_message_code
1192: );
1193: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1194: END IF;
1195:
1196: l_return_status := FND_API.G_MISS_CHAR;
1197: l_error_message_code := FND_API.G_MISS_CHAR;
1202: --
1203: IF l_assignment_rec.start_date > l_assignment_rec.end_date THEN
1204: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1205: ,p_msg_name => 'PA_INVALID_START_DATE');
1206: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1207: END IF;
1208:
1209:
1210: --
1242:
1243: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1244: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1245: ,p_msg_name => l_error_message_code);
1246: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1247: l_assignment_rec.resource_id := NULL;
1248: END IF;
1249:
1250: l_return_status := FND_API.G_MISS_CHAR;
1293: ,x_error_message_code => l_error_message_code);
1294: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1295: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1296: , p_msg_name => l_error_message_code);
1297: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1298: END IF;
1299: l_return_status := FND_API.G_MISS_CHAR;
1300: l_error_message_code := FND_API.G_MISS_CHAR;
1301:
1319: ,x_error_message_code => l_error_message_code);
1320:
1321: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_resource_type_id <> 101 THEN
1322: PA_UTILS.Add_Message ('PA', 'PA_INV_STAFF_OWNER');
1323: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1324: END IF;
1325:
1326: l_return_status := FND_API.G_MISS_CHAR;
1327: l_error_message_code := FND_API.G_MISS_CHAR;
1328:
1329: END IF;
1330:
1331: IF P_DEBUG_MODE = 'Y' THEN
1332: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1333: ,x_msg => 'before calendar = resource'
1334: ,x_log_level => li_message_level);
1335: END IF;
1336:
1340: IF l_assignment_rec.calendar_type = 'RESOURCE' AND
1341: (l_assignment_rec.resource_calendar_percent IS NULL OR l_assignment_rec.resource_calendar_percent < 0 OR l_assignment_rec.resource_calendar_percent > 100) THEN
1342: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1343: ,p_msg_name => 'PA_CALENDAR_PERCENT_INVALID');
1344: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1345: END IF;
1346:
1347: -- initialize local action set id variable
1348: --
1403:
1404: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1405: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1406: , p_msg_name => l_error_message_code );
1407: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1408: END IF;
1409: l_return_status := FND_API.G_MISS_CHAR;
1410: l_error_message_code := FND_API.G_MISS_CHAR;
1411:
1428: ,x_error_message_code => l_error_message_code );
1429: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1430: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1431: ,p_msg_name => l_error_message_code );
1432: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1433: END IF;
1434: l_return_status := FND_API.G_MISS_CHAR;
1435: l_error_message_code := FND_API.G_MISS_CHAR;
1436: -- if country is not passed in, but region/city is passed in, give an error.
1437: ELSIF (p_location_city IS NOT NULL AND p_location_city <> FND_API.G_MISS_CHAR) OR
1438: (p_location_region IS NOT NULL AND p_location_region <> FND_API.G_MISS_CHAR) THEN
1439: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1440: ,p_msg_name => 'PA_COUNTRY_INVALID');
1441: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1442: END IF;
1443:
1444: --
1445: --
1455: ,x_error_message_code => l_error_message_code );
1456: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1457: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1458: ,p_msg_name => l_error_message_code );
1459: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1460: END IF;
1461: l_return_status := FND_API.G_MISS_CHAR;
1462: l_error_message_code := FND_API.G_MISS_CHAR;
1463:
1468: ,x_error_message_code => l_error_message_code );
1469: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1470: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1471: ,p_msg_name => l_error_message_code );
1472: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1473: END IF;
1474: l_return_status := FND_API.G_MISS_CHAR;
1475: l_error_message_code := FND_API.G_MISS_CHAR;
1476:
1478: --
1479: IF l_assignment_rec.min_resource_job_level > l_assignment_rec.max_resource_job_level THEN
1480: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1481: ,p_msg_name => 'PA_MIN_JL_GREATER_THAN_MAX');
1482: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1483: END IF;
1484:
1485: --
1486: -- Validate number of requirements only for Open Assignments
1490: OR p_number_of_requirements < 1 THEN
1491:
1492: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1493: ,p_msg_name => 'PA_INVALID_REQ_COPIES_NO' );
1494: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1495: END IF;
1496:
1497: END IF;
1498:
1534: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1535:
1536: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1537: ,p_msg_name => l_error_message_code );
1538: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1539: END IF;
1540: l_return_status := FND_API.G_MISS_CHAR;
1541: l_error_message_code := FND_API.G_MISS_CHAR;
1542: END IF;
1542: END IF;
1543: --dbms_output.put_line('Project Subteam Id'||l_subteam_id);
1544:
1545: IF P_DEBUG_MODE = 'Y' THEN
1546: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1547: ,x_msg => 'before calendar = project'
1548: ,x_log_level => li_message_level);
1549: END IF;
1550:
1553: THEN
1554: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1555: ,p_msg_name => 'PA_INVALID_CAL_PROJ_SETUP' );
1556:
1557: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1558: END IF;
1559:
1560: --
1561: --Calendar validation is only necessary when
1565: IF ((l_assignment_rec.calendar_type = 'OTHER' AND PA_STARTUP.G_Calling_Application = 'SELF_SERVICE')
1566: OR (l_assignment_rec.calendar_type <> 'RESOURCE' AND PA_STARTUP.G_Calling_Application <> 'SELF_SERVICE')) THEN
1567:
1568: IF P_DEBUG_MODE = 'Y' THEN
1569: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1570: ,x_msg => 'cal_id='||l_assignment_rec.calendar_id||
1571: ', cal_name=' ||p_calendar_name
1572: ,x_log_level => li_message_level);
1573: END IF;
1603: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1604:
1605: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1606: ,p_msg_name => l_error_message_code );
1607: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1608:
1609:
1610: END IF;
1611: l_return_status := FND_API.G_MISS_CHAR;
1618: -- Validate Work Type
1619: -- If work type name is valid and work_type_id is null then returns the work_type_id
1620: --
1621: IF P_DEBUG_MODE = 'Y' THEN
1622: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1623: ,x_msg => 'work_type_id='||l_assignment_rec.work_type_id||
1624: ', work_type_name='||p_work_type_name||
1625: ', flag='||PA_STARTUP.G_Check_ID_Flag
1626: ,x_log_level => li_message_level);
1639:
1640: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1641: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1642: ,p_msg_name => l_error_message_code );
1643: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1644: END IF;
1645: l_return_status := FND_API.G_MISS_CHAR;
1646: l_error_message_code := FND_API.G_MISS_CHAR;
1647:
1660:
1661: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1662: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1663: ,p_msg_name => l_error_message_code );
1664: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1665: END IF;
1666: l_return_status := FND_API.G_MISS_CHAR;
1667: l_error_message_code := FND_API.G_MISS_CHAR;
1668:
1685: ,x_error_message_code=> l_error_message_code) ;
1686: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1687: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1688: ,p_msg_name => l_error_message_code );
1689: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1690: END IF;
1691: l_return_status := FND_API.G_MISS_CHAR;
1692: l_error_message_code := FND_API.G_MISS_CHAR;
1693:
1700:
1701: IF get_expenditure_type_class%NOTFOUND THEN
1702: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1703: ,p_msg_name => 'PA_EXPTYPE_INVALID' );
1704: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1705: END IF;
1706: CLOSE get_expenditure_type_class;
1707: END IF;
1708:
1724: --IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1725: IF l_valid_flag <> 'Y' THEN
1726: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1727: ,p_msg_name => 'PA_EXPTYPE_SYSLINK_INVALID' );
1728: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1729: END IF;
1730: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1731: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1732: ,p_msg_name => l_error_message_code );
1729: END IF;
1730: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1731: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1732: ,p_msg_name => l_error_message_code );
1733: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1734: END IF;
1735: l_return_status := FND_API.G_MISS_CHAR;
1736: l_error_message_code := FND_API.G_MISS_CHAR;
1737: END IF; -- end of checking expenditure type and expenditure type class
1739: -- Bug 5130421 : Validate expense limit to be positive
1740: IF (l_assignment_rec.expense_limit < 0) THEN
1741: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1742: ,p_msg_name => 'PA_EXPENSE_LIMIT_INVALID' );
1743: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1744: END IF;
1745: -- End Bug 5130421
1746: --
1747: --Validate Staffing Priority
1764: -- Bug: 4537865
1765: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1766: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1767: ,p_msg_name => l_error_message_code );
1768: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1769: END IF;
1770: l_return_status := FND_API.G_MISS_CHAR;
1771: l_error_message_code := FND_API.G_MISS_CHAR;
1772: END IF;
1791:
1792: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1793: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1794: ,p_msg_name => l_error_message_code );
1795: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1796: END IF;
1797: l_return_status := FND_API.G_MISS_CHAR;
1798: l_error_message_code := FND_API.G_MISS_CHAR;
1799:
1802: END IF; --if source_assignment_id IS NULL
1803:
1804: --Log Message
1805: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
1806: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment.after_validation'
1807: ,x_msg => 'Finished Validation, calling private create_assignment'
1808: ,x_log_level => 5);
1809: END IF;
1810:
1810:
1811: IF p_asgn_creation_mode <> 'MASS' OR (p_asgn_creation_mode = 'MASS' AND p_validate_only = FND_API.G_FALSE) THEN
1812:
1813: IF P_DEBUG_MODE = 'Y' THEN
1814: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1815: ,x_msg => 'before call pvt.create_assignment'
1816: ,x_log_level => li_message_level);
1817: END IF;
1818:
1838: ,x_resource_id => x_resource_id
1839: ,x_return_status => l_return_status
1840: );
1841: IF P_DEBUG_MODE = 'Y' THEN
1842: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1843: ,x_msg => 'after call pvt.create_assignment'
1844: ,x_log_level => li_message_level);
1845: END IF;
1846:
1861: END IF;
1862:
1863: --clear global table of newly created assignment ids
1864: /* Commented the code for bug 3079906
1865: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;*/
1866:
1867:
1868: -- Reset the error stack when returning to the calling program
1869:
1891: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1892: ,p_msg_name => 'PA_INVALID_ASSIGN_START_DATE'
1893: ,p_token1 => 'PROFILE_DATE'
1894: ,p_value1 => l_profile_begin_date );
1895: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1896: x_return_status := FND_API.G_RET_STS_ERROR;
1897: l_error_message_code := 'PA_INVALID_ASSIGN_START_DATE';
1898: END IF; -- IF ( l_valid_assign_start_flag = 'Y' )
1899:
1918: ROLLBACK TO ASG_PUB_CREATE_ASSIGNMENT;
1919: END IF;
1920:
1921: --clear global table of newly created assignment ids
1922: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
1923:
1924: -- Set the excetption Message and the stack
1925: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Create_Assignment'
1926: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1921: --clear global table of newly created assignment ids
1922: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
1923:
1924: -- Set the excetption Message and the stack
1925: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Create_Assignment'
1926: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1927: --
1928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1929: RAISE;
1963: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1964: )
1965: IS
1966:
1967: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
1968: l_return_status VARCHAR2(1);
1969: l_msg_index_out NUMBER;
1970:
1971: BEGIN
1970:
1971: BEGIN
1972:
1973: -- Initialize the Error Stack
1974: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open');
1975:
1976: -- Initialize the return status to success
1977: x_return_status := FND_API.G_RET_STS_SUCCESS;
1978:
1982: END IF;
1983:
1984: --Log Message
1985: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
1986: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open.begin'
1987: ,x_msg => 'Beginning of Execute_Staff_Assign_From_Open'
1988: ,x_log_level => 5);
1989: END IF;
1990:
2004: END;
2005:
2006: --Log Message
2007: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2008: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open.staff_assign'
2009: ,x_msg => 'Calling Staff_Assign_From_Open'
2010: ,x_log_level => 5);
2011: END IF;
2012: --
2010: ,x_log_level => 5);
2011: END IF;
2012: --
2013: -- Call the assign resource to open assignment public API
2014: PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open
2015: ( p_assignment_rec => l_assignment_rec
2016: ,p_asgn_creation_mode => p_asgn_creation_mode
2017: ,p_unfilled_assign_status_code => p_unfilled_assign_status_code
2018: ,p_unfilled_assign_status_name => p_unfilled_assign_status_name
2063: EXCEPTION
2064: WHEN OTHERS THEN
2065:
2066: -- Set the excetption Message and the stack
2067: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Exec_Staff_Assign_From_Open'
2068: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2069: --
2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2071: RAISE; -- This is optional depending on the needs
2075:
2076:
2077:
2078: PROCEDURE Staff_Assign_From_Open
2079: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
2080: ,p_asgn_creation_mode IN VARCHAR2 := 'FULL'
2081: ,p_unfilled_assign_status_code IN pa_project_statuses.project_status_code%TYPE := FND_API.G_MISS_CHAR
2082: ,p_unfilled_assign_status_name IN pa_project_statuses.project_status_name%TYPE := FND_API.G_MISS_CHAR
2083: ,p_remaining_candidate_code IN pa_lookups.lookup_code%TYPE := FND_API.G_MISS_CHAR
2099: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2100: )
2101: IS
2102:
2103: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2104: l_source_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2105: l_new_open_assignment_tbl PA_ASSIGNMENTS_PUB.Assignment_Tbl_Type;
2106: l_resource_source_id NUMBER;
2107: l_return_status VARCHAR2(1);
2100: )
2101: IS
2102:
2103: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2104: l_source_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2105: l_new_open_assignment_tbl PA_ASSIGNMENTS_PUB.Assignment_Tbl_Type;
2106: l_resource_source_id NUMBER;
2107: l_return_status VARCHAR2(1);
2108: l_error_message_code fnd_new_messages.message_name%TYPE;
2101: IS
2102:
2103: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2104: l_source_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2105: l_new_open_assignment_tbl PA_ASSIGNMENTS_PUB.Assignment_Tbl_Type;
2106: l_resource_source_id NUMBER;
2107: l_return_status VARCHAR2(1);
2108: l_error_message_code fnd_new_messages.message_name%TYPE;
2109: l_msg_count NUMBER;
2336:
2337: BEGIN
2338:
2339: -- Initialize the Error Stack
2340: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2341: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2342:
2343: -- Initialize the error flag
2344: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
2337: BEGIN
2338:
2339: -- Initialize the Error Stack
2340: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2341: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2342:
2343: -- Initialize the error flag
2344: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
2345:
2340: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2341: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2342:
2343: -- Initialize the error flag
2344: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
2345:
2346: -- Initialize the return status to success
2347: x_return_status := FND_API.G_RET_STS_SUCCESS;
2348:
2357: END IF;
2358:
2359: --Log Message
2360: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2361: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.begin'
2362: ,x_msg => 'Staff_Assign_From_Open, src_asgmt_id='||p_assignment_rec.source_assignment_id
2363: ,x_log_level => 5);
2364: END IF;
2365: l_assignment_rec := p_assignment_rec;
2374: IF l_mass_wf_in_progress_flag = 'Y' THEN
2375:
2376: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
2377: ,p_msg_name => 'PA_ASSIGNMENT_WF');
2378: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2379:
2380: ELSIF check_record_version%NOTFOUND THEN
2381:
2382: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2380: ELSIF check_record_version%NOTFOUND THEN
2381:
2382: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2383: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
2384: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2385:
2386: ELSE
2387:
2388: FND_PROFILE.Get('PA_DEF_FILLED_ASGMT_STATUS',l_default_filled_status_code);
2390: IF l_default_filled_status_code IS NULL THEN
2391:
2392: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
2393: ,p_msg_name => 'PA_FILLED_STATUS_NOT_DEFINED');
2394: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2395:
2396: ELSE
2397:
2398: -- Assign the record to the local variable
2546: ,x_action_code => 'OPEN_ASGMT_ASSIGN_RESOURCES');
2547: IF l_return_status <> 'Y' THEN
2548: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2549: ,p_msg_name => 'PA_ASGN_NOT_ALLOWED_FOR_STUS');
2550: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2551: l_status_controls_valid := 'N';
2552: EXIT;
2553: --dbms_output.put_line('Open Assignment Status not allowed');
2554: END IF;
2558: IF l_status_controls_valid = 'Y' THEN
2559:
2560: --Log Message
2561: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2562: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.after_source'
2563: ,x_msg => 'After getting requirement details, now assign requirement details'
2564: ,x_log_level => 5);
2565: END IF;
2566:
2622: l_assignment_rec.staffing_owner_person_id := l_source_assignment_rec.staffing_owner_person_id;
2623:
2624: --Log Message
2625: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2626: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.dates_compare'
2627: ,x_msg => 'Differentiate between 4 possibility for Dates'
2628: ,x_log_level => 5);
2629: END IF;
2630:
2751:
2752:
2753: --Log Message
2754: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2755: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.create_open'
2756: ,x_msg => 'Creating Requirement.'
2757: ,x_log_level => 5);
2758: END IF;
2759:
2760:
2761:
2762:
2763: -- Create the open assignment
2764: PA_ASSIGNMENTS_PUB.Create_Assignment
2765: ( p_assignment_rec => l_new_open_assignment_tbl(l_counter)
2766: ,p_asgn_creation_mode => p_asgn_creation_mode
2767: ,p_project_status_name => p_unfilled_assign_status_name
2768: ,p_resource_name => p_resource_name
2792:
2793: ELSE
2794: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2795: ,p_msg_name => 'PA_FAILED_TO_CREATE_OPEN_ASGN');
2796: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2797: END IF;
2798: --
2799:
2800: END LOOP; --loop through new open assignments to be created.
2804: --create the new staffed assignment
2805:
2806: --Log Message
2807: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2808: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.create_staff'
2809: ,x_msg => 'Creating Assignment'
2810: ,x_log_level => 5);
2811: END IF;
2812:
2810: ,x_log_level => 5);
2811: END IF;
2812:
2813: --dbms_output.put_line('Creating staff assignment');
2814: PA_ASSIGNMENTS_PUB.Create_Assignment
2815: ( p_assignment_rec => l_assignment_rec
2816: ,p_asgn_creation_mode => p_asgn_creation_mode
2817: ,p_project_status_name => p_assignment_status_name
2818: ,p_resource_name => p_resource_name
2829: ,x_msg_data => x_msg_data
2830: );
2831:
2832: IF P_DEBUG_MODE = 'Y' THEN
2833: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
2834: ,x_msg => 'Create new staffed assignment,status='||l_return_status
2835: ,x_log_level => li_message_level);
2836: END IF;
2837:
2839: -- FP.M Development
2840:
2841: -- 1. get the new staffed assignment's derived rlm and person ids
2842: IF P_DEBUG_MODE = 'Y' THEN
2843: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
2844: ,x_msg => 'x_new_assignment_id='||x_new_assignment_id
2845: ,x_log_level => li_message_level);
2846: END IF;
2847:
2849: FETCH get_staffed_asgmt_rlm INTO l_new_rlm_id, l_new_person_id;
2850: CLOSE get_staffed_asgmt_rlm;
2851:
2852: IF P_DEBUG_MODE = 'Y' THEN
2853: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
2854: ,x_msg => 'l_new_rlm_id='||l_new_rlm_id||
2855: ' l_new_person_id='||l_new_person_id
2856: ,x_log_level => li_message_level);
2857: END IF;
2872: l_rlm_id := l_new_rlm_id;
2873: END IF;
2874:
2875: IF P_DEBUG_MODE = 'Y' THEN
2876: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
2877: ,x_msg => 'l_rlm_id='||l_rlm_id
2878: ,x_log_level => li_message_level);
2879: END IF;
2880:
2965: ,x_return_status => l_return_status
2966: );
2967: --Log Message
2968: IF P_DEBUG_MODE = 'Y' THEN
2969: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staffed_Assign_From_Open'
2970: ,x_msg => 'Update_task_assignments(case 1), status='||l_return_status
2971: ,x_log_level => 5);
2972: END IF;
2973:
3006: CLOSE get_res_mand_attributes;
3007:
3008: --Log Message
3009: IF P_DEBUG_MODE = 'Y' THEN
3010: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staffed_Assign_From_Open'
3011: ,x_msg => 'Update_task_assignments(case 2), status='||l_return_status
3012: ,x_log_level => 5);
3013: END IF;
3014:
3040: ,x_return_status => l_return_status
3041: );
3042: --Log Message
3043: IF P_DEBUG_MODE = 'Y' THEN
3044: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staffed_Assign_From_Open'
3045: ,x_msg => 'Update_task_assignments(case 3), status='||l_return_status
3046: ,x_log_level => 5);
3047: END IF;
3048:
3051: -- End of FP.M Development
3052:
3053: --Log Message
3054: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3055: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.change_status'
3056: ,x_msg => 'calling schedule change_status'
3057: ,x_log_level => 5);
3058: END IF;
3059:
3168: IF p_commit = FND_API.G_TRUE THEN
3169: ROLLBACK TO ASG_PUB_STAFF_ASSIGN_FROM_OPEN;
3170: END IF;
3171: -- Set the excetption Message and the stack
3172: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
3173: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3174: --
3175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3176: RAISE; -- This is optional depending on the needs
3290: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3291: )
3292: IS
3293:
3294: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
3295: l_return_status VARCHAR2(1);
3296:
3297: /*Code addition for bug 3096132 starts*/
3298: l_br_rate_oride VARCHAR2(1);
3312:
3313:
3314: --dbms_output.put_line('Beginning Execute_Update_Assignment');
3315: -- Initialize the Error Stack
3316: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Execute_Update_Assignment');
3317:
3318: --Log Message
3319: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3320: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Update_Assignment.begin'
3316: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Execute_Update_Assignment');
3317:
3318: --Log Message
3319: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3320: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Update_Assignment.begin'
3321: ,x_msg => 'Beginning of Execute_Update_Assignment'
3322: ,x_log_level => 5);
3323: END IF;
3324:
3345: then
3346: if (p_rate_disc_reason_code IS NULL OR p_rate_disc_reason_code = FND_API.G_MISS_CHAR) then
3347: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
3348: ,p_msg_name => 'PA_RATE_DISC_REASON_REQUIRED');
3349: --PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3350: x_return_status := FND_API.G_RET_STS_ERROR;
3351:
3352: end if;
3353: end if;
3424: l_assignment_rec.attribute12 := p_attribute12;
3425: l_assignment_rec.attribute13 := p_attribute13;
3426: l_assignment_rec.attribute14 := p_attribute14;
3427: l_assignment_rec.attribute15 := p_attribute15;
3428: IF PA_ASSIGNMENTS_PUB.G_update_assignment_bulk_call = 'Y' THEN--9108007
3429: l_assignment_rec.calendar_id := p_calendar_id;
3430: END IF;
3431:
3432: --The following parameters are only updateable through this API is the
3447: l_assignment_rec.end_date := p_end_date;
3448: END IF;
3449: --Log Message
3450: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3451: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Update_Assignment.update_assignment'
3452: ,x_msg => 'After record assignment, Calling Update_Assignment'
3453: ,x_log_level => 5);
3454: END IF;
3455: -- Call the update assignment public API
3453: ,x_log_level => 5);
3454: END IF;
3455: -- Call the update assignment public API
3456: --dbms_output.put_line('Calling Update_Assignment');
3457: PA_ASSIGNMENTS_PUB.Update_Assignment
3458: ( p_assignment_rec => l_assignment_rec
3459: ,p_asgn_update_mode => p_asgn_update_mode
3460: ,p_project_number => p_project_number
3461: ,p_resource_name => p_resource_name
4223: end if;
4224:
4225: --nisinha Bug9468685
4226: -- Min and Max lob levels from Sch people update should be retained as it is.
4227: IF PA_ASSIGNMENTS_PUB.G_update_assignment_bulk_call = 'Y' THEN
4228: SELECT fcst_tp_amount_type
4229: ,min_resource_job_level
4230: ,max_resource_job_level
4231: INTO l_fcst_tp_amount_type
4346:
4347:
4348:
4349: PROCEDURE Update_Assignment
4350: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
4351: ,p_asgn_update_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
4352: ,p_project_number IN pa_projects_all.segment1%TYPE := FND_API.G_MISS_CHAR /* Bug 1851096 */
4353: ,p_resource_name IN pa_resources.name%TYPE := FND_API.G_MISS_CHAR
4354: ,p_resource_source_id IN NUMBER := FND_API.G_MISS_NUM
4383: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
4384: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
4385: )IS
4386:
4387: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
4388: l_assignment_id pa_project_assignments.assignment_id%TYPE;
4389: l_project_id pa_projects.project_id%TYPE;
4390: l_resource_source_id pa_resources.resource_id%TYPE;
4391: l_status_code pa_project_statuses.project_status_code%TYPE;
4485: /* Bug 2590938 End */
4486:
4487: BEGIN
4488: -- Initialize the Error Stack
4489: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Update_Assignment');
4490: --Log Message
4491: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
4492: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Update_Assignment.begin'
4493: ,x_msg => 'Beginning of Update_Assignment'
4488: -- Initialize the Error Stack
4489: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Update_Assignment');
4490: --Log Message
4491: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
4492: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Update_Assignment.begin'
4493: ,x_msg => 'Beginning of Update_Assignment'
4494: ,x_log_level => 5);
4495: END IF;
4496:
4497: -- Initialize the return status to success
4498: x_return_status := FND_API.G_RET_STS_SUCCESS;
4499:
4500: -- Initialize the error flag
4501: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
4502:
4503: -- Issue API savepoint if the transaction is to be committed
4504: IF p_commit = FND_API.G_TRUE THEN
4505: SAVEPOINT ASG_PUB_UPDATE_ASSIGNMENT;
4526: IF l_workflow_in_progress_flag='Y' THEN
4527:
4528: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
4529: ,p_msg_name => 'PA_NO_REQ_WF');
4530: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4531: x_return_status := FND_API.G_RET_STS_ERROR;
4532: END IF;
4533: END IF;
4534: -- check that mass workflow for updating assignment is not in progress.
4548:
4549: IF l_mass_wf_in_progress_flag = 'Y' THEN
4550: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
4551: ,p_msg_name => 'PA_ASSIGNMENT_WF');
4552: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4553: x_return_status := FND_API.G_RET_STS_ERROR;
4554: END IF;
4555: END IF;
4556: -- check that the assignment or requirement is cancelled or filled
4567: l_project_system_status_code = 'STAFFED_ASGMT_CANCEL' THEN
4568:
4569: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
4570: ,p_msg_name => 'PA_UPDATE_CAN_FILL_ASMT');
4571: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4572: x_return_status := FND_API.G_RET_STS_ERROR;
4573: END IF;
4574:
4575: END IF;
4596: l_assignment_rec.calendar_id <> FND_API.G_MISS_NUM OR
4597: p_calendar_name <> FND_API.G_MISS_CHAR OR
4598: l_assignment_rec.calendar_type <> FND_API.G_MISS_CHAR) AND
4599: (PA_STARTUP.G_Calling_Application <> 'SELF_SERVICE' OR PA_STARTUP.G_Calling_Application IS NULL) /*AND
4600: PA_ASSIGNMENTS_PUB.G_update_assignment_bulk_call <> 'Y' */ THEN -- Bug 8233045
4601:
4602: /*
4603: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4604: ,p_msg_name => 'PA_SCH_UPDATE_NOT_ALLOWED');
4601:
4602: /*
4603: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4604: ,p_msg_name => 'PA_SCH_UPDATE_NOT_ALLOWED');
4605: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4606: */
4607:
4608: NULL;
4609:
4620: (p_resource_source_id <> FND_API.G_MISS_NUM OR p_resource_source_id IS NULL) ) THEN
4621:
4622: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4623: ,p_msg_name => 'PA_RES_OR_ROLE_NOT_ALLOWED');
4624: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4625:
4626:
4627: ELSE
4628:
4638: l_assignment_rec.start_date :=FND_API.G_MISS_DATE;
4639: l_assignment_rec.end_date :=FND_API.G_MISS_DATE;
4640: l_assignment_rec.status_code :=FND_API.G_MISS_CHAR;
4641: l_project_status_name :=FND_API.G_MISS_CHAR;
4642: IF PA_ASSIGNMENTS_PUB.G_update_assignment_bulk_call <> 'Y' THEN--Bug#9108007
4643: l_assignment_rec.calendar_id :=FND_API.G_MISS_NUM;
4644: END IF;
4645: l_calendar_name :=FND_API.G_MISS_CHAR;
4646: l_assignment_rec.calendar_type :=FND_API.G_MISS_CHAR;
4668: IF PA_ASGMT_WFSTD.is_approval_pending(p_assignment_id => l_assignment_rec.assignment_id) = 'Y' THEN
4669:
4670: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4671: ,p_msg_name => 'PA_WF_APPROVAL_PENDING');
4672: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4673: l_pending_wf_check := 'N';
4674:
4675:
4676: /* bug 8233045: GSI ER, skipping the following validation only when call is in bulk mode. This might need to be revisited later */
4677: ELSIF ((check_record_version%NOTFOUND )) THEN
4678:
4679: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4680: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
4681: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4682: l_record_version_check := 'N';
4683:
4684: END IF;
4685:
4730:
4731: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4732: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4733: , p_msg_name => l_error_message_code);
4734: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4735: END IF;
4736:
4737: l_return_status := FND_API.G_MISS_CHAR;
4738: l_error_message_code := FND_API.G_MISS_CHAR;
4744: IF (l_assignment_rec.calendar_type = 'PROJECT' AND l_assignment_rec.calendar_id is NULL)
4745: THEN
4746: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
4747: ,p_msg_name => 'PA_INVALID_CAL_PROJ_SETUP' );
4748: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4749: END IF;
4750: IF (l_calendar_name <> FND_API.G_MISS_CHAR AND l_calendar_name IS NOT NULL) OR
4751: (l_assignment_rec.calendar_id <> FND_API.G_MISS_NUM AND l_assignment_rec.calendar_id IS NOT NULL) THEN
4752:
4762: ,x_error_message_code => l_error_message_code );
4763: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4764: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4765: ,p_msg_name => l_error_message_code );
4766: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4767: END IF;
4768: l_return_status := FND_API.G_MISS_CHAR;
4769: l_error_message_code := FND_API.G_MISS_CHAR;
4770: END IF;
4769: l_error_message_code := FND_API.G_MISS_CHAR;
4770: END IF;
4771: --Log Message
4772: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
4773: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Update_Assignment.Id_validation'
4774: ,x_msg => 'Do Value to ID conversion.'
4775: ,x_log_level => 5);
4776: END IF;
4777:
4825: ,x_error_message_code => l_error_message_code );
4826: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4827: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4828: ,p_msg_name => l_error_message_code );
4829: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4830: END IF;
4831: l_return_status := FND_API.G_MISS_CHAR;
4832: l_error_message_code := FND_API.G_MISS_CHAR;
4833:
4835: ELSIF (p_location_city IS NOT NULL AND p_location_city <> FND_API.G_MISS_CHAR) OR
4836: (p_location_region IS NOT NULL AND p_location_region <> FND_API.G_MISS_CHAR) THEN
4837: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4838: ,p_msg_name => 'PA_COUNTRY_INVALID');
4839: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4840:
4841: --Bug 1795160: when user empty the location fields, the location id needs to be nulled out.
4842: --If in self-service mode, if country name and code is null, then set location id to NULL
4843: ELSIF l_location_country_code IS NULL AND p_location_country_name IS NULL AND PA_STARTUP.G_Calling_Application =
4860: ,x_error_message_code => l_error_message_code );
4861: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4862: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4863: ,p_msg_name => l_error_message_code );
4864: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4865: END IF;
4866: l_return_status := FND_API.G_MISS_CHAR;
4867: l_error_message_code := FND_API.G_MISS_CHAR;
4868:
4873: ,x_error_message_code => l_error_message_code );
4874: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4875: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4876: ,p_msg_name => l_error_message_code );
4877: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4878: END IF;
4879: l_return_status := FND_API.G_MISS_CHAR;
4880: l_error_message_code := FND_API.G_MISS_CHAR;
4881:
4885: --
4886: IF l_assignment_rec.min_resource_job_level > l_assignment_rec.max_resource_job_level THEN
4887: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4888: ,p_msg_name => 'PA_MIN_JL_GREATER_THAN_MAX');
4889: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4890: END IF;
4891:
4892: END IF; -- end of checking job levels for only open assignments
4893: --
4898: THEN
4899: IF l_assignment_rec.comp_match_weighting < 0 OR l_assignment_rec.comp_match_weighting > 100 THEN
4900: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4901: ,p_msg_name => 'PA_INVALID_MATCH_WEIGHTING');
4902: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4903: END IF;
4904: END IF;
4905:
4906: IF (l_assignment_rec.avail_match_weighting <> FND_API.G_MISS_NUM AND l_assignment_rec.avail_match_weighting IS NOT NULL) THEN
4906: IF (l_assignment_rec.avail_match_weighting <> FND_API.G_MISS_NUM AND l_assignment_rec.avail_match_weighting IS NOT NULL) THEN
4907: IF l_assignment_rec.avail_match_weighting < 0 OR l_assignment_rec.avail_match_weighting > 100 THEN
4908: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4909: ,p_msg_name => 'PA_INVALID_MATCH_WEIGHTING');
4910: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4911: END IF;
4912: END IF;
4913:
4914: IF (l_assignment_rec.job_level_match_weighting <> FND_API.G_MISS_NUM AND l_assignment_rec.job_level_match_weighting IS NOT
4916: NULL) THEN
4917: IF l_assignment_rec.job_level_match_weighting < 0 OR l_assignment_rec.job_level_match_weighting > 100 THEN
4918: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4919: ,p_msg_name => 'PA_INVALID_MATCH_WEIGHTING');
4920: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4921: END IF;
4922: END IF;
4923:
4924:
4930: l_assignment_rec.search_min_availability > 100 THEN
4931:
4932: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4933: ,p_msg_name => 'PA_MIN_AVAIL_INVALID');
4934: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4935: END IF;
4936: END IF;
4937: --
4938: -- Validate Search Min Candidate Score
4945: l_assignment_rec.search_min_candidate_score > 100 THEN
4946:
4947: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4948: ,p_msg_name => 'PA_MIN_CAN_SCORE_INVALID');
4949: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4950: END IF;
4951: END IF;
4952:
4953: --
4974:
4975: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4976: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4977: ,p_msg_name => l_error_message_code );
4978: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4979: ELSE
4980:
4981: l_return_status := FND_API.G_MISS_CHAR;
4982: l_error_message_code := FND_API.G_MISS_CHAR;
4990:
4991: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4992: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4993: ,p_msg_name => l_error_message_code );
4994: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4995: END IF;
4996: END IF;
4997: l_return_status := FND_API.G_MISS_CHAR;
4998: l_error_message_code := FND_API.G_MISS_CHAR;
5019:
5020: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5021: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5022: ,p_msg_name => l_error_message_code );
5023: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5024: ELSE
5025:
5026: l_return_status := FND_API.G_MISS_CHAR;
5027: l_error_message_code := FND_API.G_MISS_CHAR;
5035:
5036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5037: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5038: ,p_msg_name => l_error_message_code );
5039: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5040: END IF;
5041:
5042: END IF;
5043: l_return_status := FND_API.G_MISS_CHAR;
5061:
5062: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5063: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5064: ,p_msg_name => l_error_message_code );
5065: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5066: END IF;
5067: l_return_status := FND_API.G_MISS_CHAR;
5068: l_error_message_code := FND_API.G_MISS_CHAR;
5069:
5088: ,x_error_message_code => l_error_message_code);
5089:
5090: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_resource_type_id <> 101 THEN
5091: PA_UTILS.Add_Message ('PA', 'PA_INV_STAFF_OWNER');
5092: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5093: END IF;
5094:
5095: l_return_status := FND_API.G_MISS_CHAR;
5096: l_error_message_code := FND_API.G_MISS_CHAR;
5118:
5119: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5120: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5121: ,p_msg_name => 'PA_CURR_NOT_VALID');
5122: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5123: END IF;
5124: l_return_status := FND_API.G_MISS_CHAR;
5125: l_error_message_code := FND_API.G_MISS_CHAR;
5126:
5147:
5148: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5149: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5150: ,p_msg_name => 'PA_CURR_NOT_VALID');
5151: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5152: END IF;
5153: l_return_status := FND_API.G_MISS_CHAR;
5154: l_error_message_code := FND_API.G_MISS_CHAR;
5155:
5162:
5163: IF l_assignment_rec.tp_rate_override < 0 THEN -- Bug 3198183
5164: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5165: ,p_msg_name => 'PA_INVALID_TP_RATE_OVRD');
5166: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5167: END IF;
5168: END IF;
5169:
5170: --
5174:
5175: IF l_assignment_rec.bill_rate_override <= 0 THEN
5176: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5177: ,p_msg_name => 'PA_INVALID_BILL_RATE_OVRD');
5178: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5179: END IF;
5180: END IF;
5181: --
5182: -- Validate Bill Rate Overrides - Markup %
5189: IF l_assignment_rec.markup_percent_override < 0 THEN
5190:
5191: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5192: ,p_msg_name => 'PA_INVALID_MARKUP_PERCENT');
5193: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5194: END IF;
5195:
5196: END IF;
5197:
5204: IF (l_assignment_rec.discount_percentage < 0 OR l_assignment_rec.discount_percentage > 100)THEN
5205:
5206: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5207: ,p_msg_name => 'PA_INVALID_DISCOUNT_PERCENT');
5208: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5209: END IF;
5210:
5211: END IF;
5212:
5226: (l_assignment_rec.discount_percentage <> FND_API.G_MISS_NUM AND l_assignment_rec.discount_percentage IS NOT NULL))) THEN
5227:
5228: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5229: ,p_msg_name => 'PA_RATE_DISC_REASON_REQUIRED');
5230: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5231:
5232: END IF;
5233: END IF;
5234: /* Bug2590938 End */
5243: IF l_assignment_rec.tp_percent_applied_override < 0 THEN
5244:
5245: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5246: ,p_msg_name => 'PA_INVALID_APPLY_BASIS_PERCENT');
5247: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5248: END IF;
5249:
5250: END IF;
5251: --
5272:
5273: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5274: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5275: ,p_msg_name => l_error_message_code );
5276: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5277: END IF;
5278: l_return_status := FND_API.G_MISS_CHAR;
5279: l_error_message_code := FND_API.G_MISS_CHAR;
5280:
5326: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5327:
5328: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5329: ,p_msg_name => l_error_message_code );
5330: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5331: END IF;
5332: l_return_status := FND_API.G_MISS_CHAR;
5333: l_error_message_code := FND_API.G_MISS_CHAR;
5334: END IF;
5354: ,x_error_message_code => l_error_message_code );
5355: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5356: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5357: ,p_msg_name => l_error_message_code );
5358: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5359: --dbms_output.put_line('work type error');
5360:
5361: ELSIF l_assignment_rec.project_id IS NOT NULL AND l_assignment_rec.project_id <> FND_API.G_MISS_NUM THEN
5362: --
5376:
5377:
5378: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5379: ,p_msg_name => l_error_message_code );
5380: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5381: END IF;
5382:
5383: END IF;
5384: l_return_status := FND_API.G_MISS_CHAR;
5406: -- Bug: 4537865
5407: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5408: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5409: ,p_msg_name => l_error_message_code );
5410: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5411: END IF;
5412: l_return_status := FND_API.G_MISS_CHAR;
5413: l_error_message_code := FND_API.G_MISS_CHAR;
5414: END IF;
5436:
5437:
5438: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5439: ,p_msg_name => l_error_message_code );
5440: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5441: --dbms_output.put_line('expenditure type class error1');
5442:
5443: END IF;
5444: l_return_status := FND_API.G_MISS_CHAR;
5455:
5456: IF get_expenditure_type_class%NOTFOUND THEN
5457: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5458: ,p_msg_name => 'PA_EXPTYPE_INVALID' );
5459: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5460: END IF;
5461: CLOSE get_expenditure_type_class;
5462: END IF;
5463:
5482:
5483: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5484: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5485: ,p_msg_name => l_error_message_code );
5486: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5487: --dbms_output.put_line('expenditure type error');
5488:
5489: END IF;
5490: l_return_status := FND_API.G_MISS_CHAR;
5512: --IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5513: IF l_valid_flag <> 'Y' THEN
5514: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
5515: ,p_msg_name => 'PA_EXPTYPE_SYSLINK_INVALID' );
5516: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5517: END IF;
5518: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5519: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
5520: ,p_msg_name => l_error_message_code );
5517: END IF;
5518: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5519: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
5520: ,p_msg_name => l_error_message_code );
5521: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5522: END IF;
5523: l_return_status := FND_API.G_MISS_CHAR;
5524: l_error_message_code := FND_API.G_MISS_CHAR;
5525: END IF;
5547: x_error_msg_code =>l_error_message_code );
5548: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5549: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5550: ,p_msg_name => 'PA_EXP_ORG_INVALID');
5551: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5552:
5553: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5554: IF (p_asgn_update_mode <> 'MASS_ONLINE') THEN
5555:
5560: IF l_valid_flag <> 'Y' THEN
5561:
5562: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5563: ,p_msg_name => 'PA_INVALID_EXP_ORG');
5564: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5565: --dbms_output.put_line('orgn id error2:'||l_valid_flag);
5566:
5567: END IF;
5568: END IF; -- end of checking in Mass Update Online Mode, in which case start date related checks are skipped.
5592:
5593: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5594: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5595: ,p_msg_name => l_error_message_code );
5596: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5597: --dbms_output.put_line('job group error1');
5598:
5599: END IF;
5600: l_return_status := FND_API.G_MISS_CHAR;
5621:
5622: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5623: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5624: ,p_msg_name => l_error_message_code );
5625: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5626: --dbms_output.put_line('job error1');
5627:
5628: END IF;
5629: l_return_status := FND_API.G_MISS_CHAR;
5642: ,x_error_message_code => l_error_message_code);
5643: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5644: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5645: ,p_msg_name => l_error_message_code );
5646: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5647: --dbms_output.put_line('job relation error1');
5648: END IF;
5649: l_return_status := FND_API.G_MISS_CHAR;
5650: l_error_message_code := FND_API.G_MISS_CHAR;
5670:
5671: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5672: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5673: ,p_msg_name => 'PA_EXP_OU_INVALID' );
5674: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5675:
5676: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5677: l_return_status := FND_API.G_MISS_CHAR;
5678: l_error_message_code := FND_API.G_MISS_CHAR;
5685: ,x_error_message_code =>l_error_message_code ) ;
5686: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5687: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5688: ,p_msg_name => l_error_message_code );
5689: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5690: --dbms_output.put_line('OU id error1');
5691:
5692: END IF;
5693: END IF;
5717: ,x_return_status => l_return_status
5718: ,x_msg_count => l_msg_count
5719: ,x_msg_data => l_msg_data);
5720: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5721: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5722: --dbms_output.put_line('TP amount type error1');
5723:
5724: END IF;
5725: l_return_status := FND_API.G_MISS_CHAR;
5747:
5748: IF l_ret_code = FND_API.G_FALSE THEN
5749: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5750: ,p_msg_name => 'PA_ADD_ADMIN_ASMT_SECURITY' );
5751: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5752: END IF;
5753: END IF;
5754: IF p_asgn_update_mode = PA_MASS_ASGMT_TRX.G_MASS_UPDATE_FORECAST_ITEMS THEN
5755:
5767:
5768: IF l_ret_code = FND_API.G_FALSE THEN
5769: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
5770: ,p_msg_name => 'PA_ADD_ADMIN_ASMT_SECURITY' );
5771: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5772: END IF;
5773: END IF;
5774:
5775: END IF;
5776: --dbms_output.put_line('Finish Validation');
5777:
5778: --Log Message
5779: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
5780: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Update_Assignment.pvt_update_asgmt'
5781: ,x_msg => 'Calling PVT Update_Assignment'
5782: ,x_log_level => 5);
5783: END IF;
5784:
5827: PA_DEBUG.Reset_Err_Stack;
5828:
5829: -- If g_error_exists is TRUE then set the x_return_status to 'E'
5830:
5831: --IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN
5832: IF x_msg_count > 0 THEN
5833:
5834: x_return_status := FND_API.G_RET_STS_ERROR;
5835:
5852: IF p_commit = FND_API.G_TRUE THEN
5853: ROLLBACK TO ASG_PUB_UPDATE_ASSIGNMENT;
5854: END IF;
5855: -- Set the excetption Message and the stack
5856: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Update_Assignment'
5857: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
5858: --
5859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5860: RAISE; -- This is optional depending on the needs
5915:
5916: BEGIN
5917:
5918: -- Initialize the Error Stack
5919: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Delete_Assignment');
5920: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.delete assignment');
5921:
5922: --Log Message
5923: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
5916: BEGIN
5917:
5918: -- Initialize the Error Stack
5919: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Delete_Assignment');
5920: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.delete assignment');
5921:
5922: --Log Message
5923: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
5924: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_Assignment.begin'
5920: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.delete assignment');
5921:
5922: --Log Message
5923: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
5924: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_Assignment.begin'
5925: ,x_msg => 'Beginning of Delete_Assignment'
5926: ,x_log_level => 5);
5927: END IF;
5928:
5926: ,x_log_level => 5);
5927: END IF;
5928:
5929: -- Initialize the error flag
5930: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
5931: x_return_status := FND_API.G_RET_STS_SUCCESS;
5932:
5933: -- Issue API savepoint if the transaction is to be committed
5934: IF p_commit = FND_API.G_TRUE THEN
5949: IF l_assignment_id IS NOT NULL THEN
5950:
5951: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5952: ,p_msg_name => 'PA_ASGN_AS_SOURCE_ASGN');
5953: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5954: x_return_status := FND_API.G_RET_STS_ERROR;
5955:
5956: ELSE
5957:
5961: CLOSE check_record_version;
5962: IF l_assignment_row_id IS NULL THEN
5963: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5964: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
5965: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5966: x_return_status := FND_API.G_RET_STS_ERROR;
5967:
5968: ELSE
5969:
5978: CLOSE check_team_template_wf;
5979: IF l_workflow_in_progress_flag = 'Y' THEN
5980: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5981: ,p_msg_name => 'PA_NO_REQ_WF');
5982: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5983: x_return_status := FND_API.G_RET_STS_ERROR;
5984:
5985: ELSE
5986:
5994:
5995: IF l_mass_wf_in_progress_flag = 'Y' THEN
5996: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
5997: ,p_msg_name => 'PA_ASSIGNMENT_WF');
5998: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5999: x_return_status := FND_API.G_RET_STS_ERROR;
6000:
6001: ELSE
6002:
6005: PA_ASSIGNMENT_APPROVAL_PVT.Abort_Assignment_Approval(p_assignment_id => p_assignment_id
6006: ,p_project_id => l_project_id
6007: ,x_return_status => l_return_status);
6008: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
6009: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
6010: END IF;
6011: END IF;
6012:
6013: --Log Message
6011: END IF;
6012:
6013: --Log Message
6014: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
6015: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_Assignment.pvt_delete_asgmt'
6016: ,x_msg => 'Calling PVT Delete_Assignment'
6017: ,x_log_level => 5);
6018: END IF;
6019:
6076: IF p_commit = FND_API.G_TRUE THEN
6077: ROLLBACK TO ASG_PUB_DELETE_ASSIGNMENT;
6078: END IF;
6079: -- Set the excetption Message and the stack
6080: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Delete_Assignment'
6081: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6082: --
6083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6084: RAISE; -- This is optional depending on the needs
6113: l_adv_action_set_id pa_action_sets.action_set_id%TYPE;
6114:
6115: BEGIN
6116:
6117: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6118:
6119: -- Initialize the Error Stack
6120: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6121: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6116:
6117: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6118:
6119: -- Initialize the Error Stack
6120: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6121: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6122:
6123: --Log Message
6124: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
6117: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6118:
6119: -- Initialize the Error Stack
6120: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6121: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6122:
6123: --Log Message
6124: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
6125: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Copy_Team_Role'
6121: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
6122:
6123: --Log Message
6124: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
6125: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Copy_Team_Role'
6126: ,x_msg => 'Beginning of Copy_Team_Role'
6127: ,x_log_level => 5);
6128: END IF;
6129:
6300: IF l_assignment_rec.status_code IS NULL THEN
6301:
6302: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
6303: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
6304: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
6305:
6306: END IF;
6307: END IF;
6308:
6315:
6316: -- Create the requirement
6317: --Log Message
6318: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
6319: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Copy_Team_Role'
6320: ,x_msg => 'Calling create assignment'
6321: ,x_log_level => 5);
6322: END IF;
6323:
6320: ,x_msg => 'Calling create assignment'
6321: ,x_log_level => 5);
6322: END IF;
6323:
6324: --dbms_output.put_line('calling PA_ASSIGNMENTS_PUB.Create_Assignment');
6325: --dbms_output.put_line('action set id = '|| l_adv_action_set_id );
6326: PA_ASSIGNMENTS_PUB.Create_Assignment
6327: ( p_assignment_rec => l_assignment_rec
6328: ,p_asgn_creation_mode => p_asgn_creation_mode
6322: END IF;
6323:
6324: --dbms_output.put_line('calling PA_ASSIGNMENTS_PUB.Create_Assignment');
6325: --dbms_output.put_line('action set id = '|| l_adv_action_set_id );
6326: PA_ASSIGNMENTS_PUB.Create_Assignment
6327: ( p_assignment_rec => l_assignment_rec
6328: ,p_asgn_creation_mode => p_asgn_creation_mode
6329: ,p_adv_action_set_id => l_adv_action_set_id
6330: ,p_commit => p_commit
6365:
6366: EXCEPTION
6367: WHEN OTHERS THEN
6368: -- Set the excetption Message and the stack
6369: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Copy_Team_Role'
6370: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6371: --
6372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6373: RAISE;
6486: FND_PROFILE.Get('PA_START_OPEN_ASGMT_STATUS',l_status_code);
6487: IF l_status_code IS NULL THEN
6488: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
6489: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
6490: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
6491: END IF;
6492: END IF;
6493:
6494: IF (p_assignment_type = 'STAFFED_ASSIGNMENT' OR p_assignment_type = 'STAFFED_ADMIN_ASSIGNMENT') THEN
6495: FND_PROFILE.Get('PA_START_STAFFED_ASGMT_STATUS',l_status_code);
6496: IF l_status_code IS NULL THEN
6497: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
6498: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
6499: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
6500: END IF;
6501: END IF;
6502:
6503: END IF;
6504:
6505:
6506: -- l_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
6507: --do online validation
6508: PA_ASSIGNMENTS_PUB.Execute_Create_Assignment
6509: ( p_asgn_creation_mode => 'MASS'
6510: ,p_unfilled_assignment_status => p_unfilled_assignment_status
6511: ,p_assignment_name => p_assignment_name
6512: ,p_assignment_type => p_assignment_type
6661:
6662: EXCEPTION
6663: WHEN OTHERS THEN
6664: -- Set the exception Message and the stack
6665: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Mass_Exec_Create_Assignments'
6666: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6667: --
6668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6669:
6787:
6788: FOR i IN p_resource_id_tbl.FIRST .. p_resource_id_tbl.LAST LOOP
6789:
6790: --call execute_create_assignment
6791: PA_ASSIGNMENTS_PUB.Execute_Create_Assignment
6792: ( p_asgn_creation_mode => 'MASS'
6793: ,p_unfilled_assignment_status => p_unfilled_assignment_status
6794: ,p_assignment_name => p_assignment_name
6795: ,p_assignment_type => p_assignment_type
6901:
6902: EXCEPTION
6903: WHEN OTHERS THEN
6904: -- Set the exception Message and the stack
6905: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Mass_Create_Assignments'
6906: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6907: --
6908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6909: RAISE;
6997: BEGIN
6998:
6999: --This API is only called to do value-id validations
7000:
7001: pa_assignments_pub.Execute_Update_Assignment
7002: ( p_asgn_update_mode => 'MASS_ONLINE'
7003: ,p_assignment_name => p_assignment_name
7004: ,p_assignment_type => p_assignment_type
7005: ,p_staffing_priority_code => p_staffing_priority_code
7144:
7145: EXCEPTION
7146: WHEN OTHERS THEN
7147: -- Set the exception Message and the stack
7148: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Mass_Exec_Update_Assignments'
7149: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
7150: --
7151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7152: RAISE;
7368: -- validation on min and max job level is done even if user
7369: -- specifies only min job level or only max job level for mass update
7370:
7371: --call execute_update_assignment
7372: pa_assignments_pub.Execute_Update_Assignment
7373: ( p_asgn_update_mode => p_update_mode
7374: ,p_assignment_id => p_assignment_id_tbl(i)
7375: ,p_record_version_number => NULL
7376: ,p_assignment_type => l_assignment_type
7517:
7518: EXCEPTION
7519: WHEN OTHERS THEN
7520: -- Set the exception Message and the stack
7521: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Mass_Update_Assignment'
7522: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
7523: --
7524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7525: RAISE;
7639: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
7640: )
7641:
7642: IS
7643: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
7644: l_return_status VARCHAR2(1);
7645: l_exists VARCHAR2(1) := 'N';
7646: l_return_code VARCHAR2(1);
7647:
7648: BEGIN
7649:
7650: --dbms_output.put_line('Beginning Execute_Update_Assignment');
7651: -- Initialize the Error Stack
7652: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Execute_Update_Assignment');
7653:
7654:
7655: --Log Message
7656: IF P_DEBUG_MODE = 'Y' THEN
7653:
7654:
7655: --Log Message
7656: IF P_DEBUG_MODE = 'Y' THEN
7657: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Update_Requirement.begin'
7658: ,x_msg => 'Beginning of Execute_Update_Assignment'
7659: ,x_log_level => 5);
7660: END IF;
7661:
7886: l_assignment_rec.attribute14 := p_attribute14;
7887: l_assignment_rec.attribute15 := p_attribute15;
7888:
7889: --dbms_output.put_line('Calling Update_Assignment');
7890: PA_ASSIGNMENTS_PUB.Update_Assignment
7891: ( p_assignment_rec => l_assignment_rec
7892: ,p_asgn_update_mode => p_asgn_update_mode
7893: ,p_project_number => p_project_number
7894: ,p_resource_name => p_resource_name
7954:
7955: BEGIN
7956:
7957: -- Initialize the Error Stack
7958: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Delete_PJR_Txns');
7959:
7960: --Log Message
7961: IF P_DEBUG_MODE = 'Y' THEN
7962: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_PJR_Txns.begin'
7958: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Delete_PJR_Txns');
7959:
7960: --Log Message
7961: IF P_DEBUG_MODE = 'Y' THEN
7962: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_PJR_Txns.begin'
7963: ,x_msg => 'Beginning of Delete_PJR_Txns'
7964: ,x_log_level => 5);
7965: END IF;
7966:
7964: ,x_log_level => 5);
7965: END IF;
7966:
7967: -- Initialize the error flag
7968: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
7969: x_return_status := FND_API.G_RET_STS_SUCCESS;
7970:
7971: -- Issue API savepoint if the transaction is to be committed
7972: IF p_commit = FND_API.G_TRUE THEN
7982: LOOP
7983:
7984: --Log Message
7985: IF P_DEBUG_MODE = 'Y' THEN
7986: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_PJR_Txns.pvt_delete_asgmt'
7987: ,x_msg => 'Calling PVT Delete_Assignment'
7988: ,x_log_level => 5);
7989: END IF;
7990:
8001: ,x_return_status => l_return_status
8002: );
8003:
8004: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8005: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
8006: END IF;
8007:
8008: END LOOP;
8009:
8049: IF p_commit = FND_API.G_TRUE THEN
8050: ROLLBACK TO ASG_PUB_DELETE_PJR_TXNS;
8051: END IF;
8052: -- Set the exception Message and the stack
8053: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Delete_PJR_Txns'
8054: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
8055: --
8056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8057: RAISE; -- This is optional depending on the needs
8082: WHEN OTHERS THEN
8083: RAISE;
8084:
8085: END VALIDATE_PROJECT_ROLE;
8086: END pa_assignments_pub;