[Home] [Help]
58:
59: -- VALIDATION
60: IF p_dss_entity_profile.object_id IS NOT NULL AND p_dss_entity_profile.instance_set_id IS NOT NULL
61: THEN
62: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OB_AND_INS_NON_NULL');
63: FND_MSG_PUB.ADD;
64: RAISE FND_API.G_EXC_ERROR;
65: ELSIF p_dss_entity_profile.object_id IS NULL AND p_dss_entity_profile.instance_set_id IS NULL
66: THEN
63: FND_MSG_PUB.ADD;
64: RAISE FND_API.G_EXC_ERROR;
65: ELSIF p_dss_entity_profile.object_id IS NULL AND p_dss_entity_profile.instance_set_id IS NULL
66: THEN
67: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OB_AND_INS_BOTH_NULL');
68: FND_MSG_PUB.ADD;
69: RAISE FND_API.G_EXC_ERROR;
70: END IF;
71:
72: IF p_dss_entity_profile.object_id IS NOT NULL
73: THEN
74: IF HZ_DSS_VALIDATE_PKG.exist_fnd_object_id(p_dss_entity_profile.object_id)= 'N'
75: THEN
76: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OBJ_ID_INVALID');
77: FND_MSG_PUB.ADD;
78: RAISE FND_API.G_EXC_ERROR;
79: END IF;
80: END IF;
82: IF p_dss_entity_profile.instance_set_id IS NOT NULL
83: THEN
84: IF HZ_DSS_VALIDATE_PKG.exist_fnd_instance_set_id(p_dss_entity_profile.instance_set_id) = 'N'
85: THEN
86: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_INS_SET_ID_INVALID');
87: FND_MSG_PUB.ADD;
88: RAISE FND_API.G_EXC_ERROR;
89: END IF;
90: END IF;
92: IF p_dss_entity_profile.parent_entity_id IS NOT NULL
93: THEN
94: IF HZ_DSS_VALIDATE_PKG.exist_entity_id(p_dss_entity_profile.parent_entity_id) = 'N'
95: THEN
96: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_PAR_ENT_ID_INVALID');
97: FND_MSG_PUB.ADD;
98: RAISE FND_API.G_EXC_ERROR;
99: END IF;
100: END IF;
103: IF p_dss_entity_profile.status is not null then
104: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
105: p_dss_entity_profile.status, 'REGISTRY_STATUS')= 'N'
106: THEN
107: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
108: FND_MSG_PUB.ADD;
109: RAISE FND_API.G_EXC_ERROR;
110: END IF;
111: END IF;
112:
113: ---validate group_assignment_level have a valid value
114: IF (p_dss_entity_profile.group_assignment_level is null OR
115: p_dss_entity_profile.group_assignment_level = FND_API.G_MISS_CHAR) THEN
116: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
117: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'group_assignment_level' );
118: FND_MSG_PUB.ADD;
119: RAISE FND_API.G_EXC_ERROR;
120: ELSE
113: ---validate group_assignment_level have a valid value
114: IF (p_dss_entity_profile.group_assignment_level is null OR
115: p_dss_entity_profile.group_assignment_level = FND_API.G_MISS_CHAR) THEN
116: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
117: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'group_assignment_level' );
118: FND_MSG_PUB.ADD;
119: RAISE FND_API.G_EXC_ERROR;
120: ELSE
121:
121:
122: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_entity_profile.
123: group_assignment_level, 'HZ_DSS_GROUP_ASSIGN_LEVELS') = 'N'
124: THEN
125: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_ASS_LEVEL_INVALID');
126: FND_MSG_PUB.ADD;
127: RAISE FND_API.G_EXC_ERROR;
128: END IF;
129: END IF;
171:
172: WHEN OTHERS THEN
173: ROLLBACK TO create_entity_profile;
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
176: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
177: FND_MSG_PUB.ADD;
178: FND_MSG_PUB.Count_And_Get(
179: p_encoded => FND_API.G_FALSE,
172: WHEN OTHERS THEN
173: ROLLBACK TO create_entity_profile;
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
176: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
177: FND_MSG_PUB.ADD;
178: FND_MSG_PUB.Count_And_Get(
179: p_encoded => FND_API.G_FALSE,
180: p_count => x_msg_count,
240: WHERE entity_id = p_dss_entity_profile.entity_id
241: FOR UPDATE NOWAIT;
242: EXCEPTION
243: WHEN NO_DATA_FOUND THEN
244: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_ENT_ID_INVALID');
245: FND_MSG_PUB.ADD;
246: RAISE FND_API.G_EXC_ERROR;
247: END;
248:
248:
249: IF NOT ((x_object_version_number is null and l_object_version_number is null)
250: OR (x_object_version_number = l_object_version_number))
251: THEN
252: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
253: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_ENTITIES');
254: FND_MSG_PUB.ADD;
255: RAISE FND_API.G_EXC_ERROR;
256: END IF;
249: IF NOT ((x_object_version_number is null and l_object_version_number is null)
250: OR (x_object_version_number = l_object_version_number))
251: THEN
252: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
253: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_ENTITIES');
254: FND_MSG_PUB.ADD;
255: RAISE FND_API.G_EXC_ERROR;
256: END IF;
257:
265: THEN
266: IF HZ_DSS_VALIDATE_PKG.exist_entity_id(
267: p_dss_entity_profile.parent_entity_id) = 'N'
268: THEN
269: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_PAR_ENT_ID_INVALID');
270: FND_MSG_PUB.ADD;
271: RAISE FND_API.G_EXC_ERROR;
272: END IF;
273: END IF;
273: END IF;
274:
275: -- Bug: 2620112 VALIDATION group_assignment_level is valid
276: if p_dss_entity_profile.group_assignment_level = FND_API.G_MISS_CHAR then
277: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_TO_NULL');
278: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'GROUP_ASSIGNMENT_LEVEL' );
279: FND_MSG_PUB.ADD;
280: RAISE FND_API.G_EXC_ERROR;
281: end if;
274:
275: -- Bug: 2620112 VALIDATION group_assignment_level is valid
276: if p_dss_entity_profile.group_assignment_level = FND_API.G_MISS_CHAR then
277: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_TO_NULL');
278: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'GROUP_ASSIGNMENT_LEVEL' );
279: FND_MSG_PUB.ADD;
280: RAISE FND_API.G_EXC_ERROR;
281: end if;
282:
284: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
285: p_dss_entity_profile.group_assignment_level,
286: 'HZ_DSS_GROUP_ASSIGN_LEVELS') = 'N'
287: THEN
288: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_ASS_LEVEL_INVALID');
289: FND_MSG_PUB.ADD;
290: RAISE FND_API.G_EXC_ERROR;
291: END IF;
292: end if;
296: IF ( p_dss_entity_profile.object_id <> FND_API.G_MISS_NUM OR
297: l_object_id IS NOT NULL )
298: AND ( l_object_id IS NULL OR
299: p_dss_entity_profile.object_id <> l_object_id ) THEN
300: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
301: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'OBJECT_ID' );
302: FND_MSG_PUB.ADD;
303: RAISE FND_API.G_EXC_ERROR;
304: END IF;
297: l_object_id IS NOT NULL )
298: AND ( l_object_id IS NULL OR
299: p_dss_entity_profile.object_id <> l_object_id ) THEN
300: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
301: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'OBJECT_ID' );
302: FND_MSG_PUB.ADD;
303: RAISE FND_API.G_EXC_ERROR;
304: END IF;
305:
306: IF ( p_dss_entity_profile.instance_set_id <> FND_API.G_MISS_NUM OR
307: l_instance_set_id IS NOT NULL )
308: AND ( l_instance_set_id IS NULL OR
309: p_dss_entity_profile.instance_set_id <> l_instance_set_id ) THEN
310: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
311: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'INSTANCE_SET_ID' );
312: FND_MSG_PUB.ADD;
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
307: l_instance_set_id IS NOT NULL )
308: AND ( l_instance_set_id IS NULL OR
309: p_dss_entity_profile.instance_set_id <> l_instance_set_id ) THEN
310: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
311: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'INSTANCE_SET_ID' );
312: FND_MSG_PUB.ADD;
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315:
317: IF p_dss_entity_profile.status is not null then
318: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
319: p_dss_entity_profile.status, 'REGISTRY_STATUS')= 'N'
320: THEN
321: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
322: FND_MSG_PUB.ADD;
323: RAISE FND_API.G_EXC_ERROR;
324: END IF;
325: END IF;
366:
367: WHEN OTHERS THEN
368: ROLLBACK TO update_entity_profile;
369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
371: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
372: FND_MSG_PUB.ADD;
373: FND_MSG_PUB.Count_And_Get(
374: p_encoded => FND_API.G_FALSE,
367: WHEN OTHERS THEN
368: ROLLBACK TO update_entity_profile;
369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
371: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
372: FND_MSG_PUB.ADD;
373: FND_MSG_PUB.Count_And_Get(
374: p_encoded => FND_API.G_FALSE,
375: p_count => x_msg_count,
435: where security_scheme_code = p_dss_scheme_function.security_scheme_code
436: and data_operation_code = p_dss_scheme_function.data_operation_code;
437:
438: IF l_duplicate_count >= 1 then
439: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_DUP_SCHEME_FUNCTION');
440: FND_MESSAGE.SET_TOKEN('SCHEME' ,p_dss_scheme_function.security_scheme_code);
441: FND_MESSAGE.SET_TOKEN('OPERATION' ,p_dss_scheme_function.data_operation_code);
442: FND_MSG_PUB.ADD;
443: RAISE FND_API.G_EXC_ERROR;
436: and data_operation_code = p_dss_scheme_function.data_operation_code;
437:
438: IF l_duplicate_count >= 1 then
439: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_DUP_SCHEME_FUNCTION');
440: FND_MESSAGE.SET_TOKEN('SCHEME' ,p_dss_scheme_function.security_scheme_code);
441: FND_MESSAGE.SET_TOKEN('OPERATION' ,p_dss_scheme_function.data_operation_code);
442: FND_MSG_PUB.ADD;
443: RAISE FND_API.G_EXC_ERROR;
444: END IF;
437:
438: IF l_duplicate_count >= 1 then
439: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_DUP_SCHEME_FUNCTION');
440: FND_MESSAGE.SET_TOKEN('SCHEME' ,p_dss_scheme_function.security_scheme_code);
441: FND_MESSAGE.SET_TOKEN('OPERATION' ,p_dss_scheme_function.data_operation_code);
442: FND_MSG_PUB.ADD;
443: RAISE FND_API.G_EXC_ERROR;
444: END IF;
445:
445:
446: ---Validate that security_scheme code is not null and is valid
447: IF (p_dss_scheme_function.security_scheme_code is null OR
448: p_dss_scheme_function.security_scheme_code = FND_API.G_MISS_CHAR) THEN
449: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
450: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'security_scheme_code' );
451: FND_MSG_PUB.ADD;
452: RAISE FND_API.G_EXC_ERROR;
453: ELSE
446: ---Validate that security_scheme code is not null and is valid
447: IF (p_dss_scheme_function.security_scheme_code is null OR
448: p_dss_scheme_function.security_scheme_code = FND_API.G_MISS_CHAR) THEN
449: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
450: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'security_scheme_code' );
451: FND_MSG_PUB.ADD;
452: RAISE FND_API.G_EXC_ERROR;
453: ELSE
454:
453: ELSE
454:
455: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_scheme_function.
456: security_scheme_code,'HZ_SECURITY_SCHEMES')= 'N' THEN
457: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_SEC_SCH_CODE_INVALID');
458: FND_MSG_PUB.ADD;
459: RAISE FND_API.G_EXC_ERROR;
460: END IF;
461: END IF;
463:
464: ---Validate that data_operation_code is not null and is valid
465: IF (p_dss_scheme_function.data_operation_code is null OR
466: p_dss_scheme_function.data_operation_code = FND_API.G_MISS_CHAR) THEN
467: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
468: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'data_operation_code' );
469: FND_MSG_PUB.ADD;
470: RAISE FND_API.G_EXC_ERROR;
471: ELSE
464: ---Validate that data_operation_code is not null and is valid
465: IF (p_dss_scheme_function.data_operation_code is null OR
466: p_dss_scheme_function.data_operation_code = FND_API.G_MISS_CHAR) THEN
467: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
468: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'data_operation_code' );
469: FND_MSG_PUB.ADD;
470: RAISE FND_API.G_EXC_ERROR;
471: ELSE
472: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_scheme_function.
470: RAISE FND_API.G_EXC_ERROR;
471: ELSE
472: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_scheme_function.
473: data_operation_code, 'HZ_DATA_OPERATIONS')= 'N' THEN
474: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_DAT_OP_CODE_INVALID');
475: FND_MSG_PUB.ADD;
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478: END IF;
479:
480: ---Validate that function_id is not null and is valid
481: IF (p_dss_scheme_function.function_id is null OR
482: p_dss_scheme_function.function_id = FND_API.G_MISS_NUM) THEN
483: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
484: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'function_id' );
485: FND_MSG_PUB.ADD;
486: RAISE FND_API.G_EXC_ERROR;
487: ELSE
480: ---Validate that function_id is not null and is valid
481: IF (p_dss_scheme_function.function_id is null OR
482: p_dss_scheme_function.function_id = FND_API.G_MISS_NUM) THEN
483: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
484: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'function_id' );
485: FND_MSG_PUB.ADD;
486: RAISE FND_API.G_EXC_ERROR;
487: ELSE
488: IF HZ_DSS_VALIDATE_PKG.exist_function_id(p_dss_scheme_function.
486: RAISE FND_API.G_EXC_ERROR;
487: ELSE
488: IF HZ_DSS_VALIDATE_PKG.exist_function_id(p_dss_scheme_function.
489: function_id)= 'N' THEN
490: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_FUN_ID_INVALID');
491: FND_MSG_PUB.ADD;
492: RAISE FND_API.G_EXC_ERROR;
493: END IF;
494: END IF;
496: -- STATUS VALIDATION
497: IF p_dss_scheme_function.status is not null then
498: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(p_dss_scheme_function.status,
499: 'REGISTRY_STATUS')= 'N' THEN
500: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
501: FND_MSG_PUB.ADD;
502: RAISE FND_API.G_EXC_ERROR;
503: END IF;
504: END IF;
540:
541: WHEN OTHERS THEN
542: ROLLBACK TO create_scheme_function ;
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547: FND_MSG_PUB.Count_And_Get(
548: p_encoded => FND_API.G_FALSE,
541: WHEN OTHERS THEN
542: ROLLBACK TO create_scheme_function ;
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547: FND_MSG_PUB.Count_And_Get(
548: p_encoded => FND_API.G_FALSE,
549: p_count => x_msg_count,
608: function_id = p_dss_scheme_function.function_id
609: FOR UPDATE NOWAIT;
610: EXCEPTION
611: WHEN NO_DATA_FOUND THEN
612: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_SCHEME_NOT_FOUND');
613: FND_MSG_PUB.ADD;
614: RAISE FND_API.G_EXC_ERROR;
615: END;
616:
616:
617: IF NOT ((x_object_version_number is null and l_object_version_number is null)
618: OR (x_object_version_number = l_object_version_number))
619: THEN
620: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
621: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_SCHEME_FUNCTIONS');
622: FND_MSG_PUB.ADD;
623: RAISE FND_API.G_EXC_ERROR;
624: END IF;
617: IF NOT ((x_object_version_number is null and l_object_version_number is null)
618: OR (x_object_version_number = l_object_version_number))
619: THEN
620: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
621: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DSS_SCHEME_FUNCTIONS');
622: FND_MSG_PUB.ADD;
623: RAISE FND_API.G_EXC_ERROR;
624: END IF;
625:
630: IF p_dss_scheme_function.status is not null then
631: IF HZ_DSS_VALIDATE_PKG.exist_in_ar_lookups(
632: p_dss_scheme_function.status, 'REGISTRY_STATUS')= 'N'
633: THEN
634: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_GR_STATUS_VAL_INVALID');
635: FND_MSG_PUB.ADD;
636: RAISE FND_API.G_EXC_ERROR;
637: END IF;
638: END IF;
671:
672: WHEN OTHERS THEN
673: ROLLBACK TO update_scheme_function ;
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
675: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
676: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
677: FND_MSG_PUB.ADD;
678: FND_MSG_PUB.Count_And_Get(
679: p_encoded => FND_API.G_FALSE,
672: WHEN OTHERS THEN
673: ROLLBACK TO update_scheme_function ;
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
675: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_OTHERS_EXCEP');
676: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
677: FND_MSG_PUB.ADD;
678: FND_MSG_PUB.Count_And_Get(
679: p_encoded => FND_API.G_FALSE,
680: p_count => x_msg_count,