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:
549:
550: /* initialise local record */
551: l_qual_usgs_rec := p_qual_usgs_rec;
552:
553: IF ( JTF_CTM_UTILITY_PVT.lookup_code_is_valid ( l_qual_usgs_rec.seeded_flag
554: , 'FLAG'
555: , 'FND_LOOKUPS') = FND_API.G_FALSE) THEN
556: l_return_variable := FND_API.G_FALSE;
557: l_qual_usgs_rec.seeded_flag := 'N';
556: l_return_variable := FND_API.G_FALSE;
557: l_qual_usgs_rec.seeded_flag := 'N';
558: END IF;
559:
560: IF ( JTF_CTM_UTILITY_PVT.lookup_code_is_valid ( l_qual_usgs_rec.display_type
561: , 'DISPLAY_TYPE'
562: , 'FND_LOOKUPS') = FND_API.G_FALSE) THEN
563: l_return_variable := FND_API.G_FALSE;
564: l_qual_usgs_rec.display_type := 'STANDARD';
597:
598: BEGIN
599:
600:
601: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_ITEM ) THEN
602:
603: /* If record is being updated, check that primary key is not null */
604: IF ( (p_validation_mode = JTF_CTM_UTILITY_PVT.G_UPDATE) AND
605: ( l_qual_usgs_rec.qual_usg_id IS NULL OR
600:
601: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_ITEM ) THEN
602:
603: /* If record is being updated, check that primary key is not null */
604: IF ( (p_validation_mode = JTF_CTM_UTILITY_PVT.G_UPDATE) AND
605: ( l_qual_usgs_rec.qual_usg_id IS NULL OR
606: l_qual_usgs_rec.qual_usg_id = FND_API.G_MISS_NUM) ) THEN
607:
608: l_return_status := FND_API.G_RET_STS_ERROR;
609:
610: END IF;
611:
612:
613: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_RECORD ) THEN
614:
615: /* Check that all mandatory items exist in record */
616: IF (is_qual_usgs_rec_missing (l_qual_usgs_rec) = FND_API.G_TRUE) THEN
617: l_return_status := FND_API.G_RET_STS_ERROR;
619:
620:
621:
622:
623: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_INTER_ENTITY ) THEN
624:
625: /* check FK reference to JTF_SEEDED_QUAL */
626: IF ( l_qual_usgs_rec.seeded_qual_id IS NOT NULL AND
627: l_qual_usgs_rec.seeded_qual_id <> FND_API.G_MISS_NUM ) THEN
625: /* check FK reference to JTF_SEEDED_QUAL */
626: IF ( l_qual_usgs_rec.seeded_qual_id IS NOT NULL AND
627: l_qual_usgs_rec.seeded_qual_id <> FND_API.G_MISS_NUM ) THEN
628:
629: IF ( JTF_CTM_UTILITY_PVT.fk_id_is_valid (
630: l_qual_usgs_rec.seeded_qual_id,
631: 'SEEDED_QUAL_ID',
632: 'JTF_SEEDED_QUAL') = FND_API.G_FALSE)
633: THEN
637:
638:
639:
640:
641: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_INTER_ENTITY ) THEN
642:
643: /* check FK reference to JTF_QUAL_TYPE_USGS */
644: IF ( l_qual_usgs_rec.qual_type_usg_id IS NOT NULL AND
645: l_qual_usgs_rec.qual_type_usg_id <> FND_API.G_MISS_NUM ) THEN
643: /* check FK reference to JTF_QUAL_TYPE_USGS */
644: IF ( l_qual_usgs_rec.qual_type_usg_id IS NOT NULL AND
645: l_qual_usgs_rec.qual_type_usg_id <> FND_API.G_MISS_NUM ) THEN
646:
647: IF ( JTF_CTM_UTILITY_PVT.fk_id_is_valid (
648: l_qual_usgs_rec.qual_type_usg_id,
649: 'QUAL_TYPE_USG_ID',
650: 'JTF_QUAL_TYPE_USGS') = FND_API.G_FALSE)
651: THEN
655:
656:
657:
658: /* If record is being updated, check that primary key is not null */
659: IF (p_validation_mode = JTF_CTM_UTILITY_PVT.G_CREATE) THEN
660:
661: /* check that Unique Key constraint not violated */
662: IF ( l_qual_usgs_rec.seeded_qual_id IS NOT NULL AND
663: l_qual_usgs_rec.seeded_qual_id <> FND_API.G_MISS_NUM AND
689:
690:
691:
692:
693: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_RECORD ) THEN
694:
695: /* check qualifier column and table exists */
696: IF ( l_qual_usgs_rec.qual_col1_table IS NOT NULL AND
697: l_qual_usgs_rec.qual_col1_table <> FND_API.G_MISS_CHAR AND
714:
715:
716:
717:
718: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_RECORD ) THEN
719:
720: /* check qualifier column and table exists */
721: IF ( l_qual_usgs_rec.int_cde_col_table IS NOT NULL AND
722: l_qual_usgs_rec.int_cde_col_table <> FND_API.G_MISS_CHAR AND
734:
735:
736:
737:
738: -- IF ( p_validation_level >= JTF_CTM_UTILITY_PVT.G_VALID_LEVEL_RECORD ) THEN
739:
740: /* check qualifier column and table exists */
741: IF ( l_qual_usgs_rec.int_cde_col_table IS NOT NULL AND
742: l_qual_usgs_rec.int_cde_col_table <> FND_API.G_MISS_CHAR AND
1226:
1227:
1228: -- validate the seeded qualifier record
1229: validate_seed_qual_rec ( l_seed_qual_rec,
1230: JTF_CTM_UTILITY_PVT.G_CREATE,
1231: p_validation_level,
1232: l_return_status);
1233:
1234:
1237: END IF;
1238:
1239: -- validate the qualifier usage record
1240: validate_qual_usgs_rec ( l_qual_usgs_rec,
1241: JTF_CTM_UTILITY_PVT.G_CREATE,
1242: p_validation_level,
1243: l_return_status);
1244:
1245: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1490: END IF;
1491:
1492: -- validate the seeded qualifier record
1493: validate_seed_qual_rec ( l_seed_qual_rec,
1494: JTF_CTM_UTILITY_PVT.G_UPDATE,
1495: p_validation_level,
1496: l_return_status);
1497:
1498:
1504:
1505:
1506: -- validate the qualifier usage record
1507: validate_qual_usgs_rec ( l_qual_usgs_rec,
1508: JTF_CTM_UTILITY_PVT.G_UPDATE,
1509: p_validation_level,
1510: l_return_status);
1511:
1512: