[Home] [Help]
49: PROCEDURE add_key_members
50: ( p_return_status OUT NOCOPY VARCHAR2 , --4537865 Added nocopy hint
51: p_pa_source_template_id IN NUMBER ,
52: p_project_id IN NUMBER ,
53: p_key_members IN pa_project_pub.project_role_tbl_type )
54: IS
55:
56: --needed to get the overridable fields for this project template source
57: /* commented the code for the Bug#1891621, starts here */
533: PROCEDURE add_class_categories
534: ( p_return_status OUT NOCOPY VARCHAR2 , -- 4537865 Added the nocopy hint
535: p_pa_source_template_id IN NUMBER ,
536: p_project_id IN NUMBER ,
537: p_class_categories IN pa_project_pub.class_category_tbl_type )
538: IS
539:
540: --needed to get the overridable fields for this project template source
541: /* code commented for the bug#1891621, starts here */
1007: -- 09-01-2006 vkadimes Changes are tagged with Bug Number 4689326.
1008: PROCEDURE add_task_round_one
1009: (p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
1010: ,p_project_rec IN pa_projects%rowtype
1011: ,p_task_rec IN pa_project_pub.task_in_rec_type
1012: ,p_project_type_class_code IN pa_project_types.project_type_class_code%type
1013: ,p_service_type_code IN pa_project_types.service_type_code%type
1014: ,p_task_id OUT NOCOPY NUMBER ) -- 4537865 Added nocopy hint
1015: IS
1050:
1051: l_api_name CONSTANT VARCHAR2(30) := 'add_task_round_one';
1052: l_task_id NUMBER;
1053: l_project_id NUMBER;
1054: l_task_in_rec pa_project_pub.task_in_rec_type;
1055: l_wbs_level NUMBER :=1;
1056: l_dummy VARCHAR2(1);
1057: l_customer_id NUMBER;
1058: l_address_id NUMBER;
2638: PROCEDURE add_task_round_two
2639: (p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
2640: ,p_project_rec IN pa_projects%rowtype
2641: ,p_task_id IN NUMBER
2642: ,p_task_rec IN pa_project_pub.task_in_rec_type
2643: --Project Structures
2644: ,p_ref_task_id IN NUMBER
2645: ,p_tasks_in IN pa_project_pub.task_in_tbl_type
2646: ,p_tasks_out IN pa_project_pub.task_out_tbl_type
2641: ,p_task_id IN NUMBER
2642: ,p_task_rec IN pa_project_pub.task_in_rec_type
2643: --Project Structures
2644: ,p_ref_task_id IN NUMBER
2645: ,p_tasks_in IN pa_project_pub.task_in_tbl_type
2646: ,p_tasks_out IN pa_project_pub.task_out_tbl_type
2647: ,p_task_version_id OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
2648: ,p_create_task_structure IN VARCHAR2 -- Added new parameter for performance changes. Bug 2931183
2649: --Project Structures
2642: ,p_task_rec IN pa_project_pub.task_in_rec_type
2643: --Project Structures
2644: ,p_ref_task_id IN NUMBER
2645: ,p_tasks_in IN pa_project_pub.task_in_tbl_type
2646: ,p_tasks_out IN pa_project_pub.task_out_tbl_type
2647: ,p_task_version_id OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
2648: ,p_create_task_structure IN VARCHAR2 -- Added new parameter for performance changes. Bug 2931183
2649: --Project Structures
2650: )
2679:
2680: -- 4537865
2681: l_new_task_id NUMBER;
2682:
2683: l_task_in_rec pa_project_pub.task_in_rec_type;
2684: l_wbs_level NUMBER :=1;
2685: l_project_id NUMBER;
2686: l_top_task_id NUMBER;
2687: l_parent_task_id NUMBER;
3167: THEN
3168: v_task_id_above := null; --ref is the structure version. structure version is
3169: --derived in PA_PROJ_TASK_STRUC_PUB.create_task_structure API.
3170: END IF;
3171: ELSE --Called from PA_PROJECT_PUB.ADD_TASK API.
3172: v_task_id_above := p_ref_task_id;
3173: END IF;
3174:
3175: IF l_task_id IS NOT NULL
4749: --
4750: PROCEDURE Validate_billing_info
4751: (p_project_id IN NUMBER, -- Added for Bug 5643876
4752: p_project_class_code IN VARCHAR2,
4753: p_in_task_rec IN pa_project_pub.task_in_rec_type,
4754: p_return_status OUT NOCOPY VARCHAR2 ) IS -- 4537865 Added nocopy
4755:
4756: BEGIN
4757:
4848: --
4849: --
4850: --History:
4851: -- 31-JUL-1996 R. Krishnamurthy Created
4852: -- 03-DEC-1996 L. de Werker Moved from pa_project_pub to pa_project_pvt
4853: --
4854: PROCEDURE check_for_one_manager
4855: (p_project_id IN NUMBER
4856: ,p_person_id IN NUMBER
4853: --
4854: PROCEDURE check_for_one_manager
4855: (p_project_id IN NUMBER
4856: ,p_person_id IN NUMBER
4857: ,p_key_members IN pa_project_pub.project_role_tbl_type
4858: ,p_start_date IN DATE
4859: ,p_end_date IN DATE
4860: ,p_return_status OUT NOCOPY VARCHAR2 ) -- 4537865 Added nocopy hint
4861: IS
4903: (p_project_id IN NUMBER,
4904: p_task_id IN NUMBER,
4905: p_array_cell_number IN NUMBER,
4906: p_in_task_number IN VARCHAR2,
4907: p_in_task_tbl IN pa_project_pub.task_in_tbl_type,
4908: p_proceed_with_update_flag OUT NOCOPY VARCHAR2, -- 4537865
4909: p_return_status OUT NOCOPY VARCHAR2 ) -- 4537865
4910: IS
4911:
6112: THEN
6113: /* CODE CHANGE BEGIN BY ADITI for Bug 4120380 **/
6114: --dbms_output.put_line('before caling CHECK_TASK_NUMBER_CHANGE_OK');
6115: /* bug #5243018: Reverting the fix in bug 4120380.
6116: PA_PROJECT_PUB.CHECK_TASK_NUMBER_CHANGE_OK
6117: ( p_api_version_number => p_api_version_number
6118: , p_return_status => L_RETURN_STATUS
6119: , p_msg_count => l_msg_count
6120: , p_msg_data => l_msg_data
6234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6235: RAISE FND_API.G_EXC_ERROR;
6236: END IF;
6237:
6238: IF pa_project_pub.G_ParChildTsk_chks_deferred = 'N' THEN
6239: IF l_children_exist = 'Y' THEN
6240: OPEN l_outer_child_dates_csr (l_project_id,l_task_id);
6241: FETCH l_outer_child_dates_csr INTO
6242: l_min_child_start_date, l_max_child_completion_date;
6275:
6276: -- Do the comparison between parent and child task dates only if
6277: -- the global variable is set to 'N'
6278:
6279: IF pa_project_pub.G_ParChildTsk_chks_deferred = 'N' THEN
6280: IF l_children_exist = 'Y' THEN
6281: IF l_min_child_start_date < p_task_start_date THEN
6282: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6283: pa_interface_utils_pub.map_new_amg_msg
6311: END IF;
6312: RAISE FND_API.G_EXC_ERROR;
6313: END IF;
6314: END IF;
6315: END IF; -- End if pa_project_pub.G_ParChildTsk_chks_deferred
6316:
6317: --BUG 4081329 rtarway, validate for EI date also
6318: PA_TASKS_MAINT_UTILS.Check_Start_Date_EI(
6319: p_project_id => l_project_id,
6365:
6366: -- Do the comparison between parent and child task dates only if
6367: -- the global variable is set to 'N'
6368:
6369: IF pa_project_pub.G_ParChildTsk_chks_deferred = 'N' THEN
6370: IF l_children_exist = 'Y' THEN
6371: IF l_max_child_completion_date > p_task_completion_date THEN
6372: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6373: THEN
6405: END IF;
6406: RAISE FND_API.G_EXC_ERROR;
6407: END IF;
6408: END IF;
6409: END IF; -- End if pa_project_pub.G_ParChildTsk_chks_deferred;
6410:
6411: --BUG 4081329, rtarway
6412: -- Validate for END EI dates too
6413:
6543: AND l_new_parent_task_id <> NVL(l_task_rec.parent_task_id,
6544: PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
6545: THEN
6546: --rtarway, for DHI ER, BUG 4413568
6547: IF ( PA_PROJECT_PUB.G_TASK_STR_UPDATE_MODE = 'PA_UPD_TASK_ATTR' ) THEN
6548: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6549: p_msg_name => 'PA_WBS_CANT_CHANGE');
6550: RAISE FND_API.G_EXC_ERROR;
6551: END IF;
9716: The task deletion from MSP was erroring out.
9717:
9718: Analysis:
9719:
9720: The task deletion calls the PA_PROJECT_PUB.DELETE_TASK API. This was returning an error with status 'E' and error
9721: message PA_TASK_REF_AND_ID_MISSING. There is a call to Convert_pm_taskref_to_id_all API in the PA_PROJECT_PVT.DELETE_TASK1
9722: in the WORKPLAN portion of the code.
9723: Please note that the same local variable l_task_id is used for both IN and OUT parameters. Due to the NOCOPY hint the variable
9724: l_task_id was becoming null when the control enters into the Convert_pm_taskref_to_id_all API. As the required parameter was
10348: PROCEDURE add_org_roles
10349: ( p_return_status OUT NOCOPY VARCHAR2 , -- 4537865 Added nocopy hint
10350: p_pa_source_template_id IN NUMBER ,
10351: p_project_id IN NUMBER ,
10352: p_org_roles IN pa_project_pub.project_role_tbl_type )
10353: IS
10354:
10355: CURSOR l_project_role_types_csr (p_role_type IN VARCHAR2)
10356: IS
10660: --Project Connect 4.0
10661:
10662: PROCEDURE get_structure_version(
10663: p_project_id IN NUMBER
10664: ,p_structure_versions_out OUT NOCOPY PA_PROJECT_PUB.struc_out_tbl_type )
10665: IS
10666: CURSOR cur_proj_elems
10667: IS
10668: SELECT ppe.proj_element_id