[Home] [Help]
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;
175: CLOSE get_workorder_rec;
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:
748: ELSIF p_x_prd_workorder_rec.dml_operation='U' THEN
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;
766:
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;
899: END IF;
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
1103: END IF; -- IF p_prd_workorder_rec.DML_OPERATION = 'U' 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;
1121: -- rroy
1122: -- ACL Changes
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
1137: p_prd_workorder_rec.SCHEDULED_START_DATE=FND_API.G_MISS_DATE THEN
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
1143: p_prd_workorder_rec.SCHEDULED_END_DATE=FND_API.G_MISS_DATE THEN
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
1149: p_prd_workorder_rec.SCHEDULED_START_DATE<>FND_API.G_MISS_DATE 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
1159: p_wip_load_flag = 'Y' THEN
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;
1188: IF validate_org%NOTFOUND THEN
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);
1194: FND_MSG_PUB.ADD;
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;
1198:
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;
1206: IF validate_dept%NOTFOUND THEN
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;
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;
1223: IF validate_item_instance%NOTFOUND THEN
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;
1230:
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;
1238: IF get_lookup_type_code%NOTFOUND THEN
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;
1244:
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
1266: p_prd_workorder_rec.actual_end_date IS NOT NULL AND
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);
1273: FETCH c_get_op_actual_dates INTO l_op_min_act_start_date, l_op_max_act_end_date;
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
1285: p_prd_workorder_rec.actual_end_date <> FND_API.G_MISS_DATE 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
1293: p_prd_workorder_rec.STATUS_CODE<> G_JOB_STATUS_COMPLETE 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
1308: p_prd_workorder_rec.WORKORDER_ID=FND_API.G_MISS_NUM THEN
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
1314: p_prd_workorder_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM THEN
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(*)
1320: INTO l_dummy_ctr
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
1332:
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:
1345: -- replace MTL_PROJECT_V with PJM_PROJECTS_ORG_OU_SECURE_V for R12
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
1361: SELECT COUNT(*) INTO l_dummy_ctr
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;
1374: END IF;
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
1398: p_prd_workorder_rec.Visit_task_id<>FND_API.G_MISS_NUM ) THEN
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:
1413: SELECT COUNT(*)
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;
1424:
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;
1436: END IF;
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;
1439:
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:
1452: IF p_prd_workorder_rec.Firm_planned_flag IS NULL OR
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');
1459: FND_MSG_PUB.ADD;
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
1463: p_prd_workorder_rec.mr_route_id<>FND_API.G_MISS_NUM THEN
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:
1475: IF p_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL OR
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
1482: FROM CSI_ITEM_INSTANCES a,
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:
1495: IF p_prd_workorder_rec.INVENTORY_ITEM_ID IS NULL OR
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;
1502:
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;
1514:
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;
1522:
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:
1573: CLOSE get_res_dept_csr;
2885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2886: END IF;
2887:
2888: IF FND_API.to_boolean(p_init_msg_list) THEN
2889: FND_MSG_PUB.initialize;
2890: END IF;
2891:
2892: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2893:
2919: p_prd_workorder_rec =>p_x_prd_workorder_rec,
2920: p_wip_load_flag =>p_wip_load_flag
2921: );
2922:
2923: l_msg_count := FND_MSG_PUB.count_msg;
2924: IF l_msg_count > 0 THEN
2925: x_msg_count := l_msg_count;
2926: RAISE FND_API.G_EXC_ERROR;
2927: END IF;
3296: EXCEPTION
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: ROLLBACK TO create_job_PVT;
3299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3300: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3301: p_count => x_msg_count,
3302: p_data => x_msg_data);
3303: WHEN FND_API.G_EXC_ERROR THEN
3304: ROLLBACK TO create_job_PVT;
3302: p_data => x_msg_data);
3303: WHEN FND_API.G_EXC_ERROR THEN
3304: ROLLBACK TO create_job_PVT;
3305: x_return_status := FND_API.G_RET_STS_ERROR;
3306: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3307: p_count => x_msg_count,
3308: p_data => x_msg_data);
3309:
3310: WHEN OTHERS THEN
3309:
3310: WHEN OTHERS THEN
3311: ROLLBACK TO create_job_PVT;
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3313: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3314: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
3315: p_procedure_name =>l_api_name,
3316: p_error_text => SUBSTR(SQLERRM,1,240));
3317:
3310: WHEN OTHERS THEN
3311: ROLLBACK TO create_job_PVT;
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3313: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3314: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
3315: p_procedure_name =>l_api_name,
3316: p_error_text => SUBSTR(SQLERRM,1,240));
3317:
3318: END IF;
3315: p_procedure_name =>l_api_name,
3316: p_error_text => SUBSTR(SQLERRM,1,240));
3317:
3318: END IF;
3319: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3320: p_count => x_msg_count,
3321: p_data => x_msg_data);
3322:
3323: END create_job;
3555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3556: END IF;
3557:
3558: IF FND_API.to_boolean(p_init_msg_list) THEN
3559: FND_MSG_PUB.initialize;
3560: END IF;
3561:
3562: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3563:
3596: p_x_prd_workorder_rec
3597: );
3598: --END IF;
3599:
3600: l_msg_count := FND_MSG_PUB.count_msg;
3601: IF l_msg_count > 0 THEN
3602: x_msg_count := l_msg_count;
3603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3604: RAISE FND_API.G_EXC_ERROR;
3615: p_x_prd_workorder_rec =>p_x_prd_workorder_rec
3616: );
3617: END IF;
3618:
3619: l_msg_count := FND_MSG_PUB.count_msg;
3620: IF l_msg_count > 0 THEN
3621: x_msg_count := l_msg_count;
3622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3623: RAISE FND_API.G_EXC_ERROR;
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;
3651:
3651:
3652:
3653: END IF;
3654:
3655: l_msg_count := FND_MSG_PUB.count_msg;
3656: IF l_msg_count > 0 THEN
3657: x_msg_count := l_msg_count;
3658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3659: RAISE FND_API.G_EXC_ERROR;
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;
3688: END IF;
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:
3812: IF ( G_DEBUG = 'Y' ) THEN
4470: EXCEPTION
4471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4472: ROLLBACK TO update_job_PVT;
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4475: p_count => x_msg_count,
4476: p_data => x_msg_data);
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: ROLLBACK TO update_job_PVT;
4476: p_data => x_msg_data);
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: ROLLBACK TO update_job_PVT;
4479: x_return_status := FND_API.G_RET_STS_ERROR;
4480: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4481: p_count => x_msg_count,
4482: p_data => x_msg_data);
4483:
4484: WHEN OTHERS THEN
4483:
4484: WHEN OTHERS THEN
4485: ROLLBACK TO update_job_PVT;
4486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4487: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4488: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
4489: p_procedure_name =>l_api_name,
4490: p_error_text =>SUBSTR(SQLERRM,1,240));
4491: END IF;
4484: WHEN OTHERS THEN
4485: ROLLBACK TO update_job_PVT;
4486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4487: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4488: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
4489: p_procedure_name =>l_api_name,
4490: p_error_text =>SUBSTR(SQLERRM,1,240));
4491: END IF;
4492:
4489: p_procedure_name =>l_api_name,
4490: p_error_text =>SUBSTR(SQLERRM,1,240));
4491: END IF;
4492:
4493: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4494: p_count => x_msg_count,
4495: p_data => x_msg_data);
4496: END update_job;
4497:
4540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4541: END IF;
4542:
4543: IF FND_API.to_boolean(p_init_msg_list) THEN
4544: FND_MSG_PUB.initialize;
4545: END IF;
4546:
4547: x_return_status:=FND_API.G_RET_STS_SUCCESS;
4548:
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:
4562: IF ( p_x_prd_workorder_tbl(i).header_id IS NULL OR
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:
4569: IF ( G_DEBUG = 'Y' ) THEN
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;
4595: END IF;
4908: EXCEPTION
4909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4910: ROLLBACK TO process_jobs_PVT;
4911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4913: p_count => x_msg_count,
4914: p_data => x_msg_data);
4915: WHEN FND_API.G_EXC_ERROR THEN
4916: ROLLBACK TO process_jobs_PVT;
4914: p_data => x_msg_data);
4915: WHEN FND_API.G_EXC_ERROR THEN
4916: ROLLBACK TO process_jobs_PVT;
4917: x_return_status := FND_API.G_RET_STS_ERROR;
4918: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4919: p_count => x_msg_count,
4920: p_data => x_msg_data);
4921:
4922: WHEN OTHERS THEN
4921:
4922: WHEN OTHERS THEN
4923: ROLLBACK TO process_jobs_PVT;
4924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4926: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
4927: p_procedure_name =>l_api_name,
4928: p_error_text => SUBSTR(SQLERRM,1,240));
4929:
4922: WHEN OTHERS THEN
4923: ROLLBACK TO process_jobs_PVT;
4924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4926: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
4927: p_procedure_name =>l_api_name,
4928: p_error_text => SUBSTR(SQLERRM,1,240));
4929:
4930: END IF;
4927: p_procedure_name =>l_api_name,
4928: p_error_text => SUBSTR(SQLERRM,1,240));
4929:
4930: END IF;
4931: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4932: p_count => x_msg_count,
4933: p_data => x_msg_data);
4934:
4935: END process_jobs;
5068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5069: END IF;
5070:
5071: IF FND_API.to_boolean(p_init_msg_list) THEN
5072: FND_MSG_PUB.initialize;
5073: END IF;
5074:
5075: x_return_status:=FND_API.G_RET_STS_SUCCESS;
5076:
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:
5093: -- Determine the type of API call
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;
5123:
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:
5144: -- rroy
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
5183: -- ACL Changes
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;
5216:
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
5247: -- ACL Changes
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
5283: -- ACL Changes
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
5320: -- ACL Changes
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;
5352:
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
5382: -- ACL Changes
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
5412: -- ACL Changes
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
5451: COMMIT;
5458: EXCEPTION
5459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5460: ROLLBACK TO release_visit_jobs_PVT;
5461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5462: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5463: p_count => x_msg_count,
5464: p_data => x_msg_data);
5465: WHEN FND_API.G_EXC_ERROR THEN
5466: ROLLBACK TO release_visit_jobs_PVT;
5464: p_data => x_msg_data);
5465: WHEN FND_API.G_EXC_ERROR THEN
5466: ROLLBACK TO release_visit_jobs_PVT;
5467: x_return_status := FND_API.G_RET_STS_ERROR;
5468: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5469: p_count => x_msg_count,
5470: p_data => x_msg_data);
5471:
5472: WHEN OTHERS THEN
5471:
5472: WHEN OTHERS THEN
5473: ROLLBACK TO release_visit_jobs_PVT;
5474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5475: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5476: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
5477: p_procedure_name =>l_api_name,
5478: p_error_text => SUBSTR(SQLERRM,1,240));
5479:
5472: WHEN OTHERS THEN
5473: ROLLBACK TO release_visit_jobs_PVT;
5474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5475: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5476: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
5477: p_procedure_name =>l_api_name,
5478: p_error_text => SUBSTR(SQLERRM,1,240));
5479:
5480: END IF;
5477: p_procedure_name =>l_api_name,
5478: p_error_text => SUBSTR(SQLERRM,1,240));
5479:
5480: END IF;
5481: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5482: p_count => x_msg_count,
5483: p_data => x_msg_data);
5484: END release_visit_jobs;
5485:
5614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5615: END IF;
5616:
5617: IF FND_API.to_boolean(p_init_msg_list) THEN
5618: FND_MSG_PUB.initialize;
5619: END IF;
5620:
5621: x_return_status:=FND_API.G_RET_STS_SUCCESS;
5622:
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:
5640: -- Determine the type of API call
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;
5665:
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: */
5719: -- Removing the below check
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;
5752:
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;
5786:
5783: END LOOP;
5784: */
5785: END IF;
5786:
5787: x_msg_count := FND_MSG_PUB.count_msg;
5788: IF ( x_msg_count > 0 ) THEN
5789: RAISE FND_API.G_EXC_ERROR;
5790: END IF;
5791:
5792: EXCEPTION
5793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5794: ROLLBACK TO validate_dependencies_PVT;
5795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5796: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5797: p_count => x_msg_count,
5798: p_data => x_msg_data);
5799: WHEN FND_API.G_EXC_ERROR THEN
5800: ROLLBACK TO validate_dependencies_PVT;
5798: p_data => x_msg_data);
5799: WHEN FND_API.G_EXC_ERROR THEN
5800: ROLLBACK TO validate_dependencies_PVT;
5801: x_return_status := FND_API.G_RET_STS_ERROR;
5802: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5803: p_count => x_msg_count,
5804: p_data => x_msg_data);
5805:
5806: WHEN OTHERS THEN
5805:
5806: WHEN OTHERS THEN
5807: ROLLBACK TO validate_dependencies_PVT;
5808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5810: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
5811: p_procedure_name =>l_api_name,
5812: p_error_text => SUBSTR(SQLERRM,1,240));
5813:
5806: WHEN OTHERS THEN
5807: ROLLBACK TO validate_dependencies_PVT;
5808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5810: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
5811: p_procedure_name =>l_api_name,
5812: p_error_text => SUBSTR(SQLERRM,1,240));
5813:
5814: END IF;
5811: p_procedure_name =>l_api_name,
5812: p_error_text => SUBSTR(SQLERRM,1,240));
5813:
5814: END IF;
5815: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5816: p_count => x_msg_count,
5817: p_data => x_msg_data);
5818: END validate_dependencies;
5819:
6215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6216: END IF;
6217:
6218: IF FND_API.to_boolean(p_init_msg_list) THEN
6219: FND_MSG_PUB.initialize;
6220: END IF;
6221:
6222: x_return_status:=FND_API.G_RET_STS_SUCCESS;
6223:
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
6235: IF ( ( p_workorder_id IS NULL OR
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:
6247:
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;
6357:
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:
6373: -- rroy
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:
6396: -- Process all the Child Workorders of the Visit
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
6426: -- ACL Changes
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:
6445: l_wo_count := l_wo_count + 1;
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;
6513:
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
6532: -- ACL Changes
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:
6552: -- Process all the Child Workorders of the UE
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
6582: -- ACL Changes
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;
6601: l_workorder_tbl(l_wo_count).dml_operation := 'U';
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
6728: -- ACL Changes
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;
6872: -- rroy
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
6885: -- ACL Changes
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:
6896: -- Check if the WO is in a status which can be cancelled
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:
6914: -- Add the WO in the WO Table
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
7003: -- ACL Changes
7362:
7363: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7364: -- Add Debug
7365: IF FND_API.to_boolean(p_init_msg_list) THEN
7366: FND_MSG_PUB.initialize;
7367: END IF;
7368: END IF;
7369: END IF;
7370: */
7379: EXCEPTION
7380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7381: ROLLBACK TO cancel_visit_jobs_PVT;
7382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7383: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7384: p_count => x_msg_count,
7385: p_data => x_msg_data);
7386: WHEN FND_API.G_EXC_ERROR THEN
7387: ROLLBACK TO cancel_visit_jobs_PVT;
7385: p_data => x_msg_data);
7386: WHEN FND_API.G_EXC_ERROR THEN
7387: ROLLBACK TO cancel_visit_jobs_PVT;
7388: x_return_status := FND_API.G_RET_STS_ERROR;
7389: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7390: p_count => x_msg_count,
7391: p_data => x_msg_data);
7392:
7393: WHEN OTHERS THEN
7392:
7393: WHEN OTHERS THEN
7394: ROLLBACK TO cancel_visit_jobs_PVT;
7395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7397: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
7398: p_procedure_name =>l_api_name,
7399: p_error_text => SUBSTR(SQLERRM,1,240));
7400:
7393: WHEN OTHERS THEN
7394: ROLLBACK TO cancel_visit_jobs_PVT;
7395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7397: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
7398: p_procedure_name =>l_api_name,
7399: p_error_text => SUBSTR(SQLERRM,1,240));
7400:
7401: END IF;
7398: p_procedure_name =>l_api_name,
7399: p_error_text => SUBSTR(SQLERRM,1,240));
7400:
7401: END IF;
7402: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7403: p_count => x_msg_count,
7404: p_data => x_msg_data);
7405: END cancel_visit_jobs;
7406: --
7501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7502: END IF;
7503: -- Initialize message list if p_init_msg_list is set to TRUE
7504: IF FND_API.to_boolean(p_init_msg_list) THEN
7505: FND_MSG_PUB.initialize;
7506: END IF;
7507: -- Initialize API return status to success
7508: x_return_status:=FND_API.G_RET_STS_SUCCESS;
7509:
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;
7543: close validate_visit;
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;
7566:
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;
7591: */
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;
7603:
7830: IF p_x_scheduled_end_date <> latest_schedule_dates_rec.scheduled_completion_date
7831: THEN
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;
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:
7842: END IF;
7858: EXCEPTION
7859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7860: ROLLBACK TO Reschedule_Visit_Jobs;
7861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7862: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7863: p_count => x_msg_count,
7864: p_data => x_msg_data);
7865: WHEN FND_API.G_EXC_ERROR THEN
7866: ROLLBACK TO Reschedule_Visit_Jobs;
7864: p_data => x_msg_data);
7865: WHEN FND_API.G_EXC_ERROR THEN
7866: ROLLBACK TO Reschedule_Visit_Jobs;
7867: x_return_status := FND_API.G_RET_STS_ERROR;
7868: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7869: p_count => x_msg_count,
7870: p_data => x_msg_data);
7871:
7872: WHEN OTHERS THEN
7871:
7872: WHEN OTHERS THEN
7873: ROLLBACK TO Reschedule_Visit_Jobs;
7874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7875: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7876: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
7877: p_procedure_name =>l_api_name,
7878: p_error_text => SUBSTR(SQLERRM,1,240));
7879:
7872: WHEN OTHERS THEN
7873: ROLLBACK TO Reschedule_Visit_Jobs;
7874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7875: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7876: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
7877: p_procedure_name =>l_api_name,
7878: p_error_text => SUBSTR(SQLERRM,1,240));
7879:
7880: END IF;
7877: p_procedure_name =>l_api_name,
7878: p_error_text => SUBSTR(SQLERRM,1,240));
7879:
7880: END IF;
7881: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7882: p_count => x_msg_count,
7883: p_data => x_msg_data);
7884:
7885: END Reschedule_Visit_Jobs;
7949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7950: END IF;
7951: -- Initialize message list if p_init_msg_list is set to TRUE
7952: IF FND_API.To_Boolean( p_init_msg_list) THEN
7953: FND_MSG_PUB.Initialize;
7954: END IF;
7955:
7956: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
7957: fnd_log.string
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: (
7981: fnd_log.level_error,
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: (
7995: fnd_log.level_error,
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: (
8008: fnd_log.level_error,
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;
8021: FOR emp_rec IN get_user_id_csr(p_trunover_notes_tbl(i).employee_name,
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:
8038: IF(l_user_id IS NULL)THEN
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:
8044: -- add notes if no messages
8041: END IF;
8042:
8043:
8044: -- add notes if no messages
8045: IF(FND_MSG_PUB.count_msg = 0)THEN
8046: JTF_NOTES_PUB.Create_note
8047: (
8048: p_api_version => 1.0,
8049: p_init_msg_list => FND_API.G_FALSE,
8061: );
8062: END IF;
8063: END LOOP;
8064: -- Check Error Message stack.
8065: x_msg_count := FND_MSG_PUB.count_msg;
8066: IF x_msg_count > 0 THEN
8067: RAISE FND_API.G_EXC_ERROR;
8068: END IF;
8069:
8071: IF FND_API.TO_BOOLEAN(p_commit) THEN
8072: COMMIT WORK;
8073: END IF;
8074: -- Standard call to get message count and if count is 1, get message info
8075: FND_MSG_PUB.Count_And_Get
8076: ( p_count => x_msg_count,
8077: p_data => x_msg_data,
8078: p_encoded => fnd_api.g_false
8079: );
8093: EXCEPTION
8094: WHEN FND_API.G_EXC_ERROR THEN
8095: Rollback to INSERT_TURNOVER_NOTES;
8096: x_return_status := FND_API.G_RET_STS_ERROR;
8097: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8098: p_data => x_msg_data,
8099: p_encoded => fnd_api.g_false);
8100:
8101:
8101:
8102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8103: Rollback to INSERT_TURNOVER_NOTES;
8104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8105: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8106: p_data => x_msg_data,
8107: p_encoded => fnd_api.g_false);
8108:
8109:
8109:
8110: WHEN OTHERS THEN
8111: Rollback to INSERT_TURNOVER_NOTES;
8112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8113: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8114: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8115: p_procedure_name => l_api_name,
8116: p_error_text => SUBSTR(SQLERRM,1,500));
8117: END IF;
8110: WHEN OTHERS THEN
8111: Rollback to INSERT_TURNOVER_NOTES;
8112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8113: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8114: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8115: p_procedure_name => l_api_name,
8116: p_error_text => SUBSTR(SQLERRM,1,500));
8117: END IF;
8118: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8114: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8115: p_procedure_name => l_api_name,
8116: p_error_text => SUBSTR(SQLERRM,1,500));
8117: END IF;
8118: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8119: p_data => x_msg_data,
8120: p_encoded => fnd_api.g_false);
8121: END INSERT_TURNOVER_NOTES;
8122: