[Home] [Help]
1: PACKAGE BODY pa_schedule_pub as
2: /* $Header: PARGPUBB.pls 120.11.12010000.11 2010/06/21 12:50:38 nisinha ship $ */
3:
4: l_out_of_range_date EXCEPTION; -- Exception variable for raising the exception when date is out of range
5: l_out_of_range_from_date EXCEPTION; -- Exception variable for raising the exception when date is out of range
83: --Clear the global PL/SQL message table
84: FND_MSG_PUB.initialize;
85:
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;
96: p_assign_start_date => p_change_start_date ) ;
97: IF ( l_valid_assign_start_flag = 'Y' )
98: THEN -- Bug 6411422
99:
100: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub', 'Start online validation', 6);
101: ----------------------------------------------------------------------------------------------
102: --
103: -- On Line Validation
104: --
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:
316: single_update_schedule (
317: p_project_id => p_project_id
318: ,p_exception_type_code => p_exception_type_code
391: -- 4537865 : RESET x_msg_data also.
392: x_msg_data := SUBSTRB(SQLERRM,1,240);
393:
394: -- Set the excetption Message and the stack
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 ;
452:
453: BEGIN
454: fnd_msg_pub.initialize; -- 8233045
455:
456: PA_SCHEDULE_PUB.G_update_schedule_bulk_call := 'Y'; -- 8233045
457:
458: /* Initializing some of the parameters */
459: for k in p_project_id_tbl.first .. p_project_id_tbl.last loop
460:
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;
541: INTO l_assignment_type
542: FROM pa_project_assignments
543: WHERE assignment_id= p_assignment_id_tbl(k);
544:
545: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub.update_schedule_bulk', 'Assignment_type:'||l_assignment_type, 6);
546: IF l_assignment_type IN ('STAFFED_ASSIGNMENT','STAFFED_ADMIN_ASSIGNMENT') THEN
547: l_assignment_status_code := '104';
548: END IF;
549: END IF;
547: l_assignment_status_code := '104';
548: END IF;
549: END IF;
550:
551: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub.update_schedule_bulk', 'Calling single_update_schedule', 6);
552:
553: --Bug#9817752 end
554:
555:
607: -- 4537865 : RESET x_msg_data also.
608: l_msg_data_tbl(k) := SUBSTRB(SQLERRM,1,240);
609:
610: -- Set the excetption Message and the stack
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 ;
681:
682: BEGIN
683: fnd_msg_pub.initialize; -- 8233045
684:
685: PA_SCHEDULE_PUB.G_update_schedule_bulk_call := 'Y'; -- 8233045
686:
687: /* Initializing some of the parameters */
688: for k in p_project_id_tbl.first .. p_project_id_tbl.last loop
689:
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;
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
836: -- 4537865 : RESET x_msg_data also.
837: l_msg_data_tbl(k) := SUBSTRB(SQLERRM,1,240);
838:
839: -- Set the excetption Message and the stack
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 ;
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:
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;
994: ,x_msg_count => l_msg_count
995: ,x_msg_data => l_msg_data);
996:
997: ELSIF (p_exception_type_code = 'CHANGE_WORK_PATTERN') THEN
998: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub', 'Calling change_work_pattern', 6);
999: change_work_pattern (
1000: p_record_version_number => p_record_version_number
1001: ,p_project_id => p_project_id
1002: ,p_calendar_id => l_calendar_id
1077: -- 4537865 : RESET x_msg_data also
1078: x_msg_data := SUBSTRB(SQLERRM,1,240);
1079:
1080: -- Set the excetption Message and the stack
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 ;
1170: FND_MSG_PUB.initialize;
1171: END IF;
1172:
1173: -- Initialize the Error Stack
1174: PA_DEBUG.init_err_stack('PA_SCHEDULE_PUB.mass_update_schedule');
1175:
1176:
1177: ----------------------------------------------------------------------------------------------
1178: --
1381: -- 4537865 : RESET x_msg_data also
1382: x_msg_data := SUBSTRB(SQLERRM,1,240);
1383:
1384: -- Set the excetption Message and the stack
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;
1576: -- of the project this assignment belongs to.
1577: -- Bug 8233045: Added G_update_schedule_bulk_call condition.
1578: IF( ((l_start_date IS NOT NULL) AND (l_start_date NOT BETWEEN p_asgn_start_date AND p_asgn_end_date)) OR
1579: ((l_end_date IS NOT NULL) AND (l_end_date NOT BETWEEN p_asgn_start_date AND p_asgn_end_date)) ) AND
1580: PA_SCHEDULE_PUB.G_update_schedule_bulk_call <> 'Y' THEN
1581:
1582: IF(p_assignment_status_code IS NULL) THEN
1583: RAISE l_assignment_status_null;
1584:
1700: ,x_msg_data => x_msg_data );
1701:
1702: -- Calling the change assignment schedule procedure which will
1703: -- generate the schedule after applying the duration change
1704: PA_SCHEDULE_PUB.change_asgn_schedule(
1705: p_record_version_number => p_record_version_number,
1706: p_assignment_id => p_assignment_id,
1707: p_project_id => p_project_id,
1708: p_exception_id => l_exception_id,
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');
1911: If x_msg_count = 1 THEN
1912: pa_interface_utils_pub.get_messages
1913: (p_encoded => FND_API.G_TRUE,
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,
2040: p_assignment_id => p_assignment_id,
2041: p_project_id => p_project_id,
2042: p_exception_id => l_t_exception_id,
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');
2086: If x_msg_count = 1 THEN
2087: pa_interface_utils_pub.get_messages
2088: (p_encoded => FND_API.G_TRUE,
2269: IF p_sunday_hours = -99 THEN
2270: l_p_sunday_hours := null;
2271: END IF;
2272:
2273: pa_schedule_utils.debug('pa.plsql.pa_schedule_pub', 'Calling pa_sch_except_pkg.insert_rows', 6);
2274:
2275: PA_SCH_EXCEPT_PKG.Insert_Rows(
2276: p_calendar_id => p_calendar_id ,
2277: p_assignment_id => p_assignment_id ,
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(
2300: p_record_version_number => p_record_version_number,
2301: p_assignment_id => p_assignment_id,
2302: p_project_id => p_project_id,
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(
2300: p_record_version_number => p_record_version_number,
2301: p_assignment_id => p_assignment_id,
2302: p_project_id => p_project_id,
2303: p_exception_id => NULL,
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');
2350: If x_msg_count = 1 THEN
2351: pa_interface_utils_pub.get_messages
2352: (p_encoded => FND_API.G_TRUE,
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(
2554: p_record_version_number => p_record_version_number,
2555: p_assignment_id => p_assignment_id,
2556: p_project_id => p_project_id,
2557: p_exception_id => l_exception_id,
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',
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,
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,
2798: p_assignment_id => p_assignment_id,
2799: p_project_id => p_project_id,
2800: p_exception_id => l_t_exception_id,
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');
2860: If x_msg_count = 1 THEN
2861: pa_interface_utils_pub.get_messages
2862: (p_encoded => FND_API.G_TRUE,
2900: 'Schedule Exception table - assignment Id :'||
2901: to_char(rec_sch_excp.assignment_id));
2902: -- Calling the procedure change_asgn_schedule that will generate the
2903: -- change schedule for the passed start date and end date
2904: PA_SCHEDULE_PUB.change_asgn_schedule(
2905: p_record_version_number => rec_sch_excp.record_version_number,
2906: p_assignment_id => rec_sch_excp.assignment_id,
2907: p_project_id => rec_sch_excp.project_id,
2908: p_exception_id => null,
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');
2937: If x_msg_count = 1 THEN
2938: pa_interface_utils_pub.get_messages
2939: (p_encoded => FND_API.G_TRUE ,
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');
3393: If x_msg_count = 1 THEN
3394: pa_interface_utils_pub.get_messages
3395: (p_encoded => FND_API.G_TRUE ,
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');
3495: If x_msg_count = 1 THEN
3496: pa_interface_utils_pub.get_messages
3497: (p_encoded => FND_API.G_TRUE,
3691: -- RESET other out params also : 4537865
3692: x_calendar_id := NULL ;
3693: x_calendar_name := NULL;
3694:
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,
3791: WHERE calendar_id = v_c1.calendar_id
3792: AND schedule_type_code = 'CALENDAR';
3793:
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,
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');
3872: If x_msg_count = 1 THEN
3873: pa_interface_utils_pub.get_messages
3874: (p_encoded => FND_API.G_TRUE,
4409: PA_SCHEDULE_UTILS.log_message(1,'Calling change_duration');
4410: PA_SCHEDULE_UTILS.log_message(1,'l_new_assgn_start_date='||l_new_assgn_start_date);
4411: PA_SCHEDULE_UTILS.log_message(1,'l_new_assgn_end_date='||l_new_assgn_end_date);
4412:
4413: pa_schedule_pub.change_duration(
4414: p_record_version_number => p_record_version_number,
4415: p_exception_type_code => 'CHANGE_DURATION' ,
4416: p_project_id => p_project_id ,
4417: p_calendar_id => p_calendar_id ,
4435: -- There is a gap found, so need to fill this with 0 hours
4436: IF l_call_cng_work_patt_out_range THEN
4437: PA_SCHEDULE_UTILS.log_message(1,'l_call_cng_work_patt_out_range is true');
4438:
4439: pa_schedule_pub.change_work_pattern(
4440: p_record_version_number => p_record_version_number ,
4441: p_project_id => p_project_id ,
4442: p_calendar_id => p_calendar_id ,
4443: p_assignment_id => p_assignment_id ,
4828: PA_SCHEDULE_UTILS.log_message(1,'Calling change_duration');
4829: PA_SCHEDULE_UTILS.log_message(1,'l_new_assgn_start_date='||l_new_assgn_start_date);
4830: PA_SCHEDULE_UTILS.log_message(1,'l_new_assgn_end_date='||l_new_assgn_end_date);
4831:
4832: pa_schedule_pub.change_duration(
4833: p_record_version_number => p_record_version_number,
4834: p_exception_type_code => 'CHANGE_DURATION' ,
4835: p_project_id => p_project_id ,
4836: p_calendar_id => p_calendar_id ,
4854: -- There is a gap found, so need to fill this with 0 hours
4855: IF l_call_cng_work_patt_out_range THEN
4856: PA_SCHEDULE_UTILS.log_message(1,'l_call_cng_work_patt_out_range is true');
4857:
4858: pa_schedule_pub.change_work_pattern(
4859: p_record_version_number => p_record_version_number ,
4860: p_project_id => p_project_id ,
4861: p_calendar_id => p_calendar_id ,
4862: p_assignment_id => p_assignment_id ,
4900: l_last_row_flag := 'Y';
4901: END IF;
4902:
4903: If l_call_first_time THEN
4904: pa_schedule_pub.change_work_pattern(
4905: p_record_version_number => p_record_version_number ,
4906: p_project_id => p_project_id ,
4907: p_calendar_id => p_calendar_id ,
4908: p_assignment_id => p_assignment_id ,
4934: PA_SCHEDULE_UTILS.log_message(1,'Calling change_work_pattern second time');
4935: PA_SCHEDULE_UTILS.log_message(1,'l_ch_work_pattern_st_date2='||l_ch_work_pattern_st_date2);
4936: PA_SCHEDULE_UTILS.log_message(1,'l_ch_work_pattern_end_date2='||l_ch_work_pattern_end_date2);
4937:
4938: pa_schedule_pub.change_work_pattern(
4939: p_record_version_number => p_record_version_number ,
4940: p_project_id => p_project_id ,
4941: p_calendar_id => p_calendar_id ,
4942: p_assignment_id => p_assignment_id ,
5035: -- 4537865 : RESET other out params also.
5036: x_call_timeline_st_date := NULL ;
5037: x_call_timeline_end_date := NULL ;
5038:
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,
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');
5059:
5060: -- 4537865 : RESET other out params also.
5061: x_call_timeline_st_date := NULL ;
5811: x_msg_data := substrb(SQLERRM,1,240); -- 4537865
5812: -- RESET x_show_start_date also
5813: x_show_start_date := NULL ;
5814:
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,
5829: END Populate_work_pattern_table;
5830:
5831: -- Unilog Enhancement END
5832:
5833: END PA_SCHEDULE_PUB;