[Home] [Help]
20: -- P_Calendar_Id NUMBER NO Id for that calendar which is associated to this assignment
21:
22: PROCEDURE update_schedule
23: ( p_project_id IN NUMBER
24: ,p_mass_update_flag IN VARCHAR2 := FND_API.G_FALSE
25: ,p_exception_type_code IN VARCHAR2
26: ,p_record_version_number IN NUMBER := NULL
27: ,p_assignment_id IN NUMBER := NULL
28: ,p_assignment_id_array IN SYSTEM.PA_NUM_TBL_TYPE := NULL
56: ,p_thursday_hours_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
57: ,p_friday_hours_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
58: ,p_saturday_hours_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
59: ,p_sunday_hours_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
60: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
61: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
62: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
63: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
64: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
57: ,p_friday_hours_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
58: ,p_saturday_hours_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
59: ,p_sunday_hours_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
60: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
61: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
62: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
63: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
64: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
65: IS
74: l_profile_begin_date DATE; -- Bug 6411422
75:
76: BEGIN
77: -- Initialize the return status to success
78: x_return_status := FND_API.G_RET_STS_SUCCESS ;
79:
80: --Clear the global PL/SQL message table
81: FND_MSG_PUB.initialize;
82:
83: -- Initialize the Error Stack
84: PA_DEBUG.init_err_stack('PA_SCHEDULE_PUB.update_schedule');
85:
86: -- Issue API savepoint if the transaction is to be committed
87: IF (p_commit = FND_API.G_TRUE) THEN
88: SAVEPOINT SCH_PUB_UPDATE_SCH;
89: END IF;
90:
91: -- Bug 6411422
109: -- should not be null. The reason is that if both are null, actually it wouldn't update anything.
110: IF (p_exception_type_code = 'CHANGE_DURATION' AND
111: p_change_start_date IS NULL AND p_change_end_date IS NULL) THEN
112: PA_UTILS.Add_Message ('PA', 'PA_SCH_FROM_OR_TO_DATE_NULL');
113: RAISE FND_API.G_EXC_ERROR;
114: END IF;
115:
116: -- If p_exception_type_code = 'CHANGE_HOURS' or 'CHANGE_WORK_PATTERN' or 'CHANGE_STATUS',
117: -- End date or Start date should not be null.
118: IF ( (p_exception_type_code = 'CHANGE_HOURS' OR p_exception_type_code = 'CHANGE_WORK_PATTERN' OR
119: p_exception_type_code = 'CHANGE_STATUS') AND
120: (p_change_start_date IS NULL OR p_change_end_date IS NULL) )THEN
121: PA_UTILS.Add_Message ('PA', 'PA_SCH_FROM_TO_DATE_NULL');
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124:
125: -- If this api has been called from the page which has start_date, end_date input, call
126: -- the validation date procedure. It will validate the date i.e. start_date should not be greater
127: -- than end_date. If end date date greater than start_date, then it will return l_x_return_status as error.
128: PA_SCHEDULE_UTILS.validate_date_range (p_change_start_date, p_change_end_date, l_x_return_status, l_err_msg_code);
129:
130: -- If validate_date_range fails, put error message into error stack and stop to process.
131: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
132: PA_UTILS.Add_Message ('PA', l_err_msg_code);
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135: END IF;
129:
130: -- If validate_date_range fails, put error message into error stack and stop to process.
131: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
132: PA_UTILS.Add_Message ('PA', l_err_msg_code);
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135: END IF;
136:
137: -- If p_exception_type_code = 'SHIFT_DURATION' then throw exception in following cases.
139: -- should be required on front end)
140: -- mass update: if both 'p_requirement_status_code' and 'p_assignment_status_code' are null.
141: IF ( (p_exception_type_code = 'SHIFT_DURATION' OR p_exception_type_code = 'CHANGE_STATUS') AND
142: (p_requirement_status_code is NULL AND p_assignment_status_code is NULL AND
143: p_mass_update_flag = FND_API.G_TRUE) ) THEN
144: PA_UTILS.Add_Message ('PA', 'PA_SCH_ASGN_STATUS_NULL');
145: RAISE FND_API.G_EXC_ERROR;
146: END IF;
147:
141: IF ( (p_exception_type_code = 'SHIFT_DURATION' OR p_exception_type_code = 'CHANGE_STATUS') AND
142: (p_requirement_status_code is NULL AND p_assignment_status_code is NULL AND
143: p_mass_update_flag = FND_API.G_TRUE) ) THEN
144: PA_UTILS.Add_Message ('PA', 'PA_SCH_ASGN_STATUS_NULL');
145: RAISE FND_API.G_EXC_ERROR;
146: END IF;
147:
148: -- validations when p_exception_type_code = 'CHANGE_HOURS'
149: IF (p_exception_type_code = 'CHANGE_HOURS') THEN
155: IF (p_change_hours_type_code = 'HOURS') THEN
156:
157: IF (p_hrs_per_day IS NULL) THEN
158: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_NULL');
159: RAISE FND_API.G_EXC_ERROR;
160: ELSIF (p_hrs_per_day NOT BETWEEN 0 AND 24 ) THEN
161: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_OUT_OF_RANGE');
162: RAISE FND_API.G_EXC_ERROR;
163: END IF;
158: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_NULL');
159: RAISE FND_API.G_EXC_ERROR;
160: ELSIF (p_hrs_per_day NOT BETWEEN 0 AND 24 ) THEN
161: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_OUT_OF_RANGE');
162: RAISE FND_API.G_EXC_ERROR;
163: END IF;
164:
165: ELSIF (p_change_hours_type_code = 'PERCENTAGE') THEN
166: IF (p_calendar_percent IS NULL) THEN
164:
165: ELSIF (p_change_hours_type_code = 'PERCENTAGE') THEN
166: IF (p_calendar_percent IS NULL) THEN
167: PA_UTILS.Add_Message ('PA', 'PA_SCH_PERCENTAGE_NULL');
168: RAISE FND_API.G_EXC_ERROR;
169: ELSIF (p_calendar_percent NOT BETWEEN 0 AND 100 ) THEN
170: PA_UTILS.Add_Message ('PA', 'PA_SCH_PERCENTAGE_OUT_OF_RANGE');
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
167: PA_UTILS.Add_Message ('PA', 'PA_SCH_PERCENTAGE_NULL');
168: RAISE FND_API.G_EXC_ERROR;
169: ELSIF (p_calendar_percent NOT BETWEEN 0 AND 100 ) THEN
170: PA_UTILS.Add_Message ('PA', 'PA_SCH_PERCENTAGE_OUT_OF_RANGE');
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173:
174: -- Value/ID validation for calendar_name/id entered through 'OTHER' text input field on
175: -- the Update Hours Of Days screen.
177:
178: -- IF both calendar_name and calendar_id are null, error out.
179: IF (p_change_calendar_name is NULL AND p_change_calendar_id IS NULL) THEN
180: PA_UTILS.Add_Message ('PA', 'PA_OTHER_CALENDAR_NULL');
181: RAISE FND_API.G_EXC_ERROR;
182: END IF;
183:
184: PA_CALENDAR_UTILS.Check_Calendar_Name_Or_Id(
185: p_calendar_id => p_change_calendar_id
189: ,x_return_status => l_x_return_status
190: ,x_error_message_code => l_err_msg_code);
191:
192: -- If calendar_name/id validation fails, put error message into error stack.
193: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
194: PA_UTILS.Add_Message ('PA', l_err_msg_code);
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197: END IF; -- IF(p_change_calendar_type_code = 'OTHER')
191:
192: -- If calendar_name/id validation fails, put error message into error stack.
193: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
194: PA_UTILS.Add_Message ('PA', l_err_msg_code);
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197: END IF; -- IF(p_change_calendar_type_code = 'OTHER')
198: END IF; -- ELSIF (p_change_hours_type_code = 'PERCENTAGE')
199:
207: p_wednesday_hours IS NULL AND p_thursday_hours IS NULL AND
208: p_friday_hours IS NULL AND p_saturday_hours IS NULL AND
209: p_sunday_hours IS NULL) THEN
210: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_ALL_NULL');
211: RAISE FND_API.G_EXC_ERROR;
212: END IF;
213:
214: -- if anyday hours is not null and not valid number(between 0 and 24), throw an errors.
215: IF ( (p_monday_hours IS NOT NULL AND (p_monday_hours NOT BETWEEN 0 AND 24)) OR
219: (p_friday_hours IS NOT NULL AND (p_friday_hours NOT BETWEEN 0 AND 24)) OR
220: (p_saturday_hours IS NOT NULL AND (p_saturday_hours NOT BETWEEN 0 AND 24)) OR
221: (p_sunday_hours IS NOT NULL AND (p_sunday_hours NOT BETWEEN 0 AND 24)) ) THEN
222: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_OUT_OF_RANGE');
223: RAISE FND_API.G_EXC_ERROR;
224: END IF;
225:
226: -- Cross-row validation when p_last_row_flag = 'Y'
227: IF p_change_start_date_tbl IS NOT NULL THEN
233: OR (p_change_start_date_tbl(j) <= p_change_start_date_tbl(i) AND p_change_end_date_tbl(j) >= p_change_end_date_tbl(i))
234: OR (p_change_start_date_tbl(j) >= p_change_start_date_tbl(i) AND p_change_end_date_tbl(j) <= p_change_end_date_tbl(i)))
235: THEN
236: PA_UTILS.Add_Message ('PA', 'PA_SCH_OVERLAP_WORK_PATTERN');
237: RAISE FND_API.G_EXC_ERROR;
238: END IF;
239: END LOOP;
240: END LOOP;
241: END IF;
252: -- If p_validate_only = 'T', it won't do anything other than on line validation i.e. validate_date_range.
253: -- From the Update Schedule page,
254: -- p_validate_only = 'T' : 'Continue and Submit' button
255: -- p_validate_only = 'F' : 'Apply' button
256: IF (p_validate_only = FND_API.G_TRUE) THEN
257: RETURN;
258: END IF;
259:
260: ----------------------------------------------------------------------------------------------
262: -- Mass Schedule Update
263: --
264: ----------------------------------------------------------------------------------------------
265: -- If this is for Mass schedule update, call Mass Transaction Workflow.
266: IF (p_mass_update_flag = FND_API.G_TRUE AND p_last_row_flag = 'Y') THEN
267: --start the mass WF
268: PA_MASS_ASGMT_TRX.Start_Mass_Asgmt_Trx_Wf(
269: p_mode => PA_MASS_ASGMT_TRX.G_MASS_UPDATE_SCHEDULE
270: ,p_action => PA_MASS_ASGMT_TRX.G_SAVE
303: --
304: ----------------------------------------------------------------------------------------------
305: -- If this is for Single schedule update, call an appropriate procedure depends on
306: -- p_exception_type_code.
307: ELSIF (p_mass_update_flag = FND_API.G_FALSE) THEN
308: -- call execute_update_schedule procedure for single schedule update.
309:
310: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub', 'Calling single_update_schedule', 6);
311: single_update_schedule (
333: ,p_duration_shift_type_code => p_duration_shift_type_code
334: ,p_duration_shift_unit_code => p_duration_shift_unit_code
335: ,p_number_of_shift => p_number_of_shift
336: ,p_last_row_flag => p_last_row_flag
337: ,p_init_msg_list => FND_API.G_TRUE
338: ,p_commit => FND_API.G_FALSE
339: ,x_return_status => l_x_return_status
340: ,x_msg_count => l_msg_count
341: ,x_msg_data => l_msg_data);
334: ,p_duration_shift_unit_code => p_duration_shift_unit_code
335: ,p_number_of_shift => p_number_of_shift
336: ,p_last_row_flag => p_last_row_flag
337: ,p_init_msg_list => FND_API.G_TRUE
338: ,p_commit => FND_API.G_FALSE
339: ,x_return_status => l_x_return_status
340: ,x_msg_count => l_msg_count
341: ,x_msg_data => l_msg_data);
342: END IF;
341: ,x_msg_data => l_msg_data);
342: END IF;
343:
344: -- If the called API fails, raise an exception.
345: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348:
349: ELSE -- Bug 6411422
342: END IF;
343:
344: -- If the called API fails, raise an exception.
345: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348:
349: ELSE -- Bug 6411422
350:
353: PA_UTILS.Add_Message( p_app_short_name => 'PA'
354: ,p_msg_name => 'PA_INVALID_ASSIGN_START_DATE'
355: ,p_token1 => 'PROFILE_DATE'
356: ,p_value1 => l_profile_begin_date );
357: RAISE FND_API.G_EXC_ERROR;
358:
359: END IF; -- Bug 6411422
360:
361: ----------------------------------------------------------------------------------------------
364: --
365: ----------------------------------------------------------------------------------------------
366: EXCEPTION
367:
368: WHEN FND_API.G_EXC_ERROR THEN
369: x_return_status := FND_API.G_RET_STS_ERROR;
370: x_msg_count := FND_MSG_PUB.Count_Msg;
371:
372: IF x_msg_count = 1 THEN
365: ----------------------------------------------------------------------------------------------
366: EXCEPTION
367:
368: WHEN FND_API.G_EXC_ERROR THEN
369: x_return_status := FND_API.G_RET_STS_ERROR;
370: x_msg_count := FND_MSG_PUB.Count_Msg;
371:
372: IF x_msg_count = 1 THEN
373: pa_interface_utils_pub.get_messages
370: x_msg_count := FND_MSG_PUB.Count_Msg;
371:
372: IF x_msg_count = 1 THEN
373: pa_interface_utils_pub.get_messages
374: (p_encoded => FND_API.G_TRUE,
375: p_msg_index => 1,
376: p_data => x_msg_data,
377: p_msg_index_out => l_msg_index_out );
378: END IF;
377: p_msg_index_out => l_msg_index_out );
378: END IF;
379:
380: WHEN OTHERS THEN
381: IF p_commit = FND_API.G_TRUE THEN
382: ROLLBACK TO SCH_PUB_UPDATE_SCH;
383: END IF;
384:
385: -- 4537865 : RESET x_msg_data also.
389: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB'
390: ,p_procedure_name => 'execute_update_schedule'
391: ,p_error_text => x_msg_data ); -- 4537865
392:
393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
394: x_msg_count := 1;
395:
396: RAISE; -- This is optional depending on the needs
397:
434: ,p_duration_shift_type_code IN VARCHAR2 := NULL
435: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
436: ,p_number_of_shift IN NUMBER := NULL
437: ,p_last_row_flag IN VARCHAR2 := 'Y'
438: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
439: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
440: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
441: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
442: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
435: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
436: ,p_number_of_shift IN NUMBER := NULL
437: ,p_last_row_flag IN VARCHAR2 := 'Y'
438: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
439: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
440: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
441: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
442: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
443: IS
464: WHERE assignment_id = p_assignment_id;
465:
466: BEGIN
467: --Clear the global PL/SQL message table
468: IF (p_init_msg_list = FND_API.G_TRUE) THEN
469: FND_MSG_PUB.initialize;
470: END IF;
471:
472: -- Initialize the return status to success
469: FND_MSG_PUB.initialize;
470: END IF;
471:
472: -- Initialize the return status to success
473: x_return_status := FND_API.G_RET_STS_SUCCESS ;
474:
475: -- Initialize the Error Stack
476: PA_DEBUG.init_err_stack('PA_SCHEDULE_PUB.single_update_schedule');
477:
475: -- Initialize the Error Stack
476: PA_DEBUG.init_err_stack('PA_SCHEDULE_PUB.single_update_schedule');
477:
478: -- Issue API savepoint if the transaction is to be committed
479: IF p_commit = FND_API.G_TRUE THEN
480: SAVEPOINT SCH_PUB_SINGLE_UPDATE_SCH;
481: END IF;
482:
483: -- Get assignment information to pass to change_XXX apis.
575:
576: END IF;
577:
578: -- If the called API fails, raise an exception.
579: IF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
576: END IF;
577:
578: -- If the called API fails, raise an exception.
579: IF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
584:
577:
578: -- If the called API fails, raise an exception.
579: IF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
584:
585: ----------------------------------------------------------------------------------------------
578: -- If the called API fails, raise an exception.
579: IF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
584:
585: ----------------------------------------------------------------------------------------------
586: --
588: --
589: ----------------------------------------------------------------------------------------------
590: EXCEPTION
591:
592: WHEN FND_API.G_EXC_ERROR THEN
593: x_return_status := FND_API.G_RET_STS_ERROR;
594: x_msg_count := FND_MSG_PUB.Count_Msg;
595:
596: IF x_msg_count = 1 THEN
589: ----------------------------------------------------------------------------------------------
590: EXCEPTION
591:
592: WHEN FND_API.G_EXC_ERROR THEN
593: x_return_status := FND_API.G_RET_STS_ERROR;
594: x_msg_count := FND_MSG_PUB.Count_Msg;
595:
596: IF x_msg_count = 1 THEN
597: pa_interface_utils_pub.get_messages
594: x_msg_count := FND_MSG_PUB.Count_Msg;
595:
596: IF x_msg_count = 1 THEN
597: pa_interface_utils_pub.get_messages
598: (p_encoded => FND_API.G_TRUE,
599: p_msg_index => 1,
600: p_data => x_msg_data,
601: p_msg_index_out => l_msg_index_out );
602: END IF;
601: p_msg_index_out => l_msg_index_out );
602: END IF;
603:
604: WHEN OTHERS THEN
605: IF p_commit = FND_API.G_TRUE THEN
606: ROLLBACK TO SCH_PUB_SINGLE_UPDATE_SCH;
607: END IF;
608:
609: -- 4537865 : RESET x_msg_data also
613: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB'
614: ,p_procedure_name => 'single_update_schedule',
615: p_error_text => x_msg_data ); -- 4537865
616:
617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
618: x_msg_count := 1;
619:
620: RAISE; -- This is optional depending on the needs
621:
657: ,p_change_calendar_id IN NUMBER := NULL
658: ,p_duration_shift_type_code IN VARCHAR2 := NULL
659: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
660: ,p_number_of_shift IN NUMBER := NULL
661: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
662: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
663: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
664: ,x_success_assignment_id_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE /* Added NOCOPY for bug#2674619 */
665: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
658: ,p_duration_shift_type_code IN VARCHAR2 := NULL
659: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
660: ,p_number_of_shift IN NUMBER := NULL
661: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
662: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
663: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
664: ,x_success_assignment_id_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE /* Added NOCOPY for bug#2674619 */
665: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
666: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
659: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
660: ,p_number_of_shift IN NUMBER := NULL
661: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
662: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
663: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
664: ,x_success_assignment_id_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE /* Added NOCOPY for bug#2674619 */
665: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
666: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
667: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
694:
695:
696: BEGIN
697: -- Initialize the return status to success
698: x_return_status := FND_API.G_RET_STS_SUCCESS ;
699:
700: --Clear the global PL/SQL message table
701: IF (p_init_msg_list = FND_API.G_TRUE) THEN
702: FND_MSG_PUB.initialize;
697: -- Initialize the return status to success
698: x_return_status := FND_API.G_RET_STS_SUCCESS ;
699:
700: --Clear the global PL/SQL message table
701: IF (p_init_msg_list = FND_API.G_TRUE) THEN
702: FND_MSG_PUB.initialize;
703: END IF;
704:
705: -- Initialize the Error Stack
716:
717: BEGIN
718: -- We need to commit for each schedule update rather than one time after
719: -- completing mass schedule update.
720: IF p_commit = FND_API.G_TRUE THEN
721: SAVEPOINT SCH_PUB_MASS_UPDATE_SCH;
722: END IF;
723:
724: -- get the detail information of the assignment to prepare the parameters for change_XXX api
739:
740: -- add appropriate error message to the error stack as raise error where the error will be
741: -- copied to the error table.
742: PA_UTILS.Add_Message ('PA', 'PA_NO_ASGMT');
743: RAISE FND_API.G_EXC_ERROR;
744:
745: -- If there is only record for the assignment_id, call single_update_schedule after security check
746: -- if necessary.
747: ELSIF (l_rownum = 1) THEN
792: ,p_duration_shift_type_code => p_duration_shift_type_code
793: ,p_duration_shift_unit_code => p_duration_shift_unit_code
794: ,p_number_of_shift => p_number_of_shift
795: ,p_last_row_flag => l_last_row_flag
796: ,p_init_msg_list => FND_API.G_TRUE
797: ,p_commit => FND_API.G_FALSE
798: ,x_return_status => l_x_return_status
799: ,x_msg_count => l_msg_count
800: ,x_msg_data => l_msg_data);
793: ,p_duration_shift_unit_code => p_duration_shift_unit_code
794: ,p_number_of_shift => p_number_of_shift
795: ,p_last_row_flag => l_last_row_flag
796: ,p_init_msg_list => FND_API.G_TRUE
797: ,p_commit => FND_API.G_FALSE
798: ,x_return_status => l_x_return_status
799: ,x_msg_count => l_msg_count
800: ,x_msg_data => l_msg_data);
801:
830: ,p_duration_shift_type_code => p_duration_shift_type_code
831: ,p_duration_shift_unit_code => p_duration_shift_unit_code
832: ,p_number_of_shift => p_number_of_shift
833: ,p_last_row_flag => l_last_row_flag
834: ,p_init_msg_list => FND_API.G_TRUE
835: ,p_commit => FND_API.G_FALSE
836: ,x_return_status => l_x_return_status
837: ,x_msg_count => l_msg_count
838: ,x_msg_data => l_msg_data);
831: ,p_duration_shift_unit_code => p_duration_shift_unit_code
832: ,p_number_of_shift => p_number_of_shift
833: ,p_last_row_flag => l_last_row_flag
834: ,p_init_msg_list => FND_API.G_TRUE
835: ,p_commit => FND_API.G_FALSE
836: ,x_return_status => l_x_return_status
837: ,x_msg_count => l_msg_count
838: ,x_msg_data => l_msg_data);
839: END IF; -- end if for calling single_update_schedule
839: END IF; -- end if for calling single_update_schedule
840:
841: -- If the called API succeeded, put the assingnment_id to the out parameter 'x_assignment_id_array'
842: -- and commit.
843: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
844: l_success_assignment_id_tbl(i) := p_assignment_id_array(i);
845:
846: IF (p_commit = FND_API.G_TRUE) THEN
847: COMMIT;
842: -- and commit.
843: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
844: l_success_assignment_id_tbl(i) := p_assignment_id_array(i);
845:
846: IF (p_commit = FND_API.G_TRUE) THEN
847: COMMIT;
848: END IF;
849:
850: -- If the called API doesn't succeeded, set null to tthe out parameter 'x_assignment_id_array'
852: -- And need to rollback.
853: ELSE
854: l_success_assignment_id_tbl(i) := null;
855:
856: IF (p_commit = FND_API.G_TRUE) THEN
857: ROLLBACK TO SCH_PUB_MASS_UPDATE_SCH;
858: RAISE FND_API.G_EXC_ERROR;
859: END IF;
860: END IF;
854: l_success_assignment_id_tbl(i) := null;
855:
856: IF (p_commit = FND_API.G_TRUE) THEN
857: ROLLBACK TO SCH_PUB_MASS_UPDATE_SCH;
858: RAISE FND_API.G_EXC_ERROR;
859: END IF;
860: END IF;
861:
862: END IF; -- if l_rownum = 1
876: p_source_identifier2 => PA_MASS_ASGMT_TRX.G_WORKFLOW_ITEM_KEY,
877: p_context1 => p_project_id,
878: p_context2 => p_assignment_id_array(i),
879: p_context3 => NULL,
880: p_commit => FND_API.G_TRUE,
881: x_return_status => l_return_status);
882:
883: WHEN FND_API.G_EXC_ERROR THEN
884: -- save the error message to the proper table so that we can retrive them later
879: p_context3 => NULL,
880: p_commit => FND_API.G_TRUE,
881: x_return_status => l_return_status);
882:
883: WHEN FND_API.G_EXC_ERROR THEN
884: -- save the error message to the proper table so that we can retrive them later
885: -- from workflow notification page.
886: PA_MESSAGE_UTILS.save_messages
887: (p_user_id => PA_MASS_ASGMT_TRX.G_SUBMITTER_USER_ID,
891: p_source_identifier2 => PA_MASS_ASGMT_TRX.G_WORKFLOW_ITEM_KEY,
892: p_context1 => p_project_id,
893: p_context2 => p_assignment_id_array(i),
894: p_context3 => NULL,
895: p_commit => FND_API.G_TRUE,
896: x_return_status => l_return_status);
897: END;
898:
899: END LOOP;
917: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB'
918: ,p_procedure_name => 'mass_update_schedule'
919: ,p_error_text => x_msg_data ); -- 4537865
920:
921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
922: x_msg_count := FND_MSG_PUB.Count_Msg;
923:
924: RAISE; -- This is optional depending on the needs
925: END mass_update_schedule;
960: p_asgn_end_date IN DATE := NULL,
961: p_duration_shift_type_code IN Varchar2 := NULL,
962: p_duration_shift_unit_code IN VARCHAR2 := NULL,
963: p_number_of_shift IN Varchar2 := NULL,
964: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
965: p_generate_timeline_flag IN VARCHAR2 := 'Y', --Unilog
966: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
967: x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
968: x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
1014:
1015: l_project_status_name pa_project_statuses.project_status_name%TYPE;
1016:
1017: BEGIN
1018: l_x_return_status := FND_API.G_RET_STS_SUCCESS;
1019:
1020: --Clear the global PL/SQL message table
1021: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1022: FND_MSG_PUB.initialize;
1017: BEGIN
1018: l_x_return_status := FND_API.G_RET_STS_SUCCESS;
1019:
1020: --Clear the global PL/SQL message table
1021: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1022: FND_MSG_PUB.initialize;
1023: END IF;
1024:
1025: IF ( p_assignment_type = 'OPEN_ASSIGNMENT' ) THEN
1156: ,x_resource_type_id => l_resource_type_id
1157: ,x_return_status => l_x_return_status
1158: ,x_error_message_code => l_error_message_code);
1159:
1160: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1161: PA_SCHEDULE_UTILS.log_message(1,'Resource dates are not valid');
1162: Raise l_resource_out_of_range;
1163: ELSE -- IF if l_x_return_status is success : 4537865
1164: l_resource_source_id := l_new_resource_id ;
1174: x_cc_ok => l_cc_ok,
1175: x_return_status => l_x_return_status,
1176: x_error_message_code => l_error_message_code);
1177:
1178: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1179: PA_SCHEDULE_UTILS.log_message(1,'Resource cc is not valid: u');
1180: Raise l_resource_cc_error_u;
1181: END IF;
1182:
1201: ,p_person_id => l_resource_source_id
1202: ,x_error_message_code => l_error_message_code
1203: ,x_return_status => x_return_status);
1204: -- End of 2797890
1205: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1206: raise l_ei_asgn_out_of_range;
1207: end if;
1208: END IF;
1209:
1242:
1243:
1244: -- Bug 2255963: Call reevaluate_adv_action_set AFTER the start date of
1245: -- requirement (but not asssignment) is updated and before changes are committed.
1246: IF l_x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1247: IF (p_assignment_type = 'OPEN_ASSIGNMENT' AND l_start_date <> p_asgn_start_date) THEN
1248: PA_ADVERTISEMENTS_PUB.Reevaluate_Adv_Action_Set (
1249: p_object_id => p_assignment_id,
1250: p_object_type => 'OPEN_ASSIGNMENT',
1248: PA_ADVERTISEMENTS_PUB.Reevaluate_Adv_Action_Set (
1249: p_object_id => p_assignment_id,
1250: p_object_type => 'OPEN_ASSIGNMENT',
1251: p_new_object_start_date => l_start_date,
1252: p_validate_only => FND_API.G_FALSE,
1253: p_init_msg_list => FND_API.G_FALSE,
1254: p_commit => FND_API.G_FALSE,
1255: x_return_status => l_x_return_status);
1256: END IF;
1249: p_object_id => p_assignment_id,
1250: p_object_type => 'OPEN_ASSIGNMENT',
1251: p_new_object_start_date => l_start_date,
1252: p_validate_only => FND_API.G_FALSE,
1253: p_init_msg_list => FND_API.G_FALSE,
1254: p_commit => FND_API.G_FALSE,
1255: x_return_status => l_x_return_status);
1256: END IF;
1257: END IF;
1250: p_object_type => 'OPEN_ASSIGNMENT',
1251: p_new_object_start_date => l_start_date,
1252: p_validate_only => FND_API.G_FALSE,
1253: p_init_msg_list => FND_API.G_FALSE,
1254: p_commit => FND_API.G_FALSE,
1255: x_return_status => l_x_return_status);
1256: END IF;
1257: END IF;
1258:
1257: END IF;
1258:
1259: -- Bug 2441437: Update the no of active candidates after duration
1260: -- has been changed.
1261: IF l_x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1262: PA_CANDIDATE_UTILS.Update_No_Of_Active_Candidates (
1263: p_assignment_id => p_assignment_id,
1264: x_return_status => l_x_return_status);
1265: END IF;
1274:
1275: x_msg_count := FND_MSG_PUB.Count_Msg;
1276: If x_msg_count = 1 THEN
1277: pa_interface_utils_pub.get_messages
1278: (p_encoded => FND_API.G_TRUE ,
1279: p_msg_index => 1,
1280: p_msg_count => x_msg_count ,
1281: p_msg_data => x_msg_data ,
1282: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1286:
1287: EXCEPTION
1288: WHEN l_ei_asgn_out_of_range THEN
1289: PA_UTILS.Add_Message('PA', l_error_message_code);
1290: x_return_status := FND_API.G_RET_STS_ERROR;
1291: x_msg_data := l_error_message_code;
1292: x_msg_count := FND_MSG_PUB.Count_Msg;
1293: If x_msg_count = 1 THEN
1294: pa_interface_utils_pub.get_messages
1291: x_msg_data := l_error_message_code;
1292: x_msg_count := FND_MSG_PUB.Count_Msg;
1293: If x_msg_count = 1 THEN
1294: pa_interface_utils_pub.get_messages
1295: (p_encoded => FND_API.G_TRUE,
1296: p_msg_index => 1,
1297: p_msg_count => x_msg_count,
1298: p_msg_data => x_msg_data,
1299: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1301: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1302: End If;
1303: WHEN l_resource_cc_error_u THEN
1304: PA_UTILS.Add_Message('PA', l_error_message_code);
1305: x_return_status := FND_API.G_RET_STS_ERROR;
1306: x_msg_data := l_error_message_code;
1307: x_msg_count := FND_MSG_PUB.Count_Msg;
1308: If x_msg_count = 1 THEN
1309: pa_interface_utils_pub.get_messages
1306: x_msg_data := l_error_message_code;
1307: x_msg_count := FND_MSG_PUB.Count_Msg;
1308: If x_msg_count = 1 THEN
1309: pa_interface_utils_pub.get_messages
1310: (p_encoded => FND_API.G_TRUE,
1311: p_msg_index => 1,
1312: p_msg_count => x_msg_count,
1313: p_msg_data => x_msg_data,
1314: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1316: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1317: End If;
1318: WHEN l_resource_cc_error_e THEN
1319: PA_UTILS.Add_Message('PA', 'CROSS_CHARGE_VALIDATION_FAILED');
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1321: x_msg_data := 'CROSS_CHARGE_VALIDATION_FAILED';
1322: x_msg_count := FND_MSG_PUB.Count_Msg;
1323: If x_msg_count = 1 THEN
1324: pa_interface_utils_pub.get_messages
1321: x_msg_data := 'CROSS_CHARGE_VALIDATION_FAILED';
1322: x_msg_count := FND_MSG_PUB.Count_Msg;
1323: If x_msg_count = 1 THEN
1324: pa_interface_utils_pub.get_messages
1325: (p_encoded => FND_API.G_TRUE,
1326: p_msg_index => 1,
1327: p_msg_count => x_msg_count,
1328: p_msg_data => x_msg_data,
1329: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1331: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1332: End If;
1333: WHEN l_resource_out_of_range THEN
1334: PA_UTILS.Add_Message( 'PA', 'PA_RESOURCE_OUT_OF_RANGE');
1335: x_return_status := FND_API.G_RET_STS_ERROR;
1336: x_msg_data := 'PA_RESOURCE_OUT_OF_RANGE';
1337: x_msg_count := FND_MSG_PUB.Count_Msg;
1338: If x_msg_count = 1 THEN
1339: pa_interface_utils_pub.get_messages
1336: x_msg_data := 'PA_RESOURCE_OUT_OF_RANGE';
1337: x_msg_count := FND_MSG_PUB.Count_Msg;
1338: If x_msg_count = 1 THEN
1339: pa_interface_utils_pub.get_messages
1340: (p_encoded => FND_API.G_TRUE,
1341: p_msg_index => 1,
1342: p_msg_count => x_msg_count,
1343: p_msg_data => x_msg_data,
1344: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1346: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1347: End If;
1348: WHEN l_stale_asmt_data THEN
1349: PA_UTILS.add_message('PA','PA_XC_RECORD_CHANGED');
1350: x_return_status := FND_API.G_RET_STS_ERROR;
1351: x_msg_data := 'PA_XC_RECORD_CHANGED';
1352: x_msg_count := FND_MSG_PUB.Count_Msg;
1353: If x_msg_count = 1 THEN
1354: pa_interface_utils_pub.get_messages
1351: x_msg_data := 'PA_XC_RECORD_CHANGED';
1352: x_msg_count := FND_MSG_PUB.Count_Msg;
1353: If x_msg_count = 1 THEN
1354: pa_interface_utils_pub.get_messages
1355: (p_encoded => FND_API.G_TRUE,
1356: p_msg_index => 1,
1357: p_msg_count => x_msg_count,
1358: p_msg_data => x_msg_data,
1359: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1361: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1362: End If;
1363: WHEN l_assignment_status_null THEN
1364: PA_UTILS.add_message('PA','PA_SCH_ASGN_STATUS_NULL');
1365: x_return_status := FND_API.G_RET_STS_ERROR;
1366: x_msg_data := 'PA_SCH_ASGN_STATUS_NULL';
1367: x_msg_count := FND_MSG_PUB.Count_Msg;
1368: If x_msg_count = 1 THEN
1369: pa_interface_utils_pub.get_messages
1366: x_msg_data := 'PA_SCH_ASGN_STATUS_NULL';
1367: x_msg_count := FND_MSG_PUB.Count_Msg;
1368: If x_msg_count = 1 THEN
1369: pa_interface_utils_pub.get_messages
1370: (p_encoded => FND_API.G_TRUE,
1371: p_msg_index => 1,
1372: p_msg_count => x_msg_count,
1373: p_msg_data => x_msg_data,
1374: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1379: PA_UTILS.add_message('PA','PA_SCH_INVALID_FROM_DATE',
1380: 'ASMT_TYPE_POSS', l_asgn_req_poss_text,
1381: 'ASMT_TYPE', l_asgn_req_text);
1382: x_msg_data := 'PA_SCH_INVALID_FROM_DATE';
1383: x_return_status := FND_API.G_RET_STS_ERROR;
1384: x_msg_count := FND_MSG_PUB.Count_Msg;
1385: If x_msg_count = 1 THEN
1386: pa_interface_utils_pub.get_messages
1387: (p_encoded => FND_API.G_TRUE,
1383: x_return_status := FND_API.G_RET_STS_ERROR;
1384: x_msg_count := FND_MSG_PUB.Count_Msg;
1385: If x_msg_count = 1 THEN
1386: pa_interface_utils_pub.get_messages
1387: (p_encoded => FND_API.G_TRUE,
1388: p_msg_index => 1,
1389: p_msg_count => x_msg_count,
1390: p_msg_data => x_msg_data,
1391: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1395: WHEN l_out_of_range_to_date THEN
1396: PA_UTILS.add_message('PA','PA_SCH_INVALID_TO_DATE',
1397: 'ASMT_TYPE_POSS', l_asgn_req_poss_text,
1398: 'ASMT_TYPE', l_asgn_req_text);
1399: x_return_status := FND_API.G_RET_STS_ERROR;
1400: x_msg_data := 'PA_SCH_INVALID_TO_DATE';
1401: x_msg_count := FND_MSG_PUB.Count_Msg;
1402: If x_msg_count = 1 THEN
1403: pa_interface_utils_pub.get_messages
1400: x_msg_data := 'PA_SCH_INVALID_TO_DATE';
1401: x_msg_count := FND_MSG_PUB.Count_Msg;
1402: If x_msg_count = 1 THEN
1403: pa_interface_utils_pub.get_messages
1404: (p_encoded => FND_API.G_TRUE,
1405: p_msg_index => 1,
1406: p_msg_count => x_msg_count,
1407: p_msg_data => x_msg_data,
1408: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1415: p_token1 => 'PROJ_STATUS',
1416: p_value1 => l_project_status_name,
1417: p_token2 => 'ASGN_STATUS',
1418: p_value2 => l_assignment_status_name);
1419: x_return_status := FND_API.G_RET_STS_ERROR;
1420: x_msg_data := 'PA_ASGN_STUS_NOT_FOR_PROJ_STUS';
1421: x_msg_count := FND_MSG_PUB.Count_Msg;
1422: If x_msg_count = 1 THEN
1423: pa_interface_utils_pub.get_messages
1420: x_msg_data := 'PA_ASGN_STUS_NOT_FOR_PROJ_STUS';
1421: x_msg_count := FND_MSG_PUB.Count_Msg;
1422: If x_msg_count = 1 THEN
1423: pa_interface_utils_pub.get_messages
1424: (p_encoded => FND_API.G_TRUE,
1425: p_msg_index => 1,
1426: p_msg_count => x_msg_count,
1427: p_msg_data => x_msg_data,
1428: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1430: x_msg_data := l_data; -- 4537865 : NOCOPY related change
1431: End If;
1432: WHEN OTHERS THEN
1433: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_durarion API ..'||sqlerrm);
1434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1435: x_msg_count := 1;
1436: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Changed substr to substrb
1437: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
1438: p_procedure_name => 'change_duration');
1437: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
1438: p_procedure_name => 'change_duration');
1439: If x_msg_count = 1 THEN
1440: pa_interface_utils_pub.get_messages
1441: (p_encoded => FND_API.G_TRUE,
1442: p_msg_index => 1,
1443: p_msg_count => x_msg_count,
1444: p_msg_data => x_msg_data,
1445: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1493: -- p_change_calendar_name IN VARCHAR2 ,
1494: p_change_calendar_id IN VARCHAR2 ,
1495: p_asgn_start_date IN DATE ,
1496: p_asgn_end_date IN DATE ,
1497: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1498: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1499: x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
1500: x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
1501: IS
1506: l_asgn_req_text VARCHAR2(30);
1507: l_a_an_text VARCHAR2(30);
1508: l_asgn_req_poss_text VARCHAR2(30);
1509: BEGIN
1510: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
1511:
1512: --Clear the global PL/SQL message table
1513: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1514: FND_MSG_PUB.initialize;
1509: BEGIN
1510: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
1511:
1512: --Clear the global PL/SQL message table
1513: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1514: FND_MSG_PUB.initialize;
1515: END IF;
1516:
1517: IF ( p_assignment_type = 'OPEN_ASSIGNMENT' ) THEN
1559: x_return_status => l_x_return_status ,
1560: x_msg_count => x_msg_count ,
1561: x_msg_data => x_msg_data );
1562:
1563: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
1564: -- Calling the change assignment schedule procedure
1565: -- which will generate the schedule after applying the hours change
1566: PA_SCHEDULE_PUB.change_asgn_schedule(
1567: p_record_version_number => p_record_version_number,
1577: x_return_status := l_x_return_status;
1578: x_msg_count := FND_MSG_PUB.Count_Msg;
1579: If x_msg_count = 1 THEN
1580: pa_interface_utils_pub.get_messages
1581: (p_encoded => FND_API.G_TRUE ,
1582: p_msg_index => 1,
1583: p_msg_count => x_msg_count ,
1584: p_msg_data => x_msg_data ,
1585: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1590: EXCEPTION
1591: WHEN l_out_of_range_date THEN
1592: PA_UTILS.add_message('PA','PA_SCH_INVALID_FROM_TO_DATE',
1593: 'ASMT_TYPE', l_asgn_req_text);
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
1596: x_msg_count := FND_MSG_PUB.Count_Msg;
1597: If x_msg_count = 1 THEN
1598: pa_interface_utils_pub.get_messages
1595: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
1596: x_msg_count := FND_MSG_PUB.Count_Msg;
1597: If x_msg_count = 1 THEN
1598: pa_interface_utils_pub.get_messages
1599: (p_encoded => FND_API.G_TRUE,
1600: p_msg_index => 1,
1601: p_msg_count => x_msg_count,
1602: p_msg_data => x_msg_data,
1603: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1605: x_msg_data := l_data ; -- 4537865 : NOCOPY related Change
1606: End If;
1607: WHEN OTHERS THEN
1608: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_hours API ..'||sqlerrm);
1609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1610: x_msg_count := 1;
1611: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Changed substr to substrb
1612: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
1613: p_procedure_name => 'change_duration');
1612: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
1613: p_procedure_name => 'change_duration');
1614: If x_msg_count = 1 THEN
1615: pa_interface_utils_pub.get_messages
1616: (p_encoded => FND_API.G_TRUE,
1617: p_msg_index => 1,
1618: p_msg_count => x_msg_count,
1619: p_msg_data => x_msg_data,
1620: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1666: p_saturday_hours IN Number := NULL,
1667: p_sunday_hours IN Number := NULL,
1668: p_asgn_start_date IN DATE ,
1669: p_asgn_end_date IN DATE ,
1670: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1671: p_remove_conflict_flag IN VARCHAR2 := 'N',
1672: p_last_row_flag IN VARCHAR2 := 'Y',
1673: p_generate_timeline_flag IN VARCHAR2 := 'Y', --Unilog
1674: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1692:
1693: l_data VARCHAR2(200); -- 4537865
1694: BEGIN
1695: -- Storing status success to track the error
1696: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
1697:
1698: --Clear the global PL/SQL message table
1699: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1700: FND_MSG_PUB.initialize;
1695: -- Storing status success to track the error
1696: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
1697:
1698: --Clear the global PL/SQL message table
1699: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1700: FND_MSG_PUB.initialize;
1701: END IF;
1702:
1703: IF ( p_assignment_type = 'OPEN_ASSIGNMENT' ) THEN
1819: x_return_status => l_x_return_status ,
1820: x_msg_count => x_msg_count ,
1821: x_msg_data => x_msg_data );
1822:
1823: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS AND p_last_row_flag = 'Y') THEN
1824: -- Calling the change assignment schedule procedure that will generate the changed schedule
1825: -- of the passed assignment for the given exception i.e change work patern
1826: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub', 'Calling change_asgn_schedule', 6);
1827: PA_SCHEDULE_PUB.change_asgn_schedule(
1841:
1842: x_msg_count := FND_MSG_PUB.Count_Msg;
1843: If x_msg_count = 1 THEN
1844: pa_interface_utils_pub.get_messages
1845: (p_encoded => FND_API.G_TRUE ,
1846: p_msg_index => 1,
1847: p_msg_count => x_msg_count ,
1848: p_msg_data => x_msg_data ,
1849: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1854: EXCEPTION
1855: WHEN l_out_of_range_date THEN
1856: PA_UTILS.add_message('PA','PA_SCH_INVALID_FROM_TO_DATE',
1857: 'ASMT_TYPE', l_asgn_req_text);
1858: x_return_status := FND_API.G_RET_STS_ERROR;
1859: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
1860: x_msg_count := FND_MSG_PUB.Count_Msg;
1861: If x_msg_count = 1 THEN
1862: pa_interface_utils_pub.get_messages
1859: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
1860: x_msg_count := FND_MSG_PUB.Count_Msg;
1861: If x_msg_count = 1 THEN
1862: pa_interface_utils_pub.get_messages
1863: (p_encoded => FND_API.G_TRUE,
1864: p_msg_index => 1,
1865: p_msg_count => x_msg_count,
1866: p_msg_data => x_msg_data,
1867: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1869: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1870: End If;
1871: WHEN OTHERS THEN
1872: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_work_pattern API ..'||sqlerrm);
1873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1874: x_msg_count := 1;
1875: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Replaced substr with substrb
1876: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
1877: p_procedure_name => 'change_work_pattern');
1876: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
1877: p_procedure_name => 'change_work_pattern');
1878: If x_msg_count = 1 THEN
1879: pa_interface_utils_pub.get_messages
1880: (p_encoded => FND_API.G_TRUE,
1881: p_msg_index => 1,
1882: p_msg_count => x_msg_count,
1883: p_msg_data => x_msg_data,
1884: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1930: p_end_date IN date ,
1931: p_assignment_status_code IN Varchar2 ,
1932: p_asgn_start_date IN DATE ,
1933: p_asgn_end_date IN DATE ,
1934: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1935: p_save_to_hist IN VARCHAR2 := FND_API.G_TRUE,
1936: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1937: x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
1938: x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
1931: p_assignment_status_code IN Varchar2 ,
1932: p_asgn_start_date IN DATE ,
1933: p_asgn_end_date IN DATE ,
1934: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1935: p_save_to_hist IN VARCHAR2 := FND_API.G_TRUE,
1936: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1937: x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
1938: x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
1939: IS
1964:
1965: l_project_status_name pa_project_statuses.project_status_name%TYPE;
1966:
1967: BEGIN
1968: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
1969:
1970: --Clear the global PL/SQL message table
1971: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1972: FND_MSG_PUB.initialize;
1967: BEGIN
1968: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
1969:
1970: --Clear the global PL/SQL message table
1971: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1972: FND_MSG_PUB.initialize;
1973: END IF;
1974:
1975: IF ( p_assignment_type = 'OPEN_ASSIGNMENT' ) THEN
1986:
1987: -- p_assignment_status_code should not be null
1988: IF (p_assignment_status_code is NULL) THEN
1989: PA_UTILS.Add_Message ('PA', 'PA_SCH_ASGN_STATUS_NULL'); -- is this message okay?
1990: RAISE FND_API.G_EXC_ERROR;
1991: END IF;
1992:
1993: -- The passed dates should fall between the assignment start date and assignment end date */
1994: IF ((p_start_date NOT BETWEEN p_asgn_start_date AND p_asgn_end_date ) OR
2073: x_return_status => l_x_return_status ,
2074: x_msg_count => x_msg_count ,
2075: x_msg_data => x_msg_data );
2076:
2077: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2078: -- Calling the procedure change assignment schedule that will
2079: -- generate the changed schedule for the
2080: -- passed asignment only for the passed period
2081: PA_SCHEDULE_PUB.change_asgn_schedule(
2094:
2095: x_msg_count := FND_MSG_PUB.Count_Msg;
2096: If x_msg_count = 1 THEN
2097: pa_interface_utils_pub.get_messages
2098: (p_encoded => FND_API.G_TRUE ,
2099: p_msg_index => 1,
2100: p_msg_count => x_msg_count ,
2101: p_msg_data => x_msg_data ,
2102: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2104: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
2105: End If;
2106:
2107: EXCEPTION
2108: WHEN FND_API.G_EXC_ERROR THEN
2109: x_return_status := FND_API.G_RET_STS_ERROR;
2110: x_msg_count := FND_MSG_PUB.Count_Msg;
2111:
2112: IF x_msg_count = 1 THEN
2105: End If;
2106:
2107: EXCEPTION
2108: WHEN FND_API.G_EXC_ERROR THEN
2109: x_return_status := FND_API.G_RET_STS_ERROR;
2110: x_msg_count := FND_MSG_PUB.Count_Msg;
2111:
2112: IF x_msg_count = 1 THEN
2113: pa_interface_utils_pub.get_messages
2110: x_msg_count := FND_MSG_PUB.Count_Msg;
2111:
2112: IF x_msg_count = 1 THEN
2113: pa_interface_utils_pub.get_messages
2114: (p_encoded => FND_API.G_TRUE,
2115: p_msg_index => 1,
2116: p_data => x_msg_data,
2117: p_msg_index_out => l_msg_index_out );
2118: END IF;
2117: p_msg_index_out => l_msg_index_out );
2118: END IF;
2119: WHEN l_stale_asmt_data THEN
2120: PA_UTILS.add_message('PA','PA_XC_RECORD_CHANGED');
2121: x_return_status := FND_API.G_RET_STS_ERROR;
2122: x_msg_data := 'PA_XC_RECORD_CHANGED';
2123: x_msg_count := FND_MSG_PUB.Count_Msg;
2124: If x_msg_count = 1 THEN
2125: pa_interface_utils_pub.get_messages
2122: x_msg_data := 'PA_XC_RECORD_CHANGED';
2123: x_msg_count := FND_MSG_PUB.Count_Msg;
2124: If x_msg_count = 1 THEN
2125: pa_interface_utils_pub.get_messages
2126: (p_encoded => FND_API.G_TRUE,
2127: p_msg_index => 1,
2128: p_msg_count => x_msg_count,
2129: p_msg_data => x_msg_data,
2130: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2135: PA_UTILS.add_message('PA','PA_INVALID_ASGN_CANCELLED_DATE',
2136: 'ASMT_TYPE_POSS', l_asgn_req_poss_text,
2137: 'A_OR_AN', l_a_an_text,
2138: 'ASMT_TYPE', l_asgn_req_text);
2139: x_return_status := FND_API.G_RET_STS_ERROR;
2140: x_msg_data := 'PA_INVALID_ASGN_CANCELLED_DATE';
2141: x_msg_count := FND_MSG_PUB.Count_Msg;
2142: If x_msg_count = 1 THEN
2143: pa_interface_utils_pub.get_messages
2140: x_msg_data := 'PA_INVALID_ASGN_CANCELLED_DATE';
2141: x_msg_count := FND_MSG_PUB.Count_Msg;
2142: If x_msg_count = 1 THEN
2143: pa_interface_utils_pub.get_messages
2144: (p_encoded => FND_API.G_TRUE,
2145: p_msg_index => 1,
2146: p_msg_count => x_msg_count,
2147: p_msg_data => x_msg_data,
2148: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2151: End If;
2152: WHEN l_out_of_range_date THEN
2153: PA_UTILS.add_message('PA','PA_SCH_INVALID_FROM_TO_DATE',
2154: 'ASMT_TYPE', l_asgn_req_text);
2155: x_return_status := FND_API.G_RET_STS_ERROR;
2156: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
2157: x_msg_count := FND_MSG_PUB.Count_Msg;
2158: If x_msg_count = 1 THEN
2159: pa_interface_utils_pub.get_messages
2156: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
2157: x_msg_count := FND_MSG_PUB.Count_Msg;
2158: If x_msg_count = 1 THEN
2159: pa_interface_utils_pub.get_messages
2160: (p_encoded => FND_API.G_TRUE,
2161: p_msg_index => 1,
2162: p_msg_count => x_msg_count,
2163: p_msg_data => x_msg_data,
2164: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2171: p_token1 => 'PROJ_STATUS',
2172: p_value1 => l_project_status_name,
2173: p_token2 => 'ASGN_STATUS',
2174: p_value2 => l_assignment_status_name);
2175: x_return_status := FND_API.G_RET_STS_ERROR;
2176: x_msg_data := 'PA_ASGN_STUS_NOT_FOR_PROJ_STUS';
2177: x_msg_count := FND_MSG_PUB.Count_Msg;
2178: If x_msg_count = 1 THEN
2179: pa_interface_utils_pub.get_messages
2176: x_msg_data := 'PA_ASGN_STUS_NOT_FOR_PROJ_STUS';
2177: x_msg_count := FND_MSG_PUB.Count_Msg;
2178: If x_msg_count = 1 THEN
2179: pa_interface_utils_pub.get_messages
2180: (p_encoded => FND_API.G_TRUE,
2181: p_msg_index => 1,
2182: p_msg_count => x_msg_count,
2183: p_msg_data => x_msg_data,
2184: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2185: p_msg_index_out => l_msg_index_out );
2186: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
2187: End If;
2188: WHEN OTHERS THEN
2189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2190: x_msg_count := 1;
2191: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 Replaced substr with substrb
2192: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_status API ..'||sqlerrm);
2193: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2193: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2194: p_procedure_name => 'change_status');
2195: If x_msg_count = 1 THEN
2196: pa_interface_utils_pub.get_messages
2197: (p_encoded => FND_API.G_TRUE,
2198: p_msg_index => 1,
2199: p_msg_count => x_msg_count,
2200: p_msg_data => x_msg_data,
2201: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2250: l_a_an_text VARCHAR2(30);
2251: l_asgn_req_poss_text VARCHAR2(30);
2252: BEGIN
2253: -- storing the status success to track the error
2254: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2255:
2256: --Clear the global PL/SQL message table
2257: fnd_msg_pub.initialize;
2258:
2284:
2285: x_msg_count := FND_MSG_PUB.Count_Msg;
2286: If x_msg_count = 1 THEN
2287: pa_interface_utils_pub.get_messages
2288: (p_encoded => FND_API.G_TRUE ,
2289: p_msg_index => 1,
2290: p_msg_count => x_msg_count ,
2291: p_msg_data => x_msg_data ,
2292: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2317: x_return_status => l_x_return_status ,
2318: x_msg_count => x_msg_count ,
2319: x_msg_data => x_msg_data );
2320:
2321: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2322: -- Calling the change assignment schedule procedure that will generate the changed schedule
2323: -- according to the passed calendar but only for given period
2324: PA_SCHEDULE_PUB.change_asgn_schedule(
2325: p_record_version_number => p_record_version_number,
2336:
2337: x_msg_count := FND_MSG_PUB.Count_Msg;
2338: If x_msg_count = 1 THEN
2339: pa_interface_utils_pub.get_messages
2340: (p_encoded => FND_API.G_TRUE ,
2341: p_msg_index => 1,
2342: p_msg_count => x_msg_count ,
2343: p_msg_data => x_msg_data ,
2344: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2349:
2350: EXCEPTION
2351: WHEN l_invalid_duplicate_cal_name THEN
2352: PA_UTILS.add_message('PA','PA_CALENDAR_INVALID_AMBIGOUS');
2353: x_return_status := FND_API.G_RET_STS_ERROR;
2354: x_msg_data := 'PA_CALENDAR_INVALID_AMBIGOUS';
2355: x_msg_count := FND_MSG_PUB.Count_Msg;
2356: If x_msg_count = 1 THEN
2357: pa_interface_utils_pub.get_messages
2354: x_msg_data := 'PA_CALENDAR_INVALID_AMBIGOUS';
2355: x_msg_count := FND_MSG_PUB.Count_Msg;
2356: If x_msg_count = 1 THEN
2357: pa_interface_utils_pub.get_messages
2358: (p_encoded => FND_API.G_TRUE,
2359: p_msg_index => 1,
2360: p_msg_count => x_msg_count,
2361: p_msg_data => x_msg_data,
2362: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2364: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
2365: End If;
2366: WHEN l_from_to_date_null THEN
2367: PA_UTILS.add_message('PA','PA_SCH_FROM_TO_DATE_NULL');
2368: x_return_status := FND_API.G_RET_STS_ERROR;
2369: x_msg_data := 'PA_SCH_FROM_TO_DATE_NULL';
2370: x_msg_count := FND_MSG_PUB.Count_Msg;
2371: If x_msg_count = 1 THEN
2372: pa_interface_utils_pub.get_messages
2369: x_msg_data := 'PA_SCH_FROM_TO_DATE_NULL';
2370: x_msg_count := FND_MSG_PUB.Count_Msg;
2371: If x_msg_count = 1 THEN
2372: pa_interface_utils_pub.get_messages
2373: (p_encoded => FND_API.G_TRUE,
2374: p_msg_index => 1,
2375: p_msg_count => x_msg_count,
2376: p_msg_data => x_msg_data,
2377: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2379: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
2380: End If;
2381: WHEN OTHERS THEN
2382: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_calendar API ..'||sqlerrm);
2383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2384: x_msg_count := 1;
2385: x_msg_data := substrb(SQLERRM,1,240); -- Changed substr to substrb : 4537865
2386: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2387: p_procedure_name => 'change_calendar');
2386: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2387: p_procedure_name => 'change_calendar');
2388: If x_msg_count = 1 THEN
2389: pa_interface_utils_pub.get_messages
2390: (p_encoded => FND_API.G_TRUE,
2391: p_msg_index => 1,
2392: p_msg_count => x_msg_count,
2393: p_msg_data => x_msg_data,
2394: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2418: WHERE a.assignment_id = b.assignment_id
2419: ORDER by a.assignment_id;
2420: BEGIN
2421: -- store the status success to track the error
2422: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2423:
2424: PA_SCHEDULE_UTILS.log_message(1,'Start of the change_schedule API ... ');
2425:
2426: FOR rec_sch_excp IN csr_sch_excp LOOP
2444:
2445: x_msg_count := FND_MSG_PUB.Count_Msg;
2446: If x_msg_count = 1 THEN
2447: pa_interface_utils_pub.get_messages
2448: (p_encoded => FND_API.G_TRUE ,
2449: p_msg_index => 1,
2450: p_msg_count => x_msg_count ,
2451: p_msg_data => x_msg_data ,
2452: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2456:
2457: EXCEPTION
2458: WHEN OTHERS THEN
2459: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_schedule API ..'||sqlerrm);
2460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2461: x_msg_count := 1;
2462: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Replaced substr usage with substrb
2463: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2464: p_procedure_name => 'change_schedule');
2463: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2464: p_procedure_name => 'change_schedule');
2465: If x_msg_count = 1 THEN
2466: pa_interface_utils_pub.get_messages
2467: (p_encoded => FND_API.G_TRUE ,
2468: p_msg_index => 1,
2469: p_msg_count => x_msg_count ,
2470: p_msg_data => x_msg_data ,
2471: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2499: p_record_version_number IN NUMBER,
2500: p_assignment_id IN NUMBER,
2501: p_project_id IN NUMBER,
2502: p_exception_id IN NUMBER,
2503: p_save_to_hist IN VARCHAR2 := FND_API.G_TRUE,
2504: p_remove_conflict_flag IN VARCHAR2 := 'N',
2505: p_generate_timeline_flag IN VARCHAR2 := 'Y', --Unilog
2506: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
2507: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
2568: l_save_to_hist VARCHAR2(1); -- Unilog
2569: l_record_version_number_wo_chg NUMBER; -- Unilog
2570:
2571: BEGIN
2572: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2573:
2574: PA_SCHEDULE_UTILS.log_message(1,'Start of the change_asgn_schedule API ... ');
2575:
2576: -- Unilog Begin
2575:
2576: -- Unilog Begin
2577: l_save_to_hist := p_save_to_hist;
2578: IF p_generate_timeline_flag = 'N' THEN -- It means it is called from WeeklySchedule
2579: l_save_to_hist := FND_API.G_FALSE;
2580: END IF;
2581: -- Also now we should be using l_save_to_hist instead of p_save_to_hist
2582: -- Unilog End
2583:
2593: -- or success. This is a work around and will be removed when the
2594: -- approval flow is redesigned.
2595: -- Bug 2135616: when this is called by PA_SCHEDULE_PVT.resolve_conflicts to remove
2596: -- conflicts, the approval status should not change.
2597: IF (FND_API.TO_BOOLEAN(NVL(l_save_to_hist,FND_API.G_TRUE))
2598: AND p_remove_conflict_flag = 'N') THEN
2599:
2600: pa_assignment_approval_pvt.update_approval_status(
2601: p_assignment_id => p_assignment_id,
2689: PA_SCHEDULE_UTILS.log_message(1,'Index Value :' || to_char(l_i));
2690: l_tr_sch_rec_tab.delete;
2691:
2692:
2693: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2694: -- This procedure will copy the schedule record from one table of record to another
2695: PA_SCHEDULE_UTILS.copy_schedule_rec_tab(
2696: l_chg_tr_sch_rec_tab,
2697: l_chg_tr_sch_rec_tab.first,
2707: END IF;
2708:
2709: IF (rec_sch_excp.exception_type_code = 'CHANGE_DURATION' OR
2710: rec_sch_excp.exception_type_code = 'SHIFT_DURATION') then
2711: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2712: -- calling PVT API that will change the duration and generate a new schedule
2713: -- on the basis of passed schedule and exception record
2714: PA_SCHEDULE_PVT.apply_change_duration(l_tr_sch_rec_tab,
2715: l_sch_except_rec,
2727: ELSE
2728:
2729: PA_SCHEDULE_UTILS.log_message(1,'after change_duration : ' );
2730:
2731: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2732: -- calling PVT API that will apply the changes
2733: PA_SCHEDULE_UTILS.log_message (1,' IN THE ELSE PART AND starting of apply other changes ');
2734: PA_SCHEDULE_UTILS.log_message(1, 'Calling apply_other_changes1 :', l_tr_sch_rec_tab);
2735: --PA_SCHEDULE_UTILS.log_message(1, 'Calling apply_other_changes2 :', l_sch_except_rec);
2744:
2745: PA_SCHEDULE_UTILS.log_message(1,'after change_others : ',l_out_tr_sch_rec_tab );
2746: END IF;
2747:
2748: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2749: -- seperating the deleted or non deleted record i.e inserted or updated
2750: PA_SCHEDULE_UTILS.sep_del_sch_rec_tab(l_out_tr_sch_rec_tab,
2751: l_del_tr_sch_rec_tab,
2752: l_chg_tr_sch_rec_tab,
2769: IF ( l_apply_schedule_changes ) THEN
2770:
2771: PA_SCHEDULE_UTILS.log_message(1, 'Before Calling the API apply_schedule_change ....');
2772:
2773: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2774: -- Calling the PVT api that will change the schedule
2775: PA_SCHEDULE_PVT.apply_schedule_change(l_chg_tr_sch_rec_tab,
2776: l_del_tr_sch_rec_tab,
2777: l_x_return_status,
2780: END IF;
2781:
2782: PA_SCHEDULE_UTILS.log_message(1, 'After Calling the API apply_schedule_change ....');
2783:
2784: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2785: -- Calling the API PA_SCHEDULE_PVT.apply_assignment_change
2786:
2787: -- jmarques: 1776658: Get old duration.
2788: select start_date, end_date, resource_id, record_version_number -- Unilog Selected record_version_number too
2809: END IF;
2810:
2811: PA_SCHEDULE_UTILS.log_message(1, 'Before Calling the API delete_rows ....');
2812:
2813: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2814: -- Deleting the rows from pa_schedule_exception table
2815: PA_SCH_EXCEPT_PKG.delete_rows(l_sch_except_record_tab,
2816: l_x_return_status,
2817: x_msg_count,
2821:
2822: PA_SCHEDULE_UTILS.log_message(1, 'After Calling the API delete_rows ..');
2823:
2824: -- inserting the rows from schedule except history table
2825: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2826: IF (FND_API.TO_BOOLEAN(NVL(l_save_to_hist,FND_API.G_TRUE))) THEN
2827: PA_SCH_EXCEPT_HIST_PKG.insert_rows(
2828: l_sch_except_record_tab,
2829: l_change_id,
2822: PA_SCHEDULE_UTILS.log_message(1, 'After Calling the API delete_rows ..');
2823:
2824: -- inserting the rows from schedule except history table
2825: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2826: IF (FND_API.TO_BOOLEAN(NVL(l_save_to_hist,FND_API.G_TRUE))) THEN
2827: PA_SCH_EXCEPT_HIST_PKG.insert_rows(
2828: l_sch_except_record_tab,
2829: l_change_id,
2830: l_x_return_status,
2840: IF p_generate_timeline_flag = 'Y' THEN --Unilog
2841:
2842: -- Calling the Timeline api to create the timeline records
2843: -- for the assignment
2844: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2845: PA_SCHEDULE_UTILS.log_message(1,'Calling Timeline API ..... ');
2846: PA_SCHEDULE_UTILS.log_message(1, 'Num: ' || FND_MSG_PUB.Count_Msg);
2847: PA_TIMELINE_PVT.create_timeline (
2848: p_assignment_id =>p_assignment_id ,
2855: -- resource timeline (recalculates availability) for the parts of
2856: -- the old duration which do not overlap the new duration.
2857:
2858: IF (l_old_start_date < l_new_start_date AND l_resource_id is not null) THEN
2859: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2860: pa_timeline_pvt.Create_Timeline (
2861: p_start_resource_name => NULL,
2862: p_end_resource_name => NULL,
2863: p_resource_id => l_resource_id,
2869: END IF;
2870: END IF;
2871:
2872: IF (l_old_end_date > l_new_end_date AND l_resource_id is not null) THEN
2873: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2874: pa_timeline_pvt.Create_Timeline (
2875: p_start_resource_name => NULL,
2876: p_end_resource_name => NULL,
2877: p_resource_id => l_resource_id,
2891: x_msg_count := FND_MSG_PUB.Count_Msg;
2892:
2893: If x_msg_count = 1 THEN
2894: pa_interface_utils_pub.get_messages
2895: (p_encoded => FND_API.G_TRUE ,
2896: p_msg_index => 1,
2897: p_msg_count => x_msg_count ,
2898: p_msg_data => x_msg_data ,
2899: p_data => l_data, -- 4537865
2904: EXCEPTION
2905: WHEN OTHERS THEN
2906: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_asgn_schedule API ..'
2907: ||sqlerrm);
2908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2909: x_msg_count := 1;
2910: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Changed substr to substrb
2911: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2912: p_procedure_name => 'change_asgn_schedule');
2911: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2912: p_procedure_name => 'change_asgn_schedule');
2913: If x_msg_count = 1 THEN
2914: pa_interface_utils_pub.get_messages
2915: (p_encoded => FND_API.G_TRUE ,
2916: p_msg_index => 1,
2917: p_msg_count => x_msg_count ,
2918: p_msg_data => x_msg_data ,
2919: p_data => l_data, -- 4537865
2945: l_data varchar2(2000) ;-- 4537865
2946: BEGIN
2947: PA_SCHEDULE_UTILS.log_message(1,'Start of the create_calendar_schedule API ... ');
2948: -- storing the status success to track the error
2949: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2950:
2951: -- Calling the Calendar API that will give the shift assign to the calendar*/
2952: PA_CALENDAR_UTILS.get_calendar_shifts(p_calendar_id,l_x_cal_record_tab,l_x_return_status,x_msg_count,x_msg_data);
2953:
2950:
2951: -- Calling the Calendar API that will give the shift assign to the calendar*/
2952: PA_CALENDAR_UTILS.get_calendar_shifts(p_calendar_id,l_x_cal_record_tab,l_x_return_status,x_msg_count,x_msg_data);
2953:
2954: IF ( l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2955: PA_CALENDAR_UTILS.gen_calendar_sch(p_calendar_id,l_x_cal_record_tab,l_schedule_rec_tab,l_x_return_status,
2956: x_msg_count,x_msg_data);
2957:
2958: END IF;
2957:
2958: END IF;
2959:
2960: PA_SCHEDULE_UTILS.log_message(1,'GEN SCH ',l_schedule_rec_tab);
2961: IF ( l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2962: -- Calling the PA_CALENDAR_UTILS API that will take the exception associated with the calendar
2963: PA_CALENDAR_UTILS.get_calendar_except(p_calendar_id,l_x_cal_except_record_tab,l_x_return_status,
2964: x_msg_count,x_msg_data);
2965:
2964: x_msg_count,x_msg_data);
2965:
2966: END IF;
2967:
2968: IF ( l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2969:
2970: -- Calling the PA_CALENDAR_UTILS API that will generate the calendar schedule after applying the exception
2971: PA_CALENDAR_UTILS.apply_calendar_except(p_calendar_id,l_x_cal_except_record_tab,l_schedule_rec_tab,
2972: l_x_sch_record_tab,l_x_return_status,x_msg_count,x_msg_data);
2972: l_x_sch_record_tab,l_x_return_status,x_msg_count,x_msg_data);
2973:
2974: END IF;
2975:
2976: IF ( l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2977: -- Inserting the records in PA_SCHEDULES table
2978: PA_SCHEDULE_PKG.insert_rows(l_x_sch_record_tab,l_x_return_status,x_msg_count,x_msg_data);
2979:
2980: END IF;
2995: x_return_status := l_x_return_status;
2996: x_msg_count := FND_MSG_PUB.Count_Msg;
2997: If x_msg_count = 1 THEN
2998: pa_interface_utils_pub.get_messages
2999: (p_encoded => FND_API.G_TRUE ,
3000: p_msg_index => 1,
3001: p_msg_count => x_msg_count ,
3002: p_msg_data => x_msg_data ,
3003: p_data => l_data, -- 4537865
3006: End If;
3007: EXCEPTION
3008: WHEN OTHERS THEN
3009: PA_SCHEDULE_UTILS.log_message(1,'ERROR in create_calendar_schedule API ..'||sqlerrm);
3010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3011: x_msg_count := 1;
3012: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 changed substr to substrb
3013: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3014: p_procedure_name => 'create_calendar_schedule');
3013: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3014: p_procedure_name => 'create_calendar_schedule');
3015: If x_msg_count = 1 THEN
3016: pa_interface_utils_pub.get_messages
3017: (p_encoded => FND_API.G_TRUE,
3018: p_msg_index => 1,
3019: p_msg_count => x_msg_count,
3020: p_msg_data => x_msg_data,
3021: p_data => l_data, -- 4537865
3055: l_data varchar2(2000); -- 4537865
3056: BEGIN
3057: PA_SCHEDULE_UTILS.log_message(1,'Start of the get_proj_calendar_default API ... ');
3058:
3059: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
3060: l_no_calendar_at_org := FALSE;
3061:
3062: /* Bug2873984
3063: IF (PA_INSTALL.IS_PRM_LICENSED() <> 'Y') THEN
3080: WHERE project_id = p_project_id;
3081:
3082: EXCEPTION
3083: WHEN NO_DATA_FOUND THEN
3084: x_return_status := FND_API.G_RET_STS_ERROR;
3085: RAISE;
3086: END;
3087: ELSE
3088: l_t_carrying_out_org_id := p_proj_organization;
3162: EXCEPTION
3163: WHEN l_invalid_default_calendar THEN
3164: PA_SCHEDULE_UTILS.log_message(1,'ERROR: invalid calendar id at profile option ..');
3165: PA_UTILS.add_message('PA','PA_INVALID_PROFILE_CALENDAR_ID');
3166: x_return_status := FND_API.G_RET_STS_ERROR;
3167: x_msg_data := 'PA_INVALID_PROFILE_CALENDAR_ID';
3168: x_msg_count := FND_MSG_PUB.Count_Msg;
3169:
3170: -- RESET other out params also : 4537865
3172: x_calendar_name := NULL;
3173:
3174: If x_msg_count = 1 THEN
3175: pa_interface_utils_pub.get_messages
3176: (p_encoded => FND_API.G_TRUE,
3177: p_msg_index => 1,
3178: p_msg_count => x_msg_count,
3179: p_msg_data => x_msg_data,
3180: p_data => l_data, -- 4537865
3183: End If;
3184: WHEN l_null_default_calendar THEN
3185: PA_SCHEDULE_UTILS.log_message(1,'ERROR: Null calendar id at profile option ..');
3186: PA_UTILS.add_message('PA','PA_INVALID_PROFILE_CALENDAR_ID');
3187: x_return_status := FND_API.G_RET_STS_ERROR;
3188: x_msg_data := 'PA_NULL_PROFILE_CALENDAR_ID';
3189: x_msg_count := FND_MSG_PUB.Count_Msg;
3190:
3191: -- RESET other out params also : 4537865
3193: x_calendar_name := NULL;
3194:
3195: If x_msg_count = 1 THEN
3196: pa_interface_utils_pub.get_messages
3197: (p_encoded => FND_API.G_TRUE,
3198: p_msg_index => 1,
3199: p_msg_count => x_msg_count,
3200: p_msg_data => x_msg_data,
3201: p_data => l_data, -- 4537865
3203: x_msg_data := l_data ; -- 4537865
3204: End If;
3205: WHEN OTHERS THEN
3206: PA_SCHEDULE_UTILS.log_message(1,'ERROR in get_proj_calendar_default API ..'||sqlerrm);
3207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3208: x_msg_count := 1;
3209: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : CHANGd substr to substrb
3210:
3211: -- RESET other out params also : 4537865
3215: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3216: p_procedure_name => 'get_proj_calendar_default');
3217: If x_msg_count = 1 THEN
3218: pa_interface_utils_pub.get_messages
3219: (p_encoded => FND_API.G_TRUE,
3220: p_msg_index => 1,
3221: p_msg_count => x_msg_count,
3222: p_msg_data => x_msg_data,
3223: p_data => l_data, -- 4537865
3262:
3263: l_data varchar2(2000) ; -- 4537865
3264: BEGIN
3265: -- Storing the status for error handling
3266: l_x_return_status := FND_API.G_RET_STS_SUCCESS;
3267:
3268: -- 2843435
3269: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3270:
3314: -- Creating new schedule for the Calendar Id */
3315: PA_SCHEDULE_PUB.create_calendar_schedule(v_c1.calendar_id,l_x_return_status,x_msg_count,x_msg_data);
3316:
3317: PA_SCHEDULE_UTILS.log_message(1,'Calling Timeline API ..... ');
3318: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3319: PA_TIMELINE_PVT.Create_Timeline (p_calendar_id =>v_c1.calendar_id,
3320: x_return_status =>l_x_return_status,
3321: x_msg_count =>x_msg_count,
3322: x_msg_data =>x_msg_data);
3321: x_msg_count =>x_msg_count,
3322: x_msg_data =>x_msg_data);
3323: END IF;
3324:
3325: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3326: l_flag := 'S';
3327: l_code := 'PA_SCH_SUCC_CAL_GEN';
3328: COMMIT;
3329: ELSE
3338:
3339: -- 2843435: Need to raise expected error messages and print them to
3340: -- FND_FILE. Currently we don't have the logic to print error messages
3341: -- to the report file. Therefore, we have to raise expected errors.
3342: IF l_x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3343:
3344: IF l_debug_mode = 'Y' THEN
3345: pa_debug.write_file('CREATE_NEW_CAL_SCHEDULES: '||'LOG', 'msg_count = '||FND_MSG_PUB.Count_Msg);
3346: END IF;
3345: pa_debug.write_file('CREATE_NEW_CAL_SCHEDULES: '||'LOG', 'msg_count = '||FND_MSG_PUB.Count_Msg);
3346: END IF;
3347:
3348: FOR l_counter IN 1..FND_MSG_PUB.Count_Msg LOOP
3349: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_FALSE
3350: ,p_msg_index => l_counter
3351: ,p_data => x_msg_data
3352: ,p_msg_index_out => l_msg_index_out);
3353: IF l_debug_mode = 'Y' THEN
3361: -- End of 2843435
3362:
3363: END LOOP;
3364:
3365: x_return_status := FND_API.G_RET_STS_SUCCESS;
3366: x_msg_count := FND_MSG_PUB.Count_Msg;
3367: If x_msg_count = 1 THEN
3368: pa_interface_utils_pub.get_messages
3369: (p_encoded => FND_API.G_TRUE ,
3365: x_return_status := FND_API.G_RET_STS_SUCCESS;
3366: x_msg_count := FND_MSG_PUB.Count_Msg;
3367: If x_msg_count = 1 THEN
3368: pa_interface_utils_pub.get_messages
3369: (p_encoded => FND_API.G_TRUE ,
3370: p_msg_index => 1,
3371: p_msg_count => x_msg_count ,
3372: p_msg_data => x_msg_data ,
3373: p_data => l_data, -- 4537865
3383: WHEN NO_DATA_FOUND THEN
3384: NULL;
3385: WHEN OTHERS THEN
3386: PA_SCHEDULE_UTILS.log_message(1,'ERROR in create_new_cal_schedules API ..'|| sqlerrm);
3387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3388: x_msg_count := 1;
3389: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Changed substrb to substr
3390: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3391: p_procedure_name => 'create_new_cal_schedules');
3390: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3391: p_procedure_name => 'create_new_cal_schedules');
3392: If x_msg_count = 1 THEN
3393: pa_interface_utils_pub.get_messages
3394: (p_encoded => FND_API.G_TRUE,
3395: p_msg_index => 1,
3396: p_msg_count => x_msg_count,
3397: p_msg_data => x_msg_data,
3398: p_data => l_data, -- 4537865
3518: -- create_forecast_items
3519:
3520: x_call_timeline_st_date := null;
3521: x_call_timeline_end_date := null;
3522: x_return_status := FND_API.G_RET_STS_SUCCESS;
3523:
3524: IF ((p_end_date - p_start_date <> 13) OR (p_end_date < p_start_date)) THEN
3525: PA_SCHEDULE_UTILS.log_message(1,'p_start_date and p_end_date is wrongly passed');
3526: raise API_ERROR;
3533: -- Bug 3235656 : Added the below condition to show error
3534: FOR i IN p_hours_table.FIRST .. p_hours_table.LAST LOOP
3535: IF (p_hours_table(i) < 0 OR p_hours_table(i) > 24) THEN
3536: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_OUT_OF_RANGE');
3537: RAISE FND_API.G_EXC_ERROR;
3538: END IF;
3539: END LOOP;
3540:
3541: -- We want to calculate the actual start date and actual end date here instead of Java
3941: p_end_date => l_new_assgn_end_date ,
3942: p_assignment_status_code => p_assignment_status_code ,
3943: p_asgn_start_date => p_asgn_start_date ,
3944: p_asgn_end_date => p_asgn_end_date ,
3945: p_init_msg_list => FND_API.G_FALSE ,
3946: p_generate_timeline_flag => 'N' ,
3947: x_return_status => x_return_status ,
3948: x_msg_count => x_msg_count ,
3949: x_msg_data => x_msg_data) ;
3947: x_return_status => x_return_status ,
3948: x_msg_count => x_msg_count ,
3949: x_msg_data => x_msg_data) ;
3950:
3951: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3952: raise API_ERROR;
3953: END IF;
3954:
3955: -- There is a gap found, so need to fill this with 0 hours
3972: p_saturday_hours => 0 ,
3973: p_sunday_hours => 0 ,
3974: p_asgn_start_date => l_new_assgn_start_date ,
3975: p_asgn_end_date => l_new_assgn_end_date ,
3976: p_init_msg_list => FND_API.G_FALSE ,
3977: p_last_row_flag => 'Y' , --Changed 'N' to 'Y' for Bug 4165970.
3978: p_generate_timeline_flag => 'N' ,
3979: x_return_status => x_return_status ,
3980: x_msg_count => x_msg_count ,
3979: x_return_status => x_return_status ,
3980: x_msg_count => x_msg_count ,
3981: x_msg_data => x_msg_data) ;
3982:
3983: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3984: raise API_ERROR;
3985: END IF;
3986: END IF; -- l_call_cng_work_patt_out_range THEN
3987:
4015: END IF;
4016:
4017: PA_SCHEDULE_UTILS.log_message(1,'After calling pa_schedule_pvt.get_assignment_schedule l_sch_record_tab.count='||l_sch_record_tab.count);
4018:
4019: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4020: raise API_ERROR;
4021: END IF;
4022:
4023:
4360: p_end_date => l_new_assgn_end_date ,
4361: p_assignment_status_code => p_assignment_status_code ,
4362: p_asgn_start_date => p_asgn_start_date ,
4363: p_asgn_end_date => p_asgn_end_date ,
4364: p_init_msg_list => FND_API.G_FALSE ,
4365: p_generate_timeline_flag => 'N' ,
4366: x_return_status => x_return_status ,
4367: x_msg_count => x_msg_count ,
4368: x_msg_data => x_msg_data) ;
4366: x_return_status => x_return_status ,
4367: x_msg_count => x_msg_count ,
4368: x_msg_data => x_msg_data) ;
4369:
4370: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4371: raise API_ERROR;
4372: END IF;
4373:
4374: -- There is a gap found, so need to fill this with 0 hours
4391: p_saturday_hours => 0 ,
4392: p_sunday_hours => 0 ,
4393: p_asgn_start_date => l_new_assgn_start_date ,
4394: p_asgn_end_date => l_new_assgn_end_date ,
4395: p_init_msg_list => FND_API.G_FALSE ,
4396: p_last_row_flag => 'N' ,
4397: p_generate_timeline_flag => 'N' ,
4398: x_return_status => x_return_status ,
4399: x_msg_count => x_msg_count ,
4398: x_return_status => x_return_status ,
4399: x_msg_count => x_msg_count ,
4400: x_msg_data => x_msg_data) ;
4401:
4402: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4403: raise API_ERROR;
4404: END IF;
4405: END IF; -- l_call_cng_work_patt_out_range THEN
4406:
4437: p_saturday_hours => l_saturday_hours(1) ,
4438: p_sunday_hours => l_sunday_hours(1) ,
4439: p_asgn_start_date => l_new_assgn_start_date ,
4440: p_asgn_end_date => l_new_assgn_end_date ,
4441: p_init_msg_list => FND_API.G_FALSE ,
4442: p_last_row_flag => l_last_row_flag ,
4443: p_generate_timeline_flag => 'N' ,
4444: x_return_status => x_return_status ,
4445: x_msg_count => x_msg_count ,
4444: x_return_status => x_return_status ,
4445: x_msg_count => x_msg_count ,
4446: x_msg_data => x_msg_data) ;
4447:
4448: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4449: raise API_ERROR;
4450: END IF;
4451: END IF;
4452:
4471: p_saturday_hours => l_saturday_hours(2) ,
4472: p_sunday_hours => l_sunday_hours(2) ,
4473: p_asgn_start_date => l_new_assgn_start_date ,
4474: p_asgn_end_date => l_new_assgn_end_date ,
4475: p_init_msg_list => FND_API.G_FALSE ,
4476: p_last_row_flag => 'Y' ,
4477: p_generate_timeline_flag => 'N' ,
4478: x_return_status => x_return_status ,
4479: x_msg_count => x_msg_count ,
4478: x_return_status => x_return_status ,
4479: x_msg_count => x_msg_count ,
4480: x_msg_data => x_msg_data) ;
4481:
4482: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4483: raise API_ERROR;
4484: END IF;
4485: END IF;--l_call_second_time THEN
4486: END IF; --l_call_change_work_pattern THEN
4496: x_return_status => x_return_status ,
4497: x_msg_count => x_msg_count ,
4498: x_msg_data => x_msg_data) ;
4499:
4500: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4501: raise API_ERROR;
4502: END IF;
4503: END IF;
4504:
4528:
4529:
4530:
4531: EXCEPTION
4532: WHEN FND_API.G_EXC_ERROR THEN -- Added for Bug 3235656
4533: x_return_status := FND_API.G_RET_STS_ERROR;
4534: x_msg_count := FND_MSG_PUB.Count_Msg;
4535:
4536: -- 4537865 : RESET other out params also.
4529:
4530:
4531: EXCEPTION
4532: WHEN FND_API.G_EXC_ERROR THEN -- Added for Bug 3235656
4533: x_return_status := FND_API.G_RET_STS_ERROR;
4534: x_msg_count := FND_MSG_PUB.Count_Msg;
4535:
4536: -- 4537865 : RESET other out params also.
4537: x_call_timeline_st_date := NULL ;
4538: x_call_timeline_end_date := NULL ;
4539:
4540: IF x_msg_count = 1 THEN
4541: pa_interface_utils_pub.get_messages
4542: (p_encoded => FND_API.G_TRUE,
4543: p_msg_index => 1,
4544: p_data => x_msg_data,
4545: p_msg_index_out => l_msg_index_out );
4546: END IF;
4559: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
4560: p_procedure_name => 'change_work_pattern_duration');
4561: IF x_msg_count = 1 THEN
4562: pa_interface_utils_pub.get_messages
4563: (p_encoded => FND_API.G_TRUE,
4564: p_msg_index => 1,
4565: p_msg_count => x_msg_count,
4566: p_msg_data => x_msg_data,
4567: p_data => l_data, -- 4537865
4570: END IF;
4571:
4572: WHEN OTHERS THEN
4573: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_work_pattern_duration API ..'|| sqlerrm);
4574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4575: x_msg_count := 1;
4576: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Chnaged substr to substrb
4577: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
4578: p_procedure_name => 'change_work_pattern_duration');
4582: x_call_timeline_end_date := NULL ;
4583:
4584: IF x_msg_count = 1 THEN
4585: pa_interface_utils_pub.get_messages
4586: (p_encoded => FND_API.G_TRUE,
4587: p_msg_index => 1,
4588: p_msg_count => x_msg_count,
4589: p_msg_data => x_msg_data,
4590: p_data => l_data, -- 4537865
4748: PA_SCHEDULE_UTILS.log_message(1,'p_delete_flag='||p_delete_flag);
4749: PA_SCHEDULE_UTILS.log_message(1,'p_resource_id_tbl.count='||p_resource_id_tbl.count);
4750:
4751:
4752: x_return_status := FND_API.G_RET_STS_SUCCESS;
4753: l_global_week_start_day := fnd_profile.value_specific('PA_GLOBAL_WEEK_START_DAY');
4754:
4755: /* Code added for Bug 5622389 */
4756: /* To incorporate the difference between PA weekday numbers and */
5325: PA_SCHEDULE_UTILS.log_message(1,'End of Populate_work_pattern_table');
5326: EXCEPTION
5327: WHEN OTHERS THEN
5328: PA_SCHEDULE_UTILS.log_message(1,'ERROR in Populate_work_pattern_table API ..'|| sqlerrm);
5329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5330: x_msg_count := 1;
5331: x_msg_data := substrb(SQLERRM,1,240); -- 4537865
5332: -- RESET x_show_start_date also
5333: x_show_start_date := NULL ;
5335: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
5336: p_procedure_name => 'Populate_work_pattern_table');
5337: IF x_msg_count = 1 THEN
5338: pa_interface_utils_pub.get_messages
5339: (p_encoded => FND_API.G_TRUE,
5340: p_msg_index => 1,
5341: p_msg_count => x_msg_count,
5342: p_msg_data => x_msg_data,
5343: p_data => l_data, -- 4537865