[Home] [Help]
1: PACKAGE BODY pa_assignments_pub AS
2: /*$Header: PARAPUBB.pls 120.13.12010000.5 2009/02/23 11:10:49 jcgeorge 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;
134:
135: BEGIN
136:
137: -- Initialize the Error Stack
138: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment');
139:
140: -- Initialize the return status to success
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142:
147: END IF;
148:
149: --Log Message
150: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
151: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment.begin'
152: ,x_msg => 'Beginning of the Execute_Create_Assignment'
153: ,x_log_level => 5);
154: END IF;
155:
170: FND_PROFILE.Get('PA_START_OPEN_ASGMT_STATUS',l_assignment_rec.status_code);
171: IF l_assignment_rec.status_code IS NULL THEN
172: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
173: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
174: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
175: END IF;
176: END IF;
177:
178: IF (p_assignment_type = 'STAFFED_ASSIGNMENT' OR p_assignment_type = 'STAFFED_ADMIN_ASSIGNMENT') THEN
179: FND_PROFILE.Get('PA_START_STAFFED_ASGMT_STATUS',l_assignment_rec.status_code);
180: IF l_assignment_rec.status_code IS NULL THEN
181: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
182: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
183: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
184: END IF;
185: END IF;
186:
187: ELSE
225: l_assignment_rec.calendar_id := p_calendar_id;
226: l_assignment_rec.resource_calendar_percent := p_resource_calendar_percent;
227:
228: IF P_DEBUG_MODE = 'Y' THEN
229: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment'
230: ,x_msg => 'Execute_Create_Assignment before L'
231: ,x_log_level => li_message_level);
232: END IF;
233:
243: l_assignment_rec.tp_percent_applied_override := p_tp_percent_applied_override;
244: l_assignment_rec.staffing_owner_person_id := p_staffing_owner_person_id;
245:
246: IF P_DEBUG_MODE = 'Y' THEN
247: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment'
248: ,x_msg => 'Execute_Create_Assignment before M'
249: ,x_log_level => li_message_level);
250: END IF;
251: -- FP.M Development
283: --Start Bug 3249669 : Check for profile option PA: Global Week Start Day being set.
284: IF NVL(FND_PROFILE.value('PA_GLOBAL_WEEK_START_DAY'),'N') = 'N' THEN
285: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
286: ,p_msg_name => 'PA_GLOBAL_WEEK_START_DAY_ERR' );
287: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
288: END IF;
289: --End Bug 3249669 : Check for profile option PA: Global Week Start Day being set.
290:
291: --Log Message
289: --End Bug 3249669 : Check for profile option PA: Global Week Start Day being set.
290:
291: --Log Message
292: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
293: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment.create_asgmt'
294: ,x_msg => 'Calling Create_Assignment'
295: ,x_log_level => 5);
296: END IF;
297:
317:
318: END IF;
319:
320: IF P_DEBUG_MODE = 'Y' THEN
321: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment'
322: ,x_msg => 'before calling pub.Create_Assignment'
323: ,x_log_level => li_message_level);
324: END IF;
325:
322: ,x_msg => 'before calling pub.Create_Assignment'
323: ,x_log_level => li_message_level);
324: END IF;
325:
326: PA_ASSIGNMENTS_PUB.Create_Assignment
327: ( p_assignment_rec => l_assignment_rec
328: ,p_asgn_creation_mode => p_asgn_creation_mode
329: ,p_project_number => p_project_number
330: ,p_project_name => p_project_name
362: ,x_msg_data => x_msg_data
363: );
364:
365: IF P_DEBUG_MODE = 'Y' THEN
366: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exceute_Create_Assignment'
367: ,x_msg => 'after calling pub.Create_Assignment'
368: ,x_log_level => li_message_level);
369: END IF;
370:
382: -- Bug 3132280 : MOved the following table initialization outside the if
383: -- so that the NPE can be avoided in Java Layer
384: x_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
385:
386: IF PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.count > 0 THEN -- Bug 3132280
387:
388: /*Added the code for bug 3079906*/
389: IF p_asgn_creation_mode <> 'MASS' OR (p_asgn_creation_mode = 'MASS' AND p_validate_only = FND_API.G_FALSE) THEN
390: -- Bug 3132280 x_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
387:
388: /*Added the code for bug 3079906*/
389: IF p_asgn_creation_mode <> 'MASS' OR (p_asgn_creation_mode = 'MASS' AND p_validate_only = FND_API.G_FALSE) THEN
390: -- Bug 3132280 x_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
391: FOR i in PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST..PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
392: x_new_assignment_id_tbl.extend(1);
393: x_new_assignment_id_tbl(i):=PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id;
394: END LOOP;
395: /* code addition for bug 3079906 ends*/
389: IF p_asgn_creation_mode <> 'MASS' OR (p_asgn_creation_mode = 'MASS' AND p_validate_only = FND_API.G_FALSE) THEN
390: -- Bug 3132280 x_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
391: FOR i in PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST..PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
392: x_new_assignment_id_tbl.extend(1);
393: x_new_assignment_id_tbl(i):=PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id;
394: END LOOP;
395: /* code addition for bug 3079906 ends*/
396: end if;
397: END IF;
397: END IF;
398: EXCEPTION
399: WHEN OTHERS THEN
400: -- Set the excetption Message and the stack
401: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Execute_Create_Assignment'
402: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
403: --
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
405: RAISE; -- This is optional depending on the needs
434: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
435: )
436: IS
437:
438: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
439: l_return_status VARCHAR2(1);
440: l_person_name PER_PEOPLE_F.full_name%TYPE;
441: l_err_msg_code VARCHAR2(80);
442:
443: BEGIN
444:
445:
446: -- Initialize the Error Stack
447: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Exec_Create_Assign_With_Def');
448:
449: -- Initialize the return status to success
450: x_return_status := FND_API.G_RET_STS_SUCCESS;
451:
455: END IF;
456:
457: --Log Message
458: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
459: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exec_Create_Assign_With_Def.begin'
460: ,x_msg => 'Beginning of the Exec_Create_Assign_With_Def'
461: ,x_log_level => 5);
462: END IF;
463:
487: ,x_error_message_code => l_err_msg_code);
488:
489: --Log Message
490: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
491: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Exec_Create_Assign_With_Def.begin'
492: ,x_msg => 'Calling Create_Assign_With_Def'
493: ,x_log_level => 5);
494: END IF;
495: --
494: END IF;
495: --
496: -- Call the create staff assignment with defaults public API
497:
498: PA_ASSIGNMENTS_PUB.Create_Assign_With_Def
499: ( p_assignment_rec => l_assignment_rec
500: ,p_asgn_creation_mode => p_asgn_creation_mode
501: ,p_role_name => p_role_name
502: ,p_project_name => p_project_name
523: EXCEPTION
524: WHEN OTHERS THEN
525:
526: -- Set the excetption Message and the stack
527: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Execute_Create_Assignment'
528: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
529: --
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
531: RAISE; -- This is optional depending on the needs
533: END Exec_Create_Assign_With_Def;
534:
535:
536: PROCEDURE Create_Assign_With_Def
537: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
538: ,p_role_name IN pa_project_role_types.meaning%TYPE := FND_API.G_MISS_CHAR
539: ,p_asgn_creation_mode IN VARCHAR2 := 'FULL'
540: ,p_project_name IN pa_projects_all.name%TYPE := FND_API.G_MISS_CHAR
541: ,p_project_number IN pa_projects_all.segment1%TYPE := FND_API.G_MISS_CHAR
555: )
556:
557: IS
558:
559: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
560: l_return_status VARCHAR2(1);
561: l_schedulable_flag VARCHAR2(1);
562: l_msg_index_out NUMBER;
563: l_menu_id NUMBER;
596:
597: l_assignment_rec := p_assignment_rec;
598:
599: -- Initialize the Error Stack
600: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assign_With_Def');
601:
602: -- Initialize the error flag
603: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
604:
599: -- Initialize the Error Stack
600: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assign_With_Def');
601:
602: -- Initialize the error flag
603: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
604:
605: -- Initialize the return status to success
606: x_return_status := FND_API.G_RET_STS_SUCCESS;
607:
616: FND_MSG_PUB.initialize;
617: END IF;
618: --Log Message
619: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
620: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assign_With_Def.begin'
621: ,x_msg => 'Beginning of Create_Assign_With_Def'
622: ,x_log_level => 5);
623: END IF;
624:
677:
678: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
679: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
680: ,p_msg_name => l_error_message_code );
681: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
682: END IF;
683:
684: IF l_schedulable_flag <> 'Y' THEN
685: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
683:
684: IF l_schedulable_flag <> 'Y' THEN
685: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
686: ,p_msg_name => 'PA_ROLE_NOT_SCHEDULABLE' );
687: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
688: return;
689: END IF;
690:
691: --Log Message
689: END IF;
690:
691: --Log Message
692: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
693: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assign_With_Def.role_defaults'
694: ,x_msg => 'After gettting role defaults'
695: ,x_log_level => 5);
696: END IF;
697:
716: x_msg_count => l_msg_count,
717: x_msg_data => l_msg_data
718: );
719: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
720: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
721: END IF;
722:
723: --Log Message
724: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
721: END IF;
722:
723: --Log Message
724: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
725: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assign_With_Def.utilization_defaults'
726: ,x_msg => 'After gettting utilization defaults'
727: ,x_log_level => 5);
728: END IF;
729: END IF;
735: IF get_project_defaults%NOTFOUND THEN
736:
737: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
738: ,p_msg_name => 'PA_CANNOT_GET_PROJ_DEFAULTS');
739: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
740:
741: END IF;
742:
743: CLOSE get_project_defaults;
750: IF l_assignment_rec.status_code IS NULL THEN
751:
752: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
753: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
754: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
755:
756: END IF;
757:
758: -- Bug 3466411
766: ,x_error_message_code => l_err_msg_code);
767:
768: --Log Message
769: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
770: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assign_With_Def.create_asgmt'
771: ,x_msg => 'Calling Create_Assignment'
772: ,x_log_level => 5);
773: END IF;
774:
771: ,x_msg => 'Calling Create_Assignment'
772: ,x_log_level => 5);
773: END IF;
774:
775: PA_ASSIGNMENTS_PUB.Create_Assignment
776: ( p_assignment_rec => l_assignment_rec
777: ,p_asgn_creation_mode => p_asgn_creation_mode
778: ,p_project_name => p_project_name
779: ,p_project_number => p_project_number
838: IF p_commit = FND_API.G_TRUE THEN
839: ROLLBACK TO ASG_PUB_CREATE_ASGMT_WITH_DEF;
840: END IF;
841: -- Set the excetption Message and the stack
842: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Create_Assignment'
843: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
844: --
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
846: RAISE; -- This is optional depending on the needs
851:
852:
853:
854: PROCEDURE Create_Assignment
855: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
856: ,p_asgn_creation_mode IN VARCHAR2 := 'FULL'
857: ,p_project_name IN pa_projects_all.name%TYPE := FND_API.G_MISS_CHAR
858: ,p_project_number IN pa_projects_all.segment1%TYPE := FND_API.G_MISS_CHAR
859: ,p_resource_name IN pa_resources.name%TYPE := FND_API.G_MISS_CHAR
891: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
892: )
893: IS
894:
895: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
896: l_resource_source_id NUMBER;
897: -- Bug: 4537865
898: l_new_resource_source_id NUMBER;
899: l_new_project_role_id pa_project_assignments.project_role_id%TYPE;
963:
964: BEGIN
965:
966: IF P_DEBUG_MODE = 'Y' THEN
967: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
968: ,x_msg => 'Entrance of pub.Create_Assignment'
969: ,x_log_level => li_message_level);
970: END IF;
971:
968: ,x_msg => 'Entrance of pub.Create_Assignment'
969: ,x_log_level => li_message_level);
970: END IF;
971:
972: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Create_Assignment');
973: /* Moved the call for deleting the global table from below to above for bug 3079906*/
974: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
975: -- Initialize the Error Stack
976: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assignment');
970: END IF;
971:
972: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Create_Assignment');
973: /* Moved the call for deleting the global table from below to above for bug 3079906*/
974: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
975: -- Initialize the Error Stack
976: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assignment');
977:
978: -- Initialize the error flag
972: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Create_Assignment');
973: /* Moved the call for deleting the global table from below to above for bug 3079906*/
974: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
975: -- Initialize the Error Stack
976: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assignment');
977:
978: -- Initialize the error flag
979: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
980:
975: -- Initialize the Error Stack
976: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Create_Assignment');
977:
978: -- Initialize the error flag
979: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
980:
981: -- Initialize the return status to success
982: x_return_status := FND_API.G_RET_STS_SUCCESS;
983:
992: END IF;
993:
994: --Log Message
995: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
996: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment.begin'
997: ,x_msg => 'Beginning of Create_Assignment'
998: ,x_log_level => 5);
999: END IF;
1000:
1023:
1024: IF l_workflow_in_progress_flag='Y' THEN
1025: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1026: ,p_msg_name => 'PA_NO_REQ_WF');
1027: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1029: END IF;
1030: END IF;
1031:
1040:
1041: --Assumption: Add Template Requirement does not pass in Project Number
1042:
1043: IF P_DEBUG_MODE = 'Y' THEN
1044: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1045: ,x_msg => 'before check project number'
1046: ,x_log_level => li_message_level);
1047: END IF;
1048:
1049: --Check to see if project number is passed in
1050: IF (p_project_number IS NOT NULL AND p_project_number <> FND_API.G_MISS_CHAR )THEN
1051:
1052: IF P_DEBUG_MODE = 'Y' THEN
1053: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1054: ,x_msg => 'project number is ok'
1055: ,x_log_level => li_message_level);
1056: END IF;
1057:
1068:
1069: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1070: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1071: ,p_msg_name => l_error_message_code);
1072: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1073: END IF;
1074: l_return_status := FND_API.G_MISS_CHAR;
1075: l_error_message_code := FND_API.G_MISS_CHAR;
1076:
1083:
1084: --dbms_output.put_line('Before Get project_number_info');
1085:
1086: IF P_DEBUG_MODE = 'Y' THEN
1087: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1088: ,x_msg => 'before get calendar id'
1089: ,x_log_level => li_message_level);
1090: END IF;
1091:
1105: l_admin_flag <> 'Y') OR
1106: (l_assignment_rec.assignment_type = 'STAFFED_ASSIGNMENT' AND l_admin_flag = 'Y') THEN
1107: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1108: ,p_msg_name => 'PA_CREATE_ADMIN_RESTRICT');
1109: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1110: END IF; --staffed admin or staffed assignment with admin project
1111:
1112: IF P_DEBUG_MODE = 'Y' THEN
1113: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1109: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1110: END IF; --staffed admin or staffed assignment with admin project
1111:
1112: IF P_DEBUG_MODE = 'Y' THEN
1113: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1114: ,x_msg => 'before calendar=PROJECT?'
1115: ,x_log_level => li_message_level);
1116: END IF;
1117:
1139: END IF;
1140: IF l_unassigned_time = 'Y' THEN
1141: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1142: ,p_msg_name => 'PA_NO_ASGMT_UNASSIGN_TIME_PROJ');
1143: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1144: END IF;
1145:
1146: -- Check for Org Project
1147: PA_FP_ORG_FCST_UTILS.detect_org_project(
1154: PA_ASSIGNMENT_UTILS.Add_Message(
1155: p_app_short_name => 'PA'
1156: ,p_msg_name => l_error_message_code
1157: );
1158: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1159: END IF;
1160:
1161: l_return_status := FND_API.G_MISS_CHAR;
1162: l_error_message_code := FND_API.G_MISS_CHAR;
1167: --
1168: IF l_assignment_rec.start_date > l_assignment_rec.end_date THEN
1169: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1170: ,p_msg_name => 'PA_INVALID_START_DATE');
1171: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1172: END IF;
1173:
1174:
1175: --
1207:
1208: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1209: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1210: ,p_msg_name => l_error_message_code);
1211: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1212: l_assignment_rec.resource_id := NULL;
1213: END IF;
1214:
1215: l_return_status := FND_API.G_MISS_CHAR;
1258: ,x_error_message_code => l_error_message_code);
1259: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1260: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1261: , p_msg_name => l_error_message_code);
1262: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1263: END IF;
1264: l_return_status := FND_API.G_MISS_CHAR;
1265: l_error_message_code := FND_API.G_MISS_CHAR;
1266:
1284: ,x_error_message_code => l_error_message_code);
1285:
1286: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_resource_type_id <> 101 THEN
1287: PA_UTILS.Add_Message ('PA', 'PA_INV_STAFF_OWNER');
1288: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1289: END IF;
1290:
1291: l_return_status := FND_API.G_MISS_CHAR;
1292: l_error_message_code := FND_API.G_MISS_CHAR;
1293:
1294: END IF;
1295:
1296: IF P_DEBUG_MODE = 'Y' THEN
1297: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1298: ,x_msg => 'before calendar = resource'
1299: ,x_log_level => li_message_level);
1300: END IF;
1301:
1305: IF l_assignment_rec.calendar_type = 'RESOURCE' AND
1306: (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
1307: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1308: ,p_msg_name => 'PA_CALENDAR_PERCENT_INVALID');
1309: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1310: END IF;
1311:
1312: -- initialize local action set id variable
1313: --
1368:
1369: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1370: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1371: , p_msg_name => l_error_message_code );
1372: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1373: END IF;
1374: l_return_status := FND_API.G_MISS_CHAR;
1375: l_error_message_code := FND_API.G_MISS_CHAR;
1376:
1393: ,x_error_message_code => l_error_message_code );
1394: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1395: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1396: ,p_msg_name => l_error_message_code );
1397: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1398: END IF;
1399: l_return_status := FND_API.G_MISS_CHAR;
1400: l_error_message_code := FND_API.G_MISS_CHAR;
1401: -- if country is not passed in, but region/city is passed in, give an error.
1402: ELSIF (p_location_city IS NOT NULL AND p_location_city <> FND_API.G_MISS_CHAR) OR
1403: (p_location_region IS NOT NULL AND p_location_region <> FND_API.G_MISS_CHAR) THEN
1404: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1405: ,p_msg_name => 'PA_COUNTRY_INVALID');
1406: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1407: END IF;
1408:
1409: --
1410: --
1420: ,x_error_message_code => l_error_message_code );
1421: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1422: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1423: ,p_msg_name => l_error_message_code );
1424: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1425: END IF;
1426: l_return_status := FND_API.G_MISS_CHAR;
1427: l_error_message_code := FND_API.G_MISS_CHAR;
1428:
1433: ,x_error_message_code => l_error_message_code );
1434: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1435: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1436: ,p_msg_name => l_error_message_code );
1437: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1438: END IF;
1439: l_return_status := FND_API.G_MISS_CHAR;
1440: l_error_message_code := FND_API.G_MISS_CHAR;
1441:
1443: --
1444: IF l_assignment_rec.min_resource_job_level > l_assignment_rec.max_resource_job_level THEN
1445: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1446: ,p_msg_name => 'PA_MIN_JL_GREATER_THAN_MAX');
1447: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1448: END IF;
1449:
1450: --
1451: -- Validate number of requirements only for Open Assignments
1455: OR p_number_of_requirements < 1 THEN
1456:
1457: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1458: ,p_msg_name => 'PA_INVALID_REQ_COPIES_NO' );
1459: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1460: END IF;
1461:
1462: END IF;
1463:
1499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1500:
1501: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1502: ,p_msg_name => l_error_message_code );
1503: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1504: END IF;
1505: l_return_status := FND_API.G_MISS_CHAR;
1506: l_error_message_code := FND_API.G_MISS_CHAR;
1507: END IF;
1507: END IF;
1508: --dbms_output.put_line('Project Subteam Id'||l_subteam_id);
1509:
1510: IF P_DEBUG_MODE = 'Y' THEN
1511: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1512: ,x_msg => 'before calendar = project'
1513: ,x_log_level => li_message_level);
1514: END IF;
1515:
1518: THEN
1519: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1520: ,p_msg_name => 'PA_INVALID_CAL_PROJ_SETUP' );
1521:
1522: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1523: END IF;
1524:
1525: --
1526: --Calendar validation is only necessary when
1530: IF ((l_assignment_rec.calendar_type = 'OTHER' AND PA_STARTUP.G_Calling_Application = 'SELF_SERVICE')
1531: OR (l_assignment_rec.calendar_type <> 'RESOURCE' AND PA_STARTUP.G_Calling_Application <> 'SELF_SERVICE')) THEN
1532:
1533: IF P_DEBUG_MODE = 'Y' THEN
1534: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1535: ,x_msg => 'cal_id='||l_assignment_rec.calendar_id||
1536: ', cal_name=' ||p_calendar_name
1537: ,x_log_level => li_message_level);
1538: END IF;
1556:
1557: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1558: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1559: ,p_msg_name => l_error_message_code );
1560: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1561: END IF;
1562: l_return_status := FND_API.G_MISS_CHAR;
1563: l_error_message_code := FND_API.G_MISS_CHAR;
1564:
1569: -- Validate Work Type
1570: -- If work type name is valid and work_type_id is null then returns the work_type_id
1571: --
1572: IF P_DEBUG_MODE = 'Y' THEN
1573: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1574: ,x_msg => 'work_type_id='||l_assignment_rec.work_type_id||
1575: ', work_type_name='||p_work_type_name||
1576: ', flag='||PA_STARTUP.G_Check_ID_Flag
1577: ,x_log_level => li_message_level);
1590:
1591: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1592: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1593: ,p_msg_name => l_error_message_code );
1594: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1595: END IF;
1596: l_return_status := FND_API.G_MISS_CHAR;
1597: l_error_message_code := FND_API.G_MISS_CHAR;
1598:
1611:
1612: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1613: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1614: ,p_msg_name => l_error_message_code );
1615: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1616: END IF;
1617: l_return_status := FND_API.G_MISS_CHAR;
1618: l_error_message_code := FND_API.G_MISS_CHAR;
1619:
1636: ,x_error_message_code=> l_error_message_code) ;
1637: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1638: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1639: ,p_msg_name => l_error_message_code );
1640: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1641: END IF;
1642: l_return_status := FND_API.G_MISS_CHAR;
1643: l_error_message_code := FND_API.G_MISS_CHAR;
1644:
1651:
1652: IF get_expenditure_type_class%NOTFOUND THEN
1653: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1654: ,p_msg_name => 'PA_EXPTYPE_INVALID' );
1655: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1656: END IF;
1657: CLOSE get_expenditure_type_class;
1658: END IF;
1659:
1675: --IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1676: IF l_valid_flag <> 'Y' THEN
1677: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1678: ,p_msg_name => 'PA_EXPTYPE_SYSLINK_INVALID' );
1679: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1680: END IF;
1681: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1682: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1683: ,p_msg_name => l_error_message_code );
1680: END IF;
1681: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1682: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1683: ,p_msg_name => l_error_message_code );
1684: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1685: END IF;
1686: l_return_status := FND_API.G_MISS_CHAR;
1687: l_error_message_code := FND_API.G_MISS_CHAR;
1688: END IF; -- end of checking expenditure type and expenditure type class
1690: -- Bug 5130421 : Validate expense limit to be positive
1691: IF (l_assignment_rec.expense_limit < 0) THEN
1692: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1693: ,p_msg_name => 'PA_EXPENSE_LIMIT_INVALID' );
1694: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1695: END IF;
1696: -- End Bug 5130421
1697: --
1698: --Validate Staffing Priority
1715: -- Bug: 4537865
1716: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1717: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1718: ,p_msg_name => l_error_message_code );
1719: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1720: END IF;
1721: l_return_status := FND_API.G_MISS_CHAR;
1722: l_error_message_code := FND_API.G_MISS_CHAR;
1723: END IF;
1742:
1743: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1744: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
1745: ,p_msg_name => l_error_message_code );
1746: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1747: END IF;
1748: l_return_status := FND_API.G_MISS_CHAR;
1749: l_error_message_code := FND_API.G_MISS_CHAR;
1750:
1753: END IF; --if source_assignment_id IS NULL
1754:
1755: --Log Message
1756: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
1757: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment.after_validation'
1758: ,x_msg => 'Finished Validation, calling private create_assignment'
1759: ,x_log_level => 5);
1760: END IF;
1761:
1761:
1762: IF p_asgn_creation_mode <> 'MASS' OR (p_asgn_creation_mode = 'MASS' AND p_validate_only = FND_API.G_FALSE) THEN
1763:
1764: IF P_DEBUG_MODE = 'Y' THEN
1765: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1766: ,x_msg => 'before call pvt.create_assignment'
1767: ,x_log_level => li_message_level);
1768: END IF;
1769:
1789: ,x_resource_id => x_resource_id
1790: ,x_return_status => l_return_status
1791: );
1792: IF P_DEBUG_MODE = 'Y' THEN
1793: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Create_Assignment'
1794: ,x_msg => 'after call pvt.create_assignment'
1795: ,x_log_level => li_message_level);
1796: END IF;
1797:
1812: END IF;
1813:
1814: --clear global table of newly created assignment ids
1815: /* Commented the code for bug 3079906
1816: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;*/
1817:
1818:
1819: -- Reset the error stack when returning to the calling program
1820:
1842: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
1843: ,p_msg_name => 'PA_INVALID_ASSIGN_START_DATE'
1844: ,p_token1 => 'PROFILE_DATE'
1845: ,p_value1 => l_profile_begin_date );
1846: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1847: x_return_status := FND_API.G_RET_STS_ERROR;
1848: l_error_message_code := 'PA_INVALID_ASSIGN_START_DATE';
1849: END IF; -- IF ( l_valid_assign_start_flag = 'Y' )
1850:
1855: ROLLBACK TO ASG_PUB_CREATE_ASSIGNMENT;
1856: END IF;
1857:
1858: --clear global table of newly created assignment ids
1859: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
1860:
1861: -- Set the excetption Message and the stack
1862: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Create_Assignment'
1863: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1858: --clear global table of newly created assignment ids
1859: PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.DELETE;
1860:
1861: -- Set the excetption Message and the stack
1862: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Create_Assignment'
1863: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1864: --
1865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1866: RAISE;
1900: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1901: )
1902: IS
1903:
1904: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
1905: l_return_status VARCHAR2(1);
1906: l_msg_index_out NUMBER;
1907:
1908: BEGIN
1907:
1908: BEGIN
1909:
1910: -- Initialize the Error Stack
1911: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open');
1912:
1913: -- Initialize the return status to success
1914: x_return_status := FND_API.G_RET_STS_SUCCESS;
1915:
1919: END IF;
1920:
1921: --Log Message
1922: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
1923: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open.begin'
1924: ,x_msg => 'Beginning of Execute_Staff_Assign_From_Open'
1925: ,x_log_level => 5);
1926: END IF;
1927:
1941: END;
1942:
1943: --Log Message
1944: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
1945: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open.staff_assign'
1946: ,x_msg => 'Calling Staff_Assign_From_Open'
1947: ,x_log_level => 5);
1948: END IF;
1949: --
1947: ,x_log_level => 5);
1948: END IF;
1949: --
1950: -- Call the assign resource to open assignment public API
1951: PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open
1952: ( p_assignment_rec => l_assignment_rec
1953: ,p_asgn_creation_mode => p_asgn_creation_mode
1954: ,p_unfilled_assign_status_code => p_unfilled_assign_status_code
1955: ,p_unfilled_assign_status_name => p_unfilled_assign_status_name
2000: EXCEPTION
2001: WHEN OTHERS THEN
2002:
2003: -- Set the excetption Message and the stack
2004: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Exec_Staff_Assign_From_Open'
2005: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2006: --
2007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2008: RAISE; -- This is optional depending on the needs
2012:
2013:
2014:
2015: PROCEDURE Staff_Assign_From_Open
2016: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
2017: ,p_asgn_creation_mode IN VARCHAR2 := 'FULL'
2018: ,p_unfilled_assign_status_code IN pa_project_statuses.project_status_code%TYPE := FND_API.G_MISS_CHAR
2019: ,p_unfilled_assign_status_name IN pa_project_statuses.project_status_name%TYPE := FND_API.G_MISS_CHAR
2020: ,p_remaining_candidate_code IN pa_lookups.lookup_code%TYPE := FND_API.G_MISS_CHAR
2036: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2037: )
2038: IS
2039:
2040: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2041: l_source_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2042: l_new_open_assignment_tbl PA_ASSIGNMENTS_PUB.Assignment_Tbl_Type;
2043: l_resource_source_id NUMBER;
2044: l_return_status VARCHAR2(1);
2037: )
2038: IS
2039:
2040: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2041: l_source_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2042: l_new_open_assignment_tbl PA_ASSIGNMENTS_PUB.Assignment_Tbl_Type;
2043: l_resource_source_id NUMBER;
2044: l_return_status VARCHAR2(1);
2045: l_error_message_code fnd_new_messages.message_name%TYPE;
2038: IS
2039:
2040: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2041: l_source_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
2042: l_new_open_assignment_tbl PA_ASSIGNMENTS_PUB.Assignment_Tbl_Type;
2043: l_resource_source_id NUMBER;
2044: l_return_status VARCHAR2(1);
2045: l_error_message_code fnd_new_messages.message_name%TYPE;
2046: l_msg_count NUMBER;
2271:
2272: BEGIN
2273:
2274: -- Initialize the Error Stack
2275: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2276: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2277:
2278: -- Initialize the error flag
2279: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
2272: BEGIN
2273:
2274: -- Initialize the Error Stack
2275: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2276: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2277:
2278: -- Initialize the error flag
2279: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
2280:
2275: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2276: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open');
2277:
2278: -- Initialize the error flag
2279: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
2280:
2281: -- Initialize the return status to success
2282: x_return_status := FND_API.G_RET_STS_SUCCESS;
2283:
2292: END IF;
2293:
2294: --Log Message
2295: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2296: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.begin'
2297: ,x_msg => 'Staff_Assign_From_Open, src_asgmt_id='||p_assignment_rec.source_assignment_id
2298: ,x_log_level => 5);
2299: END IF;
2300: l_assignment_rec := p_assignment_rec;
2309: IF l_mass_wf_in_progress_flag = 'Y' THEN
2310:
2311: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
2312: ,p_msg_name => 'PA_ASSIGNMENT_WF');
2313: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2314:
2315: ELSIF check_record_version%NOTFOUND THEN
2316:
2317: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2315: ELSIF check_record_version%NOTFOUND THEN
2316:
2317: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2318: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
2319: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2320:
2321: ELSE
2322:
2323: FND_PROFILE.Get('PA_DEF_FILLED_ASGMT_STATUS',l_default_filled_status_code);
2325: IF l_default_filled_status_code IS NULL THEN
2326:
2327: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
2328: ,p_msg_name => 'PA_FILLED_STATUS_NOT_DEFINED');
2329: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2330:
2331: ELSE
2332:
2333: -- Assign the record to the local variable
2481: ,x_action_code => 'OPEN_ASGMT_ASSIGN_RESOURCES');
2482: IF l_return_status <> 'Y' THEN
2483: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2484: ,p_msg_name => 'PA_ASGN_NOT_ALLOWED_FOR_STUS');
2485: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2486: l_status_controls_valid := 'N';
2487: EXIT;
2488: --dbms_output.put_line('Open Assignment Status not allowed');
2489: END IF;
2493: IF l_status_controls_valid = 'Y' THEN
2494:
2495: --Log Message
2496: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2497: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.after_source'
2498: ,x_msg => 'After getting requirement details, now assign requirement details'
2499: ,x_log_level => 5);
2500: END IF;
2501:
2557: l_assignment_rec.staffing_owner_person_id := l_source_assignment_rec.staffing_owner_person_id;
2558:
2559: --Log Message
2560: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2561: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.dates_compare'
2562: ,x_msg => 'Differentiate between 4 possibility for Dates'
2563: ,x_log_level => 5);
2564: END IF;
2565:
2686:
2687:
2688: --Log Message
2689: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2690: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.create_open'
2691: ,x_msg => 'Creating Requirement.'
2692: ,x_log_level => 5);
2693: END IF;
2694:
2695:
2696:
2697:
2698: -- Create the open assignment
2699: PA_ASSIGNMENTS_PUB.Create_Assignment
2700: ( p_assignment_rec => l_new_open_assignment_tbl(l_counter)
2701: ,p_asgn_creation_mode => p_asgn_creation_mode
2702: ,p_project_status_name => p_unfilled_assign_status_name
2703: ,p_resource_name => p_resource_name
2727:
2728: ELSE
2729: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2730: ,p_msg_name => 'PA_FAILED_TO_CREATE_OPEN_ASGN');
2731: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2732: END IF;
2733: --
2734:
2735: END LOOP; --loop through new open assignments to be created.
2739: --create the new staffed assignment
2740:
2741: --Log Message
2742: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2743: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.create_staff'
2744: ,x_msg => 'Creating Assignment'
2745: ,x_log_level => 5);
2746: END IF;
2747:
2745: ,x_log_level => 5);
2746: END IF;
2747:
2748: --dbms_output.put_line('Creating staff assignment');
2749: PA_ASSIGNMENTS_PUB.Create_Assignment
2750: ( p_assignment_rec => l_assignment_rec
2751: ,p_asgn_creation_mode => p_asgn_creation_mode
2752: ,p_project_status_name => p_assignment_status_name
2753: ,p_resource_name => p_resource_name
2764: ,x_msg_data => x_msg_data
2765: );
2766:
2767: IF P_DEBUG_MODE = 'Y' THEN
2768: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
2769: ,x_msg => 'Create new staffed assignment,status='||l_return_status
2770: ,x_log_level => li_message_level);
2771: END IF;
2772:
2774: -- FP.M Development
2775:
2776: -- 1. get the new staffed assignment's derived rlm and person ids
2777: IF P_DEBUG_MODE = 'Y' THEN
2778: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
2779: ,x_msg => 'x_new_assignment_id='||x_new_assignment_id
2780: ,x_log_level => li_message_level);
2781: END IF;
2782:
2784: FETCH get_staffed_asgmt_rlm INTO l_new_rlm_id, l_new_person_id;
2785: CLOSE get_staffed_asgmt_rlm;
2786:
2787: IF P_DEBUG_MODE = 'Y' THEN
2788: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
2789: ,x_msg => 'l_new_rlm_id='||l_new_rlm_id||
2790: ' l_new_person_id='||l_new_person_id
2791: ,x_log_level => li_message_level);
2792: END IF;
2807: l_rlm_id := l_new_rlm_id;
2808: END IF;
2809:
2810: IF P_DEBUG_MODE = 'Y' THEN
2811: pa_debug.write(x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
2812: ,x_msg => 'l_rlm_id='||l_rlm_id
2813: ,x_log_level => li_message_level);
2814: END IF;
2815:
2900: ,x_return_status => l_return_status
2901: );
2902: --Log Message
2903: IF P_DEBUG_MODE = 'Y' THEN
2904: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staffed_Assign_From_Open'
2905: ,x_msg => 'Update_task_assignments(case 1), status='||l_return_status
2906: ,x_log_level => 5);
2907: END IF;
2908:
2941: CLOSE get_res_mand_attributes;
2942:
2943: --Log Message
2944: IF P_DEBUG_MODE = 'Y' THEN
2945: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staffed_Assign_From_Open'
2946: ,x_msg => 'Update_task_assignments(case 2), status='||l_return_status
2947: ,x_log_level => 5);
2948: END IF;
2949:
2975: ,x_return_status => l_return_status
2976: );
2977: --Log Message
2978: IF P_DEBUG_MODE = 'Y' THEN
2979: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staffed_Assign_From_Open'
2980: ,x_msg => 'Update_task_assignments(case 3), status='||l_return_status
2981: ,x_log_level => 5);
2982: END IF;
2983:
2986: -- End of FP.M Development
2987:
2988: --Log Message
2989: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2990: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open.change_status'
2991: ,x_msg => 'calling schedule change_status'
2992: ,x_log_level => 5);
2993: END IF;
2994:
3086: IF p_commit = FND_API.G_TRUE THEN
3087: ROLLBACK TO ASG_PUB_STAFF_ASSIGN_FROM_OPEN;
3088: END IF;
3089: -- Set the excetption Message and the stack
3090: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Staff_Assign_From_Open'
3091: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3092: --
3093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3094: RAISE; -- This is optional depending on the needs
3207: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3208: )
3209: IS
3210:
3211: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
3212: l_return_status VARCHAR2(1);
3213:
3214: /*Code addition for bug 3096132 starts*/
3215: l_br_rate_oride VARCHAR2(1);
3228:
3229:
3230: --dbms_output.put_line('Beginning Execute_Update_Assignment');
3231: -- Initialize the Error Stack
3232: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Execute_Update_Assignment');
3233:
3234: --Log Message
3235: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3236: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Update_Assignment.begin'
3232: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Execute_Update_Assignment');
3233:
3234: --Log Message
3235: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3236: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Update_Assignment.begin'
3237: ,x_msg => 'Beginning of Execute_Update_Assignment'
3238: ,x_log_level => 5);
3239: END IF;
3240:
3261: then
3262: if (p_rate_disc_reason_code IS NULL OR p_rate_disc_reason_code = FND_API.G_MISS_CHAR) then
3263: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
3264: ,p_msg_name => 'PA_RATE_DISC_REASON_REQUIRED');
3265: --PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3266: x_return_status := FND_API.G_RET_STS_ERROR;
3267:
3268: end if;
3269: end if;
3355: END IF;
3356:
3357: --Log Message
3358: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3359: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Update_Assignment.update_assignment'
3360: ,x_msg => 'After record assignment, Calling Update_Assignment'
3361: ,x_log_level => 5);
3362: END IF;
3363:
3362: END IF;
3363:
3364: -- Call the update assignment public API
3365: --dbms_output.put_line('Calling Update_Assignment');
3366: PA_ASSIGNMENTS_PUB.Update_Assignment
3367: ( p_assignment_rec => l_assignment_rec
3368: ,p_asgn_update_mode => p_asgn_update_mode
3369: ,p_project_number => p_project_number
3370: ,p_resource_name => p_resource_name
3419:
3420:
3421:
3422: PROCEDURE Update_Assignment
3423: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
3424: ,p_asgn_update_mode IN VARCHAR2 := FND_API.G_MISS_CHAR
3425: ,p_project_number IN pa_projects_all.segment1%TYPE := FND_API.G_MISS_CHAR /* Bug 1851096 */
3426: ,p_resource_name IN pa_resources.name%TYPE := FND_API.G_MISS_CHAR
3427: ,p_resource_source_id IN NUMBER := FND_API.G_MISS_NUM
3455: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
3456: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3457: )IS
3458:
3459: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
3460: l_assignment_id pa_project_assignments.assignment_id%TYPE;
3461: l_project_id pa_projects.project_id%TYPE;
3462: l_resource_source_id pa_resources.resource_id%TYPE;
3463: l_status_code pa_project_statuses.project_status_code%TYPE;
3558:
3559: BEGIN
3560:
3561: -- Initialize the Error Stack
3562: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Update_Assignment');
3563:
3564: --Log Message
3565: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3566: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Update_Assignment.begin'
3562: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Update_Assignment');
3563:
3564: --Log Message
3565: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3566: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Update_Assignment.begin'
3567: ,x_msg => 'Beginning of Update_Assignment'
3568: ,x_log_level => 5);
3569: END IF;
3570:
3571: -- Initialize the return status to success
3572: x_return_status := FND_API.G_RET_STS_SUCCESS;
3573:
3574: -- Initialize the error flag
3575: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
3576:
3577: -- Issue API savepoint if the transaction is to be committed
3578: IF p_commit = FND_API.G_TRUE THEN
3579: SAVEPOINT ASG_PUB_UPDATE_ASSIGNMENT;
3600:
3601: IF l_workflow_in_progress_flag='Y' THEN
3602: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
3603: ,p_msg_name => 'PA_NO_REQ_WF');
3604: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3605: x_return_status := FND_API.G_RET_STS_ERROR;
3606: END IF;
3607: END IF;
3608:
3621:
3622: IF l_mass_wf_in_progress_flag = 'Y' THEN
3623: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
3624: ,p_msg_name => 'PA_ASSIGNMENT_WF');
3625: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3626: x_return_status := FND_API.G_RET_STS_ERROR;
3627: END IF;
3628: END IF;
3629:
3642: l_project_system_status_code = 'STAFFED_ASGMT_CANCEL' THEN
3643:
3644: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
3645: ,p_msg_name => 'PA_UPDATE_CAN_FILL_ASMT');
3646: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3647: x_return_status := FND_API.G_RET_STS_ERROR;
3648: END IF;
3649:
3650: END IF;
3674:
3675: /*
3676: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3677: ,p_msg_name => 'PA_SCH_UPDATE_NOT_ALLOWED');
3678: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3679: */
3680: NULL;
3681:
3682: --Update to Resource or Project Role is not allowed for Version 1.
3692: (p_resource_source_id <> FND_API.G_MISS_NUM OR p_resource_source_id IS NULL)) THEN
3693:
3694: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3695: ,p_msg_name => 'PA_RES_OR_ROLE_NOT_ALLOWED');
3696: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3697:
3698:
3699: ELSE
3700:
3726: IF PA_ASGMT_WFSTD.is_approval_pending(p_assignment_id => l_assignment_rec.assignment_id) = 'Y' THEN
3727:
3728: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3729: ,p_msg_name => 'PA_WF_APPROVAL_PENDING');
3730: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3731: l_pending_wf_check := 'N';
3732:
3733:
3734: ELSIF (check_record_version%NOTFOUND ) THEN
3734: ELSIF (check_record_version%NOTFOUND ) THEN
3735:
3736: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3737: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
3738: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3739: l_record_version_check := 'N';
3740:
3741: END IF;
3742:
3785: ,x_error_message_code => l_error_message_code);
3786: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3787: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3788: , p_msg_name => l_error_message_code);
3789: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3790: END IF;
3791:
3792: l_return_status := FND_API.G_MISS_CHAR;
3793: l_error_message_code := FND_API.G_MISS_CHAR;
3801: THEN
3802: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
3803: ,p_msg_name => 'PA_INVALID_CAL_PROJ_SETUP' );
3804:
3805: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3806: END IF;
3807:
3808: IF (l_calendar_name <> FND_API.G_MISS_CHAR AND l_calendar_name IS NOT NULL) OR
3809: (l_assignment_rec.calendar_id <> FND_API.G_MISS_NUM AND l_assignment_rec.calendar_id IS NOT NULL) THEN
3821: ,x_error_message_code => l_error_message_code );
3822: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3823: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
3824: ,p_msg_name => l_error_message_code );
3825: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3826: END IF;
3827: l_return_status := FND_API.G_MISS_CHAR;
3828: l_error_message_code := FND_API.G_MISS_CHAR;
3829:
3830: END IF;
3831:
3832: --Log Message
3833: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
3834: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Update_Assignment.Id_validation'
3835: ,x_msg => 'Do Value to ID conversion.'
3836: ,x_log_level => 5);
3837: END IF;
3838:
3889: ,x_error_message_code => l_error_message_code );
3890: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3891: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
3892: ,p_msg_name => l_error_message_code );
3893: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3894: END IF;
3895: l_return_status := FND_API.G_MISS_CHAR;
3896: l_error_message_code := FND_API.G_MISS_CHAR;
3897:
3899: ELSIF (p_location_city IS NOT NULL AND p_location_city <> FND_API.G_MISS_CHAR) OR
3900: (p_location_region IS NOT NULL AND p_location_region <> FND_API.G_MISS_CHAR) THEN
3901: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
3902: ,p_msg_name => 'PA_COUNTRY_INVALID');
3903: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3904:
3905: --Bug 1795160: when user empty the location fields, the location id needs to be nulled out.
3906: --If in self-service mode, if country name and code is null, then set location id to NULL
3907: ELSIF l_location_country_code IS NULL AND p_location_country_name IS NULL AND PA_STARTUP.G_Calling_Application = 'SELF_SERVICE' THEN
3923: ,x_error_message_code => l_error_message_code );
3924: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3925: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
3926: ,p_msg_name => l_error_message_code );
3927: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3928: END IF;
3929: l_return_status := FND_API.G_MISS_CHAR;
3930: l_error_message_code := FND_API.G_MISS_CHAR;
3931:
3936: ,x_error_message_code => l_error_message_code );
3937: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3938: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
3939: ,p_msg_name => l_error_message_code );
3940: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3941: END IF;
3942: l_return_status := FND_API.G_MISS_CHAR;
3943: l_error_message_code := FND_API.G_MISS_CHAR;
3944:
3947: --
3948: IF l_assignment_rec.min_resource_job_level > l_assignment_rec.max_resource_job_level THEN
3949: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3950: ,p_msg_name => 'PA_MIN_JL_GREATER_THAN_MAX');
3951: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3952: END IF;
3953:
3954: END IF; -- end of checking job levels for only open assignments
3955:
3959: IF (l_assignment_rec.comp_match_weighting <> FND_API.G_MISS_NUM AND l_assignment_rec.comp_match_weighting IS NOT NULL) THEN
3960: IF l_assignment_rec.comp_match_weighting < 0 OR l_assignment_rec.comp_match_weighting > 100 THEN
3961: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3962: ,p_msg_name => 'PA_INVALID_MATCH_WEIGHTING');
3963: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3964: END IF;
3965: END IF;
3966:
3967: IF (l_assignment_rec.avail_match_weighting <> FND_API.G_MISS_NUM AND l_assignment_rec.avail_match_weighting IS NOT NULL) THEN
3967: IF (l_assignment_rec.avail_match_weighting <> FND_API.G_MISS_NUM AND l_assignment_rec.avail_match_weighting IS NOT NULL) THEN
3968: IF l_assignment_rec.avail_match_weighting < 0 OR l_assignment_rec.avail_match_weighting > 100 THEN
3969: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3970: ,p_msg_name => 'PA_INVALID_MATCH_WEIGHTING');
3971: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3972: END IF;
3973: END IF;
3974:
3975: IF (l_assignment_rec.job_level_match_weighting <> FND_API.G_MISS_NUM AND l_assignment_rec.job_level_match_weighting IS NOT NULL) THEN
3975: IF (l_assignment_rec.job_level_match_weighting <> FND_API.G_MISS_NUM AND l_assignment_rec.job_level_match_weighting IS NOT NULL) THEN
3976: IF l_assignment_rec.job_level_match_weighting < 0 OR l_assignment_rec.job_level_match_weighting > 100 THEN
3977: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3978: ,p_msg_name => 'PA_INVALID_MATCH_WEIGHTING');
3979: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3980: END IF;
3981: END IF;
3982:
3983:
3990: l_assignment_rec.search_min_availability > 100 THEN
3991:
3992: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3993: ,p_msg_name => 'PA_MIN_AVAIL_INVALID');
3994: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
3995: END IF;
3996: END IF;
3997:
3998: --
4004: l_assignment_rec.search_min_candidate_score > 100 THEN
4005:
4006: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4007: ,p_msg_name => 'PA_MIN_CAN_SCORE_INVALID');
4008: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4009: END IF;
4010: END IF;
4011:
4012: --
4031:
4032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4033: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4034: ,p_msg_name => l_error_message_code );
4035: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4036: ELSE
4037:
4038: l_return_status := FND_API.G_MISS_CHAR;
4039: l_error_message_code := FND_API.G_MISS_CHAR;
4047:
4048: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4049: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4050: ,p_msg_name => l_error_message_code );
4051: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4052: END IF;
4053:
4054: END IF;
4055: l_return_status := FND_API.G_MISS_CHAR;
4076:
4077: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4078: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4079: ,p_msg_name => l_error_message_code );
4080: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4081: ELSE
4082:
4083: l_return_status := FND_API.G_MISS_CHAR;
4084: l_error_message_code := FND_API.G_MISS_CHAR;
4092:
4093: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4094: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4095: ,p_msg_name => l_error_message_code );
4096: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4097: END IF;
4098:
4099: END IF;
4100: l_return_status := FND_API.G_MISS_CHAR;
4117:
4118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4119: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4120: ,p_msg_name => l_error_message_code );
4121: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4122: END IF;
4123: l_return_status := FND_API.G_MISS_CHAR;
4124: l_error_message_code := FND_API.G_MISS_CHAR;
4125:
4143: ,x_error_message_code => l_error_message_code);
4144:
4145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_resource_type_id <> 101 THEN
4146: PA_UTILS.Add_Message ('PA', 'PA_INV_STAFF_OWNER');
4147: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4148: END IF;
4149:
4150: l_return_status := FND_API.G_MISS_CHAR;
4151: l_error_message_code := FND_API.G_MISS_CHAR;
4173:
4174: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4175: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4176: ,p_msg_name => 'PA_CURR_NOT_VALID');
4177: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4178: END IF;
4179: l_return_status := FND_API.G_MISS_CHAR;
4180: l_error_message_code := FND_API.G_MISS_CHAR;
4181:
4202:
4203: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4204: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4205: ,p_msg_name => 'PA_CURR_NOT_VALID');
4206: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4207: END IF;
4208: l_return_status := FND_API.G_MISS_CHAR;
4209: l_error_message_code := FND_API.G_MISS_CHAR;
4210:
4217:
4218: IF l_assignment_rec.tp_rate_override < 0 THEN -- Bug 3198183
4219: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4220: ,p_msg_name => 'PA_INVALID_TP_RATE_OVRD');
4221: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4222: END IF;
4223: END IF;
4224:
4225: --
4229:
4230: IF l_assignment_rec.bill_rate_override <= 0 THEN
4231: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4232: ,p_msg_name => 'PA_INVALID_BILL_RATE_OVRD');
4233: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4234: END IF;
4235: END IF;
4236:
4237: --
4242: IF l_assignment_rec.markup_percent_override < 0 THEN
4243:
4244: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4245: ,p_msg_name => 'PA_INVALID_MARKUP_PERCENT');
4246: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4247: END IF;
4248:
4249: END IF;
4250:
4257: IF (l_assignment_rec.discount_percentage < 0 OR l_assignment_rec.discount_percentage > 100)THEN
4258:
4259: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4260: ,p_msg_name => 'PA_INVALID_DISCOUNT_PERCENT');
4261: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4262: END IF;
4263:
4264: END IF;
4265:
4273: (l_assignment_rec.discount_percentage <> FND_API.G_MISS_NUM AND l_assignment_rec.discount_percentage IS NOT NULL) OR
4274: (l_assignment_rec.discount_percentage <> FND_API.G_MISS_NUM AND l_assignment_rec.discount_percentage IS NOT NULL))) THEN
4275: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4276: ,p_msg_name => 'PA_RATE_DISC_REASON_REQUIRED');
4277: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4278:
4279: END IF;
4280: END IF;
4281: /* Bug2590938 End */
4288: IF l_assignment_rec.tp_percent_applied_override < 0 THEN
4289:
4290: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4291: ,p_msg_name => 'PA_INVALID_APPLY_BASIS_PERCENT');
4292: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4293: END IF;
4294:
4295: END IF;
4296:
4313:
4314: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4315: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4316: ,p_msg_name => l_error_message_code );
4317: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4318: END IF;
4319: l_return_status := FND_API.G_MISS_CHAR;
4320: l_error_message_code := FND_API.G_MISS_CHAR;
4321:
4360: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4361:
4362: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4363: ,p_msg_name => l_error_message_code );
4364: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4365: END IF;
4366: l_return_status := FND_API.G_MISS_CHAR;
4367: l_error_message_code := FND_API.G_MISS_CHAR;
4368: END IF;
4387: ,x_error_message_code => l_error_message_code );
4388: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4389: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4390: ,p_msg_name => l_error_message_code );
4391: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4392: --dbms_output.put_line('work type error');
4393:
4394: ELSIF l_assignment_rec.project_id IS NOT NULL AND l_assignment_rec.project_id <> FND_API.G_MISS_NUM THEN
4395: --
4406:
4407: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4408: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4409: ,p_msg_name => l_error_message_code );
4410: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4411: END IF;
4412:
4413: END IF;
4414: l_return_status := FND_API.G_MISS_CHAR;
4437: -- Bug: 4537865
4438: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4439: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4440: ,p_msg_name => l_error_message_code );
4441: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4442: END IF;
4443: l_return_status := FND_API.G_MISS_CHAR;
4444: l_error_message_code := FND_API.G_MISS_CHAR;
4445: END IF;
4465: ,x_error_message_code=> l_error_message_code) ;
4466: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4467: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4468: ,p_msg_name => l_error_message_code );
4469: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4470: --dbms_output.put_line('expenditure type class error1');
4471:
4472: END IF;
4473: l_return_status := FND_API.G_MISS_CHAR;
4484:
4485: IF get_expenditure_type_class%NOTFOUND THEN
4486: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4487: ,p_msg_name => 'PA_EXPTYPE_INVALID' );
4488: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4489: END IF;
4490: CLOSE get_expenditure_type_class;
4491: END IF;
4492:
4510:
4511: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4512: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4513: ,p_msg_name => l_error_message_code );
4514: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4515: --dbms_output.put_line('expenditure type error');
4516:
4517: END IF;
4518: l_return_status := FND_API.G_MISS_CHAR;
4539: --IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4540: IF l_valid_flag <> 'Y' THEN
4541: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
4542: ,p_msg_name => 'PA_EXPTYPE_SYSLINK_INVALID' );
4543: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4544: END IF;
4545: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4546: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
4547: ,p_msg_name => l_error_message_code );
4544: END IF;
4545: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4546: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
4547: ,p_msg_name => l_error_message_code );
4548: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4549: END IF;
4550: l_return_status := FND_API.G_MISS_CHAR;
4551: l_error_message_code := FND_API.G_MISS_CHAR;
4552: END IF;
4573: x_error_msg_code =>l_error_message_code );
4574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4575: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4576: ,p_msg_name => 'PA_EXP_ORG_INVALID');
4577: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4578:
4579: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4580:
4581: IF (p_asgn_update_mode <> 'MASS_ONLINE') THEN
4586:
4587: IF l_valid_flag <> 'Y' THEN
4588: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4589: ,p_msg_name => 'PA_INVALID_EXP_ORG');
4590: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4591: --dbms_output.put_line('orgn id error2:'||l_valid_flag);
4592:
4593: END IF;
4594: END IF; -- end of checking in Mass Update Online Mode, in which case start date related checks are skipped.
4617:
4618: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4619: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4620: ,p_msg_name => l_error_message_code );
4621: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4622: --dbms_output.put_line('job group error1');
4623:
4624: END IF;
4625: l_return_status := FND_API.G_MISS_CHAR;
4645:
4646: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4647: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4648: ,p_msg_name => l_error_message_code );
4649: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4650: --dbms_output.put_line('job error1');
4651:
4652: END IF;
4653: l_return_status := FND_API.G_MISS_CHAR;
4667: ,x_error_message_code => l_error_message_code);
4668: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4669: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4670: ,p_msg_name => l_error_message_code );
4671: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4672: --dbms_output.put_line('job relation error1');
4673: END IF;
4674: l_return_status := FND_API.G_MISS_CHAR;
4675: l_error_message_code := FND_API.G_MISS_CHAR;
4694:
4695: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4696: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4697: ,p_msg_name => 'PA_EXP_OU_INVALID' );
4698: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4699:
4700: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4701: l_return_status := FND_API.G_MISS_CHAR;
4702: l_error_message_code := FND_API.G_MISS_CHAR;
4709: ,x_error_message_code =>l_error_message_code ) ;
4710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4711: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4712: ,p_msg_name => l_error_message_code );
4713: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4714: --dbms_output.put_line('OU id error1');
4715:
4716: END IF;
4717: END IF;
4743: ,x_return_status => l_return_status
4744: ,x_msg_count => l_msg_count
4745: ,x_msg_data => l_msg_data);
4746: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4747: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4748: --dbms_output.put_line('TP amount type error1');
4749:
4750: END IF;
4751: l_return_status := FND_API.G_MISS_CHAR;
4774:
4775: IF l_ret_code = FND_API.G_FALSE THEN
4776: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4777: ,p_msg_name => 'PA_ADD_ADMIN_ASMT_SECURITY' );
4778: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4779: END IF;
4780: END IF;
4781:
4782: IF p_asgn_update_mode = PA_MASS_ASGMT_TRX.G_MASS_UPDATE_FORECAST_ITEMS THEN
4795:
4796: IF l_ret_code = FND_API.G_FALSE THEN
4797: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
4798: ,p_msg_name => 'PA_ADD_ADMIN_ASMT_SECURITY' );
4799: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4800: END IF;
4801: END IF;
4802:
4803: END IF;
4805: --dbms_output.put_line('Finish Validation');
4806:
4807: --Log Message
4808: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
4809: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Update_Assignment.pvt_update_asgmt'
4810: ,x_msg => 'Calling PVT Update_Assignment'
4811: ,x_log_level => 5);
4812: END IF;
4813:
4851: PA_DEBUG.Reset_Err_Stack;
4852:
4853: -- If g_error_exists is TRUE then set the x_return_status to 'E'
4854:
4855: --IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN
4856: IF x_msg_count > 0 THEN
4857:
4858: x_return_status := FND_API.G_RET_STS_ERROR;
4859:
4875: IF p_commit = FND_API.G_TRUE THEN
4876: ROLLBACK TO ASG_PUB_UPDATE_ASSIGNMENT;
4877: END IF;
4878: -- Set the excetption Message and the stack
4879: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Update_Assignment'
4880: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4881: --
4882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4883: RAISE; -- This is optional depending on the needs
4939:
4940: BEGIN
4941:
4942: -- Initialize the Error Stack
4943: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Delete_Assignment');
4944: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.delete assignment');
4945:
4946: --Log Message
4947: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
4940: BEGIN
4941:
4942: -- Initialize the Error Stack
4943: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Delete_Assignment');
4944: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.delete assignment');
4945:
4946: --Log Message
4947: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
4948: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_Assignment.begin'
4944: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.delete assignment');
4945:
4946: --Log Message
4947: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
4948: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_Assignment.begin'
4949: ,x_msg => 'Beginning of Delete_Assignment'
4950: ,x_log_level => 5);
4951: END IF;
4952:
4950: ,x_log_level => 5);
4951: END IF;
4952:
4953: -- Initialize the error flag
4954: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
4955: x_return_status := FND_API.G_RET_STS_SUCCESS;
4956:
4957: -- Issue API savepoint if the transaction is to be committed
4958: IF p_commit = FND_API.G_TRUE THEN
4973: IF l_assignment_id IS NOT NULL THEN
4974:
4975: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4976: ,p_msg_name => 'PA_ASGN_AS_SOURCE_ASGN');
4977: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4978: x_return_status := FND_API.G_RET_STS_ERROR;
4979:
4980: ELSE
4981:
4985: CLOSE check_record_version;
4986: IF l_assignment_row_id IS NULL THEN
4987: PA_UTILS.Add_Message( p_app_short_name => 'PA'
4988: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
4989: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
4990: x_return_status := FND_API.G_RET_STS_ERROR;
4991:
4992: ELSE
4993:
5002: CLOSE check_team_template_wf;
5003: IF l_workflow_in_progress_flag = 'Y' THEN
5004: PA_UTILS.Add_Message( p_app_short_name => 'PA'
5005: ,p_msg_name => 'PA_NO_REQ_WF');
5006: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5007: x_return_status := FND_API.G_RET_STS_ERROR;
5008:
5009: ELSE
5010:
5018:
5019: IF l_mass_wf_in_progress_flag = 'Y' THEN
5020: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
5021: ,p_msg_name => 'PA_ASSIGNMENT_WF');
5022: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5023: x_return_status := FND_API.G_RET_STS_ERROR;
5024:
5025: ELSE
5026:
5029: PA_ASSIGNMENT_APPROVAL_PVT.Abort_Assignment_Approval(p_assignment_id => p_assignment_id
5030: ,p_project_id => l_project_id
5031: ,x_return_status => l_return_status);
5032: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5033: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5034: END IF;
5035: END IF;
5036:
5037: --Log Message
5035: END IF;
5036:
5037: --Log Message
5038: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
5039: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_Assignment.pvt_delete_asgmt'
5040: ,x_msg => 'Calling PVT Delete_Assignment'
5041: ,x_log_level => 5);
5042: END IF;
5043:
5100: IF p_commit = FND_API.G_TRUE THEN
5101: ROLLBACK TO ASG_PUB_DELETE_ASSIGNMENT;
5102: END IF;
5103: -- Set the excetption Message and the stack
5104: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Delete_Assignment'
5105: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
5106: --
5107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5108: RAISE; -- This is optional depending on the needs
5137: l_adv_action_set_id pa_action_sets.action_set_id%TYPE;
5138:
5139: BEGIN
5140:
5141: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5142:
5143: -- Initialize the Error Stack
5144: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5145: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5140:
5141: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5142:
5143: -- Initialize the Error Stack
5144: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5145: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5146:
5147: --Log Message
5148: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
5141: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5142:
5143: -- Initialize the Error Stack
5144: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5145: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5146:
5147: --Log Message
5148: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
5149: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Copy_Team_Role'
5145: --dbms_output.put_line('PA_ASSIGNMENTS_PUB.Copy_Team_Role');
5146:
5147: --Log Message
5148: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
5149: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Copy_Team_Role'
5150: ,x_msg => 'Beginning of Copy_Team_Role'
5151: ,x_log_level => 5);
5152: END IF;
5153:
5324: IF l_assignment_rec.status_code IS NULL THEN
5325:
5326: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
5327: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
5328: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5329:
5330: END IF;
5331: END IF;
5332:
5339:
5340: -- Create the requirement
5341: --Log Message
5342: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
5343: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Copy_Team_Role'
5344: ,x_msg => 'Calling create assignment'
5345: ,x_log_level => 5);
5346: END IF;
5347:
5344: ,x_msg => 'Calling create assignment'
5345: ,x_log_level => 5);
5346: END IF;
5347:
5348: --dbms_output.put_line('calling PA_ASSIGNMENTS_PUB.Create_Assignment');
5349: --dbms_output.put_line('action set id = '|| l_adv_action_set_id );
5350: PA_ASSIGNMENTS_PUB.Create_Assignment
5351: ( p_assignment_rec => l_assignment_rec
5352: ,p_asgn_creation_mode => p_asgn_creation_mode
5346: END IF;
5347:
5348: --dbms_output.put_line('calling PA_ASSIGNMENTS_PUB.Create_Assignment');
5349: --dbms_output.put_line('action set id = '|| l_adv_action_set_id );
5350: PA_ASSIGNMENTS_PUB.Create_Assignment
5351: ( p_assignment_rec => l_assignment_rec
5352: ,p_asgn_creation_mode => p_asgn_creation_mode
5353: ,p_adv_action_set_id => l_adv_action_set_id
5354: ,p_commit => p_commit
5389:
5390: EXCEPTION
5391: WHEN OTHERS THEN
5392: -- Set the excetption Message and the stack
5393: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Copy_Team_Role'
5394: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
5395: --
5396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5397: RAISE;
5510: FND_PROFILE.Get('PA_START_OPEN_ASGMT_STATUS',l_status_code);
5511: IF l_status_code IS NULL THEN
5512: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
5513: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
5514: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5515: END IF;
5516: END IF;
5517:
5518: IF (p_assignment_type = 'STAFFED_ASSIGNMENT' OR p_assignment_type = 'STAFFED_ADMIN_ASSIGNMENT') THEN
5519: FND_PROFILE.Get('PA_START_STAFFED_ASGMT_STATUS',l_status_code);
5520: IF l_status_code IS NULL THEN
5521: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
5522: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
5523: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
5524: END IF;
5525: END IF;
5526:
5527: END IF;
5528:
5529:
5530: -- l_new_assignment_id_tbl:= SYSTEM.pa_num_tbl_type();
5531: --do online validation
5532: PA_ASSIGNMENTS_PUB.Execute_Create_Assignment
5533: ( p_asgn_creation_mode => 'MASS'
5534: ,p_unfilled_assignment_status => p_unfilled_assignment_status
5535: ,p_assignment_name => p_assignment_name
5536: ,p_assignment_type => p_assignment_type
5685:
5686: EXCEPTION
5687: WHEN OTHERS THEN
5688: -- Set the exception Message and the stack
5689: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Mass_Exec_Create_Assignments'
5690: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
5691: --
5692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5693:
5811:
5812: FOR i IN p_resource_id_tbl.FIRST .. p_resource_id_tbl.LAST LOOP
5813:
5814: --call execute_create_assignment
5815: PA_ASSIGNMENTS_PUB.Execute_Create_Assignment
5816: ( p_asgn_creation_mode => 'MASS'
5817: ,p_unfilled_assignment_status => p_unfilled_assignment_status
5818: ,p_assignment_name => p_assignment_name
5819: ,p_assignment_type => p_assignment_type
5925:
5926: EXCEPTION
5927: WHEN OTHERS THEN
5928: -- Set the exception Message and the stack
5929: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Mass_Create_Assignments'
5930: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
5931: --
5932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5933: RAISE;
6021: BEGIN
6022:
6023: --This API is only called to do value-id validations
6024:
6025: pa_assignments_pub.Execute_Update_Assignment
6026: ( p_asgn_update_mode => 'MASS_ONLINE'
6027: ,p_assignment_name => p_assignment_name
6028: ,p_assignment_type => p_assignment_type
6029: ,p_staffing_priority_code => p_staffing_priority_code
6168:
6169: EXCEPTION
6170: WHEN OTHERS THEN
6171: -- Set the exception Message and the stack
6172: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Mass_Exec_Update_Assignments'
6173: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6174: --
6175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6176: RAISE;
6392: -- validation on min and max job level is done even if user
6393: -- specifies only min job level or only max job level for mass update
6394:
6395: --call execute_update_assignment
6396: pa_assignments_pub.Execute_Update_Assignment
6397: ( p_asgn_update_mode => p_update_mode
6398: ,p_assignment_id => p_assignment_id_tbl(i)
6399: ,p_record_version_number => NULL
6400: ,p_assignment_type => l_assignment_type
6541:
6542: EXCEPTION
6543: WHEN OTHERS THEN
6544: -- Set the exception Message and the stack
6545: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Mass_Update_Assignment'
6546: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
6547: --
6548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6549: RAISE;
6663: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
6664: )
6665:
6666: IS
6667: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
6668: l_return_status VARCHAR2(1);
6669: l_exists VARCHAR2(1) := 'N';
6670: l_return_code VARCHAR2(1);
6671:
6672: BEGIN
6673:
6674: --dbms_output.put_line('Beginning Execute_Update_Assignment');
6675: -- Initialize the Error Stack
6676: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Execute_Update_Assignment');
6677:
6678:
6679: --Log Message
6680: IF P_DEBUG_MODE = 'Y' THEN
6677:
6678:
6679: --Log Message
6680: IF P_DEBUG_MODE = 'Y' THEN
6681: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Execute_Update_Requirement.begin'
6682: ,x_msg => 'Beginning of Execute_Update_Assignment'
6683: ,x_log_level => 5);
6684: END IF;
6685:
6910: l_assignment_rec.attribute14 := p_attribute14;
6911: l_assignment_rec.attribute15 := p_attribute15;
6912:
6913: --dbms_output.put_line('Calling Update_Assignment');
6914: PA_ASSIGNMENTS_PUB.Update_Assignment
6915: ( p_assignment_rec => l_assignment_rec
6916: ,p_asgn_update_mode => p_asgn_update_mode
6917: ,p_project_number => p_project_number
6918: ,p_resource_name => p_resource_name
6978:
6979: BEGIN
6980:
6981: -- Initialize the Error Stack
6982: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Delete_PJR_Txns');
6983:
6984: --Log Message
6985: IF P_DEBUG_MODE = 'Y' THEN
6986: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_PJR_Txns.begin'
6982: PA_DEBUG.init_err_stack('PA_ASSIGNMENTS_PUB.Delete_PJR_Txns');
6983:
6984: --Log Message
6985: IF P_DEBUG_MODE = 'Y' THEN
6986: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_PJR_Txns.begin'
6987: ,x_msg => 'Beginning of Delete_PJR_Txns'
6988: ,x_log_level => 5);
6989: END IF;
6990:
6988: ,x_log_level => 5);
6989: END IF;
6990:
6991: -- Initialize the error flag
6992: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_FALSE;
6993: x_return_status := FND_API.G_RET_STS_SUCCESS;
6994:
6995: -- Issue API savepoint if the transaction is to be committed
6996: IF p_commit = FND_API.G_TRUE THEN
7006: LOOP
7007:
7008: --Log Message
7009: IF P_DEBUG_MODE = 'Y' THEN
7010: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ASSIGNMENTS_PUB.Delete_PJR_Txns.pvt_delete_asgmt'
7011: ,x_msg => 'Calling PVT Delete_Assignment'
7012: ,x_log_level => 5);
7013: END IF;
7014:
7025: ,x_return_status => l_return_status
7026: );
7027:
7028: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7029: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
7030: END IF;
7031:
7032: END LOOP;
7033:
7073: IF p_commit = FND_API.G_TRUE THEN
7074: ROLLBACK TO ASG_PUB_DELETE_PJR_TXNS;
7075: END IF;
7076: -- Set the exception Message and the stack
7077: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ASSIGNMENTS_PUB.Delete_PJR_Txns'
7078: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
7079: --
7080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7081: RAISE; -- This is optional depending on the needs
7080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7081: RAISE; -- This is optional depending on the needs
7082: --
7083: END DELETE_PJR_TXNS;
7084: END pa_assignments_pub;