[Home] [Help]
179: SAVEPOINT create_group;
180:
181: -- initialize message list if p_init_msg_list is set to TRUE.
182: IF FND_API.to_Boolean(p_init_msg_list) THEN
183: FND_MSG_PUB.initialize;
184: END IF;
185:
186: -- initialize API return status to success.
187: x_return_status := FND_API.G_RET_STS_SUCCESS;
190: if (p_dss_group.dss_group_code is null or
191: p_dss_group.dss_group_code = fnd_api.g_miss_char) then
192: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
193: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'dss_group_code' );
194: FND_MSG_PUB.ADD;
195: RAISE FND_API.G_EXC_ERROR;
196: end if;
197:
198: --validation for mandatory column dss_group_name
199: if (p_dss_group.dss_group_name is null or
200: p_dss_group.dss_group_name = fnd_api.g_miss_char) then
201: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
202: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'dss_group_name' );
203: FND_MSG_PUB.ADD;
204: RAISE FND_API.G_EXC_ERROR;
205: end if;
206:
207:
210: -- PASSED IN GROUP CODE SHOULD BE UNIQUE
211: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (p_dss_group.dss_group_code) = 'Y'
212: THEN
213: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_CODE_EXISTS_ALREADY');
214: FND_MSG_PUB.ADD;
215: RAISE FND_API.G_EXC_ERROR;
216: END IF;
217:
218: -- IF PASSED IN INSERT BEFORE GROUP IS NEITHER NULL NOR G_MISS_CHAR,
223: THEN
224: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (p_dss_group.order_before_group_code) = 'N'
225: THEN
226: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_ORD_BEF_GR_CODE_INVALID');
227: FND_MSG_PUB.ADD;
228: RAISE FND_API.G_EXC_ERROR;
229: END IF;
230: END IF;
231:
233: -- PASSED IN GROUP NAME SHOULD BE UNIQUE IN AN MLS LANGUAGE
234: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_vl (p_dss_group.dss_group_name) = 'Y'
235: THEN
236: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_NAME_EXISTS_ALREADY');
237: FND_MSG_PUB.ADD;
238: RAISE FND_API.G_EXC_ERROR;
239: END IF;
240:
241:
244: IF p_dss_group.status is not null then
245: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
246: p_dss_group.status, 'REGISTRY_STATUS')= 'N' THEN
247: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
248: FND_MSG_PUB.ADD;
249: RAISE FND_API.G_EXC_ERROR;
250: END IF;
251: END IF;
252:
254: IF UPPER( NVL(p_dss_group.bes_enable_flag,'N') ) IN ('Y','N') THEN
255: NULL;
256: ELSE
257: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_BES_FLAG_INVALID');
258: FND_MSG_PUB.ADD;
259: RAISE FND_API.G_EXC_ERROR;
260: END IF;
261:
262: -- RANK RESEQUENCING
292: x_object_version_number => 1);
293:
294:
295: -- standard call to get message count and if count is 1, get message info.
296: FND_MSG_PUB.Count_And_Get(
297: p_encoded => FND_API.G_FALSE,
298: p_count => x_msg_count,
299: p_data => x_msg_data);
300:
301: EXCEPTION
302: WHEN FND_API.G_EXC_ERROR THEN
303: ROLLBACK TO create_group ;
304: x_return_status := FND_API.G_RET_STS_ERROR;
305: FND_MSG_PUB.Count_And_Get(
306: p_encoded => FND_API.G_FALSE,
307: p_count => x_msg_count,
308: p_data => x_msg_data);
309:
309:
310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
311: ROLLBACK TO create_group ;
312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: FND_MSG_PUB.Count_And_Get(
314: p_encoded => FND_API.G_FALSE,
315: p_count => x_msg_count,
316: p_data => x_msg_data);
317:
319: ROLLBACK TO create_group ;
320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
321: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
322: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
323: FND_MSG_PUB.ADD;
324: FND_MSG_PUB.Count_And_Get(
325: p_encoded => FND_API.G_FALSE,
326: p_count => x_msg_count,
327: p_data => x_msg_data);
320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
321: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
322: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
323: FND_MSG_PUB.ADD;
324: FND_MSG_PUB.Count_And_Get(
325: p_encoded => FND_API.G_FALSE,
326: p_count => x_msg_count,
327: p_data => x_msg_data);
328: END create_group ;
369: BEGIN
370:
371: -- initialize message list if p_init_msg_list is set to TRUE.
372: IF FND_API.to_Boolean(p_init_msg_list) THEN
373: FND_MSG_PUB.initialize;
374: END IF;
375:
376: -- initialize API return status to success.
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
384: p_dss_group.dss_group_code= FND_API.G_MISS_CHAR )
385: THEN
386: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_TO_NULL');
387: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'dss_group_code' );
388: FND_MSG_PUB.ADD;
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391:
392: --Non updateable to null
392: --Non updateable to null
393: IF p_dss_group.dss_group_name = FND_API.G_MISS_CHAR THEN
394: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_TO_NULL');
395: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'dss_group_name' );
396: FND_MSG_PUB.ADD;
397: RAISE FND_API.G_EXC_ERROR;
398: END IF;
399:
400: IF p_dss_group.bes_enable_flag = FND_API.G_MISS_CHAR THEN
399:
400: IF p_dss_group.bes_enable_flag = FND_API.G_MISS_CHAR THEN
401: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_TO_NULL');
402: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'bes_enable_flag' );
403: FND_MSG_PUB.ADD;
404: RAISE FND_API.G_EXC_ERROR;
405: END IF;
406:
407: -- check whether record has been updated by another user. If not, lock it.
413: FOR UPDATE NOWAIT;
414: EXCEPTION
415: WHEN NO_DATA_FOUND THEN
416: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_CODE_INVALID');
417: FND_MSG_PUB.ADD;
418: RAISE FND_API.G_EXC_ERROR;
419: END;
420:
421: IF NOT ((x_object_version_number IS NULL AND
423: (x_object_version_number = l_object_version_number))
424: THEN
425: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
426: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_GROUPS');
427: FND_MSG_PUB.ADD;
428: RAISE FND_API.G_EXC_ERROR;
429: END IF;
430:
431: x_object_version_number := NVL(l_object_version_number, 1) + 1;
435: -- already validated when getting object_version_number.
436: /*
437: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (p_dss_group.dss_group_code) = 'N' THEN
438: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_CODE_INVALID');
439: FND_MSG_PUB.ADD;
440: RAISE FND_API.G_EXC_ERROR;
441: END IF;
442: */
443:
450: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (
451: p_dss_group.order_before_group_code) = 'N'
452: THEN
453: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_ORD_BEF_GR_CODE_INVALID');
454: FND_MSG_PUB.ADD;
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457: END IF;
458:
461: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_vl (
462: p_dss_group.dss_group_name, p_dss_group.dss_group_code) = 'Y'
463: THEN
464: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_NAME_EXISTS_ALREADY');
465: FND_MSG_PUB.ADD;
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
468: END IF;
469:
474: p_dss_group.status,
475: 'REGISTRY_STATUS')= 'N'
476: THEN
477: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
478: FND_MSG_PUB.ADD;
479: RAISE FND_API.G_EXC_ERROR;
480: END IF;
481: END IF;
482:
485: IF p_dss_group.bes_enable_flag <> 'Y' AND
486: p_dss_group.bes_enable_flag <> 'N'
487: THEN
488: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_BES_FLAG_INVALID');
489: FND_MSG_PUB.ADD;
490: RAISE FND_API.G_EXC_ERROR;
491: END IF;
492: END IF;
493:
567: x_object_version_number => x_object_version_number
568: );
569:
570: -- standard call to get message count and if count is 1, get message info.
571: FND_MSG_PUB.Count_And_Get(
572: p_encoded => FND_API.G_FALSE,
573: p_count => x_msg_count,
574: p_data => x_msg_data);
575:
577: WHEN FND_API.G_EXC_ERROR THEN
578: ROLLBACK TO update_group ;
579: x_return_status := FND_API.G_RET_STS_ERROR;
580:
581: FND_MSG_PUB.Count_And_Get(
582: p_encoded => FND_API.G_FALSE,
583: p_count => x_msg_count,
584: p_data => x_msg_data);
585:
586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
587: ROLLBACK TO update_group ;
588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
589:
590: FND_MSG_PUB.Count_And_Get(
591: p_encoded => FND_API.G_FALSE,
592: p_count => x_msg_count,
593: p_data => x_msg_data);
594:
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598:
599: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
600: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
601: FND_MSG_PUB.ADD;
602: FND_MSG_PUB.Count_And_Get(
603: p_encoded => FND_API.G_FALSE,
604: p_count => x_msg_count,
605: p_data => x_msg_data);
598:
599: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
600: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
601: FND_MSG_PUB.ADD;
602: FND_MSG_PUB.Count_And_Get(
603: p_encoded => FND_API.G_FALSE,
604: p_count => x_msg_count,
605: p_data => x_msg_data);
606: END update_group ;
645: SAVEPOINT create_secured_module ;
646:
647: -- initialize message list if p_init_msg_list is set to TRUE.
648: IF FND_API.to_Boolean(p_init_msg_list) THEN
649: FND_MSG_PUB.initialize;
650: END IF;
651:
652: -- initialize API return status to success.
653: x_return_status := FND_API.G_RET_STS_SUCCESS;
656: IF (p_dss_secured_module.dss_group_code is null OR
657: p_dss_secured_module.dss_group_code = FND_API.G_MISS_CHAR) THEN
658: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
659: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'dss_group_code' );
660: FND_MSG_PUB.ADD;
661: RAISE FND_API.G_EXC_ERROR;
662: END IF;
663:
664: IF (p_dss_secured_module.created_by_module is null OR
664: IF (p_dss_secured_module.created_by_module is null OR
665: p_dss_secured_module.created_by_module = FND_API.G_MISS_CHAR) THEN
666: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
667: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'created_by_module' );
668: FND_MSG_PUB.ADD;
669: RAISE FND_API.G_EXC_ERROR;
670: END IF;
671:
672:
674: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (
675: p_dss_secured_module.dss_group_code) = 'N'
676: THEN
677: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_CODE_INVALID');
678: FND_MSG_PUB.ADD;
679: RAISE FND_API.G_EXC_ERROR;
680: END IF;
681:
682: -- status validation
683: IF p_dss_secured_module.status is not null then
684: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
685: p_dss_secured_module.status, 'REGISTRY_STATUS')= 'N' THEN
686: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
687: FND_MSG_PUB.ADD;
688: RAISE FND_API.G_EXC_ERROR;
689: END IF;
690: END IF;
691:
693: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups_gl(
694: p_dss_secured_module.created_by_module, 'HZ_CREATED_BY_MODULES') ='N'
695: THEN
696: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_CREATED_MODULE_INVALID');
697: FND_MSG_PUB.ADD;
698: RAISE FND_API.G_EXC_ERROR;
699: END IF;
700:
701: --Bug 2645685 Duplicate criteria should not be created for a Data Sharing
710:
711: if l_dup_count >= 1 then
712: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_DUP_CRITERIA_MODULE');
713: FND_MESSAGE.SET_TOKEN('MODULE', p_dss_secured_module.created_by_module);
714: FND_MSG_PUB.ADD;
715: RAISE FND_API.G_EXC_ERROR;
716: END IF;
717:
718:
728: x_object_version_number => 1 );
729:
730:
731: -- standard call to get message count and if count is 1, get message info.
732: FND_MSG_PUB.Count_And_Get(
733: p_encoded => FND_API.G_FALSE,
734: p_count => x_msg_count,
735: p_data => x_msg_data);
736:
737: EXCEPTION
738: WHEN FND_API.G_EXC_ERROR THEN
739: ROLLBACK TO create_secured_module ;
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: FND_MSG_PUB.Count_And_Get(
742: p_encoded => FND_API.G_FALSE,
743: p_count => x_msg_count,
744: p_data => x_msg_data);
745:
745:
746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
747: ROLLBACK TO create_secured_module ;
748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
749: FND_MSG_PUB.Count_And_Get(
750: p_encoded => FND_API.G_FALSE,
751: p_count => x_msg_count,
752: p_data => x_msg_data);
753:
755: ROLLBACK TO create_secured_module ;
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
758: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
759: FND_MSG_PUB.ADD;
760: FND_MSG_PUB.Count_And_Get(
761: p_encoded => FND_API.G_FALSE,
762: p_count => x_msg_count,
763: p_data => x_msg_data);
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
758: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
759: FND_MSG_PUB.ADD;
760: FND_MSG_PUB.Count_And_Get(
761: p_encoded => FND_API.G_FALSE,
762: p_count => x_msg_count,
763: p_data => x_msg_data);
764: END create_secured_module;
800:
801: BEGIN
802: -- initialize message list if p_init_msg_list is set to TRUE.
803: IF FND_API.to_Boolean(p_init_msg_list) THEN
804: FND_MSG_PUB.initialize;
805: END IF;
806:
807: -- initialize API return status to success.
808: x_return_status := FND_API.G_RET_STS_SUCCESS;
819: FOR UPDATE NOWAIT;
820: EXCEPTION
821: WHEN NO_DATA_FOUND THEN
822: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_ITEM_ID_INVALID');
823: FND_MSG_PUB.ADD;
824: RAISE FND_API.G_EXC_ERROR;
825: END;
826:
827:
829: OR (x_object_version_number = l_object_version_number))
830: THEN
831: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
832: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_CRITERIA');
833: FND_MSG_PUB.ADD;
834: RAISE FND_API.G_EXC_ERROR;
835: END IF;
836:
837: x_object_version_number := nvl(l_object_version_number, 1) + 1;
841: l_dss_group_code IS NOT NULL )
842: AND ( l_dss_group_code IS NULL OR
843: p_dss_secured_module.dss_group_code <> l_dss_group_code ) THEN
844: FND_MESSAGE.SET_NAME( 'AR', 'HZ_DSS_CRITERIA_IMMUTABLE' );
845: FND_MSG_PUB.ADD;
846: RAISE FND_API.G_EXC_ERROR;
847: END IF;
848:
849:
851: l_created_by_module IS NOT NULL )
852: AND ( l_created_by_module IS NULL OR
853: p_dss_secured_module.created_by_module <> l_created_by_module ) THEN
854: FND_MESSAGE.SET_NAME( 'AR', 'HZ_DSS_CRITERIA_IMMUTABLE' );
855: FND_MSG_PUB.ADD;
856: RAISE FND_API.G_EXC_ERROR;
857: END IF;
858:
859: -- status validation
860: IF p_dss_secured_module.status is not null then
861: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
862: p_dss_secured_module.status, 'REGISTRY_STATUS')= 'N' THEN
863: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
864: FND_MSG_PUB.ADD;
865: RAISE FND_API.G_EXC_ERROR;
866: END IF;
867: END IF;
868:
872: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
873: p_dss_secured_module.created_by_module, 'HZ_CREATED_BY_MODULES') ='N'
874: THEN
875: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_CREATED_MODULE_INVALID');
876: FND_MSG_PUB.ADD;
877: RAISE FND_API.G_EXC_ERROR;
878: END IF;
879: END IF;
880: */
890: x_owner_table_id2 => p_dss_secured_module.created_by_module ,
891: x_object_version_number => x_object_version_number);
892:
893: -- standard call to get message count and if count is 1, get message info.
894: FND_MSG_PUB.Count_And_Get(
895: p_encoded => FND_API.G_FALSE,
896: p_count => x_msg_count,
897: p_data => x_msg_data);
898:
899: EXCEPTION
900: WHEN FND_API.G_EXC_ERROR THEN
901: ROLLBACK TO update_secured_module ;
902: x_return_status := FND_API.G_RET_STS_ERROR;
903: FND_MSG_PUB.Count_And_Get(
904: p_encoded => FND_API.G_FALSE,
905: p_count => x_msg_count,
906: p_data => x_msg_data);
907:
907:
908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
909: ROLLBACK TO update_secured_module ;
910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911: FND_MSG_PUB.Count_And_Get(
912: p_encoded => FND_API.G_FALSE,
913: p_count => x_msg_count,
914: p_data => x_msg_data);
915:
917: ROLLBACK TO update_secured_module ;
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
920: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
921: FND_MSG_PUB.ADD;
922: FND_MSG_PUB.Count_And_Get(
923: p_encoded => FND_API.G_FALSE,
924: p_count => x_msg_count,
925: p_data => x_msg_data);
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
920: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
921: FND_MSG_PUB.ADD;
922: FND_MSG_PUB.Count_And_Get(
923: p_encoded => FND_API.G_FALSE,
924: p_count => x_msg_count,
925: p_data => x_msg_data);
926: END update_secured_module ;
967: SAVEPOINT create_secured_criterion ;
968:
969: -- initialize message list if p_init_msg_list is set to TRUE.
970: IF FND_API.to_Boolean(p_init_msg_list) THEN
971: FND_MSG_PUB.initialize;
972: END IF;
973:
974: -- initialize API return status to success.
975: x_return_status := FND_API.G_RET_STS_SUCCESS;
1000: IF (p_dss_secured_criterion.dss_group_code is null OR
1001: p_dss_secured_criterion.dss_group_code = FND_API.G_MISS_CHAR) THEN
1002: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1003: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'dss_group_code' );
1004: FND_MSG_PUB.ADD;
1005: RAISE FND_API.G_EXC_ERROR;
1006: END IF;
1007:
1008: -- VALIDATION
1010: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (
1011: p_dss_secured_criterion.dss_group_code) = 'N'
1012: THEN
1013: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_CODE_INVALID');
1014: FND_MSG_PUB.ADD;
1015: RAISE FND_API.G_EXC_ERROR;
1016: END IF;
1017:
1018: -- STATUS VALIDATION
1019: IF p_dss_secured_criterion.status is not null then
1020: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
1021: p_dss_secured_criterion.status, 'REGISTRY_STATUS')= 'N' THEN
1022: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
1023: FND_MSG_PUB.ADD;
1024: RAISE FND_API.G_EXC_ERROR;
1025: END IF;
1026: END IF;
1027:
1040: END IF;
1041:
1042:
1043: -- standard call to get message count and if count is 1, get message info.
1044: FND_MSG_PUB.Count_And_Get(
1045: p_encoded => FND_API.G_FALSE,
1046: p_count => x_msg_count,
1047: p_data => x_msg_data);
1048:
1049: EXCEPTION
1050: WHEN FND_API.G_EXC_ERROR THEN
1051: ROLLBACK TO create_secured_criterion ;
1052: x_return_status := FND_API.G_RET_STS_ERROR;
1053: FND_MSG_PUB.Count_And_Get(
1054: p_encoded => FND_API.G_FALSE,
1055: p_count => x_msg_count,
1056: p_data => x_msg_data);
1057:
1057:
1058: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1059: ROLLBACK TO create_secured_criterion ;
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: FND_MSG_PUB.Count_And_Get(
1062: p_encoded => FND_API.G_FALSE,
1063: p_count => x_msg_count,
1064: p_data => x_msg_data);
1065:
1067: ROLLBACK TO create_secured_criterion ;
1068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1069: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1070: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1071: FND_MSG_PUB.ADD;
1072: FND_MSG_PUB.Count_And_Get(
1073: p_encoded => FND_API.G_FALSE,
1074: p_count => x_msg_count,
1075: p_data => x_msg_data);
1068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1069: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1070: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1071: FND_MSG_PUB.ADD;
1072: FND_MSG_PUB.Count_And_Get(
1073: p_encoded => FND_API.G_FALSE,
1074: p_count => x_msg_count,
1075: p_data => x_msg_data);
1076: END create_secured_criterion ;
1112:
1113: BEGIN
1114: -- initialize message list if p_init_msg_list is set to TRUE.
1115: IF FND_API.to_Boolean(p_init_msg_list) THEN
1116: FND_MSG_PUB.initialize;
1117: END IF;
1118:
1119: -- initialize API return status to success.
1120: x_return_status := FND_API.G_RET_STS_SUCCESS;
1131: FOR UPDATE NOWAIT;
1132: EXCEPTION
1133: WHEN NO_DATA_FOUND THEN
1134: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_ITEM_ID_INVALID');
1135: FND_MSG_PUB.ADD;
1136: RAISE FND_API.G_EXC_ERROR;
1137: END;
1138:
1139:
1141: OR (x_object_version_number = l_object_version_number))
1142: THEN
1143: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1144: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_CRITERIA');
1145: FND_MSG_PUB.ADD;
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148:
1149:
1179: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
1180: p_dss_secured_criterion.status, 'REGISTRY_STATUS')= 'N'
1181: THEN
1182: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
1183: FND_MSG_PUB.ADD;
1184: RAISE FND_API.G_EXC_ERROR;
1185: END IF;
1186: END IF;
1187:
1200: x_object_version_number := nvl(l_object_version_number, 1) + 1;
1201:
1202: END IF;
1203: -- standard call to get message count and if count is 1, get message info.
1204: FND_MSG_PUB.Count_And_Get(
1205: p_encoded => FND_API.G_FALSE,
1206: p_count => x_msg_count,
1207: p_data => x_msg_data);
1208:
1209: EXCEPTION
1210: WHEN FND_API.G_EXC_ERROR THEN
1211: ROLLBACK TO update_secured_criterion ;
1212: x_return_status := FND_API.G_RET_STS_ERROR;
1213: FND_MSG_PUB.Count_And_Get(
1214: p_encoded => FND_API.G_FALSE,
1215: p_count => x_msg_count,
1216: p_data => x_msg_data);
1217:
1217:
1218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1219: ROLLBACK TO update_secured_criterion ;
1220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1221: FND_MSG_PUB.Count_And_Get(
1222: p_encoded => FND_API.G_FALSE,
1223: p_count => x_msg_count,
1224: p_data => x_msg_data);
1225:
1227: ROLLBACK TO update_secured_criterion ;
1228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1229: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1230: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1231: FND_MSG_PUB.ADD;
1232: FND_MSG_PUB.Count_And_Get(
1233: p_encoded => FND_API.G_FALSE,
1234: p_count => x_msg_count,
1235: p_data => x_msg_data);
1228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1229: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1230: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1231: FND_MSG_PUB.ADD;
1232: FND_MSG_PUB.Count_And_Get(
1233: p_encoded => FND_API.G_FALSE,
1234: p_count => x_msg_count,
1235: p_data => x_msg_data);
1236: END update_secured_criterion ;
1278: SAVEPOINT create_secured_classification ;
1279:
1280: -- initialize message list if p_init_msg_list is set to TRUE.
1281: IF FND_API.to_Boolean(p_init_msg_list) THEN
1282: FND_MSG_PUB.initialize;
1283: END IF;
1284:
1285: -- initialize API return status to success.
1286: x_return_status := FND_API.G_RET_STS_SUCCESS;
1289: IF (p_dss_secured_class.dss_group_code is null OR
1290: p_dss_secured_class.dss_group_code = FND_API.G_MISS_CHAR) THEN
1291: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1292: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'dss_group_code' );
1293: FND_MSG_PUB.ADD;
1294: RAISE FND_API.G_EXC_ERROR;
1295: END IF;
1296:
1297: IF (p_dss_secured_class.class_category is null OR
1297: IF (p_dss_secured_class.class_category is null OR
1298: p_dss_secured_class.class_category = FND_API.G_MISS_CHAR) THEN
1299: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1300: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_category' );
1301: FND_MSG_PUB.ADD;
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304:
1305: IF (p_dss_secured_class.class_code is null OR
1305: IF (p_dss_secured_class.class_code is null OR
1306: p_dss_secured_class.class_code = FND_API.G_MISS_CHAR) THEN
1307: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1308: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_code' );
1309: FND_MSG_PUB.ADD;
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1312:
1313: -- VALIDATION
1315: -- PASSED IN GROUP CODE SHOULD BE VALID
1316: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (p_dss_secured_class.dss_group_code) = 'N'
1317: THEN
1318: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_CODE_INVALID');
1319: FND_MSG_PUB.ADD;
1320: RAISE FND_API.G_EXC_ERROR;
1321: END IF;
1322:
1323: -- PASSED IN CLASS CATEGORY SHOULD BE VALID
1323: -- PASSED IN CLASS CATEGORY SHOULD BE VALID
1324: IF HZ_DSS_VALIDATE_PKG.exist_in_hz_class_categories (p_dss_secured_class.class_category) = 'N'
1325: THEN
1326: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_CL_CATEGORY_INVALID');
1327: FND_MSG_PUB.ADD;
1328: RAISE FND_API.G_EXC_ERROR;
1329: END IF;
1330:
1331: -- PASSED IN CLASS CODE SHOULD BE VALID
1331: -- PASSED IN CLASS CODE SHOULD BE VALID
1332: IF HZ_DSS_VALIDATE_PKG.exist_in_fnd_lookups(p_dss_secured_class.class_code,p_dss_secured_class.class_category ) = 'N'
1333: THEN
1334: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_CL_CODE_INVALID');
1335: FND_MSG_PUB.ADD;
1336: RAISE FND_API.G_EXC_ERROR;
1337: END IF;
1338:
1339:
1341: IF p_dss_secured_class.status is not null then
1342: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_secured_class.status,
1343: 'REGISTRY_STATUS')= 'N' THEN
1344: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
1345: FND_MSG_PUB.ADD;
1346: RAISE FND_API.G_EXC_ERROR;
1347: END IF;
1348: END IF;
1349:
1360: if l_dup_count >= 1 then
1361: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_DUP_CRITERIA_CLASS');
1362: FND_MESSAGE.SET_TOKEN('CATEGORY', p_dss_secured_class.class_category);
1363: FND_MESSAGE.SET_TOKEN('CLASS', p_dss_secured_class.class_code);
1364: FND_MSG_PUB.ADD;
1365: RAISE FND_API.G_EXC_ERROR;
1366: END IF;
1367:
1368:
1378: x_object_version_number => 1);
1379:
1380:
1381: -- standard call to get message count and if count is 1, get message info.
1382: FND_MSG_PUB.Count_And_Get(
1383: p_encoded => FND_API.G_FALSE,
1384: p_count => x_msg_count,
1385: p_data => x_msg_data);
1386:
1387: EXCEPTION
1388: WHEN FND_API.G_EXC_ERROR THEN
1389: ROLLBACK TO create_secured_classification ;
1390: x_return_status := FND_API.G_RET_STS_ERROR;
1391: FND_MSG_PUB.Count_And_Get(
1392: p_encoded => FND_API.G_FALSE,
1393: p_count => x_msg_count,
1394: p_data => x_msg_data);
1395:
1395:
1396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1397: ROLLBACK TO create_secured_classification ;
1398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1399: FND_MSG_PUB.Count_And_Get(
1400: p_encoded => FND_API.G_FALSE,
1401: p_count => x_msg_count,
1402: p_data => x_msg_data);
1403:
1405: ROLLBACK TO create_secured_classification ;
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1408: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1409: FND_MSG_PUB.ADD;
1410: FND_MSG_PUB.Count_And_Get(
1411: p_encoded => FND_API.G_FALSE,
1412: p_count => x_msg_count,
1413: p_data => x_msg_data);
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1408: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1409: FND_MSG_PUB.ADD;
1410: FND_MSG_PUB.Count_And_Get(
1411: p_encoded => FND_API.G_FALSE,
1412: p_count => x_msg_count,
1413: p_data => x_msg_data);
1414: END create_secured_classification ;
1454:
1455: BEGIN
1456: -- initialize message list if p_init_msg_list is set to TRUE.
1457: IF FND_API.to_Boolean(p_init_msg_list) THEN
1458: FND_MSG_PUB.initialize;
1459: END IF;
1460:
1461: -- initialize API return status to success.
1462: x_return_status := FND_API.G_RET_STS_SUCCESS;
1476: FOR UPDATE NOWAIT;
1477: EXCEPTION
1478: WHEN NO_DATA_FOUND THEN
1479: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_ITEM_ID_INVALID');
1480: FND_MSG_PUB.ADD;
1481: RAISE FND_API.G_EXC_ERROR;
1482: END;
1483:
1484: IF NOT ((x_object_version_number is null and l_object_version_number is null)
1485: OR (x_object_version_number = l_object_version_number))
1486: THEN
1487: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1488: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_CRITERIA');
1489: FND_MSG_PUB.ADD;
1490: RAISE FND_API.G_EXC_ERROR;
1491: END IF;
1492:
1493: x_object_version_number := nvl(l_object_version_number, 1) + 1;
1498: l_dss_group_code IS NOT NULL )
1499: AND ( l_dss_group_code IS NULL OR
1500: p_dss_secured_class.dss_group_code <> l_dss_group_code ) THEN
1501: FND_MESSAGE.SET_NAME( 'AR', 'HZ_DSS_CRITERIA_IMMUTABLE' );
1502: FND_MSG_PUB.ADD;
1503: RAISE FND_API.G_EXC_ERROR;
1504: END IF;
1505:
1506:
1508: l_class_category IS NOT NULL )
1509: AND ( l_class_category IS NULL OR
1510: p_dss_secured_class.class_category <> l_class_category ) THEN
1511: FND_MESSAGE.SET_NAME( 'AR', 'HZ_DSS_CRITERIA_IMMUTABLE' );
1512: FND_MSG_PUB.ADD;
1513: RAISE FND_API.G_EXC_ERROR;
1514: END IF;
1515:
1516: IF ( p_dss_secured_class.class_code <> FND_API.G_MISS_CHAR OR
1517: l_class_code IS NOT NULL )
1518: AND ( l_class_code IS NULL OR
1519: p_dss_secured_class.class_code <> l_class_code ) THEN
1520: FND_MESSAGE.SET_NAME( 'AR', 'HZ_DSS_CRITERIA_IMMUTABLE' );
1521: FND_MSG_PUB.ADD;
1522: RAISE FND_API.G_EXC_ERROR;
1523: END IF;
1524:
1525:
1527: IF p_dss_secured_class.status is not null then
1528: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_secured_class.status,
1529: 'REGISTRY_STATUS')= 'N' THEN
1530: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
1531: FND_MSG_PUB.ADD;
1532: RAISE FND_API.G_EXC_ERROR;
1533: END IF;
1534: END IF;
1535:
1544: x_object_version_number => x_object_version_number
1545: );
1546:
1547: -- standard call to get message count and if count is 1, get message info.
1548: FND_MSG_PUB.Count_And_Get(
1549: p_encoded => FND_API.G_FALSE,
1550: p_count => x_msg_count,
1551: p_data => x_msg_data);
1552:
1553: EXCEPTION
1554: WHEN FND_API.G_EXC_ERROR THEN
1555: ROLLBACK TO update_secured_classification ;
1556: x_return_status := FND_API.G_RET_STS_ERROR;
1557: FND_MSG_PUB.Count_And_Get(
1558: p_encoded => FND_API.G_FALSE,
1559: p_count => x_msg_count,
1560: p_data => x_msg_data);
1561:
1561:
1562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1563: ROLLBACK TO update_secured_classification ;
1564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1565: FND_MSG_PUB.Count_And_Get(
1566: p_encoded => FND_API.G_FALSE,
1567: p_count => x_msg_count,
1568: p_data => x_msg_data);
1569:
1571: ROLLBACK TO update_secured_classification ;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1574: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1575: FND_MSG_PUB.ADD;
1576: FND_MSG_PUB.Count_And_Get(
1577: p_encoded => FND_API.G_FALSE,
1578: p_count => x_msg_count,
1579: p_data => x_msg_data);
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1574: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1575: FND_MSG_PUB.ADD;
1576: FND_MSG_PUB.Count_And_Get(
1577: p_encoded => FND_API.G_FALSE,
1578: p_count => x_msg_count,
1579: p_data => x_msg_data);
1580: END update_secured_classification ;
1624: SAVEPOINT create_secured_rel_type ;
1625:
1626: -- initialize message list if p_init_msg_list is set to TRUE.
1627: IF FND_API.to_Boolean(p_init_msg_list) THEN
1628: FND_MSG_PUB.initialize;
1629: END IF;
1630:
1631: -- initialize API return status to success.
1632: x_return_status := FND_API.G_RET_STS_SUCCESS;
1635: IF (p_dss_secured_rel_type.dss_group_code is null OR
1636: p_dss_secured_rel_type.dss_group_code = FND_API.G_MISS_CHAR) THEN
1637: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1638: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'dss_group_code' );
1639: FND_MSG_PUB.ADD;
1640: RAISE FND_API.G_EXC_ERROR;
1641: END IF;
1642:
1643: IF (p_dss_secured_rel_type.relationship_type_id is null OR
1643: IF (p_dss_secured_rel_type.relationship_type_id is null OR
1644: p_dss_secured_rel_type.relationship_type_id = FND_API.G_MISS_NUM) THEN
1645: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1646: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'relationship_type_id' );
1647: FND_MSG_PUB.ADD;
1648: RAISE FND_API.G_EXC_ERROR;
1649: END IF;
1650:
1651:
1653: -- PASSED IN GROUP CODE SHOULD BE VALID
1654: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (p_dss_secured_rel_type.dss_group_code) = 'N'
1655: THEN
1656: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_CODE_INVALID');
1657: FND_MSG_PUB.ADD;
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660:
1661: -- PASSED IN RELATIONSHIP_TYPE_ID SHOULD BE VALID
1661: -- PASSED IN RELATIONSHIP_TYPE_ID SHOULD BE VALID
1662: IF HZ_DSS_VALIDATE_PKG.exist_in_hz_relationship_types (p_dss_secured_rel_type.relationship_type_id) = 'N'
1663: THEN
1664: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_REL_TYPE_ID_INVALID');
1665: FND_MSG_PUB.ADD;
1666: RAISE FND_API.G_EXC_ERROR;
1667: END IF;
1668:
1669:
1671: IF p_dss_secured_rel_type.status is not null then
1672: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_secured_rel_type.status,
1673: 'REGISTRY_STATUS')= 'N' THEN
1674: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
1675: FND_MSG_PUB.ADD;
1676: RAISE FND_API.G_EXC_ERROR;
1677: END IF;
1678: END IF;
1679:
1693: where relationship_type_id = p_dss_secured_rel_type.relationship_type_id;
1694:
1695: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_DUP_CRITERIA_REL');
1696: FND_MESSAGE.SET_TOKEN('RELROLE', l_rel_type);
1697: FND_MSG_PUB.ADD;
1698: RAISE FND_API.G_EXC_ERROR;
1699: END IF;
1700:
1701:
1710: x_object_version_number => 1);
1711:
1712:
1713: -- standard call to get message count and if count is 1, get message info.
1714: FND_MSG_PUB.Count_And_Get(
1715: p_encoded => FND_API.G_FALSE,
1716: p_count => x_msg_count,
1717: p_data => x_msg_data);
1718:
1719: EXCEPTION
1720: WHEN FND_API.G_EXC_ERROR THEN
1721: ROLLBACK TO create_secured_rel_type ;
1722: x_return_status := FND_API.G_RET_STS_ERROR;
1723: FND_MSG_PUB.Count_And_Get(
1724: p_encoded => FND_API.G_FALSE,
1725: p_count => x_msg_count,
1726: p_data => x_msg_data);
1727:
1727:
1728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1729: ROLLBACK TO create_secured_rel_type ;
1730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1731: FND_MSG_PUB.Count_And_Get(
1732: p_encoded => FND_API.G_FALSE,
1733: p_count => x_msg_count,
1734: p_data => x_msg_data);
1735:
1737: ROLLBACK TO create_secured_rel_type ;
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1740: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1741: FND_MSG_PUB.ADD;
1742: FND_MSG_PUB.Count_And_Get(
1743: p_encoded => FND_API.G_FALSE,
1744: p_count => x_msg_count,
1745: p_data => x_msg_data);
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1740: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1741: FND_MSG_PUB.ADD;
1742: FND_MSG_PUB.Count_And_Get(
1743: p_encoded => FND_API.G_FALSE,
1744: p_count => x_msg_count,
1745: p_data => x_msg_data);
1746: END create_secured_rel_type ;
1783:
1784: BEGIN
1785: -- initialize message list if p_init_msg_list is set to TRUE.
1786: IF FND_API.to_Boolean(p_init_msg_list) THEN
1787: FND_MSG_PUB.initialize;
1788: END IF;
1789:
1790: -- initialize API return status to success.
1791: x_return_status := FND_API.G_RET_STS_SUCCESS;
1804: FOR UPDATE NOWAIT;
1805: EXCEPTION
1806: WHEN NO_DATA_FOUND THEN
1807: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_ITEM_ID_INVALID');
1808: FND_MSG_PUB.ADD;
1809: RAISE FND_API.G_EXC_ERROR;
1810: END;
1811:
1812: IF NOT ((x_object_version_number is null and l_object_version_number is null)
1813: OR (x_object_version_number = l_object_version_number))
1814: THEN
1815: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1816: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_CRITERIA');
1817: FND_MSG_PUB.ADD;
1818: RAISE FND_API.G_EXC_ERROR;
1819: END IF;
1820:
1821: x_object_version_number := nvl(l_object_version_number, 1) + 1;
1825: l_dss_group_code IS NOT NULL )
1826: AND ( l_dss_group_code IS NULL OR
1827: p_dss_secured_rel_type.dss_group_code <> l_dss_group_code ) THEN
1828: FND_MESSAGE.SET_NAME( 'AR', 'HZ_DSS_CRITERIA_IMMUTABLE' );
1829: FND_MSG_PUB.ADD;
1830: RAISE FND_API.G_EXC_ERROR;
1831: END IF;
1832:
1833:
1836: AND ( l_relationship_type_id IS NULL OR
1837: p_dss_secured_rel_type.relationship_type_id <> l_relationship_type_id )
1838: THEN
1839: FND_MESSAGE.SET_NAME( 'AR', 'HZ_DSS_CRITERIA_IMMUTABLE' );
1840: FND_MSG_PUB.ADD;
1841: RAISE FND_API.G_EXC_ERROR;
1842: END IF;
1843:
1844:
1847: IF p_dss_secured_rel_type.status is not null then
1848: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_secured_rel_type.status,
1849: 'REGISTRY_STATUS')= 'N' THEN
1850: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
1851: FND_MSG_PUB.ADD;
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854: END IF;
1855:
1864: x_object_version_number => x_object_version_number);
1865:
1866:
1867: -- standard call to get message count and if count is 1, get message info.
1868: FND_MSG_PUB.Count_And_Get(
1869: p_encoded => FND_API.G_FALSE,
1870: p_count => x_msg_count,
1871: p_data => x_msg_data);
1872:
1873: EXCEPTION
1874: WHEN FND_API.G_EXC_ERROR THEN
1875: ROLLBACK TO update_secured_rel_type ;
1876: x_return_status := FND_API.G_RET_STS_ERROR;
1877: FND_MSG_PUB.Count_And_Get(
1878: p_encoded => FND_API.G_FALSE,
1879: p_count => x_msg_count,
1880: p_data => x_msg_data);
1881:
1881:
1882: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1883: ROLLBACK TO update_secured_rel_type ;
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1885: FND_MSG_PUB.Count_And_Get(
1886: p_encoded => FND_API.G_FALSE,
1887: p_count => x_msg_count,
1888: p_data => x_msg_data);
1889:
1891: ROLLBACK TO update_secured_rel_type ;
1892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1893: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1894: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1895: FND_MSG_PUB.ADD;
1896: FND_MSG_PUB.Count_And_Get(
1897: p_encoded => FND_API.G_FALSE,
1898: p_count => x_msg_count,
1899: p_data => x_msg_data);
1892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1893: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
1894: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1895: FND_MSG_PUB.ADD;
1896: FND_MSG_PUB.Count_And_Get(
1897: p_encoded => FND_API.G_FALSE,
1898: p_count => x_msg_count,
1899: p_data => x_msg_data);
1900: END update_secured_rel_type ;
1939: SAVEPOINT create_assignment ;
1940:
1941: -- initialize message list if p_init_msg_list is set to TRUE.
1942: IF FND_API.to_Boolean(p_init_msg_list) THEN
1943: FND_MSG_PUB.initialize;
1944: END IF;
1945:
1946: -- initialize API return status to success.
1947: x_return_status := FND_API.G_RET_STS_SUCCESS;
1950: -- PASSED IN GROUP CODE SHOULD BE VALID
1951: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (p_dss_assignment.dss_group_code) = 'N'
1952: THEN
1953: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_CODE_INVALID');
1954: FND_MSG_PUB.ADD;
1955: RAISE FND_API.G_EXC_ERROR;
1956: END IF;
1957:
1958: -- OWNER TABLE NAME VALIDATION
1958: -- OWNER TABLE NAME VALIDATION
1959: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_entities(p_dss_assignment.owner_table_name) = 'N'
1960: THEN
1961: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OWN_TABLE_NAME_INVALID');
1962: FND_MSG_PUB.ADD;
1963: RAISE FND_API.G_EXC_ERROR;
1964: END IF;
1965:
1966: -- STATUS VALIDATION
1967:
1968: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_assignment.status, 'REGISTRY_STATUS')= 'N'
1969: THEN
1970: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
1971: FND_MSG_PUB.ADD;
1972: RAISE FND_API.G_EXC_ERROR;
1973: END IF;
1974:
1975:
1990: );
1991:
1992:
1993: -- standard call to get message count and if count is 1, get message info.
1994: FND_MSG_PUB.Count_And_Get(
1995: p_encoded => FND_API.G_FALSE,
1996: p_count => x_msg_count,
1997: p_data => x_msg_data);
1998:
1999: EXCEPTION
2000: WHEN FND_API.G_EXC_ERROR THEN
2001: ROLLBACK TO create_assignment ;
2002: x_return_status := FND_API.G_RET_STS_ERROR;
2003: FND_MSG_PUB.Count_And_Get(
2004: p_encoded => FND_API.G_FALSE,
2005: p_count => x_msg_count,
2006: p_data => x_msg_data);
2007:
2007:
2008: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2009: ROLLBACK TO create_assignment ;
2010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2011: FND_MSG_PUB.Count_And_Get(
2012: p_encoded => FND_API.G_FALSE,
2013: p_count => x_msg_count,
2014: p_data => x_msg_data);
2015:
2017: ROLLBACK TO create_assignment ;
2018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2019: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
2020: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2021: FND_MSG_PUB.ADD;
2022: FND_MSG_PUB.Count_And_Get(
2023: p_encoded => FND_API.G_FALSE,
2024: p_count => x_msg_count,
2025: p_data => x_msg_data);
2018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2019: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
2020: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2021: FND_MSG_PUB.ADD;
2022: FND_MSG_PUB.Count_And_Get(
2023: p_encoded => FND_API.G_FALSE,
2024: p_count => x_msg_count,
2025: p_data => x_msg_data);
2026: END create_assignment ;
2059: SAVEPOINT delete_assignment ;
2060:
2061: -- initialize message list if p_init_msg_list is set to TRUE.
2062: IF FND_API.to_Boolean(p_init_msg_list) THEN
2063: FND_MSG_PUB.initialize;
2064: END IF;
2065:
2066: -- initialize API return status to success.
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2070: -- PASSED IN ASSIGNMENT ID SHOULD BE VALID
2071: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_assignments(p_assignment_id) = 'N'
2072: THEN
2073: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_ASS_ID_INVALID');
2074: FND_MSG_PUB.ADD;
2075: RAISE FND_API.G_EXC_ERROR;
2076: END IF;
2077:
2078: -- Call the low level table handler
2081: );
2082:
2083:
2084: -- standard call to get message count and if count is 1, get message info.
2085: FND_MSG_PUB.Count_And_Get(
2086: p_encoded => FND_API.G_FALSE,
2087: p_count => x_msg_count,
2088: p_data => x_msg_data);
2089:
2090: EXCEPTION
2091: WHEN FND_API.G_EXC_ERROR THEN
2092: ROLLBACK TO delete_assignment ;
2093: x_return_status := FND_API.G_RET_STS_ERROR;
2094: FND_MSG_PUB.Count_And_Get(
2095: p_encoded => FND_API.G_FALSE,
2096: p_count => x_msg_count,
2097: p_data => x_msg_data);
2098:
2098:
2099: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2100: ROLLBACK TO delete_assignment ;
2101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2102: FND_MSG_PUB.Count_And_Get(
2103: p_encoded => FND_API.G_FALSE,
2104: p_count => x_msg_count,
2105: p_data => x_msg_data);
2106:
2108: ROLLBACK TO delete_assignment ;
2109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2110: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
2111: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2112: FND_MSG_PUB.ADD;
2113: FND_MSG_PUB.Count_And_Get(
2114: p_encoded => FND_API.G_FALSE,
2115: p_count => x_msg_count,
2116: p_data => x_msg_data);
2109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2110: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
2111: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2112: FND_MSG_PUB.ADD;
2113: FND_MSG_PUB.Count_And_Get(
2114: p_encoded => FND_API.G_FALSE,
2115: p_count => x_msg_count,
2116: p_data => x_msg_data);
2117: END delete_assignment ;
2161: SAVEPOINT create_secured_entity ;
2162:
2163: -- initialize message list if p_init_msg_list is set to TRUE.
2164: IF FND_API.to_Boolean(p_init_msg_list) THEN
2165: FND_MSG_PUB.initialize;
2166: END IF;
2167:
2168: -- initialize API return status to success.
2169: x_return_status := FND_API.G_RET_STS_SUCCESS;
2172: IF (p_dss_secured_entity.dss_group_code is null OR
2173: p_dss_secured_entity.dss_group_code = FND_API.G_MISS_CHAR) THEN
2174: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
2175: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'dss_group_code' );
2176: FND_MSG_PUB.ADD;
2177: RAISE FND_API.G_EXC_ERROR;
2178: END IF;
2179:
2180: IF (p_dss_secured_entity.entity_id is null OR
2180: IF (p_dss_secured_entity.entity_id is null OR
2181: p_dss_secured_entity.entity_id = FND_API.G_MISS_NUM) THEN
2182: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
2183: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'entity_id' );
2184: FND_MSG_PUB.ADD;
2185: RAISE FND_API.G_EXC_ERROR;
2186: END IF;
2187:
2188:
2190: -- PASSED IN GROUP CODE SHOULD BE VALID
2191: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_groups_b (p_dss_secured_entity.dss_group_code) = 'N'
2192: THEN
2193: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_CODE_INVALID');
2194: FND_MSG_PUB.ADD;
2195: RAISE FND_API.G_EXC_ERROR;
2196: END IF;
2197:
2198: -- ENTITY ID VALIDATION
2198: -- ENTITY ID VALIDATION
2199: IF HZ_DSS_VALIDATE_PKG.exist_in_dss_entities(p_dss_secured_entity.entity_id ) = 'N'
2200: THEN
2201: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_ENT_ID_INVALID');
2202: FND_MSG_PUB.ADD;
2203: RAISE FND_API.G_EXC_ERROR;
2204: END IF;
2205:
2206: -- STATUS VALIDATION
2207: IF p_dss_secured_entity.status is not null then
2208: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_secured_entity.status,
2209: 'REGISTRY_STATUS')= 'N' THEN
2210: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
2211: FND_MSG_PUB.ADD;
2212: RAISE FND_API.G_EXC_ERROR;
2213: END IF;
2214: END IF;
2215:
2317: --Bug#2620405 Instance set ID is not getting returned
2318: x_dss_instance_set_id := l_dss_instance_set_id;
2319:
2320: -- standard call to get message count and if count is 1, get message info.
2321: FND_MSG_PUB.Count_And_Get(
2322: p_encoded => FND_API.G_FALSE,
2323: p_count => x_msg_count,
2324: p_data => x_msg_data);
2325:
2326: EXCEPTION
2327: WHEN FND_API.G_EXC_ERROR THEN
2328: ROLLBACK TO create_secured_entity ;
2329: x_return_status := FND_API.G_RET_STS_ERROR;
2330: FND_MSG_PUB.Count_And_Get(
2331: p_encoded => FND_API.G_FALSE,
2332: p_count => x_msg_count,
2333: p_data => x_msg_data);
2334:
2334:
2335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2336: ROLLBACK TO create_secured_entity ;
2337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2338: FND_MSG_PUB.Count_And_Get(
2339: p_encoded => FND_API.G_FALSE,
2340: p_count => x_msg_count,
2341: p_data => x_msg_data);
2342:
2344: ROLLBACK TO create_secured_entity ;
2345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2346: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
2347: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2348: FND_MSG_PUB.ADD;
2349: FND_MSG_PUB.Count_And_Get(
2350: p_encoded => FND_API.G_FALSE,
2351: p_count => x_msg_count,
2352: p_data => x_msg_data);
2345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2346: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
2347: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2348: FND_MSG_PUB.ADD;
2349: FND_MSG_PUB.Count_And_Get(
2350: p_encoded => FND_API.G_FALSE,
2351: p_count => x_msg_count,
2352: p_data => x_msg_data);
2353: END create_secured_entity ;
2390: BEGIN
2391:
2392: -- initialize message list if p_init_msg_list is set to TRUE.
2393: IF FND_API.to_Boolean(p_init_msg_list) THEN
2394: FND_MSG_PUB.initialize;
2395: END IF;
2396:
2397: -- initialize API return status to success.
2398: x_return_status := FND_API.G_RET_STS_SUCCESS;
2410: FOR UPDATE NOWAIT;
2411: EXCEPTION
2412: WHEN NO_DATA_FOUND THEN
2413: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_SEC_ENT_NOT_FOUND');
2414: FND_MSG_PUB.ADD;
2415: RAISE FND_API.G_EXC_ERROR;
2416: END;
2417:
2418: IF NOT ((x_object_version_number IS NULL AND
2420: (x_object_version_number = l_object_version_number))
2421: THEN
2422: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
2423: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_SECURED_ENTITIES');
2424: FND_MSG_PUB.ADD;
2425: RAISE FND_API.G_EXC_ERROR;
2426: END IF;
2427:
2428: x_object_version_number := nvl(l_object_version_number, 1) + 1;
2436: p_dss_secured_entity.status,
2437: 'REGISTRY_STATUS')= 'N'
2438: THEN
2439: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
2440: FND_MSG_PUB.ADD;
2441: RAISE FND_API.G_EXC_ERROR;
2442: END IF;
2443: END IF;
2444:
2479: x_object_version_number => x_object_version_number
2480: ) ;
2481:
2482: -- standard call to get message count and if count is 1, get message info.
2483: FND_MSG_PUB.Count_And_Get(
2484: p_encoded => FND_API.G_FALSE,
2485: p_count => x_msg_count,
2486: p_data => x_msg_data);
2487:
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: ROLLBACK TO update_secured_entity ;
2491: x_return_status := FND_API.G_RET_STS_ERROR;
2492:
2493: FND_MSG_PUB.Count_And_Get(
2494: p_encoded => FND_API.G_FALSE,
2495: p_count => x_msg_count,
2496: p_data => x_msg_data);
2497:
2498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2499: ROLLBACK TO update_secured_entity ;
2500:
2501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2502: FND_MSG_PUB.Count_And_Get(
2503: p_encoded => FND_API.G_FALSE,
2504: p_count => x_msg_count,
2505: p_data => x_msg_data);
2506:
2509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2510:
2511: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
2512: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2513: FND_MSG_PUB.ADD;
2514: FND_MSG_PUB.Count_And_Get(
2515: p_encoded => FND_API.G_FALSE,
2516: p_count => x_msg_count,
2517: p_data => x_msg_data);
2510:
2511: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
2512: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2513: FND_MSG_PUB.ADD;
2514: FND_MSG_PUB.Count_And_Get(
2515: p_encoded => FND_API.G_FALSE,
2516: p_count => x_msg_count,
2517: p_data => x_msg_data);
2518: END update_secured_entity ;