eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_STRUCT_TASK_ROLLUP_PUB dependencies on PA_STRUCT_TASK_ROLLUP_PUB

Line 1: Package Body PA_STRUCT_TASK_ROLLUP_PUB as

1: Package Body PA_STRUCT_TASK_ROLLUP_PUB as
2: /* $Header: PATKRUPB.pls 120.17.12020000.4 2013/03/27 17:49:33 pstawar ship $ */
3:
4: -- API name : Rollup_From_Subproject
5: -- Type : Public procedure

Line 312: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Entered...', 3);

308: BEGIN
309: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
310:
311: IF (l_debug_mode = 'Y') THEN
312: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Entered...', 3);
313: END IF;
314:
315: IF (p_commit = FND_API.G_TRUE) THEN
316: savepoint Rollup_From_Subproject_PVT;

Line 320: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Performing validations...', 3);

316: savepoint Rollup_From_Subproject_PVT;
317: END IF;
318:
319: IF (l_debug_mode = 'Y') THEN
320: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Performing validations...', 3);
321: END IF;
322:
323: IF (p_element_versions.count = 0) THEN
324: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 354: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Inside Loop p_element_versions(i)='||p_element_versions(i-1), 3);

350: i:=i+1;
351: END IF;
352:
353: IF (l_debug_mode = 'Y') THEN
354: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Inside Loop p_element_versions(i)='||p_element_versions(i-1), 3);
355: END IF;
356: LOOP -- bug 5638103 loop3
357:
358: FETCH get_lnk_task INTO get_lnk_task_rec;

Line 430: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Updating task ver:'||get_lnk_task_rec.lnk_task_ver_id, 3);

426: -- Fix for Bug # 4385027.
427:
428: --end bug 4238036
429: IF (l_debug_mode = 'Y') THEN
430: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Updating task ver:'||get_lnk_task_rec.lnk_task_ver_id, 3);
431: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Sch start date='||l_parent_start_date, 3);
432: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Sch finish date='||l_parent_finish_date, 3);
433: END IF;
434:

Line 431: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Sch start date='||l_parent_start_date, 3);

427:
428: --end bug 4238036
429: IF (l_debug_mode = 'Y') THEN
430: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Updating task ver:'||get_lnk_task_rec.lnk_task_ver_id, 3);
431: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Sch start date='||l_parent_start_date, 3);
432: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Sch finish date='||l_parent_finish_date, 3);
433: END IF;
434:
435: -- Bug 6719725

Line 432: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Sch finish date='||l_parent_finish_date, 3);

428: --end bug 4238036
429: IF (l_debug_mode = 'Y') THEN
430: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Updating task ver:'||get_lnk_task_rec.lnk_task_ver_id, 3);
431: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Sch start date='||l_parent_start_date, 3);
432: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Sch finish date='||l_parent_finish_date, 3);
433: END IF;
434:
435: -- Bug 6719725
436: OPEN c_wh_generic_lock_cur(

Line 487: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Predicate = '||l_predicate, 3);

483: -- we will have predicate with not more than 1000
484: --params
485: --
486: IF (l_debug_mode = 'Y') THEN
487: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Predicate = '||l_predicate, 3);
488: END IF;
489: --
490: -- 5660584, pqe base bug 5638103
491: /* bug 5638103

Line 720: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates', 3);

716: END IF;
717: --bug 4153366
718:
719: IF (l_debug_mode = 'Y') THEN
720: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates', 3);
721: END IF;
722:
723: PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates(
724: p_element_version_id => l_elem_ver_id_tbl(i),

Line 736: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates x_return_status='||x_return_status, 3);

732: x_planning_end_tbl => l_planning_end_tbl,
733: x_return_status => x_return_status);
734:
735: IF (l_debug_mode = 'Y') THEN
736: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates x_return_status='||x_return_status, 3);
737: END IF;
738:
739: IF x_return_status = FND_API.G_RET_STS_ERROR then
740: RAISE FND_API.G_EXC_ERROR;

Line 786: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES', 3);

782: FETCH get_scheduled_dates into l_get_sch_dates_cur;
783: CLOSE get_scheduled_dates;
784:
785: IF (l_debug_mode = 'Y') THEN
786: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES', 3);
787: END IF;
788:
789: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
790: p_validate_only => FND_API.G_FALSE

Line 801: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES x_return_status='||x_return_status, 3);

797: ,x_msg_count => x_msg_count
798: ,x_msg_data => x_msg_data );
799:
800: IF (l_debug_mode = 'Y') THEN
801: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES x_return_status='||x_return_status, 3);
802: END IF;
803:
804: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
805: RAISE FND_API.G_EXC_ERROR;

Line 812: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION', 3);

808:
809: IF (l_versioning = 'N') THEN
810: --baseline
811: IF (l_debug_mode = 'Y') THEN
812: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION', 3);
813: END IF;
814:
815: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
816: p_commit => FND_API.G_FALSE,

Line 823: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION x_return_status='||x_return_status, 3);

819: x_msg_count => x_msg_count,
820: x_msg_data => x_msg_data);
821:
822: IF (l_debug_mode = 'Y') THEN
823: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION x_return_status='||x_return_status, 3);
824: END IF;
825:
826:
827: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then

Line 848: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES', 3);

844: (PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(l_struc_project_id) = 'SHARE_FULL')) AND
845: (l_versioning = 'N') THEN
846: --copy to transaction dates
847: IF (l_debug_mode = 'Y') THEN
848: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES', 3);
849: END IF;
850:
851: PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES(
852: p_validate_only => FND_API.G_FALSE

Line 860: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATESx_return_status='||x_return_status, 3);

856: ,x_msg_data => x_msg_data
857: );
858:
859: IF (l_debug_mode = 'Y') THEN
860: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATESx_return_status='||x_return_status, 3);
861: END IF;
862:
863: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
864: x_msg_count := FND_MSG_PUB.count_msg;

Line 887: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',

883: END IF;
884: x_msg_count := FND_MSG_PUB.count_msg;
885: x_return_status := FND_API.G_RET_STS_ERROR;
886:
887: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
888: p_procedure_name => 'Rollup_From_Subproject',
889: p_error_text => 'The Strucuture of one of the project in program hierarchy is currently being updated by another process. Please re-submit the process update after sometime.');
890:
891: RAISE;

Line 905: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',

901: END IF;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: x_msg_count := FND_MSG_PUB.count_msg;
904: --put message
905: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
906: p_procedure_name => 'Rollup_From_Subproject_Unltd',
907: p_error_text => SUBSTRB(SQLERRM,1,240));
908: RAISE;
909: END Rollup_From_Subproject_Unltd;

Line 941: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.ROLLUP_FROM_SUBPROJECT', 'BEGIN', 3);

937:
938: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
939:
940: IF (l_debug_mode = 'Y') THEN
941: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.ROLLUP_FROM_SUBPROJECT', 'BEGIN', 3);
942: END IF;
943:
944: IF (p_element_versions.count = 0) THEN
945: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 948: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.ROLLUP_FROM_SUBPROJECT', 'p_element_versions.COUNT is 0', 3);

944: IF (p_element_versions.count = 0) THEN
945: x_return_status := FND_API.G_RET_STS_SUCCESS;
946:
947: IF (l_debug_mode = 'Y') THEN
948: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.ROLLUP_FROM_SUBPROJECT', 'p_element_versions.COUNT is 0', 3);
949: END IF;
950:
951: return;
952: END IF;

Line 974: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.ROLLUP_FROM_SUBPROJECT', 'END', 3);

970: x_msg_count => x_msg_count,
971: x_msg_data => x_msg_data);
972:
973: IF (l_debug_mode = 'Y') THEN
974: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.ROLLUP_FROM_SUBPROJECT', 'END', 3);
975: END IF;
976:
977: END Rollup_From_Subproject;
978:

Line 1024: pa_debug.debug('PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited BEGIN');

1020: l_count number :=0;
1021: BEGIN
1022:
1023: IF (p_debug_mode = 'Y') THEN
1024: pa_debug.debug('PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited BEGIN');
1025: END IF;
1026:
1027: IF (p_commit = FND_API.G_TRUE) THEN
1028: savepoint TASKS_ROLLUP_UNLIMITED_PUB;

Line 1114: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',

1110: END IF;
1111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1112: x_msg_count := FND_MSG_PUB.count_msg;
1113: --put message
1114: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
1115: p_procedure_name => 'Tasks_Rollup_Unlimited',
1116: p_error_text => SUBSTRB(SQLERRM,1,240));
1117: RAISE;
1118:

Line 1339: g_module_name varchar2(200) := 'PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP';--added by rtarway, 4218977

1335: l_dummy NUMBER;
1336:
1337: l_assgn_context VARCHAR2(30); --bug 4153366
1338: l_debug_mode varchar2(1) := 'N';--added by rtarway, 4218977
1339: g_module_name varchar2(200) := 'PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP';--added by rtarway, 4218977
1340: --
1341:
1342: --bug 4296915
1343: CURSOR check_pub_str(cp_project_id NUMBER, cp_str_ver_id NUMBER)

Line 1373: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP', 'Entered...', 3);

1369:
1370: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');--added by rtarway, 4218977
1371:
1372: IF (l_debug_mode = 'Y') THEN
1373: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP', 'Entered...', 3);
1374: END IF;
1375:
1376: IF (p_commit = FND_API.G_TRUE) THEN
1377: savepoint TASKS_ROLLUP_PVT;

Line 1381: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP', 'Performing validations',3);

1377: savepoint TASKS_ROLLUP_PVT;
1378: END IF;
1379:
1380: IF (l_debug_mode = 'Y') THEN
1381: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP', 'Performing validations',3);
1382: END IF;
1383:
1384: If (p_element_versions.count = 0) THEN
1385: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1405: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Predicate = '||l_predicate,3);

1401: --dbms_output.put_line('Predicate => '||l_predicate);
1402: --dbms_output.put_line('Predicate2 => '||l_predicate2);
1403:
1404: IF (l_debug_mode = 'Y') THEN
1405: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Predicate = '||l_predicate,3);
1406: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Predicate2 = '||l_predicate2,3);
1407: END IF;
1408:
1409: --first select stmt - get all parents along the branch of the element

Line 1406: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Predicate2 = '||l_predicate2,3);

1402: --dbms_output.put_line('Predicate2 => '||l_predicate2);
1403:
1404: IF (l_debug_mode = 'Y') THEN
1405: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Predicate = '||l_predicate,3);
1406: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Predicate2 = '||l_predicate2,3);
1407: END IF;
1408:
1409: --first select stmt - get all parents along the branch of the element
1410: --second select stmt - get direct child of all parents

Line 1854: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates l_assgn_context = '||l_assgn_context,3);

1850: END IF;
1851: --bug 4153366
1852:
1853: IF (l_debug_mode = 'Y') THEN
1854: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates l_assgn_context = '||l_assgn_context,3);
1855: END IF;
1856:
1857: PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates(
1858: p_element_version_id => l_elem_ver_id_tbl(i),

Line 1869: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates x_return_status = '||x_return_status,3);

1865: x_planning_start_tbl => l_planning_start_tbl,
1866: x_planning_end_tbl => l_planning_end_tbl,
1867: x_return_status => x_return_status);
1868: IF (l_debug_mode = 'Y') THEN
1869: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates x_return_status = '||x_return_status,3);
1870: END IF;
1871:
1872: EXCEPTION
1873: WHEN OTHERS THEN

Line 1874: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',

1870: END IF;
1871:
1872: EXCEPTION
1873: WHEN OTHERS THEN
1874: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
1875: p_procedure_name => 'Tasks_Rollup',
1876: p_error_text => SUBSTRB('PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates:'||SQLERRM,1,240));
1877: RAISE FND_API.G_EXC_ERROR;
1878: END;

Line 1898: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES',3);

1894: FETCH get_scheduled_dates into l_get_sch_dates_cur;
1895: CLOSE get_scheduled_dates;
1896:
1897: IF (l_debug_mode = 'Y') THEN
1898: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES',3);
1899: END IF;
1900:
1901:
1902: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (

Line 1914: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES x_return_status='||x_return_status,3);

1910: ,x_msg_count => x_msg_count
1911: ,x_msg_data => x_msg_data );
1912:
1913: IF (l_debug_mode = 'Y') THEN
1914: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES x_return_status='||x_return_status,3);
1915: END IF;
1916:
1917:
1918: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

Line 1927: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION l_structure_version_id='||l_structure_version_id,3);

1923:
1924: IF (l_template_flag = 'N' AND l_versioning = 'N') THEN
1925: --baseline
1926: IF (l_debug_mode = 'Y') THEN
1927: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION l_structure_version_id='||l_structure_version_id,3);
1928: END IF;
1929:
1930: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
1931: p_commit => FND_API.G_FALSE,

Line 1938: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION x_return_status='||x_return_status,3);

1934: x_msg_count => x_msg_count,
1935: x_msg_data => x_msg_data);
1936:
1937: IF (l_debug_mode = 'Y') THEN
1938: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION x_return_status='||x_return_status,3);
1939: END IF;
1940:
1941:
1942: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then

Line 1970: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES',3);

1966: (PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_struc_project_id) = 'N') THEN
1967: --copy to transaction dates
1968:
1969: IF (l_debug_mode = 'Y') THEN
1970: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES',3);
1971: END IF;
1972:
1973: PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES(
1974: p_validate_only => FND_API.G_FALSE

Line 1982: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES x_return_status='||x_return_status,3);

1978: ,x_msg_data => x_msg_data
1979: );
1980:
1981: IF (l_debug_mode = 'Y') THEN
1982: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES x_return_status='||x_return_status,3);
1983: END IF;
1984:
1985:
1986: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then

Line 2030: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling Rollup_From_Subproject to rollup from the current project''s sub-project',3);

2026: --Bug No.3450684
2027: --Start rolling up from subproject associations
2028:
2029: IF (l_debug_mode = 'Y') THEN
2030: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling Rollup_From_Subproject to rollup from the current project''s sub-project',3);
2031: END IF;
2032:
2033: Rollup_From_Subproject(
2034: p_api_version => p_api_version

Line 2048: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling Rollup_From_Subproject to rollup from the current project''s sub-project x_return_status='||x_return_status,3);

2044: ,x_msg_count => x_msg_count
2045: ,x_msg_data => x_msg_data);
2046:
2047: IF (l_debug_mode = 'Y') THEN
2048: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling Rollup_From_Subproject to rollup from the current project''s sub-project x_return_status='||x_return_status,3);
2049: END IF;
2050:
2051: --
2052: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then

Line 2083: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','l_struc_project_id='||l_struc_project_id,3);

2079:
2080: ----bug 4541039
2081:
2082: IF (l_debug_mode = 'Y') THEN
2083: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','l_struc_project_id='||l_struc_project_id,3);
2084: END IF;
2085:
2086: FOR cur_select_hier_rec in cur_select_hier( l_struc_project_id, l_structure_version_id ) LOOP ----bug 4541039
2087:

Line 2099: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','l_rollup_from_sub_project='||l_struc_project_id,3);

2095: END IF;
2096:
2097:
2098: IF (l_debug_mode = 'Y') THEN
2099: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','l_rollup_from_sub_project='||l_struc_project_id,3);
2100: END IF;
2101:
2102: IF l_rollup_from_sub_project = 'Y'
2103: THEN

Line 2146: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling Rollup_From_Subproject to rollup from the current project id='||

2142: l_index := 1;
2143: l_parent_task_ver_id_tbl.extend;
2144: l_parent_task_ver_id_tbl(l_index):=get_str_ver_ic_lnk_tasks_rec.parent_task_ver_id;
2145: IF (l_debug_mode = 'Y') THEN
2146: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling Rollup_From_Subproject to rollup from the current project id='||
2147: cur_select_hier_rec.object_id_to2||' to its parent project id='||get_str_ver_ic_lnk_tasks_rec.parent_proj_id,3);
2148: END IF;
2149:
2150: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject(

Line 2150: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject(

2146: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling Rollup_From_Subproject to rollup from the current project id='||
2147: cur_select_hier_rec.object_id_to2||' to its parent project id='||get_str_ver_ic_lnk_tasks_rec.parent_proj_id,3);
2148: END IF;
2149:
2150: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject(
2151: p_api_version => p_api_version
2152: ,p_init_msg_list => p_init_msg_list
2153: ,p_commit => p_commit
2154: ,p_validate_only => p_validate_only

Line 2165: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling Rollup_From_Subproject to rollup from the current project id='||

2161: ,x_msg_count => x_msg_count
2162: ,x_msg_data => x_msg_data);
2163:
2164: IF (l_debug_mode = 'Y') THEN
2165: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling Rollup_From_Subproject to rollup from the current project id='||
2166: cur_select_hier_rec.object_id_to2||' to its parent project id='||get_str_ver_ic_lnk_tasks_rec.parent_proj_id||' x_return_status='||x_return_status,3);
2167: END If;
2168: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2169: x_msg_count := FND_MSG_PUB.count_msg;

Line 2187: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling Rollup_From_Subproject to rollup from the current project id='||

2183: l_parent_task_ver_id_tbl.extend;
2184: l_parent_task_ver_id_tbl(l_index):=get_str_ver_ic_lnk_tasks_rec.parent_task_ver_id;
2185:
2186: IF (l_debug_mode = 'Y') THEN
2187: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling Rollup_From_Subproject to rollup from the current project id='||
2188: cur_select_hier_rec.object_id_to2||' to its parent project id='||get_str_ver_ic_lnk_tasks_rec.parent_proj_id,3);
2189: END IF;
2190:
2191: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject(

Line 2191: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject(

2187: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling Rollup_From_Subproject to rollup from the current project id='||
2188: cur_select_hier_rec.object_id_to2||' to its parent project id='||get_str_ver_ic_lnk_tasks_rec.parent_proj_id,3);
2189: END IF;
2190:
2191: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject(
2192: p_api_version => p_api_version
2193: ,p_init_msg_list => p_init_msg_list
2194: ,p_commit => p_commit
2195: ,p_validate_only => p_validate_only

Line 2205: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling Rollup_From_Subproject to rollup from the current project id='||

2201: ,x_return_status => x_return_status
2202: ,x_msg_count => x_msg_count
2203: ,x_msg_data => x_msg_data);
2204: IF (l_debug_mode = 'Y') THEN
2205: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling Rollup_From_Subproject to rollup from the current project id='||
2206: cur_select_hier_rec.object_id_to2||' to its parent project id='||get_str_ver_ic_lnk_tasks_rec.parent_proj_id||' x_return_status='||x_return_status,3);
2207: END IF;
2208:
2209: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then

Line 2242: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',

2238: END IF;
2239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2240: x_msg_count := FND_MSG_PUB.count_msg;
2241: --put message
2242: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
2243: p_procedure_name => 'Tasks_Rollup',
2244: p_error_text => SUBSTRB(SQLERRM,1,240));
2245: RAISE;
2246:

Line 2564: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',

2560: END IF;
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: x_msg_count := FND_MSG_PUB.count_msg;
2563: --put message
2564: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
2565: p_procedure_name => 'Task_Status_Rollup',
2566: p_error_text => SUBSTRB(SQLERRM,1,240));
2567: RAISE;
2568: END Task_Status_Rollup;

Line 2638: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(

2634: END LOOP;
2635: CLOSE get_zero_weight_status;
2636:
2637: --done with push down. Now Rollup
2638: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(
2639: p_structure_version_id => p_structure_version_id
2640: ,x_return_status => x_return_status
2641: ,x_msg_count => x_msg_count
2642: ,x_msg_data => x_msg_data);

Line 2663: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',

2659: END IF;
2660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2661: x_msg_count := FND_MSG_PUB.count_msg;
2662: --put message
2663: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
2664: p_procedure_name => 'Task_Stat_Pushdown_Rollup',
2665: p_error_text => SUBSTRB(SQLERRM,1,240));
2666: RAISE;
2667: END Task_Stat_Pushdown_Rollup;

Line 2805: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDULE_DATES_ROLLUP','Entered in PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP p_structure_version_id='||p_structure_version_id, 3);

2801: x_return_status := FND_API.G_RET_STS_SUCCESS;
2802: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2803:
2804: IF (p_debug_mode = 'Y') THEN
2805: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDULE_DATES_ROLLUP','Entered in PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP p_structure_version_id='||p_structure_version_id, 3);
2806: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDULE_DATES_ROLLUP','Entered in PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP p_project_id='||p_project_id, 3);
2807: END IF;
2808:
2809: IF (p_commit = FND_API.G_TRUE) THEN

Line 2806: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDULE_DATES_ROLLUP','Entered in PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP p_project_id='||p_project_id, 3);

2802: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2803:
2804: IF (p_debug_mode = 'Y') THEN
2805: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDULE_DATES_ROLLUP','Entered in PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP p_structure_version_id='||p_structure_version_id, 3);
2806: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDULE_DATES_ROLLUP','Entered in PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP p_project_id='||p_project_id, 3);
2807: END IF;
2808:
2809: IF (p_commit = FND_API.G_TRUE) THEN
2810: savepoint Program_Schedule_dates_rollup;

Line 2817: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before Opening cursor cur_select_grid', 3);

2813: IF (p_structure_version_id IS NULL OR p_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
2814: AND (p_project_id IS NOT NULL AND p_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
2815: THEN
2816: IF l_debug_mode = 'Y' THEN
2817: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before Opening cursor cur_select_grid', 3);
2818: END IF;
2819:
2820: FOR cur_select_grid_rec IN cur_select_grid LOOP
2821:

Line 2829: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published version of the project:'||cur_select_grid_rec.project_id, 3);

2825: AND p_project_id= cur_select_grid_rec.project_id
2826: THEN
2827:
2828: IF l_debug_mode = 'Y' THEN
2829: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published version of the project:'||cur_select_grid_rec.project_id, 3);
2830: END IF;
2831:
2832: PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup(
2833: p_project_id => p_project_id,

Line 2832: PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup(

2828: IF l_debug_mode = 'Y' THEN
2829: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published version of the project:'||cur_select_grid_rec.project_id, 3);
2830: END IF;
2831:
2832: PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup(
2833: p_project_id => p_project_id,
2834: p_structure_version_id => p_published_str_ver_id,
2835: p_published_str_ver_id => p_published_str_ver_id, --bug5861729
2836: x_return_status => x_return_status,

Line 2846: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published version of the project:'||

2842: END IF;
2843:
2844:
2845: IF l_debug_mode = 'Y' THEN
2846: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published version of the project:'||
2847: cur_select_grid_rec.project_id||' x_return_status='||x_return_status, 3);
2848: END IF;
2849:
2850: END IF;

Line 2859: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd for project'||cur_select_grid_rec.project_id, 3);

2855:
2856: IF l_tasks_ver_ids.count > 0 THEN
2857:
2858: IF l_debug_mode = 'Y' THEN
2859: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd for project'||cur_select_grid_rec.project_id, 3);
2860: END IF;
2861:
2862: -- Bug 6854670: Changed call to Rollup_From_Subproject_Unltd
2863: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd(

Line 2863: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd(

2859: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd for project'||cur_select_grid_rec.project_id, 3);
2860: END IF;
2861:
2862: -- Bug 6854670: Changed call to Rollup_From_Subproject_Unltd
2863: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd(
2864: p_api_version => p_api_version
2865: ,p_init_msg_list => p_init_msg_list
2866: ,p_commit => p_commit
2867: ,p_validate_only => p_validate_only

Line 2880: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd x_return_status='||x_return_status, 3);

2876: ,x_msg_data => x_msg_data);
2877:
2878:
2879: IF l_debug_mode = 'Y' THEN
2880: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd x_return_status='||x_return_status, 3);
2881: END IF;
2882:
2883: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2884: RAISE FND_API.G_EXC_ERROR;

Line 2898: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 3);

2894:
2895: IF l_tasks_ver_ids.count > 0 THEN
2896:
2897: IF l_debug_mode = 'Y' THEN
2898: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 3);
2899: END IF;
2900:
2901: -- Bug 6854670: Changed call to Rollup_From_Subproject_Unltd
2902: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd(

Line 2902: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd(

2898: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 3);
2899: END IF;
2900:
2901: -- Bug 6854670: Changed call to Rollup_From_Subproject_Unltd
2902: PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd(
2903: p_api_version => p_api_version
2904: ,p_init_msg_list => p_init_msg_list
2905: ,p_commit => p_commit
2906: ,p_validate_only => p_validate_only

Line 2919: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd x_return_status='||x_return_status, 3);

2915: ,x_msg_data => x_msg_data);
2916:
2917:
2918: IF l_debug_mode = 'Y' THEN
2919: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd x_return_status='||x_return_status, 3);
2920: END IF;
2921:
2922: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2923: RAISE FND_API.G_EXC_ERROR;

Line 2943: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',

2939: ROLLBACK to Program_Schedule_dates_rollup;
2940: END IF;
2941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2942: x_msg_count := FND_MSG_PUB.count_msg;
2943: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
2944: p_procedure_name => 'Program_Schedule_dates_rollup',
2945: p_error_text => SUBSTRB(SQLERRM,1,240));
2946: RAISE;
2947:

Line 2950: END PA_STRUCT_TASK_ROLLUP_PUB;

2946: RAISE;
2947:
2948: END Program_Schedule_dates_rollup;
2949:
2950: END PA_STRUCT_TASK_ROLLUP_PUB;