[Home] [Help]
225: CLOSE c_parent;
226: FND_MESSAGE.SET_NAME('AR', 'HZ_API_CIRCULAR_REL');
227: FND_MESSAGE.SET_TOKEN('RELTYPE', p_relationship_type);
228: FND_MSG_PUB.ADD;
229: RAISE FND_API.G_EXC_ERROR;
230: END IF;
231: END IF;
232:
233: END LOOP;
419: -- Generate primary key from sequence if not passed in. If this values already exists in
420: -- the database, keep generating till a unique value is found.
421: -- If primary key value is passed, check for uniqueness.
422:
423: IF l_relationship_id = FND_API.G_MISS_NUM
424: OR
425: l_relationship_id IS NULL
426: THEN
427: WHILE l_dummy = 'Y' LOOP
452:
453: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
454: FND_MESSAGE.SET_TOKEN('COLUMN', 'relationship_id');
455: FND_MSG_PUB.ADD;
456: RAISE FND_API.G_EXC_ERROR;
457:
458: EXCEPTION
459: WHEN NO_DATA_FOUND THEN
460: NULL;
478: p_relationship_rec,
479: l_rowid,
480: x_return_status);
481:
482: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
483: RAISE FND_API.G_EXC_ERROR;
484: END IF;
485:
486: -- default end date to 31-DEC-4712
479: l_rowid,
480: x_return_status);
481:
482: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
483: RAISE FND_API.G_EXC_ERROR;
484: END IF;
485:
486: -- default end date to 31-DEC-4712
487: IF p_relationship_rec.end_date IS NULL
485:
486: -- default end date to 31-DEC-4712
487: IF p_relationship_rec.end_date IS NULL
488: OR
489: p_relationship_rec.end_date = FND_API.G_MISS_DATE
490: THEN
491: l_end_date := to_date('31-12-4712 00:00:01', 'DD-MM-YYYY HH24:MI:SS');
492: ELSE
493: l_end_date := p_relationship_rec.end_date;
504: FND_MESSAGE.SET_TOKEN('FK', 'relationship_code, subject_type, object_type');
505: FND_MESSAGE.SET_TOKEN('COLUMN', 'forward_rel_code, subject_type, object_type');
506: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_relationship_types');
507: FND_MSG_PUB.ADD;
508: RAISE FND_API.G_EXC_ERROR;
509: END IF;
510:
511: -- Debug info.
512: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
579:
580: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MULTIPLE_PARENT');
581: FND_MESSAGE.SET_TOKEN('RELTYPE', l_meaning);
582: FND_MSG_PUB.ADD;
583: RAISE FND_API.G_EXC_ERROR;
584:
585: EXCEPTION
586: WHEN NO_DATA_FOUND THEN
587: -- no parent found, proceed
617: p_relationship_rec.subject_id = p_relationship_rec.object_id
618: THEN
619: FND_MESSAGE.SET_NAME('AR', 'HZ_API_SUBJECT_OBJECT_IDS');
620: FND_MSG_PUB.ADD;
621: RAISE FND_API.G_EXC_ERROR;
622: END IF;
623:
624: -- build the record for creation of relationship party record
625: l_party_rel_rec.party_rec := p_relationship_rec.party_rec;
936: l_hierarchy_rec.status := NVL(p_relationship_rec.status, 'A');
937: END IF;
938:
939: HZ_HIERARCHY_PUB.create_link(
940: p_init_msg_list => FND_API.G_FALSE,
941: p_hierarchy_node_rec => l_hierarchy_rec,
942: x_return_status => x_return_status,
943: x_msg_count => l_msg_count,
944: x_msg_data => l_msg_data
943: x_msg_count => l_msg_count,
944: x_msg_data => l_msg_data
945: );
946:
947: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
948: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
949: RAISE FND_API.G_EXC_ERROR;
950: ELSE
951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
944: x_msg_data => l_msg_data
945: );
946:
947: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
948: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
949: RAISE FND_API.G_EXC_ERROR;
950: ELSE
951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
952: END IF;
945: );
946:
947: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
948: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
949: RAISE FND_API.G_EXC_ERROR;
950: ELSE
951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
952: END IF;
953: END IF;
947: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
948: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
949: RAISE FND_API.G_EXC_ERROR;
950: ELSE
951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
952: END IF;
953: END IF;
954:
955: END IF;
975: p_relationship_rec.object_type IN ('PERSON','ORGANIZATION')))
976: )
977: THEN
978: IF p_create_org_contact = 'Y' THEN
979: IF l_contact_number = FND_API.G_MISS_CHAR OR l_contact_number IS NULL THEN
980: l_count := 1;
981: WHILE l_count > 0 LOOP
982: SELECT to_char(hz_contact_numbers_s.nextval)
983: INTO l_contact_number FROM dual;
1076: p_relationship_rec.subject_table_name = 'HZ_PARTIES' AND
1077: p_relationship_rec.object_table_name = 'HZ_PARTIES'
1078: THEN
1079: IF (p_contact_party_id IS NOT NULL AND
1080: p_contact_party_id <> FND_API.G_MISS_NUM AND
1081: (p_contact_party_usage_code IS NULL OR
1082: p_contact_party_usage_code = FND_API.G_MISS_CHAR)) OR
1083: (p_contact_party_usage_code IS NOT NULL AND
1084: p_contact_party_usage_code <> FND_API.G_MISS_CHAR AND
1078: THEN
1079: IF (p_contact_party_id IS NOT NULL AND
1080: p_contact_party_id <> FND_API.G_MISS_NUM AND
1081: (p_contact_party_usage_code IS NULL OR
1082: p_contact_party_usage_code = FND_API.G_MISS_CHAR)) OR
1083: (p_contact_party_usage_code IS NOT NULL AND
1084: p_contact_party_usage_code <> FND_API.G_MISS_CHAR AND
1085: (p_contact_party_id IS NULL OR
1086: p_contact_party_id = FND_API.G_MISS_NUM))
1080: p_contact_party_id <> FND_API.G_MISS_NUM AND
1081: (p_contact_party_usage_code IS NULL OR
1082: p_contact_party_usage_code = FND_API.G_MISS_CHAR)) OR
1083: (p_contact_party_usage_code IS NOT NULL AND
1084: p_contact_party_usage_code <> FND_API.G_MISS_CHAR AND
1085: (p_contact_party_id IS NULL OR
1086: p_contact_party_id = FND_API.G_MISS_NUM))
1087: THEN
1088: fnd_message.set_name('AR', 'HZ_PU_REL_MISSING_COLUMN');
1082: p_contact_party_usage_code = FND_API.G_MISS_CHAR)) OR
1083: (p_contact_party_usage_code IS NOT NULL AND
1084: p_contact_party_usage_code <> FND_API.G_MISS_CHAR AND
1085: (p_contact_party_id IS NULL OR
1086: p_contact_party_id = FND_API.G_MISS_NUM))
1087: THEN
1088: fnd_message.set_name('AR', 'HZ_PU_REL_MISSING_COLUMN');
1089: fnd_msg_pub.add;
1090: RAISE FND_API.G_EXC_ERROR;
1086: p_contact_party_id = FND_API.G_MISS_NUM))
1087: THEN
1088: fnd_message.set_name('AR', 'HZ_PU_REL_MISSING_COLUMN');
1089: fnd_msg_pub.add;
1090: RAISE FND_API.G_EXC_ERROR;
1091: ELSIF p_contact_party_id IS NOT NULL AND
1092: (p_contact_party_id <> p_relationship_rec.subject_id AND
1093: p_contact_party_id <> p_relationship_rec.object_id OR
1094: p_contact_party_id = p_relationship_rec.subject_id AND
1097: p_relationship_rec.object_type <> 'PERSON')
1098: THEN
1099: fnd_message.set_name('AR', 'HZ_PU_REL_INVALID_CONTACT_ID');
1100: fnd_msg_pub.add;
1101: RAISE FND_API.G_EXC_ERROR;
1102: END IF;
1103:
1104: l_party_id_tbl.extend(1);
1105: l_party_usage_code_tbl.extend(1);
1143: l_party_usg_assignment_rec.effective_end_date := p_relationship_rec.end_date;
1144:
1145: IF p_relationship_rec.status = 'I' THEN
1146: IF p_relationship_rec.start_date IS NULL OR
1147: p_relationship_rec.start_date = fnd_api.g_miss_date OR
1148: trunc(p_relationship_rec.start_date) > trunc(sysdate)
1149: THEN
1150: l_party_usg_assignment_rec.effective_start_date := trunc(sysdate);
1151: END IF;
1150: l_party_usg_assignment_rec.effective_start_date := trunc(sysdate);
1151: END IF;
1152:
1153: IF p_relationship_rec.end_date IS NULL OR
1154: p_relationship_rec.end_date = fnd_api.g_miss_date OR
1155: trunc(p_relationship_rec.end_date) > trunc(sysdate)
1156: THEN
1157: l_party_usg_assignment_rec.effective_end_date := trunc(sysdate);
1158: END IF;
1169: x_msg_count => l_msg_count,
1170: x_msg_data => l_msg_data
1171: );
1172:
1173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1174: RAISE fnd_api.g_exc_error;
1175: END IF;
1176: END LOOP;
1177: END IF;
1170: x_msg_data => l_msg_data
1171: );
1172:
1173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1174: RAISE fnd_api.g_exc_error;
1175: END IF;
1176: END LOOP;
1177: END IF;
1178:
1206: | NOTES
1207: |
1208: | MODIFICATION HISTORY
1209: | 09-DEC-2003 Rajib Ranjan Borah o Bug 3274236.Start date and end date were not
1210: | getting updated if the user passed FND_API.G_MISS_CHAR.
1211: | o Modified some previous code to remove redundancy.
1212: | 19-FEB-2004 Rajib Ranjan Borah o Bug 3306941.The meaning should be passed as token
1213: | for the error message HZ_API_MULTIPLE_PARENT instead
1214: | of the relationsihp_type.
1366: THEN
1367: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
1368: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_relationships' );
1369: FND_MSG_PUB.ADD;
1370: RAISE FND_API.G_EXC_ERROR;
1371: END IF;
1372:
1373: p_object_version_number := NVL( l_object_version_number, 1 ) + 1;
1374:
1432: THEN
1433: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
1434: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_relationships' );
1435: FND_MSG_PUB.ADD;
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1438:
1439: p_object_version_number := NVL( l_object_version_number, 1 ) + 1;
1440:
1443: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
1444: FND_MESSAGE.SET_TOKEN( 'RECORD', 'relationship' );
1445: FND_MESSAGE.SET_TOKEN( 'VALUE', NVL(TO_CHAR( p_relationship_rec.relationship_id ),'null'));
1446: FND_MSG_PUB.ADD;
1447: RAISE FND_API.G_EXC_ERROR;
1448: END;
1449: END;
1450:
1451: -- Debug info.
1484: l_child_object_type := l_subject_type;
1485: END IF;
1486:
1487: IF p_relationship_rec.start_date IS NOT NULL THEN
1488: IF p_relationship_rec.start_date = FND_API.G_MISS_DATE THEN
1489: l_new_start_date := sysdate;
1490: ELSE
1491: l_new_start_date := p_relationship_rec.start_date;
1492: END IF;
1494: l_new_start_date := l_start_date;
1495: END IF;
1496:
1497: IF p_relationship_rec.end_date IS NOT NULL THEN
1498: IF p_relationship_rec.end_date = FND_API.G_MISS_DATE THEN
1499: l_new_end_date := to_date('31-12-4712 00:00:01', 'DD-MM-YYYY HH24:MI:SS');
1500: ELSE
1501: l_new_end_date := p_relationship_rec.end_date;
1502: END IF;
1571:
1572: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MULTIPLE_PARENT');
1573: FND_MESSAGE.SET_TOKEN('RELTYPE', l_meaning);
1574: FND_MSG_PUB.ADD;
1575: RAISE FND_API.G_EXC_ERROR;
1576:
1577: EXCEPTION
1578: WHEN NO_DATA_FOUND THEN
1579: -- no parent found, proceed
1592: -- Bug 3274236 l_rel_rec := p_relationship_rec;
1593:
1594:
1595: IF p_relationship_rec.start_date IS NULL OR
1596: p_relationship_rec.start_date = FND_API.G_MISS_DATE
1597: THEN
1598: -- Bug 3274236 p_relationship_rec.start_date := l_start_date;
1599: p_relationship_rec.start_date := l_new_start_date;
1600: END IF;
1599: p_relationship_rec.start_date := l_new_start_date;
1600: END IF;
1601:
1602: IF p_relationship_rec.end_date IS NULL OR
1603: p_relationship_rec.end_date = FND_API.G_MISS_DATE
1604: THEN
1605: -- Bug 3274236 p_relationship_rec.end_date := l_end_date;
1606: p_relationship_rec.end_date := l_new_end_date;
1607: END IF;
1614: p_relationship_rec,
1615: l_rowid,
1616: x_return_status);
1617:
1618: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1619: RAISE FND_API.G_EXC_ERROR;
1620: END IF;
1621:
1622: --start_date of hz_party_relationships has been changed
1615: l_rowid,
1616: x_return_status);
1617:
1618: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1619: RAISE FND_API.G_EXC_ERROR;
1620: END IF;
1621:
1622: --start_date of hz_party_relationships has been changed
1623: --to be updateable. We need to pass in the new start_date when we
1625: /* Bug 3274236.This code is redundant as l_rel_rec is now assigned after
1626: making the changes to p_relationship_rec.
1627:
1628: IF p_relationship_rec.start_date IS NULL OR
1629: p_relationship_rec.start_date <> FND_API.G_MISS_DATE
1630: THEN
1631: l_rel_rec.start_date := p_relationship_rec.start_date;
1632: END IF;
1633:
1631: l_rel_rec.start_date := p_relationship_rec.start_date;
1632: END IF;
1633:
1634: IF p_relationship_rec.end_date IS NULL OR
1635: p_relationship_rec.end_date <> FND_API.G_MISS_DATE
1636: THEN
1637: l_rel_rec.end_date := p_relationship_rec.end_date;
1638: END IF;
1639: */
1909: l_party_rel_rec.party_rec.status := p_relationship_rec.party_rec.status;
1910: END IF;
1911: --Bug 6732835 End of changes
1912:
1913: IF nvl(p_party_object_version_number,1) <> FND_API.G_MISS_NUM
1914: THEN
1915: IF l_party_id IS NOT NULL THEN
1916:
1917: -- Debug info.
1983: IF l_status = 'I' AND p_relationship_rec.status = 'A' THEN
1984:
1985: l_hierarchy_rec.status := 'A';
1986: HZ_HIERARCHY_PUB.create_link(
1987: p_init_msg_list => FND_API.G_FALSE,
1988: p_hierarchy_node_rec => l_hierarchy_rec,
1989: x_return_status => x_return_status,
1990: x_msg_count => l_msg_count,
1991: x_msg_data => l_msg_data
1993:
1994: ELSE
1995:
1996: HZ_HIERARCHY_PUB.update_link(
1997: p_init_msg_list => FND_API.G_FALSE,
1998: p_hierarchy_node_rec => l_hierarchy_rec,
1999: x_return_status => x_return_status,
2000: x_msg_count => l_msg_count,
2001: x_msg_data => l_msg_data
2001: x_msg_data => l_msg_data
2002: );
2003: END IF;
2004:
2005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2006: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2007: RAISE FND_API.G_EXC_ERROR;
2008: ELSE
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2002: );
2003: END IF;
2004:
2005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2006: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2007: RAISE FND_API.G_EXC_ERROR;
2008: ELSE
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2003: END IF;
2004:
2005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2006: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2007: RAISE FND_API.G_EXC_ERROR;
2008: ELSE
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2011: END IF;
2005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2006: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2007: RAISE FND_API.G_EXC_ERROR;
2008: ELSE
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2011: END IF;
2012:
2013: END IF;
2019: p_relationship_rec.status = 'A') AND
2020: l_status = 'A' AND
2021: (p_relationship_rec.start_date IS NOT NULL AND
2022: p_relationship_rec.start_date <> l_start_date AND
2023: p_relationship_rec.start_date <> fnd_api.g_miss_date OR
2024: p_relationship_rec.end_date IS NOT NULL AND
2025: p_relationship_rec.end_date <> l_end_date AND
2026: p_relationship_rec.end_date <> fnd_api.g_miss_date) OR
2027: p_relationship_rec.status = 'I' AND
2022: p_relationship_rec.start_date <> l_start_date AND
2023: p_relationship_rec.start_date <> fnd_api.g_miss_date OR
2024: p_relationship_rec.end_date IS NOT NULL AND
2025: p_relationship_rec.end_date <> l_end_date AND
2026: p_relationship_rec.end_date <> fnd_api.g_miss_date) OR
2027: p_relationship_rec.status = 'I' AND
2028: l_status = 'A' OR
2029: p_relationship_rec.status = 'A' AND
2030: l_status = 'I') AND
2073: x_msg_count => l_msg_count,
2074: x_msg_data => l_msg_data
2075: );
2076:
2077: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2078: RAISE fnd_api.g_exc_error;
2079: END IF;
2080: END IF;
2081:
2074: x_msg_data => l_msg_data
2075: );
2076:
2077: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2078: RAISE fnd_api.g_exc_error;
2079: END IF;
2080: END IF;
2081:
2082: -- Debug info.
2139: EXCEPTION WHEN OTHERS THEN
2140: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
2141: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTIES');
2142: FND_MSG_PUB.ADD;
2143: RAISE FND_API.G_EXC_ERROR;
2144: END;
2145:
2146: IF l_end_date IS NULL
2147: OR l_end_date = FND_API.G_MISS_DATE
2143: RAISE FND_API.G_EXC_ERROR;
2144: END;
2145:
2146: IF l_end_date IS NULL
2147: OR l_end_date = FND_API.G_MISS_DATE
2148: THEN
2149: l_end_date := to_date('31-12-4712 00:00:01', 'DD-MM-YYYY HH24:MI:SS');
2150: ELSIF l_end_date = sysdate THEN
2151: l_end_date := sysdate-1;
2151: l_end_date := sysdate-1;
2152: END IF;
2153:
2154: IF l_status IS NULL
2155: OR l_status = FND_API.G_MISS_CHAR
2156: THEN
2157: l_status := 'A';
2158: END IF;
2159:
2274: l_party_number := l_party_rec.party_number;
2275:
2276: -- if primary key value is passed, check for uniqueness.
2277: IF l_party_id IS NOT NULL AND
2278: l_party_id <> FND_API.G_MISS_NUM
2279: THEN
2280: BEGIN
2281: SELECT 'Y'
2282: INTO l_dummy
2285:
2286: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
2287: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_id');
2288: FND_MSG_PUB.ADD;
2289: RAISE FND_API.G_EXC_ERROR;
2290:
2291: EXCEPTION
2292: WHEN NO_DATA_FOUND THEN
2293: NULL;
2300: -- a duplicate raise error.
2301: l_generate_party_number := fnd_profile.value('HZ_GENERATE_PARTY_NUMBER');
2302:
2303: IF l_generate_party_number = 'N' THEN
2304: IF l_party_number = FND_API.G_MISS_CHAR
2305: OR
2306: l_party_number IS NULL
2307: THEN
2308: -- Bug 4284731. If no party_number is passed in, do_not throw any error.
2313:
2314: /* FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
2315: FND_MESSAGE.SET_TOKEN('COLUMN', 'party number');
2316: FND_MSG_PUB.ADD;
2317: RAISE FND_API.G_EXC_ERROR;
2318: END IF;
2319: */
2320: ELSE
2321:
2329:
2330: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
2331: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_number');
2332: FND_MSG_PUB.ADD;
2333: RAISE FND_API.G_EXC_ERROR;
2334:
2335: EXCEPTION
2336: WHEN NO_DATA_FOUND THEN
2337: NULL;
2341: OR
2342: l_generate_party_number IS NULL
2343: THEN
2344:
2345: IF l_party_number <> FND_API.G_MISS_CHAR
2346: AND
2347: l_party_number IS NOT NULL
2348: THEN
2349: -- Bug 4284731. No changes were made here as party_number was explicitly
2350: -- passed despite the fact that auto numbering is on.
2351:
2352: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PARTY_NUMBER_AUTO_ON');
2353: FND_MSG_PUB.ADD;
2354: RAISE FND_API.G_EXC_ERROR;
2355: END IF;
2356:
2357: END IF;
2358:
2363: l_party_rec,
2364: NULL, NULL,
2365: x_return_status);
2366:
2367: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2368: RAISE FND_API.G_EXC_ERROR;
2369: END IF;
2370:
2371: l_party_rec.party_id := l_party_id;
2364: NULL, NULL,
2365: x_return_status);
2366:
2367: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2368: RAISE FND_API.G_EXC_ERROR;
2369: END IF;
2370:
2371: l_party_rec.party_id := l_party_id;
2372: l_party_rec.party_number := l_party_number;
2386: l_object_name || '-' ||
2387: l_party_number, 1, 360);
2388:
2389: -- this is for orig_system_defaulting
2390: IF l_party_rec.party_id = FND_API.G_MISS_NUM THEN
2391: l_party_rec.party_id := NULL;
2392: END IF;
2393:
2394: -- Debug info.
2553: ) IS
2554:
2555: l_party_rec HZ_PARTY_V2PUB.PARTY_REC_TYPE := p_relationship_rec.party_rec;
2556: l_rowid ROWID;
2557: l_party_name HZ_PARTIES.PARTY_NAME%TYPE := FND_API.G_MISS_CHAR;
2558: l_first_name HZ_PARTIES.PERSON_FIRST_NAME%TYPE;
2559: l_last_name HZ_PARTIES.PERSON_LAST_NAME%TYPE;
2560: l_profile_id NUMBER;
2561: l_effective_start_date DATE;
2607: THEN
2608: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
2609: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_parties');
2610: FND_MSG_PUB.ADD;
2611: RAISE FND_API.G_EXC_ERROR;
2612: END IF;
2613:
2614: p_party_object_version_number := nvl(l_party_object_version_number, 1) + 1;
2615:
2617: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2618: FND_MESSAGE.SET_TOKEN('RECORD', 'parties');
2619: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(l_party_rec.party_id),'null'));
2620: FND_MSG_PUB.ADD;
2621: RAISE FND_API.G_EXC_ERROR;
2622: END;
2623:
2624:
2625: HZ_REGISTRY_VALIDATE_V2PUB.validate_party(
2625: HZ_REGISTRY_VALIDATE_V2PUB.validate_party(
2626: 'U',
2627: l_party_rec,
2628: p_old_relationship_rec.party_rec,
2629: NVL(db_created_by_module, fnd_api.g_miss_char),
2630: x_return_status);
2631:
2632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2633: RAISE FND_API.G_EXC_ERROR;
2628: p_old_relationship_rec.party_rec,
2629: NVL(db_created_by_module, fnd_api.g_miss_char),
2630: x_return_status);
2631:
2632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2633: RAISE FND_API.G_EXC_ERROR;
2634: END IF;
2635:
2636: -- Debug info.
2629: NVL(db_created_by_module, fnd_api.g_miss_char),
2630: x_return_status);
2631:
2632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2633: RAISE FND_API.G_EXC_ERROR;
2634: END IF;
2635:
2636: -- Debug info.
2637: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2789: | /de-select data-sources is obsoleted.
2790: +===========================================================================*/
2791:
2792: PROCEDURE create_relationship (
2793: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2794: p_relationship_rec IN RELATIONSHIP_REC_TYPE,
2795: x_relationship_id OUT NOCOPY NUMBER,
2796: x_party_id OUT NOCOPY NUMBER,
2797: x_party_number OUT NOCOPY VARCHAR2,
2855: |
2856: +===========================================================================*/
2857:
2858: PROCEDURE create_relationship (
2859: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2860: p_relationship_rec IN RELATIONSHIP_REC_TYPE,
2861: x_relationship_id OUT NOCOPY NUMBER,
2862: x_party_id OUT NOCOPY NUMBER,
2863: x_party_number OUT NOCOPY VARCHAR2,
2922: |
2923: +===========================================================================*/
2924:
2925: PROCEDURE create_relationship_with_usg (
2926: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2927: p_relationship_rec IN RELATIONSHIP_REC_TYPE,
2928: p_contact_party_id IN NUMBER,
2929: p_contact_party_usage_code IN VARCHAR2,
2930: p_create_org_contact IN VARCHAR2,
2938:
2939: l_rel_rec RELATIONSHIP_REC_TYPE := p_relationship_rec;
2940: l_created_party VARCHAR2(1);
2941:
2942: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2943: dss_msg_count NUMBER := 0;
2944: dss_msg_data VARCHAR2(2000):= null;
2945: l_test_security VARCHAR2(1):= 'F';
2946: l_debug_prefix VARCHAR2(30) := '';
2963: p_msg_level=>fnd_log.level_procedure);
2964: END IF;
2965:
2966: -- Initialize message list if p_init_msg_list is set to TRUE.
2967: IF FND_API.to_Boolean(p_init_msg_list) THEN
2968: FND_MSG_PUB.initialize;
2969: END IF;
2970:
2971: -- Initialize API return status to success.
2968: FND_MSG_PUB.initialize;
2969: END IF;
2970:
2971: -- Initialize API return status to success.
2972: x_return_status := FND_API.G_RET_STS_SUCCESS;
2973:
2974:
2975: -- Bug 2197181: added for mix-n-match project. first load data
2976: -- sources for this entity. Then assign the actual_content_source
3003: p_actual_content_source => l_rel_rec.actual_content_source,
3004: x_is_datasource_selected => g_rel_is_datasource_selected,
3005: x_return_status => x_return_status );
3006:
3007: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3008: RAISE FND_API.G_EXC_ERROR;
3009: END IF;
3010:
3011: -- Call to business logic.
3004: x_is_datasource_selected => g_rel_is_datasource_selected,
3005: x_return_status => x_return_status );
3006:
3007: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3008: RAISE FND_API.G_EXC_ERROR;
3009: END IF;
3010:
3011: -- Call to business logic.
3012: do_create_rel(
3040: x_return_status => dss_return_status,
3041: x_msg_count => dss_msg_count,
3042: x_msg_data => dss_msg_data);
3043:
3044: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3045: RAISE FND_API.G_EXC_ERROR;
3046: end if;
3047:
3048: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3041: x_msg_count => dss_msg_count,
3042: x_msg_data => dss_msg_data);
3043:
3044: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3045: RAISE FND_API.G_EXC_ERROR;
3046: end if;
3047:
3048: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3049: --
3044: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3045: RAISE FND_API.G_EXC_ERROR;
3046: end if;
3047:
3048: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3049: --
3050: -- Bug 3835601: replaced the dss message with a more user friendly message
3051: --
3052: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
3052: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
3053: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
3054: hz_dss_util_pub.get_display_name('HZ_RELATIONSHIPS', null));
3055: FND_MSG_PUB.ADD;
3056: RAISE FND_API.G_EXC_ERROR;
3057: end if;
3058: END IF;
3059:
3060:
3062:
3063: -- SSM SST Integration and Extension
3064: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
3065: -- There is no need to check if the data-source is selected.
3066: IF x_return_status = FND_API.G_RET_STS_SUCCESS /* AND
3067: -- Bug 2197181: Added below condition for Mix-n-Match
3068: g_rel_is_datasource_selected = 'Y' */
3069: THEN
3070: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
3081: END IF;
3082:
3083: -- Standard call to get message count and if count is 1, get message info.
3084: FND_MSG_PUB.Count_And_Get(
3085: p_encoded => FND_API.G_FALSE,
3086: p_count => x_msg_count,
3087: p_data => x_msg_data);
3088:
3089: -- Debug info.
3102: -- Check if API is called in debug mode. If yes, disable debug.
3103: --disable_debug;
3104:
3105: EXCEPTION
3106: WHEN FND_API.G_EXC_ERROR THEN
3107: ROLLBACK TO create_relationship;
3108: x_return_status := FND_API.G_RET_STS_ERROR;
3109: FND_MSG_PUB.Count_And_Get(
3110: p_encoded => FND_API.G_FALSE,
3104:
3105: EXCEPTION
3106: WHEN FND_API.G_EXC_ERROR THEN
3107: ROLLBACK TO create_relationship;
3108: x_return_status := FND_API.G_RET_STS_ERROR;
3109: FND_MSG_PUB.Count_And_Get(
3110: p_encoded => FND_API.G_FALSE,
3111: p_count => x_msg_count,
3112: p_data => x_msg_data);
3106: WHEN FND_API.G_EXC_ERROR THEN
3107: ROLLBACK TO create_relationship;
3108: x_return_status := FND_API.G_RET_STS_ERROR;
3109: FND_MSG_PUB.Count_And_Get(
3110: p_encoded => FND_API.G_FALSE,
3111: p_count => x_msg_count,
3112: p_data => x_msg_data);
3113:
3114: -- Debug info.
3127:
3128: -- Check if API is called in debug mode. If yes, disable debug.
3129: --disable_debug;
3130:
3131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3132: ROLLBACK TO create_relationship;
3133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3134: FND_MSG_PUB.Count_And_Get(
3135: p_encoded => FND_API.G_FALSE,
3129: --disable_debug;
3130:
3131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3132: ROLLBACK TO create_relationship;
3133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3134: FND_MSG_PUB.Count_And_Get(
3135: p_encoded => FND_API.G_FALSE,
3136: p_count => x_msg_count,
3137: p_data => x_msg_data);
3131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3132: ROLLBACK TO create_relationship;
3133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3134: FND_MSG_PUB.Count_And_Get(
3135: p_encoded => FND_API.G_FALSE,
3136: p_count => x_msg_count,
3137: p_data => x_msg_data);
3138:
3139: -- Debug info.
3154: --disable_debug;
3155:
3156: WHEN OTHERS THEN
3157: ROLLBACK TO create_relationship;
3158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3159: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3160: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3161: FND_MSG_PUB.ADD;
3162: FND_MSG_PUB.Count_And_Get(
3159: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3160: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3161: FND_MSG_PUB.ADD;
3162: FND_MSG_PUB.Count_And_Get(
3163: p_encoded => FND_API.G_FALSE,
3164: p_count => x_msg_count,
3165: p_data => x_msg_data);
3166:
3167: -- Debug info.
3215: | /de-select data-sources is obsoleted.
3216: +===========================================================================*/
3217:
3218: PROCEDURE update_relationship (
3219: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3220: p_relationship_rec IN RELATIONSHIP_REC_TYPE,
3221: p_object_version_number IN OUT NOCOPY NUMBER,
3222: p_party_object_version_number IN OUT NOCOPY NUMBER,
3223: x_return_status OUT NOCOPY VARCHAR2,
3228: l_rel_rec RELATIONSHIP_REC_TYPE := p_relationship_rec;
3229: l_old_rel_rec RELATIONSHIP_REC_TYPE;
3230: l_data_source_from VARCHAR2(30);
3231:
3232: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3233: dss_msg_count NUMBER := 0;
3234: dss_msg_data VARCHAR2(2000):= null;
3235: l_test_security VARCHAR2(1):= 'F';
3236: l_debug_prefix VARCHAR2(30) := '';
3250: p_msg_level=>fnd_log.level_procedure);
3251: END IF;
3252:
3253: -- Initialize message list if p_init_msg_list is set to TRUE.
3254: IF FND_API.to_Boolean(p_init_msg_list) THEN
3255: FND_MSG_PUB.initialize;
3256: END IF;
3257:
3258: -- Initialize API return status to success.
3255: FND_MSG_PUB.initialize;
3256: END IF;
3257:
3258: -- Initialize API return status to success.
3259: x_return_status := FND_API.G_RET_STS_SUCCESS;
3260:
3261: -- Get old records. Will be used by business event system.
3262: get_relationship_rec (
3263: p_relationship_id => l_rel_rec.relationship_id,
3266: x_return_status => x_return_status,
3267: x_msg_count => x_msg_count,
3268: x_msg_data => x_msg_data );
3269:
3270: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3271: RAISE FND_API.G_EXC_ERROR;
3272: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3274: END IF;
3267: x_msg_count => x_msg_count,
3268: x_msg_data => x_msg_data );
3269:
3270: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3271: RAISE FND_API.G_EXC_ERROR;
3272: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3274: END IF;
3275:
3268: x_msg_data => x_msg_data );
3269:
3270: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3271: RAISE FND_API.G_EXC_ERROR;
3272: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3274: END IF;
3275:
3276: --
3269:
3270: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3271: RAISE FND_API.G_EXC_ERROR;
3272: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3274: END IF;
3275:
3276: --
3277: -- Bug 2486394 -Check if the DSS security is granted to the user
3292: x_return_status => dss_return_status,
3293: x_msg_count => dss_msg_count,
3294: x_msg_data => dss_msg_data);
3295:
3296: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3297: RAISE FND_API.G_EXC_ERROR;
3298: end if;
3299:
3300: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3293: x_msg_count => dss_msg_count,
3294: x_msg_data => dss_msg_data);
3295:
3296: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3297: RAISE FND_API.G_EXC_ERROR;
3298: end if;
3299:
3300: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3301: --
3296: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3297: RAISE FND_API.G_EXC_ERROR;
3298: end if;
3299:
3300: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3301: --
3302: -- Bug 3835601: replaced the dss message with a more user friendly message
3303: --
3304: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
3304: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
3305: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
3306: hz_dss_util_pub.get_display_name('HZ_RELATIONSHIPS', null));
3307: FND_MSG_PUB.ADD;
3308: RAISE FND_API.G_EXC_ERROR;
3309: end if;
3310: END IF;
3311:
3312: -- Bug 2197181: added for mix-n-match project. first load data
3349: -- SSM SST Integration and Extension
3350: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
3351: -- There is no need to check if the data-source is selected.
3352:
3353: IF x_return_status = FND_API.G_RET_STS_SUCCESS /* AND
3354: -- Bug 2197181: Added below condition for Mix-n-Match
3355: g_rel_is_datasource_selected = 'Y' */
3356: THEN
3357: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
3369:
3370: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3371: -- Standard call to get message count and if count is 1, get message info.
3372: FND_MSG_PUB.Count_And_Get(
3373: p_encoded => FND_API.G_FALSE,
3374: p_count => x_msg_count,
3375: p_data => x_msg_data);
3376:
3377: -- Debug info.
3390: -- Check if API is called in debug mode. If yes, disable debug.
3391: --disable_debug;
3392:
3393: EXCEPTION
3394: WHEN FND_API.G_EXC_ERROR THEN
3395: ROLLBACK TO update_relationship;
3396: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3397: x_return_status := FND_API.G_RET_STS_ERROR;
3398: FND_MSG_PUB.Count_And_Get(
3393: EXCEPTION
3394: WHEN FND_API.G_EXC_ERROR THEN
3395: ROLLBACK TO update_relationship;
3396: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3397: x_return_status := FND_API.G_RET_STS_ERROR;
3398: FND_MSG_PUB.Count_And_Get(
3399: p_encoded => FND_API.G_FALSE,
3400: p_count => x_msg_count,
3401: p_data => x_msg_data);
3395: ROLLBACK TO update_relationship;
3396: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3397: x_return_status := FND_API.G_RET_STS_ERROR;
3398: FND_MSG_PUB.Count_And_Get(
3399: p_encoded => FND_API.G_FALSE,
3400: p_count => x_msg_count,
3401: p_data => x_msg_data);
3402:
3403: -- Debug info.
3416:
3417: -- Check if API is called in debug mode. If yes, disable debug.
3418: --disable_debug;
3419:
3420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3421: ROLLBACK TO update_relationship;
3422: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3424: FND_MSG_PUB.Count_And_Get(
3419:
3420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3421: ROLLBACK TO update_relationship;
3422: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3424: FND_MSG_PUB.Count_And_Get(
3425: p_encoded => FND_API.G_FALSE,
3426: p_count => x_msg_count,
3427: p_data => x_msg_data);
3421: ROLLBACK TO update_relationship;
3422: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3424: FND_MSG_PUB.Count_And_Get(
3425: p_encoded => FND_API.G_FALSE,
3426: p_count => x_msg_count,
3427: p_data => x_msg_data);
3428:
3429: -- Debug info.
3445:
3446: WHEN OTHERS THEN
3447: ROLLBACK TO update_relationship;
3448: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3450: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3451: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3452: FND_MSG_PUB.ADD;
3453: FND_MSG_PUB.Count_And_Get(
3450: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3451: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3452: FND_MSG_PUB.ADD;
3453: FND_MSG_PUB.Count_And_Get(
3454: p_encoded => FND_API.G_FALSE,
3455: p_count => x_msg_count,
3456: p_data => x_msg_data);
3457:
3458: -- Debug info.
3501: |
3502: +===========================================================================*/
3503:
3504: PROCEDURE get_relationship_rec (
3505: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3506: p_relationship_id IN NUMBER,
3507: p_directional_flag IN VARCHAR2 := 'F',
3508: x_rel_rec OUT NOCOPY RELATIONSHIP_REC_TYPE,
3509: x_return_status OUT NOCOPY VARCHAR2,
3529: END IF;
3530:
3531:
3532: --Initialize message list if p_init_msg_list is set to TRUE.
3533: IF FND_API.to_Boolean(p_init_msg_list) THEN
3534: FND_MSG_PUB.initialize;
3535: END IF;
3536:
3537: --Initialize API return status to success.
3534: FND_MSG_PUB.initialize;
3535: END IF;
3536:
3537: --Initialize API return status to success.
3538: x_return_status := FND_API.G_RET_STS_SUCCESS;
3539:
3540: --Check whether primary key has been passed in.
3541: IF p_relationship_id IS NULL OR
3542: p_relationship_id = FND_API.G_MISS_NUM THEN
3538: x_return_status := FND_API.G_RET_STS_SUCCESS;
3539:
3540: --Check whether primary key has been passed in.
3541: IF p_relationship_id IS NULL OR
3542: p_relationship_id = FND_API.G_MISS_NUM THEN
3543: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3544: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'relationship_id' );
3545: FND_MSG_PUB.ADD;
3546: RAISE FND_API.G_EXC_ERROR;
3542: p_relationship_id = FND_API.G_MISS_NUM THEN
3543: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3544: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'relationship_id' );
3545: FND_MSG_PUB.ADD;
3546: RAISE FND_API.G_EXC_ERROR;
3547: END IF;
3548:
3549: x_rel_rec.relationship_id := p_relationship_id;
3550: IF p_directional_flag <> 'F'
3646: END IF;
3647:
3648: IF l_party_id IS NOT NULL
3649: AND
3650: l_party_id <> FND_API.G_MISS_NUM
3651: THEN
3652: HZ_PARTY_V2PUB.get_party_rec (
3653: p_party_id => l_party_id,
3654: x_party_rec => x_rel_rec.party_rec,
3656: x_msg_count => x_msg_count,
3657: x_msg_data => x_msg_data
3658: );
3659:
3660: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3661: RAISE FND_API.G_EXC_ERROR;
3662: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3664: END IF;
3657: x_msg_data => x_msg_data
3658: );
3659:
3660: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3661: RAISE FND_API.G_EXC_ERROR;
3662: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3664: END IF;
3665: END IF;
3658: );
3659:
3660: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3661: RAISE FND_API.G_EXC_ERROR;
3662: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3664: END IF;
3665: END IF;
3666:
3659:
3660: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3661: RAISE FND_API.G_EXC_ERROR;
3662: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3664: END IF;
3665: END IF;
3666:
3667: --Standard call to get message count and if count is 1, get message info.
3665: END IF;
3666:
3667: --Standard call to get message count and if count is 1, get message info.
3668: FND_MSG_PUB.Count_And_Get(
3669: p_encoded => FND_API.G_FALSE,
3670: p_count => x_msg_count,
3671: p_data => x_msg_data );
3672:
3673: -- Debug info.
3686: -- Check if API is called in debug mode. If yes, disable debug.
3687: --disable_debug;
3688:
3689: EXCEPTION
3690: WHEN FND_API.G_EXC_ERROR THEN
3691: x_return_status := FND_API.G_RET_STS_ERROR;
3692:
3693: FND_MSG_PUB.Count_And_Get(
3694: p_encoded => FND_API.G_FALSE,
3687: --disable_debug;
3688:
3689: EXCEPTION
3690: WHEN FND_API.G_EXC_ERROR THEN
3691: x_return_status := FND_API.G_RET_STS_ERROR;
3692:
3693: FND_MSG_PUB.Count_And_Get(
3694: p_encoded => FND_API.G_FALSE,
3695: p_count => x_msg_count,
3690: WHEN FND_API.G_EXC_ERROR THEN
3691: x_return_status := FND_API.G_RET_STS_ERROR;
3692:
3693: FND_MSG_PUB.Count_And_Get(
3694: p_encoded => FND_API.G_FALSE,
3695: p_count => x_msg_count,
3696: p_data => x_msg_data );
3697:
3698: -- Debug info.
3711:
3712: -- Check if API is called in debug mode. If yes, disable debug.
3713: --disable_debug;
3714:
3715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3717:
3718: FND_MSG_PUB.Count_And_Get(
3719: p_encoded => FND_API.G_FALSE,
3712: -- Check if API is called in debug mode. If yes, disable debug.
3713: --disable_debug;
3714:
3715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3717:
3718: FND_MSG_PUB.Count_And_Get(
3719: p_encoded => FND_API.G_FALSE,
3720: p_count => x_msg_count,
3715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3717:
3718: FND_MSG_PUB.Count_And_Get(
3719: p_encoded => FND_API.G_FALSE,
3720: p_count => x_msg_count,
3721: p_data => x_msg_data );
3722:
3723: -- Debug info.
3737: -- Check if API is called in debug mode. If yes, disable debug.
3738: --disable_debug;
3739:
3740: WHEN OTHERS THEN
3741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3742:
3743: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3744: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3745: FND_MSG_PUB.ADD;
3744: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3745: FND_MSG_PUB.ADD;
3746:
3747: FND_MSG_PUB.Count_And_Get(
3748: p_encoded => FND_API.G_FALSE,
3749: p_count => x_msg_count,
3750: p_data => x_msg_data );
3751:
3752: -- Debug info.