[Home] [Help]
166:
167: OPEN get_workorder_rec(p_x_prd_workorder_rec.workorder_id);
168: FETCH get_workorder_rec INTO l_prd_workorder_rec;
169: IF get_workorder_rec%NOTFOUND THEN
170: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
171: FND_MSG_PUB.ADD;
172: CLOSE get_workorder_rec;
173: RETURN;
174: END IF;
739: WHERE lookup_type='WIP_EAM_ACTIVITY_PRIORITY'
740: AND lookup_code=p_x_prd_workorder_rec.job_priority;
741:
742: IF l_ctr=0 THEN
743: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PRIORITY_INVALID');
744: FND_MSG_PUB.ADD;
745: END IF;
746: END IF;
747:
757: OPEN get_department(p_x_prd_workorder_rec.Department_Name,p_x_prd_workorder_rec.Organization_id);
758: FETCH get_department INTO p_x_prd_workorder_rec.department_id;
759:
760: IF get_department%NOTFOUND THEN
761: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_DEPT_INVALID');
762: FND_MSG_PUB.ADD;
763: END IF;
764: CLOSE get_department;
765: END IF;
890: 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
891: OPEN get_hold_reason_code_csr(p_x_prd_workorder_rec.HOLD_REASON);
892: FETCH get_hold_reason_code_csr INTO p_x_prd_workorder_rec.HOLD_REASON_CODE;
893: IF get_hold_reason_code_csr%NOTFOUND THEN
894: FND_MESSAGE.SET_NAME('AHL','AHL_PP_REASON_INVALID');
895: FND_MSG_PUB.ADD;
896: END IF;
897: CLOSE get_hold_reason_code_csr;
898: END IF;
1093: OPEN get_wo_status(p_prd_workorder_rec.workorder_id);
1094: FETCH get_wo_status INTO l_wo_status_code, l_wo_status;
1095: CLOSE get_wo_status;
1096: IF l_wo_status_code IN ('22','7','12','4','5') THEN
1097: FND_MESSAGE.set_name('AHL','AHL_PRD_UPD_WO_STS');
1098: FND_MESSAGE.set_token('WO_STATUS', l_wo_status);
1099: FND_MSG_PUB.add;
1100: RAISE FND_API.G_EXC_ERROR;
1101: END IF; -- IF l_wo_status_code IN ('22','7','12','4','5') THEN
1094: FETCH get_wo_status INTO l_wo_status_code, l_wo_status;
1095: CLOSE get_wo_status;
1096: IF l_wo_status_code IN ('22','7','12','4','5') THEN
1097: FND_MESSAGE.set_name('AHL','AHL_PRD_UPD_WO_STS');
1098: FND_MESSAGE.set_token('WO_STATUS', l_wo_status);
1099: FND_MSG_PUB.add;
1100: RAISE FND_API.G_EXC_ERROR;
1101: END IF; -- IF l_wo_status_code IN ('22','7','12','4','5') THEN
1102: END IF; -- IF is_wo_updated = TRUE THEN
1110: p_visit_id => NULL,
1111: p_item_instance_id => p_prd_workorder_rec.item_instance_id);
1112: IF l_return_status = FND_API.G_TRUE THEN
1113: IF p_prd_workorder_rec.DML_OPERATION='C' THEN
1114: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CRT_WO_UNTLCKD');
1115: ELSE
1116: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UPD_WO_UNTLCKD');
1117: END IF;
1118: FND_MSG_PUB.ADD;
1112: IF l_return_status = FND_API.G_TRUE THEN
1113: IF p_prd_workorder_rec.DML_OPERATION='C' THEN
1114: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CRT_WO_UNTLCKD');
1115: ELSE
1116: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UPD_WO_UNTLCKD');
1117: END IF;
1118: FND_MSG_PUB.ADD;
1119: RAISE FND_API.G_EXC_ERROR;
1120: END IF;
1127: FROM WIP_EAM_PARAMETERS
1128: WHERE organization_id=p_prd_workorder_rec.ORGANIZATION_ID;
1129:
1130: IF l_dummy_ctr=0 THEN
1131: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_EAM_PREFIX_NOTSETUP');
1132: FND_MESSAGE.SET_TOKEN('ORG',p_prd_workorder_rec.ORGANIZATION_ID,false);
1133: FND_MSG_PUB.ADD;
1134: RETURN;
1135: END IF;
1128: WHERE organization_id=p_prd_workorder_rec.ORGANIZATION_ID;
1129:
1130: IF l_dummy_ctr=0 THEN
1131: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_EAM_PREFIX_NOTSETUP');
1132: FND_MESSAGE.SET_TOKEN('ORG',p_prd_workorder_rec.ORGANIZATION_ID,false);
1133: FND_MSG_PUB.ADD;
1134: RETURN;
1135: END IF;
1136: IF p_prd_workorder_rec.SCHEDULED_START_DATE IS NULL OR
1134: RETURN;
1135: END IF;
1136: IF p_prd_workorder_rec.SCHEDULED_START_DATE IS NULL OR
1137: p_prd_workorder_rec.SCHEDULED_START_DATE=FND_API.G_MISS_DATE THEN
1138: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHED_ST_DT_NULL');
1139: FND_MSG_PUB.ADD;
1140: END IF;
1141:
1142: IF p_prd_workorder_rec.SCHEDULED_END_DATE IS NULL OR
1140: END IF;
1141:
1142: IF p_prd_workorder_rec.SCHEDULED_END_DATE IS NULL OR
1143: p_prd_workorder_rec.SCHEDULED_END_DATE=FND_API.G_MISS_DATE THEN
1144: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHED_END_DT_NULL');
1145: FND_MSG_PUB.ADD;
1146: END IF;
1147:
1148: IF p_prd_workorder_rec.SCHEDULED_START_DATE IS NOT NULL AND
1150: p_prd_workorder_rec.SCHEDULED_END_DATE IS NOT NULL AND
1151: p_prd_workorder_rec.SCHEDULED_END_DATE<>FND_API.G_MISS_DATE THEN
1152:
1153: IF p_prd_workorder_rec.SCHEDULED_START_DATE > p_prd_workorder_rec.SCHEDULED_END_DATE THEN
1154: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHD_STDT_GT_SCHD_DATE');
1155: FND_MSG_PUB.ADD;
1156: END IF;
1157:
1158: IF p_prd_workorder_rec.VISIT_TASK_ID IS NOT NULL AND
1168: -- the workorder dates on the production ui's should be compared only with the visit master
1169: -- workorder dates
1170: IF ( p_prd_workorder_rec.SCHEDULED_START_DATE < l_visit_start_date OR
1171: p_prd_workorder_rec.SCHEDULED_END_DATE > l_visit_end_date ) THEN
1172: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHD_DT_EXCEEDS_VISIT');
1173: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR( l_visit_start_date, 'DD-MON-YYYY HH24:MI' ),false);
1174: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR( l_visit_end_date, 'DD-MON-YYYY HH24:MI' ),false);
1175: FND_MSG_PUB.ADD;
1176: END IF;
1169: -- workorder dates
1170: IF ( p_prd_workorder_rec.SCHEDULED_START_DATE < l_visit_start_date OR
1171: p_prd_workorder_rec.SCHEDULED_END_DATE > l_visit_end_date ) THEN
1172: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHD_DT_EXCEEDS_VISIT');
1173: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR( l_visit_start_date, 'DD-MON-YYYY HH24:MI' ),false);
1174: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR( l_visit_end_date, 'DD-MON-YYYY HH24:MI' ),false);
1175: FND_MSG_PUB.ADD;
1176: END IF;
1177: END IF;
1170: IF ( p_prd_workorder_rec.SCHEDULED_START_DATE < l_visit_start_date OR
1171: p_prd_workorder_rec.SCHEDULED_END_DATE > l_visit_end_date ) THEN
1172: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHD_DT_EXCEEDS_VISIT');
1173: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR( l_visit_start_date, 'DD-MON-YYYY HH24:MI' ),false);
1174: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR( l_visit_end_date, 'DD-MON-YYYY HH24:MI' ),false);
1175: FND_MSG_PUB.ADD;
1176: END IF;
1177: END IF;
1178:
1179: END IF;
1180:
1181: IF p_prd_workorder_rec.ORGANIZATION_ID IS NULL OR
1182: p_prd_workorder_rec.ORGANIZATION_ID=FND_API.G_MISS_NUM THEN
1183: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORGID_NULL');
1184: FND_MSG_PUB.ADD;
1185: ELSE
1186: OPEN validate_org(p_prd_workorder_rec.ORGANIZATION_ID);
1187: FETCH validate_org INTO l_org_rec;
1185: ELSE
1186: OPEN validate_org(p_prd_workorder_rec.ORGANIZATION_ID);
1187: FETCH validate_org INTO l_org_rec;
1188: IF validate_org%NOTFOUND THEN
1189: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORG_ID_INVALID');
1190: FND_MSG_PUB.ADD;
1191: ELSIF validate_org%FOUND AND l_org_rec.eam_enabled_flag='N' THEN
1192: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORG_ID_not_eam_enabled');
1193: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1188: IF validate_org%NOTFOUND THEN
1189: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORG_ID_INVALID');
1190: FND_MSG_PUB.ADD;
1191: ELSIF validate_org%FOUND AND l_org_rec.eam_enabled_flag='N' THEN
1192: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORG_ID_not_eam_enabled');
1193: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1194: FND_MSG_PUB.ADD;
1195: END IF;
1196: CLOSE validate_org;
1189: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORG_ID_INVALID');
1190: FND_MSG_PUB.ADD;
1191: ELSIF validate_org%FOUND AND l_org_rec.eam_enabled_flag='N' THEN
1192: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORG_ID_not_eam_enabled');
1193: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1194: FND_MSG_PUB.ADD;
1195: END IF;
1196: CLOSE validate_org;
1197: END IF;
1197: END IF;
1198:
1199: IF p_prd_workorder_rec.DEPARTMENT_ID IS NULL OR
1200: p_prd_workorder_rec.DEPARTMENT_ID=FND_API.G_MISS_NUM THEN
1201: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_DEPT_ID_NULL');
1202: FND_MSG_PUB.ADD;
1203: ELSE
1204: OPEN validate_dept(p_prd_workorder_rec.Department_id, p_prd_workorder_rec.Organization_id);
1205: FETCH validate_dept INTO l_dummy_ctr;
1203: ELSE
1204: OPEN validate_dept(p_prd_workorder_rec.Department_id, p_prd_workorder_rec.Organization_id);
1205: FETCH validate_dept INTO l_dummy_ctr;
1206: IF validate_dept%NOTFOUND THEN
1207: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_DEPTID_INVALID');
1208: FND_MESSAGE.SET_TOKEN('TASK_JOB',l_record_str,false);
1209: FND_MESSAGE.SET_TOKEN('ORG',p_prd_workorder_rec.Organization_id,false);
1210: FND_MSG_PUB.ADD;
1211: END IF;
1204: OPEN validate_dept(p_prd_workorder_rec.Department_id, p_prd_workorder_rec.Organization_id);
1205: FETCH validate_dept INTO l_dummy_ctr;
1206: IF validate_dept%NOTFOUND THEN
1207: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_DEPTID_INVALID');
1208: FND_MESSAGE.SET_TOKEN('TASK_JOB',l_record_str,false);
1209: FND_MESSAGE.SET_TOKEN('ORG',p_prd_workorder_rec.Organization_id,false);
1210: FND_MSG_PUB.ADD;
1211: END IF;
1212: CLOSE validate_dept;
1205: FETCH validate_dept INTO l_dummy_ctr;
1206: IF validate_dept%NOTFOUND THEN
1207: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_DEPTID_INVALID');
1208: FND_MESSAGE.SET_TOKEN('TASK_JOB',l_record_str,false);
1209: FND_MESSAGE.SET_TOKEN('ORG',p_prd_workorder_rec.Organization_id,false);
1210: FND_MSG_PUB.ADD;
1211: END IF;
1212: CLOSE validate_dept;
1213: END IF;
1213: END IF;
1214:
1215: IF p_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL OR
1216: p_prd_workorder_rec.ITEM_INSTANCE_ID=FND_API.G_MISS_NUM THEN
1217: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ITMINSTID_NULL');
1218: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1219: FND_MSG_PUB.ADD;
1220: ELSE
1221: OPEN validate_item_instance(p_prd_workorder_rec.inventory_item_id, p_prd_workorder_rec.item_instance_id);
1214:
1215: IF p_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL OR
1216: p_prd_workorder_rec.ITEM_INSTANCE_ID=FND_API.G_MISS_NUM THEN
1217: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ITMINSTID_NULL');
1218: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1219: FND_MSG_PUB.ADD;
1220: ELSE
1221: OPEN validate_item_instance(p_prd_workorder_rec.inventory_item_id, p_prd_workorder_rec.item_instance_id);
1222: FETCH validate_item_instance INTO l_instance_rec;
1220: ELSE
1221: OPEN validate_item_instance(p_prd_workorder_rec.inventory_item_id, p_prd_workorder_rec.item_instance_id);
1222: FETCH validate_item_instance INTO l_instance_rec;
1223: IF validate_item_instance%NOTFOUND THEN
1224: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ITMINSTID_INVALID');
1225: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1226: FND_MSG_PUB.ADD;
1227: END IF;
1228: CLOSE validate_item_instance;
1221: OPEN validate_item_instance(p_prd_workorder_rec.inventory_item_id, p_prd_workorder_rec.item_instance_id);
1222: FETCH validate_item_instance INTO l_instance_rec;
1223: IF validate_item_instance%NOTFOUND THEN
1224: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ITMINSTID_INVALID');
1225: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1226: FND_MSG_PUB.ADD;
1227: END IF;
1228: CLOSE validate_item_instance;
1229: END IF;
1229: END IF;
1230:
1231: IF p_prd_workorder_rec.STATUS_CODE IS NULL OR
1232: p_prd_workorder_rec.STATUS_CODE=FND_API.G_MISS_CHAR THEN
1233: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_STATUS_CODE_INVALID');
1234: FND_MSG_PUB.ADD;
1235: ELSE
1236: OPEN get_lookup_type_code(p_prd_workorder_rec.STATUS_CODE,'AHL_JOB_STATUS');
1237: FETCH get_lookup_type_code INTO L_LOOKUP_CODE;
1235: ELSE
1236: OPEN get_lookup_type_code(p_prd_workorder_rec.STATUS_CODE,'AHL_JOB_STATUS');
1237: FETCH get_lookup_type_code INTO L_LOOKUP_CODE;
1238: IF get_lookup_type_code%NOTFOUND THEN
1239: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_STATUS_CODE_INVALID');
1240: FND_MSG_PUB.ADD;
1241: END IF;
1242: CLOSE get_lookup_type_code;
1243: END IF;
1247: IF (p_prd_workorder_rec.actual_start_date IS NULL OR
1248: p_prd_workorder_rec.actual_start_date=FND_API.G_MISS_DATE) AND
1249: (p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1250: p_prd_workorder_rec.actual_end_date IS NOT NULL) THEN
1251: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_START_DT_NULL');
1252: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1253: FND_MSG_PUB.ADD;
1254: END IF;
1255:
1248: p_prd_workorder_rec.actual_start_date=FND_API.G_MISS_DATE) AND
1249: (p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1250: p_prd_workorder_rec.actual_end_date IS NOT NULL) THEN
1251: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_START_DT_NULL');
1252: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1253: FND_MSG_PUB.ADD;
1254: END IF;
1255:
1256: IF p_prd_workorder_rec.actual_start_date IS NOT NULL AND
1257: p_prd_workorder_rec.actual_start_date<>FND_API.G_MISS_DATE AND
1258: p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1259: p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1260: p_prd_workorder_rec.actual_start_date > p_prd_workorder_rec.actual_end_date THEN
1261: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_ST_GT_SCHD_DATE');
1262: FND_MSG_PUB.ADD;
1263: END IF;
1264:
1265: IF p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1264:
1265: IF p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1266: p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1267: TRUNC(p_prd_workorder_rec.actual_end_date) > TRUNC( SYSDATE ) THEN
1268: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_END_GT_SYSDATE');
1269: FND_MSG_PUB.ADD;
1270: END IF;
1271:
1272: OPEN c_get_op_actual_dates(p_prd_workorder_rec.workorder_id);
1276: IF ( p_prd_workorder_rec.actual_start_date IS NOT NULL AND
1277: p_prd_workorder_rec.actual_start_date <> FND_API.G_MISS_DATE AND
1278: l_op_min_act_start_date IS NOT NULL AND
1279: p_prd_workorder_rec.actual_start_date > l_op_min_act_start_date ) THEN
1280: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_ST_DT' );
1281: FND_MSG_PUB.add;
1282: END IF;
1283:
1284: IF ( p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1284: IF ( p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1285: p_prd_workorder_rec.actual_end_date <> FND_API.G_MISS_DATE AND
1286: l_op_max_act_end_date IS NOT NULL AND
1287: p_prd_workorder_rec.actual_end_date < l_op_max_act_end_date ) THEN
1288: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_END_DT' );
1289: FND_MSG_PUB.add;
1290: END IF;
1291: IF p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_RELEASED AND
1292: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_UNRELEASED AND
1299: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_QA_PENDING AND
1300: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_DEFERRAL_PENDING AND
1301: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_DELETED AND
1302: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_CANCELLED THEN
1303: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_STATUS_NOT_VALIDINMOD');
1304: FND_MSG_PUB.ADD;
1305: END IF;
1306:
1307: IF p_prd_workorder_rec.WORKORDER_ID IS NULL OR
1305: END IF;
1306:
1307: IF p_prd_workorder_rec.WORKORDER_ID IS NULL OR
1308: p_prd_workorder_rec.WORKORDER_ID=FND_API.G_MISS_NUM THEN
1309: FND_MESSAGE.SET_NAME('AHL','AHL_WORKORDER_ID_NULL');
1310: FND_MSG_PUB.ADD;
1311: END IF;
1312:
1313: IF p_prd_workorder_rec.OBJECT_VERSION_NUMBER IS NULL OR
1311: END IF;
1312:
1313: IF p_prd_workorder_rec.OBJECT_VERSION_NUMBER IS NULL OR
1314: p_prd_workorder_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM THEN
1315: FND_MESSAGE.SET_NAME('AHL','OBJ_CANNOT_B_NULL');
1316: FND_MSG_PUB.ADD;
1317: END IF;
1318:
1319: SELECT COUNT(*)
1323: AND TRUNC(p_prd_workorder_rec.scheduled_start_date) BETWEEN
1324: TRUNC(period_start_date) AND TRUNC(NVL(schedule_CLOSE_date,SYSDATE+1));
1325:
1326: IF l_dummy_ctr=0 THEN
1327: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHEDSDTACCTPERIODINV');
1328: FND_MSG_PUB.ADD;
1329: END IF;
1330:
1331: ELSIF p_prd_workorder_rec.DML_OPERATION='C' THEN
1334: p_prd_workorder_rec.organization_id<>FND_API.G_MISS_NUM THEN
1335: OPEN validate_project(p_prd_workorder_rec.organization_id);
1336: FETCH validate_project INTO l_dummy_ctr;
1337: IF validate_project%NOTFOUND THEN
1338: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PROJECT_INVALID');
1339: FND_MESSAGE.SET_TOKEN('ORGID',l_record_str,false);
1340: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1341: FND_MSG_PUB.ADD;
1342: ELSIF p_prd_workorder_rec.Project_id IS not NULL AND
1335: OPEN validate_project(p_prd_workorder_rec.organization_id);
1336: FETCH validate_project INTO l_dummy_ctr;
1337: IF validate_project%NOTFOUND THEN
1338: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PROJECT_INVALID');
1339: FND_MESSAGE.SET_TOKEN('ORGID',l_record_str,false);
1340: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1341: FND_MSG_PUB.ADD;
1342: ELSIF p_prd_workorder_rec.Project_id IS not NULL AND
1343: p_prd_workorder_rec.Project_id<>FND_API.G_MISS_NUM THEN
1336: FETCH validate_project INTO l_dummy_ctr;
1337: IF validate_project%NOTFOUND THEN
1338: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PROJECT_INVALID');
1339: FND_MESSAGE.SET_TOKEN('ORGID',l_record_str,false);
1340: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1341: FND_MSG_PUB.ADD;
1342: ELSIF p_prd_workorder_rec.Project_id IS not NULL AND
1343: p_prd_workorder_rec.Project_id<>FND_API.G_MISS_NUM THEN
1344:
1351: WHERE project_id=p_prd_workorder_rec.PROJECT_ID
1352: AND org_id = mo_global.get_current_org_id();
1353:
1354: IF l_dummy_ctr=0 THEN
1355: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_project_id_invalid');
1356: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1357: FND_MSG_PUB.ADD;
1358: ELSIF l_dummy_ctr>0 THEN
1359: IF p_prd_workorder_rec.Project_task_id IS not NULL AND
1352: AND org_id = mo_global.get_current_org_id();
1353:
1354: IF l_dummy_ctr=0 THEN
1355: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_project_id_invalid');
1356: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1357: FND_MSG_PUB.ADD;
1358: ELSIF l_dummy_ctr>0 THEN
1359: IF p_prd_workorder_rec.Project_task_id IS not NULL AND
1360: p_prd_workorder_rec.Project_task_id<>FND_API.G_MISS_NUM THEN
1364: WHERE project_id=p_prd_workorder_rec.project_id
1365: AND task_id=p_prd_workorder_rec.project_task_id;
1366:
1367: IF l_dummy_ctr=0 THEN
1368: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PROJECT_TASKID_INVALID');
1369: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1370: FND_MSG_PUB.ADD;
1371: END IF;
1372: END IF;
1365: AND task_id=p_prd_workorder_rec.project_task_id;
1366:
1367: IF l_dummy_ctr=0 THEN
1368: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PROJECT_TASKID_INVALID');
1369: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1370: FND_MSG_PUB.ADD;
1371: END IF;
1372: END IF;
1373: END IF;
1376: END IF;
1377:
1378: IF ( p_prd_workorder_rec.Visit_id IS NULL OR
1379: p_prd_workorder_rec.Visit_id=FND_API.G_MISS_NUM ) THEN
1380: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITID_NULL');
1381: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1382: END IF;
1383:
1384: IF ( p_prd_workorder_rec.Master_workorder_flag IS NULL OR
1377:
1378: IF ( p_prd_workorder_rec.Visit_id IS NULL OR
1379: p_prd_workorder_rec.Visit_id=FND_API.G_MISS_NUM ) THEN
1380: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITID_NULL');
1381: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1382: END IF;
1383:
1384: IF ( p_prd_workorder_rec.Master_workorder_flag IS NULL OR
1385: p_prd_workorder_rec.Master_workorder_flag=FND_API.G_MISS_CHAR OR
1383:
1384: IF ( p_prd_workorder_rec.Master_workorder_flag IS NULL OR
1385: p_prd_workorder_rec.Master_workorder_flag=FND_API.G_MISS_CHAR OR
1386: p_prd_workorder_rec.Master_workorder_flag NOT IN ( 'Y' , 'N' ) ) THEN
1387: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_MWOFLAG_INVALID');
1388: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1389: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
1390: p_prd_workorder_rec.Visit_task_id=FND_API.G_MISS_NUM ) AND
1391: p_prd_workorder_rec.Master_workorder_flag = 'N' ) THEN
1384: IF ( p_prd_workorder_rec.Master_workorder_flag IS NULL OR
1385: p_prd_workorder_rec.Master_workorder_flag=FND_API.G_MISS_CHAR OR
1386: p_prd_workorder_rec.Master_workorder_flag NOT IN ( 'Y' , 'N' ) ) THEN
1387: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_MWOFLAG_INVALID');
1388: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1389: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
1390: p_prd_workorder_rec.Visit_task_id=FND_API.G_MISS_NUM ) AND
1391: p_prd_workorder_rec.Master_workorder_flag = 'N' ) THEN
1392: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITASKID_NULL');
1388: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1389: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
1390: p_prd_workorder_rec.Visit_task_id=FND_API.G_MISS_NUM ) AND
1391: p_prd_workorder_rec.Master_workorder_flag = 'N' ) THEN
1392: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITASKID_NULL');
1393: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1394: FND_MSG_PUB.ADD;
1395: END IF;
1396:
1389: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
1390: p_prd_workorder_rec.Visit_task_id=FND_API.G_MISS_NUM ) AND
1391: p_prd_workorder_rec.Master_workorder_flag = 'N' ) THEN
1392: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITASKID_NULL');
1393: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1394: FND_MSG_PUB.ADD;
1395: END IF;
1396:
1397: IF ( p_prd_workorder_rec.Visit_task_id IS NOT NULL AND
1403: WHERE visit_task_id=NVL(p_prd_workorder_rec.visit_task_id,0)
1404: AND LTRIM(RTRIM(status_code)) NOT IN ( G_JOB_STATUS_CANCELLED, G_JOB_STATUS_DELETED );
1405:
1406: IF l_dummy_ctr >0 THEN
1407: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVAL_CREATE_WORKORDER');
1408: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1409: FND_MSG_PUB.ADD;
1410: RETURN;
1411: END IF;
1404: AND LTRIM(RTRIM(status_code)) NOT IN ( G_JOB_STATUS_CANCELLED, G_JOB_STATUS_DELETED );
1405:
1406: IF l_dummy_ctr >0 THEN
1407: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVAL_CREATE_WORKORDER');
1408: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1409: FND_MSG_PUB.ADD;
1410: RETURN;
1411: END IF;
1412:
1415: FROM AHL_VISIT_TASKS_B
1416: WHERE visit_task_id=p_prd_workorder_rec.visit_task_id;
1417:
1418: IF l_dummy_ctr=0 THEN
1419: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_visit_task_invalid');
1420: FND_MSG_PUB.ADD;
1421: END IF;
1422:
1423: END IF;
1427: OPEN validate_subinventory(p_prd_workorder_rec.organization_id, p_prd_workorder_rec.Completion_subinventory);
1428: FETCH validate_subinventory INTO l_subinv_rec;
1429: IF validate_subinventory%FOUND AND
1430: NVL(l_subinv_rec.eam_enabled_flag,'x')='N' THEN
1431: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1432: FND_MSG_PUB.ADD;
1433: ELSIF validate_subinventory%NOTFOUND THEN
1434: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1435: FND_MSG_PUB.ADD;
1430: NVL(l_subinv_rec.eam_enabled_flag,'x')='N' THEN
1431: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1432: FND_MSG_PUB.ADD;
1433: ELSIF validate_subinventory%NOTFOUND THEN
1434: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1435: FND_MSG_PUB.ADD;
1436: END IF;
1437: CLOSE validate_subinventory;
1438: END IF;
1443: INTO l_dummy_ctr
1444: FROM MTL_ITEM_LOCATIONS
1445: WHERE inventory_location_id=p_prd_workorder_rec.completion_locator_id;
1446: IF l_dummy_ctr =0 THEN
1447: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_COMPLSUBINV_INVALID');
1448: FND_MSG_PUB.ADD;
1449: END IF;
1450: END IF;
1451:
1450: END IF;
1451:
1452: IF p_prd_workorder_rec.Firm_planned_flag IS NULL OR
1453: p_prd_workorder_rec.Completion_locator_id=FND_API.G_MISS_NUM THEN
1454: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_FIRM_PLANNED_FLAG_NULL');
1455: FND_MSG_PUB.ADD;
1456: ELSIF p_prd_workorder_rec.Firm_planned_flag <1 AND
1457: p_prd_workorder_rec.Firm_planned_flag >2 THEN
1458: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_FIRM_PLANNED_FLAG_INV');
1454: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_FIRM_PLANNED_FLAG_NULL');
1455: FND_MSG_PUB.ADD;
1456: ELSIF p_prd_workorder_rec.Firm_planned_flag <1 AND
1457: p_prd_workorder_rec.Firm_planned_flag >2 THEN
1458: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_FIRM_PLANNED_FLAG_INV');
1459: FND_MSG_PUB.ADD;
1460: END IF;
1461:
1462: IF p_prd_workorder_rec.mr_route_id IS not NULL OR
1466: FROM AHL_MR_ROUTES_V -- Chnaged from AHL_MR_ROUTES to be Application Usage complaint.
1467: WHERE mr_route_id=p_prd_workorder_rec.mr_route_id;
1468:
1469: IF NVL(l_dummy_ctr,0)>1 OR NVL(l_dummy_ctr,0)=0 THEN
1470: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_MR_ROUTE_ID_INVLD');
1471: FND_MSG_PUB.ADD;
1472: END IF;
1473: END IF;
1474:
1473: END IF;
1474:
1475: IF p_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL OR
1476: p_prd_workorder_rec.ITEM_INSTANCE_ID=FND_API.G_MISS_NUM THEN
1477: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INSTANCE_ID_NULL');
1478: FND_MSG_PUB.ADD;
1479: ELSE
1480: SELECT COUNT(a.instance_id)
1481: INTO l_dummy_ctr
1486: AND TRUNC(NVL(a.active_end_date,SYSDATE+1))
1487: AND a.inventory_item_id=b.inventory_item_id;
1488:
1489: IF NVL(l_dummy_ctr,0)=0 THEN
1490: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVITEM_NOTACTIVE');
1491: FND_MSG_PUB.ADD;
1492: END IF;
1493: END IF;
1494:
1493: END IF;
1494:
1495: IF p_prd_workorder_rec.INVENTORY_ITEM_ID IS NULL OR
1496: p_prd_workorder_rec.INVENTORY_ITEM_ID=FND_API.G_MISS_NUM THEN
1497: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INV_ITEM_ID_NULL');
1498: FND_MSG_PUB.ADD;
1499: END IF;
1500:
1501: END IF;
1505: p_prd_workorder_rec.hold_reason_code<>FND_API.G_MISS_CHAR THEN
1506: OPEN validate_hold_reason_code_csr(p_prd_workorder_rec.hold_reason_code);
1507: FETCH validate_hold_reason_code_csr INTO l_dummy_ctr;
1508: IF validate_hold_reason_code_csr%NOTFOUND THEN
1509: FND_MESSAGE.SET_NAME('AHL','AHL_PP_REASON_INVALID');
1510: FND_MSG_PUB.ADD;
1511: END IF;
1512: CLOSE validate_hold_reason_code_csr;
1513: END IF;
1513: END IF;
1514:
1515: IF (p_prd_workorder_rec.status_code = '6' OR p_prd_workorder_rec.status_code = '19' )
1516: AND p_prd_workorder_rec.hold_reason_code IS NULL THEN
1517: FND_MESSAGE.SET_NAME('AHL','AHL_PP_REASON_NULL');
1518: FND_MSG_PUB.ADD;
1519: END IF;
1520:
1521: END validate_workorder;
1563: -- check if another record exists.
1564: FETCH get_res_dept_csr INTO l_department_id, l_department_name;
1565: IF (get_res_dept_csr%FOUND) THEN
1566: -- raise error
1567: FND_MESSAGE.set_name('AHL','AHL_DUPLICATE_DEPT_FOUND');
1568: FND_MESSAGE.set_token('DESC',p_aso_resc_name);
1569: FND_MSG_PUB.add;
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: END IF;
1564: FETCH get_res_dept_csr INTO l_department_id, l_department_name;
1565: IF (get_res_dept_csr%FOUND) THEN
1566: -- raise error
1567: FND_MESSAGE.set_name('AHL','AHL_DUPLICATE_DEPT_FOUND');
1568: FND_MESSAGE.set_token('DESC',p_aso_resc_name);
1569: FND_MSG_PUB.add;
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: END IF;
1572:
2730: p_x_operations_tbl( l_count ).scheduled_end_date := p_workorder_rec.scheduled_end_date;
2731: p_x_operations_tbl( l_count ).status_code := G_OP_STATUS_UNCOMPLETE;
2732: p_x_operations_tbl( l_count ).propagate_flag := 'N';
2733:
2734: FND_MESSAGE.set_name('AHL','AHL_PRD_BLANK_OPERATION');
2735: l_blank_operation_txt := FND_MESSAGE.get;
2736: p_x_operations_tbl( l_count ).operation_description := NVL(SUBSTR(RTRIM(l_blank_operation_txt),1,80),'Blank Operation');
2737:
2738: p_x_operations_tbl( l_count ).dml_operation := 'C';
2731: p_x_operations_tbl( l_count ).status_code := G_OP_STATUS_UNCOMPLETE;
2732: p_x_operations_tbl( l_count ).propagate_flag := 'N';
2733:
2734: FND_MESSAGE.set_name('AHL','AHL_PRD_BLANK_OPERATION');
2735: l_blank_operation_txt := FND_MESSAGE.get;
2736: p_x_operations_tbl( l_count ).operation_description := NVL(SUBSTR(RTRIM(l_blank_operation_txt),1,80),'Blank Operation');
2737:
2738: p_x_operations_tbl( l_count ).dml_operation := 'C';
2739:
3641: FETCH get_wo_status INTO l_wo_status_code, l_workorder_name, l_wo_status;
3642: CLOSE get_wo_status;
3643: -- Bug # 6680137 -- end
3644: IF l_wo_status_code IN ('22','7','12','4','5') THEN
3645: FND_MESSAGE.set_name('AHL','AHL_PRD_UPD_WO_STS');
3646: FND_MESSAGE.set_token('WO_STATUS', l_wo_status);
3647: FND_MSG_PUB.add;
3648: RAISE FND_API.G_EXC_ERROR;
3649: END IF;
3642: CLOSE get_wo_status;
3643: -- Bug # 6680137 -- end
3644: IF l_wo_status_code IN ('22','7','12','4','5') THEN
3645: FND_MESSAGE.set_name('AHL','AHL_PRD_UPD_WO_STS');
3646: FND_MESSAGE.set_token('WO_STATUS', l_wo_status);
3647: FND_MSG_PUB.add;
3648: RAISE FND_API.G_EXC_ERROR;
3649: END IF;
3650: END IF;
3677: FROM fnd_lookup_values_vl
3678: WHERE lookup_type = 'AHL_JOB_STATUS'
3679: AND LOOKUP_CODE = p_x_prd_workorder_rec.status_code;
3680: -- Bug # 6680137 -- end
3681: FND_MESSAGE.set_name('AHL','AHL_PRD_MAT_NOT_RETURN');
3682: FND_MESSAGE.set_token('WO_STATUS', l_status_meaning);
3683: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
3684: FND_MSG_PUB.add;
3685: RAISE FND_API.G_EXC_ERROR;
3678: WHERE lookup_type = 'AHL_JOB_STATUS'
3679: AND LOOKUP_CODE = p_x_prd_workorder_rec.status_code;
3680: -- Bug # 6680137 -- end
3681: FND_MESSAGE.set_name('AHL','AHL_PRD_MAT_NOT_RETURN');
3682: FND_MESSAGE.set_token('WO_STATUS', l_status_meaning);
3683: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
3684: FND_MSG_PUB.add;
3685: RAISE FND_API.G_EXC_ERROR;
3686: END IF;
3679: AND LOOKUP_CODE = p_x_prd_workorder_rec.status_code;
3680: -- Bug # 6680137 -- end
3681: FND_MESSAGE.set_name('AHL','AHL_PRD_MAT_NOT_RETURN');
3682: FND_MESSAGE.set_token('WO_STATUS', l_status_meaning);
3683: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
3684: FND_MSG_PUB.add;
3685: RAISE FND_API.G_EXC_ERROR;
3686: END IF;
3687: CLOSE chk_inst_in_job;
3803:
3804: p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER := p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER + 1;
3805:
3806: IF SQL%NOTFOUND THEN
3807: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
3808: FND_MSG_PUB.ADD;
3809: RAISE FND_API.G_EXC_ERROR;
3810: END IF;
3811:
4553: FOR i IN p_x_prd_workorder_tbl.FIRST..p_x_prd_workorder_tbl.LAST LOOP
4554:
4555: IF ( p_x_prd_workorder_tbl(i).batch_id IS NULL OR
4556: p_x_prd_workorder_tbl(i).batch_id = FND_API.G_MISS_NUM ) THEN
4557: FND_MESSAGE.set_name('AHL','AHL_PRD_BATCH_ID_NULL');
4558: FND_MSG_PUB.add;
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF;
4561:
4560: END IF;
4561:
4562: IF ( p_x_prd_workorder_tbl(i).header_id IS NULL OR
4563: p_x_prd_workorder_tbl(i).header_id = FND_API.G_MISS_NUM ) THEN
4564: FND_MESSAGE.set_name('AHL','AHL_PRD_HEADER_ID_NULL');
4565: FND_MSG_PUB.add;
4566: RAISE FND_API.G_EXC_ERROR;
4567: END IF;
4568:
4585: -- rroy - post 11.5.10
4586: -- visits without any tasks and therefore without any relations
4587: -- should be pushed to prod without errors
4588: /*IF ( l_wo_rel_rec_found = FALSE ) THEN
4589: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_REL_NOT_FOUND');
4590: FND_MESSAGE.set_token('RECORD', p_x_prd_workorder_tbl(i).header_id);
4591: FND_MSG_PUB.add;
4592: RAISE FND_API.G_EXC_ERROR;
4593: ELSE
4586: -- visits without any tasks and therefore without any relations
4587: -- should be pushed to prod without errors
4588: /*IF ( l_wo_rel_rec_found = FALSE ) THEN
4589: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_REL_NOT_FOUND');
4590: FND_MESSAGE.set_token('RECORD', p_x_prd_workorder_tbl(i).header_id);
4591: FND_MSG_PUB.add;
4592: RAISE FND_API.G_EXC_ERROR;
4593: ELSE
4594: l_wo_rel_rec_found := FALSE;
5083: ( p_unit_effectivity_id IS NULL OR
5084: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5085: ( p_visit_id IS NULL OR
5086: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5087: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5088: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5089: FND_MSG_PUB.add;
5090: RAISE FND_API.G_EXC_ERROR;
5091: END IF;
5084: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5085: ( p_visit_id IS NULL OR
5086: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5087: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5088: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5089: FND_MSG_PUB.add;
5090: RAISE FND_API.G_EXC_ERROR;
5091: END IF;
5092:
5114: l_wip_entity_id,
5115: l_wo_name;
5116:
5117: IF ( get_visit_mwo%NOTFOUND ) THEN
5118: FND_MESSAGE.set_name('AHL','AHL_PRD_VISIT_MWO_NOT_FOUND');
5119: FND_MSG_PUB.add;
5120: CLOSE get_visit_mwo;
5121: RAISE FND_API.G_EXC_ERROR;
5122: END IF;
5134: p_item_instance_id => NULL);
5135:
5136:
5137: IF l_return_status = FND_API.G_TRUE THEN
5138: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
5139: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5140: FND_MSG_PUB.ADD;
5141: RAISE FND_API.G_EXC_ERROR;
5142: END IF;
5135:
5136:
5137: IF l_return_status = FND_API.G_TRUE THEN
5138: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
5139: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5140: FND_MSG_PUB.ADD;
5141: RAISE FND_API.G_EXC_ERROR;
5142: END IF;
5143:
5170: p_item_instance_id => NULL);
5171:
5172: IF l_return_status = FND_API.G_TRUE THEN
5173: IF l_mwo_flag <> 'Y' THEN
5174: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_RLS_UNTLCKD');
5175: ELSE
5176: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
5177: END IF;
5178: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
5172: IF l_return_status = FND_API.G_TRUE THEN
5173: IF l_mwo_flag <> 'Y' THEN
5174: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_RLS_UNTLCKD');
5175: ELSE
5176: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
5177: END IF;
5178: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
5179: FND_MSG_PUB.ADD;
5180: RAISE FND_API.G_EXC_ERROR;
5174: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_RLS_UNTLCKD');
5175: ELSE
5176: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
5177: END IF;
5178: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
5179: FND_MSG_PUB.ADD;
5180: RAISE FND_API.G_EXC_ERROR;
5181: END IF;
5182: -- rroy
5207: l_wo_name,
5208: l_master_wo_flag;
5209:
5210: IF ( get_ue_mwo%NOTFOUND ) THEN
5211: FND_MESSAGE.set_name('AHL','AHL_PRD_MR_MWO_NOT_FOUND');
5212: FND_MSG_PUB.add;
5213: CLOSE get_ue_mwo;
5214: RAISE FND_API.G_EXC_ERROR;
5215: END IF;
5234: p_item_instance_id => NULL);
5235:
5236: IF l_return_status = FND_API.G_TRUE THEN
5237: IF l_mwo_flag <> 'Y' THEN
5238: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5239: ELSE
5240: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5241: END IF;
5242: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
5236: IF l_return_status = FND_API.G_TRUE THEN
5237: IF l_mwo_flag <> 'Y' THEN
5238: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5239: ELSE
5240: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5241: END IF;
5242: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
5243: FND_MSG_PUB.ADD;
5244: RAISE FND_API.G_EXC_ERROR;
5238: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5239: ELSE
5240: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5241: END IF;
5242: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
5243: FND_MSG_PUB.ADD;
5244: RAISE FND_API.G_EXC_ERROR;
5245: END IF;
5246: -- rroy
5270: p_item_instance_id => NULL);
5271:
5272: IF l_return_status = FND_API.G_TRUE THEN
5273: IF l_master_wo_flag <> 'Y' THEN
5274: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5275: ELSE
5276: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5277: END IF;
5278: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5272: IF l_return_status = FND_API.G_TRUE THEN
5273: IF l_master_wo_flag <> 'Y' THEN
5274: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5275: ELSE
5276: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5277: END IF;
5278: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5279: FND_MSG_PUB.ADD;
5280: RAISE FND_API.G_EXC_ERROR;
5274: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5275: ELSE
5276: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5277: END IF;
5278: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5279: FND_MSG_PUB.ADD;
5280: RAISE FND_API.G_EXC_ERROR;
5281: END IF;
5282: -- rroy
5307: p_visit_id => NULL,
5308: p_item_instance_id => NULL);
5309: IF l_return_status = FND_API.G_TRUE THEN
5310: IF l_mwo_flag <> 'Y' THEN
5311: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5312: ELSE
5313: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5314: END IF;
5315: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
5309: IF l_return_status = FND_API.G_TRUE THEN
5310: IF l_mwo_flag <> 'Y' THEN
5311: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5312: ELSE
5313: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5314: END IF;
5315: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
5316: FND_MSG_PUB.ADD;
5317: RAISE FND_API.G_EXC_ERROR;
5311: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5312: ELSE
5313: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5314: END IF;
5315: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
5316: FND_MSG_PUB.ADD;
5317: RAISE FND_API.G_EXC_ERROR;
5318: END IF;
5319: -- rroy
5343: l_wip_entity_id,
5344: l_wo_name;
5345:
5346: IF ( get_wo%NOTFOUND ) THEN
5347: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_NOT_FOUND');
5348: FND_MSG_PUB.add;
5349: CLOSE get_wo;
5350: RAISE FND_API.G_EXC_ERROR;
5351: END IF;
5369: p_visit_id => NULL,
5370: p_item_instance_id => NULL);
5371: IF l_return_status = FND_API.G_TRUE THEN
5372: IF l_mwo_flag <> 'Y' THEN
5373: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
5374: ELSE
5375: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_RLS_UNTLCKD');
5376: END IF;
5377: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
5371: IF l_return_status = FND_API.G_TRUE THEN
5372: IF l_mwo_flag <> 'Y' THEN
5373: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
5374: ELSE
5375: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_RLS_UNTLCKD');
5376: END IF;
5377: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
5378: FND_MSG_PUB.ADD;
5379: RAISE FND_API.G_EXC_ERROR;
5373: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
5374: ELSE
5375: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_RLS_UNTLCKD');
5376: END IF;
5377: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
5378: FND_MSG_PUB.ADD;
5379: RAISE FND_API.G_EXC_ERROR;
5380: END IF;
5381: -- rroy
5402: p_ue_id => NULL,
5403: p_visit_id => NULL,
5404: p_item_instance_id => NULL);
5405: IF l_return_status = FND_API.G_TRUE THEN
5406: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
5407: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5408: FND_MSG_PUB.ADD;
5409: RAISE FND_API.G_EXC_ERROR;
5410: END IF;
5403: p_visit_id => NULL,
5404: p_item_instance_id => NULL);
5405: IF l_return_status = FND_API.G_TRUE THEN
5406: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
5407: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5408: FND_MSG_PUB.ADD;
5409: RAISE FND_API.G_EXC_ERROR;
5410: END IF;
5411: -- rroy
5442: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5443: RAISE FND_API.G_EXC_ERROR;
5444: END IF;
5445: ELSE
5446: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISIT_RELEASED');
5447: FND_MSG_PUB.ADD;
5448: RAISE FND_API.G_EXC_ERROR;
5449: END IF;
5450: IF FND_API.to_boolean(p_commit) THEN
5630: ( p_unit_effectivity_id IS NULL OR
5631: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5632: ( p_visit_id IS NULL OR
5633: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5634: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5635: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5636: FND_MSG_PUB.add;
5637: RAISE FND_API.G_EXC_ERROR;
5638: END IF;
5631: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5632: ( p_visit_id IS NULL OR
5633: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5634: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5635: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5636: FND_MSG_PUB.add;
5637: RAISE FND_API.G_EXC_ERROR;
5638: END IF;
5639:
5654:
5655: FOR visit_csr IN get_visit_child_wos( p_visit_id ) LOOP
5656:
5657: FOR dep_csr IN get_visit_dependencies( p_visit_id, visit_csr.wip_entity_id ) LOOP
5658: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5659: FND_MESSAGE.set_token('WO', visit_csr.workorder_name);
5660: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5661: FND_MSG_PUB.add;
5662: END LOOP;
5655: FOR visit_csr IN get_visit_child_wos( p_visit_id ) LOOP
5656:
5657: FOR dep_csr IN get_visit_dependencies( p_visit_id, visit_csr.wip_entity_id ) LOOP
5658: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5659: FND_MESSAGE.set_token('WO', visit_csr.workorder_name);
5660: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5661: FND_MSG_PUB.add;
5662: END LOOP;
5663:
5656:
5657: FOR dep_csr IN get_visit_dependencies( p_visit_id, visit_csr.wip_entity_id ) LOOP
5658: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5659: FND_MESSAGE.set_token('WO', visit_csr.workorder_name);
5660: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5661: FND_MSG_PUB.add;
5662: END LOOP;
5663:
5664: END LOOP;
5708:
5709: IF ( l_match_found = TRUE ) THEN
5710: l_match_found := FALSE;
5711: ELSE
5712: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5713: FND_MESSAGE.set_token('WO', l_workorder_name);
5714: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5715: FND_MSG_PUB.add;
5716: END IF;
5709: IF ( l_match_found = TRUE ) THEN
5710: l_match_found := FALSE;
5711: ELSE
5712: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5713: FND_MESSAGE.set_token('WO', l_workorder_name);
5714: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5715: FND_MSG_PUB.add;
5716: END IF;
5717: END LOOP;
5710: l_match_found := FALSE;
5711: ELSE
5712: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5713: FND_MESSAGE.set_token('WO', l_workorder_name);
5714: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5715: FND_MSG_PUB.add;
5716: END IF;
5717: END LOOP;
5718: */
5741:
5742: IF ( l_match_found = TRUE ) THEN
5743: l_match_found := FALSE;
5744: ELSE
5745: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5746: FND_MESSAGE.set_token('WO', l_child_wo_tbl(i).workorder_name);
5747: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5748: FND_MSG_PUB.add;
5749: END IF;
5742: IF ( l_match_found = TRUE ) THEN
5743: l_match_found := FALSE;
5744: ELSE
5745: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5746: FND_MESSAGE.set_token('WO', l_child_wo_tbl(i).workorder_name);
5747: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5748: FND_MSG_PUB.add;
5749: END IF;
5750: END LOOP;
5743: l_match_found := FALSE;
5744: ELSE
5745: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5746: FND_MESSAGE.set_token('WO', l_child_wo_tbl(i).workorder_name);
5747: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5748: FND_MSG_PUB.add;
5749: END IF;
5750: END LOOP;
5751: END LOOP;
5775: -- may need to be added accordingly
5776:
5777: /*
5778: FOR dep_csr IN get_wo_dependencies( l_wip_entity_id ) LOOP
5779: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5780: FND_MESSAGE.set_token('WO', l_workorder_name);
5781: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5782: FND_MSG_PUB.add;
5783: END LOOP;
5776:
5777: /*
5778: FOR dep_csr IN get_wo_dependencies( l_wip_entity_id ) LOOP
5779: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5780: FND_MESSAGE.set_token('WO', l_workorder_name);
5781: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5782: FND_MSG_PUB.add;
5783: END LOOP;
5784: */
5777: /*
5778: FOR dep_csr IN get_wo_dependencies( l_wip_entity_id ) LOOP
5779: FND_MESSAGE.set_name('AHL','AHL_PRD_DEP_WO_NOT_CMPL');
5780: FND_MESSAGE.set_token('WO', l_workorder_name);
5781: FND_MESSAGE.set_token('DEP_WO', dep_csr.workorder_name);
5782: FND_MSG_PUB.add;
5783: END LOOP;
5784: */
5785: END IF;
6226: END IF;
6227:
6228: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6229: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed = FND_API.G_FALSE THEN
6230: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6231: FND_MSG_PUB.add;
6232: RAISE FND_API.G_EXC_ERROR;
6233: END IF;
6234: -- Validate Inputs
6237: ( p_unit_effectivity_id IS NULL OR
6238: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
6239: ( p_visit_id IS NULL OR
6240: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
6241: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
6242: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
6243: FND_MSG_PUB.add;
6244: RAISE FND_API.G_EXC_ERROR;
6245: END IF;
6238: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
6239: ( p_visit_id IS NULL OR
6240: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
6241: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
6242: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
6243: FND_MSG_PUB.add;
6244: RAISE FND_API.G_EXC_ERROR;
6245: END IF;
6246:
6348: l_wip_entity_id,
6349: l_wo_name;
6350:
6351: IF ( get_visit_mwo%NOTFOUND ) THEN
6352: FND_MESSAGE.set_name('AHL','AHL_PRD_VISIT_MWO_NOT_FOUND');
6353: FND_MSG_PUB.add;
6354: CLOSE get_visit_mwo;
6355: RAISE FND_API.G_EXC_ERROR;
6356: END IF;
6363: p_ue_id => NULL,
6364: p_visit_id => NULL,
6365: p_item_instance_id => NULL);
6366: IF l_return_status = FND_API.G_TRUE THEN
6367: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
6368: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6369: FND_MSG_PUB.ADD;
6370: RAISE FND_API.G_EXC_ERROR;
6371: END IF;
6364: p_visit_id => NULL,
6365: p_item_instance_id => NULL);
6366: IF l_return_status = FND_API.G_TRUE THEN
6367: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
6368: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6369: FND_MSG_PUB.ADD;
6370: RAISE FND_API.G_EXC_ERROR;
6371: END IF;
6372:
6386: FROM fnd_lookup_values_vl
6387: WHERE lookup_type = 'AHL_JOB_STATUS'
6388: AND LOOKUP_CODE = l_status_code;
6389: --
6390: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_VISIT_STATUS');
6391: FND_MESSAGE.set_token('STATUS', l_status_meaning );
6392: FND_MSG_PUB.add;
6393: RAISE FND_API.G_EXC_ERROR;
6394: END IF;
6387: WHERE lookup_type = 'AHL_JOB_STATUS'
6388: AND LOOKUP_CODE = l_status_code;
6389: --
6390: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_VISIT_STATUS');
6391: FND_MESSAGE.set_token('STATUS', l_status_meaning );
6392: FND_MSG_PUB.add;
6393: RAISE FND_API.G_EXC_ERROR;
6394: END IF;
6395:
6413: p_visit_id => NULL,
6414: p_item_instance_id => NULL);
6415: IF l_return_status = FND_API.G_TRUE THEN
6416: IF l_mwo_flag <> 'Y' THEN
6417: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_CNCL_UNTLCKD');
6418: ELSE
6419: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
6420: END IF;
6421: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
6415: IF l_return_status = FND_API.G_TRUE THEN
6416: IF l_mwo_flag <> 'Y' THEN
6417: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_CNCL_UNTLCKD');
6418: ELSE
6419: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
6420: END IF;
6421: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
6422: FND_MSG_PUB.ADD;
6423: RAISE FND_API.G_EXC_ERROR;
6417: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_CNCL_UNTLCKD');
6418: ELSE
6419: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
6420: END IF;
6421: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
6422: FND_MSG_PUB.ADD;
6423: RAISE FND_API.G_EXC_ERROR;
6424: END IF;
6425: -- rroy
6436: IF l_mwo_flag = 'N' THEN
6437:
6438: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6439: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(l_wo_id) = FND_API.G_FALSE THEN
6440: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6441: FND_MSG_PUB.add;
6442: RAISE FND_API.G_EXC_ERROR;
6443: END IF;
6444:
6504: l_wo_name,
6505: l_master_wo_flag;
6506:
6507: IF ( get_ue_mwo%NOTFOUND ) THEN
6508: FND_MESSAGE.set_name('AHL','AHL_PRD_MR_MWO_NOT_FOUND');
6509: FND_MSG_PUB.add;
6510: CLOSE get_ue_mwo;
6511: RAISE FND_API.G_EXC_ERROR;
6512: END IF;
6519: p_visit_id => NULL,
6520: p_item_instance_id => NULL);
6521: IF l_return_status = FND_API.G_TRUE THEN
6522: IF l_master_wo_flag <> 'Y' THEN
6523: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6524: ELSE
6525: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6526: END IF;
6527: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6521: IF l_return_status = FND_API.G_TRUE THEN
6522: IF l_master_wo_flag <> 'Y' THEN
6523: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6524: ELSE
6525: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6526: END IF;
6527: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6528: FND_MSG_PUB.ADD;
6529: RAISE FND_API.G_EXC_ERROR;
6523: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6524: ELSE
6525: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6526: END IF;
6527: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6528: FND_MSG_PUB.ADD;
6529: RAISE FND_API.G_EXC_ERROR;
6530: END IF;
6531: -- rroy
6542: FROM fnd_lookup_values_vl
6543: WHERE lookup_type = 'AHL_JOB_STATUS'
6544: AND LOOKUP_CODE = l_status_code;
6545:
6546: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_MR_STATUS');
6547: FND_MESSAGE.set_token('STATUS', l_status_meaning );
6548: FND_MSG_PUB.add;
6549: RAISE FND_API.G_EXC_ERROR;
6550: END IF;
6543: WHERE lookup_type = 'AHL_JOB_STATUS'
6544: AND LOOKUP_CODE = l_status_code;
6545:
6546: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_MR_STATUS');
6547: FND_MESSAGE.set_token('STATUS', l_status_meaning );
6548: FND_MSG_PUB.add;
6549: RAISE FND_API.G_EXC_ERROR;
6550: END IF;
6551:
6569: p_visit_id => NULL,
6570: p_item_instance_id => NULL);
6571: IF l_return_status = FND_API.G_TRUE THEN
6572: IF l_mwo_flag <> 'Y' THEN
6573: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6574: ELSE
6575: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6576: END IF;
6577: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
6571: IF l_return_status = FND_API.G_TRUE THEN
6572: IF l_mwo_flag <> 'Y' THEN
6573: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6574: ELSE
6575: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6576: END IF;
6577: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
6578: FND_MSG_PUB.ADD;
6579: RAISE FND_API.G_EXC_ERROR;
6573: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6574: ELSE
6575: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6576: END IF;
6577: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
6578: FND_MSG_PUB.ADD;
6579: RAISE FND_API.G_EXC_ERROR;
6580: END IF;
6581: -- rroy
6592: IF l_mwo_flag = 'N' THEN
6593:
6594: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6595: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(l_wo_id) = FND_API.G_FALSE THEN
6596: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6597: FND_MSG_PUB.add;
6598: RAISE FND_API.G_EXC_ERROR;
6599: END IF;
6600: l_wo_count := l_wo_count + 1;
6715: p_visit_id => NULL,
6716: p_item_instance_id => NULL);
6717: IF l_return_status = FND_API.G_TRUE THEN
6718: IF l_mwo_flag <> 'Y' THEN
6719: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6720: ELSE
6721: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6722: END IF;
6723: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
6717: IF l_return_status = FND_API.G_TRUE THEN
6718: IF l_mwo_flag <> 'Y' THEN
6719: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6720: ELSE
6721: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6722: END IF;
6723: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
6724: FND_MSG_PUB.ADD;
6725: RAISE FND_API.G_EXC_ERROR;
6719: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6720: ELSE
6721: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6722: END IF;
6723: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
6724: FND_MSG_PUB.ADD;
6725: RAISE FND_API.G_EXC_ERROR;
6726: END IF;
6727: -- rroy
6863: l_wip_entity_id,
6864: l_wo_name;
6865:
6866: IF ( get_wo%NOTFOUND ) THEN
6867: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_NOT_FOUND');
6868: FND_MSG_PUB.add;
6869: CLOSE get_wo;
6870: RAISE FND_API.G_EXC_ERROR;
6871: END IF;
6875: p_ue_id => NULL,
6876: p_visit_id => NULL,
6877: p_item_instance_id => NULL);
6878: IF l_return_status = FND_API.G_TRUE THEN
6879: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
6880: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6881: FND_MSG_PUB.ADD;
6882: RAISE FND_API.G_EXC_ERROR;
6883: END IF;
6876: p_visit_id => NULL,
6877: p_item_instance_id => NULL);
6878: IF l_return_status = FND_API.G_TRUE THEN
6879: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
6880: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6881: FND_MSG_PUB.ADD;
6882: RAISE FND_API.G_EXC_ERROR;
6883: END IF;
6884: -- rroy
6887: CLOSE get_wo;
6888:
6889: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6890: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(p_workorder_id) = FND_API.G_FALSE THEN
6891: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6892: FND_MSG_PUB.add;
6893: RAISE FND_API.G_EXC_ERROR;
6894: END IF;
6895:
6904: FROM fnd_lookup_values_vl
6905: WHERE lookup_type = 'AHL_JOB_STATUS'
6906: AND LOOKUP_CODE = l_status_code;
6907:
6908: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_WO_STATUS');
6909: FND_MESSAGE.set_token('STATUS', l_status_meaning );
6910: FND_MSG_PUB.add;
6911: RAISE FND_API.G_EXC_ERROR;
6912: END IF;
6905: WHERE lookup_type = 'AHL_JOB_STATUS'
6906: AND LOOKUP_CODE = l_status_code;
6907:
6908: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_WO_STATUS');
6909: FND_MESSAGE.set_token('STATUS', l_status_meaning );
6910: FND_MSG_PUB.add;
6911: RAISE FND_API.G_EXC_ERROR;
6912: END IF;
6913:
6990: p_visit_id => NULL,
6991: p_item_instance_id => NULL);
6992: IF l_return_status = FND_API.G_TRUE THEN
6993: IF l_mwo_flag <> 'Y' THEN
6994: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
6995: ELSE
6996: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_CNCL_UNTLCKD');
6997: END IF;
6998: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
6992: IF l_return_status = FND_API.G_TRUE THEN
6993: IF l_mwo_flag <> 'Y' THEN
6994: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
6995: ELSE
6996: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_CNCL_UNTLCKD');
6997: END IF;
6998: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
6999: FND_MSG_PUB.ADD;
7000: RAISE FND_API.G_EXC_ERROR;
6994: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
6995: ELSE
6996: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_CNCL_UNTLCKD');
6997: END IF;
6998: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
6999: FND_MSG_PUB.ADD;
7000: RAISE FND_API.G_EXC_ERROR;
7001: END IF;
7002: -- rroy
7534: OPEN validate_visit(p_visit_id) ;
7535: FETCH validate_visit into l_dummy ;
7536: IF (validate_visit%NOTFOUND)
7537: THEN
7538: FND_MESSAGE.Set_Name('AHL','AHL_PRD_VISIT_NOT_FOUND');
7539: FND_MSG_PUB.ADD;
7540: close validate_visit;
7541: RAISE FND_API.G_EXC_ERROR;
7542: END IF;
7557: OPEN check_workorder_exists(p_visit_id);
7558: FETCH check_workorder_exists into check_workorder_exists_rec;
7559: IF (check_workorder_exists%NOTFOUND)
7560: THEN
7561: FND_MESSAGE.Set_Name('AHL','AHL_PRD_VISIT_MWO_NOT_FOUND');
7562: FND_MSG_PUB.ADD;
7563: close check_workorder_exists;
7564: RAISE FND_API.G_EXC_ERROR;
7565: END IF;
7582: rescheduling should be prevented.
7583: Hence removing this validation instead adding following validation.
7584: IF (check_workorder_exists_rec.status_code NOT IN ( 1,3,17) )
7585: THEN
7586: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JOB_STATUS_INVALID');
7587: FND_MSG_PUB.ADD;
7588: close check_workorder_exists;
7589: RAISE FND_API.G_EXC_ERROR;
7590: END IF;
7594: -- 7 -> Cancelled
7595: -- 12 -> Closed
7596: IF (check_workorder_exists_rec.status_code IN (4, 5, 7, 12) )
7597: THEN
7598: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JOB_STATUS_INVALID');
7599: FND_MSG_PUB.ADD;
7600: close check_workorder_exists;
7601: RAISE FND_API.G_EXC_ERROR;
7602: END IF;
7832: -- Initialize the message list not to show the EAM Error message
7833: IF FND_API.to_boolean(p_init_msg_list) THEN
7834: FND_MSG_PUB.initialize;
7835: END IF;
7836: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PLANNED_DATE_INVALID');
7837: FND_MESSAGE.SET_TOKEN('DATE',latest_schedule_dates_rec.scheduled_completion_date);
7838: FND_MSG_PUB.ADD;
7839: END IF;
7840: RAISE Fnd_Api.g_exc_error;
7833: IF FND_API.to_boolean(p_init_msg_list) THEN
7834: FND_MSG_PUB.initialize;
7835: END IF;
7836: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PLANNED_DATE_INVALID');
7837: FND_MESSAGE.SET_TOKEN('DATE',latest_schedule_dates_rec.scheduled_completion_date);
7838: FND_MSG_PUB.ADD;
7839: END IF;
7840: RAISE Fnd_Api.g_exc_error;
7841:
7972: -- Insert notes
7973: FOR i IN p_trunover_notes_tbl.FIRST..p_trunover_notes_tbl.LAST LOOP
7974: -- validate source object code
7975: IF(p_trunover_notes_tbl(i).source_object_code <> 'AHL_WO_TURNOVER_NOTES')THEN
7976: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NOTES_INV_SOURCE');
7977: FND_MSG_PUB.ADD;
7978: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
7979: fnd_log.string
7980: (
7985: END IF;
7986: END IF;
7987: -- validate entered data
7988: IF(p_trunover_notes_tbl(i).entered_date > SYSDATE)THEN
7989: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NOTES_INV_ENT_DT');
7990: FND_MESSAGE.Set_Token('ENTERED_DATE',p_trunover_notes_tbl(i).entered_date);
7991: FND_MSG_PUB.ADD;
7992: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
7993: fnd_log.string
7986: END IF;
7987: -- validate entered data
7988: IF(p_trunover_notes_tbl(i).entered_date > SYSDATE)THEN
7989: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NOTES_INV_ENT_DT');
7990: FND_MESSAGE.Set_Token('ENTERED_DATE',p_trunover_notes_tbl(i).entered_date);
7991: FND_MSG_PUB.ADD;
7992: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
7993: fnd_log.string
7994: (
7999: END IF;
8000: END IF;
8001: -- validate that notes cant not be null
8002: IF(p_trunover_notes_tbl(i).notes IS NULL)THEN
8003: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NOTES_INV_NOTES_NLL');
8004: FND_MSG_PUB.ADD;
8005: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
8006: fnd_log.string
8007: (
8012: END IF;
8013: END IF;
8014:
8015: IF p_trunover_notes_tbl(i).employee_name IS NULL THEN
8016: FND_MESSAGE.set_name('AHL','AHL_PRD_EMP_NULL_TRNTS');
8017: FND_MSG_PUB.ADD;
8018: --l_user_id := FND_GLOBAL.user_id;
8019: ELSE
8020: matchFound := FALSE;
8028: END IF;
8029: END LOOP;
8030: IF NOT(l_count = 1 OR matchFound)THEN
8031: -- Invalid or non unique employee
8032: FND_MESSAGE.set_name('AHL','AHL_PRD_INV_EMP_TRNTS');
8033: FND_MESSAGE.SET_TOKEN('EMP_NAME',p_trunover_notes_tbl(i).employee_name);
8034: FND_MSG_PUB.ADD;
8035: END IF;
8036: END IF;
8029: END LOOP;
8030: IF NOT(l_count = 1 OR matchFound)THEN
8031: -- Invalid or non unique employee
8032: FND_MESSAGE.set_name('AHL','AHL_PRD_INV_EMP_TRNTS');
8033: FND_MESSAGE.SET_TOKEN('EMP_NAME',p_trunover_notes_tbl(i).employee_name);
8034: FND_MSG_PUB.ADD;
8035: END IF;
8036: END IF;
8037:
8035: END IF;
8036: END IF;
8037:
8038: IF(l_user_id IS NULL)THEN
8039: FND_MESSAGE.set_name('AHL','AHL_PRD_INV_EMP_NUQ_TRNTS');
8040: FND_MSG_PUB.ADD;
8041: END IF;
8042:
8043: