[Home] [Help]
219: OPEN get_workorder_rec(p_x_prd_workorder_rec.workorder_id);
220: FETCH get_workorder_rec INTO l_prd_workorder_rec;
221: IF get_workorder_rec%NOTFOUND THEN
222: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
223: FND_MSG_PUB.ADD;
224: CLOSE get_workorder_rec;
225: RETURN;
226: END IF;
227: CLOSE get_workorder_rec;
844: AND lookup_code=p_x_prd_workorder_rec.job_priority;
845:
846: IF l_ctr=0 THEN
847: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PRIORITY_INVALID');
848: FND_MSG_PUB.ADD;
849: END IF;
850: END IF;
851:
852: ELSIF p_x_prd_workorder_rec.dml_operation='U' THEN
862: FETCH get_department INTO p_x_prd_workorder_rec.department_id;
863:
864: IF get_department%NOTFOUND THEN
865: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_DEPT_INVALID');
866: FND_MSG_PUB.ADD;
867: END IF;
868: CLOSE get_department;
869: END IF;
870:
997: OPEN get_hold_reason_code_csr(p_x_prd_workorder_rec.HOLD_REASON);
998: FETCH get_hold_reason_code_csr INTO p_x_prd_workorder_rec.HOLD_REASON_CODE;
999: IF get_hold_reason_code_csr%NOTFOUND THEN
1000: FND_MESSAGE.SET_NAME('AHL','AHL_PP_REASON_INVALID');
1001: FND_MSG_PUB.ADD;
1002: END IF;
1003: CLOSE get_hold_reason_code_csr;
1004: END IF;
1005: END IF;
1209: CLOSE get_wo_status;
1210: IF l_wo_status_code IN ('22','7','12','4','5') THEN
1211: FND_MESSAGE.set_name('AHL','AHL_PRD_UPD_WO_STS');
1212: FND_MESSAGE.set_token('WO_STATUS', l_wo_status);
1213: FND_MSG_PUB.add;
1214: RAISE FND_API.G_EXC_ERROR;
1215: END IF; -- IF l_wo_status_code IN ('22','7','12','4','5') THEN
1216: END IF; -- IF is_wo_updated = TRUE THEN
1217: END IF; -- IF p_prd_workorder_rec.DML_OPERATION = 'U' THEN
1228: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CRT_WO_UNTLCKD');
1229: ELSE
1230: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UPD_WO_UNTLCKD');
1231: END IF;
1232: FND_MSG_PUB.ADD;
1233: RAISE FND_API.G_EXC_ERROR;
1234: END IF;
1235: -- rroy
1236: -- ACL Changes
1243:
1244: IF l_dummy_ctr=0 THEN
1245: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_EAM_PREFIX_NOTSETUP');
1246: FND_MESSAGE.SET_TOKEN('ORG',p_prd_workorder_rec.ORGANIZATION_ID,false);
1247: FND_MSG_PUB.ADD;
1248: RETURN;
1249: END IF;
1250:
1251: IF p_prd_workorder_rec.SCHEDULED_START_DATE IS NULL OR
1250:
1251: IF p_prd_workorder_rec.SCHEDULED_START_DATE IS NULL OR
1252: p_prd_workorder_rec.SCHEDULED_START_DATE=FND_API.G_MISS_DATE THEN
1253: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHED_ST_DT_NULL');
1254: FND_MSG_PUB.ADD;
1255: END IF;
1256:
1257: IF p_prd_workorder_rec.SCHEDULED_END_DATE IS NULL OR
1258: p_prd_workorder_rec.SCHEDULED_END_DATE=FND_API.G_MISS_DATE THEN
1256:
1257: IF p_prd_workorder_rec.SCHEDULED_END_DATE IS NULL OR
1258: p_prd_workorder_rec.SCHEDULED_END_DATE=FND_API.G_MISS_DATE THEN
1259: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHED_END_DT_NULL');
1260: FND_MSG_PUB.ADD;
1261: END IF;
1262:
1263: IF p_prd_workorder_rec.SCHEDULED_START_DATE IS NOT NULL AND
1264: p_prd_workorder_rec.SCHEDULED_START_DATE<>FND_API.G_MISS_DATE AND
1266: p_prd_workorder_rec.SCHEDULED_END_DATE<>FND_API.G_MISS_DATE THEN
1267:
1268: IF p_prd_workorder_rec.SCHEDULED_START_DATE > p_prd_workorder_rec.SCHEDULED_END_DATE THEN
1269: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHD_STDT_GT_SCHD_DATE');
1270: FND_MSG_PUB.ADD;
1271: END IF;
1272:
1273: /*Jun 3rd 2011: commented out validation as this is not required with PS integration
1274: IF p_prd_workorder_rec.VISIT_TASK_ID IS NOT NULL AND
1287: p_prd_workorder_rec.SCHEDULED_END_DATE > l_visit_end_date ) THEN
1288: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHD_DT_EXCEEDS_VISIT');
1289: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR( l_visit_start_date, 'DD-MON-YYYY HH24:MI' ),false);
1290: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR( l_visit_end_date, 'DD-MON-YYYY HH24:MI' ),false);
1291: FND_MSG_PUB.ADD;
1292: END IF;
1293: END IF;*/
1294:
1295: END IF;
1296:
1297: IF p_prd_workorder_rec.ORGANIZATION_ID IS NULL OR
1298: p_prd_workorder_rec.ORGANIZATION_ID=FND_API.G_MISS_NUM THEN
1299: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORGID_NULL');
1300: FND_MSG_PUB.ADD;
1301: ELSE
1302: OPEN validate_org(p_prd_workorder_rec.ORGANIZATION_ID);
1303: FETCH validate_org INTO l_org_rec;
1304: IF validate_org%NOTFOUND THEN
1302: OPEN validate_org(p_prd_workorder_rec.ORGANIZATION_ID);
1303: FETCH validate_org INTO l_org_rec;
1304: IF validate_org%NOTFOUND THEN
1305: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORG_ID_INVALID');
1306: FND_MSG_PUB.ADD;
1307: ELSIF validate_org%FOUND AND l_org_rec.eam_enabled_flag='N' THEN
1308: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORG_ID_not_eam_enabled');
1309: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1310: FND_MSG_PUB.ADD;
1306: FND_MSG_PUB.ADD;
1307: ELSIF validate_org%FOUND AND l_org_rec.eam_enabled_flag='N' THEN
1308: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORG_ID_not_eam_enabled');
1309: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1310: FND_MSG_PUB.ADD;
1311: END IF;
1312: CLOSE validate_org;
1313: END IF;
1314:
1314:
1315: IF p_prd_workorder_rec.DEPARTMENT_ID IS NULL OR
1316: p_prd_workorder_rec.DEPARTMENT_ID=FND_API.G_MISS_NUM THEN
1317: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_DEPT_ID_NULL');
1318: FND_MSG_PUB.ADD;
1319: ELSE
1320: OPEN validate_dept(p_prd_workorder_rec.Department_id, p_prd_workorder_rec.Organization_id);
1321: FETCH validate_dept INTO l_dummy_ctr;
1322: IF validate_dept%NOTFOUND THEN
1322: IF validate_dept%NOTFOUND THEN
1323: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_DEPTID_INVALID');
1324: FND_MESSAGE.SET_TOKEN('TASK_JOB',l_record_str,false);
1325: FND_MESSAGE.SET_TOKEN('ORG',p_prd_workorder_rec.Organization_id,false);
1326: FND_MSG_PUB.ADD;
1327: END IF;
1328: CLOSE validate_dept;
1329: END IF;
1330:
1331: IF p_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL OR
1332: p_prd_workorder_rec.ITEM_INSTANCE_ID=FND_API.G_MISS_NUM THEN
1333: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ITMINSTID_NULL');
1334: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1335: FND_MSG_PUB.ADD;
1336: ELSE
1337: OPEN validate_item_instance(p_prd_workorder_rec.inventory_item_id, p_prd_workorder_rec.item_instance_id);
1338: FETCH validate_item_instance INTO l_instance_rec;
1339: IF validate_item_instance%NOTFOUND THEN
1338: FETCH validate_item_instance INTO l_instance_rec;
1339: IF validate_item_instance%NOTFOUND THEN
1340: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ITMINSTID_INVALID');
1341: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1342: FND_MSG_PUB.ADD;
1343: END IF;
1344: CLOSE validate_item_instance;
1345: END IF;
1346:
1346:
1347: IF p_prd_workorder_rec.STATUS_CODE IS NULL OR
1348: p_prd_workorder_rec.STATUS_CODE=FND_API.G_MISS_CHAR THEN
1349: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_STATUS_CODE_INVALID');
1350: FND_MSG_PUB.ADD;
1351: ELSE
1352: OPEN get_lookup_type_code(p_prd_workorder_rec.STATUS_CODE,'AHL_JOB_STATUS');
1353: FETCH get_lookup_type_code INTO L_LOOKUP_CODE;
1354: IF get_lookup_type_code%NOTFOUND THEN
1352: OPEN get_lookup_type_code(p_prd_workorder_rec.STATUS_CODE,'AHL_JOB_STATUS');
1353: FETCH get_lookup_type_code INTO L_LOOKUP_CODE;
1354: IF get_lookup_type_code%NOTFOUND THEN
1355: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_STATUS_CODE_INVALID');
1356: FND_MSG_PUB.ADD;
1357: END IF;
1358: CLOSE get_lookup_type_code;
1359: END IF;
1360:
1365: (p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1366: p_prd_workorder_rec.actual_end_date IS NOT NULL) THEN
1367: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_START_DT_NULL');
1368: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1369: FND_MSG_PUB.ADD;
1370: END IF;
1371:
1372: IF p_prd_workorder_rec.actual_start_date IS NOT NULL AND
1373: p_prd_workorder_rec.actual_start_date<>FND_API.G_MISS_DATE AND
1374: p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1375: p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1376: p_prd_workorder_rec.actual_start_date > p_prd_workorder_rec.actual_end_date THEN
1377: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_ST_GT_SCHD_DATE');
1378: FND_MSG_PUB.ADD;
1379: END IF;
1380:
1381: IF p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1382: p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1381: IF p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1382: p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1383: TRUNC(p_prd_workorder_rec.actual_end_date) > TRUNC( SYSDATE ) THEN
1384: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_END_GT_SYSDATE');
1385: FND_MSG_PUB.ADD;
1386: END IF;
1387:
1388: OPEN c_get_op_actual_dates(p_prd_workorder_rec.workorder_id);
1389: FETCH c_get_op_actual_dates INTO l_op_min_act_start_date, l_op_max_act_end_date;
1393: p_prd_workorder_rec.actual_start_date <> FND_API.G_MISS_DATE AND
1394: l_op_min_act_start_date IS NOT NULL AND
1395: p_prd_workorder_rec.actual_start_date > l_op_min_act_start_date ) THEN
1396: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_ST_DT' );
1397: FND_MSG_PUB.add;
1398: END IF;
1399:
1400: IF ( p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1401: p_prd_workorder_rec.actual_end_date <> FND_API.G_MISS_DATE AND
1401: p_prd_workorder_rec.actual_end_date <> FND_API.G_MISS_DATE AND
1402: l_op_max_act_end_date IS NOT NULL AND
1403: p_prd_workorder_rec.actual_end_date < l_op_max_act_end_date ) THEN
1404: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_END_DT' );
1405: FND_MSG_PUB.add;
1406: END IF;
1407: IF p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_RELEASED AND
1408: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_UNRELEASED AND
1409: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_COMPLETE AND
1416: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_DEFERRAL_PENDING AND
1417: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_DELETED AND
1418: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_CANCELLED THEN
1419: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_STATUS_NOT_VALIDINMOD');
1420: FND_MSG_PUB.ADD;
1421: END IF;
1422:
1423: IF p_prd_workorder_rec.WORKORDER_ID IS NULL OR
1424: p_prd_workorder_rec.WORKORDER_ID=FND_API.G_MISS_NUM THEN
1422:
1423: IF p_prd_workorder_rec.WORKORDER_ID IS NULL OR
1424: p_prd_workorder_rec.WORKORDER_ID=FND_API.G_MISS_NUM THEN
1425: FND_MESSAGE.SET_NAME('AHL','AHL_WORKORDER_ID_NULL');
1426: FND_MSG_PUB.ADD;
1427: END IF;
1428:
1429: IF p_prd_workorder_rec.OBJECT_VERSION_NUMBER IS NULL OR
1430: p_prd_workorder_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM THEN
1428:
1429: IF p_prd_workorder_rec.OBJECT_VERSION_NUMBER IS NULL OR
1430: p_prd_workorder_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM THEN
1431: FND_MESSAGE.SET_NAME('AHL','OBJ_CANNOT_B_NULL');
1432: FND_MSG_PUB.ADD;
1433: END IF;
1434: -- apattark Commented to fix fp bug 8945432 . Validation not required for scheduled
1435: -- start date. Defer validation to EAM/WIP apis.
1436: /*
1442: TRUNC(period_start_date) AND TRUNC(NVL(schedule_CLOSE_date,SYSDATE+1));
1443:
1444: IF l_dummy_ctr=0 THEN
1445: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHEDSDTACCTPERIODINV');
1446: FND_MSG_PUB.ADD;
1447: END IF;
1448: */
1449: --JKJain, Bug 12593041
1450: IF (p_prd_workorder_rec.CLASS_CODE IS NOT NULL) THEN
1452: FETCH validate_acc_class_code INTO l_dummy;
1453: IF validate_acc_class_code%NOTFOUND THEN
1454: FND_MESSAGE.SET_NAME('AHL','AHL_RM_INVALID_ACC_CLASS');
1455: FND_MESSAGE.SET_TOKEN('FIELD',p_prd_workorder_rec.CLASS_CODE,false);
1456: FND_MSG_PUB.ADD;
1457: END IF;
1458: CLOSE validate_acc_class_code;
1459: END IF;
1460:
1467: IF validate_project%NOTFOUND THEN
1468: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PROJECT_INVALID');
1469: FND_MESSAGE.SET_TOKEN('ORGID',l_record_str,false);
1470: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1471: FND_MSG_PUB.ADD;
1472: ELSIF p_prd_workorder_rec.Project_id IS not NULL AND
1473: p_prd_workorder_rec.Project_id<>FND_API.G_MISS_NUM THEN
1474:
1475: -- replace MTL_PROJECT_V with PJM_PROJECTS_ORG_OU_SECURE_V for R12
1485:
1486: IF l_dummy_ctr=0 THEN
1487: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_project_id_invalid');
1488: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1489: FND_MSG_PUB.ADD;
1490: ELSIF l_dummy_ctr>0 THEN
1491: IF p_prd_workorder_rec.Project_task_id IS not NULL AND
1492: p_prd_workorder_rec.Project_task_id<>FND_API.G_MISS_NUM THEN
1493: SELECT COUNT(*) INTO l_dummy_ctr
1498:
1499: IF l_dummy_ctr=0 THEN
1500: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PROJECT_TASKID_INVALID');
1501: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1502: FND_MSG_PUB.ADD;
1503: END IF;
1504: END IF;
1505: END IF;
1506: END IF;
1522: p_prd_workorder_rec.Visit_task_id=FND_API.G_MISS_NUM ) AND
1523: p_prd_workorder_rec.Master_workorder_flag = 'N' ) THEN
1524: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITASKID_NULL');
1525: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1526: FND_MSG_PUB.ADD;
1527: END IF;
1528:
1529: IF ( p_prd_workorder_rec.Visit_task_id IS NOT NULL AND
1530: p_prd_workorder_rec.Visit_task_id<>FND_API.G_MISS_NUM ) THEN
1537:
1538: IF l_dummy_ctr >0 THEN
1539: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVAL_CREATE_WORKORDER');
1540: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1541: FND_MSG_PUB.ADD;
1542: RETURN;
1543: END IF;
1544:
1545: SELECT COUNT(*)
1548: WHERE visit_task_id=p_prd_workorder_rec.visit_task_id;
1549:
1550: IF l_dummy_ctr=0 THEN
1551: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_visit_task_invalid');
1552: FND_MSG_PUB.ADD;
1553: END IF;
1554:
1555: END IF;
1556:
1560: FETCH validate_subinventory INTO l_subinv_rec;
1561: IF validate_subinventory%FOUND AND
1562: NVL(l_subinv_rec.eam_enabled_flag,'x')='N' THEN
1563: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1564: FND_MSG_PUB.ADD;
1565: ELSIF validate_subinventory%NOTFOUND THEN
1566: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1567: FND_MSG_PUB.ADD;
1568: END IF;
1563: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1564: FND_MSG_PUB.ADD;
1565: ELSIF validate_subinventory%NOTFOUND THEN
1566: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1567: FND_MSG_PUB.ADD;
1568: END IF;
1569: CLOSE validate_subinventory;
1570: END IF;
1571:
1576: FROM MTL_ITEM_LOCATIONS
1577: WHERE inventory_location_id=p_prd_workorder_rec.completion_locator_id;
1578: IF l_dummy_ctr =0 THEN
1579: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1580: FND_MSG_PUB.ADD;
1581: END IF;
1582: END IF;
1583:
1584: IF p_prd_workorder_rec.Firm_planned_flag IS NULL OR
1583:
1584: IF p_prd_workorder_rec.Firm_planned_flag IS NULL OR
1585: p_prd_workorder_rec.Firm_planned_flag=FND_API.G_MISS_NUM THEN
1586: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_FIRM_PLANNED_FLAG_NULL');
1587: FND_MSG_PUB.ADD;
1588: ELSIF p_prd_workorder_rec.Firm_planned_flag <1 AND
1589: p_prd_workorder_rec.Firm_planned_flag >2 THEN
1590: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_FIRM_PLANNED_FLAG_INV');
1591: FND_MSG_PUB.ADD;
1587: FND_MSG_PUB.ADD;
1588: ELSIF p_prd_workorder_rec.Firm_planned_flag <1 AND
1589: p_prd_workorder_rec.Firm_planned_flag >2 THEN
1590: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_FIRM_PLANNED_FLAG_INV');
1591: FND_MSG_PUB.ADD;
1592: END IF;
1593:
1594: IF p_prd_workorder_rec.mr_route_id IS not NULL OR
1595: p_prd_workorder_rec.mr_route_id<>FND_API.G_MISS_NUM THEN
1599: WHERE mr_route_id=p_prd_workorder_rec.mr_route_id;
1600:
1601: IF NVL(l_dummy_ctr,0)>1 OR NVL(l_dummy_ctr,0)=0 THEN
1602: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_MR_ROUTE_ID_INVLD');
1603: FND_MSG_PUB.ADD;
1604: END IF;
1605: END IF;
1606:
1607: IF p_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL OR
1606:
1607: IF p_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL OR
1608: p_prd_workorder_rec.ITEM_INSTANCE_ID=FND_API.G_MISS_NUM THEN
1609: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INSTANCE_ID_NULL');
1610: FND_MSG_PUB.ADD;
1611: ELSE
1612: SELECT COUNT(a.instance_id)
1613: INTO l_dummy_ctr
1614: FROM CSI_ITEM_INSTANCES a,
1619: AND a.inventory_item_id=b.inventory_item_id;
1620:
1621: IF NVL(l_dummy_ctr,0)=0 THEN
1622: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVITEM_NOTACTIVE');
1623: FND_MSG_PUB.ADD;
1624: END IF;
1625: END IF;
1626:
1627: IF p_prd_workorder_rec.INVENTORY_ITEM_ID IS NULL OR
1626:
1627: IF p_prd_workorder_rec.INVENTORY_ITEM_ID IS NULL OR
1628: p_prd_workorder_rec.INVENTORY_ITEM_ID=FND_API.G_MISS_NUM THEN
1629: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INV_ITEM_ID_NULL');
1630: FND_MSG_PUB.ADD;
1631: END IF;
1632:
1633: END IF;
1634:
1638: OPEN get_lookup_type_code(p_prd_workorder_rec.hold_reason_code,'AHL_PRD_WO_HOLD_REASON');
1639: FETCH get_lookup_type_code INTO L_LOOKUP_CODE;
1640: IF get_lookup_type_code%NOTFOUND THEN
1641: FND_MESSAGE.SET_NAME('AHL','AHL_PP_REASON_INVALID');
1642: FND_MSG_PUB.ADD;
1643: END IF;
1644: CLOSE get_lookup_type_code;
1645: END IF;
1646:
1646:
1647: IF (p_prd_workorder_rec.status_code = '6' OR p_prd_workorder_rec.status_code = '19' )
1648: AND p_prd_workorder_rec.hold_reason_code IS NULL THEN
1649: FND_MESSAGE.SET_NAME('AHL','AHL_PP_REASON_NULL');
1650: FND_MSG_PUB.ADD;
1651: END IF;
1652:
1653: END validate_workorder;
1654:
1714: IF (get_res_dept_csr%FOUND) THEN
1715: -- raise error
1716: FND_MESSAGE.set_name('AHL','AHL_DUPLICATE_DEPT_FOUND');
1717: FND_MESSAGE.set_token('DESC',p_aso_resc_name);
1718: FND_MSG_PUB.add;
1719: x_return_status := FND_API.G_RET_STS_ERROR;
1720: END IF;
1721: */
1722:
1731: IF (get_res_dept_csr%FOUND) THEN
1732: -- raise error
1733: FND_MESSAGE.set_name('AHL','AHL_DUPLICATE_DEPT_FOUND');
1734: FND_MESSAGE.set_token('DESC',p_aso_resc_name);
1735: FND_MSG_PUB.add;
1736: x_return_status := FND_API.G_RET_STS_ERROR;
1737: END IF;
1738: ELSE
1739: x_department_id := null;
2772: OPEN check_wo_status_cur (p_workorder_tbl(i).workorder_id);
2773: FETCH check_wo_status_cur INTO l_dummy;
2774: IF ( check_wo_status_cur%NOTFOUND ) THEN
2775: FND_MESSAGE.set_name('AHL', 'AHL_PP_DEL_RESREQ_INV_WO_STA');
2776: FND_MSG_PUB.add;
2777: END IF;
2778: CLOSE check_wo_status_cur;
2779:
2780: -- Delete the BOM resources obtained above
3848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3849: END IF;
3850:
3851: IF FND_API.to_boolean(p_init_msg_list) THEN
3852: FND_MSG_PUB.initialize;
3853: END IF;
3854:
3855: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3856:
3882: p_prd_workorder_rec =>p_x_prd_workorder_rec,
3883: p_wip_load_flag =>p_wip_load_flag
3884: );
3885:
3886: l_msg_count := FND_MSG_PUB.count_msg;
3887: IF l_msg_count > 0 THEN
3888: x_msg_count := l_msg_count;
3889: RAISE FND_API.G_EXC_ERROR;
3890: END IF;
4145: x_msg_data => l_msg_data,
4146: p_workorder_id => p_x_prd_workorder_rec.WORKORDER_ID,
4147: p_new_inst_rtng => l_instance_rtng
4148: );
4149: l_msg_count := FND_MSG_PUB.count_msg;
4150: IF l_msg_count > 0 THEN
4151: RAISE FND_API.G_EXC_ERROR;
4152: END IF;
4153: END IF;
4341: EXCEPTION
4342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4343: ROLLBACK TO create_job_PVT;
4344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4345: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4346: p_count => x_msg_count,
4347: p_data => x_msg_data);
4348: WHEN FND_API.G_EXC_ERROR THEN
4349: ROLLBACK TO create_job_PVT;
4347: p_data => x_msg_data);
4348: WHEN FND_API.G_EXC_ERROR THEN
4349: ROLLBACK TO create_job_PVT;
4350: x_return_status := FND_API.G_RET_STS_ERROR;
4351: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4352: p_count => x_msg_count,
4353: p_data => x_msg_data);
4354:
4355: WHEN OTHERS THEN
4354:
4355: WHEN OTHERS THEN
4356: ROLLBACK TO create_job_PVT;
4357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4358: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4359: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
4360: p_procedure_name =>l_api_name,
4361: p_error_text => SUBSTRB(SQLERRM,1,240));
4362:
4355: WHEN OTHERS THEN
4356: ROLLBACK TO create_job_PVT;
4357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4358: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4359: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
4360: p_procedure_name =>l_api_name,
4361: p_error_text => SUBSTRB(SQLERRM,1,240));
4362:
4363: END IF;
4360: p_procedure_name =>l_api_name,
4361: p_error_text => SUBSTRB(SQLERRM,1,240));
4362:
4363: END IF;
4364: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4365: p_count => x_msg_count,
4366: p_data => x_msg_data);
4367:
4368: END create_job;
4785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4786: END IF;
4787:
4788: IF FND_API.to_boolean(p_init_msg_list) THEN
4789: FND_MSG_PUB.initialize;
4790: END IF;
4791:
4792: x_return_status:=FND_API.G_RET_STS_SUCCESS;
4793:
4804: THEN
4805: G_CALLED_FROM := 'API';
4806: END IF;*/
4807: G_CALLED_FROM := p_module_type;
4808: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp1 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4809: -- User Hooks
4810: IF (JTF_USR_HKS.Ok_to_execute('AHL_PRD_WORKORDER_PVT', 'UPDATE_JOB', 'B', 'C' )) THEN
4811: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp2 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4812: ahl_prd_workorder_CUHK.update_job_pre(
4807: G_CALLED_FROM := p_module_type;
4808: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp1 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4809: -- User Hooks
4810: IF (JTF_USR_HKS.Ok_to_execute('AHL_PRD_WORKORDER_PVT', 'UPDATE_JOB', 'B', 'C' )) THEN
4811: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp2 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4812: ahl_prd_workorder_CUHK.update_job_pre(
4813: p_prd_workorder_rec => p_x_prd_workorder_rec,
4814: p_prd_workoper_tbl => p_x_prd_workoper_tbl,
4815: x_msg_count => l_msg_count,
4820: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4822: END IF;
4823: END IF;
4824: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp3 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4825: --IF FND_API.to_boolean(p_default) THEN
4826: default_missing_attributes
4827: (
4828: p_x_prd_workorder_rec
4828: p_x_prd_workorder_rec
4829: );
4830: --END IF;
4831:
4832: l_msg_count := FND_MSG_PUB.count_msg;
4833: IF l_msg_count > 0 THEN
4834: x_msg_count := l_msg_count;
4835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4836: RAISE FND_API.G_EXC_ERROR;
4847: p_x_prd_workorder_rec =>p_x_prd_workorder_rec
4848: );
4849: END IF;
4850:
4851: l_msg_count := FND_MSG_PUB.count_msg;
4852: IF l_msg_count > 0 THEN
4853: x_msg_count := l_msg_count;
4854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4855: RAISE FND_API.G_EXC_ERROR;
4903: -- Bug # 6680137 -- end
4904: IF l_wo_status_code IN ('22','7','12','4','5') THEN
4905: FND_MESSAGE.set_name('AHL','AHL_PRD_UPD_WO_STS');
4906: FND_MESSAGE.set_token('WO_STATUS', l_wo_status);
4907: FND_MSG_PUB.add;
4908: RAISE FND_API.G_EXC_ERROR;
4909: END IF;
4910: END IF;
4911:
4911:
4912:
4913: END IF;
4914:
4915: l_msg_count := FND_MSG_PUB.count_msg;
4916: IF l_msg_count > 0 THEN
4917: x_msg_count := l_msg_count;
4918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4919: RAISE FND_API.G_EXC_ERROR;
4940: -- Bug # 6680137 -- end
4941: FND_MESSAGE.set_name('AHL','AHL_PRD_MAT_NOT_RETURN');
4942: FND_MESSAGE.set_token('WO_STATUS', l_status_meaning);
4943: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
4944: FND_MSG_PUB.add;
4945: RAISE FND_API.G_EXC_ERROR;
4946: END IF;
4947: CLOSE chk_inst_in_job;
4948:
4961: CLOSE get_wo_status;
4962:
4963: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_TECH_LOGGED_IN');
4964: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
4965: FND_MSG_PUB.add;
4966:
4967: ELSE
4968: OPEN get_wo_status(p_x_prd_workorder_rec.workorder_id);
4969: FETCH get_wo_status INTO l_wo_status_code, l_workorder_name, l_wo_status;
4970: CLOSE get_wo_status;
4971:
4972: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PENDING_TXNS');
4973: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
4974: FND_MSG_PUB.add;
4975: END IF;
4976: CLOSE c_get_login_recs;
4977:
4978: RAISE FND_API.G_EXC_ERROR;
5129: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' Workorder AOG status can not be updated to NO');
5130: END IF;
5131:
5132: FND_MESSAGE.SET_NAME('AHL','AHL_WO_AOG_UPD_NOT_ALD');
5133: FND_MSG_PUB.ADD;
5134: RAISE FND_API.G_EXC_ERROR;
5135:
5136: END IF;
5137:
5181:
5182:
5183: IF SQL%NOTFOUND THEN
5184: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
5185: FND_MSG_PUB.ADD;
5186: RAISE FND_API.G_EXC_ERROR;
5187: END IF;
5188:
5189:
5444: IF l_prim_quantity IS NULL THEN
5445: FND_MESSAGE.Set_Name( 'AHL','AHL_LTP_UOM_CONV_NOT_EXIST' );
5446: FND_MESSAGE.Set_Token('FUOM', l_material_tbl(k).uom_code);
5447: FND_MESSAGE.Set_Token('TUOM', l_prim_uom_code);
5448: FND_MSG_PUB.add;
5449: RAISE FND_API.G_EXC_ERROR;
5450: ELSE
5451: l_material_tbl(k).requested_quantity := l_prim_quantity;
5452: END IF;
6162:
6163: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHD_DT_EXCEEDS_VISIT');
6164: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR( l_visit_start_date, 'DD-MON-YYYY HH24:MI' ),false);
6165: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR( l_visit_end_date, 'DD-MON-YYYY HH24:MI' ),false);
6166: FND_MSG_PUB.ADD;
6167: RAISE FND_API.G_EXC_ERROR;
6168: END IF; */
6169:
6170: END IF;
6234: EXCEPTION
6235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6236: ROLLBACK TO update_job_PVT;
6237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6238: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6239: p_count => x_msg_count,
6240: p_data => x_msg_data);
6241: WHEN FND_API.G_EXC_ERROR THEN
6242: ROLLBACK TO update_job_PVT;
6240: p_data => x_msg_data);
6241: WHEN FND_API.G_EXC_ERROR THEN
6242: ROLLBACK TO update_job_PVT;
6243: x_return_status := FND_API.G_RET_STS_ERROR;
6244: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6245: p_count => x_msg_count,
6246: p_data => x_msg_data);
6247:
6248: WHEN OTHERS THEN
6247:
6248: WHEN OTHERS THEN
6249: ROLLBACK TO update_job_PVT;
6250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6251: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6252: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
6253: p_procedure_name =>l_api_name,
6254: p_error_text =>SUBSTRB(SQLERRM,1,240));
6255: END IF;
6248: WHEN OTHERS THEN
6249: ROLLBACK TO update_job_PVT;
6250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6251: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6252: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
6253: p_procedure_name =>l_api_name,
6254: p_error_text =>SUBSTRB(SQLERRM,1,240));
6255: END IF;
6256:
6253: p_procedure_name =>l_api_name,
6254: p_error_text =>SUBSTRB(SQLERRM,1,240));
6255: END IF;
6256:
6257: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6258: p_count => x_msg_count,
6259: p_data => x_msg_data);
6260: END update_job;
6261:
6312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6313: END IF;
6314:
6315: IF FND_API.to_boolean(p_init_msg_list) THEN
6316: FND_MSG_PUB.initialize;
6317: END IF;
6318:
6319: x_return_status:=FND_API.G_RET_STS_SUCCESS;
6320:
6326:
6327: IF ( p_x_prd_workorder_tbl(i).batch_id IS NULL OR
6328: p_x_prd_workorder_tbl(i).batch_id = FND_API.G_MISS_NUM ) THEN
6329: FND_MESSAGE.set_name('AHL','AHL_PRD_BATCH_ID_NULL');
6330: FND_MSG_PUB.add;
6331: RAISE FND_API.G_EXC_ERROR;
6332: END IF;
6333:
6334: IF ( p_x_prd_workorder_tbl(i).header_id IS NULL OR
6333:
6334: IF ( p_x_prd_workorder_tbl(i).header_id IS NULL OR
6335: p_x_prd_workorder_tbl(i).header_id = FND_API.G_MISS_NUM ) THEN
6336: FND_MESSAGE.set_name('AHL','AHL_PRD_HEADER_ID_NULL');
6337: FND_MSG_PUB.add;
6338: RAISE FND_API.G_EXC_ERROR;
6339: END IF;
6340:
6341: IF ( G_DEBUG = 'Y' ) THEN
6360: -- should be pushed to prod without errors
6361: /*IF ( l_wo_rel_rec_found = FALSE ) THEN
6362: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_REL_NOT_FOUND');
6363: FND_MESSAGE.set_token('RECORD', p_x_prd_workorder_tbl(i).header_id);
6364: FND_MSG_PUB.add;
6365: RAISE FND_API.G_EXC_ERROR;
6366: ELSE
6367: l_wo_rel_rec_found := FALSE;
6368: END IF;
6783: EXCEPTION
6784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6785: ROLLBACK TO process_jobs_PVT;
6786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6787: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6788: p_count => x_msg_count,
6789: p_data => x_msg_data);
6790: WHEN FND_API.G_EXC_ERROR THEN
6791: ROLLBACK TO process_jobs_PVT;
6789: p_data => x_msg_data);
6790: WHEN FND_API.G_EXC_ERROR THEN
6791: ROLLBACK TO process_jobs_PVT;
6792: x_return_status := FND_API.G_RET_STS_ERROR;
6793: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6794: p_count => x_msg_count,
6795: p_data => x_msg_data);
6796:
6797: WHEN OTHERS THEN
6796:
6797: WHEN OTHERS THEN
6798: ROLLBACK TO process_jobs_PVT;
6799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6801: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
6802: p_procedure_name =>l_api_name,
6803: p_error_text => SUBSTRB(SQLERRM,1,240));
6804:
6797: WHEN OTHERS THEN
6798: ROLLBACK TO process_jobs_PVT;
6799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6801: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
6802: p_procedure_name =>l_api_name,
6803: p_error_text => SUBSTRB(SQLERRM,1,240));
6804:
6805: END IF;
6802: p_procedure_name =>l_api_name,
6803: p_error_text => SUBSTRB(SQLERRM,1,240));
6804:
6805: END IF;
6806: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6807: p_count => x_msg_count,
6808: p_data => x_msg_data);
6809:
6810: END process_jobs;
6946: END IF;
6947:
6948: -- Initialize message list if p_init_msg_list is set to TRUE
6949: IF FND_API.to_boolean( p_init_msg_list ) THEN
6950: FND_MSG_PUB.initialize;
6951: END IF;
6952:
6953: -- Initialize Procedure return status to success
6954: x_return_status := FND_API.G_RET_STS_SUCCESS;
7152:
7153: -- This error is thrown just for Developers, otherwise this case should never occur.
7154: IF get_stg_workorder_csr%NOTFOUND THEN
7155: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_NOT_FOUND');
7156: FND_MSG_PUB.add;
7157: CLOSE get_stg_workorder_csr;
7158: RAISE FND_API.G_EXC_ERROR;
7159: END IF;
7160:
7324: EXCEPTION
7325: WHEN FND_API.G_EXC_ERROR THEN
7326: ROLLBACK TO process_stage_jobs_pvt;
7327: x_return_status := FND_API.G_RET_STS_ERROR;
7328: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7329: p_count => x_msg_count,
7330: p_data => x_msg_data );
7331: IF ( G_DEBUG = 'Y' ) THEN
7332: AHL_DEBUG_PUB.debug( l_full_name || ' - Expected Exception: ' || x_msg_data );
7335:
7336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7337: ROLLBACK TO process_stage_jobs_pvt;
7338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7339: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7340: p_count => x_msg_count,
7341: p_data => x_msg_data );
7342: IF ( G_DEBUG = 'Y' ) THEN
7343: AHL_DEBUG_PUB.debug( l_full_name || ' - Unexpected Exception: ' || x_msg_data );
7347: WHEN OTHERS THEN
7348: ROLLBACK TO process_stage_jobs_pvt;
7349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7350:
7351: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
7352: FND_MSG_PUB.add_exc_msg( p_pkg_name => G_PKG_NAME,
7353: p_procedure_name => l_api_name,
7354: p_error_text => SUBSTRB(SQLERRM, 1, 240) );
7355: END IF;
7348: ROLLBACK TO process_stage_jobs_pvt;
7349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7350:
7351: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
7352: FND_MSG_PUB.add_exc_msg( p_pkg_name => G_PKG_NAME,
7353: p_procedure_name => l_api_name,
7354: p_error_text => SUBSTRB(SQLERRM, 1, 240) );
7355: END IF;
7356: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7352: FND_MSG_PUB.add_exc_msg( p_pkg_name => G_PKG_NAME,
7353: p_procedure_name => l_api_name,
7354: p_error_text => SUBSTRB(SQLERRM, 1, 240) );
7355: END IF;
7356: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7357: p_count => x_msg_count,
7358: p_data => x_msg_data );
7359: IF ( G_DEBUG = 'Y' ) THEN
7360: AHL_DEBUG_PUB.debug( l_full_name || ' - Other Exception: ' || x_msg_data );
7497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7498: END IF;
7499:
7500: IF FND_API.to_boolean(p_init_msg_list) THEN
7501: FND_MSG_PUB.initialize;
7502: END IF;
7503:
7504: x_return_status:=FND_API.G_RET_STS_SUCCESS;
7505:
7514: ( p_visit_id IS NULL OR
7515: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
7516: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
7517: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
7518: FND_MSG_PUB.add;
7519: RAISE FND_API.G_EXC_ERROR;
7520: END IF;
7521:
7522: -- Determine the type of API call
7544: l_wo_name;
7545:
7546: IF ( get_visit_mwo%NOTFOUND ) THEN
7547: FND_MESSAGE.set_name('AHL','AHL_PRD_VISIT_MWO_NOT_FOUND');
7548: FND_MSG_PUB.add;
7549: CLOSE get_visit_mwo;
7550: RAISE FND_API.G_EXC_ERROR;
7551: END IF;
7552:
7565:
7566: IF l_return_status = FND_API.G_TRUE THEN
7567: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
7568: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
7569: FND_MSG_PUB.ADD;
7570: RAISE FND_API.G_EXC_ERROR;
7571: END IF;
7572:
7573: -- rroy
7604: ELSE
7605: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
7606: END IF;
7607: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
7608: FND_MSG_PUB.ADD;
7609: RAISE FND_API.G_EXC_ERROR;
7610: END IF;
7611: -- rroy
7612: -- ACL Changes
7637: l_master_wo_flag;
7638:
7639: IF ( get_ue_mwo%NOTFOUND ) THEN
7640: FND_MESSAGE.set_name('AHL','AHL_PRD_MR_MWO_NOT_FOUND');
7641: FND_MSG_PUB.add;
7642: CLOSE get_ue_mwo;
7643: RAISE FND_API.G_EXC_ERROR;
7644: END IF;
7645:
7668: ELSE
7669: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
7670: END IF;
7671: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
7672: FND_MSG_PUB.ADD;
7673: RAISE FND_API.G_EXC_ERROR;
7674: END IF;
7675: -- rroy
7676: -- ACL Changes
7704: ELSE
7705: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
7706: END IF;
7707: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
7708: FND_MSG_PUB.ADD;
7709: RAISE FND_API.G_EXC_ERROR;
7710: END IF;
7711: -- rroy
7712: -- ACL Changes
7741: ELSE
7742: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
7743: END IF;
7744: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
7745: FND_MSG_PUB.ADD;
7746: RAISE FND_API.G_EXC_ERROR;
7747: END IF;
7748: -- rroy
7749: -- ACL Changes
7773: l_wo_name;
7774:
7775: IF ( get_wo%NOTFOUND ) THEN
7776: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_NOT_FOUND');
7777: FND_MSG_PUB.add;
7778: CLOSE get_wo;
7779: RAISE FND_API.G_EXC_ERROR;
7780: END IF;
7781:
7803: ELSE
7804: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_RLS_UNTLCKD');
7805: END IF;
7806: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
7807: FND_MSG_PUB.ADD;
7808: RAISE FND_API.G_EXC_ERROR;
7809: END IF;
7810: -- rroy
7811: -- ACL Changes
7833: p_item_instance_id => NULL);
7834: IF l_return_status = FND_API.G_TRUE THEN
7835: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
7836: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
7837: FND_MSG_PUB.ADD;
7838: RAISE FND_API.G_EXC_ERROR;
7839: END IF;
7840: -- rroy
7841: -- ACL Changes
7872: RAISE FND_API.G_EXC_ERROR;
7873: END IF;
7874: ELSE
7875: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISIT_RELEASED');
7876: FND_MSG_PUB.ADD;
7877: RAISE FND_API.G_EXC_ERROR;
7878: END IF;
7879: IF FND_API.to_boolean(p_commit) THEN
7880: COMMIT;
7887: EXCEPTION
7888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7889: ROLLBACK TO release_visit_jobs_PVT;
7890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7891: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7892: p_count => x_msg_count,
7893: p_data => x_msg_data);
7894: WHEN FND_API.G_EXC_ERROR THEN
7895: ROLLBACK TO release_visit_jobs_PVT;
7893: p_data => x_msg_data);
7894: WHEN FND_API.G_EXC_ERROR THEN
7895: ROLLBACK TO release_visit_jobs_PVT;
7896: x_return_status := FND_API.G_RET_STS_ERROR;
7897: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7898: p_count => x_msg_count,
7899: p_data => x_msg_data);
7900:
7901: WHEN OTHERS THEN
7900:
7901: WHEN OTHERS THEN
7902: ROLLBACK TO release_visit_jobs_PVT;
7903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7904: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7905: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
7906: p_procedure_name =>l_api_name,
7907: p_error_text => SUBSTRB(SQLERRM,1,240));
7908:
7901: WHEN OTHERS THEN
7902: ROLLBACK TO release_visit_jobs_PVT;
7903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7904: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7905: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
7906: p_procedure_name =>l_api_name,
7907: p_error_text => SUBSTRB(SQLERRM,1,240));
7908:
7909: END IF;
7906: p_procedure_name =>l_api_name,
7907: p_error_text => SUBSTRB(SQLERRM,1,240));
7908:
7909: END IF;
7910: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7911: p_count => x_msg_count,
7912: p_data => x_msg_data);
7913: END release_visit_jobs;
7914:
8043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8044: END IF;
8045:
8046: IF FND_API.to_boolean(p_init_msg_list) THEN
8047: FND_MSG_PUB.initialize;
8048: END IF;
8049:
8050: x_return_status:=FND_API.G_RET_STS_SUCCESS;
8051:
8061: ( p_visit_id IS NULL OR
8062: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
8063: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
8064: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
8065: FND_MSG_PUB.add;
8066: RAISE FND_API.G_EXC_ERROR;
8067: END IF;
8068:
8069: -- Determine the type of API call
8086: FOR dep_csr IN get_visit_dependencies( p_visit_id, visit_csr.wip_entity_id ) LOOP
8087: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
8088: FND_MESSAGE.set_token('WO', visit_csr.workorder_name);
8089: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
8090: FND_MSG_PUB.add;
8091: END LOOP;
8092:
8093: END LOOP;
8094:
8140: ELSE
8141: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
8142: FND_MESSAGE.set_token('WO', l_workorder_name);
8143: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
8144: FND_MSG_PUB.add;
8145: END IF;
8146: END LOOP;
8147: */
8148: -- Removing the below check
8173: ELSE
8174: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
8175: FND_MESSAGE.set_token('WO', l_child_wo_tbl(i).workorder_name);
8176: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
8177: FND_MSG_PUB.add;
8178: END IF;
8179: END LOOP;
8180: END LOOP;
8181:
8207: FOR dep_csr IN get_wo_dependencies( l_wip_entity_id ) LOOP
8208: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
8209: FND_MESSAGE.set_token('WO', l_workorder_name);
8210: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
8211: FND_MSG_PUB.add;
8212: END LOOP;
8213: */
8214: END IF;
8215:
8212: END LOOP;
8213: */
8214: END IF;
8215:
8216: x_msg_count := FND_MSG_PUB.count_msg;
8217: IF ( x_msg_count > 0 ) THEN
8218: RAISE FND_API.G_EXC_ERROR;
8219: END IF;
8220:
8221: EXCEPTION
8222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8223: ROLLBACK TO validate_dependencies_PVT;
8224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8225: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
8226: p_count => x_msg_count,
8227: p_data => x_msg_data);
8228: WHEN FND_API.G_EXC_ERROR THEN
8229: ROLLBACK TO validate_dependencies_PVT;
8227: p_data => x_msg_data);
8228: WHEN FND_API.G_EXC_ERROR THEN
8229: ROLLBACK TO validate_dependencies_PVT;
8230: x_return_status := FND_API.G_RET_STS_ERROR;
8231: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
8232: p_count => x_msg_count,
8233: p_data => x_msg_data);
8234:
8235: WHEN OTHERS THEN
8234:
8235: WHEN OTHERS THEN
8236: ROLLBACK TO validate_dependencies_PVT;
8237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8239: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
8240: p_procedure_name =>l_api_name,
8241: p_error_text => SUBSTRB(SQLERRM,1,240));
8242:
8235: WHEN OTHERS THEN
8236: ROLLBACK TO validate_dependencies_PVT;
8237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8239: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
8240: p_procedure_name =>l_api_name,
8241: p_error_text => SUBSTRB(SQLERRM,1,240));
8242:
8243: END IF;
8240: p_procedure_name =>l_api_name,
8241: p_error_text => SUBSTRB(SQLERRM,1,240));
8242:
8243: END IF;
8244: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
8245: p_count => x_msg_count,
8246: p_data => x_msg_data);
8247: END validate_dependencies;
8248:
8649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8650: END IF;
8651:
8652: IF FND_API.to_boolean(p_init_msg_list) THEN
8653: FND_MSG_PUB.initialize;
8654: END IF;
8655:
8656: x_return_status:=FND_API.G_RET_STS_SUCCESS;
8657:
8661:
8662: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
8663: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed = FND_API.G_FALSE THEN
8664: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
8665: FND_MSG_PUB.add;
8666: RAISE FND_API.G_EXC_ERROR;
8667: END IF;
8668:
8669: -- Validate Inputs
8674: ( p_visit_id IS NULL OR
8675: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
8676: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
8677: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
8678: FND_MSG_PUB.add;
8679: RAISE FND_API.G_EXC_ERROR;
8680: END IF;
8681:
8682: -- Validate if Completion Dependencies exist
8727: l_visit_number;
8728:
8729: IF ( get_visit_mwo%NOTFOUND ) THEN
8730: FND_MESSAGE.set_name('AHL','AHL_PRD_VISIT_MWO_NOT_FOUND');
8731: FND_MSG_PUB.add;
8732: CLOSE get_visit_mwo;
8733: RAISE FND_API.G_EXC_ERROR;
8734: END IF;
8735:
8743: p_item_instance_id => NULL);
8744: IF l_return_status = FND_API.G_TRUE THEN
8745: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
8746: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
8747: FND_MSG_PUB.ADD;
8748: RAISE FND_API.G_EXC_ERROR;
8749: END IF;
8750: -- rroy
8751: -- ACL Changes
8764: AND LOOKUP_CODE = l_status_code;
8765: --
8766: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_VISIT_STATUS');
8767: FND_MESSAGE.set_token('STATUS', l_status_meaning );
8768: FND_MSG_PUB.add;
8769: RAISE FND_API.G_EXC_ERROR;
8770: END IF;
8771:
8772: -- apattark start for Bug #9075539 to validate for visit cancellation
8867: ELSE
8868: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
8869: END IF;
8870: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
8871: FND_MSG_PUB.ADD;
8872: RAISE FND_API.G_EXC_ERROR;
8873: END IF;
8874: -- rroy
8875: -- ACL Changes
8886:
8887: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
8888: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(l_wo_id) = FND_API.G_FALSE THEN
8889: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
8890: FND_MSG_PUB.add;
8891: RAISE FND_API.G_EXC_ERROR;
8892: END IF;
8893:
8894: l_wo_count := l_wo_count + 1;
8960: l_master_wo_flag;
8961:
8962: IF ( get_ue_mwo%NOTFOUND ) THEN
8963: FND_MESSAGE.set_name('AHL','AHL_PRD_MR_MWO_NOT_FOUND');
8964: FND_MSG_PUB.add;
8965: CLOSE get_ue_mwo;
8966: RAISE FND_API.G_EXC_ERROR;
8967: END IF;
8968:
8979: ELSE
8980: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
8981: END IF;
8982: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
8983: FND_MSG_PUB.ADD;
8984: RAISE FND_API.G_EXC_ERROR;
8985: END IF;
8986: -- rroy
8987: -- ACL Changes
8999: AND LOOKUP_CODE = l_status_code;
9000:
9001: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_MR_STATUS');
9002: FND_MESSAGE.set_token('STATUS', l_status_meaning );
9003: FND_MSG_PUB.add;
9004: RAISE FND_API.G_EXC_ERROR;
9005: END IF;
9006:
9007: -- Process all the Child Workorders of the UE
9029: ELSE
9030: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
9031: END IF;
9032: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
9033: FND_MSG_PUB.ADD;
9034: RAISE FND_API.G_EXC_ERROR;
9035: END IF;
9036: -- rroy
9037: -- ACL Changes
9048:
9049: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
9050: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(l_wo_id) = FND_API.G_FALSE THEN
9051: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
9052: FND_MSG_PUB.add;
9053: RAISE FND_API.G_EXC_ERROR;
9054: END IF;
9055: l_wo_count := l_wo_count + 1;
9056: l_workorder_tbl(l_wo_count).dml_operation := 'U';
9176: ELSE
9177: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
9178: END IF;
9179: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
9180: FND_MSG_PUB.ADD;
9181: RAISE FND_API.G_EXC_ERROR;
9182: END IF;
9183: -- rroy
9184: -- ACL Changes
9320: l_wo_name;
9321:
9322: IF ( get_wo%NOTFOUND ) THEN
9323: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_NOT_FOUND');
9324: FND_MSG_PUB.add;
9325: CLOSE get_wo;
9326: RAISE FND_API.G_EXC_ERROR;
9327: END IF;
9328: -- rroy
9333: p_item_instance_id => NULL);
9334: IF l_return_status = FND_API.G_TRUE THEN
9335: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
9336: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
9337: FND_MSG_PUB.ADD;
9338: RAISE FND_API.G_EXC_ERROR;
9339: END IF;
9340: -- rroy
9341: -- ACL Changes
9344:
9345: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
9346: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(p_workorder_id) = FND_API.G_FALSE THEN
9347: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
9348: FND_MSG_PUB.add;
9349: RAISE FND_API.G_EXC_ERROR;
9350: END IF;
9351:
9352: -- Check if the WO is in a status which can be cancelled
9362: AND LOOKUP_CODE = l_status_code;
9363:
9364: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_WO_STATUS');
9365: FND_MESSAGE.set_token('STATUS', l_status_meaning );
9366: FND_MSG_PUB.add;
9367: RAISE FND_API.G_EXC_ERROR;
9368: END IF;
9369:
9370: -- Add the WO in the WO Table
9451: ELSE
9452: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_CNCL_UNTLCKD');
9453: END IF;
9454: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
9455: FND_MSG_PUB.ADD;
9456: RAISE FND_API.G_EXC_ERROR;
9457: END IF;
9458: -- rroy
9459: -- ACL Changes
9818:
9819: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9820: -- Add Debug
9821: IF FND_API.to_boolean(p_init_msg_list) THEN
9822: FND_MSG_PUB.initialize;
9823: END IF;
9824: END IF;
9825: END IF;
9826: */
9835: EXCEPTION
9836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9837: ROLLBACK TO cancel_visit_jobs_PVT;
9838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9839: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
9840: p_count => x_msg_count,
9841: p_data => x_msg_data);
9842: WHEN FND_API.G_EXC_ERROR THEN
9843: ROLLBACK TO cancel_visit_jobs_PVT;
9841: p_data => x_msg_data);
9842: WHEN FND_API.G_EXC_ERROR THEN
9843: ROLLBACK TO cancel_visit_jobs_PVT;
9844: x_return_status := FND_API.G_RET_STS_ERROR;
9845: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
9846: p_count => x_msg_count,
9847: p_data => x_msg_data);
9848:
9849: WHEN VISIT_VALIDATION_ERR THEN
9848:
9849: WHEN VISIT_VALIDATION_ERR THEN
9850: ROLLBACK TO cancel_visit_jobs_PVT;
9851: x_return_status := 'V';
9852: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
9853: p_count => x_msg_count,
9854: p_data => x_msg_data);
9855:
9856: WHEN OTHERS THEN
9855:
9856: WHEN OTHERS THEN
9857: ROLLBACK TO cancel_visit_jobs_PVT;
9858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9859: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9860: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
9861: p_procedure_name =>l_api_name,
9862: p_error_text => SUBSTRB(SQLERRM,1,240));
9863:
9856: WHEN OTHERS THEN
9857: ROLLBACK TO cancel_visit_jobs_PVT;
9858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9859: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9860: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
9861: p_procedure_name =>l_api_name,
9862: p_error_text => SUBSTRB(SQLERRM,1,240));
9863:
9864: END IF;
9861: p_procedure_name =>l_api_name,
9862: p_error_text => SUBSTRB(SQLERRM,1,240));
9863:
9864: END IF;
9865: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
9866: p_count => x_msg_count,
9867: p_data => x_msg_data);
9868: END cancel_visit_jobs;
9869: --
10080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10081: END IF;
10082: -- Initialize message list if p_init_msg_list is set to TRUE
10083: IF FND_API.to_boolean(p_init_msg_list) THEN
10084: FND_MSG_PUB.initialize;
10085: END IF;
10086: -- Initialize API return status to success
10087: x_return_status:=FND_API.G_RET_STS_SUCCESS;
10088:
10099: OPEN validate_visit(p_visit_id) ;
10100: FETCH validate_visit into l_dummy ;
10101: IF (validate_visit%NOTFOUND) THEN
10102: FND_MESSAGE.Set_Name('AHL','AHL_PRD_VISIT_NOT_FOUND');
10103: FND_MSG_PUB.ADD;
10104: CLOSE validate_visit;
10105: RAISE FND_API.G_EXC_ERROR;
10106: END IF;
10107: CLOSE validate_visit;
10119: OPEN check_workorder_exists(p_visit_id);
10120: FETCH check_workorder_exists into check_workorder_exists_rec;
10121: IF (check_workorder_exists%NOTFOUND) THEN
10122: FND_MESSAGE.Set_Name('AHL','AHL_PRD_VISIT_MWO_NOT_FOUND');
10123: FND_MSG_PUB.ADD;
10124: CLOSE check_workorder_exists;
10125: RAISE FND_API.G_EXC_ERROR;
10126: -- can not move visit if visit wo in 4 -> Complete -- 5 -> Complete No Charge -- 7 -> Cancelled -- 12 -> Closed
10127: ELSIF (check_workorder_exists_rec.status_code IN (4, 5, 7, 12) ) THEN
10125: RAISE FND_API.G_EXC_ERROR;
10126: -- can not move visit if visit wo in 4 -> Complete -- 5 -> Complete No Charge -- 7 -> Cancelled -- 12 -> Closed
10127: ELSIF (check_workorder_exists_rec.status_code IN (4, 5, 7, 12) ) THEN
10128: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JOB_STATUS_INVALID');
10129: FND_MSG_PUB.ADD;
10130: CLOSE check_workorder_exists;
10131: RAISE FND_API.G_EXC_ERROR;
10132: END IF;
10133: CLOSE check_workorder_exists;
10142: Hence removing this validation instead adding following validation.
10143: IF (check_workorder_exists_rec.status_code NOT IN ( 1,3,17) )
10144: THEN
10145: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JOB_STATUS_INVALID');
10146: FND_MSG_PUB.ADD;
10147: close check_workorder_exists;
10148: RAISE FND_API.G_EXC_ERROR;
10149: END IF;
10150: */
10158: get_minmax_comp_schdates_rec.min_end_date > p_x_scheduled_end_date)THEN
10159: FND_MESSAGE.Set_Name('AHL','AHL_PRD_ENCOMP_CWO_INVALID');
10160: FND_MESSAGE.SET_TOKEN('MAX_START_DATE',to_char(get_minmax_comp_schdates_rec.max_start_date,'DD-MON-YYYY HH24:MI:SS'));
10161: FND_MESSAGE.SET_TOKEN('MIN_END_DATE',to_char(get_minmax_comp_schdates_rec.min_end_date,'DD-MON-YYYY HH24:MI:SS'));
10162: FND_MSG_PUB.ADD;
10163: CLOSE get_minmax_comp_schedule_dates;
10164: RAISE FND_API.G_EXC_ERROR;
10165: END IF;
10166: END IF;
10443: IF p_x_scheduled_end_date <> latest_schedule_dates_rec.scheduled_completion_date
10444: THEN
10445: -- Initialize the message list not to show the EAM Error message
10446: IF FND_API.to_boolean(p_init_msg_list) THEN
10447: FND_MSG_PUB.initialize;
10448: END IF;
10449: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PLANNED_DATE_INVALID');
10450: FND_MESSAGE.SET_TOKEN('DATE',latest_schedule_dates_rec.scheduled_completion_date);
10451: FND_MSG_PUB.ADD;
10447: FND_MSG_PUB.initialize;
10448: END IF;
10449: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PLANNED_DATE_INVALID');
10450: FND_MESSAGE.SET_TOKEN('DATE',latest_schedule_dates_rec.scheduled_completion_date);
10451: FND_MSG_PUB.ADD;
10452: END IF;
10453: RAISE Fnd_Api.g_exc_error;
10454:
10455: END IF;
10465: EXCEPTION
10466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10467: ROLLBACK TO Reschedule_Visit_Jobs;
10468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10469: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
10470: p_count => x_msg_count,
10471: p_data => x_msg_data);
10472: WHEN FND_API.G_EXC_ERROR THEN
10473: ROLLBACK TO Reschedule_Visit_Jobs;
10471: p_data => x_msg_data);
10472: WHEN FND_API.G_EXC_ERROR THEN
10473: ROLLBACK TO Reschedule_Visit_Jobs;
10474: x_return_status := FND_API.G_RET_STS_ERROR;
10475: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
10476: p_count => x_msg_count,
10477: p_data => x_msg_data);
10478:
10479: WHEN OTHERS THEN
10478:
10479: WHEN OTHERS THEN
10480: ROLLBACK TO Reschedule_Visit_Jobs;
10481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10482: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10483: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
10484: p_procedure_name =>l_api_name,
10485: p_error_text => SUBSTRB(SQLERRM,1,240));
10486:
10479: WHEN OTHERS THEN
10480: ROLLBACK TO Reschedule_Visit_Jobs;
10481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10482: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10483: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
10484: p_procedure_name =>l_api_name,
10485: p_error_text => SUBSTRB(SQLERRM,1,240));
10486:
10487: END IF;
10484: p_procedure_name =>l_api_name,
10485: p_error_text => SUBSTRB(SQLERRM,1,240));
10486:
10487: END IF;
10488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
10489: p_count => x_msg_count,
10490: p_data => x_msg_data);
10491:
10492: END Reschedule_Visit_Jobs;
10556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10557: END IF;
10558: -- Initialize message list if p_init_msg_list is set to TRUE
10559: IF FND_API.To_Boolean( p_init_msg_list) THEN
10560: FND_MSG_PUB.Initialize;
10561: END IF;
10562:
10563: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
10564: fnd_log.string
10580: FOR i IN p_trunover_notes_tbl.FIRST..p_trunover_notes_tbl.LAST LOOP
10581: -- validate source object code
10582: IF(p_trunover_notes_tbl(i).source_object_code <> 'AHL_WO_TURNOVER_NOTES')THEN
10583: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NOTES_INV_SOURCE');
10584: FND_MSG_PUB.ADD;
10585: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
10586: fnd_log.string
10587: (
10588: fnd_log.level_error,
10594: -- validate entered data
10595: IF(p_trunover_notes_tbl(i).entered_date > SYSDATE)THEN
10596: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NOTES_INV_ENT_DT');
10597: FND_MESSAGE.Set_Token('ENTERED_DATE',p_trunover_notes_tbl(i).entered_date);
10598: FND_MSG_PUB.ADD;
10599: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
10600: fnd_log.string
10601: (
10602: fnd_log.level_error,
10607: END IF;
10608: -- validate that notes cant not be null
10609: IF(p_trunover_notes_tbl(i).notes IS NULL)THEN
10610: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NOTES_INV_NOTES_NLL');
10611: FND_MSG_PUB.ADD;
10612: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
10613: fnd_log.string
10614: (
10615: fnd_log.level_error,
10620: END IF;
10621:
10622: IF p_trunover_notes_tbl(i).employee_name IS NULL THEN
10623: FND_MESSAGE.set_name('AHL','AHL_PRD_EMP_NULL_TRNTS');
10624: FND_MSG_PUB.ADD;
10625: --l_user_id := FND_GLOBAL.user_id;
10626: ELSE
10627: matchFound := FALSE;
10628: FOR emp_rec IN get_user_id_csr(p_trunover_notes_tbl(i).employee_name,
10637: IF NOT(l_count = 1 OR matchFound)THEN
10638: -- Invalid or non unique employee
10639: FND_MESSAGE.set_name('AHL','AHL_PRD_INV_EMP_TRNTS');
10640: FND_MESSAGE.SET_TOKEN('EMP_NAME',p_trunover_notes_tbl(i).employee_name);
10641: FND_MSG_PUB.ADD;
10642: END IF;
10643: END IF;
10644:
10645: IF(l_user_id IS NULL)THEN
10643: END IF;
10644:
10645: IF(l_user_id IS NULL)THEN
10646: FND_MESSAGE.set_name('AHL','AHL_PRD_INV_EMP_NUQ_TRNTS');
10647: FND_MSG_PUB.ADD;
10648: END IF;
10649:
10650:
10651: -- add notes if no messages
10648: END IF;
10649:
10650:
10651: -- add notes if no messages
10652: IF(FND_MSG_PUB.count_msg = 0)THEN
10653: JTF_NOTES_PUB.Create_note
10654: (
10655: p_api_version => 1.0,
10656: p_init_msg_list => FND_API.G_FALSE,
10668: );
10669: END IF;
10670: END LOOP;
10671: -- Check Error Message stack.
10672: x_msg_count := FND_MSG_PUB.count_msg;
10673: IF x_msg_count > 0 THEN
10674: RAISE FND_API.G_EXC_ERROR;
10675: END IF;
10676:
10678: IF FND_API.TO_BOOLEAN(p_commit) THEN
10679: COMMIT WORK;
10680: END IF;
10681: -- Standard call to get message count and if count is 1, get message info
10682: FND_MSG_PUB.Count_And_Get
10683: ( p_count => x_msg_count,
10684: p_data => x_msg_data,
10685: p_encoded => fnd_api.g_false
10686: );
10700: EXCEPTION
10701: WHEN FND_API.G_EXC_ERROR THEN
10702: Rollback to INSERT_TURNOVER_NOTES;
10703: x_return_status := FND_API.G_RET_STS_ERROR;
10704: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10705: p_data => x_msg_data,
10706: p_encoded => fnd_api.g_false);
10707:
10708:
10708:
10709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10710: Rollback to INSERT_TURNOVER_NOTES;
10711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10712: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10713: p_data => x_msg_data,
10714: p_encoded => fnd_api.g_false);
10715:
10716:
10716:
10717: WHEN OTHERS THEN
10718: Rollback to INSERT_TURNOVER_NOTES;
10719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10720: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10721: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10722: p_procedure_name => l_api_name,
10723: p_error_text => SUBSTRB(SQLERRM,1,500));
10724: END IF;
10717: WHEN OTHERS THEN
10718: Rollback to INSERT_TURNOVER_NOTES;
10719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10720: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10721: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10722: p_procedure_name => l_api_name,
10723: p_error_text => SUBSTRB(SQLERRM,1,500));
10724: END IF;
10725: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10721: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10722: p_procedure_name => l_api_name,
10723: p_error_text => SUBSTRB(SQLERRM,1,500));
10724: END IF;
10725: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10726: p_data => x_msg_data,
10727: p_encoded => fnd_api.g_false);
10728: END INSERT_TURNOVER_NOTES;
10729:
10830: OPEN get_workorder_rec(p_x_prd_workorder_rec.workorder_id);
10831: FETCH get_workorder_rec INTO l_prd_workorder_rec;
10832: IF get_workorder_rec%NOTFOUND THEN
10833: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
10834: FND_MSG_PUB.ADD;
10835: CLOSE get_workorder_rec;
10836: RETURN;
10837: END IF;
10838: CLOSE get_workorder_rec;
11217: IF wo_status_csr%FOUND THEN
11218: Fnd_Message.SET_NAME('AHL','AHL_PRD_CNT_CANCEL_VST_WOSTA');
11219: --Visit cancellation is allowed only if the Visit's workorders are in released, unreleased or canceled statuses
11220: Fnd_Message.Set_Token('VISIT',p_visit_number);
11221: Fnd_Msg_Pub.ADD;
11222: x_cancel_flag := 'N';
11223: CLOSE wo_status_csr;
11224: RETURN;
11225: END IF ;
11230: IF op_complete_csr%FOUND THEN
11231: Fnd_Message.SET_NAME('AHL','AHL_PRD_CNT_CANCEL_VST_OPCOM');
11232: Fnd_Message.Set_Token('VISIT',p_visit_number);
11233: --At least one operation is complete. Cannot cancel Visit.
11234: Fnd_Msg_Pub.ADD;
11235: x_cancel_flag := 'N';
11236: CLOSE op_complete_csr;
11237: RETURN;
11238: END IF ;
11243: IF part_chg_txn_csr%FOUND THEN
11244: Fnd_Message.SET_NAME('AHL','AHL_PRD_CNT_CANCEL_VST_PCHG');
11245: Fnd_Message.Set_Token('VISIT',p_visit_number);
11246: --At least one Parts Change transaction found. Cannot cancel Visit
11247: Fnd_Msg_Pub.ADD;
11248: x_cancel_flag := 'N';
11249: CLOSE part_chg_txn_csr;
11250: RETURN;
11251: END IF ;
11273: Fnd_Message.Set_Token('INV_LOT', mtl_rec.lot_number);
11274: Fnd_Message.Set_Token('INV_SERIAL', mtl_rec.serial_number);
11275: Fnd_Message.Set_Token('INV_REV', mtl_rec.revision);
11276: Fnd_Message.Set_Token('QTY', mtl_rec.quantity);
11277: Fnd_Msg_Pub.ADD;
11278: x_cancel_flag := 'N';
11279: CLOSE wo_material_csr;
11280: RETURN;
11281: END IF ;
11286: IF resource_txn_csr%FOUND THEN
11287: Fnd_Message.SET_NAME('AHL','AHL_PRD_CNT_CANCEL_VST_WORTXN');
11288: --At least one Workorder found with resource transactions. Cannot cancel Visit
11289: Fnd_Message.Set_Token('VISIT',p_visit_number);
11290: Fnd_Msg_Pub.ADD;
11291: x_cancel_flag := 'N';
11292: CLOSE resource_txn_csr;
11293: RETURN;
11294: END IF ;
11299: IF item_chg_txn_csr%FOUND THEN
11300: Fnd_Message.SET_NAME('AHL','AHL_PRD_CNT_CANCEL_VST_ITEMTXN');
11301: --At least one Serial Number/ Item Number Change transaction found. Cannot cancel Visit.
11302: Fnd_Message.Set_Token('VISIT',p_visit_number);
11303: Fnd_Msg_Pub.ADD;
11304: x_cancel_flag := 'N';
11305: CLOSE item_chg_txn_csr;
11306: RETURN;
11307: END IF ;
11421:
11422:
11423: -- Initialize message list if p_init_msg_list is set to TRUE.
11424: IF FND_API.to_boolean(p_init_msg_list) THEN
11425: FND_MSG_PUB.initialize;
11426: END IF;
11427:
11428: IF (G_LEVEL_STATEMENT >= G_CURRENT_LOG_LEVEL)THEN
11429: fnd_log.string(
11458: END IF;
11459:
11460: IF (l_user_associated IS NULL OR (l_function_name <> l_user_associated)) THEN
11461: FND_MESSAGE.Set_Name('AHL','AHL_PP_USER_NOT_FN_UNCLOSE');
11462: FND_MSG_PUB.ADD;
11463: RAISE FND_API.G_EXC_ERROR;
11464: END IF;
11465:
11466: IF (l_job_status_code <> G_JOB_STATUS_CLOSED) THEN
11464: END IF;
11465:
11466: IF (l_job_status_code <> G_JOB_STATUS_CLOSED) THEN
11467: FND_MESSAGE.Set_Name('AHL','AHL_PP_UNCLOSE_ONLY_CLOSED');
11468: FND_MSG_PUB.ADD;
11469: RAISE FND_API.G_EXC_ERROR;
11470: END IF;
11471:
11472: IF (l_date_completed IS NULL) THEN
11470: END IF;
11471:
11472: IF (l_date_completed IS NULL) THEN
11473: FND_MESSAGE.Set_Name('AHL','AHL_PP_JOB_CANTBE_UNCLOSE');
11474: FND_MSG_PUB.ADD;
11475: RAISE FND_API.G_EXC_ERROR;
11476: END IF;
11477:
11478: IF(p_x_prd_workorder_rec.object_version_number IS NULL OR p_x_prd_workorder_rec.object_version_number <> l_obj_ver_no)THEN
11476: END IF;
11477:
11478: IF(p_x_prd_workorder_rec.object_version_number IS NULL OR p_x_prd_workorder_rec.object_version_number <> l_obj_ver_no)THEN
11479: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
11480: FND_MSG_PUB.ADD;
11481: RAISE FND_API.G_EXC_ERROR;
11482: END IF;
11483:
11484: IF(p_x_prd_workorder_rec.STATUS_CODE IS NULL OR p_x_prd_workorder_rec.STATUS_CODE <> G_JOB_STATUS_COMPLETE)THEN
11482: END IF;
11483:
11484: IF(p_x_prd_workorder_rec.STATUS_CODE IS NULL OR p_x_prd_workorder_rec.STATUS_CODE <> G_JOB_STATUS_COMPLETE)THEN
11485: FND_MESSAGE.SET_NAME('AHL','AHL_PP_ONLY_UNCLOSE_TO_COMP');
11486: FND_MSG_PUB.ADD;
11487: RAISE FND_API.G_EXC_ERROR;
11488: END IF;
11489:
11490: -- After Validations
11523: WHERE wip_entity_id = mwo_rec.wip_entity_id;
11524:
11525: ELSE
11526: FND_MESSAGE.SET_NAME('AHL','AHL_PP_CANT_UNCLOSE_WO');
11527: FND_MSG_PUB.ADD;
11528: RAISE FND_API.G_EXC_ERROR;
11529: END IF;
11530: END LOOP;
11531:
11558: WHERE wip_entity_id = l_wip_entity_id;
11559:
11560: ELSE
11561: FND_MESSAGE.SET_NAME('AHL','AHL_PP_CANT_UNCLOSE_WO');
11562: FND_MSG_PUB.ADD;
11563: RAISE FND_API.G_EXC_ERROR;
11564: END IF;
11565:
11566:
11596: EXCEPTION
11597: WHEN FND_API.G_EXC_ERROR THEN
11598: x_return_status := FND_API.G_RET_STS_ERROR;
11599: Rollback to Unclose_Workorder_PVT;
11600: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
11601: p_data => x_msg_data,
11602: p_encoded => fnd_api.g_false);
11603:
11604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11603:
11604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11606: Rollback to Unclose_Workorder_PVT;
11607: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
11608: p_data => x_msg_data,
11609: p_encoded => fnd_api.g_false);
11610:
11611: WHEN OTHERS THEN
11610:
11611: WHEN OTHERS THEN
11612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11613: Rollback to Unclose_Workorder_PVT;
11614: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
11615: p_procedure_name => 'Unclose_Workorder',
11616: p_error_text => SQLERRM);
11617: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
11618: p_data => x_msg_data,
11613: Rollback to Unclose_Workorder_PVT;
11614: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
11615: p_procedure_name => 'Unclose_Workorder',
11616: p_error_text => SQLERRM);
11617: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
11618: p_data => x_msg_data,
11619: p_encoded => fnd_api.g_false);
11620:
11621: END unclose_workorder;
11814: --fnd_global.APPS_INITIALIZE(fnd_global.USER_ID, 62211, 867);
11815: --mo_global.init('AHL');
11816:
11817: -- 1. Initialize error message stack by default
11818: FND_MSG_PUB.Initialize;
11819:
11820: -- Standard call to check for call compatibility
11821: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
11822: THEN
11820: -- Standard call to check for call compatibility
11821: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
11822: THEN
11823: retcode := 2;
11824: errbuf := FND_MSG_PUB.Get;
11825:
11826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11827: END IF;
11828:
11873:
11874: retcode := 2; -- error!!
11875:
11876: LOOP
11877: l_err_msg := FND_MSG_PUB.GET;
11878: IF l_err_msg IS NULL
11879: THEN
11880: EXIT;
11881: END IF;
11924:
11925: retcode := 2; -- error!!
11926:
11927: LOOP
11928: l_err_msg := FND_MSG_PUB.GET;
11929: IF l_err_msg IS NULL
11930: THEN
11931: EXIT;
11932: END IF;
12002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12003: END IF;
12004:
12005: IF FND_API.to_boolean(p_init_msg_list) THEN
12006: FND_MSG_PUB.initialize;
12007: END IF;
12008:
12009: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12010:
12016: AHL_DEBUG_PUB.debug( l_api_name || ' - At Start of Populate Entitlement API' );
12017: END IF;
12018:
12019: -- Get the error message count till this point
12020: l_msg_count := FND_MSG_PUB.count_msg;
12021:
12022: IF p_contract_number <> FND_API.G_MISS_NUM AND p_contract_number IS NOT NULL THEN
12023: OPEN get_contract_id (p_contract_number, p_warranty_entl_rec.visit_task_id);
12024: FETCH get_contract_id INTO p_warranty_entl_rec.warranty_contract_id;
12025: CLOSE get_contract_id;
12026: IF p_warranty_entl_rec.warranty_contract_id is NULL THEN
12027: FND_MESSAGE.set_name('AHL','AHL_WARRANTY_INVALID_CNTR_NUM');
12028: FND_MESSAGE.set_token('CNTR_NUM', p_contract_number);
12029: FND_MSG_PUB.add;
12030: RAISE FND_API.G_EXC_ERROR;
12031: END IF;
12032: END IF;
12033:
12095: EXCEPTION
12096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12097: ROLLBACK TO populate_entitlements_pvt;
12098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12099: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12100: p_count => x_msg_count,
12101: p_data => x_msg_data);
12102: WHEN FND_API.G_EXC_ERROR THEN
12103: ROLLBACK TO populate_entitlements_pvt;
12101: p_data => x_msg_data);
12102: WHEN FND_API.G_EXC_ERROR THEN
12103: ROLLBACK TO populate_entitlements_pvt;
12104: x_return_status := FND_API.G_RET_STS_ERROR;
12105: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12106: p_count => x_msg_count,
12107: p_data => x_msg_data);
12108:
12109: WHEN OTHERS THEN
12108:
12109: WHEN OTHERS THEN
12110: ROLLBACK TO populate_entitlements_pvt;
12111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12112: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12113: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
12114: p_procedure_name =>l_api_name,
12115: p_error_text =>SUBSTRB(SQLERRM,1,240));
12116: END IF;
12109: WHEN OTHERS THEN
12110: ROLLBACK TO populate_entitlements_pvt;
12111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12112: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12113: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
12114: p_procedure_name =>l_api_name,
12115: p_error_text =>SUBSTRB(SQLERRM,1,240));
12116: END IF;
12117:
12114: p_procedure_name =>l_api_name,
12115: p_error_text =>SUBSTRB(SQLERRM,1,240));
12116: END IF;
12117:
12118: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12119: p_count => x_msg_count,
12120: p_data => x_msg_data);
12121: END populate_entitlements;
12122: -- ER#10257011 Supplier Warranty manisaga -- end
12198: IF(p_workorder_op_id IS NULL ) THEN
12199: --Handle WO Status Change
12200: IF (p_workorder_id IS NULL) THEN
12201: Fnd_Message.SET_NAME('AHL','AHL_PRD_TASK_ORG_WOID_REQ');
12202: Fnd_Msg_Pub.ADD;
12203: x_return_status := FND_API.G_RET_STS_ERROR;
12204: RETURN;
12205: END IF;
12206: l_workorder_id := p_workorder_id;
12216: OPEN Get_Emp_Name_And_Id(l_organization_id);
12217: /* FETCH Get_Emp_Name_And_Id INTO l_emp_name, l_emp_id;
12218: IF( Get_Emp_Name_And_Id%NOTFOUND ) THEN
12219: Fnd_Message.SET_NAME('AHL','AHL_PRD_EMP_NULL_TRNTS');
12220: Fnd_Msg_Pub.ADD;
12221: CLOSE Get_Emp_Name_And_Id;
12222: x_return_status := FND_API.G_RET_STS_ERROR;
12223: RETURN;
12224: END IF;
12262: /*OPEN Get_Emp_Name_And_Id(l_organization_id);
12263: FETCH Get_Emp_Name_And_Id INTO l_emp_name, l_emp_id;
12264: IF( Get_Emp_Name_And_Id%NOTFOUND ) THEN
12265: Fnd_Message.SET_NAME('AHL','AHL_PRD_EMP_NULL_TRNTS');
12266: Fnd_Msg_Pub.ADD;
12267: CLOSE Get_Emp_Name_And_Id;
12268: x_return_status := FND_API.G_RET_STS_ERROR;
12269: RETURN;
12270: END IF;
12323: x_jtf_note_id => l_jtf_note_id
12324: );
12325: END IF;
12326: -- Check Error Message stack.
12327: l_msg_count := FND_MSG_PUB.count_msg;
12328: IF l_msg_count > 0 THEN
12329: l_return_status := FND_API.G_RET_STS_ERROR;
12330: END IF;
12331: x_return_status := l_return_status;
12462: l_api_name,G_PKG_NAME) THEN
12463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12464: END IF;
12465: IF FND_API.to_boolean(p_init_msg_list) THEN
12466: FND_MSG_PUB.initialize;
12467: END IF;
12468: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12469: IF (p_workorder_id IS NULL) THEN
12470: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_NULL_WORKORDER_ID');
12467: END IF;
12468: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12469: IF (p_workorder_id IS NULL) THEN
12470: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_NULL_WORKORDER_ID');
12471: FND_MSG_PUB.ADD;
12472: RAISE FND_API.G_EXC_ERROR;
12473: END IF;
12474: IF (p_old_inst_rtng IS NULL AND p_new_inst_rtng IS NULL) THEN
12475: FND_MESSAGE.SET_NAME('AHL','AHL_CAM_INST_RTNG_NULL'); -- pending to define.
12472: RAISE FND_API.G_EXC_ERROR;
12473: END IF;
12474: IF (p_old_inst_rtng IS NULL AND p_new_inst_rtng IS NULL) THEN
12475: FND_MESSAGE.SET_NAME('AHL','AHL_CAM_INST_RTNG_NULL'); -- pending to define.
12476: FND_MSG_PUB.ADD;
12477: RAISE FND_API.G_EXC_ERROR;
12478: END IF;
12479: --Get Meaning From Code for old instance routing
12480: IF (p_old_inst_rtng IS NOT NULL) THEN
12519: p_entered_by => fnd_global.user_id,
12520: p_entered_date => SYSDATE,
12521: x_jtf_note_id => l_jtf_note_id
12522: );
12523: l_msg_count := FND_MSG_PUB.count_msg;
12524: IF l_msg_count > 0 THEN
12525: l_return_status := FND_API.G_RET_STS_ERROR;
12526: END IF;
12527: x_return_status := l_return_status;
12532: EXCEPTION
12533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12534: ROLLBACK TO inst_rtng_notes_to_wo;
12535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12536: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12537: p_count => x_msg_count,
12538: p_data => x_msg_data);
12539: WHEN FND_API.G_EXC_ERROR THEN
12540: ROLLBACK TO inst_rtng_notes_to_wo;
12538: p_data => x_msg_data);
12539: WHEN FND_API.G_EXC_ERROR THEN
12540: ROLLBACK TO inst_rtng_notes_to_wo;
12541: x_return_status := FND_API.G_RET_STS_ERROR;
12542: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12543: p_count => x_msg_count,
12544: p_data => x_msg_data);
12545: WHEN OTHERS THEN
12546: ROLLBACK TO inst_rtng_notes_to_wo;
12544: p_data => x_msg_data);
12545: WHEN OTHERS THEN
12546: ROLLBACK TO inst_rtng_notes_to_wo;
12547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12548: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12549: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
12550: p_procedure_name => l_api_name,
12551: p_error_text => SUBSTRB(SQLERRM,1,240));
12552: END IF;
12545: WHEN OTHERS THEN
12546: ROLLBACK TO inst_rtng_notes_to_wo;
12547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12548: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12549: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
12550: p_procedure_name => l_api_name,
12551: p_error_text => SUBSTRB(SQLERRM,1,240));
12552: END IF;
12553: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12549: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
12550: p_procedure_name => l_api_name,
12551: p_error_text => SUBSTRB(SQLERRM,1,240));
12552: END IF;
12553: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12554: p_count => x_msg_count,
12555: p_data => x_msg_data);
12556: END Add_Inst_Rtng_Notes_To_WO;
12557:
12662:
12663: -- Initialize message list if p_init_msg_list is set to TRUE.
12664: IF FND_API.to_boolean(p_init_msg_list)
12665: THEN
12666: FND_MSG_PUB.initialize;
12667: END IF;
12668:
12669: -- Initialize API return status to success
12670: x_return_status := FND_API.G_RET_STS_SUCCESS;
12711: END IF;
12712: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_WORKORDER_STS_INVALID');
12713: FND_MESSAGE.SET_TOKEN('WORKORDER_NUM', L_WORKORDER_NAME);
12714: FND_MESSAGE.SET_TOKEN('WORKORDER_STATUS', L_WORKORDER_STATUS);
12715: fnd_msg_pub.add;
12716: end if;
12717:
12718: END LOOP;
12719:
12806: IF (G_LEVEL_STATEMENT >= G_CURRENT_LOG_LEVEL)THEN
12807: FND_LOG.STRING( G_LEVEL_STATEMENT, 'ahl.plsql.'||G_PKG_NAME||'.'|| L_API_NAME, 'INVALID_WORKORDER_STATUS exception generated');
12808: END IF;
12809: X_return_status := FND_API.G_RET_STS_ERROR;
12810: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12811: p_count => x_msg_count,
12812: P_DATA => X_MSG_DATA);
12813:
12814: WHEN NO_DATA_FOUND THEN
12817: FND_LOG.STRING( G_LEVEL_STATEMENT, 'ahl.plsql.'||G_PKG_NAME||'.'|| L_API_NAME, 'NO_DATA_FOUND exception generated');
12818: END IF;
12819: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_WO_ID_MISSING');
12820: FND_MESSAGE.SET_TOKEN('WORKORDER', P_WORKORDER_ID_TBL(I).WORKORDER_ID);
12821: fnd_msg_pub.add;
12822: X_return_status := FND_API.G_RET_STS_ERROR;
12823: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12824: p_count => x_msg_count,
12825: p_data => x_msg_data);
12819: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_WO_ID_MISSING');
12820: FND_MESSAGE.SET_TOKEN('WORKORDER', P_WORKORDER_ID_TBL(I).WORKORDER_ID);
12821: fnd_msg_pub.add;
12822: X_return_status := FND_API.G_RET_STS_ERROR;
12823: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12824: p_count => x_msg_count,
12825: p_data => x_msg_data);
12826:
12827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12826:
12827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12828: ROLLBACK TO UPDATE_WO_AOG_STATUS;
12829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12830: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12831: p_count => x_msg_count,
12832: p_data => x_msg_data);
12833:
12834: WHEN OTHERS THEN
12833:
12834: WHEN OTHERS THEN
12835: ROLLBACK TO UPDATE_WO_AOG_STATUS;
12836: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12837: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12838: THEN
12839: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
12840: p_procedure_name => 'UPDATE_WO_AOG_STATUS',
12841: p_error_text => SUBSTR(SQLERRM,1,240));
12835: ROLLBACK TO UPDATE_WO_AOG_STATUS;
12836: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12837: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12838: THEN
12839: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
12840: p_procedure_name => 'UPDATE_WO_AOG_STATUS',
12841: p_error_text => SUBSTR(SQLERRM,1,240));
12842: END IF;
12843: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12839: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
12840: p_procedure_name => 'UPDATE_WO_AOG_STATUS',
12841: p_error_text => SUBSTR(SQLERRM,1,240));
12842: END IF;
12843: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
12844: p_count => x_msg_count,
12845: p_data => x_msg_data);
12846:
12847: IF (G_LEVEL_PROCEDURE >= G_CURRENT_LOG_LEVEL)THEN