[Home] [Help]
218:
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;
843: WHERE lookup_type='WIP_EAM_ACTIVITY_PRIORITY'
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:
861: OPEN get_department(p_x_prd_workorder_rec.Department_Name,p_x_prd_workorder_rec.Organization_id);
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;
996: IF p_x_prd_workorder_rec.HOLD_REASON IS NOT NULL AND p_x_prd_workorder_rec.HOLD_REASON <> FND_API.G_MISS_CHAR THEN
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;
1207: OPEN get_wo_status(p_prd_workorder_rec.workorder_id);
1208: FETCH get_wo_status INTO l_wo_status_code, l_wo_status;
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
1208: FETCH get_wo_status INTO l_wo_status_code, l_wo_status;
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
1224: p_visit_id => NULL,
1225: p_item_instance_id => p_prd_workorder_rec.item_instance_id);
1226: IF l_return_status = FND_API.G_TRUE THEN
1227: IF p_prd_workorder_rec.DML_OPERATION='C' 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;
1226: IF l_return_status = FND_API.G_TRUE THEN
1227: IF p_prd_workorder_rec.DML_OPERATION='C' 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;
1241: FROM WIP_EAM_PARAMETERS
1242: WHERE organization_id=p_prd_workorder_rec.ORGANIZATION_ID;
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;
1242: WHERE organization_id=p_prd_workorder_rec.ORGANIZATION_ID;
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:
1249: END IF;
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
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
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
1265: p_prd_workorder_rec.SCHEDULED_END_DATE IS NOT NULL 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
1284: -- the workorder dates on the production ui's should be compared only with the visit master
1285: -- workorder dates
1286: IF ( p_prd_workorder_rec.SCHEDULED_START_DATE < l_visit_start_date OR
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;
1285: -- workorder dates
1286: IF ( p_prd_workorder_rec.SCHEDULED_START_DATE < l_visit_start_date OR
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;*/
1286: IF ( p_prd_workorder_rec.SCHEDULED_START_DATE < l_visit_start_date OR
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;
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
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);
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;
1311: END IF;
1312: CLOSE validate_org;
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;
1311: END IF;
1312: CLOSE validate_org;
1313: END IF;
1313: END IF;
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;
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
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;
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
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;
1321: FETCH validate_dept INTO l_dummy_ctr;
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;
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);
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;
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
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;
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
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;
1345: END IF;
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;
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
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;
1363: IF (p_prd_workorder_rec.actual_start_date IS NULL OR
1364: p_prd_workorder_rec.actual_start_date=FND_API.G_MISS_DATE) AND
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:
1364: p_prd_workorder_rec.actual_start_date=FND_API.G_MISS_DATE) AND
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
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
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);
1392: IF ( p_prd_workorder_rec.actual_start_date IS NOT NULL AND
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
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
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
1415: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_QA_PENDING 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
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
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
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
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.
1441: AND TRUNC(p_prd_workorder_rec.scheduled_start_date) BETWEEN
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
1451: OPEN validate_acc_class_code(p_prd_workorder_rec.CLASS_CODE, p_prd_workorder_rec.ORGANIZATION_ID);
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;
1451: OPEN validate_acc_class_code(p_prd_workorder_rec.CLASS_CODE, p_prd_workorder_rec.ORGANIZATION_ID);
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;
1464: p_prd_workorder_rec.organization_id<>FND_API.G_MISS_NUM THEN
1465: OPEN validate_project(p_prd_workorder_rec.organization_id);
1466: FETCH validate_project INTO l_dummy_ctr;
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
1465: OPEN validate_project(p_prd_workorder_rec.organization_id);
1466: FETCH validate_project INTO l_dummy_ctr;
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
1466: FETCH validate_project INTO l_dummy_ctr;
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:
1483: -- added following filter to fix bug# 8662561 (FP for 8630840)
1484: AND inventory_organization_id = p_prd_workorder_rec.organization_id;
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
1484: AND inventory_organization_id = p_prd_workorder_rec.organization_id;
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
1496: WHERE project_id=p_prd_workorder_rec.project_id
1497: AND task_id=p_prd_workorder_rec.project_task_id;
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;
1497: AND task_id=p_prd_workorder_rec.project_task_id;
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;
1508: END IF;
1509:
1510: IF ( p_prd_workorder_rec.Visit_id IS NULL OR
1511: p_prd_workorder_rec.Visit_id=FND_API.G_MISS_NUM ) THEN
1512: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITID_NULL');
1513: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1514: END IF;
1515:
1516: IF ( p_prd_workorder_rec.Master_workorder_flag IS NULL OR
1509:
1510: IF ( p_prd_workorder_rec.Visit_id IS NULL OR
1511: p_prd_workorder_rec.Visit_id=FND_API.G_MISS_NUM ) THEN
1512: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITID_NULL');
1513: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1514: END IF;
1515:
1516: IF ( p_prd_workorder_rec.Master_workorder_flag IS NULL OR
1517: p_prd_workorder_rec.Master_workorder_flag=FND_API.G_MISS_CHAR OR
1515:
1516: IF ( p_prd_workorder_rec.Master_workorder_flag IS NULL OR
1517: p_prd_workorder_rec.Master_workorder_flag=FND_API.G_MISS_CHAR OR
1518: p_prd_workorder_rec.Master_workorder_flag NOT IN ( 'Y' , 'N' ) ) THEN
1519: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_MWOFLAG_INVALID');
1520: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1521: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
1522: p_prd_workorder_rec.Visit_task_id=FND_API.G_MISS_NUM ) AND
1523: p_prd_workorder_rec.Master_workorder_flag = 'N' ) THEN
1516: IF ( p_prd_workorder_rec.Master_workorder_flag IS NULL OR
1517: p_prd_workorder_rec.Master_workorder_flag=FND_API.G_MISS_CHAR OR
1518: p_prd_workorder_rec.Master_workorder_flag NOT IN ( 'Y' , 'N' ) ) THEN
1519: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_MWOFLAG_INVALID');
1520: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1521: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
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');
1520: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1521: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
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:
1521: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
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
1535: WHERE visit_task_id=NVL(p_prd_workorder_rec.visit_task_id,0)
1536: AND LTRIM(RTRIM(status_code)) NOT IN ( G_JOB_STATUS_CANCELLED, G_JOB_STATUS_DELETED );
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;
1536: AND LTRIM(RTRIM(status_code)) NOT IN ( G_JOB_STATUS_CANCELLED, G_JOB_STATUS_DELETED );
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:
1547: FROM AHL_VISIT_TASKS_B
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;
1559: OPEN validate_subinventory(p_prd_workorder_rec.organization_id, p_prd_workorder_rec.Completion_subinventory);
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;
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;
1569: CLOSE validate_subinventory;
1570: END IF;
1575: INTO l_dummy_ctr
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:
1582: END IF;
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');
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;
1592: END IF;
1593:
1594: IF p_prd_workorder_rec.mr_route_id IS not NULL OR
1598: FROM AHL_MR_ROUTES_V -- Chnaged from AHL_MR_ROUTES to be Application Usage complaint.
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:
1605: END IF;
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
1618: AND TRUNC(NVL(a.active_end_date,SYSDATE+1))
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:
1625: END IF;
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;
1637: p_prd_workorder_rec.hold_reason_code<>FND_API.G_MISS_CHAR THEN
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;
1645: END IF;
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;
1712: -- check if another record exists.
1713: FETCH get_res_dept_csr INTO l_department_id, l_department_name;
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;
1713: FETCH get_res_dept_csr INTO l_department_id, l_department_name;
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: */
1729: -- check if another record exists.
1730: FETCH get_res_dept_csr INTO l_department_id, l_department_name;
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;
1730: FETCH get_res_dept_csr INTO l_department_id, l_department_name;
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
2771: -- Validate workorder status before deleting its resources
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:
3532: p_x_operations_tbl( l_count ).scheduled_end_date := p_workorder_rec.scheduled_end_date;
3533: p_x_operations_tbl( l_count ).status_code := G_OP_STATUS_UNCOMPLETE;
3534: p_x_operations_tbl( l_count ).propagate_flag := 'N';
3535:
3536: FND_MESSAGE.set_name('AHL','AHL_PRD_BLANK_OPERATION');
3537: l_blank_operation_txt := FND_MESSAGE.get;
3538: p_x_operations_tbl( l_count ).operation_description := NVL(SUBSTRB(RTRIM(l_blank_operation_txt),1,80),'Blank Operation');
3539:
3540: p_x_operations_tbl( l_count ).dml_operation := 'C';
3533: p_x_operations_tbl( l_count ).status_code := G_OP_STATUS_UNCOMPLETE;
3534: p_x_operations_tbl( l_count ).propagate_flag := 'N';
3535:
3536: FND_MESSAGE.set_name('AHL','AHL_PRD_BLANK_OPERATION');
3537: l_blank_operation_txt := FND_MESSAGE.get;
3538: p_x_operations_tbl( l_count ).operation_description := NVL(SUBSTRB(RTRIM(l_blank_operation_txt),1,80),'Blank Operation');
3539:
3540: p_x_operations_tbl( l_count ).dml_operation := 'C';
3541:
4901: FETCH get_wo_status INTO l_wo_status_code, l_workorder_name, l_wo_status;
4902: CLOSE get_wo_status;
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;
4902: CLOSE get_wo_status;
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;
4937: FROM fnd_lookup_values_vl
4938: WHERE lookup_type = 'AHL_JOB_STATUS'
4939: AND LOOKUP_CODE = p_x_prd_workorder_rec.status_code;
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;
4938: WHERE lookup_type = 'AHL_JOB_STATUS'
4939: AND LOOKUP_CODE = p_x_prd_workorder_rec.status_code;
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;
4939: AND LOOKUP_CODE = p_x_prd_workorder_rec.status_code;
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;
4959: OPEN get_wo_status(p_x_prd_workorder_rec.workorder_id);
4960: FETCH get_wo_status INTO l_wo_status_code, l_workorder_name, l_wo_status;
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
4960: FETCH get_wo_status INTO l_wo_status_code, l_workorder_name, l_wo_status;
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);
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;
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:
5128: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' Atleast one material requirement is AOG for workorder - ' || P_X_PRD_WORKORDER_REC.WORKORDER_ID);
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;
5180: p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER := p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER + 1;
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:
5441: l_prim_uom_code := AHL_LTP_MTL_REQ_PVT.Get_Primary_UOM(l_material_tbl(k).inventory_item_id, l_material_tbl(k).organization_id);
5442: l_prim_quantity := AHL_LTP_MTL_REQ_PVT.Get_Primary_UOM_Qty(l_material_tbl(k).inventory_item_id, l_material_tbl(k).uom_code, l_material_tbl(k).requested_quantity);
5443: -- Required to check the UOM Conversion exists in mtl_units_of_measure
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;
5442: l_prim_quantity := AHL_LTP_MTL_REQ_PVT.Get_Primary_UOM_Qty(l_material_tbl(k).inventory_item_id, l_material_tbl(k).uom_code, l_material_tbl(k).requested_quantity);
5443: -- Required to check the UOM Conversion exists in mtl_units_of_measure
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
5443: -- Required to check the UOM Conversion exists in mtl_units_of_measure
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;
6159: /* Jun 3 2011: date validation commented out
6160: IF ( l_wo_sch_start_date < l_visit_start_date OR
6161: l_wo_sch_end_date > l_visit_end_date ) THEN
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;
6160: IF ( l_wo_sch_start_date < l_visit_start_date OR
6161: l_wo_sch_end_date > l_visit_end_date ) THEN
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; */
6161: l_wo_sch_end_date > l_visit_end_date ) THEN
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:
6325: FOR i IN p_x_prd_workorder_tbl.FIRST..p_x_prd_workorder_tbl.LAST LOOP
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:
6332: END IF;
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:
6358: -- rroy - post 11.5.10
6359: -- visits without any tasks and therefore without any relations
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
6359: -- visits without any tasks and therefore without any relations
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;
7151: l_stg_workorder_rec.department_name;
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;
7512: ( p_unit_effectivity_id IS NULL OR
7513: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
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;
7513: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
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:
7543: l_wip_entity_id,
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;
7563: p_item_instance_id => NULL);
7564:
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;
7564:
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:
7599: p_item_instance_id => NULL);
7600:
7601: IF l_return_status = FND_API.G_TRUE THEN
7602: IF l_mwo_flag <> 'Y' THEN
7603: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_RLS_UNTLCKD');
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);
7601: IF l_return_status = FND_API.G_TRUE THEN
7602: IF l_mwo_flag <> 'Y' THEN
7603: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_RLS_UNTLCKD');
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;
7603: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_RLS_UNTLCKD');
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
7636: l_wo_name,
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;
7663: p_item_instance_id => NULL);
7664:
7665: IF l_return_status = FND_API.G_TRUE THEN
7666: IF l_mwo_flag <> 'Y' THEN
7667: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
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);
7665: IF l_return_status = FND_API.G_TRUE THEN
7666: IF l_mwo_flag <> 'Y' THEN
7667: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
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;
7667: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
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
7699: p_item_instance_id => NULL);
7700:
7701: IF l_return_status = FND_API.G_TRUE THEN
7702: IF l_master_wo_flag <> 'Y' THEN
7703: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
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);
7701: IF l_return_status = FND_API.G_TRUE THEN
7702: IF l_master_wo_flag <> 'Y' THEN
7703: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
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;
7703: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
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
7736: p_visit_id => NULL,
7737: p_item_instance_id => NULL);
7738: IF l_return_status = FND_API.G_TRUE THEN
7739: IF l_mwo_flag <> 'Y' THEN
7740: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
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);
7738: IF l_return_status = FND_API.G_TRUE THEN
7739: IF l_mwo_flag <> 'Y' THEN
7740: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
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;
7740: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
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
7772: l_wip_entity_id,
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;
7798: p_visit_id => NULL,
7799: p_item_instance_id => NULL);
7800: IF l_return_status = FND_API.G_TRUE THEN
7801: IF l_mwo_flag <> 'Y' THEN
7802: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
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);
7800: IF l_return_status = FND_API.G_TRUE THEN
7801: IF l_mwo_flag <> 'Y' THEN
7802: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
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;
7802: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
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
7831: p_ue_id => NULL,
7832: p_visit_id => NULL,
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;
7832: p_visit_id => NULL,
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
7871: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
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
8059: ( p_unit_effectivity_id IS NULL OR
8060: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
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;
8060: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
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:
8083:
8084: FOR visit_csr IN get_visit_child_wos( p_visit_id ) LOOP
8085:
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;
8084: FOR visit_csr IN get_visit_child_wos( p_visit_id ) LOOP
8085:
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:
8085:
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;
8137:
8138: IF ( l_match_found = TRUE ) THEN
8139: l_match_found := FALSE;
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;
8138: IF ( l_match_found = TRUE ) THEN
8139: l_match_found := FALSE;
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;
8139: l_match_found := FALSE;
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: */
8170:
8171: IF ( l_match_found = TRUE ) THEN
8172: l_match_found := FALSE;
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;
8171: IF ( l_match_found = TRUE ) THEN
8172: l_match_found := FALSE;
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;
8172: l_match_found := FALSE;
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;
8204: -- may need to be added accordingly
8205:
8206: /*
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;
8205:
8206: /*
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: */
8206: /*
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;
8660: END IF;
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:
8672: ( p_unit_effectivity_id IS NULL OR
8673: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
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;
8673: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
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:
8726: l_wo_name,
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;
8741: p_ue_id => NULL,
8742: p_visit_id => NULL,
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;
8742: p_visit_id => NULL,
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
8762: FROM fnd_lookup_values_vl
8763: WHERE lookup_type = 'AHL_JOB_STATUS'
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;
8763: WHERE lookup_type = 'AHL_JOB_STATUS'
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:
8862: p_visit_id => NULL,
8863: p_item_instance_id => NULL);
8864: IF l_return_status = FND_API.G_TRUE THEN
8865: IF l_mwo_flag <> 'Y' THEN
8866: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_CNCL_UNTLCKD');
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);
8864: IF l_return_status = FND_API.G_TRUE THEN
8865: IF l_mwo_flag <> 'Y' THEN
8866: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_CNCL_UNTLCKD');
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;
8866: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_CNCL_UNTLCKD');
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
8885: IF l_mwo_flag = 'N' THEN
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:
8959: l_wo_name,
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;
8974: p_visit_id => NULL,
8975: p_item_instance_id => NULL);
8976: IF l_return_status = FND_API.G_TRUE THEN
8977: IF l_master_wo_flag <> 'Y' THEN
8978: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
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);
8976: IF l_return_status = FND_API.G_TRUE THEN
8977: IF l_master_wo_flag <> 'Y' THEN
8978: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
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;
8978: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
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
8997: FROM fnd_lookup_values_vl
8998: WHERE lookup_type = 'AHL_JOB_STATUS'
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;
8998: WHERE lookup_type = 'AHL_JOB_STATUS'
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:
9024: p_visit_id => NULL,
9025: p_item_instance_id => NULL);
9026: IF l_return_status = FND_API.G_TRUE THEN
9027: IF l_mwo_flag <> 'Y' THEN
9028: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
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);
9026: IF l_return_status = FND_API.G_TRUE THEN
9027: IF l_mwo_flag <> 'Y' THEN
9028: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
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;
9028: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
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
9047: IF l_mwo_flag = 'N' THEN
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;
9171: p_visit_id => NULL,
9172: p_item_instance_id => NULL);
9173: IF l_return_status = FND_API.G_TRUE THEN
9174: IF l_mwo_flag <> 'Y' THEN
9175: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
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);
9173: IF l_return_status = FND_API.G_TRUE THEN
9174: IF l_mwo_flag <> 'Y' THEN
9175: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
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;
9175: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
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
9319: l_wip_entity_id,
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;
9331: p_ue_id => NULL,
9332: p_visit_id => NULL,
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;
9332: p_visit_id => NULL,
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
9343: CLOSE get_wo;
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:
9360: FROM fnd_lookup_values_vl
9361: WHERE lookup_type = 'AHL_JOB_STATUS'
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;
9361: WHERE lookup_type = 'AHL_JOB_STATUS'
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:
9446: p_visit_id => NULL,
9447: p_item_instance_id => NULL);
9448: IF l_return_status = FND_API.G_TRUE THEN
9449: IF l_mwo_flag <> 'Y' THEN
9450: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
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);
9448: IF l_return_status = FND_API.G_TRUE THEN
9449: IF l_mwo_flag <> 'Y' THEN
9450: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
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;
9450: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
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
10098: ---Begin of the Validation
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;
10118:
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
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
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;
10141: rescheduling should be prevented.
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;
10155: get_minmax_comp_schdates_rec.min_end_date;
10156: IF(get_minmax_comp_schedule_dates%FOUND)THEN
10157: IF(get_minmax_comp_schdates_rec.max_start_date < p_x_scheduled_start_date OR
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;
10156: IF(get_minmax_comp_schedule_dates%FOUND)THEN
10157: IF(get_minmax_comp_schdates_rec.max_start_date < p_x_scheduled_start_date OR
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;
10157: IF(get_minmax_comp_schdates_rec.max_start_date < p_x_scheduled_start_date OR
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;
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;
10452: END IF;
10453: RAISE Fnd_Api.g_exc_error;
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;
10452: END IF;
10453: RAISE Fnd_Api.g_exc_error;
10454:
10579: -- Insert notes
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: (
10592: END IF;
10593: END IF;
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
10593: END IF;
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: (
10606: END IF;
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: (
10619: END IF;
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;
10635: END IF;
10636: END LOOP;
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;
10636: END LOOP;
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:
10642: END IF;
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:
10829:
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;
11214: -- check workorder statuses
11215: OPEN wo_status_csr(p_visit_id);
11216: FETCH wo_status_csr INTO l_dummy;
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';
11216: FETCH wo_status_csr INTO l_dummy;
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;
11227:
11228: OPEN op_complete_csr(p_visit_id);
11229: FETCH op_complete_csr INTO l_dummy;
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';
11228: OPEN op_complete_csr(p_visit_id);
11229: FETCH op_complete_csr INTO l_dummy;
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;
11240:
11241: OPEN part_chg_txn_csr(p_visit_id);
11242: FETCH part_chg_txn_csr INTO l_dummy;
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';
11241: OPEN part_chg_txn_csr(p_visit_id);
11242: FETCH part_chg_txn_csr INTO l_dummy;
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;
11253:
11254: OPEN wo_material_csr(p_visit_id);
11255: FETCH wo_material_csr INTO mtl_rec;
11256: IF wo_material_csr%FOUND THEN
11257: Fnd_Message.SET_NAME('AHL','AHL_PRD_CNT_CANCEL_VST_WOMTXN');
11258: --All issued material is not returned. Cannot cancel Visit
11259: Fnd_Message.Set_Token('VISIT',p_visit_number);
11260: -- get inv segments.
11261: BEGIN
11255: FETCH wo_material_csr INTO mtl_rec;
11256: IF wo_material_csr%FOUND THEN
11257: Fnd_Message.SET_NAME('AHL','AHL_PRD_CNT_CANCEL_VST_WOMTXN');
11258: --All issued material is not returned. Cannot cancel Visit
11259: Fnd_Message.Set_Token('VISIT',p_visit_number);
11260: -- get inv segments.
11261: BEGIN
11262: SELECT concatenated_segments INTO l_inv_segments
11263: FROM mtl_system_items_kfv
11268: WHEN NO_DATA_FOUND THEN
11269: null;
11270: END;
11271:
11272: Fnd_Message.Set_Token('INV_ITEM', l_inv_segments);
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);
11269: null;
11270: END;
11271:
11272: Fnd_Message.Set_Token('INV_ITEM', l_inv_segments);
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;
11270: END;
11271:
11272: Fnd_Message.Set_Token('INV_ITEM', l_inv_segments);
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';
11271:
11272: Fnd_Message.Set_Token('INV_ITEM', l_inv_segments);
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;
11272: Fnd_Message.Set_Token('INV_ITEM', l_inv_segments);
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;
11283:
11284: OPEN resource_txn_csr(p_visit_id);
11285: FETCH resource_txn_csr INTO l_dummy;
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';
11285: FETCH resource_txn_csr INTO l_dummy;
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;
11296:
11297: OPEN item_chg_txn_csr(p_visit_id);
11298: FETCH item_chg_txn_csr INTO l_dummy;
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';
11298: FETCH item_chg_txn_csr INTO l_dummy;
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;
11457: );
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:
11463: RAISE FND_API.G_EXC_ERROR;
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:
11469: RAISE FND_API.G_EXC_ERROR;
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:
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
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:
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
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:
11522: object_version_number = mwo_rec.ovn+1
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;
11557: object_version_number = l_obj_ver_no+1
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:
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;
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;
12197: --Assign current values
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;
12215: END IF;
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;
12238: --OPEN Get_Lkp_Meaning(l_hold_reason_code,'AHL_PRD_WO_HOLD_REASON');
12239: OPEN Get_Lkp_Meaning(p_hold_reason_code,'AHL_PRD_WO_HOLD_REASON');
12240: FETCH Get_Lkp_Meaning INTO l_hold_reason;
12241: CLOSE Get_Lkp_Meaning;
12242: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG_TO_HLD');
12243: fnd_message.set_token('FROM_STS',l_old_status);
12244: fnd_message.set_token('TO_STS',l_new_status);
12245: fnd_message.set_token('REASON',l_hold_reason);
12246: ELSE
12239: OPEN Get_Lkp_Meaning(p_hold_reason_code,'AHL_PRD_WO_HOLD_REASON');
12240: FETCH Get_Lkp_Meaning INTO l_hold_reason;
12241: CLOSE Get_Lkp_Meaning;
12242: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG_TO_HLD');
12243: fnd_message.set_token('FROM_STS',l_old_status);
12244: fnd_message.set_token('TO_STS',l_new_status);
12245: fnd_message.set_token('REASON',l_hold_reason);
12246: ELSE
12247: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG');
12240: FETCH Get_Lkp_Meaning INTO l_hold_reason;
12241: CLOSE Get_Lkp_Meaning;
12242: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG_TO_HLD');
12243: fnd_message.set_token('FROM_STS',l_old_status);
12244: fnd_message.set_token('TO_STS',l_new_status);
12245: fnd_message.set_token('REASON',l_hold_reason);
12246: ELSE
12247: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG');
12248: fnd_message.set_token('FROM_STS',l_old_status);
12241: CLOSE Get_Lkp_Meaning;
12242: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG_TO_HLD');
12243: fnd_message.set_token('FROM_STS',l_old_status);
12244: fnd_message.set_token('TO_STS',l_new_status);
12245: fnd_message.set_token('REASON',l_hold_reason);
12246: ELSE
12247: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG');
12248: fnd_message.set_token('FROM_STS',l_old_status);
12249: fnd_message.set_token('TO_STS',l_new_status);
12243: fnd_message.set_token('FROM_STS',l_old_status);
12244: fnd_message.set_token('TO_STS',l_new_status);
12245: fnd_message.set_token('REASON',l_hold_reason);
12246: ELSE
12247: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG');
12248: fnd_message.set_token('FROM_STS',l_old_status);
12249: fnd_message.set_token('TO_STS',l_new_status);
12250: END IF;
12251: l_insert_flag := 'Y';
12244: fnd_message.set_token('TO_STS',l_new_status);
12245: fnd_message.set_token('REASON',l_hold_reason);
12246: ELSE
12247: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG');
12248: fnd_message.set_token('FROM_STS',l_old_status);
12249: fnd_message.set_token('TO_STS',l_new_status);
12250: END IF;
12251: l_insert_flag := 'Y';
12252: END IF;
12245: fnd_message.set_token('REASON',l_hold_reason);
12246: ELSE
12247: fnd_message.set_name('AHL','AHL_PRD_WO_STS_CHG');
12248: fnd_message.set_token('FROM_STS',l_old_status);
12249: fnd_message.set_token('TO_STS',l_new_status);
12250: END IF;
12251: l_insert_flag := 'Y';
12252: END IF;
12253: ELSE
12261: 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;
12276: --Get New Status Code
12277: OPEN Get_Lkp_Meaning(p_new_status_code,'AHL_OPERATION_STATUS');
12278: FETCH Get_Lkp_Meaning INTO l_new_status;
12279: CLOSE Get_Lkp_Meaning;
12280: fnd_message.set_name('AHL','AHL_PRD_WO_OP_STS_CHG');
12281: fnd_message.set_token('OP_SEQ',l_operation_seq_num);
12282: fnd_message.set_token('FROM_STS',l_old_status);
12283: fnd_message.set_token('TO_STS',l_new_status);
12284: l_insert_flag := 'Y';
12277: OPEN Get_Lkp_Meaning(p_new_status_code,'AHL_OPERATION_STATUS');
12278: FETCH Get_Lkp_Meaning INTO l_new_status;
12279: CLOSE Get_Lkp_Meaning;
12280: fnd_message.set_name('AHL','AHL_PRD_WO_OP_STS_CHG');
12281: fnd_message.set_token('OP_SEQ',l_operation_seq_num);
12282: fnd_message.set_token('FROM_STS',l_old_status);
12283: fnd_message.set_token('TO_STS',l_new_status);
12284: l_insert_flag := 'Y';
12285: END IF;
12278: FETCH Get_Lkp_Meaning INTO l_new_status;
12279: CLOSE Get_Lkp_Meaning;
12280: fnd_message.set_name('AHL','AHL_PRD_WO_OP_STS_CHG');
12281: fnd_message.set_token('OP_SEQ',l_operation_seq_num);
12282: fnd_message.set_token('FROM_STS',l_old_status);
12283: fnd_message.set_token('TO_STS',l_new_status);
12284: l_insert_flag := 'Y';
12285: END IF;
12286: END IF; -- if workorder_op_id null check.
12279: CLOSE Get_Lkp_Meaning;
12280: fnd_message.set_name('AHL','AHL_PRD_WO_OP_STS_CHG');
12281: fnd_message.set_token('OP_SEQ',l_operation_seq_num);
12282: fnd_message.set_token('FROM_STS',l_old_status);
12283: fnd_message.set_token('TO_STS',l_new_status);
12284: l_insert_flag := 'Y';
12285: END IF;
12286: END IF; -- if workorder_op_id null check.
12287: IF(l_insert_flag = 'Y') THEN
12284: l_insert_flag := 'Y';
12285: END IF;
12286: END IF; -- if workorder_op_id null check.
12287: IF(l_insert_flag = 'Y') THEN
12288: l_notes := fnd_message.get;
12289: /*l_turnover_notes_tbl(0).source_object_id := l_workorder_id;
12290: l_turnover_notes_tbl(0).source_object_code := 'AHL_WO_TURNOVER_NOTES';
12291: l_turnover_notes_tbl(0).employee_id := l_emp_id;
12292: l_turnover_notes_tbl(0).employee_name := l_emp_name;
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');
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
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.
12476: FND_MSG_PUB.ADD;
12477: RAISE FND_API.G_EXC_ERROR;
12478: END IF;
12479: --Get Meaning From Code for old instance routing
12489: CLOSE Get_Meaning_From_Code;
12490: END IF;
12491: IF (p_old_inst_rtng IS NOT NULL AND p_new_inst_rtng IS NOT NULL) THEN
12492: --Update Mode
12493: fnd_message.set_name('AHL','AHL_CAM_UPD_INST_RTNG');
12494: fnd_message.set_token('OLD_RTNG',l_old_inst_rtng_meaning);
12495: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12496: ELSIF(p_old_inst_rtng IS NULL AND p_new_inst_rtng IS NOT NULL) THEN
12497: --Create Mode
12490: END IF;
12491: IF (p_old_inst_rtng IS NOT NULL AND p_new_inst_rtng IS NOT NULL) THEN
12492: --Update Mode
12493: fnd_message.set_name('AHL','AHL_CAM_UPD_INST_RTNG');
12494: fnd_message.set_token('OLD_RTNG',l_old_inst_rtng_meaning);
12495: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12496: ELSIF(p_old_inst_rtng IS NULL AND p_new_inst_rtng IS NOT NULL) THEN
12497: --Create Mode
12498: fnd_message.set_name('AHL','AHL_CAM_NEW_INST_RTNG');
12491: IF (p_old_inst_rtng IS NOT NULL AND p_new_inst_rtng IS NOT NULL) THEN
12492: --Update Mode
12493: fnd_message.set_name('AHL','AHL_CAM_UPD_INST_RTNG');
12494: fnd_message.set_token('OLD_RTNG',l_old_inst_rtng_meaning);
12495: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12496: ELSIF(p_old_inst_rtng IS NULL AND p_new_inst_rtng IS NOT NULL) THEN
12497: --Create Mode
12498: fnd_message.set_name('AHL','AHL_CAM_NEW_INST_RTNG');
12499: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12494: fnd_message.set_token('OLD_RTNG',l_old_inst_rtng_meaning);
12495: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12496: ELSIF(p_old_inst_rtng IS NULL AND p_new_inst_rtng IS NOT NULL) THEN
12497: --Create Mode
12498: fnd_message.set_name('AHL','AHL_CAM_NEW_INST_RTNG');
12499: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12500: ELSIF(p_old_inst_rtng IS NOT NULL AND p_new_inst_rtng IS NULL) THEN
12501: --Delete Mode
12502: fnd_message.set_name('AHL','AHL_CAM_DEL_INST_RTNG');
12495: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12496: ELSIF(p_old_inst_rtng IS NULL AND p_new_inst_rtng IS NOT NULL) THEN
12497: --Create Mode
12498: fnd_message.set_name('AHL','AHL_CAM_NEW_INST_RTNG');
12499: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12500: ELSIF(p_old_inst_rtng IS NOT NULL AND p_new_inst_rtng IS NULL) THEN
12501: --Delete Mode
12502: fnd_message.set_name('AHL','AHL_CAM_DEL_INST_RTNG');
12503: fnd_message.set_token('OLD_RTNG',l_old_inst_rtng_meaning);
12498: fnd_message.set_name('AHL','AHL_CAM_NEW_INST_RTNG');
12499: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12500: ELSIF(p_old_inst_rtng IS NOT NULL AND p_new_inst_rtng IS NULL) THEN
12501: --Delete Mode
12502: fnd_message.set_name('AHL','AHL_CAM_DEL_INST_RTNG');
12503: fnd_message.set_token('OLD_RTNG',l_old_inst_rtng_meaning);
12504: END IF;
12505: --Call JTF API to create Workorder Notes for instance routing
12506: l_notes := fnd_message.get;
12499: fnd_message.set_token('NEW_RTNG',l_new_inst_rtng_meaning);
12500: ELSIF(p_old_inst_rtng IS NOT NULL AND p_new_inst_rtng IS NULL) THEN
12501: --Delete Mode
12502: fnd_message.set_name('AHL','AHL_CAM_DEL_INST_RTNG');
12503: fnd_message.set_token('OLD_RTNG',l_old_inst_rtng_meaning);
12504: END IF;
12505: --Call JTF API to create Workorder Notes for instance routing
12506: l_notes := fnd_message.get;
12507: JTF_NOTES_PUB.Create_note
12502: fnd_message.set_name('AHL','AHL_CAM_DEL_INST_RTNG');
12503: fnd_message.set_token('OLD_RTNG',l_old_inst_rtng_meaning);
12504: END IF;
12505: --Call JTF API to create Workorder Notes for instance routing
12506: l_notes := fnd_message.get;
12507: JTF_NOTES_PUB.Create_note
12508: (
12509: p_api_version => 1.0,
12510: p_init_msg_list => FND_API.G_FALSE,
12708: L_CURT_STATUS := 'E';
12709: IF (G_LEVEL_STATEMENT >= G_CURRENT_LOG_LEVEL)THEN
12710: FND_LOG.STRING( G_LEVEL_STATEMENT, 'ahl.plsql.'||G_PKG_NAME||'.'|| L_API_NAME, L_WORKORDER_NAME || ' has status - ' || L_WORKORDER_STATUS);
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;
12709: IF (G_LEVEL_STATEMENT >= G_CURRENT_LOG_LEVEL)THEN
12710: FND_LOG.STRING( G_LEVEL_STATEMENT, 'ahl.plsql.'||G_PKG_NAME||'.'|| L_API_NAME, L_WORKORDER_NAME || ' has status - ' || L_WORKORDER_STATUS);
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:
12710: FND_LOG.STRING( G_LEVEL_STATEMENT, 'ahl.plsql.'||G_PKG_NAME||'.'|| L_API_NAME, L_WORKORDER_NAME || ' has status - ' || L_WORKORDER_STATUS);
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;
12815: ROLLBACK TO UPDATE_WO_AOG_STATUS;
12816: IF (G_LEVEL_STATEMENT >= G_CURRENT_LOG_LEVEL)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,
12816: IF (G_LEVEL_STATEMENT >= G_CURRENT_LOG_LEVEL)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,