[Home] [Help]
55: G_RT_ASSOC_TYPE CONSTANT VARCHAR2(30) := 'ROUTE';
56: ------------------------------------
57: -- Common constants and variables --
58: ------------------------------------
59: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
60: l_log_statement NUMBER := fnd_log.level_statement;
61: l_log_procedure NUMBER := fnd_log.level_procedure;
62: l_log_error NUMBER := fnd_log.level_error;
63: l_log_unexpected NUMBER := fnd_log.level_unexpected;
56: ------------------------------------
57: -- Common constants and variables --
58: ------------------------------------
59: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
60: l_log_statement NUMBER := fnd_log.level_statement;
61: l_log_procedure NUMBER := fnd_log.level_procedure;
62: l_log_error NUMBER := fnd_log.level_error;
63: l_log_unexpected NUMBER := fnd_log.level_unexpected;
64: ---------------------------------------------------------------------
57: -- Common constants and variables --
58: ------------------------------------
59: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
60: l_log_statement NUMBER := fnd_log.level_statement;
61: l_log_procedure NUMBER := fnd_log.level_procedure;
62: l_log_error NUMBER := fnd_log.level_error;
63: l_log_unexpected NUMBER := fnd_log.level_unexpected;
64: ---------------------------------------------------------------------
65: -- Define Record Types for record structures needed by the APIs --
58: ------------------------------------
59: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
60: l_log_statement NUMBER := fnd_log.level_statement;
61: l_log_procedure NUMBER := fnd_log.level_procedure;
62: l_log_error NUMBER := fnd_log.level_error;
63: l_log_unexpected NUMBER := fnd_log.level_unexpected;
64: ---------------------------------------------------------------------
65: -- Define Record Types for record structures needed by the APIs --
66: ---------------------------------------------------------------------
59: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
60: l_log_statement NUMBER := fnd_log.level_statement;
61: l_log_procedure NUMBER := fnd_log.level_procedure;
62: l_log_error NUMBER := fnd_log.level_error;
63: l_log_unexpected NUMBER := fnd_log.level_unexpected;
64: ---------------------------------------------------------------------
65: -- Define Record Types for record structures needed by the APIs --
66: ---------------------------------------------------------------------
67: -- Serial record type for validating serial exists in unit-config tree of the visit
129: AND trunc(nvl(active_end_date, SYSDATE+1)) > trunc(SYSDATE);
130:
131: BEGIN
132: IF (l_log_procedure >= l_log_current_level) THEN
133: fnd_log.string(l_log_procedure,
134: L_DEBUG_KEY ||'.begin',
135: 'At the start of PL SQL function. Visit Id = ' || p_visit_id ||
136: ', p_instance_id = ' || p_instance_id);
137: END IF;
182: L_API_NAME CONSTANT VARCHAR2(30) := 'Check_Item_Name_Or_Id';
183: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
184: BEGIN
185: IF (l_log_procedure >= l_log_current_level) THEN
186: fnd_log.string(l_log_procedure,
187: L_DEBUG_KEY ||'.begin',
188: 'At the start of PL SQL procedure. Item Id = ' ||
189: p_item_id || ', Item Name = ' || p_item_name || ', Org Id = ' || p_org_id);
190: END IF;
256: x_return_status := Fnd_Api.G_RET_STS_ERROR;
257: END IF;
258:
259: IF (l_log_procedure >= l_log_current_level) THEN
260: fnd_log.string(l_log_procedure,
261: L_DEBUG_KEY ||'.end',
262: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
263: '. Item Id = ' || x_item_id || ', Item Name = ' || x_item_name ||
264: ', Org Id = ' || x_org_id);
330:
331: BEGIN
332:
333: IF (l_log_procedure >= l_log_current_level) THEN
334: fnd_log.string(l_log_procedure,
335: L_DEBUG_KEY ||'.begin',
336: 'At the start of PL SQL procedure. Project Template Name = ' || p_proj_temp_name);
337: END IF;
338:
343: THEN
344: x_return_status := Fnd_Api.G_RET_STS_ERROR;
345: ELSE
346: IF (l_log_statement >= l_log_current_level) THEN
347: fnd_log.string(l_log_statement,
348: L_DEBUG_KEY,
349: 'Project Id = ' || x_project_id);
350: END IF;
351: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
353: CLOSE c_proj_template;
354: END IF;
355:
356: IF (l_log_procedure >= l_log_current_level) THEN
357: fnd_log.string(l_log_procedure,
358: L_DEBUG_KEY ||'.end',
359: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
360: END IF;
361:
387: L_API_NAME CONSTANT VARCHAR2(30) := 'Check_Serial_Name_Or_Id';
388: L_DEBUG_KEY CONSTANT VARCHAR2(100):= 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
389: BEGIN
390: IF (l_log_procedure >= l_log_current_level) THEN
391: fnd_log.string(l_log_procedure,
392: L_DEBUG_KEY ||'.begin',
393: 'At the start of PL SQL procedure. Org Id = ' || p_org_id ||
394: ', Item Id = ' || p_item_id ||
395: ', Serial Id = ' || p_serial_id ||
412:
413: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
414:
415: IF (l_log_procedure >= l_log_current_level) THEN
416: fnd_log.string(l_log_procedure,
417: L_DEBUG_KEY ||'.end',
418: 'At the end of PL SQL procedure. Return Status = ' ||
419: x_return_status || ', Serial Id = ' || x_serial_id);
420: END IF;
452: L_API_NAME CONSTANT VARCHAR2(30) := 'Check_Dept_Desc_Or_Id';
453: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
454: BEGIN
455: IF (l_log_procedure >= l_log_current_level) THEN
456: fnd_log.string(l_log_procedure,
457: L_DEBUG_KEY ||'.begin',
458: 'At the start of PL SQL procedure. Org Id = ' || p_organization_id ||
459: ', Dept Id = ' || p_department_id || ', Dept Name = ' || p_dept_name);
460: END IF;
474:
475: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
476:
477: IF (l_log_procedure >= l_log_current_level) THEN
478: fnd_log.string(l_log_procedure,
479: L_DEBUG_KEY ||'.end',
480: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
481: '. Department Id = ' || x_department_id);
482: END IF;
514: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
515:
516: BEGIN
517: IF (l_log_procedure >= l_log_current_level) THEN
518: fnd_log.string(l_log_procedure,
519: L_DEBUG_KEY ||'.begin',
520: 'At the start of PL SQL procedure. Organization Id = ' || p_organization_id ||
521: 'Organization Name = ' || p_org_name);
522: END IF;
548: AND MP.EAM_enabled_flag='Y';
549: END IF;
550: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
551: IF (l_log_procedure >= l_log_current_level) THEN
552: fnd_log.string(l_log_procedure,
553: L_DEBUG_KEY ||'.end',
554: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
555: 'Organization Id = ' || x_organization_id);
556: END IF;
588:
589: BEGIN
590:
591: IF (l_log_procedure >= l_log_current_level) THEN
592: fnd_log.string(l_log_procedure,
593: L_DEBUG_KEY ||'.begin',
594: 'At the start of PL SQL procedure. SR Number= ' ||
595: p_service_number || ', SR Id = ' || p_service_id);
596: END IF;
619:
620: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
621:
622: IF (l_log_procedure >= l_log_current_level) THEN
623: fnd_log.string(l_log_procedure,
624: L_DEBUG_KEY ||'.end',
625: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
626: 'Service Id = ' || x_service_id);
627: END IF;
676: AND NVL(simulation_plan_id,-99) = ASP.simulation_plan_id);
677: */
678: BEGIN
679: IF (l_log_procedure >= l_log_current_level) THEN
680: fnd_log.string(l_log_procedure,
681: L_DEBUG_KEY ||'.begin',
682: 'At the start of PL SQL procedure. Visit Id = ' || p_Visit_id);
683: END IF;
684: IF (p_visit_id IS NOT NULL) THEN
688:
689: IF (l_simulation_plan IS NOT NULL) THEN
690:
691: IF (l_log_statement >= l_log_current_level)THEN
692: fnd_log.string(l_log_statement,
693: L_DEBUG_KEY,
694: 'Simulation Id Check' || l_simulation_plan);
695: END IF;
696: SELECT SIMULATION_PLAN_ID INTO l_simulation_plan_id
716: */
717: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
718:
719: IF (l_log_procedure >= l_log_current_level) THEN
720: fnd_log.string(l_log_procedure,
721: L_DEBUG_KEY ||'.end',
722: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
723: 'x_bln_flag = ' || x_bln_flag);
724: END IF;
758:
759: --mpothuku added status_code <> 'DELETED' clause to fix #206 on 03/30/05
760: BEGIN
761: IF (l_log_procedure >= l_log_current_level) THEN
762: fnd_log.string(l_log_procedure,
763: L_DEBUG_KEY ||'.begin',
764: 'At the start of PL SQL procedure. Visit Task Id = ' || p_visit_task_id ||
765: ', Visit Task Number = ' || p_visit_task_number || ', Visit Id = ' || p_visit_id);
766: END IF;
781: END IF;
782:
783: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
784: IF (l_log_procedure >= l_log_current_level) THEN
785: fnd_log.string(l_log_procedure,
786: L_DEBUG_KEY ||'.end',
787: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
788: 'Visit Task Id = ' || x_visit_task_id);
789: END IF;
819: L_API_NAME CONSTANT VARCHAR2(30) := 'Check_Lookup_Name_Or_Id';
820: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
821: BEGIN
822: IF (l_log_procedure >= l_log_current_level) THEN
823: fnd_log.string(l_log_procedure,
824: L_DEBUG_KEY ||'.begin',
825: 'At the start of PL SQL procedure. p_lookup_type = ' || p_lookup_type ||
826: ', p_lookup_code = ' || p_lookup_code ||
827: ', p_meaning = ' || p_meaning ||
851:
852: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
853:
854: IF (l_log_procedure >= l_log_current_level) THEN
855: fnd_log.string(l_log_procedure,
856: L_DEBUG_KEY ||'.end',
857: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
858: '. x_lookup_code = ' || x_lookup_code);
859: END IF;
907: */
908: BEGIN
909:
910: IF (l_log_procedure >= l_log_current_level) THEN
911: fnd_log.string(l_log_procedure,
912: L_DEBUG_KEY ||'.begin',
913: 'At the start of PL SQL procedure.');
914: END IF;
915: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
922: OPEN c_fnd_response;
923: FETCH c_fnd_response INTO l_responsibility_id;
924:
925: IF (l_log_procedure >= l_log_current_level) THEN
926: fnd_log.string(l_log_procedure,L_DEBUG_KEY, 'Responsiblity_Id from c_fnd_response = ' || l_responsibility_id);
927: END IF;
928:
929: IF c_fnd_response%NOTFOUND THEN
930: x_return_status := Fnd_Api.g_ret_sts_error;
940: OPEN c_fnd_user_resp(l_responsibility_id);
941: FETCH c_fnd_user_resp INTO l_responsibility_id;
942:
943: IF (l_log_procedure >= l_log_current_level) THEN
944: fnd_log.string(l_log_procedure,L_DEBUG_KEY, 'Responsiblity_Id from c_fnd_user_resp = ' || l_responsibility_id);
945: END IF;
946:
947: IF c_fnd_user_resp%NOTFOUND THEN
948: x_return_status := Fnd_Api.g_ret_sts_error;
1006: p_operating_unit_id => mo_global.get_current_org_id, -- Yazhou added for MOAC changes on 05Oct2005
1007: p_msg_count => l_msg_count,
1008: p_msg_data => l_msg_data,
1009: p_return_status => x_return_status);
1010: IF (fnd_log.level_event >= l_log_current_level) THEN
1011: fnd_log.string(fnd_log.level_event,
1012: L_DEBUG_KEY,
1013: 'After calling PA_INTERFACE_UTILS_PUB.Set_Global_Info. Return Status = ' || x_return_status);
1014: END IF;
1007: p_msg_count => l_msg_count,
1008: p_msg_data => l_msg_data,
1009: p_return_status => x_return_status);
1010: IF (fnd_log.level_event >= l_log_current_level) THEN
1011: fnd_log.string(fnd_log.level_event,
1012: L_DEBUG_KEY,
1013: 'After calling PA_INTERFACE_UTILS_PUB.Set_Global_Info. Return Status = ' || x_return_status);
1014: END IF;
1015: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1013: 'After calling PA_INTERFACE_UTILS_PUB.Set_Global_Info. Return Status = ' || x_return_status);
1014: END IF;
1015: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1016: IF (l_log_statement >= l_log_current_level) THEN
1017: fnd_log.string(l_log_statement,
1018: L_DEBUG_KEY,
1019: 'Errors from PA_INTERFACE_UTILS_PUB.Set_Global_Info. Message count: ' ||
1020: l_msg_count || ', message data: ' || l_msg_data);
1021: END IF;
1027: END IF;
1028: -- End Changes made by jaramana on July 25, 2005
1029:
1030: IF (l_log_procedure >= l_log_current_level) THEN
1031: fnd_log.string(l_log_procedure,
1032: L_DEBUG_KEY ||'.end',
1033: 'At the end of PL SQL procedure. Return Status = ' ||
1034: x_return_status || '. x_check_project = ' || x_check_project);
1035: END IF;
1071: AND (active_end_date is null or active_end_date > sysdate);
1072:
1073: BEGIN
1074: IF (l_log_procedure >= l_log_current_level) THEN
1075: fnd_log.string(l_log_procedure,
1076: L_DEBUG_KEY ||'.begin',
1077: 'At the start of PL SQL procedure. Unit Name = ' || p_unit_name);
1078: END IF;
1079: IF (p_unit_name IS NOT NULL) THEN
1081: FETCH c_serial INTO x_instance_id;
1082: CLOSE c_serial;
1083:
1084: IF (l_log_statement >= l_log_current_level) THEN
1085: fnd_log.string(l_log_statement,
1086: L_DEBUG_KEY,
1087: 'Instance Id = ' || x_instance_id);
1088: END IF;
1089:
1100: END IF;
1101:
1102: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1103: IF (l_log_procedure >= l_log_current_level) THEN
1104: fnd_log.string(l_log_procedure,
1105: L_DEBUG_KEY ||'.end',
1106: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
1107: '. Item Id = ' || x_item_id || ' Item Org Id' || x_item_org_id);
1108: END IF;
1250: l_lock_var NUMBER; -- bug 10088921
1251:
1252: BEGIN
1253: IF (l_log_procedure >= l_log_current_level) THEN
1254: fnd_log.string(l_log_procedure,
1255: L_DEBUG_KEY ||'.begin',
1256: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id ||
1257: ', parent id = ' || p_parent_id || ', p_serial_id = ' || p_serial_id ||
1258: ', p_item_id = ' || p_item_id || ', p_mr_id = ' || p_mr_id ||
1265: l_type := 'UNPLANNED';
1266: IF p_serial_id IS NULL THEN
1267: x_return_status := Fnd_Api.g_ret_sts_error;
1268: IF (l_log_statement >= l_log_current_level) THEN
1269: fnd_log.string(l_log_statement,
1270: L_DEBUG_KEY,
1271: 'Error in Insert_Tasks. Serial Id missing.');
1272: END IF;
1273: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1285: OPEN c_mr_title(p_mr_id);
1286: FETCH c_mr_title INTO l_name, l_description;
1287: CLOSE c_mr_title;
1288: IF (l_log_statement >= l_log_current_level) THEN
1289: fnd_log.string(l_log_statement,
1290: L_DEBUG_KEY,
1291: 'Summary Task. MR Title = ' || l_name || ', MR Description = ' || l_description);
1292: END IF;
1293: ELSIF p_unit_id IS NOT NULL THEN
1296: OPEN c_unit_eff_title(p_unit_id);
1297: FETCH c_unit_eff_title INTO l_name, l_description;
1298: CLOSE c_unit_eff_title;
1299: IF (l_log_statement >= l_log_current_level) THEN
1300: fnd_log.string(l_log_statement,
1301: L_DEBUG_KEY,
1302: 'Summary Task. Unit Eff Title = ' || l_name || ', Unit Eff Description = ' || l_description);
1303: END IF;
1304: END IF;
1310: -- SKPATHAK :: 02-MAY-2011 :: VWPE :: Fetched the two newly added columns also
1311: FETCH c_route_details INTO l_name, l_description, l_stage_type_code, l_return_to_supply_flag;
1312: CLOSE c_route_details;
1313: IF (l_log_statement >= l_log_current_level) THEN
1314: fnd_log.string(l_log_statement,
1315: L_DEBUG_KEY,
1316: 'Task. Route Title = ' || l_name || ', Route Description = ' || l_description);
1317: END IF;
1318: ELSIF p_unit_id IS NOT NULL THEN
1321: OPEN c_unit_eff_title(p_unit_id);
1322: FETCH c_unit_eff_title INTO l_name, l_description;
1323: CLOSE c_unit_eff_title;
1324: IF (l_log_statement >= l_log_current_level) THEN
1325: fnd_log.string(l_log_statement,
1326: L_DEBUG_KEY,
1327: 'Task. Unit Eff Title = ' || l_name || ', Unit Eff Description = ' || l_description);
1328: END IF;
1329: END IF;
1332: -- Check for the Visit Task ID and Number.
1333: l_task_ID := Get_Visit_Task_Id();
1334: l_task_number := Get_Visit_Task_Number(p_visit_id);
1335: IF (l_log_statement >= l_log_current_level) THEN
1336: fnd_log.string(l_log_statement,
1337: L_DEBUG_KEY,
1338: 'Task ID = ' || l_task_id || ', Task Number = ' || l_task_number);
1339: END IF;
1340:
1343: FETCH c_get_old_visit_dets into l_is_old_visit;
1344: CLOSE c_get_old_visit_dets;
1345:
1346: IF (l_log_procedure >= l_log_current_level) THEN
1347: fnd_log.string(l_log_procedure, L_DEBUG_KEY, ' l_is_old_visit :'||l_is_old_visit);
1348: END IF;
1349: -- PRAKKUM :: 14-JUL-2011 :: VWPE 12730539 :: END
1350:
1351: -- PRAKKUM :: 14-JUL-2011 :: VWPE 12730539 :: Stages based on stage types will only be effective for new visits
1361: ELSE
1362: l_stage_id := p_stage_id;
1363: END IF;
1364: IF (l_log_statement >= l_log_current_level) THEN
1365: fnd_log.string(l_log_statement,L_DEBUG_KEY,
1366: 'Stage Id for the task is : ' ||l_stage_id );
1367: END IF;
1368:
1369: IF p_service_id IS NOT NULL THEN
1379: RAISE Fnd_Api.G_EXC_ERROR;
1380: END IF;
1381:
1382: IF (l_log_statement >= l_log_current_level) THEN
1383: fnd_log.string(l_log_statement,
1384: L_DEBUG_KEY,
1385: 'Before calling AHL_VISIT_TASKS_PKG.Insert_Row.');
1386: END IF;
1387:
1461: -- SKPATHAK :: Bug 13574991 :: 16-FEB-2012 :: FPed all fixes on R121 codeline
1462: CLOSE c_row_lock;
1463:
1464: IF (l_log_statement >= l_log_current_level) THEN
1465: fnd_log.string(l_log_statement,
1466: L_DEBUG_KEY,
1467: 'After calling AHL_VISIT_TASKS_PKG.Insert_Row.');
1468: END IF;
1469:
1480: IF (AHL_CMP_UTIL_PKG.Is_Comp_Visit (p_visit_id) = 'N' AND l_visit_start_date IS NOT NULL) THEN
1481:
1482: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: START
1483: -- For every MR, associate the materials based on the MR Profile to the stage tasks
1484: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1485: fnd_log.string (fnd_log.level_statement,
1486: l_debug_key,
1487: 'Before calling AHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials, l_type= '||l_type
1488: );
1481:
1482: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: START
1483: -- For every MR, associate the materials based on the MR Profile to the stage tasks
1484: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1485: fnd_log.string (fnd_log.level_statement,
1486: l_debug_key,
1487: 'Before calling AHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials, l_type= '||l_type
1488: );
1489: END IF;
1502: x_msg_count => l_msg_count,
1503: x_msg_data => l_msg_data);
1504: END IF;
1505:
1506: IF (l_log_statement >= fnd_log.g_current_runtime_level) THEN
1507: fnd_log.string(fnd_log.level_statement,
1508: L_DEBUG_KEY,
1509: 'After callingAHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials. l_return_status = ' || l_return_status);
1510: END IF;
1503: x_msg_data => l_msg_data);
1504: END IF;
1505:
1506: IF (l_log_statement >= fnd_log.g_current_runtime_level) THEN
1507: fnd_log.string(fnd_log.level_statement,
1508: L_DEBUG_KEY,
1509: 'After callingAHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials. l_return_status = ' || l_return_status);
1510: END IF;
1511:
1531: p_service_req_id => p_service_id,
1532: x_warranty_entl_tbl => l_entl_rec_tbl);
1533:
1534: IF (l_log_statement >= l_log_current_level) THEN
1535: fnd_log.string(l_log_statement,
1536: L_DEBUG_KEY,
1537: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
1538: END IF;
1539:
1545: x_msg_count => l_msg_count,
1546: x_msg_data => l_msg_data);
1547:
1548: IF (l_log_statement >= l_log_current_level) THEN
1549: fnd_log.string(l_log_statement,
1550: L_DEBUG_KEY,
1551: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
1552: l_return_status);
1553: END IF;
1562:
1563: -- Added cxcheng POST11510--------------
1564: --Now adjust the times derivation for task
1565: IF (l_log_statement >= l_log_current_level) THEN
1566: fnd_log.string(l_log_statement,
1567: L_DEBUG_KEY,
1568: 'Before calling AHL_VWP_TIMES_PVT.Adjust_Task_Times.');
1569: END IF;
1570:
1584: p_task_start_date => p_task_start_date);
1585: END IF;
1586:
1587: IF (l_log_statement >= l_log_current_level) THEN
1588: fnd_log.string(l_log_statement,
1589: L_DEBUG_KEY,
1590: 'After calling AHL_VWP_TIMES_PVT.Adjust_Task_Times. Return Status = ' ||
1591: l_return_status);
1592: END IF;
1593:
1594: l_msg_count := Fnd_Msg_Pub.count_msg;
1595: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1596: IF (l_log_statement >= l_log_current_level) THEN
1597: fnd_log.string(l_log_statement,
1598: L_DEBUG_KEY,
1599: 'Errors from AHL_VWP_TIMES_PVT.Adjust_Task_Times. Message count: ' ||
1600: l_msg_count || ', message data: ' || l_msg_data);
1601: END IF;
1605: END IF;
1606:
1607: x_return_status := Fnd_Api.g_ret_sts_success;
1608: IF (l_log_procedure >= l_log_current_level) THEN
1609: fnd_log.string(l_log_procedure,
1610: L_DEBUG_KEY || '.end',
1611: 'Return Status = ' || x_return_status || '. Task Id = ' || x_task_id);
1612: END IF;
1613: END IF; -- p_visit_id IS NOT NULL
1662: relation_rec_tbl relation_tbl;
1663:
1664: BEGIN
1665: IF (l_log_procedure >= l_log_current_level) THEN
1666: fnd_log.string(l_log_procedure,
1667: L_DEBUG_KEY ||'.begin',
1668: 'At the start of PL SQL function. MAIN HEADER = ' || p_MR_main_id ||
1669: 'CURRENT MR HEADER = ' || p_MR_HEADER_id);
1670: END IF;
1699: END LOOP;
1700: END IF;
1701:
1702: IF (l_log_procedure >= l_log_current_level) THEN
1703: fnd_log.string(l_log_procedure,
1704: L_DEBUG_KEY ||'.end',
1705: 'At the end of PL SQL function. Parent_Id' || x_parent_id);
1706: END IF;
1707: RETURN x_parent_id;
1734: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
1735:
1736: BEGIN
1737: IF (l_log_procedure >= l_log_current_level) THEN
1738: fnd_log.string(l_log_procedure,
1739: L_DEBUG_KEY ||'.begin',
1740: 'At the start of PL SQL function.');
1741: END IF;
1742:
1753: END IF;
1754: CLOSE c_id_exists_t;
1755:
1756: IF (l_log_procedure >= l_log_current_level) THEN
1757: fnd_log.string(l_log_procedure,
1758: L_DEBUG_KEY ||'.end',
1759: 'At the end of PL SQL function. Visit Task Id = ' || x_visit_task_id);
1760: END IF;
1761: RETURN x_visit_task_id;
1783: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
1784:
1785: BEGIN
1786: IF (l_log_procedure >= l_log_current_level) THEN
1787: fnd_log.string(l_log_procedure,
1788: L_DEBUG_KEY ||'.begin',
1789: 'At the start of PL SQL function. Visit Id = ' || p_visit_id);
1790: END IF;
1791:
1799: x_Visit_Task_Number := 1;
1800: END IF;
1801:
1802: IF (l_log_procedure >= l_log_current_level) THEN
1803: fnd_log.string(l_log_procedure,
1804: L_DEBUG_KEY ||'.end',
1805: 'At the end of PL SQL function. Visit Task Number = ' || x_Visit_Task_Number);
1806: END IF;
1807: RETURN x_Visit_Task_Number;
1889: );
1890: BEGIN
1891: ---------------------------Start of Body-------------------------------------
1892: IF (l_log_procedure >= l_log_current_level) THEN
1893: fnd_log.string(l_log_procedure,
1894: L_DEBUG_KEY ||'.begin',
1895: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id ||
1896: ', Task Type = ' || p_task_type || ', MR count = ' || p_MR_Serial_tbl.count);
1897: END IF;
1899: IF p_MR_Serial_tbl.count > 0 THEN
1900: y := p_MR_Serial_tbl.FIRST;
1901: LOOP
1902: IF (l_log_statement >= l_log_current_level)THEN
1903: fnd_log.string(l_log_statement,
1904: L_DEBUG_KEY,
1905: 'MR ID = ' || p_MR_Serial_tbl(y).MR_ID);
1906: END IF;
1907:
1917: FETCH c_route_seq_ct INTO l_count;
1918: CLOSE c_route_seq_ct;
1919:
1920: IF (l_log_statement >= l_log_current_level) THEN
1921: fnd_log.string(l_log_statement,
1922: L_DEBUG_KEY,
1923: 'Route sequence count = ' || l_count);
1924: END IF;
1925:
1936: IF p_task_type = 'UNPLANNED' THEN -- For Unplanned task: Serial Id remains same for all Routes within a MR
1937: l_serial_id := p_MR_Serial_tbl(y).SERIAL_ID ;
1938:
1939: IF (l_log_statement >= l_log_current_level) THEN
1940: fnd_log.string(l_log_statement,
1941: L_DEBUG_KEY,
1942: 'Task type code = ' || p_task_type || ', MR ROUTE = ' || c_route_seq_rec.MR_ROUTE_ID);
1943: END IF;
1944: --SKPATHAK:: BUG 13997419 ::pass ue id as well
1946: FETCH c_route_task INTO l_parent_task_id;
1947: CLOSE c_route_task;
1948:
1949: IF (l_log_statement >= l_log_current_level) THEN
1950: fnd_log.string(l_log_statement,
1951: L_DEBUG_KEY,
1952: 'Parent Id = ' || l_parent_task_id || ', RELATED MR ROUTE = ' || c_route_seq_rec.RELATED_MR_ROUTE_ID);
1953: END IF;
1954: --SKPATHAK:: BUG 13997419 ::pass ue id as well
1956: FETCH c_route_task INTO l_child_task_id;
1957: CLOSE c_route_task;
1958:
1959: IF (l_log_statement >= l_log_current_level) THEN
1960: fnd_log.string(l_log_statement,
1961: L_DEBUG_KEY,
1962: 'Child Id = ' || l_child_task_id);
1963: END IF;
1964:
1963: END IF;
1964:
1965: IF l_parent_task_id <> 0 AND l_child_task_id <> 0 THEN
1966: IF (l_log_statement >= l_log_current_level) THEN
1967: fnd_log.string(l_log_statement,
1968: L_DEBUG_KEY,
1969: 'Parent Id = ' || l_parent_task_id || ', Child Id = ' || l_child_task_id);
1970: END IF;
1971: l_tsk_flag := 'Y';
1995:
1996: END IF; -- End of check p_task_type = 'UNPLANNED' check
1997:
1998: IF (l_log_statement >= l_log_current_level) THEN
1999: fnd_log.string(l_log_statement,
2000: L_DEBUG_KEY,
2001: 'Value of L_TSK_FLAG after task type check' || l_tsk_flag);
2002: END IF;
2003:
2001: 'Value of L_TSK_FLAG after task type check' || l_tsk_flag);
2002: END IF;
2003:
2004: IF (l_log_statement >= l_log_current_level) THEN
2005: fnd_log.string(l_log_statement,
2006: L_DEBUG_KEY,
2007: 'Value of precedence constraint is ' || l_prec_constraint);
2008: END IF;
2009:
2074: l_task_rec.attribute15 := NULL;
2075: END IF;
2076:
2077: IF (l_log_statement >= l_log_current_level) THEN
2078: fnd_log.string(l_log_statement,
2079: L_DEBUG_KEY,
2080: 'Before inserting record into AHL_TASK_LINKS');
2081: END IF;
2082: --Added new 'PRECEDENCE_CONSTRAINT'column by tchimira -VWP ER-12424063
2100: l_task_rec.ATTRIBUTE15, l_prec_constraint
2101: );
2102:
2103: IF (l_log_statement >= l_log_current_level) THEN
2104: fnd_log.string(l_log_statement,
2105: L_DEBUG_KEY,
2106: 'After inserting record into AHL_TASK_LINKS and before calling VALIDATE_VWP_LINKS');
2107: END IF;
2108: -- VWPE ER-12424063:: tchimira :: 31-MAY-2011:: start
2119: x_msg_data =>l_msg_data,
2120: p_task_link_rec =>l_task_link_rec
2121: );
2122: IF (l_log_statement >= l_log_current_level) THEN
2123: fnd_log.string(l_log_statement,
2124: L_DEBUG_KEY,
2125: 'After calling VALIDATE_VWP_LINKS and return status is:'||l_return_status);
2126: END IF;
2127: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2126: END IF;
2127: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2128: l_msg_count := FND_MSG_PUB.count_msg;
2129: IF (l_log_statement >= l_log_current_level) THEN
2130: fnd_log.string(l_log_statement,
2131: L_DEBUG_KEY,
2132: 'Errors from VALIDATE_VWP_LINKS. l_msg_data: ' || l_msg_data);
2133: END IF;
2134: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2152: END LOOP;
2153: END IF; -- End of check p_MR_Id_tbl.count > 0
2154: x_return_status := Fnd_Api.g_ret_sts_success;
2155: IF (l_log_procedure >= l_log_current_level) THEN
2156: fnd_log.string(l_log_procedure,
2157: L_DEBUG_KEY ||'.end',
2158: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2159: END IF;
2160: END Tech_Dependency;
2306: l_mr_title VARCHAR2(80);
2307:
2308: BEGIN
2309: IF (l_log_procedure >= l_log_current_level) THEN
2310: fnd_log.string(l_log_procedure,
2311: L_DEBUG_KEY ||'.begin',
2312: 'At the start of PL SQL procedure. p_visit_id' || p_visit_id ||
2313: ', p_unit_id' || p_unit_id || ', p_item_id' || p_item_id ||
2314: ', p_mr_id' || p_mr_id || ', p_service_req_id' || p_service_req_id ||
2327: FETCH c_get_old_visit_dets into l_is_old_visit;
2328: CLOSE c_get_old_visit_dets;
2329:
2330: IF (l_log_procedure >= l_log_current_level) THEN
2331: fnd_log.string(l_log_procedure, L_DEBUG_KEY, ' l_is_old_visit :'||l_is_old_visit);
2332: END IF;
2333: -- PRAKKUM :: 14-JUL-2011 :: VWPE 12730539 :: END
2334:
2335: IF l_Unit_Id IS NOT NULL then
2339: FETCH c_task INTO c_task_rec;
2340:
2341: IF c_task%FOUND THEN
2342: IF (l_log_statement >= l_log_current_level)THEN
2343: fnd_log.string(l_log_statement,
2344: L_DEBUG_KEY,
2345: 'Inner c_task found. Unit Effectivity is found');
2346: END IF;
2347: CLOSE c_task;
2360: OPEN c_task_chk(l_visit_id, l_MR_Id, l_serial_id);
2361: FETCH c_task_chk INTO c_task_chk_rec;
2362: IF c_task_chk%FOUND THEN
2363: IF (l_log_statement >= l_log_current_level)THEN
2364: fnd_log.string(l_log_statement,
2365: L_DEBUG_KEY,
2366: ' Inner c_task2 found');
2367: END IF;
2368: Fnd_Message.SET_NAME('AHL','AHL_VWP_MR_FOUND');
2377: FETCH c_info INTO l_org_id, l_item_id;
2378: CLOSE c_info;
2379:
2380: IF (l_log_statement >= l_log_current_level)THEN
2381: fnd_log.string(l_log_statement,
2382: L_DEBUG_KEY,
2383: 'c_info cursor - Organization = '||l_org_id ||
2384: 'and Item = ' || l_item_id);
2385: END IF;
2396: OPEN c_task_chk(l_visit_id, l_MR_Id, l_serial_id);
2397: FETCH c_task_chk INTO c_task_chk_rec;
2398: IF c_task_chk%FOUND THEN
2399: IF (l_log_statement >= l_log_current_level)THEN
2400: fnd_log.string(l_log_statement,
2401: L_DEBUG_KEY,
2402: ' Inner c_task2 found');
2403: END IF;
2404: Fnd_Message.SET_NAME('AHL','AHL_VWP_MR_FOUND');
2419: RAISE FND_API.G_EXC_ERROR;
2420: END IF;
2421:
2422: IF (l_log_statement >= l_log_current_level) THEN
2423: fnd_log.string(l_log_statement,
2424: L_DEBUG_KEY,
2425: 'Before calling INSERT_TASKS for Summary Task. Task Id = ' || l_task_id);
2426: END IF;
2427:
2449: x_msg_count => l_msg_count,
2450: x_msg_data => l_msg_data);
2451:
2452: IF (l_log_statement >= l_log_current_level) THEN
2453: fnd_log.string(l_log_statement,
2454: L_DEBUG_KEY,
2455: 'After calling INSERT_TASKS for Summary Task. Task Id = ' || l_task_id ||
2456: '. Return Status = ' || l_return_status);
2457: END IF;
2458:
2459: l_msg_count := FND_MSG_PUB.count_msg;
2460: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2461: IF (l_log_statement >= l_log_current_level) THEN
2462: fnd_log.string(l_log_statement,
2463: L_DEBUG_KEY,
2464: 'Errors from INSERT_TASKS. Message count: ' ||
2465: l_msg_count || ', message data: ' || l_msg_data);
2466: END IF;
2530:
2531: l_mr_route_id := MR_Route_Tbl(i);
2532:
2533: IF (l_log_statement >= l_log_current_level) THEN
2534: fnd_log.string(l_log_statement,
2535: L_DEBUG_KEY,
2536: 'l_mr_route_id = ' || l_mr_route_id);
2537: fnd_log.string(l_log_statement,
2538: L_DEBUG_KEY,
2533: IF (l_log_statement >= l_log_current_level) THEN
2534: fnd_log.string(l_log_statement,
2535: L_DEBUG_KEY,
2536: 'l_mr_route_id = ' || l_mr_route_id);
2537: fnd_log.string(l_log_statement,
2538: L_DEBUG_KEY,
2539: 'Before calling INSERT_TASKS for Simple Task');
2540: END IF;
2541:
2566: x_msg_count => l_msg_count,
2567: x_msg_data => l_msg_data);
2568:
2569: IF (l_log_statement >= l_log_current_level) THEN
2570: fnd_log.string(l_log_statement,
2571: L_DEBUG_KEY,
2572: 'After calling INSERT_TASKS for Simple Task. Task Id = ' || l_task_id ||
2573: '. Visit ID = ' || l_visit_id);
2574: END IF;
2575:
2576: l_msg_count := FND_MSG_PUB.count_msg;
2577: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2578: IF (l_log_statement >= l_log_current_level) THEN
2579: fnd_log.string(l_log_statement,
2580: L_DEBUG_KEY,
2581: 'Errors from INSERT_TASKS. Message count: ' ||
2582: l_msg_count || ', message data: ' || l_msg_data);
2583: END IF;
2592:
2593: IF l_task_det.start_date_time IS NOT NULL THEN
2594:
2595: IF (l_log_statement >= l_log_current_level) THEN
2596: fnd_log.string(l_log_statement,
2597: L_DEBUG_KEY,
2598: 'PLANNED TASK - Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2599: END IF;
2600: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
2611: x_return_status => x_return_status,
2612: x_msg_count => l_msg_count,
2613: x_msg_data => l_msg_data );
2614: IF (l_log_statement >= l_log_current_level) THEN
2615: fnd_log.string(l_log_statement,
2616: L_DEBUG_KEY,
2617: 'PLANNED TASK - After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2618: END IF;
2619: l_msg_count := FND_MSG_PUB.count_msg;
2629: END IF;
2630:
2631: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2632: IF (l_log_procedure >= l_log_current_level) THEN
2633: fnd_log.string(l_log_procedure,
2634: L_DEBUG_KEY ||'.end',
2635: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
2636: ', p_x_parent_MR_Id = ' || p_x_parent_MR_Id);
2637: END IF;
2674: c_child_rec c_child%ROWTYPE;
2675:
2676: BEGIN
2677: IF (l_log_procedure >= l_log_current_level) THEN
2678: fnd_log.string(l_log_procedure,
2679: L_DEBUG_KEY ||'.begin',
2680: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id ||
2681: 'Visit Task Id = ' || p_visit_task_id || 'Cost Parent Id = ' || p_cost_parent_id);
2682: END IF;
2685: p_cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
2686:
2687: IF p_cost_parent_id = p_visit_task_id THEN
2688: IF (l_log_statement >= l_log_current_level) THEN
2689: fnd_log.string(l_log_statement,
2690: L_DEBUG_KEY,
2691: 'p_cost_parent_id = p_visit_task_id');
2692: END IF;
2693: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_COST_LOOP');
2700: FETCH c_child INTO c_child_rec;
2701:
2702: IF p_cost_parent_id = c_child_rec.VISIT_TASK_ID THEN
2703: IF (l_log_statement >= l_log_current_level) THEN
2704: fnd_log.string(l_log_statement,
2705: L_DEBUG_KEY,
2706: 'TASK LOOP');
2707: END IF;
2708: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_COST_LOOP');
2714: END LOOP;
2715: CLOSE c_child;
2716: END IF;
2717: IF (l_log_procedure >= l_log_current_level) THEN
2718: fnd_log.string(l_log_procedure,
2719: L_DEBUG_KEY ||'.end',
2720: 'At the end of PL SQL procedure.');
2721: END IF;
2722:
2750: c_child_rec c_child%ROWTYPE;
2751:
2752: BEGIN
2753: IF (l_log_procedure >= l_log_current_level) THEN
2754: fnd_log.string(l_log_procedure,
2755: L_DEBUG_KEY ||'.begin',
2756: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id || '. Visit Task Id = ' ||
2757: p_visit_task_id || '. Originating Task Id' || p_originating_task_id);
2758: END IF;
2761: p_originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
2762:
2763: IF p_originating_task_id = p_visit_task_id THEN
2764: IF (l_log_statement >= l_log_current_level) THEN
2765: fnd_log.string(l_log_statement,
2766: L_DEBUG_KEY,
2767: 'TASK LOOP1');
2768: END IF;
2769: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_ORIGIN_LOOP');
2776: FETCH c_child INTO c_child_rec;
2777:
2778: IF p_originating_task_id = c_child_rec.VISIT_TASK_ID THEN
2779: IF (l_log_statement >= l_log_current_level) THEN
2780: fnd_log.string(l_log_statement,
2781: L_DEBUG_KEY,
2782: 'TASK LOOP2');
2783: END IF;
2784:
2792: END LOOP;
2793: CLOSE c_child;
2794: END IF;
2795: IF (l_log_procedure >= l_log_current_level) THEN
2796: fnd_log.string(l_log_procedure,
2797: L_DEBUG_KEY ||'.end',
2798: 'At the end of PL SQL procedure.');
2799: END IF;
2800: END Check_Origin_Task_Loop;
2819: L_DEBUG_KEY CONSTANT VARCHAR2(100):= 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
2820:
2821: BEGIN
2822: IF (l_log_procedure >= l_log_current_level) THEN
2823: fnd_log.string(l_log_procedure,
2824: L_DEBUG_KEY ||'.begin',
2825: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id ||
2826: 'p_flag' || p_flag);
2827: END IF;
2836: ANY_TASK_CHG_FLAG = p_flag
2837: WHERE VISIT_ID = p_visit_id;
2838: END IF;
2839: IF (l_log_procedure >= l_log_current_level) THEN
2840: fnd_log.string(l_log_procedure,
2841: L_DEBUG_KEY ||'.end',
2842: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2843: END IF;
2844: END Update_Visit_Task_Flag;
2907: and qpq.qualifier_attribute = 'QUALIFIER_ATTRIBUTE16';
2908:
2909: BEGIN
2910: IF (l_log_procedure >= l_log_current_level) THEN
2911: fnd_log.string(l_log_procedure,
2912: L_DEBUG_KEY ||'.begin',
2913: 'At the start of PL SQL procedure. Visit Id = ' ||
2914: p_visit_id || 'Price List Name = ' || p_price_list_name);
2915: END IF;
2921: IF (visit_info_csr%NOTFOUND) THEN
2922: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
2923: FND_MSG_PUB.ADD;
2924: IF (l_log_unexpected >= l_log_current_level)THEN
2925: fnd_log.string(l_log_unexpected,
2926: L_DEBUG_KEY,
2927: 'Visit id not found in AHL_VISITS_B table');
2928: END IF;
2929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2930: ELSIF(l_service_request_id IS NULL)THEN
2931: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT_UPDT_NOS');
2932: FND_MSG_PUB.ADD;
2933: IF (fnd_log.level_error >= l_log_current_level)THEN
2934: fnd_log.string(fnd_log.level_error,
2935: L_DEBUG_KEY,
2936: 'price list can not be associated because service request id is not associated to visit');
2937: END IF;
2930: ELSIF(l_service_request_id IS NULL)THEN
2931: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT_UPDT_NOS');
2932: FND_MSG_PUB.ADD;
2933: IF (fnd_log.level_error >= l_log_current_level)THEN
2934: fnd_log.string(fnd_log.level_error,
2935: L_DEBUG_KEY,
2936: 'price list can not be associated because service request id is not associated to visit');
2937: END IF;
2938: x_return_status := FND_API.G_RET_STS_ERROR;
2948: IF(customer_id_csr%NOTFOUND)THEN
2949: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_SR_ID');
2950: FND_MSG_PUB.ADD;
2951: IF (l_log_unexpected >= l_log_current_level)THEN
2952: fnd_log.string(l_log_unexpected,
2953: L_DEBUG_KEY,
2954: 'Associated Service Request ' || l_service_request_id ||
2955: ' is invalid as record not found.');
2956: END IF;
2957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2958: ELSIF(l_customer_id IS NULL)THEN
2959: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_SRVREQ_NOCUST');
2960: FND_MSG_PUB.ADD;
2961: IF (fnd_log.level_error >= l_log_current_level)THEN
2962: fnd_log.string(fnd_log.level_error,
2963: L_DEBUG_KEY,
2964: 'Customer id for corresponding service request ' || l_service_request_id || ' is null.');
2965: END IF;
2958: ELSIF(l_customer_id IS NULL)THEN
2959: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_SRVREQ_NOCUST');
2960: FND_MSG_PUB.ADD;
2961: IF (fnd_log.level_error >= l_log_current_level)THEN
2962: fnd_log.string(fnd_log.level_error,
2963: L_DEBUG_KEY,
2964: 'Customer id for corresponding service request ' || l_service_request_id || ' is null.');
2965: END IF;
2966: x_return_status := FND_API.G_RET_STS_ERROR;
2977: IF(price_list_id_csr%NOTFOUND)THEN
2978: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PLIST_NFOUND');
2979: FND_MESSAGE.Set_Token('PRICE_LIST',p_price_list_name);
2980: FND_MSG_PUB.ADD;
2981: IF (fnd_log.level_error >= l_log_current_level)THEN
2982: fnd_log.string(fnd_log.level_error,
2983: L_DEBUG_KEY,
2984: 'Valid price list not found with price list name ' || p_price_list_name);
2985: END IF;
2978: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PLIST_NFOUND');
2979: FND_MESSAGE.Set_Token('PRICE_LIST',p_price_list_name);
2980: FND_MSG_PUB.ADD;
2981: IF (fnd_log.level_error >= l_log_current_level)THEN
2982: fnd_log.string(fnd_log.level_error,
2983: L_DEBUG_KEY,
2984: 'Valid price list not found with price list name ' || p_price_list_name);
2985: END IF;
2986: x_return_status := FND_API.G_RET_STS_ERROR;
2990: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2991: RETURN;
2992: END IF;
2993: IF (l_log_procedure >= l_log_current_level) THEN
2994: fnd_log.string(l_log_procedure,
2995: L_DEBUG_KEY ||'.end',
2996: 'At the end of PL SQL procedure. x_price_list_id = ' || x_price_list_id);
2997: END IF;
2998:
3040: --RR
3041: BEGIN
3042:
3043: IF (l_log_procedure >= l_log_current_level) THEN
3044: fnd_log.string(l_log_procedure,
3045: L_DEBUG_KEY ||'.begin',
3046: 'At the start of PL SQL procedure. Visit Task Id = ' || p_visit_task_id);
3047: END IF;
3048: l_task_id := p_visit_task_id;
3060: FETCH c_origin INTO c_origin_rec;
3061: EXIT WHEN c_origin%NOTFOUND;
3062: IF c_origin_rec.visit_task_id IS NOT NULL THEN
3063: IF (l_log_statement >= l_log_current_level) THEN
3064: fnd_log.string(l_log_statement,
3065: L_DEBUG_KEY,
3066: 'update origin');
3067: END IF;
3068: UPDATE AHL_VISIT_TASKS_B SET ORIGINATING_TASK_ID = NULL,
3081: FETCH c_parent INTO c_parent_rec;
3082: EXIT WHEN c_parent%NOTFOUND;
3083: IF c_parent_rec.visit_task_id IS NOT NULL THEN
3084: IF (l_log_statement >= l_log_current_level) THEN
3085: fnd_log.string(l_log_statement,
3086: L_DEBUG_KEY,
3087: 'update parent');
3088: END IF;
3089: UPDATE AHL_VISIT_TASKS_B SET COST_PARENT_ID = l_parent_id,
3094: CLOSE c_parent;
3095: -- RR
3096: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3097: IF (l_log_procedure >= l_log_current_level) THEN
3098: fnd_log.string(l_log_procedure,
3099: L_DEBUG_KEY ||'.end',
3100: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3101: END IF;
3102: END Update_Cost_Origin_Task;
3122: l_item_present boolean:=false;
3123: BEGIN
3124:
3125: IF (l_log_procedure >= l_log_current_level) THEN
3126: fnd_log.string(l_log_procedure,
3127: L_DEBUG_KEY ||'.begin',
3128: 'At the start of PL SQL procedure. p_item_tbl1.count = ' || p_item_tbl1.count ||
3129: '. p_item_tbl2.count = ' || p_item_tbl2.count);
3130: END IF;
3168: END LOOP;
3169: END IF;
3170:
3171: IF (l_log_procedure >= l_log_current_level) THEN
3172: fnd_log.string(l_log_procedure,
3173: L_DEBUG_KEY ||'.end',
3174: 'At the end of PL SQL procedure. x_item_tbl.COUNT = ' || x_item_tbl.COUNT);
3175: END IF;
3176:
3218: p_item_id => c_task_rec.originating_task_id,
3219: x_item_chk_flag => l_item_chk_flag);
3220:
3221: IF (l_log_procedure >= l_log_current_level)THEN
3222: fnd_log.string(l_log_procedure,
3223: L_DEBUG_KEY||'.end',
3224: 'Check for RECURSIVE task id = ' || p_item_id);
3225: END IF;
3226: ELSE
3225: END IF;
3226: ELSE
3227: l_item_chk_flag := 'N';
3228: IF (l_log_procedure >= l_log_current_level)THEN
3229: fnd_log.string(l_log_procedure,
3230: L_DEBUG_KEY||'.end',
3231: 'Check for NON RECURSIVE task id = ' || p_item_id);
3232: END IF;
3233: END IF;
3279:
3280: BEGIN
3281:
3282: IF (l_log_procedure >= l_log_current_level) THEN
3283: fnd_log.string(l_log_procedure,
3284: L_DEBUG_KEY ||'.begin',
3285: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
3286: END IF;
3287: -- FETCH organization id
3294: FETCH currency_code_csr INTO x_currency_code;
3295: IF (currency_code_csr%NOTFOUND)THEN
3296: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_NO_CURRENCY');
3297: FND_MSG_PUB.ADD;
3298: IF (fnd_log.level_error >= l_log_current_level)THEN
3299: fnd_log.string(fnd_log.level_error,
3300: L_DEBUG_KEY,
3301: 'No curency is defined for the organization of the visit. l_org_id = ' || l_org_id);
3302: END IF;
3295: IF (currency_code_csr%NOTFOUND)THEN
3296: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_NO_CURRENCY');
3297: FND_MSG_PUB.ADD;
3298: IF (fnd_log.level_error >= l_log_current_level)THEN
3299: fnd_log.string(fnd_log.level_error,
3300: L_DEBUG_KEY,
3301: 'No curency is defined for the organization of the visit. l_org_id = ' || l_org_id);
3302: END IF;
3303: END IF;
3304: CLOSE currency_code_csr;
3305: END IF;
3306:
3307: IF (l_log_procedure >= l_log_current_level) THEN
3308: fnd_log.string(l_log_procedure,
3309: L_DEBUG_KEY ||'.end',
3310: 'At the end of PL SQL procedure. Currency Code = ' || x_currency_code);
3311: END IF;
3312: END Check_Currency_for_Costing;
3348: AND FLV.LOOKUP_TYPE(+) = 'AHL_JOB_STATUS'
3349: AND AWO.STATUS_CODE = FLV.LOOKUP_CODE(+);
3350: BEGIN
3351: IF (l_log_procedure >= l_log_current_level) THEN
3352: fnd_log.string(l_log_procedure,
3353: L_DEBUG_KEY ||'.begin',
3354: 'At the start of PL SQL procedure. Visit OR Task Id = ' || p_id ||
3355: 'p_is_task_flag = '|| p_is_task_flag);
3356: END IF;
3365: CLOSE c_job_tsk;
3366: END IF;
3367:
3368: IF (l_log_procedure >= l_log_current_level) THEN
3369: fnd_log.string(l_log_procedure,
3370: L_DEBUG_KEY ||'.end',
3371: 'At the end of PL SQL procedure. Status Code = '|| x_status_code ||
3372: 'Status Meaning = ' || x_status_meaning);
3373: END IF;
3396: WHERE DEPARTMENT_ID = P_DEPT_ID;
3397: --
3398: BEGIN
3399: IF (l_log_procedure >= l_log_current_level) THEN
3400: fnd_log.string(l_log_procedure,
3401: L_DEBUG_KEY ||'.begin',
3402: 'At the start of PL SQL procedure. Department Id = ' || p_dept_id);
3403: END IF;
3404: IF P_DEPT_ID IS NOT NULL AND P_DEPT_ID <> FND_API.G_MISS_NUM
3414: ELSE
3415: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3416: END IF;
3417: IF (l_log_procedure >= l_log_current_level) THEN
3418: fnd_log.string(l_log_procedure,
3419: L_DEBUG_KEY ||'.end',
3420: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3421: END IF;
3422: END CHECK_DEPARTMENT_SHIFT;
3507: --
3508:
3509: BEGIN
3510: IF (l_log_procedure >= l_log_current_level) THEN
3511: fnd_log.string(l_log_procedure,
3512: L_DEBUG_KEY ||'.begin',
3513: 'At the start of PL SQL procedure. Visit task id = ' || p_task_rec.visit_task_id);
3514: END IF;
3515:
3573: x_return_status := FND_API.G_RET_STS_ERROR;
3574: END IF;
3575:
3576: IF (l_log_procedure >= l_log_current_level)THEN
3577: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure, x_return_status=' || x_return_status);
3578: END IF;
3579:
3580: END Validate_Past_Task_Dates;
3581: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: END
3629: l_dummy VARCHAR2(1) := NULL;
3630: --
3631: BEGIN
3632: IF (l_log_procedure >= l_log_current_level) THEN
3633: FND_LOG.string(l_log_procedure, l_debug_key||'.begin',
3634: 'At the start of the API.'||
3635: ' p_service_type => '||p_service_type||
3636: ', p_module_type => '||p_module_type||
3637: ', p_unit_effectivity_id => '||p_unit_effectivity_id||
3649: FETCH get_service_type_code INTO p_x_service_type_code;
3650: IF (get_service_type_code%NOTFOUND) THEN
3651: -- raise exception - "The Service Type (VALUE) is invalid."
3652: IF (l_log_statement >= l_log_current_level) THEN
3653: FND_LOG.string(l_log_statement, l_debug_key,
3654: 'exception raised - The Service Type ('||p_service_type||') is invalid.');
3655: END IF;
3656:
3657: CLOSE get_service_type_code;
3675: FETCH get_service_type_code INTO p_x_service_type_code;
3676: IF (get_service_type_code%NOTFOUND) THEN
3677: -- raise exception - "The Service Type (VALUE) is invalid."
3678: IF (l_log_statement >= l_log_current_level) THEN
3679: FND_LOG.string(l_log_statement, l_debug_key,
3680: 'exception raised - The Service Type ('||p_service_type||') is invalid.');
3681: END IF;
3682:
3683: CLOSE get_service_type_code;
3695: FETCH check_service_type_code INTO l_dummy;
3696: IF (check_service_type_code%NOTFOUND) THEN
3697: -- raise exception - "The Service Type code (CODE) is invalid."
3698: IF (l_log_statement >= l_log_current_level) THEN
3699: FND_LOG.string(l_log_statement, l_debug_key,
3700: 'exception raised - The Service Type code ('||p_x_service_type_code||') is invalid.');
3701: END IF;
3702:
3703: CLOSE check_service_type_code;
3747: FETCH get_service_type_code INTO p_x_service_type_code;
3748: IF (get_service_type_code%NOTFOUND) THEN
3749: -- raise exception - "The Service Type (VALUE) is invalid."
3750: IF (l_log_statement >= l_log_current_level) THEN
3751: FND_LOG.string(l_log_statement, l_debug_key,
3752: 'exception raised - The Service Type ('||p_service_type||') is invalid.');
3753: END IF;
3754:
3755: CLOSE get_service_type_code;
3767: FETCH check_service_type_code INTO l_dummy;
3768: IF (check_service_type_code%NOTFOUND) THEN
3769: -- raise exception - "The Service Type code (CODE) is invalid."
3770: IF (l_log_statement >= l_log_current_level) THEN
3771: FND_LOG.string(l_log_statement, l_debug_key,
3772: 'exception raised - The Service Type code ('||p_x_service_type_code||') is invalid.');
3773: END IF;
3774:
3775: CLOSE check_service_type_code;
3782: CLOSE check_service_type_code;
3783: END IF; -- FND_API.G_MISS_CHAR check, for non-JSP and non-SR module type call
3784: END IF; -- (p_module_type = 'JSP') check
3785: IF (l_log_procedure >= l_log_current_level) THEN
3786: FND_LOG.string(l_log_procedure, l_debug_key||'.end',
3787: 'At the end of the API.'||
3788: ' p_service_type => '||p_service_type||
3789: ', p_x_service_type_code => '||p_x_service_type_code);
3790: END IF;
3875:
3876: BEGIN
3877: --------------------Start of API Body-----------------------------------
3878: IF (l_log_procedure >= l_log_current_level) THEN
3879: fnd_log.string(l_log_procedure,
3880: L_DEBUG_KEY ||'.begin',
3881: 'At the start of PL SQL procedure. '||
3882: 'Passed Task_id : '|| p_task_id ||' - Instance id : '|| p_instance_id ||' - SR Id : '||p_service_req_id);
3883: END IF;
3884:
3885: --------------------Get Entitlements Record For Create-------------------
3886: IF(p_task_id = null OR p_instance_id = null) THEN
3887: IF (l_log_statement >= l_log_current_level) THEN
3888: fnd_log.string(l_log_statement,
3889: L_DEBUG_KEY,
3890: 'Passed Visit_task_id : '|| p_task_id ||' or Instance id : '|| p_instance_id ||' is null');
3891: END IF;
3892: FND_MSG_PUB.add;
3978: END IF;
3979:
3980: --------------------End of API Body-----------------------------------
3981: IF (l_log_statement >= l_log_current_level) THEN
3982: fnd_log.string(l_log_statement,
3983: L_DEBUG_KEY||'.end',
3984: 'At the end of PL SQL procedure.' ||
3985: ' Task Id : '|| l_entitlement_rec.visit_task_id ||
3986: ' Entitlement Id : '|| l_entitlement_rec.warranty_entitlement_id ||
4071:
4072: BEGIN
4073: --------------------Start of API Body-----------------------------------
4074: IF (l_log_procedure >= l_log_current_level) THEN
4075: fnd_log.string(l_log_procedure,
4076: L_DEBUG_KEY ||'.begin',
4077: 'At the start of PL SQL procedure.');
4078: END IF;
4079:
4079:
4080: --------------------Get Entitlements Record For Update-------------------
4081: IF(p_task_rec.visit_task_id is null ) THEN
4082: IF (l_log_statement >= l_log_current_level) THEN
4083: fnd_log.string(l_log_statement,
4084: L_DEBUG_KEY,
4085: 'Passed Visit task id is null');
4086: END IF;
4087: FND_MSG_PUB.add;
4087: FND_MSG_PUB.add;
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: ' Visit task id : '|| p_task_rec.visit_task_id ||
4094: ' Instance is : '|| p_task_rec.instance_id||
4095: ' Entitlement Id is : '|| p_task_rec.warranty_entitlement_id||
4166: --Adding the first record to the OUT param table type
4167: x_warranty_entl_tbl(0) := l_entitlement_rec;
4168:
4169: IF (l_log_statement >= l_log_current_level) THEN
4170: fnd_log.string(l_log_statement,
4171: L_DEBUG_KEY,
4172: ' After updating the Entitlements record.' ||
4173: ' Task Id : '|| l_entitlement_rec.visit_task_id ||
4174: ' Warranty Contract Id : '|| l_entitlement_rec.warranty_contract_id ||
4212: END IF; -- end of instance warranty check
4213:
4214: ---------------------------End of API Body---------------------------------------
4215: IF (l_log_procedure >= l_log_current_level) THEN
4216: fnd_log.string(l_log_procedure,
4217: L_DEBUG_KEY ||'.end',
4218: 'At the end of PL SQL procedure. ');
4219: END IF;
4220: END Get_Warranty_Rec_for_Update;
4340: --------------------- Initialize -----------------------
4341: SAVEPOINT Handle_Task_Dependency;
4342:
4343: IF (l_log_procedure >= l_log_current_level) THEN
4344: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
4345: END IF;
4346:
4347: -- Initialize message list if p_init_msg_list is set to TRUE.
4348: IF Fnd_Api.to_boolean(p_init_msg_list)
4367: -- Loop through all the tasks in the hierarchy of a given task
4368: FOR l_stage_rec IN c_stage_details(l_task_tbl(i).visit_task_id)
4369: LOOP
4370: IF (l_log_statement >= l_log_current_level) THEN
4371: fnd_log.string(l_log_statement,
4372: L_DEBUG_KEY,
4373: 'Before calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES l_stage_rec.visit_task_id= '|| l_stage_rec.visit_task_id);
4374: END IF;
4375:
4383: X_MSG_COUNT => l_msg_count,
4384: X_MSG_DATA => l_msg_data );
4385:
4386: IF (l_log_statement >= l_log_current_level) THEN
4387: fnd_log.string(l_log_statement,
4388: L_DEBUG_KEY,
4389: 'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES: Return Status = ' || l_return_status );
4390: END IF;
4391: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4405: -- First, get all the stages of a visit and loop through all those fetched stages
4406: FOR l_stages_rec IN get_visit_stages(p_visit_id)
4407: LOOP
4408: IF (l_log_statement >= l_log_current_level) THEN
4409: fnd_log.string(l_log_statement,
4410: L_DEBUG_KEY,
4411: 'stage id : '||l_stages_rec.stage_id||' visit id : '||p_visit_id);
4412: END IF;
4413:
4415: -- Loop through all those fetched tasks
4416: FOR l_tasks_rec IN get_stage_tasks(l_stages_rec.stage_id)
4417: LOOP
4418: IF (l_log_statement >= l_log_current_level) THEN
4419: fnd_log.string(l_log_statement,
4420: L_DEBUG_KEY,
4421: 'visit task id : '||l_tasks_rec.visit_task_id);
4422: END IF;
4423:
4426: FETCH get_task_route_attr INTO l_route_attr_rec;
4427: CLOSE get_task_route_attr;
4428:
4429: IF (l_log_statement >= l_log_current_level) THEN
4430: fnd_log.string(l_log_statement,
4431: L_DEBUG_KEY,
4432: 'Pre route number : '||l_route_attr_rec.route_no);
4433: END IF;
4434:
4436: -- of a wbs rule. If yes, then get the all those rule ids and loop though the rule IDs
4437: FOR l_rule_id_rec IN get_rule_id(l_route_attr_rec.route_no, l_route_attr_rec.route_type_code, l_route_attr_rec.concatenated_segments, l_route_attr_rec.process_code)
4438: LOOP
4439: IF (l_log_statement >= l_log_current_level) THEN
4440: fnd_log.string(l_log_statement,
4441: L_DEBUG_KEY,
4442: 'Rule id is : '||l_rule_id_rec.rule_id);
4443: END IF;
4444:
4447: FETCH get_post_route_attr INTO l_post_rout_no, l_post_route_type, l_post_system_code, l_post_process_code;
4448: CLOSE get_post_route_attr;
4449:
4450: IF (l_log_statement >= l_log_current_level) THEN
4451: fnd_log.string(l_log_statement,
4452: L_DEBUG_KEY,
4453: 'Post route no: '||l_post_rout_no);
4454: END IF;
4455:
4463: -- SKPATHAK :: 10-NOV-2011 :: changed STARTS AFTER END to StartsAfterEnd
4464: -- SKPATHAK :: 11-NOV-2011 :: Bug 13374723 :: changed StartsAfterEnd to STARTSAFTEREND
4465: l_task_link_rec.HIERARCHY_INDICATOR := 'STARTSAFTEREND';
4466: IF (l_log_statement >= l_log_current_level) THEN
4467: fnd_log.string(l_log_statement,L_DEBUG_KEY,
4468: 'Before calling create task links. Visit task id :' ||l_task_link_rec.VISIT_TASK_ID||'Parent task id :' ||l_task_link_rec.PARENT_TASK_ID||'Relation type is :' ||l_task_link_rec.HIERARCHY_INDICATOR);
4469: END IF;
4470:
4471: OPEN check_rule_exists (l_task_link_rec.VISIT_TASK_ID, l_task_link_rec.PARENT_TASK_ID);
4486:
4487: --PRAKKUM :: 05/04/2012 :: Bug 13711800 :: Commented out as this call no need to be here
4488: /*
4489: IF (l_log_statement >= l_log_current_level) THEN
4490: fnd_log.string(l_log_statement,
4491: L_DEBUG_KEY,
4492: 'in HTD api; Before calling UPDATE_STAGES_HIERARICHY');
4493: END IF;
4494:
4505: x_msg_data => l_msg_data
4506: );
4507:
4508: IF (l_log_statement >= l_log_current_level) THEN
4509: fnd_log.string(l_log_statement,
4510: L_DEBUG_KEY,
4511: 'After calling UPDATE_STAGES_HIERARICHY and return status is:'||l_return_status);
4512: END IF;
4513:
4623: --------------------- Initialize -----------------------
4624: SAVEPOINT Warranty_Not_Applicable;
4625:
4626: IF (l_log_procedure >= l_log_current_level) THEN
4627: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
4628: END IF;
4629:
4630: -- Initialize message list if p_init_msg_list is set to TRUE.
4631: IF Fnd_Api.to_boolean(p_init_msg_list)
4672: p_task_rec => l_task_tbl(i),
4673: x_warranty_entl_tbl => l_entl_rec_tbl);
4674:
4675: IF (l_log_statement >= l_log_current_level) THEN
4676: fnd_log.string(l_log_statement,
4677: L_DEBUG_KEY,
4678: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
4679: END IF;
4680:
4685: x_msg_count => l_msg_count,
4686: x_msg_data => l_msg_data);
4687:
4688: IF (l_log_statement >= l_log_current_level) THEN
4689: fnd_log.string(l_log_statement,
4690: L_DEBUG_KEY,
4691: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
4692: l_return_status);
4693: END IF;
4706: COMMIT WORK;
4707: END IF;
4708:
4709: IF (l_log_procedure >= l_log_current_level) THEN
4710: FND_LOG.string(l_log_procedure, l_debug_key || '.end', 'At the end of PL/SQL procedure');
4711: END IF;
4712:
4713: EXCEPTION
4714: WHEN Fnd_Api.g_exc_error THEN
4840: -- Standard Start of API savepoint
4841: SAVEPOINT add_rts_sp;
4842:
4843: IF (l_log_procedure >= l_log_current_level) THEN
4844: FND_LOG.string(FND_LOG.level_procedure, L_DEBUG || '.begin','At the start of PLSQL procedure');
4845: END IF;
4846:
4847: -- Initialize message list if p_init_msg_list is set to TRUE.
4848: IF FND_API.to_boolean( p_init_msg_list ) THEN
4869: l_current_rts := l_task_rec.current_rts;
4870: END LOOP;
4871:
4872: IF (l_log_statement >= l_log_current_level) THEN
4873: FND_LOG.string(l_log_statement, L_DEBUG,
4874: 'Retrived values: Visit id:' || l_visit_id || ', task number:' || l_visit_task_number
4875: ||', task status:' || l_status_code || ', task type:' || l_task_type_code || ', instance id:'
4876: || l_instance_id || ', Current Value of RTS flag before updating:' || l_current_rts);
4877: END IF;
4932: FETCH c_get_rts_wo_id INTO l_rts_wip_entity_id;
4933: CLOSE c_get_rts_wo_id;
4934:
4935: IF (l_log_statement >= l_log_current_level) THEN
4936: fnd_log.string(l_log_statement,
4937: l_debug,
4938: 'RTS Workorder existing in RB::' || l_rts_wip_entity_id
4939: || ' For Instance : ' || l_instance_id);
4940: END IF;
4973: FETCH c_get_rts_wo_id INTO l_rts_wip_entity_id;
4974: CLOSE c_get_rts_wo_id;
4975:
4976: IF (l_log_statement >= l_log_current_level) THEN
4977: fnd_log.string(l_log_statement,
4978: l_debug,
4979: 'New RTS Workorder in RB::' || l_rts_wip_entity_id );
4980: END IF;
4981:
4980: END IF;
4981:
4982: IF l_rts_wip_entity_id IS NOT NULL THEN
4983: IF (l_log_statement >= l_log_current_level) THEN
4984: fnd_log.string(l_log_statement,
4985: l_debug,
4986: 'Calling AHL_CMP_PVT.Move_To_InRepair_Locator');
4987: END IF;
4988:
4999: x_msg_data => x_msg_data);
5000:
5001:
5002: IF (l_log_statement >= l_log_current_level) THEN
5003: fnd_log.string(l_log_statement,
5004: l_debug,
5005: 'After Calling AHL_VWP_PROJ_PROD_PVT.Move_To_InRepair_Locator.' ||
5006: 'Return Status = ' || x_return_status );
5007: END IF;
5029: p_count => x_msg_count,
5030: p_data => x_msg_data);
5031:
5032: IF (l_log_procedure >= l_log_current_level) THEN
5033: fnd_log.string(l_log_procedure, L_DEBUG || '.end', 'At the end of PL SQL procedure');
5034: END IF;
5035:
5036: EXCEPTION
5037: WHEN FND_API.G_EXC_ERROR THEN
5109: -- Standard Start of API savepoint
5110: SAVEPOINT remove_rts_sp;
5111:
5112: IF (l_log_procedure >= l_log_current_level) THEN
5113: FND_LOG.string(FND_LOG.level_procedure, L_DEBUG || '.begin','At the start of PLSQL procedure');
5114: END IF;
5115:
5116: -- Initialize message list if p_init_msg_list is set to TRUE.
5117: IF FND_API.to_boolean( p_init_msg_list ) THEN
5136: l_current_rts := l_task_rec.current_rts;
5137: END LOOP;
5138:
5139: IF (l_log_statement >= l_log_current_level) THEN
5140: FND_LOG.string(l_log_statement, L_DEBUG,
5141: 'Retrived values: task number:' || l_visit_task_number ||', task status:' || l_status_code || ', task type:' || l_task_type_code || ', Current Value of RTS flag before updating:' || l_current_rts);
5142: END IF;
5143:
5144: -- Check Task Type
5196: p_count => x_msg_count,
5197: p_data => x_msg_data);
5198:
5199: IF (l_log_procedure >= l_log_current_level) THEN
5200: fnd_log.string(l_log_procedure, L_DEBUG || '.end', 'At the end of PL SQL procedure');
5201: END IF;
5202:
5203: EXCEPTION
5204: WHEN FND_API.G_EXC_ERROR THEN
5286:
5287: BEGIN
5288:
5289: IF (l_log_procedure >= l_log_current_level) THEN
5290: FND_LOG.string(FND_LOG.level_procedure, L_DEBUG || '.begin','At the start of PLSQL procedure');
5291: END IF;
5292:
5293: -- Initialize message list if p_init_msg_list is set to TRUE.
5294: IF FND_API.to_boolean( p_init_msg_list ) THEN
5303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5304: END IF;
5305:
5306: IF (l_log_statement >= l_log_current_level) THEN
5307: FND_LOG.string(l_log_statement, L_DEBUG, 'p_module_type: ' || p_module_type);
5308: END IF;
5309:
5310: -- Visit P2P validation, use Visit ID
5311: IF(p_module_type = 'VST') THEN
5322: x_return_status := FND_API.G_RET_STS_ERROR;
5323: END IF;
5324:
5325: IF (l_log_statement >= l_log_current_level) THEN
5326: FND_LOG.string(l_log_statement, L_DEBUG, 'For Visit id: ' || p_visit_id || ' RTS violating instance number:' || l_instance_num);
5327: END IF;
5328: END LOOP;
5329:
5330: -- Stage or Task P2P, use task table
5355: ' HAVING COUNT(CSIS.instance_number) > 1 ';
5356:
5357:
5358: IF (l_log_statement >= l_log_current_level) THEN
5359: fnd_log.string(l_log_statement,L_DEBUG,'l_query_str is :' ||l_query_str);
5360: END IF;
5361:
5362: EXECUTE IMMEDIATE l_query_str BULK COLLECT INTO l_violating_instances;
5363:
5377: x_return_status := FND_API.G_RET_STS_ERROR;
5378: END IF;
5379:
5380: IF (l_log_statement >= l_log_current_level) THEN
5381: FND_LOG.string(l_log_statement, L_DEBUG, 'RTS violating instance number:' || l_instance_num);
5382: END IF;
5383:
5384: END LOOP;
5385:
5394: p_count => x_msg_count,
5395: p_data => x_msg_data);
5396:
5397: IF (l_log_procedure >= l_log_current_level) THEN
5398: fnd_log.string(l_log_procedure, L_DEBUG || '.end', 'At the end of PL SQL procedure');
5399: END IF;
5400:
5401: END Validate_Return_To_Supply;
5402:
5521: BEGIN
5522: -- Standard start of API savepoint
5523: SAVEPOINT Flag_Duplicate_Task;
5524: IF (l_log_procedure >= l_log_current_level) THEN
5525: FND_LOG.string(l_log_procedure, L_DEBUG_KEY || '.begin', 'At the start of the PLSQL procedure Flag_Duplicate_Task. p_task_rec.COUNT ->' || p_task_rec_tbl.COUNT);
5526: END IF;
5527: -- Initialize message list if p_init_msg_list is set to TRUE
5528: IF FND_API.To_Boolean(p_init_msg_list) THEN
5529: FND_MSG_PUB.Initialize;
5532: x_return_status := FND_API.G_RET_STS_SUCCESS;
5533: -- Standard call to check for call compatibility.
5534: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
5535: IF (l_log_statement >= l_log_current_level) THEN
5536: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR', 'l_api_version :' || l_api_version || 'p_api_version :' || p_api_version );
5537: END IF;
5538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;--G_EXC_ERROR
5539: END IF;
5540: --------------------Start of API Body-----------------------------------
5540: --------------------Start of API Body-----------------------------------
5541: FOR i IN p_task_rec_tbl.FIRST .. p_task_rec_tbl.LAST
5542: LOOP
5543: IF (l_log_statement >= l_log_current_level) THEN
5544: fnd_log.string(l_log_statement,L_DEBUG_KEY,'In Loop, Task Id :' || p_task_rec_tbl(i).visit_task_id );
5545: END IF;
5546: OPEN validate_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5547: FETCH validate_task_csr INTO l_dummy;
5548: IF validate_task_csr%NOTFOUND THEN
5630: IF Fnd_Api.To_Boolean ( p_commit ) THEN
5631: COMMIT WORK;
5632: END IF;
5633: IF (l_log_procedure >= l_log_current_level)THEN
5634: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end', 'At the end of PLSQL procedure Flag_Duplicate_Task, x_return_status=' || x_return_status);
5635: END IF;
5636:
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_ERROR THEN
5717: BEGIN
5718: -- Standard start of API savepoint
5719: SAVEPOINT Remove_Duplicate_Task_Flag;
5720: IF (l_log_procedure >= l_log_current_level) THEN
5721: FND_LOG.string(l_log_procedure, L_DEBUG_KEY || '.begin', 'At the start of the PLSQL procedure Remove_Duplicate_Task_Flag. p_task_rec.COUNT ->' || p_task_rec_tbl.COUNT);
5722: END IF;
5723: -- Initialize message list if p_init_msg_list is set to TRUE
5724: IF FND_API.To_Boolean(p_init_msg_list) THEN
5725: FND_MSG_PUB.Initialize;
5728: x_return_status := FND_API.G_RET_STS_SUCCESS;
5729: -- Standard call to check for call compatibility.
5730: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
5731: IF (l_log_statement >= l_log_current_level) THEN
5732: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR', 'l_api_version :' || l_api_version || 'p_api_version :' || p_api_version );
5733: END IF;
5734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;--G_EXC_ERROR
5735: END IF;
5736:
5737: --------------------Start of API Body-----------------------------------
5738: FOR i IN p_task_rec_tbl.FIRST .. p_task_rec_tbl.LAST
5739: LOOP
5740: IF (l_log_statement >= l_log_current_level) THEN
5741: fnd_log.string(l_log_statement,L_DEBUG_KEY,'In Loop, Task Id :' || p_task_rec_tbl(i).visit_task_id );
5742: END IF;
5743: OPEN validate_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5744: FETCH validate_task_csr INTO l_dummy;
5745: IF validate_task_csr%NOTFOUND THEN
5800: IF Fnd_Api.To_Boolean ( p_commit ) THEN
5801: COMMIT WORK;
5802: END IF;
5803: IF (l_log_procedure >= l_log_current_level)THEN
5804: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end', 'At the end of PLSQL procedure Remove_Duplicate_Task_Flag, x_return_status=' || x_return_status);
5805: END IF;
5806:
5807: EXCEPTION
5808: WHEN FND_API.G_EXC_ERROR THEN
5889:
5890: BEGIN
5891:
5892: IF (l_log_procedure >= l_log_current_level)THEN
5893: fnd_log.string
5894: (
5895: l_log_procedure,
5896: 'ahl.plsql.AHL_AVF_PRIM_VSTS_PVT.Cancel_Planning_tasks.begin',
5897: 'At the start of PLSQL procedure, ue ID : ' || p_ue_id
5922: IF(p_ue_id IS NULL OR p_ue_id = FND_API.G_MISS_NUM) THEN
5923: FND_MESSAGE.Set_Name('AHL','AHL_AVF_SNPSHT_INPUT_MISS'); --tch
5924: FND_MSG_PUB.ADD;
5925:
5926: IF (fnd_log.level_exception >= l_log_current_level)THEN
5927: fnd_log.string
5928: (
5929: fnd_log.level_exception,
5930: L_DEBUG,
5923: FND_MESSAGE.Set_Name('AHL','AHL_AVF_SNPSHT_INPUT_MISS'); --tch
5924: FND_MSG_PUB.ADD;
5925:
5926: IF (fnd_log.level_exception >= l_log_current_level)THEN
5927: fnd_log.string
5928: (
5929: fnd_log.level_exception,
5930: L_DEBUG,
5931: 'UE id is mandatory but found null in input '
5925:
5926: IF (fnd_log.level_exception >= l_log_current_level)THEN
5927: fnd_log.string
5928: (
5929: fnd_log.level_exception,
5930: L_DEBUG,
5931: 'UE id is mandatory but found null in input '
5932: );
5933: END IF;
5939: FETCH get_summary_task INTO l_summary_task_id, l_visit_id;
5940: CLOSE get_summary_task;
5941:
5942: IF (l_log_statement >= l_log_current_level) THEN
5943: fnd_log.string(l_log_statement,L_DEBUG,'l_summary_task_id :'||l_summary_task_id);
5944: END IF;
5945: IF l_summary_task_id IS NOT NULL THEN
5946:
5947: IF (l_log_statement >= l_log_current_level) THEN
5944: END IF;
5945: IF l_summary_task_id IS NOT NULL THEN
5946:
5947: IF (l_log_statement >= l_log_current_level) THEN
5948: fnd_log.string(l_log_statement,L_DEBUG,'Before call to Delete_Task');
5949: END IF;
5950:
5951: AHL_VWP_TASKS_PVT.Delete_Task (
5952: p_api_version => p_api_version,
5957: x_msg_count => l_msg_count,
5958: x_msg_data => l_msg_data );
5959:
5960: IF (l_log_statement >= l_log_current_level) THEN
5961: fnd_log.string(l_log_statement,L_DEBUG,'After call to Delete_Task: l_return_status:'||l_return_status||' l_msg_count:'||l_msg_count);
5962: END IF;
5963:
5964: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5965: x_msg_count := l_msg_count;
6005: p_data => x_msg_data
6006: );
6007:
6008: IF (l_log_procedure >= l_log_current_level)THEN
6009: fnd_log.string
6010: (
6011: l_log_procedure,
6012: 'ahl.plsql.AHL_VWP_PRIM_VSTS_PVT.Cancel_Planning_tasks.end',
6013: 'At the end of PLSQL procedure'