[Home] [Help]
20: p_param_value IN VARCHAR2)
21: IS
22: BEGIN
23:
24: IF (p_param_value IS NULL OR p_param_value = FND_API.G_MISS_CHAR) THEN
25: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_MISSING_PARAM');
26: FND_MSG_PUB.ADD;
27: RAISE FND_API.G_EXC_ERROR;
28: END IF;
23:
24: IF (p_param_value IS NULL OR p_param_value = FND_API.G_MISS_CHAR) THEN
25: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_MISSING_PARAM');
26: FND_MSG_PUB.ADD;
27: RAISE FND_API.G_EXC_ERROR;
28: END IF;
29: EXCEPTION
30: WHEN OTHERS THEN
31: RAISE;
64: IF (Context_Cursor%NOTFOUND) THEN
65: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_INVALID_PARAM');
66: FND_MESSAGE.SET_TOKEN ('PARAM', 'Context');
67: FND_MSG_PUB.ADD;
68: RAISE FND_API.G_EXC_ERROR;
69: END IF;
70: CLOSE Context_Cursor;
71:
72: EXCEPTION
122: IF (OBJECT_Type_Cursor%NOTFOUND) THEN
123: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_INVALID_PARAM');
124: FND_MESSAGE.SET_TOKEN ('PARAM', p_param1_name);
125: FND_MSG_PUB.ADD;
126: RAISE FND_API.G_EXC_ERROR;
127: END IF;
128: CLOSE OBJECT_Type_Cursor;
129:
130: l_select_statement := 'SELECT 1 FROM ' || l_OBJECT_type_rec.source_table ||
144: IF DBMS_SQL.FETCH_ROWS(l_cursor) = 0 THEN
145: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_INVALID_PARAM');
146: FND_MESSAGE.SET_TOKEN ('PARAM', p_param2_name);
147: FND_MSG_PUB.ADD;
148: RAISE FND_API.G_EXC_ERROR;
149: END IF;
150: DBMS_SQL.CLOSE_CURSOR (l_cursor);
151: x_OBJECT_type_id := l_OBJECT_type_rec.OBJECT_TYPE_ID;
152:
192: WHEN NO_DATA_FOUND THEN
193: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_INVALID_PARAM');
194: FND_MESSAGE.SET_TOKEN ('PARAM', 'Association Id');
195: FND_MSG_PUB.ADD;
196: RAISE FND_API.G_EXC_ERROR;
197: WHEN OTHERS THEN
198: -- dbms_output.put_line('-- SQLCODE : ' || SQLCODE || ' ' || SQLERRM);
199: RAISE;
200: END Validate_Association_Id;
238: EXCEPTION
239: WHEN NO_DATA_FOUND THEN
240: FND_MESSAGE.SET_NAME ('XLE', 'XLE_NO_ASSOCIATION_TYPE');
241: FND_MSG_PUB.ADD;
242: RAISE FND_API.G_EXC_ERROR;
243: WHEN OTHERS THEN
244: RAISE;
245:
246: END Default_Association_Type;
286: EXCEPTION
287: WHEN NO_DATA_FOUND THEN
288: FND_MESSAGE.SET_NAME ('XLE', 'XLE_NO_ASSOCIATION_TYPE');
289: FND_MSG_PUB.ADD;
290: RAISE FND_API.G_EXC_ERROR;
291: WHEN OTHERS THEN
292: RAISE;
293:
294: END Default_Association_Type;
354:
355: IF (Association_Type_Cursor%NOTFOUND) THEN
356: FND_MESSAGE.SET_NAME ('XLE', 'XLE_NO_ASSOCIATION_TYPE');
357: FND_MSG_PUB.ADD;
358: RAISE FND_API.G_EXC_ERROR;
359: END IF;
360: CLOSE Association_Type_Cursor;
361:
362: IF (l_association_type_rec.cardinality in ('MO','OO')) THEN
370: FND_MESSAGE.SET_TOKEN ('TYPE1', p_subject_type);
371: FND_MESSAGE.SET_TOKEN ('OBJECT2' , l_association_subject_rec.object_id);
372: FND_MESSAGE.SET_TOKEN ('TYPE2', p_object_type);
373: FND_MSG_PUB.ADD;
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376: END IF;
377: CLOSE Association_Subject_Cursor;
378: END IF;
388: FND_MESSAGE.SET_TOKEN ('OBJECT1' , p_object_id);
389: FND_MESSAGE.SET_TOKEN ('TYPE2', p_subject_type);
390: FND_MESSAGE.SET_TOKEN ('OBJECT2' , l_association_object_rec.subject_id);
391: FND_MSG_PUB.ADD;
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394: END IF;
395: CLOSE Association_Object_Cursor;
396: END IF;
431: WHEN NO_DATA_FOUND THEN
432: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_INVALID_PARAM');
433: FND_MESSAGE.SET_TOKEN ('PARAM', 'Association Id');
434: FND_MSG_PUB.ADD;
435: RAISE FND_API.G_EXC_ERROR;
436: WHEN OTHERS THEN
437: RAISE;
438: END Get_Effective_From_Date;
439:
517:
518: IF (Association_Type_Cursor%NOTFOUND) THEN
519: FND_MESSAGE.SET_NAME ('XLE', 'XLE_NO_ASSOCIATION_TYPE');
520: FND_MSG_PUB.ADD;
521: RAISE FND_API.G_EXC_ERROR;
522: END IF;
523: CLOSE Association_Type_Cursor;
524:
525: -- Validates the Association Effective From Date is not posterior to the Effective To Date
525: -- Validates the Association Effective From Date is not posterior to the Effective To Date
526: IF (trunc(p_effective_from) > NVL(p_effective_to, p_effective_from)) THEN
527: FND_MESSAGE.SET_NAME ('XLE', 'XLE_EFF_FROM_TO_DATE_ERR');
528: FND_MSG_PUB.ADD;
529: RAISE FND_API.G_EXC_ERROR;
530: END IF;
531:
532: -- Validates the Association Effective Dates are between the Association Types Effective Dates
533: IF (trunc(p_effective_from) NOT BETWEEN trunc(l_association_type_rec.effective_from) AND NVL(l_association_type_rec.effective_to, trunc(p_effective_from))) OR
534: (p_effective_to IS NOT NULL AND
535: p_effective_to NOT BETWEEN trunc(l_association_type_rec.effective_from) AND NVL(l_association_type_rec.effective_to, p_effective_to)) THEN
536: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_INVALID_EFF_DATE');
537: FND_MSG_PUB.ADD;
538: RAISE FND_API.G_EXC_ERROR;
539: END IF;
540:
541:
542: EXCEPTION
588: l_effective_to DATE;
589:
590: BEGIN
591:
592: IF (p_effective_from = FND_API.G_MISS_DATE) THEN
593: l_effective_from := NULL;
594: ELSE
595: l_effective_from := p_effective_from;
596: END IF;
594: ELSE
595: l_effective_from := p_effective_from;
596: END IF;
597:
598: IF (p_effective_to = FND_API.G_MISS_DATE) THEN
599: l_effective_to := NULL;
600: ELSE
601: l_effective_to := p_effective_to;
602: END IF;
606: LOOP
607: IF (p_association_id IS NULL AND l_association_rec.effective_to IS NULL) THEN
608: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_EXISTS_WARN');
609: FND_MSG_PUB.ADD;
610: RAISE FND_API.G_EXC_ERROR;
611: END IF;
612:
613: IF (p_association_id IS NULL) OR (p_association_id IS NOT NULL AND l_association_rec.association_id <> p_association_id) THEN
614: IF (is_date_overlap (l_effective_from, l_effective_to,
614: IF (is_date_overlap (l_effective_from, l_effective_to,
615: l_association_rec.effective_from, l_association_rec.effective_to)) THEN
616: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_OVERLAP_DATES');
617: FND_MSG_PUB.ADD;
618: RAISE FND_API.G_EXC_ERROR;
619: END IF;
620: END IF;
621: END LOOP;
622:
766: EXCEPTION
767: WHEN NO_DATA_FOUND THEN
768: FND_MESSAGE.SET_NAME ('XLE', 'XLE_NO_ASSOCIATION');
769: FND_MSG_PUB.ADD;
770: RAISE FND_API.G_EXC_ERROR;
771: WHEN OTHERS THEN
772: RAISE;
773: END Get_Association_Id;
774:
811: IF (le1_transacting <> 'Y' AND le2_transacting <> 'Y') THEN
812: FND_MESSAGE.SET_TOKEN('NAME', le2_name);
813: FND_MESSAGE.SET_NAME('XLE', 'XLE_REL_IC_ENABLED_WARN');
814: FND_MSG_PUB.ADD;
815: RAISE FND_API.G_EXC_ERROR;
816: END IF;
817:
818:
819: EXCEPTION
1014: l_subject_id NUMBER := NULL;
1015:
1016: BEGIN
1017:
1018: IF (p_association_id IS NULL) OR (p_association_id = FND_API.G_MISS_NUM) THEN
1019: Validate_Parameter_Combination (
1020: p_context,
1021: p_subject_type,
1022: p_subject_id,
1031: END IF;
1032:
1033: -- **** Check Effective From Date is not set to NULL
1034:
1035: IF (p_effective_from = FND_API.G_MISS_DATE) THEN
1036: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_MISSING_PARAM');
1037: FND_MSG_PUB.ADD;
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1034:
1035: IF (p_effective_from = FND_API.G_MISS_DATE) THEN
1036: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_MISSING_PARAM');
1037: FND_MSG_PUB.ADD;
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040:
1041: -- **** Check that at least one new Effective Date (From or To) is provided or Developer Flexfields
1042:
1039: END IF;
1040:
1041: -- **** Check that at least one new Effective Date (From or To) is provided or Developer Flexfields
1042:
1043: IF (p_effective_from IS NULL) AND (p_effective_to = FND_API.G_MISS_DATE OR p_effective_to IS NULL) AND
1044: (p_assoc_information_context IS NULL) THEN
1045: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_MISSING_PARAM');
1046: FND_MSG_PUB.ADD;
1047: RAISE FND_API.G_EXC_ERROR;
1043: IF (p_effective_from IS NULL) AND (p_effective_to = FND_API.G_MISS_DATE OR p_effective_to IS NULL) AND
1044: (p_assoc_information_context IS NULL) THEN
1045: FND_MESSAGE.SET_NAME ('XLE', 'XLE_ASSOC_MISSING_PARAM');
1046: FND_MSG_PUB.ADD;
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1049:
1050: IF (p_effective_to = FND_API.G_MISS_DATE) THEN
1051: l_effective_to := NULL;
1046: FND_MSG_PUB.ADD;
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1049:
1050: IF (p_effective_to = FND_API.G_MISS_DATE) THEN
1051: l_effective_to := NULL;
1052: ELSE
1053: l_effective_to := p_effective_to;
1054: END IF;