85: BEGIN
86:
87:
88:
89: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_ITEM ) THEN
90:
91: /* If record is being updated, check that primary key is not null */
92: IF ( (p_validation_mode = JTF_CTM_UTILITY_PVT.G_UPDATE) AND
93: (l_seed_qual_rec.seeded_qual_id IS NULL OR
88:
89: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_ITEM ) THEN
90:
91: /* If record is being updated, check that primary key is not null */
92: IF ( (p_validation_mode = JTF_CTM_UTILITY_PVT.G_UPDATE) AND
93: (l_seed_qual_rec.seeded_qual_id IS NULL OR
94: l_seed_qual_rec.seeded_qual_id = FND_API.G_MISS_NUM) )THEN
95:
96:
96:
97: l_return_status := FND_API.G_RET_STS_ERROR;
98: END IF;
99:
100: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_RECORD ) THEN
101:
102: /* Check that all mandatory items exist in record */
103: IF (is_seed_qual_rec_missing (p_seed_qual_rec) = FND_API.G_TRUE) THEN
104:
558:
559: /* initialise local record */
560: l_qual_usgs_rec := p_qual_usgs_rec;
561:
562: IF ( JTF_CTM_UTILITY_PVT.lookup_code_is_valid ( l_qual_usgs_rec.seeded_flag
563: , 'FLAG'
564: , 'FND_LOOKUPS') = FND_API.G_FALSE) THEN
565: l_return_variable := FND_API.G_FALSE;
566: l_qual_usgs_rec.seeded_flag := 'N';
565: l_return_variable := FND_API.G_FALSE;
566: l_qual_usgs_rec.seeded_flag := 'N';
567: END IF;
568:
569: IF ( JTF_CTM_UTILITY_PVT.lookup_code_is_valid ( l_qual_usgs_rec.display_type
570: , 'DISPLAY_TYPE'
571: , 'FND_LOOKUPS') = FND_API.G_FALSE) THEN
572: l_return_variable := FND_API.G_FALSE;
573: l_qual_usgs_rec.display_type := 'STANDARD';
606:
607: BEGIN
608:
609:
610: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_ITEM ) THEN
611:
612: /* If record is being updated, check that primary key is not null */
613: IF ( (p_validation_mode = JTF_CTM_UTILITY_PVT.G_UPDATE) AND
614: ( l_qual_usgs_rec.qual_usg_id IS NULL OR
609:
610: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_ITEM ) THEN
611:
612: /* If record is being updated, check that primary key is not null */
613: IF ( (p_validation_mode = JTF_CTM_UTILITY_PVT.G_UPDATE) AND
614: ( l_qual_usgs_rec.qual_usg_id IS NULL OR
615: l_qual_usgs_rec.qual_usg_id = FND_API.G_MISS_NUM) ) THEN
616:
617: l_return_status := FND_API.G_RET_STS_ERROR;
618:
619: END IF;
620:
621:
622: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_RECORD ) THEN
623:
624: /* Check that all mandatory items exist in record */
625: IF (is_qual_usgs_rec_missing (l_qual_usgs_rec) = FND_API.G_TRUE) THEN
626: l_return_status := FND_API.G_RET_STS_ERROR;
628:
629:
630:
631:
632: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_INTER_ENTITY ) THEN
633:
634: /* check FK reference to JTF_SEEDED_QUAL */
635: IF ( l_qual_usgs_rec.seeded_qual_id IS NOT NULL AND
636: l_qual_usgs_rec.seeded_qual_id <> FND_API.G_MISS_NUM ) THEN
634: /* check FK reference to JTF_SEEDED_QUAL */
635: IF ( l_qual_usgs_rec.seeded_qual_id IS NOT NULL AND
636: l_qual_usgs_rec.seeded_qual_id <> FND_API.G_MISS_NUM ) THEN
637:
638: IF ( JTF_CTM_UTILITY_PVT.fk_id_is_valid (
639: l_qual_usgs_rec.seeded_qual_id,
640: 'SEEDED_QUAL_ID',
641: 'JTF_SEEDED_QUAL') = FND_API.G_FALSE)
642: THEN
646:
647:
648:
649:
650: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_INTER_ENTITY ) THEN
651:
652: /* check FK reference to JTF_QUAL_TYPE_USGS */
653: IF ( l_qual_usgs_rec.qual_type_usg_id IS NOT NULL AND
654: l_qual_usgs_rec.qual_type_usg_id <> FND_API.G_MISS_NUM ) THEN
652: /* check FK reference to JTF_QUAL_TYPE_USGS */
653: IF ( l_qual_usgs_rec.qual_type_usg_id IS NOT NULL AND
654: l_qual_usgs_rec.qual_type_usg_id <> FND_API.G_MISS_NUM ) THEN
655:
656: IF ( JTF_CTM_UTILITY_PVT.fk_id_is_valid (
657: l_qual_usgs_rec.qual_type_usg_id,
658: 'QUAL_TYPE_USG_ID',
659: 'JTF_QUAL_TYPE_USGS') = FND_API.G_FALSE)
660: THEN
664:
665:
666:
667: /* If record is being updated, check that primary key is not null */
668: IF (p_validation_mode = JTF_CTM_UTILITY_PVT.G_CREATE) THEN
669:
670: /* check that Unique Key constraint not violated */
671: IF ( l_qual_usgs_rec.seeded_qual_id IS NOT NULL AND
672: l_qual_usgs_rec.seeded_qual_id <> FND_API.G_MISS_NUM AND
698:
699:
700:
701:
702: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_RECORD ) THEN
703:
704: /* check qualifier column and table exists */
705: IF ( l_qual_usgs_rec.qual_col1_table IS NOT NULL AND
706: l_qual_usgs_rec.qual_col1_table <> FND_API.G_MISS_CHAR AND
723:
724:
725:
726:
727: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_RECORD ) THEN
728:
729: /* check qualifier column and table exists */
730: IF ( l_qual_usgs_rec.int_cde_col_table IS NOT NULL AND
731: l_qual_usgs_rec.int_cde_col_table <> FND_API.G_MISS_CHAR AND
743:
744:
745:
746:
747: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_RECORD ) THEN
748:
749: /* check qualifier column and table exists */
750: IF ( l_qual_usgs_rec.int_cde_col_table IS NOT NULL AND
751: l_qual_usgs_rec.int_cde_col_table <> FND_API.G_MISS_CHAR AND
1235:
1236:
1237: -- validate the seeded qualifier record
1238: validate_seed_qual_rec ( l_seed_qual_rec,
1239: JTF_CTM_UTILITY_PVT.G_CREATE,
1240: p_validation_level,
1241: l_return_status);
1242:
1243:
1246: END IF;
1247:
1248: -- validate the qualifier usage record
1249: validate_qual_usgs_rec ( l_qual_usgs_rec,
1250: JTF_CTM_UTILITY_PVT.G_CREATE,
1251: p_validation_level,
1252: l_return_status);
1253:
1254: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1499: END IF;
1500:
1501: -- validate the seeded qualifier record
1502: validate_seed_qual_rec ( l_seed_qual_rec,
1503: JTF_CTM_UTILITY_PVT.G_UPDATE,
1504: p_validation_level,
1505: l_return_status);
1506:
1507:
1513:
1514:
1515: -- validate the qualifier usage record
1516: validate_qual_usgs_rec ( l_qual_usgs_rec,
1517: JTF_CTM_UTILITY_PVT.G_UPDATE,
1518: p_validation_level,
1519: l_return_status);
1520:
1521: