[Home] [Help]
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: -----------------------------------------------------------------
41: -- Define Global CONSTANTS --
43: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AHL_VWP_TASKS_PVT';
44: -----------------------------------------------------------------
45: -- Common constants and variables --
46: ------------------------------------
47: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
48: l_log_statement NUMBER := fnd_log.level_statement;
49: l_log_procedure NUMBER := fnd_log.level_procedure;
50: l_log_error NUMBER := fnd_log.level_error;
51: l_log_unexpected NUMBER := fnd_log.level_unexpected;
44: -----------------------------------------------------------------
45: -- Common constants and variables --
46: ------------------------------------
47: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
48: l_log_statement NUMBER := fnd_log.level_statement;
49: l_log_procedure NUMBER := fnd_log.level_procedure;
50: l_log_error NUMBER := fnd_log.level_error;
51: l_log_unexpected NUMBER := fnd_log.level_unexpected;
52: ---------------------------------------------------------------------
45: -- Common constants and variables --
46: ------------------------------------
47: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
48: l_log_statement NUMBER := fnd_log.level_statement;
49: l_log_procedure NUMBER := fnd_log.level_procedure;
50: l_log_error NUMBER := fnd_log.level_error;
51: l_log_unexpected NUMBER := fnd_log.level_unexpected;
52: ---------------------------------------------------------------------
53: -- Define Record Types for record structures needed by the APIs --
46: ------------------------------------
47: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
48: l_log_statement NUMBER := fnd_log.level_statement;
49: l_log_procedure NUMBER := fnd_log.level_procedure;
50: l_log_error NUMBER := fnd_log.level_error;
51: l_log_unexpected NUMBER := fnd_log.level_unexpected;
52: ---------------------------------------------------------------------
53: -- Define Record Types for record structures needed by the APIs --
54: ---------------------------------------------------------------------
47: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
48: l_log_statement NUMBER := fnd_log.level_statement;
49: l_log_procedure NUMBER := fnd_log.level_procedure;
50: l_log_error NUMBER := fnd_log.level_error;
51: l_log_unexpected NUMBER := fnd_log.level_unexpected;
52: ---------------------------------------------------------------------
53: -- Define Record Types for record structures needed by the APIs --
54: ---------------------------------------------------------------------
55: -- NO RECORD TYPES
274: L_API_NAME CONSTANT VARCHAR2(30) := 'Get_WorkOrder_Attribs';
275: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
276: BEGIN
277: IF (l_log_procedure >= l_log_current_level) THEN
278: fnd_log.string(l_log_procedure,
279: L_DEBUG_KEY ||'.begin',
280: 'At the start of PL SQL procedure.' ||
281: ' p_x_prd_workorder_rec.workorder_id : ' || p_x_prd_workorder_rec.workorder_id);
282: END IF;
309: p_x_prd_workorder_rec.PROJECT_TASK_ID :=l_prd_workorder_rec.PROJECT_TASK_ID;
310: p_x_prd_workorder_rec.INCIDENT_ID :=l_prd_workorder_rec.INCIDENT_ID;
311:
312: IF (l_log_procedure >= l_log_current_level) THEN
313: fnd_log.string(l_log_procedure,
314: L_DEBUG_KEY ||'.end',
315: 'At the end of PL SQL procedure.');
316: END IF;
317: END Get_WorkOrder_Attribs;
324: L_API_NAME CONSTANT VARCHAR2(30) := 'Default_Missing_Attribs';
325: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
326: BEGIN
327: IF (l_log_procedure >= l_log_current_level) THEN
328: fnd_log.string(l_log_procedure,
329: L_DEBUG_KEY ||'.begin',
330: 'At the start of PL SQL procedure.');
331: END IF;
332: IF p_x_task_rec.DURATION = Fnd_Api.G_MISS_NUM THEN
395: p_x_task_rec.attribute_category := p_x_task_rec.attribute_category;
396: END IF;
397: --
398: IF (l_log_procedure >= l_log_current_level) THEN
399: fnd_log.string(l_log_procedure,
400: L_DEBUG_KEY ||'.end',
401: 'At the end of PL SQL procedure.');
402: END IF;
403:
826: AND visit_task_id = p_visit_task_id;
827:
828: BEGIN
829: IF (l_log_procedure >= l_log_current_level) THEN
830: fnd_log.string(l_log_procedure,
831: L_DEBUG_KEY ||'.begin',
832: 'At the start of PL SQL procedure.' ||
833: ', p_task_id = ' || p_task_id);
834: END IF;
892: CLOSE c_visit;
893:
894: -- For Debug Messages
895: IF (l_log_statement >= l_log_current_level) THEN
896: fnd_log.string(l_log_statement,
897: L_DEBUG_KEY,
898: ': task id = ' || p_task_id ||
899: ': version, task name, task number = ' || c_task_data_rec.object_version_number || '---' || c_task_rec.task_name || '---' || c_task_rec.task_number ||
900: ': item id, org id, itemname = ' || c_task_rec.item_id || '-' || c_task_rec.item_organization_id || '-' || c_task_rec.item_name ||
995: END IF;
996:
997: -- For Debug Messages
998: IF (l_log_statement >= l_log_current_level) THEN
999: fnd_log.string(l_log_statement,
1000: L_DEBUG_KEY,
1001: 'l_origin_num = ' || l_origin_num ||
1002: 'l_parent_num = ' || l_parent_num ||
1003: 'l_task_start_date = ' || l_task_start_date ||
1078: END IF;
1079:
1080: -- Debug info.
1081: IF (l_log_procedure >= l_log_current_level) THEN
1082: fnd_log.string(l_log_procedure,
1083: L_DEBUG_KEY ||'.end',
1084: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1085: END IF;
1086: EXCEPTION
1142: WHERE VISIT_ID = x_id;
1143: c_visit_rec c_visit%ROWTYPE;
1144: BEGIN
1145: IF (l_log_procedure >= l_log_current_level) THEN
1146: fnd_log.string(l_log_procedure,
1147: L_DEBUG_KEY ||'.begin',
1148: 'At the start of PL SQL procedure.');
1149: END IF;
1150:
1174: FETCH c_visit INTO c_visit_rec;
1175: CLOSE c_visit;
1176:
1177: IF (l_log_statement >= l_log_current_level) THEN
1178: fnd_log.string(l_log_statement,
1179: L_DEBUG_KEY,
1180: 'Visit Id = ' || c_visit_rec.visit_id ||
1181: ', Status Code = ' || c_visit_rec.status_code);
1182: END IF;
1187: RAISE Fnd_Api.G_EXC_ERROR;
1188: ELSE
1189: IF l_task_rec.task_type_code = 'SUMMARY' THEN
1190: IF (l_log_statement >= l_log_current_level) THEN
1191: fnd_log.string(l_log_statement,
1192: L_DEBUG_KEY,
1193: 'Before Calling to Create_Summary_Task, TASK TYPE = ' || l_task_rec.task_type_code);
1194: END IF;
1195: Create_Summary_Task
1205: x_msg_data => l_msg_data
1206: );
1207:
1208: IF (l_log_statement >= l_log_current_level) THEN
1209: fnd_log.string(l_log_statement,
1210: L_DEBUG_KEY,
1211: 'After Calling Create_Summary_Task' ||
1212: ', TASK ID = ' || l_task_rec.visit_task_id ||
1213: ', TASK NUMBER = ' || l_task_rec.visit_task_number ||
1218: p_x_task_rec.Visit_Task_Number := l_task_rec.Visit_Task_Number;
1219: ELSIF l_task_rec.task_type_code = 'PLANNED' THEN
1220: -- Call AHL_VWP_PLAN_TASKS_PVT
1221: IF (l_log_statement >= l_log_current_level) THEN
1222: fnd_log.string(l_log_statement,
1223: L_DEBUG_KEY,
1224: 'Before Calling to AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task, TASK TYPE = ' || l_task_rec.task_type_code);
1225: END IF;
1226: AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task (
1234: x_msg_count => l_msg_count,
1235: x_msg_data => l_msg_data
1236: );
1237: IF (l_log_statement >= l_log_current_level) THEN
1238: fnd_log.string(l_log_statement,
1239: L_DEBUG_KEY,
1240: 'After Calling AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task' ||
1241: ', TASK ID = ' || l_task_rec.visit_task_id ||
1242: ', TASK NUMBER = ' || l_task_rec.visit_task_number ||
1244: END IF;
1245: ELSIF l_task_rec.task_type_code = 'UNPLANNED' THEN
1246: -- Call AHL_VWP_UNPLAN_TASKS_PVT
1247: IF (l_log_statement >= l_log_current_level) THEN
1248: fnd_log.string(l_log_statement,
1249: L_DEBUG_KEY,
1250: 'Before Calling AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task, TASK TYPE = ' || l_task_rec.task_type_code);
1251: END IF;
1252: AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task (
1260: x_msg_count => l_msg_count,
1261: x_msg_data => l_msg_data
1262: );
1263: IF (l_log_statement >= l_log_current_level) THEN
1264: fnd_log.string(l_log_statement,
1265: L_DEBUG_KEY,
1266: 'After Calling AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task' ||
1267: ', TASK ID = ' || l_task_rec.visit_task_id ||
1268: ', TASK NUMBER = ' || l_task_rec.visit_task_number ||
1269: ', Return Status = ' || l_return_status );
1270: END IF;
1271: ELSE
1272: IF (l_log_statement >= l_log_current_level) THEN
1273: fnd_log.string(l_log_statement,
1274: L_DEBUG_KEY,
1275: 'Before Calling Create_Unassociated_Task, TASK TYPE = ' || l_task_rec.task_type_code);
1276: END IF;
1277: Create_Unassociated_Task
1289: -- set OUT value
1290: p_x_task_rec.Visit_Task_ID := l_task_rec.Visit_Task_ID;
1291: p_x_task_rec.Visit_Task_Number := l_task_rec.Visit_Task_Number;
1292: IF (l_log_statement >= l_log_current_level) THEN
1293: fnd_log.string(l_log_statement,
1294: L_DEBUG_KEY,
1295: 'After Calling Create_Unassociated_Task' ||
1296: 'Task Id = ' || l_task_rec.visit_task_id ||
1297: 'Task Number = ' || l_task_rec.visit_task_number ||
1326: COMMIT;
1327: END IF;
1328:
1329: IF (l_log_procedure >= l_log_current_level) THEN
1330: fnd_log.string(l_log_procedure,
1331: L_DEBUG_KEY ||'.end',
1332: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1333: END IF;
1334:
1433:
1434: BEGIN
1435: --------------------Start of API Body-----------------------------------
1436: IF (l_log_procedure >= l_log_current_level) THEN
1437: fnd_log.string(l_log_procedure,
1438: L_DEBUG_KEY ||'.begin',
1439: 'At the start of PL SQL procedure.' ||
1440: 'Module Type = ' || p_module_type );
1441: END IF;
1473: FETCH c_visit INTO c_visit_rec;
1474: CLOSE c_visit;
1475:
1476: IF (l_log_statement >= l_log_current_level) THEN
1477: fnd_log.string(l_log_statement,
1478: L_DEBUG_KEY,
1479: 'Visit Id = ' || l_task_rec.visit_id || ', Status Code = ' || c_visit_rec.status_code );
1480: END IF;
1481:
1490: */
1491: ELSIF p_module_type = 'SR' THEN
1492:
1493: IF (l_log_statement >= l_log_current_level) THEN
1494: fnd_log.string(l_log_statement,
1495: L_DEBUG_KEY,
1496: 'Inside status code check = ' || c_visit_rec.status_code ||
1497: ', Instance ID = ' || l_Task_rec.instance_id );
1498: END IF;
1506: l_Task_rec.item_organization_id := l_org_id;
1507: ELSE
1508: -- Visit in planning status --
1509: IF (l_log_statement >= l_log_current_level) THEN
1510: fnd_log.string(l_log_statement,
1511: L_DEBUG_KEY,
1512: 'Before Convert Item Item ID= ' || l_Task_rec.inventory_item_id ||
1513: ', Item Org ID= ' || l_Task_rec.item_organization_id ||
1514: ', Item Name= ' || l_Task_rec.item_name );
1551: END IF;
1552:
1553: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
1554: IF (l_log_statement >= l_log_current_level) THEN
1555: fnd_log.string(l_log_statement,
1556: L_DEBUG_KEY,
1557: ': Compare item name');
1558: END IF;
1559:
1562: RAISE Fnd_Api.G_EXC_ERROR;
1563: END IF;
1564: ELSE
1565: IF (l_log_statement >= l_log_current_level) THEN
1566: fnd_log.string(l_log_statement,
1567: L_DEBUG_KEY,
1568: ': Check item else loop');
1569: END IF;
1570: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
1576: l_Task_rec.inventory_item_id := l_item_id;
1577: l_Task_rec.item_organization_id := l_org_id;
1578:
1579: IF (l_log_statement >= l_log_current_level) THEN
1580: fnd_log.string(l_log_statement,
1581: L_DEBUG_KEY,
1582: ': Item ID= ' || l_Task_rec.inventory_item_id ||
1583: ': Item Org ID= ' || l_Task_rec.item_organization_id ||
1584: ': Item Name= ' || l_Task_rec.item_name ||
1593: -- Convert department name to department id
1594: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
1595:
1596: IF (l_log_statement >= l_log_current_level) THEN
1597: fnd_log.string(l_log_statement,
1598: L_DEBUG_KEY,
1599: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id');
1600: END IF;
1601:
1628: l_task_rec.department_id := l_department_id;
1629: END IF;
1630:
1631: IF (l_log_statement >= l_log_current_level) THEN
1632: fnd_log.string(l_log_statement,
1633: L_DEBUG_KEY,
1634: ': Dept ID= ' || l_Task_rec.department_id );
1635: END IF;
1636:
1638: -- Convert serial number to instance/ serial id
1639: IF (l_Task_rec.serial_number IS NOT NULL AND
1640: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
1641: IF (l_log_statement >= l_log_current_level) THEN
1642: fnd_log.string(l_log_statement,
1643: L_DEBUG_KEY,
1644: ': AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id ' );
1645: END IF;
1646: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
1660: --Assign the returned value
1661: l_Task_rec.instance_id := l_serial_id;
1662:
1663: IF (l_log_statement >= l_log_current_level) THEN
1664: fnd_log.string(l_log_statement,
1665: L_DEBUG_KEY,
1666: ': Before UC Check Serial ID= ' || l_Task_rec.instance_id ||
1667: ': Before UC Item ID= ' || l_Task_rec.inventory_item_id ||
1668: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id );
1680: END IF;
1681: END IF;
1682:
1683: IF (l_log_statement >= l_log_current_level) THEN
1684: fnd_log.string(l_log_statement,
1685: L_DEBUG_KEY,
1686: ': Serial ID= ' || l_Task_rec.instance_id ||
1687: ': Service Number= ' || l_Task_rec.service_request_number );
1688: -- Additional debug statement added by jaramana on Feb 14, 2008
1685: L_DEBUG_KEY,
1686: ': Serial ID= ' || l_Task_rec.instance_id ||
1687: ': Service Number= ' || l_Task_rec.service_request_number );
1688: -- Additional debug statement added by jaramana on Feb 14, 2008
1689: fnd_log.string(l_log_statement, L_DEBUG_KEY,
1690: 'l_task_rec.instance_number = ' || l_Task_rec.instance_number ||
1691: ', l_task_rec.quantity = ' || l_Task_rec.quantity);
1692: END IF;
1693:
1725: -- Convert cost parent number to id
1726: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
1727: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
1728: IF (l_log_statement >= l_log_current_level) THEN
1729: fnd_log.string(l_log_statement,
1730: L_DEBUG_KEY,
1731: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
1732: END IF;
1733: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
1749: l_Task_rec.cost_parent_id := l_cost_parent_id;
1750: END IF;
1751:
1752: IF (l_log_statement >= l_log_current_level) THEN
1753: fnd_log.string(l_log_statement,
1754: L_DEBUG_KEY,
1755: ': Cost parent ID = ' || l_Task_rec.cost_parent_id);
1756: END IF;
1757:
1759: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
1760: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
1761:
1762: IF (l_log_statement >= l_log_current_level) THEN
1763: fnd_log.string(l_log_statement,
1764: L_DEBUG_KEY,
1765: 'Calling AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop ' );
1766: END IF;
1767: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
1771: );
1772: END IF;
1773:
1774: IF (l_log_statement >= l_log_current_level) THEN
1775: fnd_log.string(l_log_statement,
1776: L_DEBUG_KEY,
1777: ': Originating Number = ' || l_Task_rec.orginating_task_number);
1778: END IF;
1779:
1781: -- Convert originating task number to id
1782: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
1783: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
1784: IF (l_log_statement >= l_log_current_level) THEN
1785: fnd_log.string(l_log_statement,
1786: L_DEBUG_KEY,
1787: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
1788: END IF;
1789: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
1804: l_Task_rec.originating_task_id := l_originating_task_id;
1805: END IF;
1806:
1807: IF (l_log_statement >= l_log_current_level) THEN
1808: fnd_log.string(l_log_statement,
1809: L_DEBUG_KEY,
1810: ': Originating Task ID= ' || l_Task_rec.originating_task_id);
1811: END IF;
1812:
1827: -- IF c_visit_rec.status_code = 'PLANNING' THEN
1828: --Added the below condition for the call from Production for SR creation
1829: IF p_module_type <> 'SR' THEN
1830: IF (l_log_statement >= l_log_current_level) THEN
1831: fnd_log.string(l_log_statement,
1832: L_DEBUG_KEY,
1833: ': :ValidateCalling Validate_Visit_Task ');
1834: END IF;
1835: Validate_Visit_Task (
1865: l_task_number := AHL_VWP_RULES_PVT.Get_Visit_Task_Number(l_task_rec.visit_id);
1866: l_task_rec.visit_task_number := l_task_number;
1867:
1868: IF (l_log_statement >= l_log_current_level) THEN
1869: fnd_log.string(l_log_statement,
1870: L_DEBUG_KEY,
1871: ': Task ID= ' || l_Task_rec.visit_task_id ||
1872: ': Task number= ' || l_Task_rec.visit_task_number);
1873: END IF;
1881: );
1882:
1883: -------------------------- Insert --------------------------
1884: IF (l_log_statement >= l_log_current_level) THEN
1885: fnd_log.string(l_log_statement,
1886: L_DEBUG_KEY,
1887: 'Before Calling Ahl_Visit_Tasks_Pkg.Insert_Row');
1888: END IF;
1889:
1949:
1950: -- Added cxcheng POST11510--------------
1951: --Now adjust the times derivation for task
1952: IF (l_log_statement >= l_log_current_level) THEN
1953: fnd_log.string(l_log_statement,
1954: L_DEBUG_KEY,
1955: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times' );
1956: END IF;
1957:
1964: x_msg_data => l_msg_data,
1965: p_task_id => l_task_rec.visit_task_id);
1966:
1967: IF (l_log_statement >= l_log_current_level) THEN
1968: fnd_log.string(l_log_statement,
1969: L_DEBUG_KEY,
1970: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
1971: END IF;
1972:
1995: END IF;
1996: END IF;
1997:
1998: IF (l_log_statement >= l_log_current_level) THEN
1999: fnd_log.string(l_log_statement,
2000: L_DEBUG_KEY,
2001: ': After Insert ' || 'Task ID= ' || p_x_Task_rec.visit_task_id ||
2002: ', Task Number= ' || p_x_Task_rec.visit_task_number);
2003: END IF;
2004:
2005: -- Calling projects api to create project task for the newly added service request
2006: IF (l_task_rec.Visit_Task_ID IS NOT NULL AND p_module_type = 'SR' )THEN
2007: IF (l_log_statement >= l_log_current_level) THEN
2008: fnd_log.string(l_log_statement,
2009: L_DEBUG_KEY,
2010: 'Before Calling AHL_VWP_PROJ_PROD_PVT.Add_Task_to_Project ' ||
2011: 'Visit Task Id = ' || l_task_rec.Visit_Task_ID);
2012: END IF;
2022: x_msg_count => x_msg_count,
2023: x_msg_data => x_msg_data);
2024:
2025: IF (l_log_statement >= l_log_current_level) THEN
2026: fnd_log.string(l_log_statement,
2027: L_DEBUG_KEY,
2028: 'After Calling AHL_VWP_PROJ_PROD_PVT.Add_Task_to_Project, Return Status = ' ||l_return_status );
2029: END IF;
2030: END IF;
2044: COMMIT;
2045: END IF;
2046:
2047: IF (l_log_procedure >= l_log_current_level) THEN
2048: fnd_log.string(l_log_procedure,
2049: L_DEBUG_KEY ||'.end',
2050: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2051: END IF;
2052:
2142:
2143: BEGIN
2144: --------------------Start of API Body-----------------------------------
2145: IF (l_log_procedure >= l_log_current_level) THEN
2146: fnd_log.string(l_log_procedure,
2147: L_DEBUG_KEY ||'.begin',
2148: 'At the start of PL SQL procedure.');
2149: END IF;
2150:
2182: FETCH c_visit INTO c_visit_rec;
2183: CLOSE c_visit;
2184:
2185: IF (l_log_statement >= l_log_current_level) THEN
2186: fnd_log.string(l_log_statement,
2187: L_DEBUG_KEY,
2188: ': Visit Id = ' || l_task_rec.visit_id ||
2189: ': Status Code ' || c_visit_rec.status_code);
2190: END IF;
2199: -- For DEPARTMENT
2200: -- Convert department name to department id
2201: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
2202: IF (l_log_statement >= l_log_current_level) THEN
2203: fnd_log.string(l_log_statement,
2204: L_DEBUG_KEY,
2205: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id ');
2206: END IF;
2207: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
2234: l_task_rec.department_id := l_department_id;
2235: END IF;
2236:
2237: IF (l_log_statement >= l_log_current_level) THEN
2238: fnd_log.string(l_log_statement,
2239: L_DEBUG_KEY,
2240: ': Dept ID= ' || l_Task_rec.department_id ||
2241: ': Before Convert Item Item ID= ' || l_Task_rec.inventory_item_id ||
2242: ', Org ID= ' || l_Task_rec.item_organization_id ||
2252: (l_Task_rec.item_organization_id IS NOT NULL AND
2253: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2254:
2255: IF (l_log_statement >= l_log_current_level) THEN
2256: fnd_log.string(l_log_statement,
2257: L_DEBUG_KEY,
2258: 'Calling AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id ' );
2259: END IF;
2260: AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id
2322:
2323: END IF;
2324:
2325: IF (l_log_statement >= l_log_current_level) THEN
2326: fnd_log.string(l_log_statement,
2327: L_DEBUG_KEY,
2328: 'Item ID= ' || l_Task_rec.inventory_item_id ||
2329: ', Item Org ID= ' || l_Task_rec.item_organization_id ||
2330: ', Item Name= ' || l_Task_rec.item_name ||
2353: --Assign the returned value
2354: l_Task_rec.instance_id := l_serial_id;
2355:
2356: IF (l_log_statement >= l_log_current_level) THEN
2357: fnd_log.string(l_log_statement,
2358: L_DEBUG_KEY,
2359: ': Before UC Check Serial ID= ' || l_Task_rec.instance_id ||
2360: ', Item ID= ' || l_Task_rec.inventory_item_id ||
2361: ', Org ID= ' || l_Task_rec.item_organization_id);
2372: END IF;
2373: END IF;
2374:
2375: IF (l_log_statement >= l_log_current_level) THEN
2376: fnd_log.string(l_log_statement,
2377: L_DEBUG_KEY,
2378: ': Serial ID= ' || l_Task_rec.instance_id ||
2379: ': Cost parent= ' || l_Task_rec.cost_parent_number);
2380: END IF;
2404: l_Task_rec.cost_parent_id := l_cost_parent_id;
2405: END IF;
2406:
2407: IF (l_log_statement >= l_log_current_level) THEN
2408: fnd_log.string(l_log_statement,
2409: L_DEBUG_KEY,
2410: ': Cost parent ID = ' || l_Task_rec.cost_parent_id);
2411: END IF;
2412:
2422:
2423: END IF;
2424:
2425: IF (l_log_statement >= l_log_current_level) THEN
2426: fnd_log.string(l_log_statement,
2427: L_DEBUG_KEY,
2428: ': Originating Number = ' || l_Task_rec.orginating_task_number);
2429: END IF;
2430:
2453: l_Task_rec.originating_task_id := l_originating_task_id;
2454: END IF;
2455:
2456: IF (l_log_statement >= l_log_current_level) THEN
2457: fnd_log.string(l_log_statement,
2458: L_DEBUG_KEY,
2459: ': Originating Task ID= ' || l_Task_rec.originating_task_id);
2460: END IF;
2461:
2474:
2475: ---------------------------------------------- Validate ----------------------------------------------
2476:
2477: IF (l_log_statement >= l_log_current_level) THEN
2478: fnd_log.string(l_log_statement,
2479: L_DEBUG_KEY,
2480: 'Before Calling Validate_Visit_Task');
2481: END IF;
2482:
2507: l_task_number := AHL_VWP_RULES_PVT.Get_Visit_Task_Number(l_task_rec.visit_id);
2508: l_task_rec.visit_task_number := l_task_number;
2509:
2510: IF (l_log_statement >= l_log_current_level) THEN
2511: fnd_log.string(l_log_statement,
2512: L_DEBUG_KEY,
2513: ': Task ID= ' || l_Task_rec.visit_task_id ||
2514: ': Task number= ' || l_Task_rec.visit_task_number);
2515: END IF;
2524:
2525: -------------------------- Insert ------------------------------------------------
2526:
2527: IF (l_log_statement >= l_log_current_level) THEN
2528: fnd_log.string(l_log_statement,
2529: L_DEBUG_KEY,
2530: 'Before Calling Ahl_Visit_Tasks_Pkg.Insert_Row' );
2531: END IF;
2532:
2589: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
2590: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
2591:
2592: IF (l_log_statement >= l_log_current_level) THEN
2593: fnd_log.string(l_log_statement,
2594: L_DEBUG_KEY,
2595: 'After Calling Ahl_Visit_Tasks_Pkg.Insert_Row' );
2596: END IF;
2597:
2598: ------------------------- finish -------------------------------
2599: -- Added cxcheng POST11510--------------
2600: --Now adjust the times derivation for task
2601: IF (l_log_statement >= l_log_current_level) THEN
2602: fnd_log.string(l_log_statement,
2603: L_DEBUG_KEY,
2604: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times' );
2605: END IF;
2606:
2613: x_msg_data => l_msg_data,
2614: p_task_id => l_task_rec.visit_task_id);
2615:
2616: IF (l_log_statement >= l_log_current_level) THEN
2617: fnd_log.string(l_log_statement,
2618: L_DEBUG_KEY,
2619: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
2620: END IF;
2621:
2642: END IF;
2643: END IF;
2644:
2645: IF (l_log_statement >= l_log_current_level) THEN
2646: fnd_log.string(l_log_statement,
2647: L_DEBUG_KEY,
2648: ': After Insert ' || 'Task ID= ' || p_x_Task_rec.visit_task_id ||
2649: ': After Insert ' || 'Task Number= ' || p_x_Task_rec.visit_task_number);
2650: END IF;
2666: COMMIT;
2667: END IF;
2668:
2669: IF (l_log_procedure >= l_log_current_level) THEN
2670: fnd_log.string(l_log_procedure,
2671: L_DEBUG_KEY ||'.end',
2672: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2673: END IF;
2674: EXCEPTION
2739: c_Task_rec c_Task%ROWTYPE;
2740:
2741: BEGIN
2742: IF (l_log_procedure >= l_log_current_level) THEN
2743: fnd_log.string(l_log_procedure,
2744: L_DEBUG_KEY ||'.begin',
2745: 'At the start of PL SQL procedure.');
2746: END IF;
2747:
2774:
2775: ---------------------------------------------- Start----------------------------------------------------------
2776:
2777: IF (l_log_statement >= l_log_current_level) THEN
2778: fnd_log.string(l_log_statement,
2779: L_DEBUG_KEY,
2780: 'Status Code = ' || c_Task_rec.status_code);
2781: END IF;
2782:
2781: END IF;
2782:
2783: IF c_Task_rec.status_code = 'RELEASED' THEN
2784: IF (l_log_statement >= l_log_current_level) THEN
2785: fnd_log.string(l_log_statement,
2786: L_DEBUG_KEY,
2787: 'Before calling Update_Tasks_in_Production');
2788: END IF;
2789:
2798: x_msg_count => l_msg_count,
2799: x_msg_data => l_msg_data
2800: );
2801: IF (l_log_statement >= l_log_current_level) THEN
2802: fnd_log.string(l_log_statement,
2803: L_DEBUG_KEY,
2804: 'After calling Update_Tasks_in_Production, Return Status = ' || l_return_status);
2805: END IF;
2806:
2805: END IF;
2806:
2807: ELSE
2808: IF (l_log_statement >= l_log_current_level) THEN
2809: fnd_log.string(l_log_statement,
2810: L_DEBUG_KEY,
2811: 'Before calling Update_Tasks_in_Planning');
2812: END IF;
2813: Update_Tasks_in_Planning
2821: x_msg_count => l_msg_count,
2822: x_msg_data => l_msg_data
2823: );
2824: IF (l_log_statement >= l_log_current_level) THEN
2825: fnd_log.string(l_log_statement,
2826: L_DEBUG_KEY,
2827: 'After calling Update_Tasks_in_Planning,Return Status = '|| l_return_status);
2828: END IF;
2829: END IF;
2848: COMMIT;
2849: END IF;
2850:
2851: IF (l_log_procedure >= l_log_current_level) THEN
2852: fnd_log.string(l_log_procedure,
2853: L_DEBUG_KEY ||'.end',
2854: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2855: END IF;
2856:
3056: l_workrec AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_REC;
3057:
3058: BEGIN
3059: IF (l_log_procedure >= l_log_current_level) THEN
3060: fnd_log.string(l_log_procedure,
3061: L_DEBUG_KEY ||'.begin',
3062: 'At the start of PL SQL procedure.' ||
3063: 'Visit ID ' || l_task_rec.visit_id ||
3064: 'Visit Task ID ' || l_Task_rec.visit_task_id);
3092: FETCH c_visit_task_det INTO l_old_Task_rec;
3093: CLOSE c_visit_task_det;
3094:
3095: IF (l_log_statement >= l_log_current_level) THEN
3096: fnd_log.string(l_log_statement,
3097: L_DEBUG_KEY,
3098: 'Task type code = ' || l_old_Task_rec.task_type_code);
3099: END IF;
3100:
3101: IF (l_old_Task_rec.task_type_code <> 'SUMMARY'
3102: AND l_Task_rec.stage_name IS NOT NULL) THEN
3103:
3104: IF (l_log_statement >= l_log_current_level) THEN
3105: fnd_log.string(l_log_statement,
3106: L_DEBUG_KEY,
3107: ' Call AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES ');
3108: END IF;
3109: AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES(
3154: l_task_rec.department_id := NULL;
3155: END IF;
3156:
3157: IF (l_log_statement >= l_log_current_level) THEN
3158: fnd_log.string(l_log_statement,
3159: L_DEBUG_KEY,
3160: ' In Update task... ' ||
3161: ' l_task_rec.department_id '|| l_task_rec.department_id ||
3162: ' l_old_Task_rec.department_id'|| l_old_Task_rec.department_id);
3179: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
3180: WHERE VISIT_ID = l_visit_rec.visit_id;
3181:
3182: IF (l_log_statement >= l_log_current_level) THEN
3183: fnd_log.string(l_log_statement,
3184: L_DEBUG_KEY,
3185: ' After Update Price for Visit');
3186: END IF;
3187:
3199: END LOOP;
3200: CLOSE c_all_task;
3201:
3202: IF (l_log_statement >= l_log_current_level) THEN
3203: fnd_log.string(l_log_statement,
3204: L_DEBUG_KEY,
3205: ' After Update Price for all Tasks');
3206: END IF;
3207:
3221: END IF;
3222: CLOSE c_Task_WO;
3223:
3224: IF (l_log_statement >= l_log_current_level) THEN
3225: fnd_log.string(l_log_statement,
3226: L_DEBUG_KEY,
3227: 'Before Calling AHL_PRD_WORKORDER_PVT.update_job');
3228: END IF;
3229: AHL_PRD_WORKORDER_PVT.update_job
3241: P_X_PRD_WORKOPER_TBL =>l_workoper_tbl
3242: );
3243:
3244: IF (l_log_statement >= l_log_current_level) THEN
3245: fnd_log.string(l_log_statement,
3246: L_DEBUG_KEY,
3247: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
3248: END IF;
3249:
3256:
3257: END IF; -- Check for Dept change
3258:
3259: IF (l_log_statement >= l_log_current_level) THEN
3260: fnd_log.string(l_log_statement,
3261: L_DEBUG_KEY,
3262: ': After calling update task for costing changes');
3263: END IF;
3264:
3263: END IF;
3264:
3265: IF l_task_rec.task_type_code = 'SUMMARY' THEN
3266: IF (l_log_statement >= l_log_current_level)THEN
3267: fnd_log.string(l_log_statement,
3268: L_DEBUG_KEY,
3269: 'Before Calling Update_Summary_Task, TASK TYPE = ' || l_task_rec.task_type_code);
3270: END IF;
3271:
3281: x_msg_count => l_msg_count,
3282: x_msg_data => l_msg_data
3283: );
3284: IF (l_log_statement >= l_log_current_level)THEN
3285: fnd_log.string(l_log_statement,
3286: L_DEBUG_KEY,
3287: 'After Calling Update_Summary_Task, Return Status = ' || l_return_status);
3288: END IF;
3289: ELSIF l_task_rec.task_type_code = 'PLANNED' THEN
3289: ELSIF l_task_rec.task_type_code = 'PLANNED' THEN
3290: -- Call AHL_VWP_PLAN_TASKS_PVT
3291:
3292: IF (l_log_statement >= l_log_current_level)THEN
3293: fnd_log.string(l_log_statement,
3294: L_DEBUG_KEY,
3295: 'Calling Update_Planned_Task, TASK TYPE = ' || l_task_rec.task_type_code);
3296: END IF;
3297:
3309: );
3310: ELSIF l_task_rec.task_type_code = 'UNPLANNED' THEN
3311: -- Call AHL_VWP_UNPLAN_TASKS_PVT
3312: IF (l_log_statement >= l_log_current_level)THEN
3313: fnd_log.string(l_log_statement,
3314: L_DEBUG_KEY,
3315: 'Calling Update_Unplanned_Task, TASK TYPE = ' || l_task_rec.task_type_code);
3316: END IF;
3317:
3328: );
3329: ELSIF l_task_rec.task_type_code = 'UNASSOCIATED' THEN
3330: -- Call AHL_VWP_UNPLAN_TASKS_PVT
3331: IF (l_log_statement >= l_log_current_level)THEN
3332: fnd_log.string(l_log_statement,
3333: L_DEBUG_KEY,
3334: 'Before Calling Update_Unassociated_Task');
3335: END IF;
3336:
3346: x_msg_data => l_msg_data
3347: );
3348:
3349: IF (l_log_statement >= l_log_current_level)THEN
3350: fnd_log.string(l_log_statement,
3351: L_DEBUG_KEY,
3352: 'After Calling Update_Unassociated_Task, Return Status = ' ||l_return_status );
3353: END IF;
3354: END IF;
3368: IF (p_x_task_rec.cost_parent_number IS NOT NULL AND
3369: p_x_task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
3370:
3371: IF (l_log_statement >= l_log_current_level)THEN
3372: fnd_log.string(l_log_statement,
3373: L_DEBUG_KEY,
3374: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ');
3375: END IF;
3376:
3392: -- Updating Cost Parent should update the any_task_chg_flag
3393: IF (NVL(p_x_task_rec.cost_parent_id, -999 ) <> NVL(l_old_Task_rec.cost_parent_id, -999)) THEN
3394: IF l_visit_rec.any_task_chg_flag = 'N' THEN
3395: IF (l_log_statement >= l_log_current_level)THEN
3396: fnd_log.string(l_log_statement,
3397: L_DEBUG_KEY,
3398: 'Before Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag ' ||
3399: 'Any_task_chg_flag = ' ||l_visit_rec.any_task_chg_flag);
3400: END IF;
3404: p_flag => 'Y',
3405: x_return_status => x_return_status);
3406:
3407: IF (l_log_statement >= l_log_current_level)THEN
3408: fnd_log.string(l_log_statement,
3409: L_DEBUG_KEY,
3410: 'After Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag, Return Status = ' ||x_return_status);
3411: END IF;
3412:
3435: COMMIT;
3436: END IF;
3437:
3438: IF (l_log_procedure >= l_log_current_level) THEN
3439: fnd_log.string(l_log_procedure,
3440: L_DEBUG_KEY ||'.end',
3441: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3442: END IF;
3443:
3573:
3574: BEGIN
3575:
3576: IF (l_log_procedure >= l_log_current_level) THEN
3577: fnd_log.string(l_log_procedure,
3578: L_DEBUG_KEY ||'.begin',
3579: 'At the start of PL SQL procedure.' ||
3580: 'Visit Task Id = ' || l_Task_rec.visit_task_id );
3581: END IF;
3638: );
3639: END IF;
3640:
3641: IF (l_log_statement >= l_log_current_level) THEN
3642: fnd_log.string(l_log_statement,
3643: L_DEBUG_KEY,
3644: 'Before Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
3645: END IF;
3646:
3698: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
3699: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
3700:
3701: IF (l_log_statement >= l_log_current_level) THEN
3702: fnd_log.string(l_log_statement,
3703: L_DEBUG_KEY,
3704: 'After Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
3705: END IF;
3706:
3706:
3707: -- Added cxcheng POST11510--------------
3708: --Now adjust the times derivation for task
3709: IF (l_log_statement >= l_log_current_level) THEN
3710: fnd_log.string(l_log_statement,
3711: L_DEBUG_KEY,
3712: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
3713: END IF;
3714: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
3720: x_msg_data => l_msg_data,
3721: p_task_id => l_task_rec.visit_task_id);
3722:
3723: IF (l_log_statement >= l_log_current_level) THEN
3724: fnd_log.string(l_log_statement,
3725: L_DEBUG_KEY,
3726: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
3727: END IF;
3728:
3763: COMMIT;
3764: END IF;
3765:
3766: IF (l_log_procedure >= l_log_current_level) THEN
3767: fnd_log.string(l_log_procedure,
3768: L_DEBUG_KEY ||'.end',
3769: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3770: END IF;
3771: EXCEPTION
3846: c_Visit_rec c_Visit%ROWTYPE;
3847:
3848: BEGIN
3849: IF (l_log_procedure >= l_log_current_level) THEN
3850: fnd_log.string(l_log_procedure,
3851: L_DEBUG_KEY ||'.begin',
3852: 'At the start of PL SQL procedure.');
3853: END IF;
3854:
3881: FETCH c_Task INTO c_Task_rec;
3882: CLOSE c_Task;
3883:
3884: IF (l_log_statement >= l_log_current_level) THEN
3885: fnd_log.string(l_log_statement,
3886: L_DEBUG_KEY,
3887: ': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id ||
3888: ': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name ||
3889: ': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number ||
3921:
3922: END IF;
3923:
3924: IF (l_log_statement >= l_log_current_level) THEN
3925: fnd_log.string(l_log_statement,
3926: L_DEBUG_KEY,
3927: ': Dept ID= ' || l_Task_rec.department_id ||
3928: ': Serial Number= ' || l_Task_rec.serial_number);
3929:
3934: IF (l_Task_rec.serial_number IS NOT NULL AND
3935: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
3936:
3937: IF (l_log_statement >= l_log_current_level) THEN
3938: fnd_log.string(l_log_statement,
3939: L_DEBUG_KEY,
3940: ' Calling AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id' );
3941: END IF;
3942:
3958: --Assign the returned value
3959: l_Task_rec.instance_id := l_serial_id;
3960:
3961: IF (l_log_statement >= l_log_current_level) THEN
3962: fnd_log.string(l_log_statement,
3963: L_DEBUG_KEY,
3964: ': Before UC Check Serial ID= ' || l_Task_rec.instance_id ||
3965: ': Before UC Item ID= ' || l_Task_rec.inventory_item_id ||
3966: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id);
3981:
3982: END IF;
3983:
3984: IF (l_log_statement >= l_log_current_level) THEN
3985: fnd_log.string(l_log_statement,
3986: L_DEBUG_KEY,
3987: ': Serial ID= ' || l_Task_rec.instance_id ||
3988: ': Cost parent= ' || l_Task_rec.cost_parent_number);
3989: END IF;
4012: l_Task_rec.cost_parent_id := l_cost_parent_id;
4013: END IF;
4014:
4015: IF (l_log_statement >= l_log_current_level) THEN
4016: fnd_log.string(l_log_statement,
4017: L_DEBUG_KEY,
4018: ': Cost parent ID = ' || l_Task_rec.cost_parent_id ||
4019: ': Validation: Start -- For COST PARENT ');
4020: END IF;
4031:
4032: END IF;
4033:
4034: IF (l_log_statement >= l_log_current_level) THEN
4035: fnd_log.string(l_log_statement,
4036: L_DEBUG_KEY,
4037: ': Validation: End -- For COST PARENT ' ||
4038: ': Originating Number = ' || l_Task_rec.orginating_task_number);
4039: END IF;
4044: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
4045: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
4046:
4047: IF (l_log_statement >= l_log_current_level) THEN
4048: fnd_log.string(l_log_statement,
4049: L_DEBUG_KEY,
4050: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4051: END IF;
4052:
4069: l_Task_rec.originating_task_id := l_originating_task_id;
4070: END IF;
4071:
4072: IF (l_log_statement >= l_log_current_level) THEN
4073: fnd_log.string(l_log_statement,
4074: L_DEBUG_KEY,
4075: ': Originating Task ID= ' || l_Task_rec.originating_task_id ||
4076: ': Validation: Start -- For ORIGINATING TASK');
4077: END IF;
4087: );
4088: END IF;
4089:
4090: IF (l_log_statement >= l_log_current_level) THEN
4091: fnd_log.string(l_log_statement,
4092: L_DEBUG_KEY,
4093: ': Validation: End -- For ORIGINATING TASK');
4094: END IF;
4095:
4096: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
4097:
4098: ----------------------- validate ----------------------
4099: IF (l_log_statement >= l_log_current_level) THEN
4100: fnd_log.string(l_log_statement,
4101: L_DEBUG_KEY,
4102: ':Validate ');
4103: END IF;
4104:
4111:
4112: -- Post 11.5.10 Changes by Senthil.
4113: IF(L_task_rec.STAGE_ID IS NOT NULL OR L_task_rec.STAGE_NAME IS NOT NULL) THEN
4114: IF (l_log_statement >= l_log_current_level) THEN
4115: fnd_log.string(l_log_statement,
4116: L_DEBUG_KEY,
4117: 'Before Calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES');
4118: END IF;
4119: AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES(
4125: X_RETURN_STATUS => l_return_status,
4126: X_MSG_COUNT => l_msg_count,
4127: X_MSG_DATA => l_msg_data );
4128: IF (l_log_statement >= l_log_current_level) THEN
4129: fnd_log.string(l_log_statement,
4130: L_DEBUG_KEY,
4131: 'After Calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES, Return Status = ' || l_return_status );
4132: END IF;
4133:
4171: END IF;
4172:
4173: -------------------------- update --------------------
4174: IF (l_log_statement >= l_log_current_level) THEN
4175: fnd_log.string(l_log_statement,
4176: L_DEBUG_KEY,
4177: 'Before Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
4178: END IF;
4179:
4231: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
4232: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
4233:
4234: IF (l_log_statement >= l_log_current_level) THEN
4235: fnd_log.string(l_log_statement,
4236: L_DEBUG_KEY,
4237: 'After Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
4238: END IF;
4239:
4239:
4240: -- Added cxcheng POST11510--------------
4241: --Now adjust the times derivation for task
4242: IF (l_log_statement >= l_log_current_level) THEN
4243: fnd_log.string(l_log_statement,
4244: L_DEBUG_KEY,
4245: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
4246: END IF;
4247: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4253: x_msg_data => l_msg_data,
4254: p_task_id => l_task_rec.visit_task_id);
4255:
4256: IF (l_log_statement >= l_log_current_level) THEN
4257: fnd_log.string(l_log_statement,
4258: L_DEBUG_KEY,
4259: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = ' || l_return_status);
4260: END IF;
4261:
4280:
4281: IF c_upd_Task_rec.start_date_time IS NOT NULL THEN
4282:
4283: IF (l_log_statement >= l_log_current_level) THEN
4284: fnd_log.string(l_log_statement,
4285: L_DEBUG_KEY,
4286: 'Before Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4287: END IF;
4288:
4301: x_msg_count => l_msg_count,
4302: x_msg_data => l_msg_data );
4303:
4304: IF (l_log_statement >= l_log_current_level) THEN
4305: fnd_log.string(l_log_statement,
4306: L_DEBUG_KEY,
4307: 'After Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials' ||
4308: 'Planned Order Flag : ' || l_planned_order_flag ||
4309: 'Return Status = ' || l_return_status );
4343: COMMIT;
4344: END IF;
4345:
4346: IF (l_log_procedure >= l_log_current_level) THEN
4347: fnd_log.string(l_log_procedure,
4348: L_DEBUG_KEY ||'.end',
4349: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
4350: END IF;
4351: EXCEPTION
4426: c_Visit_rec c_Visit%ROWTYPE;
4427:
4428: BEGIN
4429: IF (l_log_procedure >= l_log_current_level) THEN
4430: fnd_log.string(l_log_procedure,
4431: L_DEBUG_KEY ||'.begin',
4432: 'At the start of PL SQL procedure.');
4433: END IF;
4434: --------------------- initialize -----------------------
4460: FETCH c_Task INTO c_Task_rec;
4461: CLOSE c_Task;
4462:
4463: IF (l_log_statement >= l_log_current_level) THEN
4464: fnd_log.string(l_log_statement,
4465: L_DEBUG_KEY,
4466: ': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id ||
4467: ': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name ||
4468: ': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number ||
4499: l_task_rec.department_id := l_department_id;
4500: END IF;
4501:
4502: IF (l_log_statement >= l_log_current_level) THEN
4503: fnd_log.string(l_log_statement,
4504: L_DEBUG_KEY,
4505: ': Dept ID= ' || l_Task_rec.department_id );
4506: END IF;
4507:
4509: -- which are without MR i.e MR_Id in cursor record c_task_rec will be Null
4510: IF c_Task_rec.MR_Id IS NULL THEN
4511:
4512: IF (l_log_statement >= l_log_current_level) THEN
4513: fnd_log.string(l_log_statement,
4514: L_DEBUG_KEY,
4515: ': Serial Number= ' || l_Task_rec.serial_number);
4516: END IF;
4517:
4539: --Assign the returned value
4540: l_Task_rec.instance_id := l_serial_id;
4541:
4542: IF (l_log_statement >= l_log_current_level) THEN
4543: fnd_log.string(l_log_statement,
4544: L_DEBUG_KEY,
4545: ': Before UC Check Serial ID= ' || l_Task_rec.instance_id ||
4546: ': Before UC Item ID= ' || l_Task_rec.inventory_item_id ||
4547: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id);
4560:
4561: END IF; -- End of l_Task_rec.serial_number Null check
4562:
4563: IF (l_log_statement >= l_log_current_level) THEN
4564: fnd_log.string(l_log_statement,
4565: L_DEBUG_KEY,
4566: ': Serial ID= ' || l_Task_rec.instance_id);
4567: END IF;
4568:
4570: l_Task_rec.instance_id := c_Task_rec.instance_id;
4571: END IF; -- End of c_Task_rec.MR_Id Null check
4572:
4573: IF (l_log_statement >= l_log_current_level) THEN
4574: fnd_log.string(l_log_statement,
4575: L_DEBUG_KEY,
4576: ': Cost parent= ' || l_Task_rec.cost_parent_number);
4577: END IF;
4578:
4582: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
4583: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
4584:
4585: IF (l_log_statement >= l_log_current_level) THEN
4586: fnd_log.string(l_log_statement,
4587: L_DEBUG_KEY,
4588: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4589: END IF;
4590:
4620: );
4621: END IF;
4622:
4623: IF (l_log_statement >= l_log_current_level) THEN
4624: fnd_log.string(l_log_statement,
4625: L_DEBUG_KEY,
4626: ': Cost parent ID = ' || l_Task_rec.cost_parent_id);
4627: END IF;
4628:
4627: END IF;
4628:
4629: IF c_Task_rec.MR_Id IS NULL THEN
4630: IF (l_log_statement >= l_log_current_level) THEN
4631: fnd_log.string(l_log_statement,
4632: L_DEBUG_KEY,
4633: ': Originating Number = ' || l_Task_rec.orginating_task_number);
4634: END IF;
4635:
4639: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
4640: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
4641:
4642: IF (l_log_statement >= l_log_current_level) THEN
4643: fnd_log.string(l_log_statement,
4644: L_DEBUG_KEY,
4645: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4646: END IF;
4647:
4666: l_Task_rec.originating_task_id := NULL;
4667: END IF;
4668:
4669: IF (l_log_statement >= l_log_current_level) THEN
4670: fnd_log.string(l_log_statement,
4671: L_DEBUG_KEY,
4672: ': Originating Task ID= ' || l_Task_rec.originating_task_id);
4673: END IF;
4674:
4692:
4693: ----------------------- validate ----------------------
4694:
4695: IF (l_log_statement >= l_log_current_level) THEN
4696: fnd_log.string(l_log_statement,
4697: L_DEBUG_KEY,
4698: ':Validate');
4699: END IF;
4700:
4735: END IF;
4736:
4737: -------------------------- update --------------------
4738: IF (l_log_statement >= l_log_current_level) THEN
4739: fnd_log.string(l_log_statement,
4740: L_DEBUG_KEY,
4741: 'Before Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
4742: END IF;
4743:
4796: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
4797: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
4798:
4799: IF (l_log_statement >= l_log_current_level) THEN
4800: fnd_log.string(l_log_statement,
4801: L_DEBUG_KEY,
4802: 'After Calling Ahl_Visit_Tasks_Pkg.UPDATE_ROW');
4803: END IF;
4804:
4805: ------------------------End of API Body------------------------------------
4806: -- Added cxcheng POST11510--------------
4807: --Now adjust the times derivation for task
4808: IF (l_log_statement >= l_log_current_level) THEN
4809: fnd_log.string(l_log_statement,
4810: L_DEBUG_KEY,
4811: 'Before calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
4812: END IF;
4813: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4818: x_msg_count => l_msg_count,
4819: x_msg_data => l_msg_data,
4820: p_task_id =>l_task_rec.visit_task_id);
4821: IF (l_log_statement >= l_log_current_level) THEN
4822: fnd_log.string(l_log_statement,
4823: L_DEBUG_KEY,
4824: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = ' || l_return_status);
4825: END IF;
4826:
4838: COMMIT;
4839: END IF;
4840:
4841: IF (l_log_procedure >= l_log_current_level) THEN
4842: fnd_log.string(l_log_procedure,
4843: L_DEBUG_KEY ||'.end',
4844: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
4845: END IF;
4846:
4958:
4959: BEGIN
4960:
4961: IF (l_log_procedure >= l_log_current_level) THEN
4962: fnd_log.string(l_log_procedure,
4963: L_DEBUG_KEY ||'.begin',
4964: 'At the start of PL SQL procedure.');
4965: END IF;
4966: --------------------- initialize -----------------------
4997: FETCH c_sr_ovn into c_sr_ovn_rec;
4998: CLOSE c_sr_ovn;
4999:
5000: IF (l_log_statement >= l_log_current_level) THEN
5001: fnd_log.string(l_log_statement,
5002: L_DEBUG_KEY,
5003: ': Visit Id = ' || c_visit_rec.visit_id ||
5004: ': Status Code ' || c_visit_rec.status_code ||
5005: ': Visit Id = ' || c_task_rec.visit_task_id);
5014: ELSIF c_task_rec.status_code = 'PLANNING' THEN
5015: IF c_task_rec.task_type_code = 'SUMMARY' THEN
5016:
5017: IF (l_log_statement >= l_log_current_level) THEN
5018: fnd_log.string(l_log_statement,
5019: L_DEBUG_KEY,
5020: 'Before Calling Delete_Summary_Task');
5021: END IF;
5022: Delete_Summary_Task
5031: x_msg_data => l_msg_data
5032: );
5033:
5034: IF (l_log_statement >= l_log_current_level) THEN
5035: fnd_log.string(l_log_statement,
5036: L_DEBUG_KEY,
5037: 'After Calling Delete_Summary_Task, Return Status = ' || l_return_status );
5038: END IF;
5039:
5039:
5040: ELSIF c_task_rec.task_type_code = 'PLANNED' THEN
5041:
5042: IF (l_log_statement >= l_log_current_level) THEN
5043: fnd_log.string(l_log_statement,
5044: L_DEBUG_KEY,
5045: 'Before Calling AHL_VWP_PLAN_TASKS_PVT.Delete_Planned_Task');
5046: END IF;
5047: AHL_VWP_PLAN_TASKS_PVT.Delete_Planned_Task
5056: x_msg_data => l_msg_data
5057: );
5058:
5059: IF (l_log_statement >= l_log_current_level) THEN
5060: fnd_log.string(l_log_statement,
5061: L_DEBUG_KEY,
5062: 'After Calling AHL_VWP_PLAN_TASKS_PVT.Delete_Planned_Task, Return Status = ' || l_return_status);
5063: END IF;
5064:
5064:
5065: ELSIF c_task_rec.task_type_code = 'UNPLANNED' THEN
5066:
5067: IF (l_log_statement >= l_log_current_level) THEN
5068: fnd_log.string(l_log_statement,
5069: L_DEBUG_KEY,
5070: 'Before Calling AHL_VWP_UNPLAN_TASKS_PVT.Delete_Unplanned_Task');
5071: END IF;
5072: AHL_VWP_UNPLAN_TASKS_PVT.Delete_Unplanned_Task
5081: x_msg_data => l_msg_data
5082: );
5083:
5084: IF (l_log_statement >= l_log_current_level) THEN
5085: fnd_log.string(l_log_statement,
5086: L_DEBUG_KEY,
5087: 'After Calling AHL_VWP_UNPLAN_TASKS_PVT.Delete_Unplanned_Task, Return Status = ' || l_return_status );
5088: END IF;
5089:
5089:
5090: ELSE
5091:
5092: IF (l_log_statement >= l_log_current_level) THEN
5093: fnd_log.string(l_log_statement,
5094: L_DEBUG_KEY,
5095: 'Before Calling Delete_Unassociated_Task');
5096: END IF;
5097: Delete_Unassociated_Task
5105: x_msg_count => l_msg_count,
5106: x_msg_data => l_msg_data
5107: );
5108: IF (l_log_statement >= l_log_current_level) THEN
5109: fnd_log.string(l_log_statement,
5110: L_DEBUG_KEY,
5111: 'After Calling Delete_Unassociated_Task, Return Status = ' || l_return_status);
5112: END IF;
5113:
5125: --Now adjust the times derivation for entire visit task could delete at
5126: --MR level
5127:
5128: IF (l_log_statement >= l_log_current_level) THEN
5129: fnd_log.string(l_log_statement,
5130: L_DEBUG_KEY,
5131: 'Before Calling AHL_VWP_TIMES_PVT.calculate_Task_Times');
5132: END IF;
5133:
5140: x_msg_data => l_msg_data,
5141: p_visit_id => c_task_rec.visit_id);
5142:
5143: IF (l_log_statement >= l_log_current_level) THEN
5144: fnd_log.string(l_log_statement,
5145: L_DEBUG_KEY,
5146: 'After Calling AHL_VWP_TIMES_PVT.calculate_Task_Times, Return Status = ' || l_return_status);
5147: END IF;
5148:
5146: 'After Calling AHL_VWP_TIMES_PVT.calculate_Task_Times, Return Status = ' || l_return_status);
5147: END IF;
5148:
5149: IF (l_log_statement >= l_log_current_level) THEN
5150: fnd_log.string(l_log_statement,
5151: L_DEBUG_KEY,
5152: 'Before Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
5153: END IF;
5154:
5167: x_msg_count => l_msg_count,
5168: x_msg_data => l_msg_data);
5169:
5170: IF (l_log_statement >= l_log_current_level) THEN
5171: fnd_log.string(l_log_statement,
5172: L_DEBUG_KEY,
5173: 'After Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials, Return Status = ' || l_return_status);
5174: END IF;
5175:
5217:
5218: -- If SR Id of task is not null
5219: -- then update the status of the SR to OPEN
5220: IF (l_log_statement >= l_log_current_level) THEN
5221: fnd_log.string(l_log_statement,
5222: L_DEBUG_KEY,
5223: 'Service Request Id = ' || c_task_rec.service_request_id);
5224: END IF;
5225: IF c_task_rec.service_request_id IS NOT NULL THEN
5223: 'Service Request Id = ' || c_task_rec.service_request_id);
5224: END IF;
5225: IF c_task_rec.service_request_id IS NOT NULL THEN
5226: IF (l_log_statement >= l_log_current_level) THEN
5227: fnd_log.string(l_log_statement,
5228: L_DEBUG_KEY,
5229: 'Before Calling CS_ServiceRequest_PUB.Update_Status');
5230: END IF;
5231:
5258: );
5259: -- yazhou 29-Jun-2006 ends
5260:
5261: IF (l_log_statement >= l_log_current_level) THEN
5262: fnd_log.string(l_log_statement,
5263: L_DEBUG_KEY,
5264: 'After Calling CS_ServiceRequest_PUB.Update_Status, Return Status = ' || l_return_status);
5265: END IF;
5266:
5303: COMMIT;
5304: END IF;
5305:
5306: IF (l_log_procedure >= l_log_current_level) THEN
5307: fnd_log.string(l_log_procedure,
5308: L_DEBUG_KEY ||'.end',
5309: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5310: END IF;
5311:
5424: l_workorder_present VARCHAR2(1);
5425:
5426: BEGIN
5427: IF (l_log_procedure >= l_log_current_level) THEN
5428: fnd_log.string(l_log_procedure,
5429: L_DEBUG_KEY ||'.begin',
5430: 'At the start of PL SQL procedure.');
5431: END IF;
5432:
5451: END IF;
5452:
5453: ------------------------Start of API Body------------------------------------
5454: IF (l_log_statement >= l_log_current_level) THEN
5455: fnd_log.string(l_log_statement,
5456: L_DEBUG_KEY,
5457: ':Task Id' || p_visit_task_ID);
5458: END IF;
5459:
5499: l_workorder_rec.wip_entity_id := null;
5500: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
5501:
5502: IF (l_log_statement >= l_log_current_level) THEN
5503: fnd_log.string(l_log_statement,
5504: L_DEBUG_KEY,
5505: 'Before Calling AHL_PRD_WORKORDER_PVT.update_job');
5506: END IF;
5507: AHL_PRD_WORKORDER_PVT.update_job
5520: p_x_prd_workoper_tbl => l_workoper_tbl
5521: );
5522:
5523: IF (l_log_statement >= l_log_current_level) THEN
5524: fnd_log.string(l_log_statement,
5525: L_DEBUG_KEY,
5526: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
5527: END IF;
5528:
5585: OBJECT_VERSION_NUMBER = c_primary_rec.object_version_number + 1
5586: WHERE --VISIT_ID = l_visit_id AND
5587: VISIT_TASK_ID = c_primary_rec.visit_task_id;
5588: IF (l_log_statement >= l_log_current_level) THEN
5589: fnd_log.string(l_log_statement,
5590: L_DEBUG_KEY,
5591: 'Updated AHL_VISIT_TASKS_B for Visit Task Id = ' || c_primary_rec.visit_task_id);
5592: END IF;
5593: END IF;
5606: END IF;
5607: CLOSE c_links;
5608:
5609: IF (l_log_statement >= l_log_current_level) THEN
5610: fnd_log.string(l_log_statement,
5611: L_DEBUG_KEY,
5612: 'Project Task Id = ' || c_task_rec.PROJECT_TASK_ID);
5613: END IF;
5614:
5615: -- When a visit's task is deleted than the related projects's task is also deleted
5616: IF c_task_rec.PROJECT_TASK_ID IS NOT NULL THEN
5617:
5618: IF (l_log_statement >= l_log_current_level) THEN
5619: fnd_log.string(l_log_statement,
5620: L_DEBUG_KEY,
5621: 'Before Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project');
5622: END IF;
5623: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project(
5639: END IF;
5640: END IF;
5641:
5642: IF (l_log_statement >= l_log_current_level) THEN
5643: fnd_log.string(l_log_statement,
5644: L_DEBUG_KEY,
5645: 'Value of l_workorder_present = ' || l_workorder_present);
5646: END IF;
5647:
5675: OBJECT_VERSION_NUMBER=OBJECT_VERSION_NUMBER+1
5676: WHERE VISIT_TASK_ID=l_task_id;
5677:
5678: IF (l_log_statement >= l_log_current_level) THEN
5679: fnd_log.string(l_log_statement,
5680: L_DEBUG_KEY,
5681: 'Updation of the status to DELETED');
5682: END IF;
5683:
5694: p_data => x_msg_data
5695: );
5696:
5697: IF (l_log_procedure >= l_log_current_level) THEN
5698: fnd_log.string(l_log_procedure,
5699: L_DEBUG_KEY ||'.end',
5700: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5701: END IF;
5702: EXCEPTION
5822: order by visit_task_id desc;
5823:
5824: BEGIN
5825: IF (l_log_procedure >= l_log_current_level) THEN
5826: fnd_log.string(l_log_procedure,
5827: L_DEBUG_KEY ||'.begin',
5828: 'At the start of PL SQL procedure.');
5829: END IF;
5830:
5846: END IF;
5847:
5848: ------------------------Start of API Body------------------------------------
5849: IF (l_log_statement >= l_log_current_level) THEN
5850: fnd_log.string(l_log_statement,
5851: L_DEBUG_KEY,
5852: ':Task Id' || p_visit_task_ID);
5853: END IF;
5854:
5891: FETCH c_workorders INTO c_workrec;
5892:
5893: IF C_WORKORDERS%FOUND THEN
5894: IF (l_log_statement >= l_log_current_level) THEN
5895: fnd_log.string(l_log_statement,
5896: L_DEBUG_KEY,
5897: 'Check Workorder Status = ' || c_workrec.status_code);
5898: END IF;
5899: IF c_workrec.status_code<>'17'
5929: l_workorder_rec.wip_entity_id := null;
5930: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
5931:
5932: IF (l_log_statement >= l_log_current_level) THEN
5933: fnd_log.string(l_log_statement,
5934: L_DEBUG_KEY,
5935: 'Before Calling AHL_PRD_WORKORDER_PVT.update_job');
5936: END IF;
5937:
5953: p_x_prd_workoper_tbl =>l_workoper_tbl
5954: );
5955:
5956: IF (l_log_statement >= l_log_current_level) THEN
5957: fnd_log.string(l_log_statement,
5958: L_DEBUG_KEY,
5959: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
5960: END IF;
5961:
5974:
5975: CLOSE c_workorders;
5976:
5977: IF (l_log_statement >= l_log_current_level) THEN
5978: fnd_log.string(l_log_statement,
5979: L_DEBUG_KEY,
5980: ' Calling Update_Cost_Origin_Task, task id : '||l_task_ID );
5981: END IF;
5982:
5992: RAISE Fnd_Api.g_exc_error;
5993: END IF;
5994:
5995: IF (l_log_statement >= l_log_current_level) THEN
5996: fnd_log.string(l_log_statement,
5997: L_DEBUG_KEY,
5998: 'Check for Primary Visit');
5999: END IF;
6000:
6017: END IF;
6018:
6019: IF c_task_rec.PROJECT_TASK_ID IS NOT NULL THEN
6020: IF (l_log_statement >= l_log_current_level) THEN
6021: fnd_log.string(l_log_statement,
6022: L_DEBUG_KEY,
6023: 'Before Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project');
6024: END IF;
6025:
6034: /*x_msg_count => x_msg_count,
6035: x_msg_data => x_msg_data);*/
6036:
6037: IF (l_log_statement >= l_log_current_level) THEN
6038: fnd_log.string(l_log_statement,
6039: L_DEBUG_KEY,
6040: 'After Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project, Return Status = ' || l_return_status);
6041: END IF;
6042:
6048:
6049: END IF;
6050:
6051: IF (l_log_statement >= l_log_current_level) THEN
6052: fnd_log.string(l_log_statement,
6053: L_DEBUG_KEY,
6054: 'Before deleting from AHL_TASK_LINKS table');
6055: END IF;
6056:
6063: END IF;
6064: CLOSE c_links;
6065:
6066: IF (l_log_statement >= l_log_current_level) THEN
6067: fnd_log.string(l_log_statement,
6068: L_DEBUG_KEY,
6069: 'Before updating task status to DELETED');
6070: END IF;
6071:
6091:
6092: -- Delete task base (AHL_VISIT_TASKS_B) table data
6093:
6094: IF (l_log_statement >= l_log_current_level) THEN
6095: fnd_log.string(l_log_statement,
6096: L_DEBUG_KEY,
6097: ':Delete from base task table');
6098: END IF;
6099:
6115: OR NVL(c_visit_rec.estimated_price,0) <> 0
6116: THEN
6117:
6118: IF (l_log_statement >= l_log_current_level) THEN
6119: fnd_log.string(l_log_statement,
6120: L_DEBUG_KEY,
6121: 'Before updating visit price by deducting task price');
6122: END IF;
6123:
6138:
6139: END IF; -- Task Null Check
6140:
6141: IF (l_log_procedure >= l_log_current_level) THEN
6142: fnd_log.string(l_log_procedure,
6143: L_DEBUG_KEY ||'.end',
6144: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6145: END IF;
6146: EXCEPTION
6277: SELECT 'X' from ahl_visit_tasks_b where unit_effectivity_id = c_ue_id and
6278: status_code <> 'DELETED';
6279: BEGIN
6280: IF (l_log_procedure >= l_log_current_level) THEN
6281: fnd_log.string(l_log_procedure,
6282: L_DEBUG_KEY ||'.begin',
6283: 'At the start of PL SQL procedure.');
6284: END IF;
6285:
6304:
6305: ------------------------Start of API Body------------------------------------
6306:
6307: IF (l_log_statement >= l_log_current_level)THEN
6308: fnd_log.string(l_log_statement,
6309: L_DEBUG_KEY,
6310: ':Task Id' || p_visit_task_ID);
6311: END IF;
6312:
6335: l_est_price :=c_task_rec.estimated_price;
6336: l_task_id := p_Visit_Task_Id;
6337:
6338: IF (l_log_statement >= l_log_current_level)THEN
6339: fnd_log.string(l_log_statement,
6340: L_DEBUG_KEY,
6341: ':Visit Id' || l_visit_id);
6342: END IF;
6343:
6342: END IF;
6343:
6344: IF l_origin_id is not null THEN
6345: IF (l_log_statement >= l_log_current_level)THEN
6346: fnd_log.string(l_log_statement,
6347: L_DEBUG_KEY,
6348: 'Before Calling Delete_Summary_Task' );
6349: END IF;
6350: Delete_Summary_Task(
6358: x_msg_count =>x_msg_count,
6359: x_msg_data =>x_msg_data);
6360:
6361: IF (l_log_statement >= l_log_current_level)THEN
6362: fnd_log.string(l_log_statement,
6363: L_DEBUG_KEY,
6364: 'After Calling Delete_Summary_Task, Return Status = ' || x_return_status);
6365: END IF;
6366:
6407:
6408: IF c_workorders%found THEN
6409:
6410: IF (l_log_statement >= l_log_current_level)THEN
6411: fnd_log.string(l_log_statement,
6412: L_DEBUG_KEY,
6413: 'Check Workorder Status = ' || c_workrec.status_code);
6414: END IF;
6415:
6445: l_workorder_rec.wip_entity_id := null;
6446: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
6447:
6448: IF (l_log_statement >= l_log_current_level)THEN
6449: fnd_log.string(l_log_statement,
6450: L_DEBUG_KEY,
6451: 'Before Calling AHL_PRD_WORKORDER_PVT.update_job ');
6452: END IF;
6453:
6467: p_x_prd_workoper_tbl =>l_workoper_tbl
6468: );
6469:
6470: IF (l_log_statement >= l_log_current_level)THEN
6471: fnd_log.string(l_log_statement,
6472: L_DEBUG_KEY,
6473: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status );
6474: END IF;
6475:
6485: END IF; -- End of if c_workorders%found check
6486: CLOSE c_workorders;
6487:
6488: IF (l_log_statement >= l_log_current_level)THEN
6489: fnd_log.string(l_log_statement,
6490: L_DEBUG_KEY,
6491: ' Calling AHL_VWP_RULES_PVT.Update_Cost_Origin_Task');
6492: END IF;
6493:
6504: RAISE FND_API.G_EXC_ERROR;
6505: END IF;
6506:
6507: IF (l_log_statement >= l_log_current_level)THEN
6508: fnd_log.string(l_log_statement,
6509: L_DEBUG_KEY,
6510: 'Check for Primary Visit');
6511: END IF;
6512:
6531:
6532: IF c_task_rec.PROJECT_TASK_ID IS NOT NULL THEN
6533:
6534: IF (l_log_statement >= l_log_current_level)THEN
6535: fnd_log.string(l_log_statement,
6536: L_DEBUG_KEY,
6537: ' Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project API');
6538: END IF;
6539:
6556:
6557: END IF;
6558:
6559: IF (l_log_statement >= l_log_current_level)THEN
6560: fnd_log.string(l_log_statement,
6561: L_DEBUG_KEY,
6562: 'Before deleting from AHL_TASK_LINKS table');
6563: END IF;
6564:
6571: END IF;
6572: CLOSE c_links;
6573:
6574: IF (l_log_statement >= l_log_current_level)THEN
6575: fnd_log.string(l_log_statement,
6576: L_DEBUG_KEY,
6577: 'Before updating task status to DELETED');
6578: END IF;
6579:
6597: WHERE VISIT_TASK_ID=l_task_id;
6598: ELSE
6599:
6600: IF (l_log_statement >= l_log_current_level)THEN
6601: fnd_log.string(l_log_statement,
6602: L_DEBUG_KEY,
6603: 'Before DELETE');
6604: END IF;
6605: DELETE FROM Ahl_Visit_Tasks_TL WHERE Visit_Task_ID = l_task_id;
6614: END IF;
6615:
6616: -- Delete task base (AHL_VISIT_TASKS_B) table data
6617: IF (l_log_statement >= l_log_current_level)THEN
6618: fnd_log.string(l_log_statement,
6619: L_DEBUG_KEY,
6620: ':Delete from base task table');
6621: END IF;
6622:
6638: OR NVL(c_visit_rec.estimated_price,0) <> 0
6639: THEN
6640:
6641: IF (l_log_statement >= l_log_current_level)THEN
6642: fnd_log.string(l_log_statement,
6643: L_DEBUG_KEY,
6644: 'Before updating visit price by deducting task price');
6645: END IF;
6646:
6664: IF (check_unplanned_ue_assoc%NOTFOUND) THEN
6665: CLOSE check_unplanned_ue_assoc;
6666:
6667: IF (l_log_statement >= l_log_current_level)THEN
6668: fnd_log.string(l_log_statement,
6669: L_DEBUG_KEY,
6670: 'Before DELETE_UNIT_EFFECTIVITY');
6671: END IF;
6672:
6681: X_MSG_DATA => x_msg_data,
6682: P_UNIT_EFFECTIVITY_ID => l_unit_effectivity_id
6683: );
6684: IF (l_log_statement >= l_log_current_level)THEN
6685: fnd_log.string(l_log_statement,
6686: L_DEBUG_KEY,
6687: 'After DELETE_UNIT_EFFECTIVITY');
6688: END IF;
6689: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6698:
6699: ELSIF c_task_rec.mr_id IS NULL AND c_task_rec.unit_effectivity_id is not null
6700: THEN
6701: IF (l_log_statement >= l_log_current_level)THEN
6702: fnd_log.string(l_log_statement,
6703: L_DEBUG_KEY,
6704: 'Before Delete_SR_Task');
6705: END IF;
6706: Delete_SR_Task(
6714: x_msg_count => x_msg_count,
6715: x_msg_data => x_msg_data
6716: );
6717: IF (l_log_statement >= l_log_current_level)THEN
6718: fnd_log.string(l_log_statement,
6719: L_DEBUG_KEY,
6720: 'After Delete_SR_Task');
6721: END IF;
6722: IF (fnd_msg_pub.count_msg > 0 ) THEN
6721: END IF;
6722: IF (fnd_msg_pub.count_msg > 0 ) THEN
6723:
6724: IF (l_log_statement >= l_log_current_level)THEN
6725: fnd_log.string(l_log_statement,
6726: L_DEBUG_KEY,
6727: 'Error raised in Delete_SR_Task');
6728: END IF;
6729: RAISE Fnd_Api.G_EXC_ERROR;
6736: l_visit_id := c_task_rec.visit_id;
6737: l_task_id := p_Visit_Task_Id;
6738:
6739: IF (l_log_statement >= l_log_current_level) THEN
6740: fnd_log.string(l_log_statement,
6741: L_DEBUG_KEY,
6742: 'Before AHL_VWP_RULES_PVT.Update_Cost_Origin_Task Call');
6743: END IF;
6744:
6749: x_return_status =>x_return_status
6750: );
6751:
6752: IF (l_log_statement >= l_log_current_level) THEN
6753: fnd_log.string(l_log_statement,
6754: L_DEBUG_KEY,
6755: 'Check for primary Visit');
6756: END IF;
6757: --OPEN c_primary (l_visit_id, l_task_id);
6770: END LOOP;
6771: CLOSE c_primary;
6772: END IF;
6773: IF (l_log_statement >= l_log_current_level) THEN
6774: fnd_log.string(l_log_statement,
6775: L_DEBUG_KEY,
6776: 'Before deletion from Ahl_Task_Links table');
6777: END IF;
6778: OPEN c_links (l_task_id);
6786:
6787: IF c_task_rec.PROJECT_TASK_ID IS NOT NULL
6788: THEN
6789: IF (l_log_statement >= l_log_current_level) THEN
6790: fnd_log.string(l_log_statement,
6791: L_DEBUG_KEY,
6792: ' Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project');
6793: END IF;
6794: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project
6825: END IF;
6826:
6827: -- Delete task base (AHL_VISIT_TASKS_B) table data
6828: IF (l_log_statement >= l_log_current_level) THEN
6829: fnd_log.string(l_log_statement,
6830: L_DEBUG_KEY,
6831: ':Delete from base task table');
6832: END IF;
6833:
6859: p_data => x_msg_data
6860: );
6861:
6862: IF (l_log_procedure >= l_log_current_level) THEN
6863: fnd_log.string(l_log_procedure,
6864: L_DEBUG_KEY ||'.end',
6865: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6866: END IF;
6867:
6945: --------------------- initialize -----------------------
6946: SAVEPOINT Search_Task;
6947:
6948: IF (l_log_procedure >= l_log_current_level) THEN
6949: fnd_log.string(l_log_procedure,
6950: L_DEBUG_KEY ||'.begin',
6951: 'At the start of PL SQL procedure.');
6952: END IF;
6953:
6968: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6969: END IF;
6970: ---------------------------Start of Body-------------------------------------
6971: IF (l_log_statement >= l_log_current_level) THEN
6972: fnd_log.string(l_log_statement,
6973: L_DEBUG_KEY,
6974: ': Visit Id ' || p_visit_id);
6975: END IF;
6976: OPEN c_visit (p_visit_id);
6997: END IF;
6998: p_x_srch_task_tbl := l_tasks_tbl;
6999: ELSE
7000: IF (l_log_statement >= l_log_current_level) THEN
7001: fnd_log.string(l_log_statement,
7002: L_DEBUG_KEY,
7003: ': Either Visit Start End Time Missing' || c_visit_rec.START_DATE_TIME ||
7004: ': Or Visit Department Missing' || c_visit_rec.DEPARTMENT_ID ||
7005: ': Or Department Shift for a Dept Missing' || l_count);
7019: IF l_tasks_tbl.COUNT > 0 THEN
7020: X := l_tasks_tbl.FIRST;
7021: LOOP
7022: IF (l_log_statement >= l_log_current_level) THEN
7023: fnd_log.string(l_log_statement,
7024: L_DEBUG_KEY,
7025: 'Value of Task Id : ' || l_tasks_tbl(X).Task_Id ||
7026: 'Value of Start Date : ' || TO_CHAR(l_tasks_tbl(X).TASK_START_TIME, 'MM/DD/YY HH24:MI:SS') ||
7027: 'Value of End Date : ' || TO_CHAR(l_tasks_tbl(X).TASK_END_TIME, 'MM/DD/YY HH24:MI:SS'));
7047: COMMIT;
7048: END IF;
7049:
7050: IF (l_log_procedure >= l_log_current_level) THEN
7051: fnd_log.string(l_log_procedure,
7052: L_DEBUG_KEY ||'.end',
7053: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7054: END IF;
7055:
7111: BEGIN
7112: --------------------- initialize -----------------------
7113:
7114: IF (l_log_procedure >= l_log_current_level) THEN
7115: fnd_log.string(l_log_procedure,
7116: L_DEBUG_KEY ||'.begin',
7117: 'At the start of PL SQL procedure.');
7118: END IF;
7119:
7133:
7134: ---------------------- validate ------------------------
7135:
7136: IF (l_log_statement >= l_log_current_level) THEN
7137: fnd_log.string(l_log_statement,
7138: L_DEBUG_KEY,
7139: ':Check items1');
7140: END IF;
7141:
7152: END IF;
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: ':Check items2');
7159: END IF;
7160:
7166: p_data => x_msg_data
7167: );
7168:
7169: IF (l_log_procedure >= l_log_current_level) THEN
7170: fnd_log.string(l_log_procedure,
7171: L_DEBUG_KEY ||'.end',
7172: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
7173: END IF;
7174: EXCEPTION
7217: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
7218: BEGIN
7219: --
7220: IF (l_log_procedure >= l_log_current_level) THEN
7221: fnd_log.string(l_log_procedure,
7222: L_DEBUG_KEY ||'.begin',
7223: 'At the start of PL SQL procedure.');
7224: END IF;
7225: x_return_status := Fnd_Api.g_ret_sts_success;
7225: x_return_status := Fnd_Api.g_ret_sts_success;
7226: -- Validate required items.
7227:
7228: IF (l_log_statement >= l_log_current_level) THEN
7229: fnd_log.string(l_log_statement,
7230: L_DEBUG_KEY,
7231: 'Check_Task_Items:Before Check_Visit_Task_Req_Items');
7232: END IF;
7233:
7245: --
7246: -- Validate uniqueness.
7247:
7248: IF (l_log_statement >= l_log_current_level) THEN
7249: fnd_log.string(l_log_statement,
7250: L_DEBUG_KEY,
7251: 'Check_Task_Items:Before Check_Visit_Task_UK_Items');
7252: END IF;
7253: Check_Visit_Task_UK_Items (
7256: x_return_status => x_return_status
7257: );
7258:
7259: IF (l_log_procedure >= l_log_current_level) THEN
7260: fnd_log.string(l_log_procedure,
7261: L_DEBUG_KEY ||'.begin',
7262: 'At the end of PL SQL procedure. Return Status ' ||x_return_status);
7263: END IF;
7264:
7334: l_serial_ctrl VARCHAR2(2) := NULL;
7335: BEGIN
7336:
7337: IF (l_log_procedure >= l_log_current_level) THEN
7338: fnd_log.string(l_log_procedure,
7339: L_DEBUG_KEY ||'.begin',
7340: 'At the start of PL SQL procedure.');
7341: END IF;
7342:
7407: END IF;
7408: END IF;
7409:
7410: IF (l_log_procedure >= l_log_current_level) THEN
7411: fnd_log.string(l_log_procedure,
7412: L_DEBUG_KEY ||'.end',
7413: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7414: END IF;
7415: END Check_Visit_Task_Req_Items;
7433: BEGIN
7434: x_return_status := Fnd_Api.g_ret_sts_success;
7435:
7436: IF (l_log_procedure >= l_log_current_level) THEN
7437: fnd_log.string(l_log_procedure,
7438: L_DEBUG_KEY ||'.begin',
7439: 'At the start of PL SQL procedure.');
7440: END IF;
7441: --
7446: AND p_task_rec.Visit_Task_ID IS NOT NULL
7447: THEN
7448:
7449: IF (l_log_statement >= l_log_current_level) THEN
7450: fnd_log.string(l_log_statement,
7451: L_DEBUG_KEY,
7452: ': = Check_Visit_Task_UK_Items Uniqueness Of ID');
7453: END IF;
7454:
7467: END IF;
7468: END IF;
7469:
7470: IF (l_log_procedure >= l_log_current_level) THEN
7471: fnd_log.string(l_log_procedure,
7472: L_DEBUG_KEY ||'.end',
7473: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7474: END IF;
7475: END Check_Visit_Task_UK_Items;
7527: --------------------- initialize -----------------------
7528: SAVEPOINT Create_PUP_Tasks;
7529:
7530: IF (l_log_procedure >= l_log_current_level) THEN
7531: fnd_log.string(l_log_procedure,
7532: L_DEBUG_KEY ||'.begin',
7533: 'At the start of PL SQL procedure.');
7534: END IF;
7535:
7562: FETCH c_visit INTO c_visit_rec;
7563: CLOSE c_visit;
7564:
7565: IF (l_log_statement >= l_log_current_level) THEN
7566: fnd_log.string(l_log_statement,
7567: L_DEBUG_KEY,
7568: ': Visit Id = ' || c_visit_rec.visit_id ||
7569: ': Status Code ' || c_visit_rec.status_code );
7570: END IF;
7598: -- End changes by rnahata for Issue 105
7599:
7600: -- Call AHL_VWP_PLAN_TASKS_PVT
7601: IF (l_log_statement >= l_log_current_level) THEN
7602: fnd_log.string(l_log_statement,
7603: L_DEBUG_KEY,
7604: 'Before calling Create_Planned_Task, TASK TYPE = ' ||
7605: l_task_tbl(i).task_type_code);
7606: END IF;
7617: x_msg_data => l_msg_data
7618: );
7619:
7620: IF (l_log_statement >= l_log_current_level) THEN
7621: fnd_log.string(l_log_statement,
7622: L_DEBUG_KEY,
7623: 'After calling Create_Planned_Task, Return Status = ' ||
7624: l_return_status);
7625: END IF;
7657: -- End changes by rnahata for Issue 105
7658:
7659: -- Call AHL_VWP_UNPLAN_TASKS_PVT
7660: IF (l_log_statement >= l_log_current_level) THEN
7661: fnd_log.string(l_log_statement,
7662: L_DEBUG_KEY,
7663: 'Before Calling Create_Unplanned_Task, TASK TYPE = ' || l_task_tbl(i).task_type_code);
7664: END IF;
7665:
7675: x_msg_data => l_msg_data
7676: );
7677:
7678: IF (l_log_statement >= l_log_current_level) THEN
7679: fnd_log.string(l_log_statement,
7680: L_DEBUG_KEY,
7681: 'After Calling Create_Unplanned_Task, Return Status = ' || l_return_status );
7682: END IF;
7683:
7692: END LOOP;
7693: END IF;
7694:
7695: IF (l_log_statement >= l_log_current_level) THEN
7696: fnd_log.string(l_log_statement,
7697: L_DEBUG_KEY,
7698: 'Before Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
7699: END IF;
7700: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
7706: x_msg_data => l_msg_data,
7707: p_visit_id => c_visit_rec.VISIT_ID);
7708:
7709: IF (l_log_statement >= l_log_current_level) THEN
7710: fnd_log.string(l_log_statement,
7711: L_DEBUG_KEY,
7712: 'After Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times. Return Status = ' || l_return_status );
7713: END IF;
7714:
7725: WHERE VISIT_ID =c_visit_rec.VISIT_ID ;
7726: END IF;
7727:
7728: IF (l_log_statement >= l_log_current_level) THEN
7729: fnd_log.string(l_log_statement,
7730: L_DEBUG_KEY,
7731: 'Succesful updation of the status');
7732: END IF;
7733: p_x_task_tbl:=l_task_tbl; --Added by rnahata for Bug 6939329
7746: COMMIT;
7747: END IF;
7748:
7749: IF (l_log_procedure >= l_log_current_level) THEN
7750: fnd_log.string(l_log_procedure,
7751: L_DEBUG_KEY ||'.end',
7752: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7753: END IF;
7754: EXCEPTION
7855: SAVEPOINT associate_default_mrs;
7856:
7857: -- Check if API is called in debug mode. If yes, enable debug.
7858: IF (l_log_procedure >= l_log_current_level) THEN
7859: fnd_log.string(l_log_procedure,
7860: L_DEBUG_KEY ||'.begin',
7861: 'At the start of PL SQL procedure.');
7862: END IF;
7863:
7888:
7889: IF l_instance_id IS NOT NULL THEN
7890:
7891: IF (l_log_statement >= l_log_current_level) THEN
7892: fnd_log.string(l_log_statement,
7893: L_DEBUG_KEY,
7894: ' Before calling AHL_FMP_PVT.GET_VISIT_APPLICABLE_MRS, l_instance_id = ' || l_instance_id);
7895: END IF;
7896: AHL_FMP_PVT.GET_VISIT_APPLICABLE_MRS(
7902: P_VISIT_TYPE_CODE => p_visit_rec.visit_type_code);
7903: --X_APPLICABLE_MR_TBL => l_mr_item_instance_tbl);
7904:
7905: IF (l_log_statement >= l_log_current_level) THEN
7906: fnd_log.string(l_log_statement,
7907: L_DEBUG_KEY,
7908: 'After calling AHL_FMP_PVT.GET_VISIT_APPLICABLE_MRS. Return status = ' || L_RETURN_STATUS || ', l_instance_id = ' || l_instance_id);
7909: END IF;
7910:
7920: OPEN c_get_instance_qty(l_instance_id);
7921: FETCH c_get_instance_qty INTO l_instance_qty;
7922: CLOSE c_get_instance_qty;
7923: IF (l_log_statement >= l_log_current_level) THEN
7924: fnd_log.string(l_log_statement,
7925: L_DEBUG_KEY,
7926: 'Richa -- l_instance_id = ' || l_instance_id || ', l_instance_qty = ' || l_instance_qty);
7927: END IF;
7928: -- End changes by rnahata for Issue 105
7946: l_task_tbl(J).serial_number := p_visit_rec.serial_number;
7947: END LOOP;
7948:
7949: IF (l_log_statement >= l_log_current_level) THEN
7950: fnd_log.string(l_log_statement,
7951: L_DEBUG_KEY,
7952: ' Calling AHL_VWP_TASKS_PVT.CREATE_PUP_TASKS ');
7953: END IF;
7954: AHL_VWP_TASKS_PVT.CREATE_PUP_TASKS(
7980: RAISE Fnd_Api.G_EXC_ERROR;
7981: END IF;
7982:
7983: IF (l_log_procedure >= l_log_current_level) THEN
7984: fnd_log.string(l_log_procedure,
7985: L_DEBUG_KEY ||'.end',
7986: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7987: END IF;
7988: EXCEPTION