[Home] [Help]
322: THEN
323: l_is_dup_assos := GET_DUP_UNIT_ITEM_ASSOS (p_x_pc_header_rec.pc_header_id);
324: IF (l_is_dup_assos)
325: THEN
326: FND_MESSAGE.Set_Name('AHL','AHL_PC_DUP_UNIT_PART_ASSOS');
327: FND_MSG_PUB.ADD;
328: RAISE FND_API.G_EXC_ERROR;
329: END IF;
330: END IF;
551: OPEN check_header_status(p_x_pc_header_rec.PC_HEADER_ID);
552: FETCH check_header_status INTO l_status;
553: IF(check_header_status%NOTFOUND)
554: THEN
555: FND_MESSAGE.Set_Name('AHL','AHL_PC_NOT_FOUND');
556: FND_MSG_PUB.ADD;
557: CLOSE check_header_status;
558: RAISE FND_API.G_EXC_ERROR;
559: ELSE
559: ELSE
560: CLOSE check_header_status;
561: IF (l_status <> 'DRAFT' AND l_status <> 'APPROVAL_REJECTED')
562: THEN
563: FND_MESSAGE.SET_NAME('AHL','AHL_PC_DRAFT_DELETE');
564: FND_MSG_PUB.ADD;
565: RAISE FND_API.G_EXC_ERROR;
566: ELSE
567:
933: OPEN check_name_unique( p_x_pc_header_rec.name );
934: FETCH check_name_unique INTO l_dummy_2;
935: IF (check_name_unique%FOUND)
936: THEN
937: FND_MESSAGE.Set_Name('AHL','AHL_PC_NAME_EXISTS');
938: FND_MSG_PUB.ADD;
939: CLOSE check_name_unique;
940: RAISE FND_API.G_EXC_ERROR;
941: END IF;
953: THEN
954: l_is_dup_assos := GET_DUP_UNIT_ITEM_ASSOS (l_old_header_id);
955: IF (l_is_dup_assos)
956: THEN
957: FND_MESSAGE.Set_Name('AHL','AHL_PC_DUP_UNIT_PART_ASSOS');
958: FND_MSG_PUB.ADD;
959: RAISE FND_API.G_EXC_ERROR;
960: END IF;
961: END IF;
964: l_dummy := VALIDATE_UNIT_PART_ATTACHED (p_x_pc_header_rec.PC_HEADER_ID, p_x_pc_header_rec.PRODUCT_TYPE_CODE, p_x_pc_header_rec.ASSOCIATION_TYPE_FLAG);
965:
966: IF (l_dummy = FALSE AND p_x_pc_header_rec.COPY_ASSOS_FLAG = 'Y')
967: THEN
968: FND_MESSAGE.Set_Name('AHL','AHL_PC_UNIT_PART_ATTACHED');
969: FND_MSG_PUB.ADD;
970: RAISE FND_API.G_EXC_ERROR;
971: END IF;
972:
1339:
1340: -- If no updation happened, record must have already been modified by another user...
1341: IF (sql%rowcount) = 0
1342: THEN
1343: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1344: FND_MSG_PUB.ADD;
1345: RAISE FND_API.G_EXC_ERROR;
1346: -- Else start PCWF workflow process for this PC
1347: ELSE
1471: p_status => p_x_pc_header_rec.STATUS );
1472: FETCH check_name into l_dummy;
1473: IF (check_name%FOUND)
1474: THEN
1475: FND_MESSAGE.Set_Name('AHL','AHL_PC_NAME_EXISTS');
1476: FND_MSG_PUB.ADD;
1477: CLOSE check_name;
1478: RAISE FND_API.G_EXC_ERROR;
1479: END IF;
1487: p_pc_header_id => p_x_pc_header_rec.PC_HEADER_ID );
1488: FETCH check_prod_type into l_dummy;
1489: IF (check_prod_type%FOUND)
1490: THEN
1491: FND_MESSAGE.Set_Name('AHL','AHL_PC_PROD_PRIM_EXISTS');
1492: FND_MSG_PUB.ADD;
1493: CLOSE check_prod_type;
1494: RAISE FND_API.G_EXC_ERROR;
1495: END IF;
3422: l_old_primary_flag,
3423: l_old_assos_type,p_x_pc_header_rec.link_to_pc_id;
3424: IF (check_header_data%NOTFOUND)
3425: THEN
3426: FND_MESSAGE.Set_Name('AHL','AHL_PC_NOT_FOUND');
3427: FND_MSG_PUB.ADD;
3428: CLOSE check_header_data;
3429: RAISE FND_API.G_EXC_ERROR;
3430: END IF;
3431: CLOSE check_header_data;
3432:
3433: IF l_old_obj_ver_no <> p_x_pc_header_rec.OBJECT_VERSION_NUMBER
3434: THEN
3435: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3436: FND_MSG_PUB.ADD;
3437: RAISE FND_API.G_EXC_ERROR;
3438: END IF;
3439:
3440: l_dummy := VALIDATE_UNIT_PART_ATTACHED (p_x_pc_header_rec.PC_HEADER_ID, p_x_pc_header_rec.PRODUCT_TYPE_CODE, p_x_pc_header_rec.ASSOCIATION_TYPE_FLAG);
3441:
3442: IF (l_dummy = FALSE)
3443: THEN
3444: FND_MESSAGE.Set_Name('AHL','AHL_PC_UNIT_PART_ATTACHED');
3445: FND_MSG_PUB.ADD;
3446: RAISE FND_API.G_EXC_ERROR;
3447: END IF;
3448:
3452:
3453: -- PC is COMPLETE -- User submits without changing to DRAFT -- ERROR
3454: IF p_x_pc_header_rec.STATUS = 'COMPLETE' AND l_old_status = 'COMPLETE'
3455: THEN
3456: FND_MESSAGE.Set_Name('AHL','AHL_PC_STATUS_COMPLETE');
3457: FND_MSG_PUB.ADD;
3458: RAISE FND_API.G_EXC_ERROR;
3459:
3460: -- PC is APPROVAL_REJECTED -- User submits after making any change -- Change status to DRAFT