[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: ,p_called_by_proj_party IN VARCHAR2 := 'N' -- Added for Bug 6631033
63: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
64: ,x_msg_count OUT NOCOPY NUMBER --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: ,p_called_by_proj_party IN VARCHAR2 := 'N' -- Added for Bug 6631033
63: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
64: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
65: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
75: l_profile_begin_date DATE; -- Bug 6411422
76:
77: BEGIN
78: -- Initialize the return status to success
79: x_return_status := FND_API.G_RET_STS_SUCCESS ;
80:
81:
82:
83: --Clear the global PL/SQL message table
86: -- Initialize the Error Stack
87: PA_DEBUG.init_err_stack('PA_SCHEDULE_PUB.update_schedule');
88:
89: -- Issue API savepoint if the transaction is to be committed
90: IF (p_commit = FND_API.G_TRUE) THEN
91: SAVEPOINT SCH_PUB_UPDATE_SCH;
92: END IF;
93:
94: -- Bug 6411422
112: -- should not be null. The reason is that if both are null, actually it wouldn't update anything.
113: IF (p_exception_type_code = 'CHANGE_DURATION' AND
114: p_change_start_date IS NULL AND p_change_end_date IS NULL) THEN
115: PA_UTILS.Add_Message ('PA', 'PA_SCH_FROM_OR_TO_DATE_NULL');
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118:
119: -- If p_exception_type_code = 'CHANGE_HOURS' or 'CHANGE_WORK_PATTERN' or 'CHANGE_STATUS',
120: -- End date or Start date should not be null.
121: IF ( (p_exception_type_code = 'CHANGE_HOURS' OR p_exception_type_code = 'CHANGE_WORK_PATTERN' OR
122: p_exception_type_code = 'CHANGE_STATUS') AND
123: (p_change_start_date IS NULL OR p_change_end_date IS NULL) )THEN
124: PA_UTILS.Add_Message ('PA', 'PA_SCH_FROM_TO_DATE_NULL');
125: RAISE FND_API.G_EXC_ERROR;
126: END IF;
127:
128: -- If this api has been called from the page which has start_date, end_date input, call
129: -- the validation date procedure. It will validate the date i.e. start_date should not be greater
130: -- than end_date. If end date date greater than start_date, then it will return l_x_return_status as error.
131: PA_SCHEDULE_UTILS.validate_date_range (p_change_start_date, p_change_end_date, l_x_return_status, l_err_msg_code);
132:
133: -- If validate_date_range fails, put error message into error stack and stop to process.
134: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
135: PA_UTILS.Add_Message ('PA', l_err_msg_code);
136: RAISE FND_API.G_EXC_ERROR;
137: END IF;
138: END IF;
132:
133: -- If validate_date_range fails, put error message into error stack and stop to process.
134: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
135: PA_UTILS.Add_Message ('PA', l_err_msg_code);
136: RAISE FND_API.G_EXC_ERROR;
137: END IF;
138: END IF;
139:
140: -- If p_exception_type_code = 'SHIFT_DURATION' then throw exception in following cases.
143: -- mass update: if both 'p_requirement_status_code' and 'p_assignment_status_code' are null.
144: -- Modified below code for 7663765
145: IF ( (p_exception_type_code = 'SHIFT_DURATION' OR p_exception_type_code = 'CHANGE_STATUS' OR p_exception_type_code = 'DURATION_PATTERN_SHIFT') AND
146: (p_requirement_status_code is NULL AND p_assignment_status_code is NULL AND
147: p_mass_update_flag = FND_API.G_TRUE) ) THEN
148: PA_UTILS.Add_Message ('PA', 'PA_SCH_ASGN_STATUS_NULL');
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
151:
145: IF ( (p_exception_type_code = 'SHIFT_DURATION' OR p_exception_type_code = 'CHANGE_STATUS' OR p_exception_type_code = 'DURATION_PATTERN_SHIFT') AND
146: (p_requirement_status_code is NULL AND p_assignment_status_code is NULL AND
147: p_mass_update_flag = FND_API.G_TRUE) ) THEN
148: PA_UTILS.Add_Message ('PA', 'PA_SCH_ASGN_STATUS_NULL');
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
151:
152: -- validations when p_exception_type_code = 'CHANGE_HOURS'
153: IF (p_exception_type_code = 'CHANGE_HOURS') THEN
159: IF (p_change_hours_type_code = 'HOURS') THEN
160:
161: IF (p_hrs_per_day IS NULL) THEN
162: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_NULL');
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF (p_hrs_per_day NOT BETWEEN 0 AND 24 ) THEN
165: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_OUT_OF_RANGE');
166: RAISE FND_API.G_EXC_ERROR;
167: END IF;
162: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_NULL');
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF (p_hrs_per_day NOT BETWEEN 0 AND 24 ) THEN
165: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_OUT_OF_RANGE');
166: RAISE FND_API.G_EXC_ERROR;
167: END IF;
168:
169: ELSIF (p_change_hours_type_code = 'PERCENTAGE') THEN
170: IF (p_calendar_percent IS NULL) THEN
168:
169: ELSIF (p_change_hours_type_code = 'PERCENTAGE') THEN
170: IF (p_calendar_percent IS NULL) THEN
171: PA_UTILS.Add_Message ('PA', 'PA_SCH_PERCENTAGE_NULL');
172: RAISE FND_API.G_EXC_ERROR;
173: ELSIF (p_calendar_percent NOT BETWEEN 0 AND 100 ) THEN
174: PA_UTILS.Add_Message ('PA', 'PA_SCH_PERCENTAGE_OUT_OF_RANGE');
175: RAISE FND_API.G_EXC_ERROR;
176: END IF;
171: PA_UTILS.Add_Message ('PA', 'PA_SCH_PERCENTAGE_NULL');
172: RAISE FND_API.G_EXC_ERROR;
173: ELSIF (p_calendar_percent NOT BETWEEN 0 AND 100 ) THEN
174: PA_UTILS.Add_Message ('PA', 'PA_SCH_PERCENTAGE_OUT_OF_RANGE');
175: RAISE FND_API.G_EXC_ERROR;
176: END IF;
177:
178: -- Value/ID validation for calendar_name/id entered through 'OTHER' text input field on
179: -- the Update Hours Of Days screen.
181:
182: -- IF both calendar_name and calendar_id are null, error out.
183: IF (p_change_calendar_name is NULL AND p_change_calendar_id IS NULL) THEN
184: PA_UTILS.Add_Message ('PA', 'PA_OTHER_CALENDAR_NULL');
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: PA_CALENDAR_UTILS.Check_Calendar_Name_Or_Id(
189: p_calendar_id => p_change_calendar_id
193: ,x_return_status => l_x_return_status
194: ,x_error_message_code => l_err_msg_code);
195:
196: -- If calendar_name/id validation fails, put error message into error stack.
197: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
198: PA_UTILS.Add_Message ('PA', l_err_msg_code);
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201: END IF; -- IF(p_change_calendar_type_code = 'OTHER')
195:
196: -- If calendar_name/id validation fails, put error message into error stack.
197: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
198: PA_UTILS.Add_Message ('PA', l_err_msg_code);
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201: END IF; -- IF(p_change_calendar_type_code = 'OTHER')
202: END IF; -- ELSIF (p_change_hours_type_code = 'PERCENTAGE')
203:
211: p_wednesday_hours IS NULL AND p_thursday_hours IS NULL AND
212: p_friday_hours IS NULL AND p_saturday_hours IS NULL AND
213: p_sunday_hours IS NULL) THEN
214: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_ALL_NULL');
215: RAISE FND_API.G_EXC_ERROR;
216: END IF;
217:
218: -- if anyday hours is not null and not valid number(between 0 and 24), throw an errors.
219: IF ( (p_monday_hours IS NOT NULL AND (p_monday_hours NOT BETWEEN 0 AND 24)) OR
223: (p_friday_hours IS NOT NULL AND (p_friday_hours NOT BETWEEN 0 AND 24)) OR
224: (p_saturday_hours IS NOT NULL AND (p_saturday_hours NOT BETWEEN 0 AND 24)) OR
225: (p_sunday_hours IS NOT NULL AND (p_sunday_hours NOT BETWEEN 0 AND 24)) ) THEN
226: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_OUT_OF_RANGE');
227: RAISE FND_API.G_EXC_ERROR;
228: END IF;
229:
230: -- Cross-row validation when p_last_row_flag = 'Y'
231: IF p_change_start_date_tbl IS NOT NULL THEN
237: 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))
238: 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)))
239: THEN
240: PA_UTILS.Add_Message ('PA', 'PA_SCH_OVERLAP_WORK_PATTERN');
241: RAISE FND_API.G_EXC_ERROR;
242: END IF;
243: END LOOP;
244: END LOOP;
245: END IF;
256: -- If p_validate_only = 'T', it won't do anything other than on line validation i.e. validate_date_range.
257: -- From the Update Schedule page,
258: -- p_validate_only = 'T' : 'Continue and Submit' button
259: -- p_validate_only = 'F' : 'Apply' button
260: IF (p_validate_only = FND_API.G_TRUE) THEN
261: RETURN;
262: END IF;
263:
264: ----------------------------------------------------------------------------------------------
266: -- Mass Schedule Update
267: --
268: ----------------------------------------------------------------------------------------------
269: -- If this is for Mass schedule update, call Mass Transaction Workflow.
270: IF (p_mass_update_flag = FND_API.G_TRUE AND p_last_row_flag = 'Y') THEN
271: --start the mass WF
272: PA_MASS_ASGMT_TRX.Start_Mass_Asgmt_Trx_Wf(
273: p_mode => PA_MASS_ASGMT_TRX.G_MASS_UPDATE_SCHEDULE
274: ,p_action => PA_MASS_ASGMT_TRX.G_SAVE
307: --
308: ----------------------------------------------------------------------------------------------
309: -- If this is for Single schedule update, call an appropriate procedure depends on
310: -- p_exception_type_code.
311: ELSIF (p_mass_update_flag = FND_API.G_FALSE) THEN
312: -- call execute_update_schedule procedure for single schedule update.
313:
314: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub', 'Calling single_update_schedule', 6);
315:
338: ,p_duration_shift_type_code => p_duration_shift_type_code
339: ,p_duration_shift_unit_code => p_duration_shift_unit_code
340: ,p_number_of_shift => p_number_of_shift
341: ,p_last_row_flag => p_last_row_flag
342: ,p_init_msg_list => FND_API.G_TRUE
343: ,p_commit => FND_API.G_FALSE
344: ,p_called_by_proj_party => p_called_by_proj_party -- Added for Bug 6631033
345: ,x_return_status => l_x_return_status
346: ,x_msg_count => l_msg_count
339: ,p_duration_shift_unit_code => p_duration_shift_unit_code
340: ,p_number_of_shift => p_number_of_shift
341: ,p_last_row_flag => p_last_row_flag
342: ,p_init_msg_list => FND_API.G_TRUE
343: ,p_commit => FND_API.G_FALSE
344: ,p_called_by_proj_party => p_called_by_proj_party -- Added for Bug 6631033
345: ,x_return_status => l_x_return_status
346: ,x_msg_count => l_msg_count
347: ,x_msg_data => l_msg_data);
347: ,x_msg_data => l_msg_data);
348: END IF;
349:
350: -- If the called API fails, raise an exception.
351: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
352: RAISE FND_API.G_EXC_ERROR;
353: END IF;
354:
355: ELSE -- Bug 6411422
348: END IF;
349:
350: -- If the called API fails, raise an exception.
351: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
352: RAISE FND_API.G_EXC_ERROR;
353: END IF;
354:
355: ELSE -- Bug 6411422
356:
359: PA_UTILS.Add_Message( p_app_short_name => 'PA'
360: ,p_msg_name => 'PA_INVALID_ASSIGN_START_DATE'
361: ,p_token1 => 'PROFILE_DATE'
362: ,p_value1 => l_profile_begin_date );
363: RAISE FND_API.G_EXC_ERROR;
364:
365: END IF; -- Bug 6411422
366:
367: ----------------------------------------------------------------------------------------------
370: --
371: ----------------------------------------------------------------------------------------------
372: EXCEPTION
373:
374: WHEN FND_API.G_EXC_ERROR THEN
375: x_return_status := FND_API.G_RET_STS_ERROR;
376: x_msg_count := FND_MSG_PUB.Count_Msg;
377:
378: IF x_msg_count = 1 THEN
371: ----------------------------------------------------------------------------------------------
372: EXCEPTION
373:
374: WHEN FND_API.G_EXC_ERROR THEN
375: x_return_status := FND_API.G_RET_STS_ERROR;
376: x_msg_count := FND_MSG_PUB.Count_Msg;
377:
378: IF x_msg_count = 1 THEN
379: pa_interface_utils_pub.get_messages
376: x_msg_count := FND_MSG_PUB.Count_Msg;
377:
378: IF x_msg_count = 1 THEN
379: pa_interface_utils_pub.get_messages
380: (p_encoded => FND_API.G_TRUE,
381: p_msg_index => 1,
382: p_data => x_msg_data,
383: p_msg_index_out => l_msg_index_out );
384: END IF;
383: p_msg_index_out => l_msg_index_out );
384: END IF;
385:
386: WHEN OTHERS THEN
387: IF p_commit = FND_API.G_TRUE THEN
388: ROLLBACK TO SCH_PUB_UPDATE_SCH;
389: END IF;
390:
391: -- 4537865 : RESET x_msg_data also.
395: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB'
396: ,p_procedure_name => 'execute_update_schedule'
397: ,p_error_text => x_msg_data ); -- 4537865
398:
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
400: x_msg_count := 1;
401:
402: RAISE; -- This is optional depending on the needs
403:
407: /* Bug 7693634 Start */
408:
409: PROCEDURE update_schedule_bulk
410: ( p_project_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE
411: ,p_mass_update_flag_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_FALSE
412: ,p_exception_type_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE
413: ,p_record_version_number_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
414: ,p_assignment_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
415: ,p_change_start_date_tbl IN SYSTEM.PA_DATE_TBL_TYPE := NULL
416: ,p_change_end_date_tbl IN SYSTEM.PA_DATE_TBL_TYPE := NULL
417: ,p_requirement_status_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
418: ,p_assignment_status_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
419: ,p_last_row_flag_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := 'Y'
420: ,p_commit_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_FALSE
421: ,p_validate_only_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_TRUE
422: ,p_msg_data_in_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE
423: ,x_return_status_tbl OUT NOCOPY SYSTEM.PA_VARCHAR2_2000_TBL_TYPE --File.Sql.39 bug 4440895
424: ,x_msg_count_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE --File.Sql.39 bug 4440895
417: ,p_requirement_status_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
418: ,p_assignment_status_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
419: ,p_last_row_flag_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := 'Y'
420: ,p_commit_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_FALSE
421: ,p_validate_only_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_TRUE
422: ,p_msg_data_in_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE
423: ,x_return_status_tbl OUT NOCOPY SYSTEM.PA_VARCHAR2_2000_TBL_TYPE --File.Sql.39 bug 4440895
424: ,x_msg_count_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE --File.Sql.39 bug 4440895
425: ,x_msg_data_tbl OUT NOCOPY SYSTEM.PA_VARCHAR2_2000_TBL_TYPE ) --File.Sql.39 bug 4440895
462: or p_msg_data_in_tbl(k) = 'StartDateWarning'
463: or p_msg_data_in_tbl(k) = 'EndDateWarning') then
464: l_mass_update_flag_tbl(k) := p_mass_update_flag_tbl(k);
465: if l_mass_update_flag_tbl(k) is null then
466: l_mass_update_flag_tbl(k) := FND_API.G_FALSE;
467: end if;
468:
469: l_last_row_flag_tbl(k) := p_last_row_flag_tbl(k);
470: if l_last_row_flag_tbl(k) is null then
472: end if;
473:
474: l_commit_tbl(k) := p_commit_tbl(k);
475: if l_commit_tbl(k) is null then
476: l_commit_tbl(k) := FND_API.G_FALSE;
477: end if;
478:
479: l_validate_only_tbl(k) := p_validate_only_tbl(k);
480: if l_validate_only_tbl(k) is null then
477: end if;
478:
479: l_validate_only_tbl(k) := p_validate_only_tbl(k);
480: if l_validate_only_tbl(k) is null then
481: l_validate_only_tbl(k) := FND_API.G_TRUE;
482: end if;
483:
484: end if;
485: end loop;
491: or p_msg_data_in_tbl(k) = 'EndDateWarning') then
492:
493: BEGIN
494: -- Initialize the return status to success
495: l_return_status_tbl(k) := FND_API.G_RET_STS_SUCCESS ;
496:
497: --Clear the global PL/SQL message table
498: FND_MSG_PUB.initialize;
499:
500: -- Initialize the Error Stack
501: PA_DEBUG.init_err_stack('PA_SCHEDULE_PUB.update_schedule');
502:
503: -- Issue API savepoint if the transaction is to be committed
504: IF (l_commit_tbl(k) = FND_API.G_TRUE) THEN
505: SAVEPOINT SCH_PUB_UPDATE_SCH;
506: END IF;
507:
508:
511: -- Mass Schedule Update
512: --
513: ----------------------------------------------------------------------------------------------
514: -- If this is for Mass schedule update, call Mass Transaction Workflow.
515: IF (l_mass_update_flag_tbl(k) = FND_API.G_TRUE AND l_last_row_flag_tbl(k) = 'Y') THEN
516: PA_MASS_ASGMT_TRX.Start_Mass_Asgmt_Trx_Wf(
517: p_mode => PA_MASS_ASGMT_TRX.G_MASS_UPDATE_SCHEDULE
518: ,p_action => PA_MASS_ASGMT_TRX.G_SAVE
519: ,p_project_id => p_project_id_tbl(k)
531: --
532: ----------------------------------------------------------------------------------------------
533: -- If this is for Single schedule update, call an appropriate procedure depends on
534: -- p_exception_type_code.
535: ELSIF (l_mass_update_flag_tbl(k) = FND_API.G_FALSE) THEN
536: -- call execute_update_schedule procedure for single schedule update.
537: --Bug#9817752 start
538: -- For new period of schedule generated from update scheduled people page, the status should always be Provisional
539: IF PA_ASSIGNMENTS_PUB.G_update_assignment_bulk_call = 'Y' THEN
560: ,p_assignment_id => p_assignment_id_tbl(k)
561: ,p_change_start_date => p_change_start_date_tbl(k)
562: ,p_change_end_date => p_change_end_date_tbl(k)
563: ,p_assignment_status_code => Nvl(l_assignment_status_code,p_assignment_status_code_tbl(k))
564: ,p_init_msg_list => FND_API.G_TRUE
565: ,p_commit => l_commit_tbl(k)
566: ,x_return_status => l_x_return_status
567: ,x_msg_count => l_msg_count
568: ,x_msg_data => l_msg_data);
569: l_msg_data_tbl(k) := l_msg_data;
570: END IF;
571:
572: -- If the called API fails, raise an exception.
573: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
574: RAISE FND_API.G_EXC_ERROR;
575: END IF;
576:
577:
570: END IF;
571:
572: -- If the called API fails, raise an exception.
573: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
574: RAISE FND_API.G_EXC_ERROR;
575: END IF;
576:
577:
578: x_msg_count_tbl := l_msg_count_tbl;
584: --
585: ----------------------------------------------------------------------------------------------
586: EXCEPTION
587:
588: WHEN FND_API.G_EXC_ERROR THEN
589: l_return_status_tbl(k) := FND_API.G_RET_STS_ERROR;
590: l_msg_count_tbl(k) := FND_MSG_PUB.Count_Msg;
591:
592: IF l_msg_count_tbl(k) = 1 THEN
585: ----------------------------------------------------------------------------------------------
586: EXCEPTION
587:
588: WHEN FND_API.G_EXC_ERROR THEN
589: l_return_status_tbl(k) := FND_API.G_RET_STS_ERROR;
590: l_msg_count_tbl(k) := FND_MSG_PUB.Count_Msg;
591:
592: IF l_msg_count_tbl(k) = 1 THEN
593: pa_interface_utils_pub.get_messages
590: l_msg_count_tbl(k) := FND_MSG_PUB.Count_Msg;
591:
592: IF l_msg_count_tbl(k) = 1 THEN
593: pa_interface_utils_pub.get_messages
594: (p_encoded => FND_API.G_TRUE,
595: p_msg_index => 1,
596: p_data => l_msg_data_tbl(k),
597: p_msg_index_out => l_msg_index_out );
598: END IF;
600: x_return_status_tbl := l_return_status_tbl;
601: x_msg_data_tbl := l_msg_data_tbl;
602:
603: WHEN OTHERS THEN
604: IF l_commit_tbl(k) = FND_API.G_TRUE THEN
605: ROLLBACK TO SCH_PUB_UPDATE_SCH;
606: END IF;
607: -- 4537865 : RESET x_msg_data also.
608: l_msg_data_tbl(k) := SUBSTRB(SQLERRM,1,240);
611: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB'
612: ,p_procedure_name => 'execute_update_schedule'
613: ,p_error_text => l_msg_data_tbl(k) ); -- 4537865
614:
615: l_return_status_tbl(k) := FND_API.G_RET_STS_UNEXP_ERROR ;
616: l_msg_count_tbl(k) := 1;
617:
618: x_msg_count_tbl := l_msg_count_tbl;
619: x_return_status_tbl := l_return_status_tbl;
633:
634:
635: PROCEDURE update_new_schedule_bulk
636: ( p_project_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE
637: ,p_mass_update_flag_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_FALSE
638: ,p_exception_type_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE
639: ,p_record_version_number_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
640: ,p_assignment_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
641: ,p_change_start_date_tbl IN SYSTEM.PA_DATE_TBL_TYPE := NULL
642: ,p_change_end_date_tbl IN SYSTEM.PA_DATE_TBL_TYPE := NULL
643: ,p_requirement_status_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
644: ,p_assignment_status_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
645: ,p_last_row_flag_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := 'Y'
646: ,p_commit_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_FALSE
647: ,p_validate_only_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_TRUE
648: ,p_msg_data_in_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE
649: ,p_change_hours_type_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
650: ,p_calendar_percent_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
643: ,p_requirement_status_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
644: ,p_assignment_status_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
645: ,p_last_row_flag_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := 'Y'
646: ,p_commit_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_FALSE
647: ,p_validate_only_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE -- := FND_API.G_TRUE
648: ,p_msg_data_in_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE
649: ,p_change_hours_type_code_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := NULL
650: ,p_calendar_percent_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
651: ,p_change_calendar_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := NULL
691: or p_msg_data_in_tbl(k) = 'StartDateWarning'
692: or p_msg_data_in_tbl(k) = 'EndDateWarning') then
693: l_mass_update_flag_tbl(k) := p_mass_update_flag_tbl(k);
694: if l_mass_update_flag_tbl(k) is null then
695: l_mass_update_flag_tbl(k) := FND_API.G_FALSE;
696: end if;
697:
698: l_last_row_flag_tbl(k) := p_last_row_flag_tbl(k);
699: if l_last_row_flag_tbl(k) is null then
704:
705:
706: l_commit_tbl(k) := p_commit_tbl(k);
707: if l_commit_tbl(k) is null then
708: l_commit_tbl(k) := FND_API.G_FALSE;
709: end if;
710:
711: l_validate_only_tbl(k) := p_validate_only_tbl(k);
712: if l_validate_only_tbl(k) is null then
709: end if;
710:
711: l_validate_only_tbl(k) := p_validate_only_tbl(k);
712: if l_validate_only_tbl(k) is null then
713: l_validate_only_tbl(k) := FND_API.G_TRUE;
714: end if;
715:
716: end if;
717: end loop;
723: or p_msg_data_in_tbl(k) = 'EndDateWarning') then
724:
725: BEGIN
726: -- Initialize the return status to success
727: l_return_status_tbl(k) := FND_API.G_RET_STS_SUCCESS ;
728:
729: --Clear the global PL/SQL message table
730: FND_MSG_PUB.initialize;
731:
732: -- Initialize the Error Stack
733: PA_DEBUG.init_err_stack('PA_SCHEDULE_PUB.update_schedule');
734:
735: -- Issue API savepoint if the transaction is to be committed
736: IF (l_commit_tbl(k) = FND_API.G_TRUE) THEN
737: SAVEPOINT SCH_PUB_UPDATE_SCH;
738: END IF;
739:
740:
743: -- Mass Schedule Update
744: --
745: ----------------------------------------------------------------------------------------------
746: -- If this is for Mass schedule update, call Mass Transaction Workflow.
747: IF (l_mass_update_flag_tbl(k) = FND_API.G_TRUE AND l_last_row_flag_tbl(k) = 'Y') THEN
748: PA_MASS_ASGMT_TRX.Start_Mass_Asgmt_Trx_Wf(
749: p_mode => PA_MASS_ASGMT_TRX.G_MASS_UPDATE_SCHEDULE
750: ,p_action => PA_MASS_ASGMT_TRX.G_SAVE
751: ,p_project_id => p_project_id_tbl(k)
763: --
764: ----------------------------------------------------------------------------------------------
765: -- If this is for Single schedule update, call an appropriate procedure depends on
766: -- p_exception_type_code.
767: ELSIF (l_mass_update_flag_tbl(k) = FND_API.G_FALSE) THEN
768: -- call execute_update_schedule procedure for single schedule update.
769:
770: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub', 'Calling single_update_schedule', 6);
771:
772: -- Bug#9710585 START Adding Validation for percent
773: IF (p_change_hours_type_code_tbl(k) = 'PERCENTAGE') THEN
774: IF (p_calendar_percent_tbl(k) NOT BETWEEN 0 AND 100 ) THEN
775: PA_UTILS.Add_Message ('PA', 'PA_SCH_PERCENTAGE_OUT_OF_RANGE');
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778: END IF;
779: --Bug#9710585 END Adding Validation for percent
780: single_update_schedule (
788: ,p_change_hours_type_code => p_change_hours_type_code_tbl(k)
789: ,p_calendar_percent => p_calendar_percent_tbl(k)
790: ,p_change_calendar_id => p_change_calendar_id_tbl(k) -- Bug#9710585
791: ,p_change_calendar_type_code => 'OTHER' --Bug#9710585
792: ,p_init_msg_list => FND_API.G_TRUE
793: ,p_commit => l_commit_tbl(k)
794: ,x_return_status => l_x_return_status
795: ,x_msg_count => l_msg_count
796: ,x_msg_data => l_msg_data);
798: l_msg_data_tbl(k) := l_msg_data;
799: END IF;
800:
801: -- If the called API fails, raise an exception.
802: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
805:
806:
799: END IF;
800:
801: -- If the called API fails, raise an exception.
802: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
805:
806:
807: x_msg_count_tbl := l_msg_count_tbl;
813: --
814: ----------------------------------------------------------------------------------------------
815: EXCEPTION
816:
817: WHEN FND_API.G_EXC_ERROR THEN
818: l_return_status_tbl(k) := FND_API.G_RET_STS_ERROR;
819: l_msg_count_tbl(k) := FND_MSG_PUB.Count_Msg;
820:
821: IF l_msg_count_tbl(k) = 1 THEN
814: ----------------------------------------------------------------------------------------------
815: EXCEPTION
816:
817: WHEN FND_API.G_EXC_ERROR THEN
818: l_return_status_tbl(k) := FND_API.G_RET_STS_ERROR;
819: l_msg_count_tbl(k) := FND_MSG_PUB.Count_Msg;
820:
821: IF l_msg_count_tbl(k) = 1 THEN
822: pa_interface_utils_pub.get_messages
819: l_msg_count_tbl(k) := FND_MSG_PUB.Count_Msg;
820:
821: IF l_msg_count_tbl(k) = 1 THEN
822: pa_interface_utils_pub.get_messages
823: (p_encoded => FND_API.G_TRUE,
824: p_msg_index => 1,
825: p_data => l_msg_data_tbl(k),
826: p_msg_index_out => l_msg_index_out );
827: END IF;
829: x_return_status_tbl := l_return_status_tbl;
830: x_msg_data_tbl := l_msg_data_tbl;
831:
832: WHEN OTHERS THEN
833: IF l_commit_tbl(k) = FND_API.G_TRUE THEN
834: ROLLBACK TO SCH_PUB_UPDATE_SCH;
835: END IF;
836: -- 4537865 : RESET x_msg_data also.
837: l_msg_data_tbl(k) := SUBSTRB(SQLERRM,1,240);
840: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB'
841: ,p_procedure_name => 'execute_update_schedule'
842: ,p_error_text => l_msg_data_tbl(k) ); -- 4537865
843:
844: l_return_status_tbl(k) := FND_API.G_RET_STS_UNEXP_ERROR ;
845: l_msg_count_tbl(k) := 1;
846:
847: x_msg_count_tbl := l_msg_count_tbl;
848: x_return_status_tbl := l_return_status_tbl;
895: ,p_duration_shift_type_code IN VARCHAR2 := NULL
896: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
897: ,p_number_of_shift IN NUMBER := NULL
898: ,p_last_row_flag IN VARCHAR2 := 'Y'
899: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
900: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
901: ,p_called_by_proj_party IN VARCHAR2 := 'N' -- Added for Bug 6631033
902: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
903: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
896: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
897: ,p_number_of_shift IN NUMBER := NULL
898: ,p_last_row_flag IN VARCHAR2 := 'Y'
899: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
900: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
901: ,p_called_by_proj_party IN VARCHAR2 := 'N' -- Added for Bug 6631033
902: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
903: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
904: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
928: BEGIN
929:
930:
931: --Clear the global PL/SQL message table
932: IF (p_init_msg_list = FND_API.G_TRUE) THEN
933: FND_MSG_PUB.initialize;
934: END IF;
935:
936: -- Initialize the return status to success
933: FND_MSG_PUB.initialize;
934: END IF;
935:
936: -- Initialize the return status to success
937: x_return_status := FND_API.G_RET_STS_SUCCESS ;
938:
939: -- Initialize the Error Stack
940: PA_DEBUG.init_err_stack('PA_SCHEDULE_PUB.single_update_schedule');
941:
939: -- Initialize the Error Stack
940: PA_DEBUG.init_err_stack('PA_SCHEDULE_PUB.single_update_schedule');
941:
942: -- Issue API savepoint if the transaction is to be committed
943: IF p_commit = FND_API.G_TRUE THEN
944: SAVEPOINT SCH_PUB_SINGLE_UPDATE_SCH;
945: END IF;
946:
947: -- Get assignment information to pass to change_XXX apis.
1043:
1044: END IF;
1045:
1046: -- If the called API fails, raise an exception.
1047: IF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1044: END IF;
1045:
1046: -- If the called API fails, raise an exception.
1047: IF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052:
1045:
1046: -- If the called API fails, raise an exception.
1047: IF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052:
1053: ----------------------------------------------------------------------------------------------
1046: -- If the called API fails, raise an exception.
1047: IF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052:
1053: ----------------------------------------------------------------------------------------------
1054: --
1056: --
1057: ----------------------------------------------------------------------------------------------
1058: EXCEPTION
1059:
1060: WHEN FND_API.G_EXC_ERROR THEN
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062: x_msg_count := FND_MSG_PUB.Count_Msg;
1063:
1064: IF x_msg_count = 1 THEN
1057: ----------------------------------------------------------------------------------------------
1058: EXCEPTION
1059:
1060: WHEN FND_API.G_EXC_ERROR THEN
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062: x_msg_count := FND_MSG_PUB.Count_Msg;
1063:
1064: IF x_msg_count = 1 THEN
1065: pa_interface_utils_pub.get_messages
1062: x_msg_count := FND_MSG_PUB.Count_Msg;
1063:
1064: IF x_msg_count = 1 THEN
1065: pa_interface_utils_pub.get_messages
1066: (p_encoded => FND_API.G_TRUE,
1067: p_msg_index => 1,
1068: p_data => x_msg_data,
1069: p_msg_index_out => l_msg_index_out );
1070: END IF;
1069: p_msg_index_out => l_msg_index_out );
1070: END IF;
1071:
1072: WHEN OTHERS THEN
1073: IF p_commit = FND_API.G_TRUE THEN
1074: ROLLBACK TO SCH_PUB_SINGLE_UPDATE_SCH;
1075: END IF;
1076:
1077: -- 4537865 : RESET x_msg_data also
1081: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB'
1082: ,p_procedure_name => 'single_update_schedule',
1083: p_error_text => x_msg_data ); -- 4537865
1084:
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1086: x_msg_count := 1;
1087:
1088: RAISE; -- This is optional depending on the needs
1089:
1125: ,p_change_calendar_id IN NUMBER := NULL
1126: ,p_duration_shift_type_code IN VARCHAR2 := NULL
1127: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
1128: ,p_number_of_shift IN NUMBER := NULL
1129: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1130: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1131: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1132: ,x_success_assignment_id_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE /* Added NOCOPY for bug#2674619 */
1133: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1126: ,p_duration_shift_type_code IN VARCHAR2 := NULL
1127: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
1128: ,p_number_of_shift IN NUMBER := NULL
1129: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1130: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1131: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1132: ,x_success_assignment_id_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE /* Added NOCOPY for bug#2674619 */
1133: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1134: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
1127: ,p_duration_shift_unit_code IN VARCHAR2 := NULL
1128: ,p_number_of_shift IN NUMBER := NULL
1129: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1130: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1131: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1132: ,x_success_assignment_id_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE /* Added NOCOPY for bug#2674619 */
1133: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1134: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
1135: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
1162:
1163:
1164: BEGIN
1165: -- Initialize the return status to success
1166: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1167:
1168: --Clear the global PL/SQL message table
1169: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1170: FND_MSG_PUB.initialize;
1165: -- Initialize the return status to success
1166: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1167:
1168: --Clear the global PL/SQL message table
1169: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1170: FND_MSG_PUB.initialize;
1171: END IF;
1172:
1173: -- Initialize the Error Stack
1184:
1185: BEGIN
1186: -- We need to commit for each schedule update rather than one time after
1187: -- completing mass schedule update.
1188: IF p_commit = FND_API.G_TRUE THEN
1189: SAVEPOINT SCH_PUB_MASS_UPDATE_SCH;
1190: END IF;
1191:
1192: -- get the detail information of the assignment to prepare the parameters for change_XXX api
1207:
1208: -- add appropriate error message to the error stack as raise error where the error will be
1209: -- copied to the error table.
1210: PA_UTILS.Add_Message ('PA', 'PA_NO_ASGMT');
1211: RAISE FND_API.G_EXC_ERROR;
1212:
1213: -- If there is only record for the assignment_id, call single_update_schedule after security check
1214: -- if necessary.
1215: ELSIF (l_rownum = 1) THEN
1260: ,p_duration_shift_type_code => p_duration_shift_type_code
1261: ,p_duration_shift_unit_code => p_duration_shift_unit_code
1262: ,p_number_of_shift => p_number_of_shift
1263: ,p_last_row_flag => l_last_row_flag
1264: ,p_init_msg_list => FND_API.G_TRUE
1265: ,p_commit => FND_API.G_FALSE
1266: ,x_return_status => l_x_return_status
1267: ,x_msg_count => l_msg_count
1268: ,x_msg_data => l_msg_data);
1261: ,p_duration_shift_unit_code => p_duration_shift_unit_code
1262: ,p_number_of_shift => p_number_of_shift
1263: ,p_last_row_flag => l_last_row_flag
1264: ,p_init_msg_list => FND_API.G_TRUE
1265: ,p_commit => FND_API.G_FALSE
1266: ,x_return_status => l_x_return_status
1267: ,x_msg_count => l_msg_count
1268: ,x_msg_data => l_msg_data);
1269:
1298: ,p_duration_shift_type_code => p_duration_shift_type_code
1299: ,p_duration_shift_unit_code => p_duration_shift_unit_code
1300: ,p_number_of_shift => p_number_of_shift
1301: ,p_last_row_flag => l_last_row_flag
1302: ,p_init_msg_list => FND_API.G_TRUE
1303: ,p_commit => FND_API.G_FALSE
1304: ,x_return_status => l_x_return_status
1305: ,x_msg_count => l_msg_count
1306: ,x_msg_data => l_msg_data);
1299: ,p_duration_shift_unit_code => p_duration_shift_unit_code
1300: ,p_number_of_shift => p_number_of_shift
1301: ,p_last_row_flag => l_last_row_flag
1302: ,p_init_msg_list => FND_API.G_TRUE
1303: ,p_commit => FND_API.G_FALSE
1304: ,x_return_status => l_x_return_status
1305: ,x_msg_count => l_msg_count
1306: ,x_msg_data => l_msg_data);
1307: END IF; -- end if for calling single_update_schedule
1307: END IF; -- end if for calling single_update_schedule
1308:
1309: -- If the called API succeeded, put the assingnment_id to the out parameter 'x_assignment_id_array'
1310: -- and commit.
1311: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1312: l_success_assignment_id_tbl(i) := p_assignment_id_array(i);
1313:
1314: IF (p_commit = FND_API.G_TRUE) THEN
1315: COMMIT;
1310: -- and commit.
1311: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1312: l_success_assignment_id_tbl(i) := p_assignment_id_array(i);
1313:
1314: IF (p_commit = FND_API.G_TRUE) THEN
1315: COMMIT;
1316: END IF;
1317:
1318: -- If the called API doesn't succeeded, set null to tthe out parameter 'x_assignment_id_array'
1320: -- And need to rollback.
1321: ELSE
1322: l_success_assignment_id_tbl(i) := null;
1323:
1324: IF (p_commit = FND_API.G_TRUE) THEN
1325: ROLLBACK TO SCH_PUB_MASS_UPDATE_SCH;
1326: RAISE FND_API.G_EXC_ERROR;
1327: END IF;
1328: END IF;
1322: l_success_assignment_id_tbl(i) := null;
1323:
1324: IF (p_commit = FND_API.G_TRUE) THEN
1325: ROLLBACK TO SCH_PUB_MASS_UPDATE_SCH;
1326: RAISE FND_API.G_EXC_ERROR;
1327: END IF;
1328: END IF;
1329:
1330: END IF; -- if l_rownum = 1
1344: p_source_identifier2 => PA_MASS_ASGMT_TRX.G_WORKFLOW_ITEM_KEY,
1345: p_context1 => p_project_id,
1346: p_context2 => p_assignment_id_array(i),
1347: p_context3 => NULL,
1348: p_commit => FND_API.G_TRUE,
1349: x_return_status => l_return_status);
1350:
1351: WHEN FND_API.G_EXC_ERROR THEN
1352: -- save the error message to the proper table so that we can retrive them later
1347: p_context3 => NULL,
1348: p_commit => FND_API.G_TRUE,
1349: x_return_status => l_return_status);
1350:
1351: WHEN FND_API.G_EXC_ERROR THEN
1352: -- save the error message to the proper table so that we can retrive them later
1353: -- from workflow notification page.
1354: PA_MESSAGE_UTILS.save_messages
1355: (p_user_id => PA_MASS_ASGMT_TRX.G_SUBMITTER_USER_ID,
1359: p_source_identifier2 => PA_MASS_ASGMT_TRX.G_WORKFLOW_ITEM_KEY,
1360: p_context1 => p_project_id,
1361: p_context2 => p_assignment_id_array(i),
1362: p_context3 => NULL,
1363: p_commit => FND_API.G_TRUE,
1364: x_return_status => l_return_status);
1365: END;
1366:
1367: END LOOP;
1385: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB'
1386: ,p_procedure_name => 'mass_update_schedule'
1387: ,p_error_text => x_msg_data ); -- 4537865
1388:
1389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1390: x_msg_count := FND_MSG_PUB.Count_Msg;
1391:
1392: RAISE; -- This is optional depending on the needs
1393: END mass_update_schedule;
1428: p_asgn_end_date IN DATE := NULL,
1429: p_duration_shift_type_code IN Varchar2 := NULL,
1430: p_duration_shift_unit_code IN VARCHAR2 := NULL,
1431: p_number_of_shift IN Varchar2 := NULL,
1432: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1433: p_generate_timeline_flag IN VARCHAR2 := 'Y', --Unilog
1434: p_called_by_proj_party IN VARCHAR2 := 'N', -- Added for Bug 6631033
1435: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1436: x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
1483:
1484: l_project_status_name pa_project_statuses.project_status_name%TYPE;
1485:
1486: BEGIN
1487: l_x_return_status := FND_API.G_RET_STS_SUCCESS;
1488:
1489: --Clear the global PL/SQL message table
1490: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1491: FND_MSG_PUB.initialize;
1486: BEGIN
1487: l_x_return_status := FND_API.G_RET_STS_SUCCESS;
1488:
1489: --Clear the global PL/SQL message table
1490: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1491: FND_MSG_PUB.initialize;
1492: END IF;
1493:
1494: IF ( p_assignment_type = 'OPEN_ASSIGNMENT' ) THEN
1627: ,x_resource_type_id => l_resource_type_id
1628: ,x_return_status => l_x_return_status
1629: ,x_error_message_code => l_error_message_code);
1630:
1631: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1632: PA_SCHEDULE_UTILS.log_message(1,'Resource dates are not valid');
1633: Raise l_resource_out_of_range;
1634: ELSE -- IF if l_x_return_status is success : 4537865
1635: l_resource_source_id := l_new_resource_id ;
1645: x_cc_ok => l_cc_ok,
1646: x_return_status => l_x_return_status,
1647: x_error_message_code => l_error_message_code);
1648:
1649: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1650: PA_SCHEDULE_UTILS.log_message(1,'Resource cc is not valid: u');
1651: Raise l_resource_cc_error_u;
1652: END IF;
1653:
1672: ,p_person_id => l_resource_source_id
1673: ,x_error_message_code => l_error_message_code
1674: ,x_return_status => x_return_status);
1675: -- End of 2797890
1676: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1677: raise l_ei_asgn_out_of_range;
1678: end if;
1679: END IF;
1680:
1714:
1715:
1716: -- Bug 2255963: Call reevaluate_adv_action_set AFTER the start date of
1717: -- requirement (but not asssignment) is updated and before changes are committed.
1718: IF l_x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1719: IF (p_assignment_type = 'OPEN_ASSIGNMENT' AND l_start_date <> p_asgn_start_date) THEN
1720: PA_ADVERTISEMENTS_PUB.Reevaluate_Adv_Action_Set (
1721: p_object_id => p_assignment_id,
1722: p_object_type => 'OPEN_ASSIGNMENT',
1720: PA_ADVERTISEMENTS_PUB.Reevaluate_Adv_Action_Set (
1721: p_object_id => p_assignment_id,
1722: p_object_type => 'OPEN_ASSIGNMENT',
1723: p_new_object_start_date => l_start_date,
1724: p_validate_only => FND_API.G_FALSE,
1725: p_init_msg_list => FND_API.G_FALSE,
1726: p_commit => FND_API.G_FALSE,
1727: x_return_status => l_x_return_status);
1728: END IF;
1721: p_object_id => p_assignment_id,
1722: p_object_type => 'OPEN_ASSIGNMENT',
1723: p_new_object_start_date => l_start_date,
1724: p_validate_only => FND_API.G_FALSE,
1725: p_init_msg_list => FND_API.G_FALSE,
1726: p_commit => FND_API.G_FALSE,
1727: x_return_status => l_x_return_status);
1728: END IF;
1729: END IF;
1722: p_object_type => 'OPEN_ASSIGNMENT',
1723: p_new_object_start_date => l_start_date,
1724: p_validate_only => FND_API.G_FALSE,
1725: p_init_msg_list => FND_API.G_FALSE,
1726: p_commit => FND_API.G_FALSE,
1727: x_return_status => l_x_return_status);
1728: END IF;
1729: END IF;
1730:
1729: END IF;
1730:
1731: -- Bug 2441437: Update the no of active candidates after duration
1732: -- has been changed.
1733: IF l_x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1734: PA_CANDIDATE_UTILS.Update_No_Of_Active_Candidates (
1735: p_assignment_id => p_assignment_id,
1736: x_return_status => l_x_return_status);
1737: END IF;
1746:
1747: x_msg_count := FND_MSG_PUB.Count_Msg;
1748: If x_msg_count = 1 THEN
1749: pa_interface_utils_pub.get_messages
1750: (p_encoded => FND_API.G_TRUE ,
1751: p_msg_index => 1,
1752: p_msg_count => x_msg_count ,
1753: p_msg_data => x_msg_data ,
1754: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1758:
1759: EXCEPTION
1760: WHEN l_ei_asgn_out_of_range THEN
1761: PA_UTILS.Add_Message('PA', l_error_message_code);
1762: x_return_status := FND_API.G_RET_STS_ERROR;
1763: x_msg_data := l_error_message_code;
1764: x_msg_count := FND_MSG_PUB.Count_Msg;
1765: If x_msg_count = 1 THEN
1766: pa_interface_utils_pub.get_messages
1763: x_msg_data := l_error_message_code;
1764: x_msg_count := FND_MSG_PUB.Count_Msg;
1765: If x_msg_count = 1 THEN
1766: pa_interface_utils_pub.get_messages
1767: (p_encoded => FND_API.G_TRUE,
1768: p_msg_index => 1,
1769: p_msg_count => x_msg_count,
1770: p_msg_data => x_msg_data,
1771: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1773: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1774: End If;
1775: WHEN l_resource_cc_error_u THEN
1776: PA_UTILS.Add_Message('PA', l_error_message_code);
1777: x_return_status := FND_API.G_RET_STS_ERROR;
1778: x_msg_data := l_error_message_code;
1779: x_msg_count := FND_MSG_PUB.Count_Msg;
1780: If x_msg_count = 1 THEN
1781: pa_interface_utils_pub.get_messages
1778: x_msg_data := l_error_message_code;
1779: x_msg_count := FND_MSG_PUB.Count_Msg;
1780: If x_msg_count = 1 THEN
1781: pa_interface_utils_pub.get_messages
1782: (p_encoded => FND_API.G_TRUE,
1783: p_msg_index => 1,
1784: p_msg_count => x_msg_count,
1785: p_msg_data => x_msg_data,
1786: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1788: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1789: End If;
1790: WHEN l_resource_cc_error_e THEN
1791: PA_UTILS.Add_Message('PA', 'CROSS_CHARGE_VALIDATION_FAILED');
1792: x_return_status := FND_API.G_RET_STS_ERROR;
1793: x_msg_data := 'CROSS_CHARGE_VALIDATION_FAILED';
1794: x_msg_count := FND_MSG_PUB.Count_Msg;
1795: If x_msg_count = 1 THEN
1796: pa_interface_utils_pub.get_messages
1793: x_msg_data := 'CROSS_CHARGE_VALIDATION_FAILED';
1794: x_msg_count := FND_MSG_PUB.Count_Msg;
1795: If x_msg_count = 1 THEN
1796: pa_interface_utils_pub.get_messages
1797: (p_encoded => FND_API.G_TRUE,
1798: p_msg_index => 1,
1799: p_msg_count => x_msg_count,
1800: p_msg_data => x_msg_data,
1801: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1803: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1804: End If;
1805: WHEN l_resource_out_of_range THEN
1806: PA_UTILS.Add_Message( 'PA', 'PA_RESOURCE_OUT_OF_RANGE');
1807: x_return_status := FND_API.G_RET_STS_ERROR;
1808: x_msg_data := 'PA_RESOURCE_OUT_OF_RANGE';
1809: x_msg_count := FND_MSG_PUB.Count_Msg;
1810: If x_msg_count = 1 THEN
1811: pa_interface_utils_pub.get_messages
1808: x_msg_data := 'PA_RESOURCE_OUT_OF_RANGE';
1809: x_msg_count := FND_MSG_PUB.Count_Msg;
1810: If x_msg_count = 1 THEN
1811: pa_interface_utils_pub.get_messages
1812: (p_encoded => FND_API.G_TRUE,
1813: p_msg_index => 1,
1814: p_msg_count => x_msg_count,
1815: p_msg_data => x_msg_data,
1816: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1818: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1819: End If;
1820: WHEN l_stale_asmt_data THEN
1821: PA_UTILS.add_message('PA','PA_XC_RECORD_CHANGED');
1822: x_return_status := FND_API.G_RET_STS_ERROR;
1823: x_msg_data := 'PA_XC_RECORD_CHANGED';
1824: x_msg_count := FND_MSG_PUB.Count_Msg;
1825: If x_msg_count = 1 THEN
1826: pa_interface_utils_pub.get_messages
1823: x_msg_data := 'PA_XC_RECORD_CHANGED';
1824: x_msg_count := FND_MSG_PUB.Count_Msg;
1825: If x_msg_count = 1 THEN
1826: pa_interface_utils_pub.get_messages
1827: (p_encoded => FND_API.G_TRUE,
1828: p_msg_index => 1,
1829: p_msg_count => x_msg_count,
1830: p_msg_data => x_msg_data,
1831: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1833: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
1834: End If;
1835: WHEN l_assignment_status_null THEN
1836: PA_UTILS.add_message('PA','PA_SCH_ASGN_STATUS_NULL');
1837: x_return_status := FND_API.G_RET_STS_ERROR;
1838: x_msg_data := 'PA_SCH_ASGN_STATUS_NULL';
1839: x_msg_count := FND_MSG_PUB.Count_Msg;
1840: If x_msg_count = 1 THEN
1841: pa_interface_utils_pub.get_messages
1838: x_msg_data := 'PA_SCH_ASGN_STATUS_NULL';
1839: x_msg_count := FND_MSG_PUB.Count_Msg;
1840: If x_msg_count = 1 THEN
1841: pa_interface_utils_pub.get_messages
1842: (p_encoded => FND_API.G_TRUE,
1843: p_msg_index => 1,
1844: p_msg_count => x_msg_count,
1845: p_msg_data => x_msg_data,
1846: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1851: PA_UTILS.add_message('PA','PA_SCH_INVALID_FROM_DATE',
1852: 'ASMT_TYPE_POSS', l_asgn_req_poss_text,
1853: 'ASMT_TYPE', l_asgn_req_text);
1854: x_msg_data := 'PA_SCH_INVALID_FROM_DATE';
1855: x_return_status := FND_API.G_RET_STS_ERROR;
1856: x_msg_count := FND_MSG_PUB.Count_Msg;
1857: If x_msg_count = 1 THEN
1858: pa_interface_utils_pub.get_messages
1859: (p_encoded => FND_API.G_TRUE,
1855: x_return_status := FND_API.G_RET_STS_ERROR;
1856: x_msg_count := FND_MSG_PUB.Count_Msg;
1857: If x_msg_count = 1 THEN
1858: pa_interface_utils_pub.get_messages
1859: (p_encoded => FND_API.G_TRUE,
1860: p_msg_index => 1,
1861: p_msg_count => x_msg_count,
1862: p_msg_data => x_msg_data,
1863: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1867: WHEN l_out_of_range_to_date THEN
1868: PA_UTILS.add_message('PA','PA_SCH_INVALID_TO_DATE',
1869: 'ASMT_TYPE_POSS', l_asgn_req_poss_text,
1870: 'ASMT_TYPE', l_asgn_req_text);
1871: x_return_status := FND_API.G_RET_STS_ERROR;
1872: x_msg_data := 'PA_SCH_INVALID_TO_DATE';
1873: x_msg_count := FND_MSG_PUB.Count_Msg;
1874: If x_msg_count = 1 THEN
1875: pa_interface_utils_pub.get_messages
1872: x_msg_data := 'PA_SCH_INVALID_TO_DATE';
1873: x_msg_count := FND_MSG_PUB.Count_Msg;
1874: If x_msg_count = 1 THEN
1875: pa_interface_utils_pub.get_messages
1876: (p_encoded => FND_API.G_TRUE,
1877: p_msg_index => 1,
1878: p_msg_count => x_msg_count,
1879: p_msg_data => x_msg_data,
1880: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1887: p_token1 => 'PROJ_STATUS',
1888: p_value1 => l_project_status_name,
1889: p_token2 => 'ASGN_STATUS',
1890: p_value2 => l_assignment_status_name);
1891: x_return_status := FND_API.G_RET_STS_ERROR;
1892: x_msg_data := 'PA_ASGN_STUS_NOT_FOR_PROJ_STUS';
1893: x_msg_count := FND_MSG_PUB.Count_Msg;
1894: If x_msg_count = 1 THEN
1895: pa_interface_utils_pub.get_messages
1892: x_msg_data := 'PA_ASGN_STUS_NOT_FOR_PROJ_STUS';
1893: x_msg_count := FND_MSG_PUB.Count_Msg;
1894: If x_msg_count = 1 THEN
1895: pa_interface_utils_pub.get_messages
1896: (p_encoded => FND_API.G_TRUE,
1897: p_msg_index => 1,
1898: p_msg_count => x_msg_count,
1899: p_msg_data => x_msg_data,
1900: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1902: x_msg_data := l_data; -- 4537865 : NOCOPY related change
1903: End If;
1904: WHEN OTHERS THEN
1905: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_durarion API ..'||sqlerrm);
1906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1907: x_msg_count := 1;
1908: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Changed substr to substrb
1909: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
1910: p_procedure_name => 'change_duration');
1909: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
1910: p_procedure_name => 'change_duration');
1911: If x_msg_count = 1 THEN
1912: pa_interface_utils_pub.get_messages
1913: (p_encoded => FND_API.G_TRUE,
1914: p_msg_index => 1,
1915: p_msg_count => x_msg_count,
1916: p_msg_data => x_msg_data,
1917: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
1965: -- p_change_calendar_name IN VARCHAR2 ,
1966: p_change_calendar_id IN VARCHAR2 ,
1967: p_asgn_start_date IN DATE ,
1968: p_asgn_end_date IN DATE ,
1969: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1970: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1971: x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
1972: x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
1973: IS
1978: l_asgn_req_text VARCHAR2(30);
1979: l_a_an_text VARCHAR2(30);
1980: l_asgn_req_poss_text VARCHAR2(30);
1981: BEGIN
1982: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
1983:
1984: --Clear the global PL/SQL message table
1985: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1986: FND_MSG_PUB.initialize;
1981: BEGIN
1982: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
1983:
1984: --Clear the global PL/SQL message table
1985: IF (p_init_msg_list = FND_API.G_TRUE) THEN
1986: FND_MSG_PUB.initialize;
1987: END IF;
1988:
1989: IF ( p_assignment_type = 'OPEN_ASSIGNMENT' ) THEN
2031: x_return_status => l_x_return_status ,
2032: x_msg_count => x_msg_count ,
2033: x_msg_data => x_msg_data );
2034:
2035: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2036: -- Calling the change assignment schedule procedure
2037: -- which will generate the schedule after applying the hours change
2038: PA_SCHEDULE_PUB.change_asgn_schedule(
2039: p_record_version_number => p_record_version_number,
2049: x_return_status := l_x_return_status;
2050: x_msg_count := FND_MSG_PUB.Count_Msg;
2051: If x_msg_count = 1 THEN
2052: pa_interface_utils_pub.get_messages
2053: (p_encoded => FND_API.G_TRUE ,
2054: p_msg_index => 1,
2055: p_msg_count => x_msg_count ,
2056: p_msg_data => x_msg_data ,
2057: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2062: EXCEPTION
2063: WHEN l_out_of_range_date THEN
2064: PA_UTILS.add_message('PA','PA_SCH_INVALID_FROM_TO_DATE',
2065: 'ASMT_TYPE', l_asgn_req_text);
2066: x_return_status := FND_API.G_RET_STS_ERROR;
2067: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
2068: x_msg_count := FND_MSG_PUB.Count_Msg;
2069: If x_msg_count = 1 THEN
2070: pa_interface_utils_pub.get_messages
2067: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
2068: x_msg_count := FND_MSG_PUB.Count_Msg;
2069: If x_msg_count = 1 THEN
2070: pa_interface_utils_pub.get_messages
2071: (p_encoded => FND_API.G_TRUE,
2072: p_msg_index => 1,
2073: p_msg_count => x_msg_count,
2074: p_msg_data => x_msg_data,
2075: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2077: x_msg_data := l_data ; -- 4537865 : NOCOPY related Change
2078: End If;
2079: WHEN OTHERS THEN
2080: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_hours API ..'||sqlerrm);
2081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2082: x_msg_count := 1;
2083: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Changed substr to substrb
2084: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2085: p_procedure_name => 'change_duration');
2084: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2085: p_procedure_name => 'change_duration');
2086: If x_msg_count = 1 THEN
2087: pa_interface_utils_pub.get_messages
2088: (p_encoded => FND_API.G_TRUE,
2089: p_msg_index => 1,
2090: p_msg_count => x_msg_count,
2091: p_msg_data => x_msg_data,
2092: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2138: p_saturday_hours IN Number := NULL,
2139: p_sunday_hours IN Number := NULL,
2140: p_asgn_start_date IN DATE ,
2141: p_asgn_end_date IN DATE ,
2142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2143: p_remove_conflict_flag IN VARCHAR2 := 'N',
2144: p_last_row_flag IN VARCHAR2 := 'Y',
2145: p_generate_timeline_flag IN VARCHAR2 := 'Y', --Unilog
2146: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
2164:
2165: l_data VARCHAR2(200); -- 4537865
2166: BEGIN
2167: -- Storing status success to track the error
2168: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2169:
2170: --Clear the global PL/SQL message table
2171: IF (p_init_msg_list = FND_API.G_TRUE) THEN
2172: FND_MSG_PUB.initialize;
2167: -- Storing status success to track the error
2168: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2169:
2170: --Clear the global PL/SQL message table
2171: IF (p_init_msg_list = FND_API.G_TRUE) THEN
2172: FND_MSG_PUB.initialize;
2173: END IF;
2174:
2175: IF ( p_assignment_type = 'OPEN_ASSIGNMENT' ) THEN
2291: x_return_status => l_x_return_status ,
2292: x_msg_count => x_msg_count ,
2293: x_msg_data => x_msg_data );
2294:
2295: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS AND p_last_row_flag = 'Y') THEN
2296: -- Calling the change assignment schedule procedure that will generate the changed schedule
2297: -- of the passed assignment for the given exception i.e change work patern
2298: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub', 'Calling change_asgn_schedule', 6);
2299: PA_SCHEDULE_PUB.change_asgn_schedule(
2313:
2314: x_msg_count := FND_MSG_PUB.Count_Msg;
2315: If x_msg_count = 1 THEN
2316: pa_interface_utils_pub.get_messages
2317: (p_encoded => FND_API.G_TRUE ,
2318: p_msg_index => 1,
2319: p_msg_count => x_msg_count ,
2320: p_msg_data => x_msg_data ,
2321: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2326: EXCEPTION
2327: WHEN l_out_of_range_date THEN
2328: PA_UTILS.add_message('PA','PA_SCH_INVALID_FROM_TO_DATE',
2329: 'ASMT_TYPE', l_asgn_req_text);
2330: x_return_status := FND_API.G_RET_STS_ERROR;
2331: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
2332: x_msg_count := FND_MSG_PUB.Count_Msg;
2333: If x_msg_count = 1 THEN
2334: pa_interface_utils_pub.get_messages
2331: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
2332: x_msg_count := FND_MSG_PUB.Count_Msg;
2333: If x_msg_count = 1 THEN
2334: pa_interface_utils_pub.get_messages
2335: (p_encoded => FND_API.G_TRUE,
2336: p_msg_index => 1,
2337: p_msg_count => x_msg_count,
2338: p_msg_data => x_msg_data,
2339: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2341: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
2342: End If;
2343: WHEN OTHERS THEN
2344: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_work_pattern API ..'||sqlerrm);
2345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2346: x_msg_count := 1;
2347: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Replaced substr with substrb
2348: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2349: p_procedure_name => 'change_work_pattern');
2348: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2349: p_procedure_name => 'change_work_pattern');
2350: If x_msg_count = 1 THEN
2351: pa_interface_utils_pub.get_messages
2352: (p_encoded => FND_API.G_TRUE,
2353: p_msg_index => 1,
2354: p_msg_count => x_msg_count,
2355: p_msg_data => x_msg_data,
2356: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2402: p_end_date IN date ,
2403: p_assignment_status_code IN Varchar2 ,
2404: p_asgn_start_date IN DATE ,
2405: p_asgn_end_date IN DATE ,
2406: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2407: p_save_to_hist IN VARCHAR2 := FND_API.G_TRUE,
2408: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
2409: x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
2410: x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
2403: p_assignment_status_code IN Varchar2 ,
2404: p_asgn_start_date IN DATE ,
2405: p_asgn_end_date IN DATE ,
2406: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2407: p_save_to_hist IN VARCHAR2 := FND_API.G_TRUE,
2408: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
2409: x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
2410: x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
2411: IS
2436:
2437: l_project_status_name pa_project_statuses.project_status_name%TYPE;
2438:
2439: BEGIN
2440: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2441:
2442: --Clear the global PL/SQL message table
2443: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
2444: FND_MSG_PUB.initialize;
2439: BEGIN
2440: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2441:
2442: --Clear the global PL/SQL message table
2443: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
2444: FND_MSG_PUB.initialize;
2445: END IF;
2446:
2447: IF ( p_assignment_type = 'OPEN_ASSIGNMENT' ) THEN
2458:
2459: -- p_assignment_status_code should not be null
2460: IF (p_assignment_status_code is NULL) THEN
2461: PA_UTILS.Add_Message ('PA', 'PA_SCH_ASGN_STATUS_NULL'); -- is this message okay?
2462: RAISE FND_API.G_EXC_ERROR;
2463: END IF;
2464:
2465: -- The passed dates should fall between the assignment start date and assignment end date */
2466: IF ((p_start_date NOT BETWEEN p_asgn_start_date AND p_asgn_end_date ) OR
2545: x_return_status => l_x_return_status ,
2546: x_msg_count => x_msg_count ,
2547: x_msg_data => x_msg_data );
2548:
2549: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2550: -- Calling the procedure change assignment schedule that will
2551: -- generate the changed schedule for the
2552: -- passed asignment only for the passed period
2553: PA_SCHEDULE_PUB.change_asgn_schedule(
2566:
2567: x_msg_count := FND_MSG_PUB.Count_Msg;
2568: If x_msg_count = 1 THEN
2569: pa_interface_utils_pub.get_messages
2570: (p_encoded => FND_API.G_TRUE ,
2571: p_msg_index => 1,
2572: p_msg_count => x_msg_count ,
2573: p_msg_data => x_msg_data ,
2574: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2576: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
2577: End If;
2578:
2579: EXCEPTION
2580: WHEN FND_API.G_EXC_ERROR THEN
2581: x_return_status := FND_API.G_RET_STS_ERROR;
2582: x_msg_count := FND_MSG_PUB.Count_Msg;
2583:
2584: IF x_msg_count = 1 THEN
2577: End If;
2578:
2579: EXCEPTION
2580: WHEN FND_API.G_EXC_ERROR THEN
2581: x_return_status := FND_API.G_RET_STS_ERROR;
2582: x_msg_count := FND_MSG_PUB.Count_Msg;
2583:
2584: IF x_msg_count = 1 THEN
2585: pa_interface_utils_pub.get_messages
2582: x_msg_count := FND_MSG_PUB.Count_Msg;
2583:
2584: IF x_msg_count = 1 THEN
2585: pa_interface_utils_pub.get_messages
2586: (p_encoded => FND_API.G_TRUE,
2587: p_msg_index => 1,
2588: p_data => x_msg_data,
2589: p_msg_index_out => l_msg_index_out );
2590: END IF;
2589: p_msg_index_out => l_msg_index_out );
2590: END IF;
2591: WHEN l_stale_asmt_data THEN
2592: PA_UTILS.add_message('PA','PA_XC_RECORD_CHANGED');
2593: x_return_status := FND_API.G_RET_STS_ERROR;
2594: x_msg_data := 'PA_XC_RECORD_CHANGED';
2595: x_msg_count := FND_MSG_PUB.Count_Msg;
2596: If x_msg_count = 1 THEN
2597: pa_interface_utils_pub.get_messages
2594: x_msg_data := 'PA_XC_RECORD_CHANGED';
2595: x_msg_count := FND_MSG_PUB.Count_Msg;
2596: If x_msg_count = 1 THEN
2597: pa_interface_utils_pub.get_messages
2598: (p_encoded => FND_API.G_TRUE,
2599: p_msg_index => 1,
2600: p_msg_count => x_msg_count,
2601: p_msg_data => x_msg_data,
2602: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2607: PA_UTILS.add_message('PA','PA_INVALID_ASGN_CANCELLED_DATE',
2608: 'ASMT_TYPE_POSS', l_asgn_req_poss_text,
2609: 'A_OR_AN', l_a_an_text,
2610: 'ASMT_TYPE', l_asgn_req_text);
2611: x_return_status := FND_API.G_RET_STS_ERROR;
2612: x_msg_data := 'PA_INVALID_ASGN_CANCELLED_DATE';
2613: x_msg_count := FND_MSG_PUB.Count_Msg;
2614: If x_msg_count = 1 THEN
2615: pa_interface_utils_pub.get_messages
2612: x_msg_data := 'PA_INVALID_ASGN_CANCELLED_DATE';
2613: x_msg_count := FND_MSG_PUB.Count_Msg;
2614: If x_msg_count = 1 THEN
2615: pa_interface_utils_pub.get_messages
2616: (p_encoded => FND_API.G_TRUE,
2617: p_msg_index => 1,
2618: p_msg_count => x_msg_count,
2619: p_msg_data => x_msg_data,
2620: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2623: End If;
2624: WHEN l_out_of_range_date THEN
2625: PA_UTILS.add_message('PA','PA_SCH_INVALID_FROM_TO_DATE',
2626: 'ASMT_TYPE', l_asgn_req_text);
2627: x_return_status := FND_API.G_RET_STS_ERROR;
2628: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
2629: x_msg_count := FND_MSG_PUB.Count_Msg;
2630: If x_msg_count = 1 THEN
2631: pa_interface_utils_pub.get_messages
2628: x_msg_data := 'PA_SCH_INVALID_FROM_TO_DATE';
2629: x_msg_count := FND_MSG_PUB.Count_Msg;
2630: If x_msg_count = 1 THEN
2631: pa_interface_utils_pub.get_messages
2632: (p_encoded => FND_API.G_TRUE,
2633: p_msg_index => 1,
2634: p_msg_count => x_msg_count,
2635: p_msg_data => x_msg_data,
2636: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2643: p_token1 => 'PROJ_STATUS',
2644: p_value1 => l_project_status_name,
2645: p_token2 => 'ASGN_STATUS',
2646: p_value2 => l_assignment_status_name);
2647: x_return_status := FND_API.G_RET_STS_ERROR;
2648: x_msg_data := 'PA_ASGN_STUS_NOT_FOR_PROJ_STUS';
2649: x_msg_count := FND_MSG_PUB.Count_Msg;
2650: If x_msg_count = 1 THEN
2651: pa_interface_utils_pub.get_messages
2648: x_msg_data := 'PA_ASGN_STUS_NOT_FOR_PROJ_STUS';
2649: x_msg_count := FND_MSG_PUB.Count_Msg;
2650: If x_msg_count = 1 THEN
2651: pa_interface_utils_pub.get_messages
2652: (p_encoded => FND_API.G_TRUE,
2653: p_msg_index => 1,
2654: p_msg_count => x_msg_count,
2655: p_msg_data => x_msg_data,
2656: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2657: p_msg_index_out => l_msg_index_out );
2658: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
2659: End If;
2660: WHEN OTHERS THEN
2661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2662: x_msg_count := 1;
2663: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 Replaced substr with substrb
2664: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_status API ..'||sqlerrm);
2665: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2665: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2666: p_procedure_name => 'change_status');
2667: If x_msg_count = 1 THEN
2668: pa_interface_utils_pub.get_messages
2669: (p_encoded => FND_API.G_TRUE,
2670: p_msg_index => 1,
2671: p_msg_count => x_msg_count,
2672: p_msg_data => x_msg_data,
2673: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2722: l_a_an_text VARCHAR2(30);
2723: l_asgn_req_poss_text VARCHAR2(30);
2724: BEGIN
2725: -- storing the status success to track the error
2726: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2727:
2728: --Clear the global PL/SQL message table
2729: fnd_msg_pub.initialize;
2730:
2756:
2757: x_msg_count := FND_MSG_PUB.Count_Msg;
2758: If x_msg_count = 1 THEN
2759: pa_interface_utils_pub.get_messages
2760: (p_encoded => FND_API.G_TRUE ,
2761: p_msg_index => 1,
2762: p_msg_count => x_msg_count ,
2763: p_msg_data => x_msg_data ,
2764: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2789: x_return_status => l_x_return_status ,
2790: x_msg_count => x_msg_count ,
2791: x_msg_data => x_msg_data );
2792:
2793: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2794: -- Calling the change assignment schedule procedure that will generate the changed schedule
2795: -- according to the passed calendar but only for given period
2796: PA_SCHEDULE_PUB.change_asgn_schedule(
2797: p_record_version_number => p_record_version_number,
2808:
2809: x_msg_count := FND_MSG_PUB.Count_Msg;
2810: If x_msg_count = 1 THEN
2811: pa_interface_utils_pub.get_messages
2812: (p_encoded => FND_API.G_TRUE ,
2813: p_msg_index => 1,
2814: p_msg_count => x_msg_count ,
2815: p_msg_data => x_msg_data ,
2816: p_data => l_data, -- 4537865 : Replaced x_msg_data with l_data
2821:
2822: EXCEPTION
2823: WHEN l_invalid_duplicate_cal_name THEN
2824: PA_UTILS.add_message('PA','PA_CALENDAR_INVALID_AMBIGOUS');
2825: x_return_status := FND_API.G_RET_STS_ERROR;
2826: x_msg_data := 'PA_CALENDAR_INVALID_AMBIGOUS';
2827: x_msg_count := FND_MSG_PUB.Count_Msg;
2828: If x_msg_count = 1 THEN
2829: pa_interface_utils_pub.get_messages
2826: x_msg_data := 'PA_CALENDAR_INVALID_AMBIGOUS';
2827: x_msg_count := FND_MSG_PUB.Count_Msg;
2828: If x_msg_count = 1 THEN
2829: pa_interface_utils_pub.get_messages
2830: (p_encoded => FND_API.G_TRUE,
2831: p_msg_index => 1,
2832: p_msg_count => x_msg_count,
2833: p_msg_data => x_msg_data,
2834: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2836: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
2837: End If;
2838: WHEN l_from_to_date_null THEN
2839: PA_UTILS.add_message('PA','PA_SCH_FROM_TO_DATE_NULL');
2840: x_return_status := FND_API.G_RET_STS_ERROR;
2841: x_msg_data := 'PA_SCH_FROM_TO_DATE_NULL';
2842: x_msg_count := FND_MSG_PUB.Count_Msg;
2843: If x_msg_count = 1 THEN
2844: pa_interface_utils_pub.get_messages
2841: x_msg_data := 'PA_SCH_FROM_TO_DATE_NULL';
2842: x_msg_count := FND_MSG_PUB.Count_Msg;
2843: If x_msg_count = 1 THEN
2844: pa_interface_utils_pub.get_messages
2845: (p_encoded => FND_API.G_TRUE,
2846: p_msg_index => 1,
2847: p_msg_count => x_msg_count,
2848: p_msg_data => x_msg_data,
2849: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2851: x_msg_data := l_data ; -- 4537865 : NOCOPY related change
2852: End If;
2853: WHEN OTHERS THEN
2854: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_calendar API ..'||sqlerrm);
2855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2856: x_msg_count := 1;
2857: x_msg_data := substrb(SQLERRM,1,240); -- Changed substr to substrb : 4537865
2858: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2859: p_procedure_name => 'change_calendar');
2858: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2859: p_procedure_name => 'change_calendar');
2860: If x_msg_count = 1 THEN
2861: pa_interface_utils_pub.get_messages
2862: (p_encoded => FND_API.G_TRUE,
2863: p_msg_index => 1,
2864: p_msg_count => x_msg_count,
2865: p_msg_data => x_msg_data,
2866: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2890: WHERE a.assignment_id = b.assignment_id
2891: ORDER by a.assignment_id;
2892: BEGIN
2893: -- store the status success to track the error
2894: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
2895:
2896: PA_SCHEDULE_UTILS.log_message(1,'Start of the change_schedule API ... ');
2897:
2898: FOR rec_sch_excp IN csr_sch_excp LOOP
2916:
2917: x_msg_count := FND_MSG_PUB.Count_Msg;
2918: If x_msg_count = 1 THEN
2919: pa_interface_utils_pub.get_messages
2920: (p_encoded => FND_API.G_TRUE ,
2921: p_msg_index => 1,
2922: p_msg_count => x_msg_count ,
2923: p_msg_data => x_msg_data ,
2924: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2928:
2929: EXCEPTION
2930: WHEN OTHERS THEN
2931: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_schedule API ..'||sqlerrm);
2932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2933: x_msg_count := 1;
2934: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Replaced substr usage with substrb
2935: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2936: p_procedure_name => 'change_schedule');
2935: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
2936: p_procedure_name => 'change_schedule');
2937: If x_msg_count = 1 THEN
2938: pa_interface_utils_pub.get_messages
2939: (p_encoded => FND_API.G_TRUE ,
2940: p_msg_index => 1,
2941: p_msg_count => x_msg_count ,
2942: p_msg_data => x_msg_data ,
2943: p_data => l_data, -- 4537865 :Replaced x_msg_data with l_data
2971: p_record_version_number IN NUMBER,
2972: p_assignment_id IN NUMBER,
2973: p_project_id IN NUMBER,
2974: p_exception_id IN NUMBER,
2975: p_save_to_hist IN VARCHAR2 := FND_API.G_TRUE,
2976: p_remove_conflict_flag IN VARCHAR2 := 'N',
2977: p_generate_timeline_flag IN VARCHAR2 := 'Y', --Unilog
2978: p_called_by_proj_party IN VARCHAR2 := 'N', -- Added for Bug 6631033
2979: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
3042: l_record_version_number_wo_chg NUMBER; -- Unilog
3043: l_exception_type_code VARCHAR2(100); --7663765
3044:
3045: BEGIN
3046: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
3047:
3048: PA_SCHEDULE_UTILS.log_message(1,'Start of the change_asgn_schedule API ... ');
3049:
3050: -- Unilog Begin
3049:
3050: -- Unilog Begin
3051: l_save_to_hist := p_save_to_hist;
3052: IF p_generate_timeline_flag = 'N' THEN -- It means it is called from WeeklySchedule
3053: l_save_to_hist := FND_API.G_FALSE;
3054: END IF;
3055: -- Also now we should be using l_save_to_hist instead of p_save_to_hist
3056: -- Unilog End
3057:
3067: -- or success. This is a work around and will be removed when the
3068: -- approval flow is redesigned.
3069: -- Bug 2135616: when this is called by PA_SCHEDULE_PVT.resolve_conflicts to remove
3070: -- conflicts, the approval status should not change.
3071: IF (FND_API.TO_BOOLEAN(NVL(l_save_to_hist,FND_API.G_TRUE))
3072: AND p_remove_conflict_flag = 'N') THEN
3073:
3074: pa_assignment_approval_pvt.update_approval_status(
3075: p_assignment_id => p_assignment_id,
3164: PA_SCHEDULE_UTILS.log_message(1,'Index Value :' || to_char(l_i));
3165: l_tr_sch_rec_tab.delete;
3166:
3167:
3168: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3169: -- This procedure will copy the schedule record from one table of record to another
3170: PA_SCHEDULE_UTILS.copy_schedule_rec_tab(
3171: l_chg_tr_sch_rec_tab,
3172: l_chg_tr_sch_rec_tab.first,
3182: END IF;
3183:
3184: IF (rec_sch_excp.exception_type_code = 'CHANGE_DURATION' OR
3185: rec_sch_excp.exception_type_code = 'SHIFT_DURATION' OR rec_sch_excp.exception_type_code = 'DURATION_PATTERN_SHIFT') then -- 7663765
3186: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3187: -- calling PVT API that will change the duration and generate a new schedule
3188: -- on the basis of passed schedule and exception record
3189: PA_SCHEDULE_PVT.apply_change_duration(l_tr_sch_rec_tab,
3190: l_sch_except_rec,
3202: ELSE
3203:
3204: PA_SCHEDULE_UTILS.log_message(1,'after change_duration : ' );
3205:
3206: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3207: -- calling PVT API that will apply the changes
3208: PA_SCHEDULE_UTILS.log_message (1,' IN THE ELSE PART AND starting of apply other changes ');
3209: PA_SCHEDULE_UTILS.log_message(1, 'Calling apply_other_changes1 :', l_tr_sch_rec_tab);
3210: --PA_SCHEDULE_UTILS.log_message(1, 'Calling apply_other_changes2 :', l_sch_except_rec);
3219:
3220: PA_SCHEDULE_UTILS.log_message(1,'after change_others : ',l_out_tr_sch_rec_tab );
3221: END IF;
3222:
3223: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3224: -- seperating the deleted or non deleted record i.e inserted or updated
3225: PA_SCHEDULE_UTILS.sep_del_sch_rec_tab(l_out_tr_sch_rec_tab,
3226: l_del_tr_sch_rec_tab,
3227: l_chg_tr_sch_rec_tab,
3248: end if;
3249:
3250: PA_SCHEDULE_UTILS.log_message(1, 'Before Calling the API apply_schedule_change ....');
3251:
3252: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3253: -- Calling the PVT api that will change the schedule
3254: PA_SCHEDULE_PVT.apply_schedule_change(l_chg_tr_sch_rec_tab,
3255: l_del_tr_sch_rec_tab,
3256: l_x_return_status,
3259: END IF;
3260:
3261: PA_SCHEDULE_UTILS.log_message(1, 'After Calling the API apply_schedule_change ....');
3262:
3263: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3264: -- Calling the API PA_SCHEDULE_PVT.apply_assignment_change
3265:
3266: -- jmarques: 1776658: Get old duration.
3267: select start_date, end_date, resource_id, record_version_number -- Unilog Selected record_version_number too
3289: END IF;
3290:
3291: PA_SCHEDULE_UTILS.log_message(1, 'Before Calling the API delete_rows ....');
3292:
3293: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3294: -- Deleting the rows from pa_schedule_exception table
3295: PA_SCH_EXCEPT_PKG.delete_rows(l_sch_except_record_tab,
3296: l_x_return_status,
3297: x_msg_count,
3301:
3302: PA_SCHEDULE_UTILS.log_message(1, 'After Calling the API delete_rows ..');
3303:
3304: -- inserting the rows from schedule except history table
3305: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3306: IF (FND_API.TO_BOOLEAN(NVL(l_save_to_hist,FND_API.G_TRUE))) THEN
3307: PA_SCH_EXCEPT_HIST_PKG.insert_rows(
3308: l_sch_except_record_tab,
3309: l_change_id,
3302: PA_SCHEDULE_UTILS.log_message(1, 'After Calling the API delete_rows ..');
3303:
3304: -- inserting the rows from schedule except history table
3305: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3306: IF (FND_API.TO_BOOLEAN(NVL(l_save_to_hist,FND_API.G_TRUE))) THEN
3307: PA_SCH_EXCEPT_HIST_PKG.insert_rows(
3308: l_sch_except_record_tab,
3309: l_change_id,
3310: l_x_return_status,
3320: IF p_generate_timeline_flag = 'Y' THEN --Unilog
3321:
3322: -- Calling the Timeline api to create the timeline records
3323: -- for the assignment
3324: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3325: PA_SCHEDULE_UTILS.log_message(1,'Calling Timeline API ..... ');
3326: PA_SCHEDULE_UTILS.log_message(1, 'Num: ' || FND_MSG_PUB.Count_Msg);
3327: PA_TIMELINE_PVT.create_timeline (
3328: p_assignment_id =>p_assignment_id ,
3335: -- resource timeline (recalculates availability) for the parts of
3336: -- the old duration which do not overlap the new duration.
3337:
3338: IF (l_old_start_date < l_new_start_date AND l_resource_id is not null) THEN
3339: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3340: pa_timeline_pvt.Create_Timeline (
3341: p_start_resource_name => NULL,
3342: p_end_resource_name => NULL,
3343: p_resource_id => l_resource_id,
3349: END IF;
3350: END IF;
3351:
3352: IF (l_old_end_date > l_new_end_date AND l_resource_id is not null) THEN
3353: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3354: pa_timeline_pvt.Create_Timeline (
3355: p_start_resource_name => NULL,
3356: p_end_resource_name => NULL,
3357: p_resource_id => l_resource_id,
3371: x_msg_count := FND_MSG_PUB.Count_Msg;
3372:
3373: If x_msg_count = 1 THEN
3374: pa_interface_utils_pub.get_messages
3375: (p_encoded => FND_API.G_TRUE ,
3376: p_msg_index => 1,
3377: p_msg_count => x_msg_count ,
3378: p_msg_data => x_msg_data ,
3379: p_data => l_data, -- 4537865
3384: EXCEPTION
3385: WHEN OTHERS THEN
3386: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_asgn_schedule API ..'
3387: ||sqlerrm);
3388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3389: x_msg_count := 1;
3390: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Changed substr to substrb
3391: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3392: p_procedure_name => 'change_asgn_schedule');
3391: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3392: p_procedure_name => 'change_asgn_schedule');
3393: If x_msg_count = 1 THEN
3394: pa_interface_utils_pub.get_messages
3395: (p_encoded => FND_API.G_TRUE ,
3396: p_msg_index => 1,
3397: p_msg_count => x_msg_count ,
3398: p_msg_data => x_msg_data ,
3399: p_data => l_data, -- 4537865
3425: l_data varchar2(2000) ;-- 4537865
3426: BEGIN
3427: PA_SCHEDULE_UTILS.log_message(1,'Start of the create_calendar_schedule API ... ');
3428: -- storing the status success to track the error
3429: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
3430:
3431: -- Calling the Calendar API that will give the shift assign to the calendar*/
3432: PA_CALENDAR_UTILS.get_calendar_shifts(p_calendar_id,l_x_cal_record_tab,l_x_return_status,x_msg_count,x_msg_data);
3433:
3430:
3431: -- Calling the Calendar API that will give the shift assign to the calendar*/
3432: PA_CALENDAR_UTILS.get_calendar_shifts(p_calendar_id,l_x_cal_record_tab,l_x_return_status,x_msg_count,x_msg_data);
3433:
3434: IF ( l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3435: PA_CALENDAR_UTILS.gen_calendar_sch(p_calendar_id,l_x_cal_record_tab,l_schedule_rec_tab,l_x_return_status,
3436: x_msg_count,x_msg_data);
3437:
3438: END IF;
3437:
3438: END IF;
3439:
3440: PA_SCHEDULE_UTILS.log_message(1,'GEN SCH ',l_schedule_rec_tab);
3441: IF ( l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3442: -- Calling the PA_CALENDAR_UTILS API that will take the exception associated with the calendar
3443: PA_CALENDAR_UTILS.get_calendar_except(p_calendar_id,l_x_cal_except_record_tab,l_x_return_status,
3444: x_msg_count,x_msg_data);
3445:
3444: x_msg_count,x_msg_data);
3445:
3446: END IF;
3447:
3448: IF ( l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3449:
3450: -- Calling the PA_CALENDAR_UTILS API that will generate the calendar schedule after applying the exception
3451: PA_CALENDAR_UTILS.apply_calendar_except(p_calendar_id,l_x_cal_except_record_tab,l_schedule_rec_tab,
3452: l_x_sch_record_tab,l_x_return_status,x_msg_count,x_msg_data);
3452: l_x_sch_record_tab,l_x_return_status,x_msg_count,x_msg_data);
3453:
3454: END IF;
3455:
3456: IF ( l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3457: -- Inserting the records in PA_SCHEDULES table
3458: PA_SCHEDULE_PKG.insert_rows(l_x_sch_record_tab,l_x_return_status,x_msg_count,x_msg_data);
3459:
3460: END IF;
3475: x_return_status := l_x_return_status;
3476: x_msg_count := FND_MSG_PUB.Count_Msg;
3477: If x_msg_count = 1 THEN
3478: pa_interface_utils_pub.get_messages
3479: (p_encoded => FND_API.G_TRUE ,
3480: p_msg_index => 1,
3481: p_msg_count => x_msg_count ,
3482: p_msg_data => x_msg_data ,
3483: p_data => l_data, -- 4537865
3486: End If;
3487: EXCEPTION
3488: WHEN OTHERS THEN
3489: PA_SCHEDULE_UTILS.log_message(1,'ERROR in create_calendar_schedule API ..'||sqlerrm);
3490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3491: x_msg_count := 1;
3492: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 changed substr to substrb
3493: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3494: p_procedure_name => 'create_calendar_schedule');
3493: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3494: p_procedure_name => 'create_calendar_schedule');
3495: If x_msg_count = 1 THEN
3496: pa_interface_utils_pub.get_messages
3497: (p_encoded => FND_API.G_TRUE,
3498: p_msg_index => 1,
3499: p_msg_count => x_msg_count,
3500: p_msg_data => x_msg_data,
3501: p_data => l_data, -- 4537865
3535: l_data varchar2(2000); -- 4537865
3536: BEGIN
3537: PA_SCHEDULE_UTILS.log_message(1,'Start of the get_proj_calendar_default API ... ');
3538:
3539: l_x_return_status := FND_API.G_RET_STS_SUCCESS ;
3540: l_no_calendar_at_org := FALSE;
3541:
3542: /* Bug2873984
3543: IF (PA_INSTALL.IS_PRM_LICENSED() <> 'Y') THEN
3560: WHERE project_id = p_project_id;
3561:
3562: EXCEPTION
3563: WHEN NO_DATA_FOUND THEN
3564: x_return_status := FND_API.G_RET_STS_ERROR;
3565: RAISE;
3566: END;
3567: ELSE
3568: l_t_carrying_out_org_id := p_proj_organization;
3642: EXCEPTION
3643: WHEN l_invalid_default_calendar THEN
3644: PA_SCHEDULE_UTILS.log_message(1,'ERROR: invalid calendar id at profile option ..');
3645: PA_UTILS.add_message('PA','PA_INVALID_PROFILE_CALENDAR_ID');
3646: x_return_status := FND_API.G_RET_STS_ERROR;
3647: x_msg_data := 'PA_INVALID_PROFILE_CALENDAR_ID';
3648: x_msg_count := FND_MSG_PUB.Count_Msg;
3649:
3650: -- RESET other out params also : 4537865
3652: x_calendar_name := NULL;
3653:
3654: If x_msg_count = 1 THEN
3655: pa_interface_utils_pub.get_messages
3656: (p_encoded => FND_API.G_TRUE,
3657: p_msg_index => 1,
3658: p_msg_count => x_msg_count,
3659: p_msg_data => x_msg_data,
3660: p_data => l_data, -- 4537865
3663: End If;
3664: WHEN l_null_default_calendar THEN
3665: PA_SCHEDULE_UTILS.log_message(1,'ERROR: Null calendar id at profile option ..');
3666: PA_UTILS.add_message('PA','PA_INVALID_PROFILE_CALENDAR_ID');
3667: x_return_status := FND_API.G_RET_STS_ERROR;
3668: x_msg_data := 'PA_NULL_PROFILE_CALENDAR_ID';
3669: x_msg_count := FND_MSG_PUB.Count_Msg;
3670:
3671: -- RESET other out params also : 4537865
3673: x_calendar_name := NULL;
3674:
3675: If x_msg_count = 1 THEN
3676: pa_interface_utils_pub.get_messages
3677: (p_encoded => FND_API.G_TRUE,
3678: p_msg_index => 1,
3679: p_msg_count => x_msg_count,
3680: p_msg_data => x_msg_data,
3681: p_data => l_data, -- 4537865
3683: x_msg_data := l_data ; -- 4537865
3684: End If;
3685: WHEN OTHERS THEN
3686: PA_SCHEDULE_UTILS.log_message(1,'ERROR in get_proj_calendar_default API ..'||sqlerrm);
3687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3688: x_msg_count := 1;
3689: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : CHANGd substr to substrb
3690:
3691: -- RESET other out params also : 4537865
3695: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3696: p_procedure_name => 'get_proj_calendar_default');
3697: If x_msg_count = 1 THEN
3698: pa_interface_utils_pub.get_messages
3699: (p_encoded => FND_API.G_TRUE,
3700: p_msg_index => 1,
3701: p_msg_count => x_msg_count,
3702: p_msg_data => x_msg_data,
3703: p_data => l_data, -- 4537865
3742:
3743: l_data varchar2(2000) ; -- 4537865
3744: BEGIN
3745: -- Storing the status for error handling
3746: l_x_return_status := FND_API.G_RET_STS_SUCCESS;
3747:
3748: -- 2843435
3749: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3750:
3794: -- Creating new schedule for the Calendar Id */
3795: PA_SCHEDULE_PUB.create_calendar_schedule(v_c1.calendar_id,l_x_return_status,x_msg_count,x_msg_data);
3796:
3797: PA_SCHEDULE_UTILS.log_message(1,'Calling Timeline API ..... ');
3798: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3799: PA_TIMELINE_PVT.Create_Timeline (p_calendar_id =>v_c1.calendar_id,
3800: x_return_status =>l_x_return_status,
3801: x_msg_count =>x_msg_count,
3802: x_msg_data =>x_msg_data);
3801: x_msg_count =>x_msg_count,
3802: x_msg_data =>x_msg_data);
3803: END IF;
3804:
3805: IF (l_x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3806: l_flag := 'S';
3807: l_code := 'PA_SCH_SUCC_CAL_GEN';
3808: COMMIT;
3809: ELSE
3818:
3819: -- 2843435: Need to raise expected error messages and print them to
3820: -- FND_FILE. Currently we don't have the logic to print error messages
3821: -- to the report file. Therefore, we have to raise expected errors.
3822: IF l_x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3823:
3824: IF l_debug_mode = 'Y' THEN
3825: pa_debug.write_file('CREATE_NEW_CAL_SCHEDULES: '||'LOG', 'msg_count = '||FND_MSG_PUB.Count_Msg);
3826: END IF;
3825: pa_debug.write_file('CREATE_NEW_CAL_SCHEDULES: '||'LOG', 'msg_count = '||FND_MSG_PUB.Count_Msg);
3826: END IF;
3827:
3828: FOR l_counter IN 1..FND_MSG_PUB.Count_Msg LOOP
3829: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_FALSE
3830: ,p_msg_index => l_counter
3831: ,p_data => x_msg_data
3832: ,p_msg_index_out => l_msg_index_out);
3833: IF l_debug_mode = 'Y' THEN
3841: -- End of 2843435
3842:
3843: END LOOP;
3844:
3845: x_return_status := FND_API.G_RET_STS_SUCCESS;
3846: x_msg_count := FND_MSG_PUB.Count_Msg;
3847: If x_msg_count = 1 THEN
3848: pa_interface_utils_pub.get_messages
3849: (p_encoded => FND_API.G_TRUE ,
3845: x_return_status := FND_API.G_RET_STS_SUCCESS;
3846: x_msg_count := FND_MSG_PUB.Count_Msg;
3847: If x_msg_count = 1 THEN
3848: pa_interface_utils_pub.get_messages
3849: (p_encoded => FND_API.G_TRUE ,
3850: p_msg_index => 1,
3851: p_msg_count => x_msg_count ,
3852: p_msg_data => x_msg_data ,
3853: p_data => l_data, -- 4537865
3863: WHEN NO_DATA_FOUND THEN
3864: NULL;
3865: WHEN OTHERS THEN
3866: PA_SCHEDULE_UTILS.log_message(1,'ERROR in create_new_cal_schedules API ..'|| sqlerrm);
3867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3868: x_msg_count := 1;
3869: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Changed substrb to substr
3870: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3871: p_procedure_name => 'create_new_cal_schedules');
3870: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
3871: p_procedure_name => 'create_new_cal_schedules');
3872: If x_msg_count = 1 THEN
3873: pa_interface_utils_pub.get_messages
3874: (p_encoded => FND_API.G_TRUE,
3875: p_msg_index => 1,
3876: p_msg_count => x_msg_count,
3877: p_msg_data => x_msg_data,
3878: p_data => l_data, -- 4537865
3998: -- create_forecast_items
3999:
4000: x_call_timeline_st_date := null;
4001: x_call_timeline_end_date := null;
4002: x_return_status := FND_API.G_RET_STS_SUCCESS;
4003:
4004: IF ((p_end_date - p_start_date <> 13) OR (p_end_date < p_start_date)) THEN
4005: PA_SCHEDULE_UTILS.log_message(1,'p_start_date and p_end_date is wrongly passed');
4006: raise API_ERROR;
4013: -- Bug 3235656 : Added the below condition to show error
4014: FOR i IN p_hours_table.FIRST .. p_hours_table.LAST LOOP
4015: IF (p_hours_table(i) < 0 OR p_hours_table(i) > 24) THEN
4016: PA_UTILS.Add_Message ('PA', 'PA_SCH_HOURS_OUT_OF_RANGE');
4017: RAISE FND_API.G_EXC_ERROR;
4018: END IF;
4019: END LOOP;
4020:
4021: -- We want to calculate the actual start date and actual end date here instead of Java
4421: p_end_date => l_new_assgn_end_date ,
4422: p_assignment_status_code => p_assignment_status_code ,
4423: p_asgn_start_date => p_asgn_start_date ,
4424: p_asgn_end_date => p_asgn_end_date ,
4425: p_init_msg_list => FND_API.G_FALSE ,
4426: p_generate_timeline_flag => 'N' ,
4427: x_return_status => x_return_status ,
4428: x_msg_count => x_msg_count ,
4429: x_msg_data => x_msg_data) ;
4427: x_return_status => x_return_status ,
4428: x_msg_count => x_msg_count ,
4429: x_msg_data => x_msg_data) ;
4430:
4431: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4432: raise API_ERROR;
4433: END IF;
4434:
4435: -- There is a gap found, so need to fill this with 0 hours
4452: p_saturday_hours => 0 ,
4453: p_sunday_hours => 0 ,
4454: p_asgn_start_date => l_new_assgn_start_date ,
4455: p_asgn_end_date => l_new_assgn_end_date ,
4456: p_init_msg_list => FND_API.G_FALSE ,
4457: p_last_row_flag => 'Y' , --Changed 'N' to 'Y' for Bug 4165970.
4458: p_generate_timeline_flag => 'N' ,
4459: x_return_status => x_return_status ,
4460: x_msg_count => x_msg_count ,
4459: x_return_status => x_return_status ,
4460: x_msg_count => x_msg_count ,
4461: x_msg_data => x_msg_data) ;
4462:
4463: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4464: raise API_ERROR;
4465: END IF;
4466: END IF; -- l_call_cng_work_patt_out_range THEN
4467:
4495: END IF;
4496:
4497: PA_SCHEDULE_UTILS.log_message(1,'After calling pa_schedule_pvt.get_assignment_schedule l_sch_record_tab.count='||l_sch_record_tab.count);
4498:
4499: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4500: raise API_ERROR;
4501: END IF;
4502:
4503:
4840: p_end_date => l_new_assgn_end_date ,
4841: p_assignment_status_code => p_assignment_status_code ,
4842: p_asgn_start_date => p_asgn_start_date ,
4843: p_asgn_end_date => p_asgn_end_date ,
4844: p_init_msg_list => FND_API.G_FALSE ,
4845: p_generate_timeline_flag => 'N' ,
4846: x_return_status => x_return_status ,
4847: x_msg_count => x_msg_count ,
4848: x_msg_data => x_msg_data) ;
4846: x_return_status => x_return_status ,
4847: x_msg_count => x_msg_count ,
4848: x_msg_data => x_msg_data) ;
4849:
4850: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4851: raise API_ERROR;
4852: END IF;
4853:
4854: -- There is a gap found, so need to fill this with 0 hours
4871: p_saturday_hours => 0 ,
4872: p_sunday_hours => 0 ,
4873: p_asgn_start_date => l_new_assgn_start_date ,
4874: p_asgn_end_date => l_new_assgn_end_date ,
4875: p_init_msg_list => FND_API.G_FALSE ,
4876: p_last_row_flag => 'N' ,
4877: p_generate_timeline_flag => 'N' ,
4878: x_return_status => x_return_status ,
4879: x_msg_count => x_msg_count ,
4878: x_return_status => x_return_status ,
4879: x_msg_count => x_msg_count ,
4880: x_msg_data => x_msg_data) ;
4881:
4882: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4883: raise API_ERROR;
4884: END IF;
4885: END IF; -- l_call_cng_work_patt_out_range THEN
4886:
4917: p_saturday_hours => l_saturday_hours(1) ,
4918: p_sunday_hours => l_sunday_hours(1) ,
4919: p_asgn_start_date => l_new_assgn_start_date ,
4920: p_asgn_end_date => l_new_assgn_end_date ,
4921: p_init_msg_list => FND_API.G_FALSE ,
4922: p_last_row_flag => l_last_row_flag ,
4923: p_generate_timeline_flag => 'N' ,
4924: x_return_status => x_return_status ,
4925: x_msg_count => x_msg_count ,
4924: x_return_status => x_return_status ,
4925: x_msg_count => x_msg_count ,
4926: x_msg_data => x_msg_data) ;
4927:
4928: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4929: raise API_ERROR;
4930: END IF;
4931: END IF;
4932:
4951: p_saturday_hours => l_saturday_hours(2) ,
4952: p_sunday_hours => l_sunday_hours(2) ,
4953: p_asgn_start_date => l_new_assgn_start_date ,
4954: p_asgn_end_date => l_new_assgn_end_date ,
4955: p_init_msg_list => FND_API.G_FALSE ,
4956: p_last_row_flag => 'Y' ,
4957: p_generate_timeline_flag => 'N' ,
4958: x_return_status => x_return_status ,
4959: x_msg_count => x_msg_count ,
4958: x_return_status => x_return_status ,
4959: x_msg_count => x_msg_count ,
4960: x_msg_data => x_msg_data) ;
4961:
4962: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4963: raise API_ERROR;
4964: END IF;
4965: END IF;--l_call_second_time THEN
4966: END IF; --l_call_change_work_pattern THEN
4976: x_return_status => x_return_status ,
4977: x_msg_count => x_msg_count ,
4978: x_msg_data => x_msg_data) ;
4979:
4980: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4981: raise API_ERROR;
4982: END IF;
4983: END IF;
4984:
5008:
5009:
5010:
5011: EXCEPTION
5012: WHEN FND_API.G_EXC_ERROR THEN -- Added for Bug 3235656
5013: x_return_status := FND_API.G_RET_STS_ERROR;
5014: x_msg_count := FND_MSG_PUB.Count_Msg;
5015:
5016: -- 4537865 : RESET other out params also.
5009:
5010:
5011: EXCEPTION
5012: WHEN FND_API.G_EXC_ERROR THEN -- Added for Bug 3235656
5013: x_return_status := FND_API.G_RET_STS_ERROR;
5014: x_msg_count := FND_MSG_PUB.Count_Msg;
5015:
5016: -- 4537865 : RESET other out params also.
5017: x_call_timeline_st_date := NULL ;
5018: x_call_timeline_end_date := NULL ;
5019:
5020: IF x_msg_count = 1 THEN
5021: pa_interface_utils_pub.get_messages
5022: (p_encoded => FND_API.G_TRUE,
5023: p_msg_index => 1,
5024: p_data => x_msg_data,
5025: p_msg_index_out => l_msg_index_out );
5026: END IF;
5039: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
5040: p_procedure_name => 'change_work_pattern_duration');
5041: IF x_msg_count = 1 THEN
5042: pa_interface_utils_pub.get_messages
5043: (p_encoded => FND_API.G_TRUE,
5044: p_msg_index => 1,
5045: p_msg_count => x_msg_count,
5046: p_msg_data => x_msg_data,
5047: p_data => l_data, -- 4537865
5050: END IF;
5051:
5052: WHEN OTHERS THEN
5053: PA_SCHEDULE_UTILS.log_message(1,'ERROR in change_work_pattern_duration API ..'|| sqlerrm);
5054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5055: x_msg_count := 1;
5056: x_msg_data := substrb(SQLERRM,1,240); -- 4537865 : Chnaged substr to substrb
5057: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
5058: p_procedure_name => 'change_work_pattern_duration');
5062: x_call_timeline_end_date := NULL ;
5063:
5064: IF x_msg_count = 1 THEN
5065: pa_interface_utils_pub.get_messages
5066: (p_encoded => FND_API.G_TRUE,
5067: p_msg_index => 1,
5068: p_msg_count => x_msg_count,
5069: p_msg_data => x_msg_data,
5070: p_data => l_data, -- 4537865
5228: PA_SCHEDULE_UTILS.log_message(1,'p_delete_flag='||p_delete_flag);
5229: PA_SCHEDULE_UTILS.log_message(1,'p_resource_id_tbl.count='||p_resource_id_tbl.count);
5230:
5231:
5232: x_return_status := FND_API.G_RET_STS_SUCCESS;
5233: l_global_week_start_day := fnd_profile.value_specific('PA_GLOBAL_WEEK_START_DAY');
5234:
5235: /* Code added for Bug 5622389 */
5236: /* To incorporate the difference between PA weekday numbers and */
5805: PA_SCHEDULE_UTILS.log_message(1,'End of Populate_work_pattern_table');
5806: EXCEPTION
5807: WHEN OTHERS THEN
5808: PA_SCHEDULE_UTILS.log_message(1,'ERROR in Populate_work_pattern_table API ..'|| sqlerrm);
5809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5810: x_msg_count := 1;
5811: x_msg_data := substrb(SQLERRM,1,240); -- 4537865
5812: -- RESET x_show_start_date also
5813: x_show_start_date := NULL ;
5815: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_SCHEDULE_PUB',
5816: p_procedure_name => 'Populate_work_pattern_table');
5817: IF x_msg_count = 1 THEN
5818: pa_interface_utils_pub.get_messages
5819: (p_encoded => FND_API.G_TRUE,
5820: p_msg_index => 1,
5821: p_msg_count => x_msg_count,
5822: p_msg_data => x_msg_data,
5823: p_data => l_data, -- 4537865