33: -- 13-Sep-2004 SJAYACHA Commented call to update_project as this
34: -- needs to be done before deleting the Visit.
35: -- 02-NOV-2007 RBHAVSAR Added PROCEDURE level logs when entering and exiting a procedure.
36: -- Returned the status before returning from the procedure.
37: -- Replaced all fnd_log.level_procedure with STATEMENT
38: -- level logs and added more STATEMENT level logs at
39: -- key decision points.
40: -- 18-FEB-2010 MANISAGA Added attribute for DFF enablement and Route_id for navigation
41: -- to route page
46: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
47: -----------------------------------------------------------------
48: -- Common constants and variables --
49: ------------------------------------
50: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
51: l_log_statement NUMBER := fnd_log.level_statement;
52: l_log_procedure NUMBER := fnd_log.level_procedure;
53: l_log_error NUMBER := fnd_log.level_error;
54: l_log_unexpected NUMBER := fnd_log.level_unexpected;
47: -----------------------------------------------------------------
48: -- Common constants and variables --
49: ------------------------------------
50: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
51: l_log_statement NUMBER := fnd_log.level_statement;
52: l_log_procedure NUMBER := fnd_log.level_procedure;
53: l_log_error NUMBER := fnd_log.level_error;
54: l_log_unexpected NUMBER := fnd_log.level_unexpected;
55: ---------------------------------------------------------------------
48: -- Common constants and variables --
49: ------------------------------------
50: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
51: l_log_statement NUMBER := fnd_log.level_statement;
52: l_log_procedure NUMBER := fnd_log.level_procedure;
53: l_log_error NUMBER := fnd_log.level_error;
54: l_log_unexpected NUMBER := fnd_log.level_unexpected;
55: ---------------------------------------------------------------------
56: -- Define Record Types for record structures needed by the APIs --
49: ------------------------------------
50: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
51: l_log_statement NUMBER := fnd_log.level_statement;
52: l_log_procedure NUMBER := fnd_log.level_procedure;
53: l_log_error NUMBER := fnd_log.level_error;
54: l_log_unexpected NUMBER := fnd_log.level_unexpected;
55: ---------------------------------------------------------------------
56: -- Define Record Types for record structures needed by the APIs --
57: ---------------------------------------------------------------------
50: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
51: l_log_statement NUMBER := fnd_log.level_statement;
52: l_log_procedure NUMBER := fnd_log.level_procedure;
53: l_log_error NUMBER := fnd_log.level_error;
54: l_log_unexpected NUMBER := fnd_log.level_unexpected;
55: ---------------------------------------------------------------------
56: -- Define Record Types for record structures needed by the APIs --
57: ---------------------------------------------------------------------
58: -- NO RECORD TYPES
298: L_API_NAME CONSTANT VARCHAR2(30) := 'Get_WorkOrder_Attribs';
299: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
300: BEGIN
301: IF (l_log_procedure >= l_log_current_level) THEN
302: fnd_log.string(l_log_procedure,
303: L_DEBUG_KEY ||'.begin',
304: 'At the start of PL SQL procedure.' ||
305: ' p_x_prd_workorder_rec.workorder_id : ' || p_x_prd_workorder_rec.workorder_id);
306: END IF;
333: p_x_prd_workorder_rec.PROJECT_TASK_ID :=l_prd_workorder_rec.PROJECT_TASK_ID;
334: p_x_prd_workorder_rec.INCIDENT_ID :=l_prd_workorder_rec.INCIDENT_ID;
335:
336: IF (l_log_procedure >= l_log_current_level) THEN
337: fnd_log.string(l_log_procedure,
338: L_DEBUG_KEY ||'.end',
339: 'At the end of PL SQL procedure.');
340: END IF;
341: END Get_WorkOrder_Attribs;
348: L_API_NAME CONSTANT VARCHAR2(30) := 'Default_Missing_Attribs';
349: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
350: BEGIN
351: IF (l_log_procedure >= l_log_current_level) THEN
352: fnd_log.string(l_log_procedure,
353: L_DEBUG_KEY ||'.begin',
354: 'At the start of PL SQL procedure.');
355: END IF;
356: IF p_x_task_rec.DURATION = Fnd_Api.G_MISS_NUM THEN
424: p_x_task_rec.TARGET_QTY := NULL;
425: END IF;
426: --
427: IF (l_log_procedure >= l_log_current_level) THEN
428: fnd_log.string(l_log_procedure,
429: L_DEBUG_KEY ||'.end',
430: 'At the end of PL SQL procedure.');
431: END IF;
432:
978: -- salogan added for supplier warranty ends
979:
980: BEGIN
981: IF (l_log_procedure >= l_log_current_level) THEN
982: fnd_log.string(l_log_procedure,
983: L_DEBUG_KEY ||'.begin',
984: 'At the start of PL SQL procedure.' ||
985: ', p_task_id = ' || p_task_id);
986: END IF;
1044: CLOSE c_visit;
1045:
1046: -- For Debug Messages
1047: IF (l_log_statement >= l_log_current_level) THEN
1048: fnd_log.string(l_log_statement,
1049: L_DEBUG_KEY,
1050: ': task id = ' || p_task_id ||
1051: ': version, task name, task number = ' || c_task_data_rec.object_version_number || '---' || c_task_rec.task_name || '---' || c_task_rec.task_number ||
1052: ': item id, org id, itemname = ' || c_task_rec.item_id || '-' || c_task_rec.item_organization_id || '-' || c_task_rec.item_name ||
1149: END IF;
1150:
1151: -- For Debug Messages
1152: IF (l_log_statement >= l_log_current_level) THEN
1153: fnd_log.string(l_log_statement,
1154: L_DEBUG_KEY,
1155: 'l_origin_num = ' || l_origin_num ||
1156: 'l_parent_num = ' || l_parent_num ||
1157: 'l_task_start_date = ' || l_task_start_date ||
1165: FETCH c_warranty_record INTO c_warranty_rec;
1166: CLOSE c_warranty_record;
1167:
1168: IF (l_log_statement >= l_log_current_level) THEN
1169: fnd_log.string(l_log_statement,
1170: L_DEBUG_KEY,
1171: ': task id = ' || p_task_id ||
1172: ': WARRANTY ENTITLEMENT ID, MEANING ENTITLEMENT STATUS , ENTITLEMENT STATUS CODE = ' || c_warranty_rec.WARRANTY_ENTITLEMENT_ID || '-' || c_warranty_rec.ENTITLEMENT_STATUS || '-' || c_warranty_rec.ENTITLEMENT_STATUS_CODE ||
1173: ': CONTRACT NUMBER, CLAIM NAME, CLAIM STATUS , CLAIM STATUS CODE = ' || c_warranty_rec.CONTRACT_NUMBER || '-' || c_warranty_rec.CLAIM_NAME || '-' || c_warranty_rec.CLAIM_STATUS || '-' || c_warranty_rec.CLAIM_STATUS_CODE ||
1292: END IF;
1293:
1294: -- Debug info.
1295: IF (l_log_procedure >= l_log_current_level) THEN
1296: fnd_log.string(l_log_procedure,
1297: L_DEBUG_KEY ||'.end',
1298: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1299: END IF;
1300: EXCEPTION
1384: --Kasridha:Changes for Component Maintenance Planning Ends
1385:
1386: BEGIN
1387: IF (l_log_procedure >= l_log_current_level) THEN
1388: fnd_log.string(l_log_procedure,
1389: L_DEBUG_KEY ||'.begin',
1390: 'At the start of PL SQL procedure.');
1391: END IF;
1392:
1416: FETCH c_visit INTO c_visit_rec;
1417: CLOSE c_visit;
1418:
1419: IF (l_log_statement >= l_log_current_level) THEN
1420: fnd_log.string(l_log_statement,
1421: L_DEBUG_KEY,
1422: 'Visit Id = ' || c_visit_rec.visit_id ||
1423: ', Status Code = ' || c_visit_rec.status_code);
1424: END IF;
1463: AHL_VWP_RULES_PVT.Validate_Past_Task_Dates ( p_task_rec => l_Task_rec,
1464: x_return_status => l_return_status);
1465: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1466: IF (l_log_statement >= l_log_current_level) THEN
1467: fnd_log.string(l_log_statement,
1468: L_DEBUG_KEY,
1469: 'Returned success from AHL_VWP_RULES_PVT.Validate_Past_Task_Dates');
1470: END IF;
1471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1495: RAISE Fnd_Api.G_EXC_ERROR;
1496: ELSE
1497: IF l_task_rec.task_type_code = 'SUMMARY' THEN
1498: IF (l_log_statement >= l_log_current_level) THEN
1499: fnd_log.string(l_log_statement,
1500: L_DEBUG_KEY,
1501: 'Before Calling to Create_Summary_Task, TASK TYPE = ' || l_task_rec.task_type_code);
1502: END IF;
1503: Create_Summary_Task
1513: x_msg_data => l_msg_data
1514: );
1515:
1516: IF (l_log_statement >= l_log_current_level) THEN
1517: fnd_log.string(l_log_statement,
1518: L_DEBUG_KEY,
1519: 'After Calling Create_Summary_Task' ||
1520: ', TASK ID = ' || l_task_rec.visit_task_id ||
1521: ', TASK NUMBER = ' || l_task_rec.visit_task_number ||
1526: p_x_task_rec.Visit_Task_Number := l_task_rec.Visit_Task_Number;
1527: ELSIF l_task_rec.task_type_code = 'PLANNED' THEN
1528: -- Call AHL_VWP_PLAN_TASKS_PVT
1529: IF (l_log_statement >= l_log_current_level) THEN
1530: fnd_log.string(l_log_statement,
1531: L_DEBUG_KEY,
1532: 'Before Calling to AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task, TASK TYPE = ' || l_task_rec.task_type_code);
1533: END IF;
1534: AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task (
1542: x_msg_count => l_msg_count,
1543: x_msg_data => l_msg_data
1544: );
1545: IF (l_log_statement >= l_log_current_level) THEN
1546: fnd_log.string(l_log_statement,
1547: L_DEBUG_KEY,
1548: 'After Calling AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task' ||
1549: ', TASK ID = ' || l_task_rec.visit_task_id ||
1550: ', TASK NUMBER = ' || l_task_rec.visit_task_number ||
1552: END IF;
1553: ELSIF l_task_rec.task_type_code = 'UNPLANNED' THEN
1554: -- Call AHL_VWP_UNPLAN_TASKS_PVT
1555: IF (l_log_statement >= l_log_current_level) THEN
1556: fnd_log.string(l_log_statement,
1557: L_DEBUG_KEY,
1558: 'Before Calling AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task, TASK TYPE = ' || l_task_rec.task_type_code);
1559: END IF;
1560: AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task (
1568: x_msg_count => l_msg_count,
1569: x_msg_data => l_msg_data
1570: );
1571: IF (l_log_statement >= l_log_current_level) THEN
1572: fnd_log.string(l_log_statement,
1573: L_DEBUG_KEY,
1574: 'After Calling AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task' ||
1575: ', TASK ID = ' || l_task_rec.visit_task_id ||
1576: ', TASK NUMBER = ' || l_task_rec.visit_task_number ||
1577: ', Return Status = ' || l_return_status );
1578: END IF;
1579: ELSE
1580: IF (l_log_statement >= l_log_current_level) THEN
1581: fnd_log.string(l_log_statement,
1582: L_DEBUG_KEY,
1583: 'Before Calling Create_Unassociated_Task, TASK TYPE = ' || l_task_rec.task_type_code);
1584: END IF;
1585: Create_Unassociated_Task
1597: -- set OUT value
1598: p_x_task_rec.Visit_Task_ID := l_task_rec.Visit_Task_ID;
1599: p_x_task_rec.Visit_Task_Number := l_task_rec.Visit_Task_Number;
1600: IF (l_log_statement >= l_log_current_level) THEN
1601: fnd_log.string(l_log_statement,
1602: L_DEBUG_KEY,
1603: 'After Calling Create_Unassociated_Task' ||
1604: 'Task Id = ' || l_task_rec.visit_task_id ||
1605: 'Task Number = ' || l_task_rec.visit_task_number ||
1633: x_msg_count => l_msg_count,
1634: x_msg_data => l_msg_data);
1635:
1636: IF (l_log_statement >= l_log_current_level) THEN
1637: fnd_log.string(l_log_statement,
1638: L_DEBUG_KEY,
1639: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
1640: END IF;
1641:
1665: x_msg_count => l_msg_count,
1666: x_msg_data => l_msg_data);
1667:
1668: IF (l_log_statement >= l_log_current_level) THEN
1669: fnd_log.string(l_log_statement,
1670: L_DEBUG_KEY,
1671: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
1672: END IF;
1673:
1698: -- This is used to maintain the hierarchy for
1699: -- deriving the tasks in a repair batch
1700:
1701: IF (l_log_statement >= l_log_current_level) THEN
1702: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Before setting the ' ||
1703: 'repair batch task id to cost_parent_id');
1704: END IF;
1705:
1706: IF l_is_comp_visit = 'Y' THEN
1704: END IF;
1705:
1706: IF l_is_comp_visit = 'Y' THEN
1707: IF (l_log_statement >= l_log_current_level) THEN
1708: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'l_task_rec.TASK_TYPE_CODE'
1709: || l_task_rec.TASK_TYPE_CODE
1710: || 'l_task_rec.COST_PARENT_ID :: '
1711: || l_task_rec.COST_PARENT_ID);
1712: END IF;
1711: || l_task_rec.COST_PARENT_ID);
1712: END IF;
1713:
1714: IF (l_log_statement >= l_log_current_level) THEN
1715: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'l_task_rec.instance_id'
1716: || l_task_rec.instance_id
1717: || 'l_task_rec.visit_task_id :: '
1718: || l_task_rec.visit_task_id);
1719: END IF;
1730: FETCH c_get_rprbatch_task INTO l_rpr_batch_task_id;
1731: CLOSE c_get_rprbatch_task;
1732:
1733: IF (l_log_statement >= l_log_current_level) THEN
1734: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'RepairBatch Task ID: '
1735: || l_rpr_batch_task_id);
1736: END IF;
1737:
1738: IF( l_summary_task_id IS NOT NULL AND l_rpr_batch_task_id IS NOT NULL
1741: SET cost_parent_id = l_rpr_batch_task_id
1742: WHERE visit_task_id = l_summary_task_id;
1743:
1744: IF (l_log_statement >= l_log_current_level) THEN
1745: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Cost_parent_id set to : '
1746: || l_rpr_batch_task_id
1747: || ' for : ' || l_summary_task_id);
1748: END IF;
1749:
1751:
1752: END IF;
1753:
1754: IF (l_log_statement >= l_log_current_level) THEN
1755: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'After setting the repair batch'
1756: || ' task id to cost_parent_id');
1757: END IF;
1758: -- Kasridha : Changes for Component Maintenance Planning Ends
1759: */
1784: COMMIT;
1785: END IF;
1786:
1787: IF (l_log_procedure >= l_log_current_level) THEN
1788: fnd_log.string(l_log_procedure,
1789: L_DEBUG_KEY ||'.end',
1790: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1791: END IF;
1792:
1892:
1893: BEGIN
1894: --------------------Start of API Body-----------------------------------
1895: IF (l_log_procedure >= l_log_current_level) THEN
1896: fnd_log.string(l_log_procedure,
1897: L_DEBUG_KEY ||'.begin',
1898: 'At the start of PL SQL procedure.' ||
1899: 'Module Type = ' || p_module_type );
1900: END IF;
1940: FETCH c_visit INTO c_visit_rec;
1941: CLOSE c_visit;
1942:
1943: IF (l_log_statement >= l_log_current_level) THEN
1944: fnd_log.string(l_log_statement,
1945: L_DEBUG_KEY,
1946: 'Visit Id = ' || l_task_rec.visit_id || ', Status Code = ' || c_visit_rec.status_code );
1947: END IF;
1948:
1957: */
1958: ELSIF p_module_type = 'SR' THEN
1959:
1960: IF (l_log_statement >= l_log_current_level) THEN
1961: fnd_log.string(l_log_statement,
1962: L_DEBUG_KEY,
1963: 'Inside status code check = ' || c_visit_rec.status_code ||
1964: ', Instance ID = ' || l_Task_rec.instance_id );
1965: END IF;
1973: l_Task_rec.item_organization_id := l_org_id;
1974: ELSE
1975: -- Visit in planning status --
1976: IF (l_log_statement >= l_log_current_level) THEN
1977: fnd_log.string(l_log_statement,
1978: L_DEBUG_KEY,
1979: 'Before Convert Item Item ID= ' || l_Task_rec.inventory_item_id ||
1980: ', Item Org ID= ' || l_Task_rec.item_organization_id ||
1981: ', Item Name= ' || l_Task_rec.item_name );
2018: END IF;
2019:
2020: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2021: IF (l_log_statement >= l_log_current_level) THEN
2022: fnd_log.string(l_log_statement,
2023: L_DEBUG_KEY,
2024: ': Compare item name');
2025: END IF;
2026:
2029: RAISE Fnd_Api.G_EXC_ERROR;
2030: END IF;
2031: ELSE
2032: IF (l_log_statement >= l_log_current_level) THEN
2033: fnd_log.string(l_log_statement,
2034: L_DEBUG_KEY,
2035: ': Check item else loop');
2036: END IF;
2037: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2043: l_Task_rec.inventory_item_id := l_item_id;
2044: l_Task_rec.item_organization_id := l_org_id;
2045:
2046: IF (l_log_statement >= l_log_current_level) THEN
2047: fnd_log.string(l_log_statement,
2048: L_DEBUG_KEY,
2049: ': Item ID= ' || l_Task_rec.inventory_item_id ||
2050: ': Item Org ID= ' || l_Task_rec.item_organization_id ||
2051: ': Item Name= ' || l_Task_rec.item_name ||
2060: -- Convert department name to department id
2061: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
2062:
2063: IF (l_log_statement >= l_log_current_level) THEN
2064: fnd_log.string(l_log_statement,
2065: L_DEBUG_KEY,
2066: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id');
2067: END IF;
2068:
2095: l_task_rec.department_id := l_department_id;
2096: END IF;
2097:
2098: IF (l_log_statement >= l_log_current_level) THEN
2099: fnd_log.string(l_log_statement,
2100: L_DEBUG_KEY,
2101: ': Dept ID= ' || l_Task_rec.department_id );
2102: END IF;
2103:
2105: -- Convert serial number to instance/ serial id
2106: IF (l_Task_rec.serial_number IS NOT NULL AND
2107: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
2108: IF (l_log_statement >= l_log_current_level) THEN
2109: fnd_log.string(l_log_statement,
2110: L_DEBUG_KEY,
2111: ': AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id ' );
2112: END IF;
2113: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
2127: --Assign the returned value
2128: l_Task_rec.instance_id := l_serial_id;
2129:
2130: IF (l_log_statement >= l_log_current_level) THEN
2131: fnd_log.string(l_log_statement,
2132: L_DEBUG_KEY,
2133: ': Before UC Check Serial ID= ' || l_Task_rec.instance_id ||
2134: ': Before UC Item ID= ' || l_Task_rec.inventory_item_id ||
2135: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id );
2147: END IF;
2148: END IF;
2149:
2150: IF (l_log_statement >= l_log_current_level) THEN
2151: fnd_log.string(l_log_statement,
2152: L_DEBUG_KEY,
2153: ': Serial ID= ' || l_Task_rec.instance_id ||
2154: ': Service Number= ' || l_Task_rec.service_request_number );
2155: -- Additional debug statement added by jaramana on Feb 14, 2008
2152: L_DEBUG_KEY,
2153: ': Serial ID= ' || l_Task_rec.instance_id ||
2154: ': Service Number= ' || l_Task_rec.service_request_number );
2155: -- Additional debug statement added by jaramana on Feb 14, 2008
2156: fnd_log.string(l_log_statement, L_DEBUG_KEY,
2157: 'l_task_rec.instance_number = ' || l_Task_rec.instance_number ||
2158: ', l_task_rec.quantity = ' || l_Task_rec.quantity);
2159: END IF;
2160:
2192: -- Convert cost parent number to id
2193: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
2194: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
2195: IF (l_log_statement >= l_log_current_level) THEN
2196: fnd_log.string(l_log_statement,
2197: L_DEBUG_KEY,
2198: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
2199: END IF;
2200: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
2216: l_Task_rec.cost_parent_id := l_cost_parent_id;
2217: END IF;
2218:
2219: IF (l_log_statement >= l_log_current_level) THEN
2220: fnd_log.string(l_log_statement,
2221: L_DEBUG_KEY,
2222: ': Cost parent ID = ' || l_Task_rec.cost_parent_id);
2223: END IF;
2224:
2226: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
2227: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
2228:
2229: IF (l_log_statement >= l_log_current_level) THEN
2230: fnd_log.string(l_log_statement,
2231: L_DEBUG_KEY,
2232: 'Calling AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop ' );
2233: END IF;
2234: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
2238: );
2239: END IF;
2240:
2241: IF (l_log_statement >= l_log_current_level) THEN
2242: fnd_log.string(l_log_statement,
2243: L_DEBUG_KEY,
2244: ': Originating Number = ' || l_Task_rec.orginating_task_number);
2245: END IF;
2246:
2248: -- Convert originating task number to id
2249: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
2250: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
2251: IF (l_log_statement >= l_log_current_level) THEN
2252: fnd_log.string(l_log_statement,
2253: L_DEBUG_KEY,
2254: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
2255: END IF;
2256: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
2271: l_Task_rec.originating_task_id := l_originating_task_id;
2272: END IF;
2273:
2274: IF (l_log_statement >= l_log_current_level) THEN
2275: fnd_log.string(l_log_statement,
2276: L_DEBUG_KEY,
2277: ': Originating Task ID= ' || l_Task_rec.originating_task_id);
2278: END IF;
2279:
2294: -- IF c_visit_rec.status_code = 'PLANNING' THEN
2295: --Added the below condition for the call from Production for SR creation
2296: IF p_module_type <> 'SR' THEN
2297: IF (l_log_statement >= l_log_current_level) THEN
2298: fnd_log.string(l_log_statement,
2299: L_DEBUG_KEY,
2300: ': :ValidateCalling Validate_Visit_Task ');
2301: END IF;
2302: Validate_Visit_Task (
2339: END IF;
2340: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: ENDS
2341:
2342: IF (l_log_statement >= l_log_current_level) THEN
2343: fnd_log.string(l_log_statement,
2344: L_DEBUG_KEY,
2345: ': Task ID= ' || l_Task_rec.visit_task_id ||
2346: ': Task number= ' || l_Task_rec.visit_task_number);
2347: END IF;
2355: );
2356:
2357: -------------------------- Insert --------------------------
2358: IF (l_log_statement >= l_log_current_level) THEN
2359: fnd_log.string(l_log_statement,
2360: L_DEBUG_KEY,
2361: 'Before Calling Ahl_Visit_Tasks_Pkg.Insert_Row');
2362: END IF;
2363:
2434: p_instance_id => l_task_rec.instance_id,
2435: x_warranty_entl_tbl => l_entl_rec_tbl);
2436:
2437: IF (l_log_statement >= l_log_current_level) THEN
2438: fnd_log.string(l_log_statement,
2439: L_DEBUG_KEY,
2440: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
2441: END IF;
2442:
2451: x_msg_count => l_msg_count,
2452: x_msg_data => l_msg_data);
2453:
2454: IF (l_log_statement >= l_log_current_level) THEN
2455: fnd_log.string(l_log_statement,
2456: L_DEBUG_KEY,
2457: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
2458: l_return_status);
2459: END IF;
2468:
2469: -- Added cxcheng POST11510--------------
2470: --Now adjust the times derivation for task
2471: IF (l_log_statement >= l_log_current_level) THEN
2472: fnd_log.string(l_log_statement,
2473: L_DEBUG_KEY,
2474: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times' );
2475: END IF;
2476:
2486: p_task_id => l_task_rec.visit_task_id);
2487: END IF;
2488:
2489: IF (l_log_statement >= l_log_current_level) THEN
2490: fnd_log.string(l_log_statement,
2491: L_DEBUG_KEY,
2492: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
2493: END IF;
2494:
2519: END IF;
2520: END IF;
2521:
2522: IF (l_log_statement >= l_log_current_level) THEN
2523: fnd_log.string(l_log_statement,
2524: L_DEBUG_KEY,
2525: ': After Insert ' || 'Task ID= ' || p_x_Task_rec.visit_task_id ||
2526: ', Task Number= ' || p_x_Task_rec.visit_task_number);
2527: END IF;
2531: /*
2532: -- Calling projects api to create project task for the newly added service request
2533: IF (l_task_rec.Visit_Task_ID IS NOT NULL AND p_module_type = 'SR' )THEN
2534: IF (l_log_statement >= l_log_current_level) THEN
2535: fnd_log.string(l_log_statement,
2536: L_DEBUG_KEY,
2537: 'Before Calling AHL_VWP_PROJ_PROD_PVT.Add_Task_to_Project ' ||
2538: 'Visit Task Id = ' || l_task_rec.Visit_Task_ID);
2539: END IF;
2549: x_msg_count => x_msg_count,
2550: x_msg_data => x_msg_data);
2551:
2552: IF (l_log_statement >= l_log_current_level) THEN
2553: fnd_log.string(l_log_statement,
2554: L_DEBUG_KEY,
2555: 'After Calling AHL_VWP_PROJ_PROD_PVT.Add_Task_to_Project, Return Status = ' ||l_return_status );
2556: END IF;
2557: END IF;
2571: COMMIT;
2572: END IF;
2573:
2574: IF (l_log_procedure >= l_log_current_level) THEN
2575: fnd_log.string(l_log_procedure,
2576: L_DEBUG_KEY ||'.end',
2577: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2578: END IF;
2579:
2671:
2672: BEGIN
2673: --------------------Start of API Body-----------------------------------
2674: IF (l_log_procedure >= l_log_current_level) THEN
2675: fnd_log.string(l_log_procedure,
2676: L_DEBUG_KEY ||'.begin',
2677: 'At the start of PL SQL procedure.');
2678: END IF;
2679:
2711: FETCH c_visit INTO c_visit_rec;
2712: CLOSE c_visit;
2713:
2714: IF (l_log_statement >= l_log_current_level) THEN
2715: fnd_log.string(l_log_statement,
2716: L_DEBUG_KEY,
2717: ': Visit Id = ' || l_task_rec.visit_id ||
2718: ': Status Code ' || c_visit_rec.status_code);
2719: END IF;
2728: -- For DEPARTMENT
2729: -- Convert department name to department id
2730: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
2731: IF (l_log_statement >= l_log_current_level) THEN
2732: fnd_log.string(l_log_statement,
2733: L_DEBUG_KEY,
2734: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id ');
2735: END IF;
2736: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
2763: l_task_rec.department_id := l_department_id;
2764: END IF;
2765:
2766: IF (l_log_statement >= l_log_current_level) THEN
2767: fnd_log.string(l_log_statement,
2768: L_DEBUG_KEY,
2769: ': Dept ID= ' || l_Task_rec.department_id ||
2770: ': Before Convert Item Item ID= ' || l_Task_rec.inventory_item_id ||
2771: ', Org ID= ' || l_Task_rec.item_organization_id ||
2781: (l_Task_rec.item_organization_id IS NOT NULL AND
2782: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2783:
2784: IF (l_log_statement >= l_log_current_level) THEN
2785: fnd_log.string(l_log_statement,
2786: L_DEBUG_KEY,
2787: 'Calling AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id ' );
2788: END IF;
2789: AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id
2851:
2852: END IF;
2853:
2854: IF (l_log_statement >= l_log_current_level) THEN
2855: fnd_log.string(l_log_statement,
2856: L_DEBUG_KEY,
2857: 'Item ID= ' || l_Task_rec.inventory_item_id ||
2858: ', Item Org ID= ' || l_Task_rec.item_organization_id ||
2859: ', Item Name= ' || l_Task_rec.item_name ||
2882: --Assign the returned value
2883: l_Task_rec.instance_id := l_serial_id;
2884:
2885: IF (l_log_statement >= l_log_current_level) THEN
2886: fnd_log.string(l_log_statement,
2887: L_DEBUG_KEY,
2888: ': Before UC Check Serial ID= ' || l_Task_rec.instance_id ||
2889: ', Item ID= ' || l_Task_rec.inventory_item_id ||
2890: ', Org ID= ' || l_Task_rec.item_organization_id);
2901: END IF;
2902: END IF;
2903:
2904: IF (l_log_statement >= l_log_current_level) THEN
2905: fnd_log.string(l_log_statement,
2906: L_DEBUG_KEY,
2907: ': Serial ID= ' || l_Task_rec.instance_id ||
2908: ': Cost parent= ' || l_Task_rec.cost_parent_number);
2909: END IF;
2933: l_Task_rec.cost_parent_id := l_cost_parent_id;
2934: END IF;
2935:
2936: IF (l_log_statement >= l_log_current_level) THEN
2937: fnd_log.string(l_log_statement,
2938: L_DEBUG_KEY,
2939: ': Cost parent ID = ' || l_Task_rec.cost_parent_id);
2940: END IF;
2941:
2951:
2952: END IF;
2953:
2954: IF (l_log_statement >= l_log_current_level) THEN
2955: fnd_log.string(l_log_statement,
2956: L_DEBUG_KEY,
2957: ': Originating Number = ' || l_Task_rec.orginating_task_number);
2958: END IF;
2959:
2982: l_Task_rec.originating_task_id := l_originating_task_id;
2983: END IF;
2984:
2985: IF (l_log_statement >= l_log_current_level) THEN
2986: fnd_log.string(l_log_statement,
2987: L_DEBUG_KEY,
2988: ': Originating Task ID= ' || l_Task_rec.originating_task_id);
2989: END IF;
2990:
3012:
3013: ---------------------------------------------- Validate ----------------------------------------------
3014:
3015: IF (l_log_statement >= l_log_current_level) THEN
3016: fnd_log.string(l_log_statement,
3017: L_DEBUG_KEY,
3018: 'Before Calling Validate_Visit_Task');
3019: END IF;
3020:
3049: l_task_rec.visit_task_number := l_task_number;
3050: END IF;
3051:
3052: IF (l_log_statement >= l_log_current_level) THEN
3053: fnd_log.string(l_log_statement,
3054: L_DEBUG_KEY,
3055: ': Task ID= ' || l_Task_rec.visit_task_id ||
3056: ': Task number= ' || l_Task_rec.visit_task_number ||
3057: ': Repair batch name= ' || l_Task_rec.REPAIR_BATCH_NAME);
3067:
3068: -------------------------- Insert ------------------------------------------------
3069:
3070: IF (l_log_statement >= l_log_current_level) THEN
3071: fnd_log.string(l_log_statement,
3072: L_DEBUG_KEY,
3073: 'Before Calling Ahl_Visit_Tasks_Pkg.Insert_Row' );
3074: END IF;
3075:
3141: X_REPAIR_BATCH_NAME => l_task_rec.REPAIR_BATCH_NAME --PRAKKUM :: 13/06/2012 :: Bug 14068468
3142: );
3143:
3144: IF (l_log_statement >= l_log_current_level) THEN
3145: fnd_log.string(l_log_statement,
3146: L_DEBUG_KEY,
3147: 'After Calling Ahl_Visit_Tasks_Pkg.Insert_Row' );
3148: END IF;
3149:
3156: p_instance_id => l_task_rec.instance_id,
3157: x_warranty_entl_tbl => l_entl_rec_tbl);
3158:
3159: IF (l_log_statement >= l_log_current_level) THEN
3160: fnd_log.string(l_log_statement,
3161: L_DEBUG_KEY,
3162: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
3163: END IF;
3164:
3173: x_msg_count => l_msg_count,
3174: x_msg_data => l_msg_data);
3175:
3176: IF (l_log_statement >= l_log_current_level) THEN
3177: fnd_log.string(l_log_statement,
3178: L_DEBUG_KEY,
3179: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3180: l_return_status);
3181: END IF;
3190:
3191: -- Added cxcheng POST11510--------------
3192: --Now adjust the times derivation for task
3193: IF (l_log_statement >= l_log_current_level) THEN
3194: fnd_log.string(l_log_statement,
3195: L_DEBUG_KEY,
3196: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times' );
3197: END IF;
3198:
3205: x_msg_data => l_msg_data,
3206: p_task_id => l_task_rec.visit_task_id);
3207:
3208: IF (l_log_statement >= l_log_current_level) THEN
3209: fnd_log.string(l_log_statement,
3210: L_DEBUG_KEY,
3211: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
3212: END IF;
3213:
3236: END IF;
3237: END IF;
3238:
3239: IF (l_log_statement >= l_log_current_level) THEN
3240: fnd_log.string(l_log_statement,
3241: L_DEBUG_KEY,
3242: ': After Insert ' || 'Task ID= ' || p_x_Task_rec.visit_task_id ||
3243: ': After Insert ' || 'Task Number= ' || p_x_Task_rec.visit_task_number);
3244: END IF;
3260: COMMIT;
3261: END IF;
3262:
3263: IF (l_log_procedure >= l_log_current_level) THEN
3264: fnd_log.string(l_log_procedure,
3265: L_DEBUG_KEY ||'.end',
3266: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3267: END IF;
3268: EXCEPTION
3345:
3346:
3347: BEGIN
3348: IF (l_log_procedure >= l_log_current_level) THEN
3349: fnd_log.string(l_log_procedure,
3350: L_DEBUG_KEY ||'.begin',
3351: 'At the start of PL SQL procedure.');
3352: END IF;
3353:
3428: AHL_VWP_RULES_PVT.Validate_Past_Task_Dates ( p_task_rec => l_Task_rec,
3429: x_return_status => l_return_status);
3430: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3431: IF (l_log_statement >= l_log_current_level) THEN
3432: fnd_log.string(l_log_statement,
3433: L_DEBUG_KEY,
3434: 'Returned success from AHL_VWP_RULES_PVT.Validate_Past_Task_Dates');
3435: END IF;
3436: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3460: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: END
3461:
3462:
3463: IF (l_log_statement >= l_log_current_level) THEN
3464: fnd_log.string(l_log_statement,
3465: L_DEBUG_KEY,
3466: 'Status Code = ' || c_Task_rec.status_code);
3467: END IF;
3468:
3467: END IF;
3468:
3469: IF c_Task_rec.status_code = 'RELEASED' THEN
3470: IF (l_log_statement >= l_log_current_level) THEN
3471: fnd_log.string(l_log_statement,
3472: L_DEBUG_KEY,
3473: 'Before calling Update_Tasks_in_Production');
3474: END IF;
3475:
3484: x_msg_count => l_msg_count,
3485: x_msg_data => l_msg_data
3486: );
3487: IF (l_log_statement >= l_log_current_level) THEN
3488: fnd_log.string(l_log_statement,
3489: L_DEBUG_KEY,
3490: 'After calling Update_Tasks_in_Production, Return Status = ' || l_return_status);
3491: END IF;
3492:
3491: END IF;
3492:
3493: ELSE
3494: IF (l_log_statement >= l_log_current_level) THEN
3495: fnd_log.string(l_log_statement,
3496: L_DEBUG_KEY,
3497: 'Before calling Update_Tasks_in_Planning');
3498: END IF;
3499: Update_Tasks_in_Planning
3507: x_msg_count => l_msg_count,
3508: x_msg_data => l_msg_data
3509: );
3510: IF (l_log_statement >= l_log_current_level) THEN
3511: fnd_log.string(l_log_statement,
3512: L_DEBUG_KEY,
3513: 'After calling Update_Tasks_in_Planning,Return Status = '|| l_return_status);
3514: END IF;
3515: END IF;
3516:
3517: -- PRAKKUM ::FP PIE :: 13-OCT-2010 :: BEGIN
3518:
3519: IF (l_log_statement >= l_log_current_level) THEN
3520: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Before calling Use_New_Task_Structure.');
3521: END IF;
3522:
3523: AHL_VWP_PROJ_PROD_PVT.Use_New_Task_Structure
3524: ( p_visit_id => c_Task_rec.visit_id,
3528: IF l_new_structure_flag = 'Y' THEN
3529: IF c_Task_rec.project_task_id IS NOT NULL THEN
3530: IF ((NVL(c_Task_rec.cost_parent_id, -5) <> NVL(l_task_rec.COST_PARENT_ID,-5))) THEN
3531: IF (l_log_statement >= l_log_current_level) THEN
3532: fnd_log.string(l_log_statement,
3533: L_DEBUG_KEY,
3534: 'Before calling AHL_VWP_PROJ_PROD_PVT.Update_Project_Task l_return_status= '|| l_return_status);
3535: END IF;
3536:
3540: x_msg_count => l_msg_count,
3541: x_msg_data => l_msg_data
3542: );
3543: IF (l_log_statement >= l_log_current_level) THEN
3544: fnd_log.string(l_log_statement,
3545: L_DEBUG_KEY,
3546: 'After calling AHL_VWP_PROJ_PROD_PVT.Update_Project_Task l_return_status= '|| l_return_status);
3547: END IF;
3548:
3548:
3549: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3550: x_msg_count := FND_MSG_PUB.count_msg;
3551: IF (l_log_statement >= l_log_current_level) THEN
3552: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Errors from Update_Project_Task. Message count: ' || x_msg_count);
3553: END IF;
3554: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3555: RAISE FND_API.G_EXC_ERROR;
3556: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3558: END IF;
3559: ELSE
3560: IF (l_log_statement >= l_log_current_level) THEN
3561: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Returned Success from Update_Project_Task.');
3562: END IF;
3563: END IF;
3564:
3565: END IF;
3587: COMMIT;
3588: END IF;
3589:
3590: IF (l_log_procedure >= l_log_current_level) THEN
3591: fnd_log.string(l_log_procedure,
3592: L_DEBUG_KEY ||'.end',
3593: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3594: END IF;
3595:
3795: l_workrec AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_REC;
3796:
3797: BEGIN
3798: IF (l_log_procedure >= l_log_current_level) THEN
3799: fnd_log.string(l_log_procedure,
3800: L_DEBUG_KEY ||'.begin',
3801: 'At the start of PL SQL procedure.' ||
3802: 'Visit ID ' || l_task_rec.visit_id ||
3803: 'Visit Task ID ' || l_Task_rec.visit_task_id);
3839: FETCH c_visit_task_det INTO l_old_Task_rec;
3840: CLOSE c_visit_task_det;
3841:
3842: IF (l_log_statement >= l_log_current_level) THEN
3843: fnd_log.string(l_log_statement,
3844: L_DEBUG_KEY,
3845: 'Task type code = ' || l_old_Task_rec.task_type_code);
3846: END IF;
3847:
3848: IF (l_old_Task_rec.task_type_code <> 'SUMMARY'
3849: AND l_Task_rec.stage_name IS NOT NULL) THEN
3850:
3851: IF (l_log_statement >= l_log_current_level) THEN
3852: fnd_log.string(l_log_statement,
3853: L_DEBUG_KEY,
3854: ' Call AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES ');
3855: END IF;
3856: AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES(
3901: l_task_rec.department_id := NULL;
3902: END IF;
3903:
3904: IF (l_log_statement >= l_log_current_level) THEN
3905: fnd_log.string(l_log_statement,
3906: L_DEBUG_KEY,
3907: ' In Update task... ' ||
3908: ' l_task_rec.department_id '|| l_task_rec.department_id ||
3909: ' l_old_Task_rec.department_id'|| l_old_Task_rec.department_id);
3926: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
3927: WHERE VISIT_ID = l_visit_rec.visit_id;
3928:
3929: IF (l_log_statement >= l_log_current_level) THEN
3930: fnd_log.string(l_log_statement,
3931: L_DEBUG_KEY,
3932: ' After Update Price for Visit');
3933: END IF;
3934:
3946: END LOOP;
3947: CLOSE c_all_task;
3948:
3949: IF (l_log_statement >= l_log_current_level) THEN
3950: fnd_log.string(l_log_statement,
3951: L_DEBUG_KEY,
3952: ' After Update Price for all Tasks');
3953: END IF;
3954:
3968: END IF;
3969: CLOSE c_Task_WO;
3970:
3971: IF (l_log_statement >= l_log_current_level) THEN
3972: fnd_log.string(l_log_statement,
3973: L_DEBUG_KEY,
3974: 'Before Calling AHL_PRD_WORKORDER_PVT.update_job');
3975: END IF;
3976: AHL_PRD_WORKORDER_PVT.update_job
3988: P_X_PRD_WORKOPER_TBL =>l_workoper_tbl
3989: );
3990:
3991: IF (l_log_statement >= l_log_current_level) THEN
3992: fnd_log.string(l_log_statement,
3993: L_DEBUG_KEY,
3994: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
3995: END IF;
3996:
4005:
4006: END IF; -- Check for Dept change
4007:
4008: IF (l_log_statement >= l_log_current_level) THEN
4009: fnd_log.string(l_log_statement,
4010: L_DEBUG_KEY,
4011: ': After calling update task for costing changes');
4012: END IF;
4013:
4012: END IF;
4013:
4014: IF l_task_rec.task_type_code = 'SUMMARY' THEN
4015: IF (l_log_statement >= l_log_current_level)THEN
4016: fnd_log.string(l_log_statement,
4017: L_DEBUG_KEY,
4018: 'Before Calling Update_Summary_Task, TASK TYPE = ' || l_task_rec.task_type_code);
4019: END IF;
4020:
4030: x_msg_count => l_msg_count,
4031: x_msg_data => l_msg_data
4032: );
4033: IF (l_log_statement >= l_log_current_level)THEN
4034: fnd_log.string(l_log_statement,
4035: L_DEBUG_KEY,
4036: 'After Calling Update_Summary_Task, Return Status = ' || l_return_status);
4037: END IF;
4038: ELSIF l_task_rec.task_type_code = 'PLANNED' THEN
4038: ELSIF l_task_rec.task_type_code = 'PLANNED' THEN
4039: -- Call AHL_VWP_PLAN_TASKS_PVT
4040:
4041: IF (l_log_statement >= l_log_current_level)THEN
4042: fnd_log.string(l_log_statement,
4043: L_DEBUG_KEY,
4044: 'Calling Update_Planned_Task, TASK TYPE = ' || l_task_rec.task_type_code);
4045: END IF;
4046:
4058: );
4059: ELSIF l_task_rec.task_type_code = 'UNPLANNED' THEN
4060: -- Call AHL_VWP_UNPLAN_TASKS_PVT
4061: IF (l_log_statement >= l_log_current_level)THEN
4062: fnd_log.string(l_log_statement,
4063: L_DEBUG_KEY,
4064: 'Calling Update_Unplanned_Task, TASK TYPE = ' || l_task_rec.task_type_code);
4065: END IF;
4066:
4077: );
4078: ELSIF l_task_rec.task_type_code = 'UNASSOCIATED' THEN
4079: -- Call AHL_VWP_UNPLAN_TASKS_PVT
4080: IF (l_log_statement >= l_log_current_level)THEN
4081: fnd_log.string(l_log_statement,
4082: L_DEBUG_KEY,
4083: 'Before Calling Update_Unassociated_Task');
4084: END IF;
4085:
4095: x_msg_data => l_msg_data
4096: );
4097:
4098: IF (l_log_statement >= l_log_current_level)THEN
4099: fnd_log.string(l_log_statement,
4100: L_DEBUG_KEY,
4101: 'After Calling Update_Unassociated_Task, Return Status = ' ||l_return_status );
4102: END IF;
4103: END IF;
4117: IF (p_x_task_rec.cost_parent_number IS NOT NULL AND
4118: p_x_task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
4119:
4120: IF (l_log_statement >= l_log_current_level)THEN
4121: fnd_log.string(l_log_statement,
4122: L_DEBUG_KEY,
4123: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ');
4124: END IF;
4125:
4141: -- Updating Cost Parent should update the any_task_chg_flag
4142: IF (NVL(p_x_task_rec.cost_parent_id, -999 ) <> NVL(l_old_Task_rec.cost_parent_id, -999)) THEN
4143: IF l_visit_rec.any_task_chg_flag = 'N' THEN
4144: IF (l_log_statement >= l_log_current_level)THEN
4145: fnd_log.string(l_log_statement,
4146: L_DEBUG_KEY,
4147: 'Before Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag ' ||
4148: 'Any_task_chg_flag = ' ||l_visit_rec.any_task_chg_flag);
4149: END IF;
4153: p_flag => 'Y',
4154: x_return_status => x_return_status);
4155:
4156: IF (l_log_statement >= l_log_current_level)THEN
4157: fnd_log.string(l_log_statement,
4158: L_DEBUG_KEY,
4159: 'After Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag, Return Status = ' ||x_return_status);
4160: END IF;
4161:
4184: COMMIT;
4185: END IF;
4186:
4187: IF (l_log_procedure >= l_log_current_level) THEN
4188: fnd_log.string(l_log_procedure,
4189: L_DEBUG_KEY ||'.end',
4190: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
4191: END IF;
4192:
4326:
4327: BEGIN
4328:
4329: IF (l_log_procedure >= l_log_current_level) THEN
4330: fnd_log.string(l_log_procedure,
4331: L_DEBUG_KEY ||'.begin',
4332: 'At the start of PL SQL procedure.' ||
4333: 'Visit Task Id = ' || l_Task_rec.visit_task_id );
4334: END IF;
4403: RAISE FND_API.G_EXC_ERROR;
4404: END IF;
4405:
4406: IF (l_log_statement >= l_log_current_level) THEN
4407: fnd_log.string(l_log_statement,
4408: L_DEBUG_KEY,
4409: 'Before Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
4410: END IF;
4411:
4495: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
4496: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
4497:
4498: IF (l_log_statement >= l_log_current_level) THEN
4499: fnd_log.string(l_log_statement,
4500: L_DEBUG_KEY,
4501: 'After Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
4502: END IF;
4503:
4503:
4504: -- Added cxcheng POST11510--------------
4505: --Now adjust the times derivation for task
4506: IF (l_log_statement >= l_log_current_level) THEN
4507: fnd_log.string(l_log_statement,
4508: L_DEBUG_KEY,
4509: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
4510: END IF;
4511:
4521: p_task_id => l_task_rec.visit_task_id);
4522: END IF;
4523:
4524: IF (l_log_statement >= l_log_current_level) THEN
4525: fnd_log.string(l_log_statement,
4526: L_DEBUG_KEY,
4527: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
4528: END IF;
4529:
4564: COMMIT;
4565: END IF;
4566:
4567: IF (l_log_procedure >= l_log_current_level) THEN
4568: fnd_log.string(l_log_procedure,
4569: L_DEBUG_KEY ||'.end',
4570: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
4571: END IF;
4572: EXCEPTION
4648: c_Visit_rec c_Visit%ROWTYPE;
4649:
4650: BEGIN
4651: IF (l_log_procedure >= l_log_current_level) THEN
4652: fnd_log.string(l_log_procedure,
4653: L_DEBUG_KEY ||'.begin',
4654: 'At the start of PL SQL procedure.');
4655: END IF;
4656:
4683: FETCH c_Task INTO c_Task_rec;
4684: CLOSE c_Task;
4685:
4686: IF (l_log_statement >= l_log_current_level) THEN
4687: fnd_log.string(l_log_statement,
4688: L_DEBUG_KEY,
4689: ': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id ||
4690: ': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name ||
4691: ': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number ||
4723:
4724: END IF;
4725:
4726: IF (l_log_statement >= l_log_current_level) THEN
4727: fnd_log.string(l_log_statement,
4728: L_DEBUG_KEY,
4729: ': Dept ID= ' || l_Task_rec.department_id ||
4730: ': Serial Number= ' || l_Task_rec.serial_number);
4731:
4736: IF (l_Task_rec.serial_number IS NOT NULL AND
4737: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
4738:
4739: IF (l_log_statement >= l_log_current_level) THEN
4740: fnd_log.string(l_log_statement,
4741: L_DEBUG_KEY,
4742: ' Calling AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id' );
4743: END IF;
4744:
4760: --Assign the returned value
4761: l_Task_rec.instance_id := l_serial_id;
4762:
4763: IF (l_log_statement >= l_log_current_level) THEN
4764: fnd_log.string(l_log_statement,
4765: L_DEBUG_KEY,
4766: ': Before UC Check Serial ID= ' || l_Task_rec.instance_id ||
4767: ': Before UC Item ID= ' || l_Task_rec.inventory_item_id ||
4768: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id);
4783:
4784: END IF;
4785:
4786: IF (l_log_statement >= l_log_current_level) THEN
4787: fnd_log.string(l_log_statement,
4788: L_DEBUG_KEY,
4789: ': Serial ID= ' || l_Task_rec.instance_id ||
4790: ': Cost parent= ' || l_Task_rec.cost_parent_number);
4791: END IF;
4814: l_Task_rec.cost_parent_id := l_cost_parent_id;
4815: END IF;
4816:
4817: IF (l_log_statement >= l_log_current_level) THEN
4818: fnd_log.string(l_log_statement,
4819: L_DEBUG_KEY,
4820: ': Cost parent ID = ' || l_Task_rec.cost_parent_id ||
4821: ': Validation: Start -- For COST PARENT ');
4822: END IF;
4833:
4834: END IF;
4835:
4836: IF (l_log_statement >= l_log_current_level) THEN
4837: fnd_log.string(l_log_statement,
4838: L_DEBUG_KEY,
4839: ': Validation: End -- For COST PARENT ' ||
4840: ': Originating Number = ' || l_Task_rec.orginating_task_number);
4841: END IF;
4846: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
4847: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
4848:
4849: IF (l_log_statement >= l_log_current_level) THEN
4850: fnd_log.string(l_log_statement,
4851: L_DEBUG_KEY,
4852: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4853: END IF;
4854:
4871: l_Task_rec.originating_task_id := l_originating_task_id;
4872: END IF;
4873:
4874: IF (l_log_statement >= l_log_current_level) THEN
4875: fnd_log.string(l_log_statement,
4876: L_DEBUG_KEY,
4877: ': Originating Task ID= ' || l_Task_rec.originating_task_id ||
4878: ': Validation: Start -- For ORIGINATING TASK');
4879: END IF;
4889: );
4890: END IF;
4891:
4892: IF (l_log_statement >= l_log_current_level) THEN
4893: fnd_log.string(l_log_statement,
4894: L_DEBUG_KEY,
4895: ': Validation: End -- For ORIGINATING TASK');
4896: END IF;
4897:
4898: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
4899:
4900: ----------------------- validate ----------------------
4901: IF (l_log_statement >= l_log_current_level) THEN
4902: fnd_log.string(l_log_statement,
4903: L_DEBUG_KEY,
4904: ':Validate ');
4905: END IF;
4906:
4913:
4914: -- Post 11.5.10 Changes by Senthil.
4915: IF(L_task_rec.STAGE_ID IS NOT NULL OR L_task_rec.STAGE_NAME IS NOT NULL) THEN
4916: IF (l_log_statement >= l_log_current_level) THEN
4917: fnd_log.string(l_log_statement,
4918: L_DEBUG_KEY,
4919: 'Before Calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES');
4920: END IF;
4921: AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES(
4927: X_RETURN_STATUS => l_return_status,
4928: X_MSG_COUNT => l_msg_count,
4929: X_MSG_DATA => l_msg_data );
4930: IF (l_log_statement >= l_log_current_level) THEN
4931: fnd_log.string(l_log_statement,
4932: L_DEBUG_KEY,
4933: 'After Calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES, Return Status = ' || l_return_status );
4934: END IF;
4935:
4973: END IF;
4974:
4975: -------------------------- update --------------------
4976: IF (l_log_statement >= l_log_current_level) THEN
4977: fnd_log.string(l_log_statement,
4978: L_DEBUG_KEY,
4979: 'Before Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
4980: END IF;
4981:
5065: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
5066: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
5067:
5068: IF (l_log_statement >= l_log_current_level) THEN
5069: fnd_log.string(l_log_statement,
5070: L_DEBUG_KEY,
5071: 'After Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
5072: END IF;
5073:
5077: p_task_rec => l_task_rec,
5078: x_warranty_entl_tbl => l_entl_rec_tbl);
5079:
5080: IF (l_log_statement >= l_log_current_level) THEN
5081: fnd_log.string(l_log_statement,
5082: L_DEBUG_KEY,
5083: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
5084: END IF;
5085:
5094: x_msg_count => l_msg_count,
5095: x_msg_data => l_msg_data);
5096:
5097: IF (l_log_statement >= l_log_current_level) THEN
5098: fnd_log.string(l_log_statement,
5099: L_DEBUG_KEY,
5100: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
5101: l_return_status);
5102: END IF;
5111:
5112: -- Added cxcheng POST11510--------------
5113: --Now adjust the times derivation for task
5114: IF (l_log_statement >= l_log_current_level) THEN
5115: fnd_log.string(l_log_statement,
5116: L_DEBUG_KEY,
5117: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
5118: END IF;
5119:
5129: p_task_id => l_task_rec.visit_task_id);
5130: END IF;
5131:
5132: IF (l_log_statement >= l_log_current_level) THEN
5133: fnd_log.string(l_log_statement,
5134: L_DEBUG_KEY,
5135: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = ' || l_return_status);
5136: END IF;
5137:
5156:
5157: IF c_upd_Task_rec.start_date_time IS NOT NULL THEN
5158:
5159: IF (l_log_statement >= l_log_current_level) THEN
5160: fnd_log.string(l_log_statement,
5161: L_DEBUG_KEY,
5162: 'Before Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
5163: END IF;
5164:
5177: x_msg_count => l_msg_count,
5178: x_msg_data => l_msg_data );
5179:
5180: IF (l_log_statement >= l_log_current_level) THEN
5181: fnd_log.string(l_log_statement,
5182: L_DEBUG_KEY,
5183: 'After Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials' ||
5184: 'Planned Order Flag : ' || l_planned_order_flag ||
5185: 'Return Status = ' || l_return_status );
5219: COMMIT;
5220: END IF;
5221:
5222: IF (l_log_procedure >= l_log_current_level) THEN
5223: fnd_log.string(l_log_procedure,
5224: L_DEBUG_KEY ||'.end',
5225: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5226: END IF;
5227: EXCEPTION
5303: c_Visit_rec c_Visit%ROWTYPE;
5304:
5305: BEGIN
5306: IF (l_log_procedure >= l_log_current_level) THEN
5307: fnd_log.string(l_log_procedure,
5308: L_DEBUG_KEY ||'.begin',
5309: 'At the start of PL SQL procedure.');
5310: END IF;
5311: --------------------- initialize -----------------------
5337: FETCH c_Task INTO c_Task_rec;
5338: CLOSE c_Task;
5339:
5340: IF (l_log_statement >= l_log_current_level) THEN
5341: fnd_log.string(l_log_statement,
5342: L_DEBUG_KEY,
5343: ': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id ||
5344: ': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name ||
5345: ': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number ||
5376: l_task_rec.department_id := l_department_id;
5377: END IF;
5378:
5379: IF (l_log_statement >= l_log_current_level) THEN
5380: fnd_log.string(l_log_statement,
5381: L_DEBUG_KEY,
5382: ': Dept ID= ' || l_Task_rec.department_id );
5383: END IF;
5384:
5386: -- which are without MR i.e MR_Id in cursor record c_task_rec will be Null
5387: IF c_Task_rec.MR_Id IS NULL THEN
5388:
5389: IF (l_log_statement >= l_log_current_level) THEN
5390: fnd_log.string(l_log_statement,
5391: L_DEBUG_KEY,
5392: ': Serial Number= ' || l_Task_rec.serial_number);
5393: END IF;
5394:
5416: --Assign the returned value
5417: l_Task_rec.instance_id := l_serial_id;
5418:
5419: IF (l_log_statement >= l_log_current_level) THEN
5420: fnd_log.string(l_log_statement,
5421: L_DEBUG_KEY,
5422: ': Before UC Check Serial ID= ' || l_Task_rec.instance_id ||
5423: ': Before UC Item ID= ' || l_Task_rec.inventory_item_id ||
5424: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id);
5437:
5438: END IF; -- End of l_Task_rec.serial_number Null check
5439:
5440: IF (l_log_statement >= l_log_current_level) THEN
5441: fnd_log.string(l_log_statement,
5442: L_DEBUG_KEY,
5443: ': Serial ID= ' || l_Task_rec.instance_id);
5444: END IF;
5445:
5447: l_Task_rec.instance_id := c_Task_rec.instance_id;
5448: END IF; -- End of c_Task_rec.MR_Id Null check
5449:
5450: IF (l_log_statement >= l_log_current_level) THEN
5451: fnd_log.string(l_log_statement,
5452: L_DEBUG_KEY,
5453: ': Cost parent= ' || l_Task_rec.cost_parent_number);
5454: END IF;
5455:
5459: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
5460: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
5461:
5462: IF (l_log_statement >= l_log_current_level) THEN
5463: fnd_log.string(l_log_statement,
5464: L_DEBUG_KEY,
5465: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
5466: END IF;
5467:
5497: );
5498: END IF;
5499:
5500: IF (l_log_statement >= l_log_current_level) THEN
5501: fnd_log.string(l_log_statement,
5502: L_DEBUG_KEY,
5503: ': Cost parent ID = ' || l_Task_rec.cost_parent_id);
5504: END IF;
5505:
5504: END IF;
5505:
5506: IF c_Task_rec.MR_Id IS NULL THEN
5507: IF (l_log_statement >= l_log_current_level) THEN
5508: fnd_log.string(l_log_statement,
5509: L_DEBUG_KEY,
5510: ': Originating Number = ' || l_Task_rec.orginating_task_number);
5511: END IF;
5512:
5516: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
5517: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
5518:
5519: IF (l_log_statement >= l_log_current_level) THEN
5520: fnd_log.string(l_log_statement,
5521: L_DEBUG_KEY,
5522: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
5523: END IF;
5524:
5543: l_Task_rec.originating_task_id := NULL;
5544: END IF;
5545:
5546: IF (l_log_statement >= l_log_current_level) THEN
5547: fnd_log.string(l_log_statement,
5548: L_DEBUG_KEY,
5549: ': Originating Task ID= ' || l_Task_rec.originating_task_id);
5550: END IF;
5551:
5577:
5578: ----------------------- validate ----------------------
5579:
5580: IF (l_log_statement >= l_log_current_level) THEN
5581: fnd_log.string(l_log_statement,
5582: L_DEBUG_KEY,
5583: ':Validate');
5584: END IF;
5585:
5620: END IF;
5621:
5622: -------------------------- update --------------------
5623: IF (l_log_statement >= l_log_current_level) THEN
5624: fnd_log.string(l_log_statement,
5625: L_DEBUG_KEY,
5626: 'Before Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
5627: END IF;
5628:
5712: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
5713: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
5714:
5715: IF (l_log_statement >= l_log_current_level) THEN
5716: fnd_log.string(l_log_statement,
5717: L_DEBUG_KEY,
5718: 'After Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
5719: END IF;
5720:
5724: p_task_rec => l_task_rec,
5725: x_warranty_entl_tbl => l_entl_rec_tbl);
5726:
5727: IF (l_log_statement >= l_log_current_level) THEN
5728: fnd_log.string(l_log_statement,
5729: L_DEBUG_KEY,
5730: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
5731: END IF;
5732:
5741: x_msg_count => l_msg_count,
5742: x_msg_data => l_msg_data);
5743:
5744: IF (l_log_statement >= l_log_current_level) THEN
5745: fnd_log.string(l_log_statement,
5746: L_DEBUG_KEY,
5747: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
5748: l_return_status);
5749: END IF;
5759: ------------------------End of API Body------------------------------------
5760: -- Added cxcheng POST11510--------------
5761: --Now adjust the times derivation for task
5762: IF (l_log_statement >= l_log_current_level) THEN
5763: fnd_log.string(l_log_statement,
5764: L_DEBUG_KEY,
5765: 'Before calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
5766: END IF;
5767: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
5772: x_msg_count => l_msg_count,
5773: x_msg_data => l_msg_data,
5774: p_task_id =>l_task_rec.visit_task_id);
5775: IF (l_log_statement >= l_log_current_level) THEN
5776: fnd_log.string(l_log_statement,
5777: L_DEBUG_KEY,
5778: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = ' || l_return_status);
5779: END IF;
5780:
5792: COMMIT;
5793: END IF;
5794:
5795: IF (l_log_procedure >= l_log_current_level) THEN
5796: fnd_log.string(l_log_procedure,
5797: L_DEBUG_KEY ||'.end',
5798: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5799: END IF;
5800:
5931:
5932: BEGIN
5933:
5934: IF (l_log_procedure >= l_log_current_level) THEN
5935: fnd_log.string(l_log_procedure,
5936: L_DEBUG_KEY ||'.begin',
5937: 'At the start of PL SQL procedure.');
5938: END IF;
5939: --------------------- initialize -----------------------
5970: FETCH c_sr_ovn into c_sr_ovn_rec;
5971: CLOSE c_sr_ovn;
5972:
5973: IF (l_log_statement >= l_log_current_level) THEN
5974: fnd_log.string(l_log_statement,
5975: L_DEBUG_KEY,
5976: ': Visit Id = ' || c_visit_rec.visit_id ||
5977: ': Status Code ' || c_visit_rec.status_code ||
5978: ': Visit Id = ' || c_task_rec.visit_task_id);
5987: ELSIF c_task_rec.status_code = 'PLANNING' THEN
5988: IF c_task_rec.task_type_code = 'SUMMARY' THEN
5989:
5990: IF (l_log_statement >= l_log_current_level) THEN
5991: fnd_log.string(l_log_statement,
5992: L_DEBUG_KEY,
5993: 'Before Calling Delete_Summary_Task');
5994: END IF;
5995: Delete_Summary_Task
6004: x_msg_data => l_msg_data
6005: );
6006:
6007: IF (l_log_statement >= l_log_current_level) THEN
6008: fnd_log.string(l_log_statement,
6009: L_DEBUG_KEY,
6010: 'After Calling Delete_Summary_Task, Return Status = ' || l_return_status );
6011: END IF;
6012:
6012:
6013: ELSIF c_task_rec.task_type_code = 'PLANNED' THEN
6014:
6015: IF (l_log_statement >= l_log_current_level) THEN
6016: fnd_log.string(l_log_statement,
6017: L_DEBUG_KEY,
6018: 'Before Calling AHL_VWP_PLAN_TASKS_PVT.Delete_Planned_Task');
6019: END IF;
6020: AHL_VWP_PLAN_TASKS_PVT.Delete_Planned_Task
6029: x_msg_data => l_msg_data
6030: );
6031:
6032: IF (l_log_statement >= l_log_current_level) THEN
6033: fnd_log.string(l_log_statement,
6034: L_DEBUG_KEY,
6035: 'After Calling AHL_VWP_PLAN_TASKS_PVT.Delete_Planned_Task, Return Status = ' || l_return_status);
6036: END IF;
6037:
6037:
6038: ELSIF c_task_rec.task_type_code = 'UNPLANNED' THEN
6039:
6040: IF (l_log_statement >= l_log_current_level) THEN
6041: fnd_log.string(l_log_statement,
6042: L_DEBUG_KEY,
6043: 'Before Calling AHL_VWP_UNPLAN_TASKS_PVT.Delete_Unplanned_Task');
6044: END IF;
6045: AHL_VWP_UNPLAN_TASKS_PVT.Delete_Unplanned_Task
6054: x_msg_data => l_msg_data
6055: );
6056:
6057: IF (l_log_statement >= l_log_current_level) THEN
6058: fnd_log.string(l_log_statement,
6059: L_DEBUG_KEY,
6060: 'After Calling AHL_VWP_UNPLAN_TASKS_PVT.Delete_Unplanned_Task, Return Status = ' || l_return_status );
6061: END IF;
6062: ELSIF c_task_rec.task_type_code = 'STAGE' THEN -- VWPE 12730539:: PRAKKUM :: 26-JUL-2011 :: to delete stage tasks
6061: END IF;
6062: ELSIF c_task_rec.task_type_code = 'STAGE' THEN -- VWPE 12730539:: PRAKKUM :: 26-JUL-2011 :: to delete stage tasks
6063:
6064: IF (l_log_statement >= l_log_current_level) THEN
6065: fnd_log.string(l_log_statement,
6066: L_DEBUG_KEY,
6067: 'Before Calling Delete_Stage_Task');
6068: END IF;
6069: Delete_Stage_Task
6078: x_msg_data => l_msg_data
6079: );
6080:
6081: IF (l_log_statement >= l_log_current_level) THEN
6082: fnd_log.string(l_log_statement,
6083: L_DEBUG_KEY,
6084: 'After Calling Delete_Stage_Task, Return Status = ' || l_return_status
6085: ||', l_msg_data= '||l_msg_data);
6086: END IF;
6087:
6088: ELSE
6089:
6090: IF (l_log_statement >= l_log_current_level) THEN
6091: fnd_log.string(l_log_statement,
6092: L_DEBUG_KEY,
6093: 'Before Calling Delete_Unassociated_Task');
6094: END IF;
6095: Delete_Unassociated_Task
6103: x_msg_count => l_msg_count,
6104: x_msg_data => l_msg_data
6105: );
6106: IF (l_log_statement >= l_log_current_level) THEN
6107: fnd_log.string(l_log_statement,
6108: L_DEBUG_KEY,
6109: 'After Calling Delete_Unassociated_Task, Return Status = ' || l_return_status);
6110: END IF;
6111:
6123: --Now adjust the times derivation for entire visit task could delete at
6124: --MR level
6125:
6126: IF (l_log_statement >= l_log_current_level) THEN
6127: fnd_log.string(l_log_statement,
6128: L_DEBUG_KEY,
6129: 'Before Calling AHL_VWP_TIMES_PVT.calculate_Task_Times');
6130: END IF;
6131:
6138: x_msg_data => l_msg_data,
6139: p_visit_id => c_task_rec.visit_id);
6140:
6141: IF (l_log_statement >= l_log_current_level) THEN
6142: fnd_log.string(l_log_statement,
6143: L_DEBUG_KEY,
6144: 'After Calling AHL_VWP_TIMES_PVT.calculate_Task_Times, Return Status = ' || l_return_status);
6145: END IF;
6146:
6144: 'After Calling AHL_VWP_TIMES_PVT.calculate_Task_Times, Return Status = ' || l_return_status);
6145: END IF;
6146:
6147: IF (l_log_statement >= l_log_current_level) THEN
6148: fnd_log.string(l_log_statement,
6149: L_DEBUG_KEY,
6150: 'Before Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
6151: END IF;
6152:
6165: x_msg_count => l_msg_count,
6166: x_msg_data => l_msg_data);
6167:
6168: IF (l_log_statement >= l_log_current_level) THEN
6169: fnd_log.string(l_log_statement,
6170: L_DEBUG_KEY,
6171: 'After Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials, Return Status = ' || l_return_status);
6172: END IF;
6173:
6228: FETCH chk_rpr_batch_has_planed_tasks INTO l_dummy;
6229: IF (chk_rpr_batch_has_planed_tasks%NOTFOUND) THEN
6230:
6231: IF (l_log_statement >= l_log_current_level) THEN
6232: FND_LOG.string(l_log_statement, l_debug_key, 'Repair Batch ' || l_repair_batch_name || ' has no planned tasks.');
6233: END IF;
6234:
6235: UPDATE AHL_VISIT_TASKS_B
6236: SET status_code = 'RELEASED',
6255:
6256: -- If SR Id of task is not null
6257: -- then update the status of the SR to OPEN
6258: IF (l_log_statement >= l_log_current_level) THEN
6259: fnd_log.string(l_log_statement,
6260: L_DEBUG_KEY,
6261: 'Service Request Id = ' || c_task_rec.service_request_id);
6262: END IF;
6263: IF c_task_rec.service_request_id IS NOT NULL THEN
6261: 'Service Request Id = ' || c_task_rec.service_request_id);
6262: END IF;
6263: IF c_task_rec.service_request_id IS NOT NULL THEN
6264: IF (l_log_statement >= l_log_current_level) THEN
6265: fnd_log.string(l_log_statement,
6266: L_DEBUG_KEY,
6267: 'Before Calling CS_ServiceRequest_PUB.Update_Status');
6268: END IF;
6269:
6296: );
6297: -- yazhou 29-Jun-2006 ends
6298:
6299: IF (l_log_statement >= l_log_current_level) THEN
6300: fnd_log.string(l_log_statement,
6301: L_DEBUG_KEY,
6302: 'After Calling CS_ServiceRequest_PUB.Update_Status, Return Status = ' || l_return_status);
6303: END IF;
6304:
6341: COMMIT;
6342: END IF;
6343:
6344: IF (l_log_procedure >= l_log_current_level) THEN
6345: fnd_log.string(l_log_procedure,
6346: L_DEBUG_KEY ||'.end',
6347: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6348: END IF;
6349:
6463: l_entl_rec_tbl AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type; --salogan added for supplier warranty
6464:
6465: BEGIN
6466: IF (l_log_procedure >= l_log_current_level) THEN
6467: fnd_log.string(l_log_procedure,
6468: L_DEBUG_KEY ||'.begin',
6469: 'At the start of PL SQL procedure.');
6470: END IF;
6471:
6490: END IF;
6491:
6492: ------------------------Start of API Body------------------------------------
6493: IF (l_log_statement >= l_log_current_level) THEN
6494: fnd_log.string(l_log_statement,
6495: L_DEBUG_KEY,
6496: ':Task Id' || p_visit_task_ID);
6497: END IF;
6498:
6538: l_workorder_rec.wip_entity_id := null;
6539: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
6540:
6541: IF (l_log_statement >= l_log_current_level) THEN
6542: fnd_log.string(l_log_statement,
6543: L_DEBUG_KEY,
6544: 'Before Calling AHL_PRD_WORKORDER_PVT.update_job');
6545: END IF;
6546: AHL_PRD_WORKORDER_PVT.update_job
6559: p_x_prd_workoper_tbl => l_workoper_tbl
6560: );
6561:
6562: IF (l_log_statement >= l_log_current_level) THEN
6563: fnd_log.string(l_log_statement,
6564: L_DEBUG_KEY,
6565: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
6566: END IF;
6567:
6624: OBJECT_VERSION_NUMBER = c_primary_rec.object_version_number + 1
6625: WHERE --VISIT_ID = l_visit_id AND
6626: VISIT_TASK_ID = c_primary_rec.visit_task_id;
6627: IF (l_log_statement >= l_log_current_level) THEN
6628: fnd_log.string(l_log_statement,
6629: L_DEBUG_KEY,
6630: 'Updated AHL_VISIT_TASKS_B for Visit Task Id = ' || c_primary_rec.visit_task_id);
6631: END IF;
6632: END IF;
6645: END IF;
6646: CLOSE c_links;
6647:
6648: IF (l_log_statement >= l_log_current_level) THEN
6649: fnd_log.string(l_log_statement,
6650: L_DEBUG_KEY,
6651: 'Project Task Id = ' || c_task_rec.PROJECT_TASK_ID);
6652: END IF;
6653:
6654: -- When a visit's task is deleted than the related projects's task is also deleted
6655: IF c_task_rec.PROJECT_TASK_ID IS NOT NULL THEN
6656:
6657: IF (l_log_statement >= l_log_current_level) THEN
6658: fnd_log.string(l_log_statement,
6659: L_DEBUG_KEY,
6660: 'Before Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project');
6661: END IF;
6662: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project(
6678: END IF;
6679: END IF;
6680:
6681: IF (l_log_statement >= l_log_current_level) THEN
6682: fnd_log.string(l_log_statement,
6683: L_DEBUG_KEY,
6684: 'Value of l_workorder_present = ' || l_workorder_present);
6685: END IF;
6686:
6718: Get_Entl_rec_for_Delete(
6719: p_task_id => l_task_id,
6720: x_warranty_entl_tbl => l_entl_rec_tbl);
6721: IF (l_log_statement >= l_log_current_level) THEN
6722: fnd_log.string(l_log_statement,
6723: L_DEBUG_KEY,
6724: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
6725: END IF;
6726:
6735: x_msg_count => l_msg_count,
6736: x_msg_data => l_msg_data);
6737:
6738: IF (l_log_statement >= l_log_current_level) THEN
6739: fnd_log.string(l_log_statement,
6740: L_DEBUG_KEY,
6741: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
6742: l_return_status);
6743: END IF;
6750: END IF;
6751: -- salogan added for supplier warranty ends
6752:
6753: IF (l_log_statement >= l_log_current_level) THEN
6754: fnd_log.string(l_log_statement,
6755: L_DEBUG_KEY,
6756: 'Updation of the status to DELETED');
6757: END IF;
6758:
6769: p_data => x_msg_data
6770: );
6771:
6772: IF (l_log_procedure >= l_log_current_level) THEN
6773: fnd_log.string(l_log_procedure,
6774: L_DEBUG_KEY ||'.end',
6775: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6776: END IF;
6777: EXCEPTION
6902: order by visit_task_id desc;
6903:
6904: BEGIN
6905: IF (l_log_procedure >= l_log_current_level) THEN
6906: fnd_log.string(l_log_procedure,
6907: L_DEBUG_KEY ||'.begin',
6908: 'At the start of PL SQL procedure.');
6909: END IF;
6910:
6926: END IF;
6927:
6928: ------------------------Start of API Body------------------------------------
6929: IF (l_log_statement >= l_log_current_level) THEN
6930: fnd_log.string(l_log_statement,
6931: L_DEBUG_KEY,
6932: ':Task Id' || p_visit_task_ID);
6933: END IF;
6934:
6971: FETCH c_workorders INTO c_workrec;
6972:
6973: IF C_WORKORDERS%FOUND THEN
6974: IF (l_log_statement >= l_log_current_level) THEN
6975: fnd_log.string(l_log_statement,
6976: L_DEBUG_KEY,
6977: 'Check Workorder Status = ' || c_workrec.status_code);
6978: END IF;
6979: IF c_workrec.status_code<>'17'
7011:
7012: -- SKPATHAK :: 18-JUL-2011 :: VWPE 12730539
7013: -- Rather than calling update_job, call cancel_visit_jobs
7014: IF (l_log_statement >= l_log_current_level)THEN
7015: fnd_log.string(l_log_statement,
7016: L_DEBUG_KEY,
7017: 'Before Calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs. Visit Id: '||c_visit_rec.visit_id||',p_unit_effectivity_id: '||c_task_rec.unit_effectivity_id||', p_workorder_id: '||c_workrec.workorder_id);
7018: END IF;
7019:
7035: p_x_prd_workoper_tbl =>l_workoper_tbl
7036: );
7037:
7038: IF (l_log_statement >= l_log_current_level) THEN
7039: fnd_log.string(l_log_statement,
7040: L_DEBUG_KEY,
7041: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
7042: END IF;*/
7043:
7057: p_workorder_id =>NULL
7058: );
7059:
7060: IF (l_log_statement >= l_log_current_level)THEN
7061: fnd_log.string(l_log_statement,
7062: L_DEBUG_KEY,
7063: 'After Calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs, Return Status = ' || l_return_status );
7064: END IF;
7065:
7078:
7079: CLOSE c_workorders;
7080:
7081: IF (l_log_statement >= l_log_current_level) THEN
7082: fnd_log.string(l_log_statement,
7083: L_DEBUG_KEY,
7084: ' Calling Update_Cost_Origin_Task, task id : '||l_task_ID );
7085: END IF;
7086:
7096: RAISE Fnd_Api.g_exc_error;
7097: END IF;
7098:
7099: IF (l_log_statement >= l_log_current_level) THEN
7100: fnd_log.string(l_log_statement,
7101: L_DEBUG_KEY,
7102: 'Check for Primary Visit');
7103: END IF;
7104:
7121: END IF;
7122:
7123: IF c_task_rec.PROJECT_TASK_ID IS NOT NULL THEN
7124: IF (l_log_statement >= l_log_current_level) THEN
7125: fnd_log.string(l_log_statement,
7126: L_DEBUG_KEY,
7127: 'Before Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project');
7128: END IF;
7129:
7138: /*x_msg_count => x_msg_count,
7139: x_msg_data => x_msg_data);*/
7140:
7141: IF (l_log_statement >= l_log_current_level) THEN
7142: fnd_log.string(l_log_statement,
7143: L_DEBUG_KEY,
7144: 'After Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project, Return Status = ' || l_return_status);
7145: END IF;
7146:
7152:
7153: END IF;
7154:
7155: IF (l_log_statement >= l_log_current_level) THEN
7156: fnd_log.string(l_log_statement,
7157: L_DEBUG_KEY,
7158: 'Before deleting from AHL_TASK_LINKS table');
7159: END IF;
7160:
7167: END IF;
7168: CLOSE c_links;
7169:
7170: IF (l_log_statement >= l_log_current_level) THEN
7171: fnd_log.string(l_log_statement,
7172: L_DEBUG_KEY,
7173: 'Before updating task status to DELETED');
7174: END IF;
7175:
7185: p_task_id => l_task_id,
7186: x_warranty_entl_tbl => l_entl_rec_tbl);
7187:
7188: IF (l_log_statement >= l_log_current_level) THEN
7189: fnd_log.string(l_log_statement,
7190: L_DEBUG_KEY,
7191: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
7192: END IF;
7193:
7202: x_msg_count => l_msg_count,
7203: x_msg_data => l_msg_data);
7204:
7205: IF (l_log_statement >= l_log_current_level) THEN
7206: fnd_log.string(l_log_statement,
7207: L_DEBUG_KEY,
7208: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
7209: l_return_status);
7210: END IF;
7232:
7233: -- Delete task base (AHL_VISIT_TASKS_B) table data
7234:
7235: IF (l_log_statement >= l_log_current_level) THEN
7236: fnd_log.string(l_log_statement,
7237: L_DEBUG_KEY,
7238: ':Delete from base task table');
7239: END IF;
7240:
7256: OR NVL(c_visit_rec.estimated_price,0) <> 0
7257: THEN
7258:
7259: IF (l_log_statement >= l_log_current_level) THEN
7260: fnd_log.string(l_log_statement,
7261: L_DEBUG_KEY,
7262: 'Before updating visit price by deducting task price');
7263: END IF;
7264:
7279:
7280: END IF; -- Task Null Check
7281:
7282: IF (l_log_procedure >= l_log_current_level) THEN
7283: fnd_log.string(l_log_procedure,
7284: L_DEBUG_KEY ||'.end',
7285: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7286: END IF;
7287: EXCEPTION
7424: SELECT 'X' from ahl_visit_tasks_b where unit_effectivity_id = c_ue_id and
7425: status_code <> 'DELETED';
7426: BEGIN
7427: IF (l_log_procedure >= l_log_current_level) THEN
7428: fnd_log.string(l_log_procedure,
7429: L_DEBUG_KEY ||'.begin',
7430: 'At the start of PL SQL procedure.');
7431: END IF;
7432:
7451:
7452: ------------------------Start of API Body------------------------------------
7453:
7454: IF (l_log_statement >= l_log_current_level)THEN
7455: fnd_log.string(l_log_statement,
7456: L_DEBUG_KEY,
7457: ':Task Id' || p_visit_task_ID);
7458: END IF;
7459:
7482: l_est_price :=c_task_rec.estimated_price;
7483: l_task_id := p_Visit_Task_Id;
7484:
7485: IF (l_log_statement >= l_log_current_level)THEN
7486: fnd_log.string(l_log_statement,
7487: L_DEBUG_KEY,
7488: ':Visit Id' || l_visit_id);
7489: END IF;
7490:
7495: IF (AHL_CMP_UTIL_PKG.Is_Comp_Visit (l_visit_id) = 'N') THEN
7496:
7497: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: START
7498: -- For every MR, dis-associate the materials based on the MR Profile to the stage tasks
7499: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7500: fnd_log.string (fnd_log.level_statement,
7501: l_debug_key,
7502: 'Before calling AHL_LTP_REQST_MATRL_PVT.Remove_Stage_Materials, c_task_rec.task_type_code= '||c_task_rec.task_type_code
7503: );
7496:
7497: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: START
7498: -- For every MR, dis-associate the materials based on the MR Profile to the stage tasks
7499: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7500: fnd_log.string (fnd_log.level_statement,
7501: l_debug_key,
7502: 'Before calling AHL_LTP_REQST_MATRL_PVT.Remove_Stage_Materials, c_task_rec.task_type_code= '||c_task_rec.task_type_code
7503: );
7504: END IF;
7518: x_msg_count => l_msg_count,
7519: x_msg_data => l_msg_data);
7520: END IF;
7521:
7522: IF (l_log_statement >= fnd_log.g_current_runtime_level) THEN
7523: fnd_log.string(fnd_log.level_statement,
7524: L_DEBUG_KEY,
7525: 'After callingAHL_LTP_REQST_MATRL_PVT.Remove_Stage_Materials. l_return_status = ' || l_return_status);
7526: END IF;
7519: x_msg_data => l_msg_data);
7520: END IF;
7521:
7522: IF (l_log_statement >= fnd_log.g_current_runtime_level) THEN
7523: fnd_log.string(fnd_log.level_statement,
7524: L_DEBUG_KEY,
7525: 'After callingAHL_LTP_REQST_MATRL_PVT.Remove_Stage_Materials. l_return_status = ' || l_return_status);
7526: END IF;
7527:
7540: END IF; -- if AHL_CMP_UTIL_PKG.Is_Comp_Visit (l_visit_id) = 'N'
7541:
7542: IF l_origin_id is not null THEN
7543: IF (l_log_statement >= l_log_current_level)THEN
7544: fnd_log.string(l_log_statement,
7545: L_DEBUG_KEY,
7546: 'Before Calling Delete_Summary_Task' );
7547: END IF;
7548: Delete_Summary_Task(
7556: x_msg_count =>x_msg_count,
7557: x_msg_data =>x_msg_data);
7558:
7559: IF (l_log_statement >= l_log_current_level)THEN
7560: fnd_log.string(l_log_statement,
7561: L_DEBUG_KEY,
7562: 'After Calling Delete_Summary_Task, Return Status = ' || x_return_status);
7563: END IF;
7564:
7604:
7605: IF c_workorders%found THEN
7606:
7607: IF (l_log_statement >= l_log_current_level)THEN
7608: fnd_log.string(l_log_statement,
7609: L_DEBUG_KEY,
7610: 'Check Workorder Status = ' || c_workrec.status_code);
7611: END IF;
7612:
7642: l_workorder_rec.wip_entity_id := null;
7643: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
7644:
7645: IF (l_log_statement >= l_log_current_level)THEN
7646: fnd_log.string(l_log_statement,
7647: L_DEBUG_KEY,
7648: 'Before Calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs. Visit Id: '||c_visit_rec.visit_id||',p_unit_effectivity_id: '||c_task_rec.unit_effectivity_id||', p_workorder_id: '||c_workrec.workorder_id);
7649: END IF;
7650:
7684: p_workorder_id =>NULL
7685: );
7686:
7687: IF (l_log_statement >= l_log_current_level)THEN
7688: fnd_log.string(l_log_statement,
7689: L_DEBUG_KEY,
7690: 'After Calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs, Return Status = ' || l_return_status );
7691: END IF;
7692:
7702: END IF; -- End of if c_workorders%found check
7703: CLOSE c_workorders;
7704:
7705: IF (l_log_statement >= l_log_current_level)THEN
7706: fnd_log.string(l_log_statement,
7707: L_DEBUG_KEY,
7708: ' Calling AHL_VWP_RULES_PVT.Update_Cost_Origin_Task');
7709: END IF;
7710:
7721: RAISE FND_API.G_EXC_ERROR;
7722: END IF;
7723:
7724: IF (l_log_statement >= l_log_current_level)THEN
7725: fnd_log.string(l_log_statement,
7726: L_DEBUG_KEY,
7727: 'Check for Primary Visit');
7728: END IF;
7729:
7760:
7761: IF c_task_rec.PROJECT_TASK_ID IS NOT NULL THEN
7762:
7763: IF (l_log_statement >= l_log_current_level)THEN
7764: fnd_log.string(l_log_statement,
7765: L_DEBUG_KEY,
7766: ' Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project API');
7767: END IF;
7768:
7785:
7786: END IF;
7787:
7788: IF (l_log_statement >= l_log_current_level)THEN
7789: fnd_log.string(l_log_statement,
7790: L_DEBUG_KEY,
7791: 'Before deleting from AHL_TASK_LINKS table');
7792: END IF;
7793:
7800: END IF;
7801: CLOSE c_links;
7802:
7803: IF (l_log_statement >= l_log_current_level)THEN
7804: fnd_log.string(l_log_statement,
7805: L_DEBUG_KEY,
7806: 'Before updating task status to DELETED');
7807: END IF;
7808:
7830: p_task_id => l_task_id,
7831: x_warranty_entl_tbl => l_entl_rec_tbl);
7832:
7833: IF (l_log_statement >= l_log_current_level) THEN
7834: fnd_log.string(l_log_statement,
7835: L_DEBUG_KEY,
7836: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
7837: END IF;
7838:
7847: x_msg_count => l_msg_count,
7848: x_msg_data => l_msg_data);
7849:
7850: IF (l_log_statement >= l_log_current_level) THEN
7851: fnd_log.string(l_log_statement,
7852: L_DEBUG_KEY,
7853: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
7854: l_return_status);
7855: END IF;
7863: -- salogan added for supplier warranty ends
7864: ELSE
7865:
7866: IF (l_log_statement >= l_log_current_level)THEN
7867: fnd_log.string(l_log_statement,
7868: L_DEBUG_KEY,
7869: 'Before DELETE');
7870: END IF;
7871: DELETE FROM Ahl_Visit_Tasks_TL WHERE Visit_Task_ID = l_task_id;
7880: END IF;
7881:
7882: -- Delete task base (AHL_VISIT_TASKS_B) table data
7883: IF (l_log_statement >= l_log_current_level)THEN
7884: fnd_log.string(l_log_statement,
7885: L_DEBUG_KEY,
7886: ':Delete from base task table');
7887: END IF;
7888:
7904: OR NVL(c_visit_rec.estimated_price,0) <> 0
7905: THEN
7906:
7907: IF (l_log_statement >= l_log_current_level)THEN
7908: fnd_log.string(l_log_statement,
7909: L_DEBUG_KEY,
7910: 'Before updating visit price by deducting task price');
7911: END IF;
7912:
7930: IF (check_unplanned_ue_assoc%NOTFOUND) THEN
7931: CLOSE check_unplanned_ue_assoc;
7932:
7933: IF (l_log_statement >= l_log_current_level)THEN
7934: fnd_log.string(l_log_statement,
7935: L_DEBUG_KEY,
7936: 'Before DELETE_UNIT_EFFECTIVITY');
7937: END IF;
7938:
7947: X_MSG_DATA => x_msg_data,
7948: P_UNIT_EFFECTIVITY_ID => l_unit_effectivity_id
7949: );
7950: IF (l_log_statement >= l_log_current_level)THEN
7951: fnd_log.string(l_log_statement,
7952: L_DEBUG_KEY,
7953: 'After DELETE_UNIT_EFFECTIVITY');
7954: END IF;
7955: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7964:
7965: ELSIF c_task_rec.mr_id IS NULL AND c_task_rec.unit_effectivity_id is not null
7966: THEN
7967: IF (l_log_statement >= l_log_current_level)THEN
7968: fnd_log.string(l_log_statement,
7969: L_DEBUG_KEY,
7970: 'Before Delete_SR_Task');
7971: END IF;
7972: Delete_SR_Task(
7980: x_msg_count => x_msg_count,
7981: x_msg_data => x_msg_data
7982: );
7983: IF (l_log_statement >= l_log_current_level)THEN
7984: fnd_log.string(l_log_statement,
7985: L_DEBUG_KEY,
7986: 'After Delete_SR_Task');
7987: END IF;
7988: IF (fnd_msg_pub.count_msg > 0 ) THEN
7987: END IF;
7988: IF (fnd_msg_pub.count_msg > 0 ) THEN
7989:
7990: IF (l_log_statement >= l_log_current_level)THEN
7991: fnd_log.string(l_log_statement,
7992: L_DEBUG_KEY,
7993: 'Error raised in Delete_SR_Task');
7994: END IF;
7995: RAISE Fnd_Api.G_EXC_ERROR;
8002: l_visit_id := c_task_rec.visit_id;
8003: l_task_id := p_Visit_Task_Id;
8004:
8005: IF (l_log_statement >= l_log_current_level) THEN
8006: fnd_log.string(l_log_statement,
8007: L_DEBUG_KEY,
8008: 'Before AHL_VWP_RULES_PVT.Update_Cost_Origin_Task Call');
8009: END IF;
8010:
8015: x_return_status =>x_return_status
8016: );
8017:
8018: IF (l_log_statement >= l_log_current_level) THEN
8019: fnd_log.string(l_log_statement,
8020: L_DEBUG_KEY,
8021: 'Check for primary Visit');
8022: END IF;
8023: --OPEN c_primary (l_visit_id, l_task_id);
8036: END LOOP;
8037: CLOSE c_primary;
8038: END IF;
8039: IF (l_log_statement >= l_log_current_level) THEN
8040: fnd_log.string(l_log_statement,
8041: L_DEBUG_KEY,
8042: 'Before deletion from Ahl_Task_Links table');
8043: END IF;
8044: OPEN c_links (l_task_id);
8052:
8053: IF c_task_rec.PROJECT_TASK_ID IS NOT NULL
8054: THEN
8055: IF (l_log_statement >= l_log_current_level) THEN
8056: fnd_log.string(l_log_statement,
8057: L_DEBUG_KEY,
8058: ' Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project');
8059: END IF;
8060: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project
8085: p_task_id => l_task_id,
8086: x_warranty_entl_tbl => l_entl_rec_tbl);
8087:
8088: IF (l_log_statement >= l_log_current_level) THEN
8089: fnd_log.string(l_log_statement,
8090: L_DEBUG_KEY,
8091: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
8092: END IF;
8093:
8102: x_msg_count => l_msg_count,
8103: x_msg_data => l_msg_data);
8104:
8105: IF (l_log_statement >= l_log_current_level) THEN
8106: fnd_log.string(l_log_statement,
8107: L_DEBUG_KEY,
8108: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
8109: l_return_status);
8110: END IF;
8128: END IF;
8129:
8130: -- Delete task base (AHL_VISIT_TASKS_B) table data
8131: IF (l_log_statement >= l_log_current_level) THEN
8132: fnd_log.string(l_log_statement,
8133: L_DEBUG_KEY,
8134: ':Delete from base task table');
8135: END IF;
8136:
8162: p_data => x_msg_data
8163: );
8164:
8165: IF (l_log_procedure >= l_log_current_level) THEN
8166: fnd_log.string(l_log_procedure,
8167: L_DEBUG_KEY ||'.end',
8168: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
8169: END IF;
8170:
8248: --------------------- initialize -----------------------
8249: SAVEPOINT Search_Task;
8250:
8251: IF (l_log_procedure >= l_log_current_level) THEN
8252: fnd_log.string(l_log_procedure,
8253: L_DEBUG_KEY ||'.begin',
8254: 'At the start of PL SQL procedure.');
8255: END IF;
8256:
8271: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8272: END IF;
8273: ---------------------------Start of Body-------------------------------------
8274: IF (l_log_statement >= l_log_current_level) THEN
8275: fnd_log.string(l_log_statement,
8276: L_DEBUG_KEY,
8277: ': Visit Id ' || p_visit_id);
8278: END IF;
8279: OPEN c_visit (p_visit_id);
8300: END IF;
8301: p_x_srch_task_tbl := l_tasks_tbl;
8302: ELSE
8303: IF (l_log_statement >= l_log_current_level) THEN
8304: fnd_log.string(l_log_statement,
8305: L_DEBUG_KEY,
8306: ': Either Visit Start End Time Missing' || c_visit_rec.START_DATE_TIME ||
8307: ': Or Visit Department Missing' || c_visit_rec.DEPARTMENT_ID ||
8308: ': Or Department Shift for a Dept Missing' || l_count);
8322: IF l_tasks_tbl.COUNT > 0 THEN
8323: X := l_tasks_tbl.FIRST;
8324: LOOP
8325: IF (l_log_statement >= l_log_current_level) THEN
8326: fnd_log.string(l_log_statement,
8327: L_DEBUG_KEY,
8328: 'Value of Task Id : ' || l_tasks_tbl(X).Task_Id ||
8329: 'Value of Start Date : ' || TO_CHAR(l_tasks_tbl(X).TASK_START_TIME, 'MM/DD/YY HH24:MI:SS') ||
8330: 'Value of End Date : ' || TO_CHAR(l_tasks_tbl(X).TASK_END_TIME, 'MM/DD/YY HH24:MI:SS'));
8350: COMMIT;
8351: END IF;
8352:
8353: IF (l_log_procedure >= l_log_current_level) THEN
8354: fnd_log.string(l_log_procedure,
8355: L_DEBUG_KEY ||'.end',
8356: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
8357: END IF;
8358:
8414: BEGIN
8415: --------------------- initialize -----------------------
8416:
8417: IF (l_log_procedure >= l_log_current_level) THEN
8418: fnd_log.string(l_log_procedure,
8419: L_DEBUG_KEY ||'.begin',
8420: 'At the start of PL SQL procedure.');
8421: END IF;
8422:
8436:
8437: ---------------------- validate ------------------------
8438:
8439: IF (l_log_statement >= l_log_current_level) THEN
8440: fnd_log.string(l_log_statement,
8441: L_DEBUG_KEY,
8442: ':Check items1');
8443: END IF;
8444:
8455: END IF;
8456: END IF;
8457:
8458: IF (l_log_statement >= l_log_current_level) THEN
8459: fnd_log.string(l_log_statement,
8460: L_DEBUG_KEY,
8461: ':Check items2');
8462: END IF;
8463:
8469: p_data => x_msg_data
8470: );
8471:
8472: IF (l_log_procedure >= l_log_current_level) THEN
8473: fnd_log.string(l_log_procedure,
8474: L_DEBUG_KEY ||'.end',
8475: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
8476: END IF;
8477: EXCEPTION
8520: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
8521: BEGIN
8522: --
8523: IF (l_log_procedure >= l_log_current_level) THEN
8524: fnd_log.string(l_log_procedure,
8525: L_DEBUG_KEY ||'.begin',
8526: 'At the start of PL SQL procedure.');
8527: END IF;
8528: x_return_status := Fnd_Api.g_ret_sts_success;
8528: x_return_status := Fnd_Api.g_ret_sts_success;
8529: -- Validate required items.
8530:
8531: IF (l_log_statement >= l_log_current_level) THEN
8532: fnd_log.string(l_log_statement,
8533: L_DEBUG_KEY,
8534: 'Check_Task_Items:Before Check_Visit_Task_Req_Items');
8535: END IF;
8536:
8548: --
8549: -- Validate uniqueness.
8550:
8551: IF (l_log_statement >= l_log_current_level) THEN
8552: fnd_log.string(l_log_statement,
8553: L_DEBUG_KEY,
8554: 'Check_Task_Items:Before Check_Visit_Task_UK_Items');
8555: END IF;
8556: Check_Visit_Task_UK_Items (
8559: x_return_status => x_return_status
8560: );
8561:
8562: IF (l_log_procedure >= l_log_current_level) THEN
8563: fnd_log.string(l_log_procedure,
8564: L_DEBUG_KEY ||'.begin',
8565: 'At the end of PL SQL procedure. Return Status ' ||x_return_status);
8566: END IF;
8567:
8637: l_serial_ctrl VARCHAR2(2) := NULL;
8638: BEGIN
8639:
8640: IF (l_log_procedure >= l_log_current_level) THEN
8641: fnd_log.string(l_log_procedure,
8642: L_DEBUG_KEY ||'.begin',
8643: 'At the start of PL SQL procedure.');
8644: END IF;
8645:
8710: END IF;
8711: END IF;
8712:
8713: IF (l_log_procedure >= l_log_current_level) THEN
8714: fnd_log.string(l_log_procedure,
8715: L_DEBUG_KEY ||'.end',
8716: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
8717: END IF;
8718: END Check_Visit_Task_Req_Items;
8736: BEGIN
8737: x_return_status := Fnd_Api.g_ret_sts_success;
8738:
8739: IF (l_log_procedure >= l_log_current_level) THEN
8740: fnd_log.string(l_log_procedure,
8741: L_DEBUG_KEY ||'.begin',
8742: 'At the start of PL SQL procedure.');
8743: END IF;
8744: --
8749: AND p_task_rec.Visit_Task_ID IS NOT NULL
8750: THEN
8751:
8752: IF (l_log_statement >= l_log_current_level) THEN
8753: fnd_log.string(l_log_statement,
8754: L_DEBUG_KEY,
8755: ': = Check_Visit_Task_UK_Items Uniqueness Of ID');
8756: END IF;
8757:
8770: END IF;
8771: END IF;
8772:
8773: IF (l_log_procedure >= l_log_current_level) THEN
8774: fnd_log.string(l_log_procedure,
8775: L_DEBUG_KEY ||'.end',
8776: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
8777: END IF;
8778: END Check_Visit_Task_UK_Items;
8883: --------------------- initialize -----------------------
8884: SAVEPOINT Create_PUP_Tasks;
8885:
8886: IF (l_log_procedure >= l_log_current_level) THEN
8887: fnd_log.string(l_log_procedure,
8888: L_DEBUG_KEY ||'.begin',
8889: 'At the start of PL SQL procedure.');
8890: END IF;
8891:
8918: FETCH c_visit INTO c_visit_rec;
8919: CLOSE c_visit;
8920:
8921: IF (l_log_statement >= l_log_current_level) THEN
8922: fnd_log.string(l_log_statement,
8923: L_DEBUG_KEY,
8924: ': Visit Id = ' || c_visit_rec.visit_id ||
8925: ': Status Code ' || c_visit_rec.status_code );
8926: END IF;
9044: -- Kasridha : Changes for Component Maintenance Planning Ends
9045:
9046: -- Call AHL_VWP_PLAN_TASKS_PVT
9047: IF (l_log_statement >= l_log_current_level) THEN
9048: fnd_log.string(l_log_statement,
9049: L_DEBUG_KEY,
9050: 'Before calling Create_Planned_Task, TASK TYPE = ' || l_task_tbl(i).task_type_code ||
9051: ', l_task_tbl(i).task_start_date = ' || l_task_tbl(i).task_start_date);
9052: END IF;
9073: x_msg_data => l_msg_data
9074: );
9075:
9076: IF (l_log_statement >= l_log_current_level) THEN
9077: fnd_log.string(l_log_statement,
9078: L_DEBUG_KEY,
9079: 'After calling Create_Planned_Task, Return Status = ' ||
9080: l_return_status);
9081: END IF;
9139: -- Kasridha : Changes for Component Maintenance Planning Ends
9140:
9141: -- Call AHL_VWP_UNPLAN_TASKS_PVT
9142: IF (l_log_statement >= l_log_current_level) THEN
9143: fnd_log.string(l_log_statement,
9144: L_DEBUG_KEY,
9145: 'Before Calling Create_Unplanned_Task, TASK TYPE = ' || l_task_tbl(i).task_type_code);
9146: END IF;
9147:
9157: x_msg_data => l_msg_data
9158: );
9159:
9160: IF (l_log_statement >= l_log_current_level) THEN
9161: fnd_log.string(l_log_statement,
9162: L_DEBUG_KEY,
9163: 'After Calling Create_Unplanned_Task, Return Status = ' || l_return_status );
9164: END IF;
9165:
9179: -- the user has entered task start date for Non Routine
9180: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Added one more condition (l_past_dates_flag = 'N')
9181: IF (p_module_type <> 'SR' OR l_task_tbl(1).task_start_date IS NULL) AND (l_past_dates_flag = 'N') THEN
9182: IF (l_log_statement >= l_log_current_level) THEN
9183: fnd_log.string(l_log_statement,
9184: L_DEBUG_KEY,
9185: 'Before Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
9186: END IF;
9187: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
9193: x_msg_data => l_msg_data,
9194: p_visit_id => c_visit_rec.VISIT_ID);
9195:
9196: IF (l_log_statement >= l_log_current_level) THEN
9197: fnd_log.string(l_log_statement,
9198: L_DEBUG_KEY,
9199: 'After Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times. Return Status = ' || l_return_status );
9200: END IF;
9201:
9209:
9210: --VWPE :: tchimira :: 19-FEB -2011 :: start
9211: -- We are making this call after AHL_VWP_TIMES_PVT.Calculate_Task_Times, so that by this point of time, we can access all the already validated task rules and task related info from the DB.
9212: IF (l_log_statement >= l_log_current_level) THEN
9213: fnd_log.string(l_log_statement,
9214: L_DEBUG_KEY,
9215: 'Before Calling AHL_VWP_RULES_PVT.Handle_Task_Dependency');
9216: END IF;
9217: AHL_VWP_RULES_PVT.Handle_Task_Dependency(p_api_version => 1.0,
9224: x_msg_count => l_msg_count,
9225: x_msg_data => l_msg_data);
9226:
9227: IF (l_log_statement >= l_log_current_level) THEN
9228: fnd_log.string(l_log_statement,
9229: L_DEBUG_KEY,
9230: 'After Calling AHL_VWP_RULES_PVT.Handle_Task_Dependency. Return Status = ' || l_return_status );
9231: END IF;
9232: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9248: WHERE VISIT_ID =c_visit_rec.VISIT_ID ;
9249: END IF;
9250:
9251: IF (l_log_statement >= l_log_current_level) THEN
9252: fnd_log.string(l_log_statement,
9253: L_DEBUG_KEY,
9254: 'Successful updation of the status');
9255: END IF;
9256: p_x_task_tbl:=l_task_tbl; --Added by rnahata for Bug 6939329
9277: FETCH c_get_rts_wo_id INTO l_rts_wip_id;
9278: CLOSE c_get_rts_wo_id;
9279:
9280: IF (l_log_statement >= l_log_current_level) THEN
9281: fnd_log.string(l_log_statement,
9282: L_DEBUG_KEY,
9283: 'RTS Workorder existing in RB::' || l_rts_wip_id );
9284: END IF;
9285: END IF;
9295: */
9296: IF l_is_comp_visit = 'Y' AND l_task_tbl IS NOT NULL THEN
9297:
9298: IF (l_log_statement >= l_log_current_level) THEN
9299: fnd_log.string(l_log_statement,
9300: L_DEBUG_KEY,
9301: 'Before setting the repair batch task id to cost_parent_id');
9302: END IF;
9303:
9304: l_is_cost_parent_setting_done := FALSE;
9305: FOR i IN l_task_tbl.first .. l_task_tbl.last
9306: LOOP
9307: IF (l_log_statement >= l_log_current_level) THEN
9308: fnd_log.string(l_log_statement,
9309: L_DEBUG_KEY,
9310: 'l_task_tbl(i).TASK_TYPE_CODE' ||
9311: l_task_tbl(i).TASK_TYPE_CODE ||
9312: 'l_task_tbl(i).COST_PARENT_ID :: ' ||
9313: l_task_tbl(i).COST_PARENT_ID);
9314: END IF;
9315:
9316: IF (l_log_statement >= l_log_current_level) THEN
9317: fnd_log.string(l_log_statement,
9318: L_DEBUG_KEY,
9319: 'l_task_tbl(i).instance_id' ||
9320: l_task_tbl(i).instance_id ||
9321: 'l_task_tbl(i).visit_task_id :: ' ||
9333: OPEN c_get_rprbatch_task (l_instance_id, c_visit_rec.organization_id);
9334: FETCH c_get_rprbatch_task INTO l_rpr_batch_task_id;
9335: CLOSE c_get_rprbatch_task;
9336: IF (l_log_statement >= l_log_current_level) THEN
9337: fnd_log.string(l_log_statement,
9338: L_DEBUG_KEY,
9339: 'RepairBatch Task ID: ' || l_rpr_batch_task_id);
9340: END IF;
9341: IF( l_summary_task_id IS NOT NULL AND
9348: l_is_cost_parent_setting_done := TRUE;
9349: l_repair_batch_task_id := l_rpr_batch_task_id;
9350:
9351: IF (l_log_statement >= l_log_current_level) THEN
9352: fnd_log.string(l_log_statement,
9353: L_DEBUG_KEY,
9354: 'Cost_parent_id set to : '
9355: || l_rpr_batch_task_id
9356: || ' for : ' || l_summary_task_id);
9360:
9361: END LOOP;
9362:
9363: IF (l_log_statement >= l_log_current_level) THEN
9364: fnd_log.string(l_log_statement,
9365: L_DEBUG_KEY,
9366: 'Cost parent changes ends' );
9367: END IF;
9368:
9381:
9382: IF (l_task_status_code = 'RELEASED') THEN
9383:
9384: IF (l_log_statement >= l_log_current_level) THEN
9385: FND_LOG.string(l_log_statement, l_debug_key, 'Changing Repair Batch ' || l_repair_batch_task_id || ' status to Partially Implemented.');
9386: END IF;
9387:
9388: UPDATE AHL_VISIT_TASKS_B
9389: SET status_code = 'PARTIALLY RELEASED',
9409: x_msg_count => l_msg_count,
9410: x_msg_data => l_msg_data);
9411:
9412: IF (l_log_statement >= l_log_current_level) THEN
9413: fnd_log.string(l_log_statement,
9414: L_DEBUG_KEY,
9415: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
9416: END IF;
9417:
9435: IF c_visit_rec.status_code IN ('PLANNING', 'PARTIALLY RELEASED', 'RELEASED')
9436: THEN
9437:
9438: IF (l_log_statement >= l_log_current_level) THEN
9439: fnd_log.string(l_log_statement,
9440: L_DEBUG_KEY,
9441: 'Before Calling AHL_VWP_PROJ_PROD_PVT.Move_To_InRepair_Locator.');
9442: END IF;
9443: -- Get the task Details
9450: FETCH c_get_rprbatch_task INTO l_rpr_batch_task_id;
9451: CLOSE c_get_rprbatch_task;
9452:
9453: IF (l_log_statement >= l_log_current_level) THEN
9454: fnd_log.string(l_log_statement,
9455: L_DEBUG_KEY,
9456: 'RepairBatch Task ID: ' || l_rpr_batch_task_id);
9457: END IF;
9458:
9469:
9470: IF l_rts_wip_id IS NOT NULL
9471: AND l_repair_batch_name IS NOT NULL THEN
9472: IF (l_log_statement >= l_log_current_level) THEN
9473: fnd_log.string(l_log_statement,
9474: L_DEBUG_KEY,
9475: 'Calling AHL_CMP_PVT.Move_To_InRepair_Locator');
9476: END IF;
9477:
9488: x_msg_data => l_msg_data);
9489:
9490:
9491: IF (l_log_statement >= l_log_current_level) THEN
9492: fnd_log.string(l_log_statement,
9493: L_DEBUG_KEY,
9494: 'After Calling AHL_VWP_PROJ_PROD_PVT.Move_To_InRepair_Locator.' ||
9495: 'Return Status = ' || l_return_status );
9496: END IF;
9511:
9512: ELSE -- IF not component visit :: PRAKKUM :: 03/07/2012 :: Bug Internal :: Fixed issue in creating workorders on normal visits
9513:
9514: IF (l_log_statement >= l_log_current_level) THEN
9515: fnd_log.string(l_log_statement,
9516: L_DEBUG_KEY,
9517: 'Not a component visit - so create draft work orders');
9518: END IF;
9519:
9529: x_msg_count => l_msg_count,
9530: x_msg_data => l_msg_data);
9531:
9532: IF (l_log_statement >= l_log_current_level) THEN
9533: fnd_log.string(l_log_statement,
9534: L_DEBUG_KEY,
9535: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
9536: END IF;
9537:
9548:
9549: END IF;
9550:
9551: IF (l_log_statement >= l_log_current_level) THEN
9552: fnd_log.string(l_log_statement,
9553: L_DEBUG_KEY,
9554: 'Component Maintenance changes ends' );
9555: END IF;
9556: -- Kasridha : Changes for Component Maintenance Planning Ends
9569: COMMIT;
9570: END IF;
9571:
9572: IF (l_log_procedure >= l_log_current_level) THEN
9573: fnd_log.string(l_log_procedure,
9574: L_DEBUG_KEY ||'.end',
9575: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
9576: END IF;
9577: EXCEPTION
9682: SAVEPOINT associate_default_mrs;
9683:
9684: -- Check if API is called in debug mode. If yes, enable debug.
9685: IF (l_log_procedure >= l_log_current_level) THEN
9686: fnd_log.string(l_log_procedure,
9687: L_DEBUG_KEY ||'.begin',
9688: 'At the start of PL SQL procedure.');
9689: END IF;
9690:
9715:
9716: IF l_instance_id IS NOT NULL THEN
9717:
9718: IF (l_log_statement >= l_log_current_level) THEN
9719: fnd_log.string(l_log_statement,
9720: L_DEBUG_KEY,
9721: ' Before calling AHL_FMP_PVT.GET_VISIT_APPLICABLE_MRS, l_instance_id = ' || l_instance_id);
9722: END IF;
9723: AHL_FMP_PVT.GET_VISIT_APPLICABLE_MRS(
9729: P_VISIT_TYPE_CODE => p_visit_rec.visit_type_code);
9730: --X_APPLICABLE_MR_TBL => l_mr_item_instance_tbl);
9731:
9732: IF (l_log_statement >= l_log_current_level) THEN
9733: fnd_log.string(l_log_statement,
9734: L_DEBUG_KEY,
9735: 'After calling AHL_FMP_PVT.GET_VISIT_APPLICABLE_MRS. Return status = ' || L_RETURN_STATUS || ', l_instance_id = ' || l_instance_id);
9736: END IF;
9737:
9747: OPEN c_get_instance_qty(l_instance_id);
9748: FETCH c_get_instance_qty INTO l_instance_qty;
9749: CLOSE c_get_instance_qty;
9750: IF (l_log_statement >= l_log_current_level) THEN
9751: fnd_log.string(l_log_statement,
9752: L_DEBUG_KEY,
9753: 'Richa -- l_instance_id = ' || l_instance_id || ', l_instance_qty = ' || l_instance_qty);
9754: END IF;
9755: -- End changes by rnahata for Issue 105
9773: l_task_tbl(J).serial_number := p_visit_rec.serial_number;
9774: END LOOP;
9775:
9776: IF (l_log_statement >= l_log_current_level) THEN
9777: fnd_log.string(l_log_statement,
9778: L_DEBUG_KEY,
9779: ' Calling AHL_VWP_TASKS_PVT.CREATE_PUP_TASKS ');
9780: END IF;
9781: AHL_VWP_TASKS_PVT.CREATE_PUP_TASKS(
9807: RAISE Fnd_Api.G_EXC_ERROR;
9808: END IF;
9809:
9810: IF (l_log_procedure >= l_log_current_level) THEN
9811: fnd_log.string(l_log_procedure,
9812: L_DEBUG_KEY ||'.end',
9813: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
9814: END IF;
9815: EXCEPTION
9877:
9878: BEGIN
9879: --------------------Start of API Body-----------------------------------
9880: IF(l_log_procedure >= l_log_current_level) THEN
9881: fnd_log.string(l_log_procedure,
9882: L_DEBUG_KEY ||'.begin',
9883: 'At the start of PL SQL procedure.');
9884: END IF;
9885:
9885:
9886: --------------------Get Entitlements Record For Update-------------------
9887: IF(p_task_id is null) THEN
9888: IF(l_log_statement >= l_log_current_level) THEN
9889: fnd_log.string(l_log_statement,
9890: L_DEBUG_KEY,
9891: 'Passed task id is null');
9892: END IF;
9893: FND_MSG_PUB.add;
9910: x_warranty_entl_tbl(0) := l_entitlement_rec;
9911: END IF;
9912:
9913: IF(l_log_procedure >= l_log_current_level) THEN
9914: fnd_log.string(l_log_procedure,
9915: L_DEBUG_KEY ||'.begin',
9916: ' Task Id : '|| l_entitlement_rec.visit_task_id ||
9917: ' Entitlement Id : '|| l_warranty_entl_id ||
9918: ' SR Incident Id : '|| l_sr_incident_id ||
10000: --------------------- initialize -----------------------
10001: SAVEPOINT Create_Stage_Tasks;
10002:
10003: IF (l_log_procedure >= l_log_current_level) THEN
10004: fnd_log.string(l_log_procedure,
10005: L_DEBUG_KEY ||'.begin',
10006: 'At the start of PL SQL procedure. p_stage_id= '||p_stage_id||' and p_visit_id= '||p_visit_id);
10007: END IF;
10008:
10028: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
10029: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_INPUT_MISS');
10030: FND_MSG_PUB.ADD;
10031: IF (l_log_statement >= l_log_current_level) THEN
10032: fnd_log.string(l_log_statement,
10033: L_DEBUG_KEY,
10034: 'Visit id is mandatory but found null in input ');
10035: END IF;
10036: RAISE FND_API.G_EXC_ERROR;
10043: FND_MESSAGE.Set_Name('AHL','AHL_STAGE_ID_INVALID');
10044: FND_MSG_PUB.ADD;
10045:
10046: IF (l_log_statement >= l_log_current_level) THEN
10047: fnd_log.string(l_log_statement,
10048: L_DEBUG_KEY,
10049: 'Input visit id is INVALID ');
10050: END IF;
10051: CLOSE val_visit;
10063: FND_MESSAGE.Set_Name('AHL','AHL_STAGE_ID_INVALID');
10064: FND_MSG_PUB.ADD;
10065:
10066: IF (l_log_statement >= l_log_current_level) THEN
10067: fnd_log.string(l_log_statement,
10068: L_DEBUG_KEY,
10069: 'Input stage id is INVALID ');
10070: END IF;
10071: CLOSE val_visit_stage;
10080: FND_MESSAGE.Set_Name('AHL','AHL_VISIT_ID_INVALID');
10081: FND_MSG_PUB.ADD;
10082:
10083: IF (l_log_statement >= l_log_current_level) THEN
10084: fnd_log.string(l_log_statement,
10085: L_DEBUG_KEY,
10086: 'Input visit id is INVALID ');
10087: END IF;
10088: CLOSE Get_Visit_Details;
10197: x_msg_count => l_msg_count,
10198: x_msg_data => l_msg_data);
10199:
10200: IF (l_log_statement >= l_log_current_level) THEN
10201: fnd_log.string(l_log_statement,
10202: L_DEBUG_KEY,
10203: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
10204: END IF;
10205:
10224: COMMIT;
10225: END IF;
10226:
10227: IF (l_log_procedure >= l_log_current_level) THEN
10228: fnd_log.string(l_log_procedure,
10229: L_DEBUG_KEY ||'.end',
10230: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
10231: END IF;
10232: EXCEPTION
10356: l_entl_rec_tbl AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type; --salogan added for supplier warranty
10357:
10358: BEGIN
10359: IF (l_log_procedure >= l_log_current_level) THEN
10360: fnd_log.string(l_log_procedure,
10361: L_DEBUG_KEY ||'.begin',
10362: 'At the start of PL SQL procedure.');
10363: END IF;
10364:
10383: END IF;
10384:
10385: ------------------------Start of API Body------------------------------------
10386: IF (l_log_statement >= l_log_current_level) THEN
10387: fnd_log.string(l_log_statement,
10388: L_DEBUG_KEY,
10389: ':Task Id' || p_visit_task_ID);
10390: END IF;
10391:
10447: l_workorder_rec.wip_entity_id := null;
10448: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
10449:
10450: IF (l_log_statement >= l_log_current_level) THEN
10451: fnd_log.string(l_log_statement,
10452: L_DEBUG_KEY,
10453: 'Before Calling AHL_PRD_WORKORDER_PVT.update_job');
10454: END IF;
10455: AHL_PRD_WORKORDER_PVT.update_job
10468: p_x_prd_workoper_tbl => l_workoper_tbl
10469: );
10470:
10471: IF (l_log_statement >= l_log_current_level) THEN
10472: fnd_log.string(l_log_statement,
10473: L_DEBUG_KEY,
10474: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
10475: END IF;
10476:
10505: END IF;
10506: CLOSE c_wo_exist;
10507:
10508: IF (l_log_statement >= l_log_current_level) THEN
10509: fnd_log.string(l_log_statement,
10510: L_DEBUG_KEY,
10511: 'Value of l_workorder_present = ' || l_workorder_present);
10512: END IF;
10513:
10516: OBJECT_VERSION_NUMBER=OBJECT_VERSION_NUMBER+1
10517: WHERE VISIT_TASK_ID=l_task_id;
10518:
10519: IF (l_log_statement >= l_log_current_level) THEN
10520: fnd_log.string(l_log_statement,
10521: L_DEBUG_KEY,
10522: 'Updation of the status to DELETED');
10523: END IF;
10524:
10533: p_data => x_msg_data
10534: );
10535:
10536: IF (l_log_procedure >= l_log_current_level) THEN
10537: fnd_log.string(l_log_procedure,
10538: L_DEBUG_KEY ||'.end',
10539: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
10540: END IF;
10541: EXCEPTION