343: x_task_id OUT NOCOPY NUMBER
344: );
345:
346: -- To sort a table of Project Tasks by their display_sequence.
347: PROCEDURE Sort_Task_Table (p_x_task_tbl IN OUT NOCOPY PA_PROJECT_PUB.TASK_IN_TBL_TYPE);
348:
349: -- PRAKKUM :: PIE :: 13-OCT-2010 :: END
350:
351: -- salogan added for supplier warranty starts
1170: -- change end
1171: IF (l_log_statement >= l_log_current_level) THEN
1172: fnd_log.string(l_log_statement,
1173: L_DEBUG_KEY,
1174: 'Before calling PA_PROJECT_PUB.CHECK_UNIQUE_TASK_NUMBER.');
1175: fnd_log.string(l_log_statement,
1176: L_DEBUG_KEY,
1177: 'p_project_id = ' || c_visit_rec.project_id);
1178: fnd_log.string(l_log_statement,
1182: L_DEBUG_KEY,
1183: 'p_task_number = ' || c_task_rec.visit_task_number);
1184: END IF;
1185:
1186: PA_PROJECT_PUB.Check_Unique_Task_Number
1187: ( p_api_version_number => 1,
1188: p_init_msg_list => l_init_msg_list,
1189: p_return_status => l_return_status,
1190: p_msg_count => l_msg_count,
1197:
1198: IF (l_log_statement >= l_log_current_level) THEN
1199: fnd_log.string(l_log_statement,
1200: L_DEBUG_KEY,
1201: 'After calling PA_PROJECT_PUB.check_unique_task_number. p_unique_task_number_flag = ' ||
1202: l_project_tsk_flag || ' Return Status = ' || l_return_status);
1203: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1204: fnd_log.string(l_log_statement,
1205: L_DEBUG_KEY,
1202: l_project_tsk_flag || ' Return Status = ' || l_return_status);
1203: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1204: fnd_log.string(l_log_statement,
1205: L_DEBUG_KEY,
1206: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
1207: l_msg_count || ', message data: ' || l_msg_data);
1208: END IF;
1209: fnd_log.string(l_log_statement,
1210: L_DEBUG_KEY,
1207: l_msg_count || ', message data: ' || l_msg_data);
1208: END IF;
1209: fnd_log.string(l_log_statement,
1210: L_DEBUG_KEY,
1211: 'Before calling PA_PROJECT_PUB.check_unique_task_reference.');
1212: END IF;
1213:
1214: PA_PROJECT_PUB.Check_Unique_Task_Reference
1215: (p_api_version_number => 1,
1210: L_DEBUG_KEY,
1211: 'Before calling PA_PROJECT_PUB.check_unique_task_reference.');
1212: END IF;
1213:
1214: PA_PROJECT_PUB.Check_Unique_Task_Reference
1215: (p_api_version_number => 1,
1216: p_init_msg_list => l_init_msg_list,
1217: p_return_status => l_return_status,
1218: p_msg_count => l_msg_count,
1230: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1231: IF (l_log_statement >= l_log_current_level) THEN
1232: fnd_log.string(l_log_statement,
1233: L_DEBUG_KEY,
1234: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
1235: l_msg_count || ', message data: ' || l_msg_data);
1236: END IF;
1237: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1238: RAISE FND_API.G_EXC_ERROR;
1242: END IF;
1243:
1244: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
1245: IF (l_log_statement >= l_log_current_level) THEN
1246: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK..');
1247: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=: ' || c_task_rec.PROJECT_ID);
1248: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=: ' || c_task_rec.VISIT_NUMBER);
1249: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=: ' || c_task_rec.VISIT_TASK_NUMBER);
1250: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=: ' || c_task_rec.VISIT_TASK_NAME);
1250: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=: ' || c_task_rec.VISIT_TASK_NAME);
1251: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=: ' || c_task_rec.DESCRIPTION);
1252: END IF;
1253:
1254: PA_PROJECT_PUB.ADD_TASK
1255: (p_api_version_number => 1
1256: ,p_commit => l_commit
1257: ,p_init_msg_list => l_init_msg_list
1258: ,p_msg_count => l_msg_count
1279: ,p_task_id => l_task_id
1280: );
1281:
1282: IF (l_log_statement >= l_log_current_level) THEN
1283: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.ADD_TASK - l_return_status = '||l_return_status);
1284: END IF;
1285:
1286: IF (l_return_status <> 'S') THEN
1287: IF (fnd_msg_pub.count_msg > 0 ) THEN
1504: END IF;
1505:
1506: IF l_chk_project = 'Y' THEN
1507: IF (l_log_statement >= l_log_current_level) THEN
1508: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.CHECK_DELETE_TASK_OK');
1509: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.PROJECT_ID - '|| c_visit_rec.PROJECT_ID);
1510: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.visit_number - '|| c_visit_rec.visit_number);
1511: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_TASK_ID - '|| c_task_rec.PROJECT_TASK_ID);
1512: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER - '|| c_task_rec.VISIT_TASK_NUMBER);
1513: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.status_code - '|| c_task_rec.status_code);
1514: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_del_task_flag - '|| l_del_task_flag);
1515: END IF;
1516:
1517: PA_PROJECT_PUB.CHECK_DELETE_TASK_OK
1518: ( p_api_version_number => 1
1519: , p_init_msg_list => l_init_msg_list
1520: , p_return_status => l_return_status
1521: , p_msg_count => l_msg_count
1529:
1530: IF (l_log_statement >= l_log_current_level) THEN
1531: fnd_log.string(l_log_statement,
1532: L_DEBUG_KEY,
1533: 'After calling PA_PROJECT_PUB.check_delete_task_ok. Return Status = ' ||
1534: l_return_status || ', delete task flag = ' || l_del_task_flag);
1535: END IF;
1536:
1537: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1537: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1538: IF (l_log_statement >= l_log_current_level) THEN
1539: fnd_log.string(l_log_statement,
1540: L_DEBUG_KEY,
1541: 'Errors from PA_PROJECT_PUB.check_delete_task_ok. Message count: ' ||
1542: l_msg_count || ', message data: ' || l_msg_data);
1543: END IF;
1544: x_return_status := l_return_status;
1545: RAISE FND_API.G_EXC_ERROR;
1547: IF l_del_task_flag = 'Y' THEN
1548: IF (l_log_statement >= l_log_current_level) THEN
1549: fnd_log.string(l_log_statement,
1550: L_DEBUG_KEY,
1551: 'Before calling PA_PROJECT_PUB.delete_task.');
1552: fnd_log.string(l_log_statement,
1553: L_DEBUG_KEY,
1554: 'c_task_rec.task_type_code --@>'||c_task_rec.task_type_code);
1555: END IF;
1567: ( p_visit_id => c_visit_rec.visit_id,
1568: x_new_structure_flag => l_new_structure_flag
1569: );
1570:
1571: PA_PROJECT_PUB.DELETE_TASK
1572: ( p_api_version_number => 1
1573: ,p_commit => l_commit
1574: ,p_init_msg_list => l_init_msg_list
1575: ,p_msg_count => l_msg_count
1587:
1588: IF (l_log_statement >= l_log_current_level) THEN
1589: fnd_log.string(l_log_statement,
1590: L_DEBUG_KEY,
1591: 'After calling PA_PROJECT_PUB.delete_task. Return Status = ' ||
1592: l_return_status);
1593: END IF;
1594:
1595: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1596: IF (l_log_statement >= l_log_current_level) THEN
1597: fnd_log.string(l_log_statement,
1598: L_DEBUG_KEY,
1599: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
1600: l_msg_count || ', message data: ' || l_msg_data);
1601: END IF;
1602: x_return_status := Fnd_Api.g_ret_sts_error;
1603: RAISE FND_API.G_EXC_ERROR;
1623: L_DEBUG_KEY,
1624: 'Deleting rollup task');
1625: fnd_log.string(l_log_statement,
1626: L_DEBUG_KEY,
1627: 'Before calling PA_PROJECT_PUB.delete_task.');
1628: END IF;
1629:
1630: PA_PROJECT_PUB.DELETE_TASK
1631: ( p_api_version_number => 1
1626: L_DEBUG_KEY,
1627: 'Before calling PA_PROJECT_PUB.delete_task.');
1628: END IF;
1629:
1630: PA_PROJECT_PUB.DELETE_TASK
1631: ( p_api_version_number => 1
1632: ,p_commit => l_commit
1633: ,p_init_msg_list => l_init_msg_list
1634: ,p_msg_count => l_msg_count
1646:
1647: IF (l_log_statement >= l_log_current_level) THEN
1648: fnd_log.string(l_log_statement,
1649: L_DEBUG_KEY,
1650: 'After calling PA_PROJECT_PUB.delete_task. Return Status = ' ||
1651: l_return_status);
1652: END IF;
1653:
1654: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1654: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1655: IF (l_log_statement >= l_log_current_level) THEN
1656: fnd_log.string(l_log_statement,
1657: L_DEBUG_KEY,
1658: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
1659: l_msg_count || ', message data: ' || l_msg_data);
1660: END IF;
1661: x_return_status := Fnd_Api.g_ret_sts_error;
1662: RAISE FND_API.G_EXC_ERROR;
1715: TYPE Ref_Tbl_Type IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
1716: l_id_ref_map_Tbl Ref_Tbl_Type;
1717:
1718: -- Define local table and record datatypes
1719: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
1720: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
1721: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
1722: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
1723: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
1716: l_id_ref_map_Tbl Ref_Tbl_Type;
1717:
1718: -- Define local table and record datatypes
1719: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
1720: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
1721: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
1722: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
1723: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
1724: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
1717:
1718: -- Define local table and record datatypes
1719: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
1720: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
1721: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
1722: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
1723: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
1724: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
1725: -- Post 11.5.10
1718: -- Define local table and record datatypes
1719: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
1720: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
1721: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
1722: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
1723: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
1724: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
1725: -- Post 11.5.10
1726: -- RROY
1719: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
1720: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
1721: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
1722: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
1723: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
1724: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
1725: -- Post 11.5.10
1726: -- RROY
1727: l_param_data PJM_PROJECT_PARAM_PUB.ParamRecType;
1720: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
1721: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
1722: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
1723: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
1724: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
1725: -- Post 11.5.10
1726: -- RROY
1727: l_param_data PJM_PROJECT_PARAM_PUB.ParamRecType;
1728: -- yazhou 26Sept2005 starts
2119: IF l_chk_project = 'Y' THEN
2120: IF (l_log_statement >= l_log_current_level) THEN
2121: fnd_log.string(l_log_statement,
2122: L_DEBUG_KEY,
2123: 'Before calling PA_PROJECT_PUB.check_unique_project_reference to check for ' || l_project_num_prefix || c_visit_rec.visit_number);
2124: END IF;
2125:
2126: PA_PROJECT_PUB.Check_Unique_Project_Reference(
2127: p_api_version_number => 1,
2122: L_DEBUG_KEY,
2123: 'Before calling PA_PROJECT_PUB.check_unique_project_reference to check for ' || l_project_num_prefix || c_visit_rec.visit_number);
2124: END IF;
2125:
2126: PA_PROJECT_PUB.Check_Unique_Project_Reference(
2127: p_api_version_number => 1,
2128: p_init_msg_list => l_init_msg_list,
2129: p_return_status => l_return_status,
2130: p_msg_count => l_msg_count,
2136:
2137: IF (l_log_statement >= l_log_current_level) THEN
2138: fnd_log.string(l_log_statement,
2139: L_DEBUG_KEY,
2140: 'Returned from PA_PROJECT_PUB.check_unique_project_reference: p_unique_project_ref_flag = ' || l_project_flag || ', Return Status = ' || l_return_status );
2141: END IF;
2142:
2143: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2144: IF (l_log_statement >= l_log_current_level) THEN
2143: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2144: IF (l_log_statement >= l_log_current_level) THEN
2145: fnd_log.string(l_log_statement,
2146: L_DEBUG_KEY,
2147: 'Errors from PA_PROJECT_PUB.check_unique_project_reference. Message count: ' ||
2148: l_msg_count || ', message data: ' || l_msg_data);
2149: END IF;
2150: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2151: RAISE FND_API.G_EXC_ERROR;
2157: IF l_project_flag = 'Y' THEN
2158: IF (l_log_statement >= l_log_current_level) THEN
2159: fnd_log.string(l_log_statement,
2160: L_DEBUG_KEY,
2161: 'Before calling PA_PROJECT_PUB.create_project');
2162: END IF;
2163:
2164: PA_PROJECT_PUB.CREATE_PROJECT
2165: (p_api_version_number => 1,
2160: L_DEBUG_KEY,
2161: 'Before calling PA_PROJECT_PUB.create_project');
2162: END IF;
2163:
2164: PA_PROJECT_PUB.CREATE_PROJECT
2165: (p_api_version_number => 1,
2166: p_commit => l_commit,
2167: p_init_msg_list => l_init_msg_list,
2168: p_msg_count => l_msg_count,
2180:
2181: IF (l_log_statement >= l_log_current_level) THEN
2182: fnd_log.string(l_log_statement,
2183: L_DEBUG_KEY,
2184: 'After calling PA_PROJECT_PUB.create_project. Project_Id = ' ||
2185: l_project_out.pa_project_id || ' Return Status = ' || x_return_status);
2186: END IF;
2187:
2188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2189: IF (l_log_statement >= l_log_current_level) THEN
2190: fnd_log.string(l_log_statement,
2191: L_DEBUG_KEY,
2192: 'Errors from PA_PROJECT_PUB.create_project. Message count: ' ||
2193: l_msg_count || ', message data: ' || l_msg_data);
2194: END IF;
2195: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2196: RAISE FND_API.G_EXC_ERROR;
2373: l_msg_data VARCHAR2(2000);
2374: G_EXC_ERROR EXCEPTION;
2375:
2376: -- Define local table and record datatypes
2377: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
2378: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
2379: l_param_data PJM_PROJECT_PARAM_PUB.ParamRecType;
2380: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2381: l_op_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2374: G_EXC_ERROR EXCEPTION;
2375:
2376: -- Define local table and record datatypes
2377: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
2378: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
2379: l_param_data PJM_PROJECT_PARAM_PUB.ParamRecType;
2380: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2381: l_op_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2382: l_display_seq NUMBER;
2376: -- Define local table and record datatypes
2377: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
2378: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
2379: l_param_data PJM_PROJECT_PARAM_PUB.ParamRecType;
2380: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2381: l_op_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2382: l_display_seq NUMBER;
2383: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
2384: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
2377: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
2378: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
2379: l_param_data PJM_PROJECT_PARAM_PUB.ParamRecType;
2380: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2381: l_op_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2382: l_display_seq NUMBER;
2383: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
2384: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
2385: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
2379: l_param_data PJM_PROJECT_PARAM_PUB.ParamRecType;
2380: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2381: l_op_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2382: l_display_seq NUMBER;
2383: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
2384: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
2385: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
2386:
2387: -- yazhou 26Sept2005 starts
2380: l_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2381: l_op_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2382: l_display_seq NUMBER;
2383: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
2384: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
2385: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
2386:
2387: -- yazhou 26Sept2005 starts
2388: -- ER#4618348
2381: l_op_task_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
2382: l_display_seq NUMBER;
2383: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
2384: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
2385: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
2386:
2387: -- yazhou 26Sept2005 starts
2388: -- ER#4618348
2389: -- l_project_name_prefix VARCHAR2(10);
3593: -- Need to update proejct for
3594: IF c_visit_rec.PROJECT_ID IS NOT NULL THEN
3595: IF (l_log_statement >= l_log_current_level) THEN
3596: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Project ID = ' || c_visit_rec.PROJECT_ID);
3597: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.UPDATE_PROJECT');
3598: END IF;
3599:
3600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3601: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'l_task_in.COUNT --@>'||l_task_in.COUNT);
3617: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'End of Project Tasks');
3618: END IF;
3619: END IF;
3620:
3621: PA_PROJECT_PUB.UPDATE_PROJECT
3622: (p_api_version_number => 1,
3623: p_commit => l_commit,
3624: p_init_msg_list => l_init_msg_list,
3625: p_msg_count => l_msg_count,
3636: p_pass_entire_structure => l_pass_entire_structure
3637: ); -- PRAKKUM :: FP:PIE :: 13-OCT-2010 ::
3638:
3639: IF (l_log_statement >= l_log_current_level) THEN
3640: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.UPDATE_PROJECT - l_return_status = '||l_return_status);
3641: END IF;
3642:
3643: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3644: IF (l_log_statement >= l_log_current_level) THEN
3641: END IF;
3642:
3643: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3644: IF (l_log_statement >= l_log_current_level) THEN
3645: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.UPDATE_PROJECT - l_msg_count = '||l_msg_count);
3646: END IF;
3647: RAISE Fnd_Api.g_exc_error;
3648: END IF;
3649:
3937: Fnd_Msg_Pub.ADD;
3938: RAISE Fnd_Api.G_EXC_ERROR;
3939: ELSE
3940: IF (l_log_statement >= l_log_current_level) THEN
3941: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling : PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK');
3942: END IF;
3943:
3944: PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK
3945: ( p_api_version_number => 1
3940: IF (l_log_statement >= l_log_current_level) THEN
3941: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling : PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK');
3942: END IF;
3943:
3944: PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK
3945: ( p_api_version_number => 1
3946: , p_init_msg_list => l_init_msg_list
3947: , p_return_status => l_return_status
3948: , p_msg_count => l_msg_count
3952: , p_delete_project_ok_flag => l_del_proj_flag
3953: );
3954:
3955: IF (l_log_statement >= l_log_current_level) THEN
3956: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK - l_return_status = '||l_return_status);
3957: END IF;
3958:
3959: IF l_return_status <> 'S' THEN
3960: RAISE G_EXC_ERROR;
3965: END IF;
3966:
3967: IF l_del_proj_flag = 'Y' THEN
3968: IF (l_log_statement >= l_log_current_level) THEN
3969: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.DELETE_PROJECT');
3970: END IF;
3971:
3972: PA_PROJECT_PUB.DELETE_PROJECT
3973: ( p_api_version_number => 1
3968: IF (l_log_statement >= l_log_current_level) THEN
3969: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.DELETE_PROJECT');
3970: END IF;
3971:
3972: PA_PROJECT_PUB.DELETE_PROJECT
3973: ( p_api_version_number => 1
3974: ,p_commit => l_commit
3975: ,p_init_msg_list => l_init_msg_list
3976: ,p_msg_count => l_msg_count
3981: ,p_pa_project_id => c_visit_rec.PROJECT_ID
3982: );
3983:
3984: IF (l_log_statement >= l_log_current_level) THEN
3985: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.DELETE_PROJECT - l_return_status = '||l_return_status);
3986: END IF;
3987:
3988: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3989: IF (l_log_statement >= l_log_current_level) THEN
3986: END IF;
3987:
3988: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3989: IF (l_log_statement >= l_log_current_level) THEN
3990: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.DELETE_PROJECT API : '|| x_msg_count );
3991: END IF;
3992: RAISE Fnd_Api.g_exc_error;
3993: END IF;
3994: END IF;
12638: x_msg_data OUT NOCOPY VARCHAR2
12639: )
12640: AS
12641:
12642: l_task_in_tbl PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
12643: task_index NUMBER;
12644: idx NUMBER;
12645: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
12646: L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Project_Task_Times';
12641:
12642: l_task_in_tbl PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
12643: task_index NUMBER;
12644: idx NUMBER;
12645: l_project_rec PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
12646: L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Project_Task_Times';
12647: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
12648: l_msg_count NUMBER;
12649: l_msg_data VARCHAR2(2000);
12647: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
12648: l_msg_count NUMBER;
12649: l_msg_data VARCHAR2(2000);
12650: l_return_status VARCHAR2(1);
12651: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
12652: l_workflow_started VARCHAR2(1);
12653: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
12654: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
12655: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
12649: l_msg_data VARCHAR2(2000);
12650: l_return_status VARCHAR2(1);
12651: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
12652: l_workflow_started VARCHAR2(1);
12653: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
12654: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
12655: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
12656:
12657: -- Added by jaramana on 23-OCT-2009 for the WBS ER 8674208
12650: l_return_status VARCHAR2(1);
12651: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
12652: l_workflow_started VARCHAR2(1);
12653: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
12654: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
12655: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
12656:
12657: -- Added by jaramana on 23-OCT-2009 for the WBS ER 8674208
12658: -- and to fix the bug 9047048
12651: l_task_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
12652: l_workflow_started VARCHAR2(1);
12653: l_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
12654: l_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
12655: l_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
12656:
12657: -- Added by jaramana on 23-OCT-2009 for the WBS ER 8674208
12658: -- and to fix the bug 9047048
12659: l_is_wp_separate_from_fn VARCHAR2(1);
12903: --rnahata End
12904: IF (l_log_statement >= l_log_current_level) THEN
12905: fnd_log.string(l_log_statement,
12906: L_DEBUG_KEY,
12907: 'Before calling PA_PROJECT_PUB.update_project');
12908: END IF;
12909:
12910: --Now call update_project api to update the values in projects table
12911: PA_PROJECT_PUB.UPDATE_PROJECT(
12907: 'Before calling PA_PROJECT_PUB.update_project');
12908: END IF;
12909:
12910: --Now call update_project api to update the values in projects table
12911: PA_PROJECT_PUB.UPDATE_PROJECT(
12912: p_api_version_number => 1,
12913: p_commit => p_commit,
12914: p_msg_count => l_msg_count,
12915: p_msg_data => l_msg_data,
12927:
12928: IF (l_log_statement >= l_log_current_level) THEN
12929: fnd_log.string(l_log_statement,
12930: L_DEBUG_KEY,
12931: 'After calling PA_PROJECT_PUB.update_project. Return Status = ' || l_return_status);
12932: END IF;
12933: x_return_status := l_return_status;
12934:
12935: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12935: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12936: IF (l_log_statement >= l_log_current_level) THEN
12937: fnd_log.string(l_log_statement,
12938: L_DEBUG_KEY,
12939: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
12940: l_msg_count || ', message data: ' || l_msg_data);
12941: END IF;
12942: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12943: RAISE FND_API.G_EXC_ERROR;
13587: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
13588: fnd_log.string(fnd_log.level_procedure,L_DEBUG_KEY||'.begin', 'At the start of plsql procedure.');
13589: END IF;
13590:
13591: PA_PROJECT_PUB.Check_Unique_Task_Number(
13592: p_api_version_number => 1,
13593: p_init_msg_list => 'F',
13594: p_return_status => l_return_status,
13595: p_msg_count => l_msg_count,
13599: p_task_number => p_task_number,
13600: p_unique_task_number_flag => l_project_tsk_flag) ;
13601:
13602: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
13603: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling PA_PROJECT_PUB.Check_Unique_Task_Number - l_project_tsk_flag : '|| l_project_tsk_flag);
13604: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'Before calling PA_PROJECT_PUB.Check_Unique_Task_Reference');
13605: END IF;
13606:
13607: PA_PROJECT_PUB.Check_Unique_Task_Reference(
13600: p_unique_task_number_flag => l_project_tsk_flag) ;
13601:
13602: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
13603: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling PA_PROJECT_PUB.Check_Unique_Task_Number - l_project_tsk_flag : '|| l_project_tsk_flag);
13604: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'Before calling PA_PROJECT_PUB.Check_Unique_Task_Reference');
13605: END IF;
13606:
13607: PA_PROJECT_PUB.Check_Unique_Task_Reference(
13608: p_api_version_number => 1,
13603: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling PA_PROJECT_PUB.Check_Unique_Task_Number - l_project_tsk_flag : '|| l_project_tsk_flag);
13604: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'Before calling PA_PROJECT_PUB.Check_Unique_Task_Reference');
13605: END IF;
13606:
13607: PA_PROJECT_PUB.Check_Unique_Task_Reference(
13608: p_api_version_number => 1,
13609: p_init_msg_list => 'F',
13610: p_return_status => l_return_status,
13611: p_msg_count => l_msg_count,
13615: p_pm_task_reference => p_task_reference,
13616: p_unique_task_ref_flag => l_proj_ref_flag);
13617:
13618: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
13619: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling PA_PROJECT_PUB.Check_Unique_Task_Reference - l_proj_ref_flag = ' || l_proj_ref_flag);
13620: END IF;
13621:
13622: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
13623: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
13620: END IF;
13621:
13622: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
13623: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
13624: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'Before calling PA_PROJECT_PUB.ADD_TASK:');
13625: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'p_project_id: ' || p_project_id);
13626: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'p_project_number :' || p_project_number);
13627: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'p_task_number: ' || p_task_number);
13628: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'p_task_name: ' || p_task_name);
13629: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'p_task_description: ' || p_task_description);
13630: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'p_parent_task_reference: ' || p_parent_task_reference);
13631: END IF;
13632:
13633: PA_PROJECT_PUB.ADD_TASK(
13634: p_api_version_number => 1
13635: ,p_commit => 'F'
13636: ,p_init_msg_list => 'F'
13637: ,p_msg_count => l_msg_count
13652: ,p_pa_project_number_out => l_pa_project_number_out
13653: ,p_task_id => l_task_id);
13654:
13655: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
13656: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling PA_PROJECT_PUB.ADD_TASK, l_return_status: ' || l_return_status ||
13657: ', Returned Task Id: ' || l_task_id);
13658: END IF;
13659: x_return_status := l_return_status ;
13660:
13813: END IF; --cost parent is null
13814: CLOSE get_prj_tsk_details_csr;
13815:
13816:
13817: PA_PROJECT_PUB.UPDATE_TASK(
13818: p_api_version_number => 1,
13819: p_commit => 'F',
13820: p_init_msg_list => 'F',
13821: p_msg_count => l_msg_count,
13830: p_update_task_structure => l_update_task_structure);
13831:
13832:
13833: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
13834: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling PA_PROJECT_PUB.ADD_TASK, l_return_status: ' || l_return_status ||
13835: ', Returned Task Id: ' || l_out_pa_task_id ||
13836: ', Returned Task Reference: ' || l_out_pm_task_reference);
13837: END IF;
13838: x_return_status := l_return_status ;
13840: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13841: IF (l_log_statement >= l_log_current_level) THEN
13842: fnd_log.string(l_log_statement,
13843: L_DEBUG_KEY,
13844: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
13845: l_msg_count || ', message data: ' || l_msg_data);
13846: END IF;
13847: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13848: RAISE FND_API.G_EXC_ERROR;
14053:
14054: END Use_New_Task_Structure;
14055:
14056: -- To sort a table of Project Tasks by their display_sequence. Nulls are treated as 99999999.
14057: PROCEDURE Sort_Task_Table (p_x_task_tbl IN OUT NOCOPY PA_PROJECT_PUB.TASK_IN_TBL_TYPE) IS
14058: L_API_NAME CONSTANT VARCHAR2(30) := 'Sort_Task_Table';
14059: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
14060: L_DEBUG CONSTANT VARCHAR2(100) := 'ahl.plsql.' || L_FULL_NAME;
14061: l_temp_rec PA_PROJECT_PUB.TASK_IN_REC_TYPE;
14057: PROCEDURE Sort_Task_Table (p_x_task_tbl IN OUT NOCOPY PA_PROJECT_PUB.TASK_IN_TBL_TYPE) IS
14058: L_API_NAME CONSTANT VARCHAR2(30) := 'Sort_Task_Table';
14059: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
14060: L_DEBUG CONSTANT VARCHAR2(100) := 'ahl.plsql.' || L_FULL_NAME;
14061: l_temp_rec PA_PROJECT_PUB.TASK_IN_REC_TYPE;
14062: BEGIN
14063: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
14064: fnd_log.string(fnd_log.level_procedure, L_DEBUG||'.begin', 'At the start of plsql procedure. p_x_task_tbl.COUNT = ' || p_x_task_tbl.COUNT);
14065: END IF;