1: PACKAGE BODY PA_PROJ_STRUC_MAPPING_PUB AS
2: /* $Header: PAPSMPPB.pls 120.1 2005/08/19 16:46:15 mwasowic noship $ */
3:
4: g_module_name VARCHAR2(100) := 'PA_PROJ_STRUC_MAPPING_PUB';
5: Invalid_Arg_Exc_WP Exception;
1: PACKAGE BODY PA_PROJ_STRUC_MAPPING_PUB AS
2: /* $Header: PAPSMPPB.pls 120.1 2005/08/19 16:46:15 mwasowic noship $ */
3:
4: g_module_name VARCHAR2(100) := 'PA_PROJ_STRUC_MAPPING_PUB';
5: Invalid_Arg_Exc_WP Exception;
6:
7: -- Procedure : DELETE_MAPPING
8: -- Type : Public Procedure
103: p_debug_mode => l_debug_mode );
104: END IF;
105:
106: IF l_debug_mode = 'Y' THEN
107: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_MAPPING : Printing Input parameters';
108: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
109: l_debug_level3);
110:
111: Pa_Debug.WRITE(g_module_name,'p_wp_from_task_name'||':'||p_wp_from_task_name,
126: savepoint DELETE_MAPPING_PUBLIC;
127: END IF;
128:
129: IF l_debug_mode = 'Y' THEN
130: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_MAPPING : Validating Input parameters';
131: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
132: l_debug_level3);
133: END IF;
134:
137: ( p_fp_task_version_id IS NULL OR p_fp_task_version_id = FND_API.G_MISS_NUM )
138: )
139: THEN
140: IF l_debug_mode = 'Y' THEN
141: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_MAPPING : Both p_wp_task_version_id and p_fp_task_version_id are null';
142: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
143: l_debug_level3);
144: END IF;
145: RAISE Invalid_Arg_Exc_WP;
158: -- Raise exception and populate error message
159: IF ( c_get_mapping_frm_wp_fp_task%NOTFOUND )
160: THEN
161: IF l_debug_mode = 'Y' THEN
162: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_MAPPING : No Mapping Exists';
163: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
164: l_debug_level3);
165: END IF;
166: -- Bug 4142254 : Record has been changes error make sense for Self Service, but from AMG
179: -- if any row found, delete the row
180: IF (l_object_relationship_id IS NOT NULL)
181: THEN
182: IF l_debug_mode = 'Y' THEN
183: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_MAPPING : Calling delete';
184: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
185: l_debug_level3);
186: END IF;
187:
216:
217: IF (l_object_relationship_id IS NOT NULL)
218: THEN
219: IF l_debug_mode = 'Y' THEN
220: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_MAPPING : Calling delete';
221: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
222: l_debug_level3);
223: END IF;
224:
245: END IF;
246:
247: ELSE
248: IF l_debug_mode = 'Y' THEN
249: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_MAPPING : Mapping does not exist for the passed WP task ID';
250: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
251: l_debug_level3);
252: END IF;
253: END IF;--IF (l_object_relationship_id IS NOT NULL) ENDS
330: WHEN Invalid_Arg_Exc_WP THEN
331:
332: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
333: x_msg_count := 1;
334: x_msg_data := 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_MAPPING : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
335:
336: IF p_commit = FND_API.G_TRUE THEN
337: ROLLBACK TO DELETE_MAPPING_PUBLIC;
338: END IF;
348: CLOSE c_get_mapping_frm_wp_fp_task;
349: END IF;
350:
351: Fnd_Msg_Pub.add_exc_msg
352: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
353: , p_procedure_name => 'DELETE_MAPPING'
354: , p_error_text => x_msg_data);
355:
356: IF l_debug_mode = 'Y' THEN
383: CLOSE c_get_mapping_frm_wp_fp_task;
384: END IF;
385:
386: Fnd_Msg_Pub.add_exc_msg
387: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
388: , p_procedure_name => 'DELETE_MAPPING'
389: , p_error_text => x_msg_data);
390:
391: IF l_debug_mode = 'Y' THEN
518: savepoint CREATE_MAPPING_PUBLIC;
519: END IF;
520:
521: IF l_debug_mode = 'Y' THEN
522: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : CREATE_MAPPING : Printing Input parameters';
523: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
524: l_debug_level3);
525:
526: Pa_Debug.WRITE(g_module_name,'p_wp_task_name'||':'||p_wp_task_name,
540: l_debug_level3);
541: END IF;
542:
543: IF l_debug_mode = 'Y' THEN
544: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : CREATE_MAPPING : Validating Input parameters';
545: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage, l_debug_level3);
546: END IF;
547:
548: --Check if project id is null , raise an error
548: --Check if project id is null , raise an error
549: IF (p_project_id is NULL)
550: THEN
551: IF l_debug_mode = 'Y' THEN
552: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : CREATE_MAPPING : project id can not be null';
553: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
554: l_debug_level3);
555: END IF;
556: RAISE Invalid_Arg_Exc_WP;
570: )
571: )
572: THEN
573: IF l_debug_mode = 'Y' THEN
574: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : CREATE_MAPPING : Both work plan task id and task name are null';
575: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
576: l_debug_level3);
577: END IF;
578: RAISE Invalid_Arg_Exc_WP;
587: )
588: )
589: THEN
590: IF l_debug_mode = 'Y' THEN
591: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : CREATE_MAPPING : parent structue version id can not be null, if wp task name is not null';
592: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
593: l_debug_level3);
594: END IF;
595: RAISE Invalid_Arg_Exc_WP;
643:
644: END IF;
645:
646: IF l_debug_mode = 'Y' THEN
647: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : CREATE_MAPPING : Calling PA_PROJ_STRUC_MAPPING_UTILS.CHECK_CREATE_MAPPING_OK ';
648: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage, l_debug_level3);
649: END IF;
650:
651: -- Call util API to check whether the mapping can be created
666: THEN
667:
668: -- Mapping can't be created
669: IF l_debug_mode = 'Y' THEN
670: Pa_Debug.g_err_stage:= ' PA_PROJ_STRUC_MAPPING_PUB : CREATE_MAPPING : '|| l_error_message_code;
671: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
672: l_debug_level3);
673: END IF;
674: Pa_Utils.ADD_MESSAGE
677: RAISE FND_API.G_EXC_ERROR;
678: ELSE
679: -- Mapping Can be created, call public API to create mapping
680: IF l_debug_mode = 'Y' THEN
681: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : CREATE_MAPPING : Calling create'||l_wp_task_version_id||l_fp_task_version_id;
682: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
683: l_debug_level3);
684: END IF;
685:
743: WHEN Invalid_Arg_Exc_WP THEN
744:
745: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
746: x_msg_count := 1;
747: x_msg_data := 'PA_PROJ_STRUC_MAPPING_PUB : CREATE_MAPPING : NULL arguments are passed to the procedure';
748:
749: IF (p_commit = FND_API.G_TRUE) THEN
750: ROLLBACK TO CREATE_MAPPING_PUBLIC;
751: END IF;
750: ROLLBACK TO CREATE_MAPPING_PUBLIC;
751: END IF;
752:
753: Fnd_Msg_Pub.add_exc_msg
754: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
755: , p_procedure_name => 'CREATE_MAPPING'
756: , p_error_text => x_msg_data);
757:
758: IF l_debug_mode = 'Y' THEN
777: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage, l_debug_level5);
778:
779:
780: Fnd_Msg_Pub.add_exc_msg
781: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
782: , p_procedure_name => 'CREATE_MAPPING'
783: , p_error_text => x_msg_data);
784: Pa_Debug.g_err_stage:= 'x_msg_count='||x_msg_count;
785: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage, l_debug_level5);
858: l_debug_mode VARCHAR2(1);
859: l_wp_task_version_id NUMBER ;
860: l_fp_task_version_id NUMBER ;
861: l_notfound BOOLEAN;
862: l_wp_task_version_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
863: l_map_wp_task_ver_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
864: l_wp_task_name_table PA_PROJ_STRUC_MAPPING_PUB.OBJECT_NAME_TABLE_TYPE ;
865: l_parse_return_message VARCHAR2(30);
866: l_proj_element_version_id NUMBER;
859: l_wp_task_version_id NUMBER ;
860: l_fp_task_version_id NUMBER ;
861: l_notfound BOOLEAN;
862: l_wp_task_version_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
863: l_map_wp_task_ver_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
864: l_wp_task_name_table PA_PROJ_STRUC_MAPPING_PUB.OBJECT_NAME_TABLE_TYPE ;
865: l_parse_return_message VARCHAR2(30);
866: l_proj_element_version_id NUMBER;
867: l_object_relationship_id NUMBER;
860: l_fp_task_version_id NUMBER ;
861: l_notfound BOOLEAN;
862: l_wp_task_version_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
863: l_map_wp_task_ver_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
864: l_wp_task_name_table PA_PROJ_STRUC_MAPPING_PUB.OBJECT_NAME_TABLE_TYPE ;
865: l_parse_return_message VARCHAR2(30);
866: l_proj_element_version_id NUMBER;
867: l_object_relationship_id NUMBER;
868: l_rec_version_num NUMBER;
939: savepoint UPDATE_MAPPING_PUBLIC;
940: END IF;
941:
942: IF l_debug_mode = 'Y' THEN
943: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : UPDATE_MAPPING : Printing Input parameters';
944: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
945: l_debug_level3);
946:
947: Pa_Debug.WRITE(g_module_name,'p_structure_type'||':'||p_structure_type,
964: l_debug_level3);
965: END IF;
966:
967: IF l_debug_mode = 'Y' THEN
968: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : UPDATE_MAPPING : Validating Input parameters';
969: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
970: l_debug_level3);
971: END IF;
972:
973: -- if PROJECT id IS NULL RAISE ERROR MESSAGE
974: IF (p_project_id is NULL)
975: THEN
976: IF l_debug_mode = 'Y' THEN
977: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : UPDATE_MAPPING : project id can not be null';
978: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
979: l_debug_level3);
980: END IF;
981: RAISE Invalid_Arg_Exc_WP;
995: )
996: )
997: THEN
998: IF l_debug_mode = 'Y' THEN
999: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : UPDATE_MAPPING : Both of tasks id and tasks name are null';
1000: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1001: l_debug_level3);
1002: END IF;
1003: RAISE Invalid_Arg_Exc_WP;
1012: )
1013: )
1014: THEN
1015: IF l_debug_mode = 'Y' THEN
1016: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : UPDATE_MAPPING : parent structue version id can not be null, if wp task name is not null';
1017: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1018: l_debug_level3);
1019: END IF;
1020: RAISE Invalid_Arg_Exc_WP;
1105: )
1106: THEN
1107: --create new mapping with l_wp_task_ver_id and l_fp_task_ver_id
1108: -- Call CREATE_MAPPING
1109: PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING(
1110: p_wp_task_version_id => l_wp_task_version_id
1111: , p_fp_task_version_id => l_fp_task_version_id
1112: , p_project_id => p_project_id
1113: , p_init_msg_list => FND_API.G_FALSE
1176: WHEN Invalid_Arg_Exc_WP THEN
1177:
1178: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1179: x_msg_count := Fnd_Msg_Pub.count_msg;
1180: x_msg_data := 'PA_PROJ_STRUC_MAPPING_PUB : UPDATE_MAPPING : Some parameters are NULL';
1181:
1182: IF ( p_commit = FND_API.G_TRUE ) THEN
1183: ROLLBACK TO UPDATE_MAPPING_PUBLIC;
1184: END IF;
1195: CLOSE c_get_fp_task_ver_id_frm_name;
1196: END IF;
1197:
1198: Fnd_Msg_Pub.add_exc_msg
1199: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
1200: , p_procedure_name => 'UPDATE_MAPPING'
1201: , p_error_text => x_msg_data);
1202:
1203: IF l_debug_mode = 'Y' THEN
1230: CLOSE c_get_wp_task_ver_id_frm_name;
1231: END IF;
1232:
1233: Fnd_Msg_Pub.add_exc_msg
1234: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
1235: , p_procedure_name => 'UPDATE_MAPPING'
1236: , p_error_text => x_msg_data);
1237:
1238: IF l_debug_mode = 'Y' THEN
1369: AND parent_structure_version_id = l_str_version_id
1370: AND proj_element_id = l_task_id
1371: AND pa_proj_element_versions.project_id = l_project_id;
1372:
1373: l_src_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1374: l_src_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1375:
1376: l_dest_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1377: l_dest_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1370: AND proj_element_id = l_task_id
1371: AND pa_proj_element_versions.project_id = l_project_id;
1372:
1373: l_src_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1374: l_src_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1375:
1376: l_dest_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1377: l_dest_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1378:
1372:
1373: l_src_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1374: l_src_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1375:
1376: l_dest_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1377: l_dest_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1378:
1379: l_from_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1380: l_to_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1373: l_src_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1374: l_src_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1375:
1376: l_dest_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1377: l_dest_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1378:
1379: l_from_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1380: l_to_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1381:
1375:
1376: l_dest_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1377: l_dest_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1378:
1379: l_from_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1380: l_to_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1381:
1382: l_from_dest_task_ver_id PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1383: l_to_dest_task_ver_id PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1376: l_dest_from_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1377: l_dest_to_tasks_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1378:
1379: l_from_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1380: l_to_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1381:
1382: l_from_dest_task_ver_id PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1383: l_to_dest_task_ver_id PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1384:
1378:
1379: l_from_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1380: l_to_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1381:
1382: l_from_dest_task_ver_id PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1383: l_to_dest_task_ver_id PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1384:
1385: BEGIN
1386:
1379: l_from_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1380: l_to_task_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJECT_ID_TABLE_TYPE;
1381:
1382: l_from_dest_task_ver_id PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1383: l_to_dest_task_ver_id PA_PROJ_STRUC_MAPPING_PUB.OBJECT_VERSION_ID_TABLE_TYPE;
1384:
1385: BEGIN
1386:
1387:
1396: p_debug_mode => l_debug_mode );
1397: END IF;
1398:
1399: IF l_debug_mode = 'Y' THEN
1400: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : COPY_MAPPING : Printing Input parameters';
1401: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1402: l_debug_level3);
1403: Pa_Debug.WRITE(g_module_name,'p_context'||p_context,l_debug_level3);
1404: Pa_Debug.WRITE(g_module_name,'p_src_project_id'||p_src_project_id,l_debug_level3);
1411: FND_MSG_PUB.initialize;
1412: END IF;
1413:
1414: IF l_debug_mode = 'Y' THEN
1415: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : COPY_MAPPING : Validating Input parameters';
1416: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1417: l_debug_level3);
1418: END IF;
1419:
1417: l_debug_level3);
1418: END IF;
1419:
1420: IF ( p_context IS NULL ) THEN
1421: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : COPY_MAPPING : p_context is mandatory and cant be null';
1422: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1423: l_debug_level3);
1424:
1425: RAISE Invalid_Arg_Exc_WP;
1433: OR ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM )
1434: OR ( p_src_project_id = p_dest_project_id )
1435: )
1436: THEN
1437: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : COPY_MAPPING : if p_context is Copy Project , both src and destination project id will be required';
1438: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1439: l_debug_level3);
1440:
1441: RAISE Invalid_Arg_Exc_WP;
1558: OR( p_dest_str_version_id IS NULL OR p_dest_str_version_id = FND_API.G_MISS_NUM )
1559: OR( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM )
1560: ) THEN
1561:
1562: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : COPY_MAPPING : if p_context is create_working_version,both src and destination str ver id will be required';
1563: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1564: l_debug_level3);
1565: RAISE Invalid_Arg_Exc_WP;
1566: END IF;
1688: WHEN Invalid_Arg_Exc_WP THEN
1689:
1690: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1691: x_msg_count := 1;
1692: x_msg_data := 'PA_PROJ_STRUC_MAPPING_PUB : COPY_MAPPING : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
1693:
1694: Fnd_Msg_Pub.add_exc_msg
1695: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
1696: , p_procedure_name => 'COPY_MAPPING'
1691: x_msg_count := 1;
1692: x_msg_data := 'PA_PROJ_STRUC_MAPPING_PUB : COPY_MAPPING : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
1693:
1694: Fnd_Msg_Pub.add_exc_msg
1695: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
1696: , p_procedure_name => 'COPY_MAPPING'
1697: , p_error_text => x_msg_data);
1698:
1699: IF l_debug_mode = 'Y' THEN
1711: x_msg_data := SQLERRM;
1712:
1713:
1714: Fnd_Msg_Pub.add_exc_msg
1715: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
1716: , p_procedure_name => 'COPY_MAPPING'
1717: , p_error_text => x_msg_data);
1718:
1719: IF l_debug_mode = 'Y' THEN
1767: l_debug_level3 CONSTANT NUMBER := 3;
1768: l_debug_level4 CONSTANT NUMBER := 4;
1769: l_debug_level5 CONSTANT NUMBER := 5;
1770: --Table to collect all the mapped financial task version id
1771: l_mapped_obj_rel_id_tbl PA_PROJ_STRUC_MAPPING_PUB.OBJ_REL_ID_TABLE_TYPE;
1772:
1773: --This cursor will give all mapped financial tasks and object_relationships_id for the passed project id.
1774: CURSOR c_get_fin_task_ver_id (l_project_id NUMBER)
1775: IS
1813: p_debug_mode => l_debug_mode );
1814: END IF;
1815:
1816: IF l_debug_mode = 'Y' THEN
1817: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_ALL_MAPPING : Printing Input parameters';
1818: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1819: l_debug_level3);
1820:
1821: Pa_Debug.WRITE(g_module_name,'p_project_id'||':'||p_project_id,
1830: savepoint DELETE_ALL_MAPPING_PUBLIC;
1831: END IF;
1832:
1833: IF l_debug_mode = 'Y' THEN
1834: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_ALL_MAPPING : Validating Input parameters';
1835: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1836: l_debug_level3);
1837: END IF;
1838:
1838:
1839: IF ( p_project_id IS NULL )
1840: THEN
1841: IF l_debug_mode = 'Y' THEN
1842: Pa_Debug.g_err_stage:= 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_ALL_MAPPING : p_project_id can not be null';
1843: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1844: l_debug_level3);
1845: END IF;
1846: RAISE Invalid_Arg_Exc_WP;
1899: WHEN Invalid_Arg_Exc_WP THEN
1900:
1901: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1902: x_msg_count := 1;
1903: --x_msg_data := 'PA_PROJ_STRUC_MAPPING_PUB : DELETE_ALL_MAPPING : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
1904:
1905: IF p_commit = FND_API.G_TRUE THEN
1906: ROLLBACK TO DELETE_ALL_MAPPING_PUBLIC;
1907: END IF;
1908: IF c_get_fin_task_ver_id%ISOPEN THEN
1909: CLOSE c_get_fin_task_ver_id;
1910: END IF;
1911: Fnd_Msg_Pub.add_exc_msg
1912: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
1913: , p_procedure_name => 'DELETE_ALL_MAPPING'
1914: , p_error_text => x_msg_data);
1915:
1916: IF l_debug_mode = 'Y' THEN
1935: CLOSE c_get_fin_task_ver_id;
1936: END IF;
1937:
1938: Fnd_Msg_Pub.add_exc_msg
1939: ( p_pkg_name => 'PA_PROJ_STRUC_MAPPING_PUB'
1940: , p_procedure_name => 'DELETE_ALL_MAPPING'
1941: , p_error_text => x_msg_data);
1942:
1943: IF l_debug_mode = 'Y' THEN
1948: END IF;
1949: RAISE;
1950: END DELETE_ALL_MAPPING ;
1951:
1952: END PA_PROJ_STRUC_MAPPING_PUB;