[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
577:
578: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MULTIPLE_PARENT');
579: FND_MESSAGE.SET_TOKEN('RELTYPE', l_meaning);
580: FND_MSG_PUB.ADD;
581: RAISE FND_API.G_EXC_ERROR;
582:
583: EXCEPTION
584: WHEN NO_DATA_FOUND THEN
585: -- no parent found, proceed
615: p_relationship_rec.subject_id = p_relationship_rec.object_id
616: THEN
617: FND_MESSAGE.SET_NAME('AR', 'HZ_API_SUBJECT_OBJECT_IDS');
618: FND_MSG_PUB.ADD;
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
621:
622: -- build the record for creation of relationship party record
623: l_party_rel_rec.party_rec := p_relationship_rec.party_rec;
934: l_hierarchy_rec.status := NVL(p_relationship_rec.status, 'A');
935: END IF;
936:
937: HZ_HIERARCHY_PUB.create_link(
938: p_init_msg_list => FND_API.G_FALSE,
939: p_hierarchy_node_rec => l_hierarchy_rec,
940: x_return_status => x_return_status,
941: x_msg_count => l_msg_count,
942: x_msg_data => l_msg_data
941: x_msg_count => l_msg_count,
942: x_msg_data => l_msg_data
943: );
944:
945: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
946: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
947: RAISE FND_API.G_EXC_ERROR;
948: ELSE
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
942: x_msg_data => l_msg_data
943: );
944:
945: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
946: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
947: RAISE FND_API.G_EXC_ERROR;
948: ELSE
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
943: );
944:
945: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
946: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
947: RAISE FND_API.G_EXC_ERROR;
948: ELSE
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951: END IF;
945: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
946: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
947: RAISE FND_API.G_EXC_ERROR;
948: ELSE
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951: END IF;
952:
953: END IF;
973: p_relationship_rec.object_type IN ('PERSON','ORGANIZATION')))
974: )
975: THEN
976: IF p_create_org_contact = 'Y' THEN
977: IF l_contact_number = FND_API.G_MISS_CHAR OR l_contact_number IS NULL THEN
978: l_count := 1;
979: WHILE l_count > 0 LOOP
980: SELECT to_char(hz_contact_numbers_s.nextval)
981: INTO l_contact_number FROM dual;
1074: p_relationship_rec.subject_table_name = 'HZ_PARTIES' AND
1075: p_relationship_rec.object_table_name = 'HZ_PARTIES'
1076: THEN
1077: IF (p_contact_party_id IS NOT NULL AND
1078: p_contact_party_id <> FND_API.G_MISS_NUM AND
1079: (p_contact_party_usage_code IS NULL OR
1080: p_contact_party_usage_code = FND_API.G_MISS_CHAR)) OR
1081: (p_contact_party_usage_code IS NOT NULL AND
1082: p_contact_party_usage_code <> FND_API.G_MISS_CHAR AND
1076: THEN
1077: IF (p_contact_party_id IS NOT NULL AND
1078: p_contact_party_id <> FND_API.G_MISS_NUM AND
1079: (p_contact_party_usage_code IS NULL OR
1080: p_contact_party_usage_code = FND_API.G_MISS_CHAR)) OR
1081: (p_contact_party_usage_code IS NOT NULL AND
1082: p_contact_party_usage_code <> FND_API.G_MISS_CHAR AND
1083: (p_contact_party_id IS NULL OR
1084: p_contact_party_id = FND_API.G_MISS_NUM))
1078: p_contact_party_id <> FND_API.G_MISS_NUM AND
1079: (p_contact_party_usage_code IS NULL OR
1080: p_contact_party_usage_code = FND_API.G_MISS_CHAR)) OR
1081: (p_contact_party_usage_code IS NOT NULL AND
1082: p_contact_party_usage_code <> FND_API.G_MISS_CHAR AND
1083: (p_contact_party_id IS NULL OR
1084: p_contact_party_id = FND_API.G_MISS_NUM))
1085: THEN
1086: fnd_message.set_name('AR', 'HZ_PU_REL_MISSING_COLUMN');
1080: p_contact_party_usage_code = FND_API.G_MISS_CHAR)) OR
1081: (p_contact_party_usage_code IS NOT NULL AND
1082: p_contact_party_usage_code <> FND_API.G_MISS_CHAR AND
1083: (p_contact_party_id IS NULL OR
1084: p_contact_party_id = FND_API.G_MISS_NUM))
1085: THEN
1086: fnd_message.set_name('AR', 'HZ_PU_REL_MISSING_COLUMN');
1087: fnd_msg_pub.add;
1088: RAISE FND_API.G_EXC_ERROR;
1084: p_contact_party_id = FND_API.G_MISS_NUM))
1085: THEN
1086: fnd_message.set_name('AR', 'HZ_PU_REL_MISSING_COLUMN');
1087: fnd_msg_pub.add;
1088: RAISE FND_API.G_EXC_ERROR;
1089: ELSIF p_contact_party_id IS NOT NULL AND
1090: (p_contact_party_id <> p_relationship_rec.subject_id AND
1091: p_contact_party_id <> p_relationship_rec.object_id OR
1092: p_contact_party_id = p_relationship_rec.subject_id AND
1095: p_relationship_rec.object_type <> 'PERSON')
1096: THEN
1097: fnd_message.set_name('AR', 'HZ_PU_REL_INVALID_CONTACT_ID');
1098: fnd_msg_pub.add;
1099: RAISE FND_API.G_EXC_ERROR;
1100: END IF;
1101:
1102: l_party_id_tbl.extend(1);
1103: l_party_usage_code_tbl.extend(1);
1141: l_party_usg_assignment_rec.effective_end_date := p_relationship_rec.end_date;
1142:
1143: IF p_relationship_rec.status = 'I' THEN
1144: IF p_relationship_rec.start_date IS NULL OR
1145: p_relationship_rec.start_date = fnd_api.g_miss_date OR
1146: trunc(p_relationship_rec.start_date) > trunc(sysdate)
1147: THEN
1148: l_party_usg_assignment_rec.effective_start_date := trunc(sysdate);
1149: END IF;
1148: l_party_usg_assignment_rec.effective_start_date := trunc(sysdate);
1149: END IF;
1150:
1151: IF p_relationship_rec.end_date IS NULL OR
1152: p_relationship_rec.end_date = fnd_api.g_miss_date OR
1153: trunc(p_relationship_rec.end_date) > trunc(sysdate)
1154: THEN
1155: l_party_usg_assignment_rec.effective_end_date := trunc(sysdate);
1156: END IF;
1167: x_msg_count => l_msg_count,
1168: x_msg_data => l_msg_data
1169: );
1170:
1171: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1172: RAISE fnd_api.g_exc_error;
1173: END IF;
1174: END LOOP;
1175: END IF;
1168: x_msg_data => l_msg_data
1169: );
1170:
1171: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1172: RAISE fnd_api.g_exc_error;
1173: END IF;
1174: END LOOP;
1175: END IF;
1176:
1204: | NOTES
1205: |
1206: | MODIFICATION HISTORY
1207: | 09-DEC-2003 Rajib Ranjan Borah o Bug 3274236.Start date and end date were not
1208: | getting updated if the user passed FND_API.G_MISS_CHAR.
1209: | o Modified some previous code to remove redundancy.
1210: | 19-FEB-2004 Rajib Ranjan Borah o Bug 3306941.The meaning should be passed as token
1211: | for the error message HZ_API_MULTIPLE_PARENT instead
1212: | of the relationsihp_type.
1360: THEN
1361: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
1362: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_relationships' );
1363: FND_MSG_PUB.ADD;
1364: RAISE FND_API.G_EXC_ERROR;
1365: END IF;
1366:
1367: p_object_version_number := NVL( l_object_version_number, 1 ) + 1;
1368:
1426: THEN
1427: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
1428: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_relationships' );
1429: FND_MSG_PUB.ADD;
1430: RAISE FND_API.G_EXC_ERROR;
1431: END IF;
1432:
1433: p_object_version_number := NVL( l_object_version_number, 1 ) + 1;
1434:
1437: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
1438: FND_MESSAGE.SET_TOKEN( 'RECORD', 'relationship' );
1439: FND_MESSAGE.SET_TOKEN( 'VALUE', NVL(TO_CHAR( p_relationship_rec.relationship_id ),'null'));
1440: FND_MSG_PUB.ADD;
1441: RAISE FND_API.G_EXC_ERROR;
1442: END;
1443: END;
1444:
1445: -- Debug info.
1478: l_child_object_type := l_subject_type;
1479: END IF;
1480:
1481: IF p_relationship_rec.start_date IS NOT NULL THEN
1482: IF p_relationship_rec.start_date = FND_API.G_MISS_DATE THEN
1483: l_new_start_date := sysdate;
1484: ELSE
1485: l_new_start_date := p_relationship_rec.start_date;
1486: END IF;
1488: l_new_start_date := l_start_date;
1489: END IF;
1490:
1491: IF p_relationship_rec.end_date IS NOT NULL THEN
1492: IF p_relationship_rec.end_date = FND_API.G_MISS_DATE THEN
1493: l_new_end_date := to_date('31-12-4712 00:00:01', 'DD-MM-YYYY HH24:MI:SS');
1494: ELSE
1495: l_new_end_date := p_relationship_rec.end_date;
1496: END IF;
1563:
1564: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MULTIPLE_PARENT');
1565: FND_MESSAGE.SET_TOKEN('RELTYPE', l_meaning);
1566: FND_MSG_PUB.ADD;
1567: RAISE FND_API.G_EXC_ERROR;
1568:
1569: EXCEPTION
1570: WHEN NO_DATA_FOUND THEN
1571: -- no parent found, proceed
1584: -- Bug 3274236 l_rel_rec := p_relationship_rec;
1585:
1586:
1587: IF p_relationship_rec.start_date IS NULL OR
1588: p_relationship_rec.start_date = FND_API.G_MISS_DATE
1589: THEN
1590: -- Bug 3274236 p_relationship_rec.start_date := l_start_date;
1591: p_relationship_rec.start_date := l_new_start_date;
1592: END IF;
1591: p_relationship_rec.start_date := l_new_start_date;
1592: END IF;
1593:
1594: IF p_relationship_rec.end_date IS NULL OR
1595: p_relationship_rec.end_date = FND_API.G_MISS_DATE
1596: THEN
1597: -- Bug 3274236 p_relationship_rec.end_date := l_end_date;
1598: p_relationship_rec.end_date := l_new_end_date;
1599: END IF;
1606: p_relationship_rec,
1607: l_rowid,
1608: x_return_status);
1609:
1610: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1611: RAISE FND_API.G_EXC_ERROR;
1612: END IF;
1613:
1614: --start_date of hz_party_relationships has been changed
1607: l_rowid,
1608: x_return_status);
1609:
1610: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1611: RAISE FND_API.G_EXC_ERROR;
1612: END IF;
1613:
1614: --start_date of hz_party_relationships has been changed
1615: --to be updateable. We need to pass in the new start_date when we
1617: /* Bug 3274236.This code is redundant as l_rel_rec is now assigned after
1618: making the changes to p_relationship_rec.
1619:
1620: IF p_relationship_rec.start_date IS NULL OR
1621: p_relationship_rec.start_date <> FND_API.G_MISS_DATE
1622: THEN
1623: l_rel_rec.start_date := p_relationship_rec.start_date;
1624: END IF;
1625:
1623: l_rel_rec.start_date := p_relationship_rec.start_date;
1624: END IF;
1625:
1626: IF p_relationship_rec.end_date IS NULL OR
1627: p_relationship_rec.end_date <> FND_API.G_MISS_DATE
1628: THEN
1629: l_rel_rec.end_date := p_relationship_rec.end_date;
1630: END IF;
1631: */
1901: l_party_rel_rec.party_rec.status := p_relationship_rec.party_rec.status;
1902: END IF;
1903: --Bug 6732835 End of changes
1904:
1905: IF nvl(p_party_object_version_number,1) <> FND_API.G_MISS_NUM
1906: THEN
1907: IF l_party_id IS NOT NULL THEN
1908:
1909: -- Debug info.
1969: l_hierarchy_rec.status := NVL(p_relationship_rec.status, l_status);
1970: END IF;
1971:
1972: HZ_HIERARCHY_PUB.update_link(
1973: p_init_msg_list => FND_API.G_FALSE,
1974: p_hierarchy_node_rec => l_hierarchy_rec,
1975: x_return_status => x_return_status,
1976: x_msg_count => l_msg_count,
1977: x_msg_data => l_msg_data
1976: x_msg_count => l_msg_count,
1977: x_msg_data => l_msg_data
1978: );
1979:
1980: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1981: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1982: RAISE FND_API.G_EXC_ERROR;
1983: ELSE
1984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1977: x_msg_data => l_msg_data
1978: );
1979:
1980: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1981: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1982: RAISE FND_API.G_EXC_ERROR;
1983: ELSE
1984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1985: END IF;
1978: );
1979:
1980: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1981: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1982: RAISE FND_API.G_EXC_ERROR;
1983: ELSE
1984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1985: END IF;
1986: END IF;
1980: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1981: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1982: RAISE FND_API.G_EXC_ERROR;
1983: ELSE
1984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1985: END IF;
1986: END IF;
1987:
1988: END IF;
1994: p_relationship_rec.status = 'A') AND
1995: l_status = 'A' AND
1996: (p_relationship_rec.start_date IS NOT NULL AND
1997: p_relationship_rec.start_date <> l_start_date AND
1998: p_relationship_rec.start_date <> fnd_api.g_miss_date OR
1999: p_relationship_rec.end_date IS NOT NULL AND
2000: p_relationship_rec.end_date <> l_end_date AND
2001: p_relationship_rec.end_date <> fnd_api.g_miss_date) OR
2002: p_relationship_rec.status = 'I' AND
1997: p_relationship_rec.start_date <> l_start_date AND
1998: p_relationship_rec.start_date <> fnd_api.g_miss_date OR
1999: p_relationship_rec.end_date IS NOT NULL AND
2000: p_relationship_rec.end_date <> l_end_date AND
2001: p_relationship_rec.end_date <> fnd_api.g_miss_date) OR
2002: p_relationship_rec.status = 'I' AND
2003: l_status = 'A' OR
2004: p_relationship_rec.status = 'A' AND
2005: l_status = 'I') AND
2048: x_msg_count => l_msg_count,
2049: x_msg_data => l_msg_data
2050: );
2051:
2052: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2053: RAISE fnd_api.g_exc_error;
2054: END IF;
2055: END IF;
2056:
2049: x_msg_data => l_msg_data
2050: );
2051:
2052: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2053: RAISE fnd_api.g_exc_error;
2054: END IF;
2055: END IF;
2056:
2057: -- Debug info.
2114: EXCEPTION WHEN OTHERS THEN
2115: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
2116: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTIES');
2117: FND_MSG_PUB.ADD;
2118: RAISE FND_API.G_EXC_ERROR;
2119: END;
2120:
2121: IF l_end_date IS NULL
2122: OR l_end_date = FND_API.G_MISS_DATE
2118: RAISE FND_API.G_EXC_ERROR;
2119: END;
2120:
2121: IF l_end_date IS NULL
2122: OR l_end_date = FND_API.G_MISS_DATE
2123: THEN
2124: l_end_date := to_date('31-12-4712 00:00:01', 'DD-MM-YYYY HH24:MI:SS');
2125: ELSIF l_end_date = sysdate THEN
2126: l_end_date := sysdate-1;
2126: l_end_date := sysdate-1;
2127: END IF;
2128:
2129: IF l_status IS NULL
2130: OR l_status = FND_API.G_MISS_CHAR
2131: THEN
2132: l_status := 'A';
2133: END IF;
2134:
2249: l_party_number := l_party_rec.party_number;
2250:
2251: -- if primary key value is passed, check for uniqueness.
2252: IF l_party_id IS NOT NULL AND
2253: l_party_id <> FND_API.G_MISS_NUM
2254: THEN
2255: BEGIN
2256: SELECT 'Y'
2257: INTO l_dummy
2260:
2261: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
2262: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_id');
2263: FND_MSG_PUB.ADD;
2264: RAISE FND_API.G_EXC_ERROR;
2265:
2266: EXCEPTION
2267: WHEN NO_DATA_FOUND THEN
2268: NULL;
2275: -- a duplicate raise error.
2276: l_generate_party_number := fnd_profile.value('HZ_GENERATE_PARTY_NUMBER');
2277:
2278: IF l_generate_party_number = 'N' THEN
2279: IF l_party_number = FND_API.G_MISS_CHAR
2280: OR
2281: l_party_number IS NULL
2282: THEN
2283: -- Bug 4284731. If no party_number is passed in, do_not throw any error.
2288:
2289: /* FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
2290: FND_MESSAGE.SET_TOKEN('COLUMN', 'party number');
2291: FND_MSG_PUB.ADD;
2292: RAISE FND_API.G_EXC_ERROR;
2293: END IF;
2294: */
2295: ELSE
2296:
2304:
2305: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
2306: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_number');
2307: FND_MSG_PUB.ADD;
2308: RAISE FND_API.G_EXC_ERROR;
2309:
2310: EXCEPTION
2311: WHEN NO_DATA_FOUND THEN
2312: NULL;
2316: OR
2317: l_generate_party_number IS NULL
2318: THEN
2319:
2320: IF l_party_number <> FND_API.G_MISS_CHAR
2321: AND
2322: l_party_number IS NOT NULL
2323: THEN
2324: -- Bug 4284731. No changes were made here as party_number was explicitly
2325: -- passed despite the fact that auto numbering is on.
2326:
2327: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PARTY_NUMBER_AUTO_ON');
2328: FND_MSG_PUB.ADD;
2329: RAISE FND_API.G_EXC_ERROR;
2330: END IF;
2331:
2332: END IF;
2333:
2338: l_party_rec,
2339: NULL, NULL,
2340: x_return_status);
2341:
2342: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2343: RAISE FND_API.G_EXC_ERROR;
2344: END IF;
2345:
2346: l_party_rec.party_id := l_party_id;
2339: NULL, NULL,
2340: x_return_status);
2341:
2342: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2343: RAISE FND_API.G_EXC_ERROR;
2344: END IF;
2345:
2346: l_party_rec.party_id := l_party_id;
2347: l_party_rec.party_number := l_party_number;
2361: l_object_name || '-' ||
2362: l_party_number, 1, 360);
2363:
2364: -- this is for orig_system_defaulting
2365: IF l_party_rec.party_id = FND_API.G_MISS_NUM THEN
2366: l_party_rec.party_id := NULL;
2367: END IF;
2368:
2369: -- Debug info.
2528: ) IS
2529:
2530: l_party_rec HZ_PARTY_V2PUB.PARTY_REC_TYPE := p_relationship_rec.party_rec;
2531: l_rowid ROWID;
2532: l_party_name HZ_PARTIES.PARTY_NAME%TYPE := FND_API.G_MISS_CHAR;
2533: l_first_name HZ_PARTIES.PERSON_FIRST_NAME%TYPE;
2534: l_last_name HZ_PARTIES.PERSON_LAST_NAME%TYPE;
2535: l_profile_id NUMBER;
2536: l_effective_start_date DATE;
2582: THEN
2583: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
2584: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_parties');
2585: FND_MSG_PUB.ADD;
2586: RAISE FND_API.G_EXC_ERROR;
2587: END IF;
2588:
2589: p_party_object_version_number := nvl(l_party_object_version_number, 1) + 1;
2590:
2592: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2593: FND_MESSAGE.SET_TOKEN('RECORD', 'parties');
2594: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(l_party_rec.party_id),'null'));
2595: FND_MSG_PUB.ADD;
2596: RAISE FND_API.G_EXC_ERROR;
2597: END;
2598:
2599:
2600: HZ_REGISTRY_VALIDATE_V2PUB.validate_party(
2600: HZ_REGISTRY_VALIDATE_V2PUB.validate_party(
2601: 'U',
2602: l_party_rec,
2603: p_old_relationship_rec.party_rec,
2604: NVL(db_created_by_module, fnd_api.g_miss_char),
2605: x_return_status);
2606:
2607: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2608: RAISE FND_API.G_EXC_ERROR;
2603: p_old_relationship_rec.party_rec,
2604: NVL(db_created_by_module, fnd_api.g_miss_char),
2605: x_return_status);
2606:
2607: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2608: RAISE FND_API.G_EXC_ERROR;
2609: END IF;
2610:
2611: -- Debug info.
2604: NVL(db_created_by_module, fnd_api.g_miss_char),
2605: x_return_status);
2606:
2607: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2608: RAISE FND_API.G_EXC_ERROR;
2609: END IF;
2610:
2611: -- Debug info.
2612: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2764: | /de-select data-sources is obsoleted.
2765: +===========================================================================*/
2766:
2767: PROCEDURE create_relationship (
2768: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2769: p_relationship_rec IN RELATIONSHIP_REC_TYPE,
2770: x_relationship_id OUT NOCOPY NUMBER,
2771: x_party_id OUT NOCOPY NUMBER,
2772: x_party_number OUT NOCOPY VARCHAR2,
2830: |
2831: +===========================================================================*/
2832:
2833: PROCEDURE create_relationship (
2834: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2835: p_relationship_rec IN RELATIONSHIP_REC_TYPE,
2836: x_relationship_id OUT NOCOPY NUMBER,
2837: x_party_id OUT NOCOPY NUMBER,
2838: x_party_number OUT NOCOPY VARCHAR2,
2897: |
2898: +===========================================================================*/
2899:
2900: PROCEDURE create_relationship_with_usg (
2901: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2902: p_relationship_rec IN RELATIONSHIP_REC_TYPE,
2903: p_contact_party_id IN NUMBER,
2904: p_contact_party_usage_code IN VARCHAR2,
2905: p_create_org_contact IN VARCHAR2,
2913:
2914: l_rel_rec RELATIONSHIP_REC_TYPE := p_relationship_rec;
2915: l_created_party VARCHAR2(1);
2916:
2917: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2918: dss_msg_count NUMBER := 0;
2919: dss_msg_data VARCHAR2(2000):= null;
2920: l_test_security VARCHAR2(1):= 'F';
2921: l_debug_prefix VARCHAR2(30) := '';
2938: p_msg_level=>fnd_log.level_procedure);
2939: END IF;
2940:
2941: -- Initialize message list if p_init_msg_list is set to TRUE.
2942: IF FND_API.to_Boolean(p_init_msg_list) THEN
2943: FND_MSG_PUB.initialize;
2944: END IF;
2945:
2946: -- Initialize API return status to success.
2943: FND_MSG_PUB.initialize;
2944: END IF;
2945:
2946: -- Initialize API return status to success.
2947: x_return_status := FND_API.G_RET_STS_SUCCESS;
2948:
2949:
2950: -- Bug 2197181: added for mix-n-match project. first load data
2951: -- sources for this entity. Then assign the actual_content_source
2978: p_actual_content_source => l_rel_rec.actual_content_source,
2979: x_is_datasource_selected => g_rel_is_datasource_selected,
2980: x_return_status => x_return_status );
2981:
2982: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: END IF;
2985:
2986: -- Call to business logic.
2979: x_is_datasource_selected => g_rel_is_datasource_selected,
2980: x_return_status => x_return_status );
2981:
2982: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: END IF;
2985:
2986: -- Call to business logic.
2987: do_create_rel(
3015: x_return_status => dss_return_status,
3016: x_msg_count => dss_msg_count,
3017: x_msg_data => dss_msg_data);
3018:
3019: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3020: RAISE FND_API.G_EXC_ERROR;
3021: end if;
3022:
3023: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3016: x_msg_count => dss_msg_count,
3017: x_msg_data => dss_msg_data);
3018:
3019: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3020: RAISE FND_API.G_EXC_ERROR;
3021: end if;
3022:
3023: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3024: --
3019: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3020: RAISE FND_API.G_EXC_ERROR;
3021: end if;
3022:
3023: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3024: --
3025: -- Bug 3835601: replaced the dss message with a more user friendly message
3026: --
3027: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
3027: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
3028: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
3029: hz_dss_util_pub.get_display_name('HZ_RELATIONSHIPS', null));
3030: FND_MSG_PUB.ADD;
3031: RAISE FND_API.G_EXC_ERROR;
3032: end if;
3033: END IF;
3034:
3035:
3037:
3038: -- SSM SST Integration and Extension
3039: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
3040: -- There is no need to check if the data-source is selected.
3041: IF x_return_status = FND_API.G_RET_STS_SUCCESS /* AND
3042: -- Bug 2197181: Added below condition for Mix-n-Match
3043: g_rel_is_datasource_selected = 'Y' */
3044: THEN
3045: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
3056: END IF;
3057:
3058: -- Standard call to get message count and if count is 1, get message info.
3059: FND_MSG_PUB.Count_And_Get(
3060: p_encoded => FND_API.G_FALSE,
3061: p_count => x_msg_count,
3062: p_data => x_msg_data);
3063:
3064: -- Debug info.
3077: -- Check if API is called in debug mode. If yes, disable debug.
3078: --disable_debug;
3079:
3080: EXCEPTION
3081: WHEN FND_API.G_EXC_ERROR THEN
3082: ROLLBACK TO create_relationship;
3083: x_return_status := FND_API.G_RET_STS_ERROR;
3084: FND_MSG_PUB.Count_And_Get(
3085: p_encoded => FND_API.G_FALSE,
3079:
3080: EXCEPTION
3081: WHEN FND_API.G_EXC_ERROR THEN
3082: ROLLBACK TO create_relationship;
3083: x_return_status := FND_API.G_RET_STS_ERROR;
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);
3081: WHEN FND_API.G_EXC_ERROR THEN
3082: ROLLBACK TO create_relationship;
3083: x_return_status := FND_API.G_RET_STS_ERROR;
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:
3103: -- Check if API is called in debug mode. If yes, disable debug.
3104: --disable_debug;
3105:
3106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3107: ROLLBACK TO create_relationship;
3108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3109: FND_MSG_PUB.Count_And_Get(
3110: p_encoded => FND_API.G_FALSE,
3104: --disable_debug;
3105:
3106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3107: ROLLBACK TO create_relationship;
3108: x_return_status := FND_API.G_RET_STS_UNEXP_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_UNEXPECTED_ERROR THEN
3107: ROLLBACK TO create_relationship;
3108: x_return_status := FND_API.G_RET_STS_UNEXP_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.
3129: --disable_debug;
3130:
3131: WHEN OTHERS THEN
3132: ROLLBACK TO create_relationship;
3133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3134: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3135: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3136: FND_MSG_PUB.ADD;
3137: FND_MSG_PUB.Count_And_Get(
3134: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3135: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3136: FND_MSG_PUB.ADD;
3137: FND_MSG_PUB.Count_And_Get(
3138: p_encoded => FND_API.G_FALSE,
3139: p_count => x_msg_count,
3140: p_data => x_msg_data);
3141:
3142: -- Debug info.
3190: | /de-select data-sources is obsoleted.
3191: +===========================================================================*/
3192:
3193: PROCEDURE update_relationship (
3194: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3195: p_relationship_rec IN RELATIONSHIP_REC_TYPE,
3196: p_object_version_number IN OUT NOCOPY NUMBER,
3197: p_party_object_version_number IN OUT NOCOPY NUMBER,
3198: x_return_status OUT NOCOPY VARCHAR2,
3203: l_rel_rec RELATIONSHIP_REC_TYPE := p_relationship_rec;
3204: l_old_rel_rec RELATIONSHIP_REC_TYPE;
3205: l_data_source_from VARCHAR2(30);
3206:
3207: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3208: dss_msg_count NUMBER := 0;
3209: dss_msg_data VARCHAR2(2000):= null;
3210: l_test_security VARCHAR2(1):= 'F';
3211: l_debug_prefix VARCHAR2(30) := '';
3225: p_msg_level=>fnd_log.level_procedure);
3226: END IF;
3227:
3228: -- Initialize message list if p_init_msg_list is set to TRUE.
3229: IF FND_API.to_Boolean(p_init_msg_list) THEN
3230: FND_MSG_PUB.initialize;
3231: END IF;
3232:
3233: -- Initialize API return status to success.
3230: FND_MSG_PUB.initialize;
3231: END IF;
3232:
3233: -- Initialize API return status to success.
3234: x_return_status := FND_API.G_RET_STS_SUCCESS;
3235:
3236: -- Get old records. Will be used by business event system.
3237: get_relationship_rec (
3238: p_relationship_id => l_rel_rec.relationship_id,
3241: x_return_status => x_return_status,
3242: x_msg_count => x_msg_count,
3243: x_msg_data => x_msg_data );
3244:
3245: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3246: RAISE FND_API.G_EXC_ERROR;
3247: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3249: END IF;
3242: x_msg_count => x_msg_count,
3243: x_msg_data => x_msg_data );
3244:
3245: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3246: RAISE FND_API.G_EXC_ERROR;
3247: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3249: END IF;
3250:
3243: x_msg_data => x_msg_data );
3244:
3245: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3246: RAISE FND_API.G_EXC_ERROR;
3247: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3249: END IF;
3250:
3251: --
3244:
3245: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3246: RAISE FND_API.G_EXC_ERROR;
3247: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3249: END IF;
3250:
3251: --
3252: -- Bug 2486394 -Check if the DSS security is granted to the user
3267: x_return_status => dss_return_status,
3268: x_msg_count => dss_msg_count,
3269: x_msg_data => dss_msg_data);
3270:
3271: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3272: RAISE FND_API.G_EXC_ERROR;
3273: end if;
3274:
3275: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3268: x_msg_count => dss_msg_count,
3269: x_msg_data => dss_msg_data);
3270:
3271: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3272: RAISE FND_API.G_EXC_ERROR;
3273: end if;
3274:
3275: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3276: --
3271: if dss_return_status <> fnd_api.g_ret_sts_success THEN
3272: RAISE FND_API.G_EXC_ERROR;
3273: end if;
3274:
3275: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
3276: --
3277: -- Bug 3835601: replaced the dss message with a more user friendly message
3278: --
3279: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
3279: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
3280: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
3281: hz_dss_util_pub.get_display_name('HZ_RELATIONSHIPS', null));
3282: FND_MSG_PUB.ADD;
3283: RAISE FND_API.G_EXC_ERROR;
3284: end if;
3285: END IF;
3286:
3287: -- Bug 2197181: added for mix-n-match project. first load data
3324: -- SSM SST Integration and Extension
3325: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
3326: -- There is no need to check if the data-source is selected.
3327:
3328: IF x_return_status = FND_API.G_RET_STS_SUCCESS /* AND
3329: -- Bug 2197181: Added below condition for Mix-n-Match
3330: g_rel_is_datasource_selected = 'Y' */
3331: THEN
3332: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
3344:
3345: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3346: -- Standard call to get message count and if count is 1, get message info.
3347: FND_MSG_PUB.Count_And_Get(
3348: p_encoded => FND_API.G_FALSE,
3349: p_count => x_msg_count,
3350: p_data => x_msg_data);
3351:
3352: -- Debug info.
3365: -- Check if API is called in debug mode. If yes, disable debug.
3366: --disable_debug;
3367:
3368: EXCEPTION
3369: WHEN FND_API.G_EXC_ERROR THEN
3370: ROLLBACK TO update_relationship;
3371: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: FND_MSG_PUB.Count_And_Get(
3368: EXCEPTION
3369: WHEN FND_API.G_EXC_ERROR THEN
3370: ROLLBACK TO update_relationship;
3371: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: FND_MSG_PUB.Count_And_Get(
3374: p_encoded => FND_API.G_FALSE,
3375: p_count => x_msg_count,
3376: p_data => x_msg_data);
3370: ROLLBACK TO update_relationship;
3371: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: FND_MSG_PUB.Count_And_Get(
3374: p_encoded => FND_API.G_FALSE,
3375: p_count => x_msg_count,
3376: p_data => x_msg_data);
3377:
3378: -- Debug info.
3391:
3392: -- Check if API is called in debug mode. If yes, disable debug.
3393: --disable_debug;
3394:
3395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3396: ROLLBACK TO update_relationship;
3397: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3399: FND_MSG_PUB.Count_And_Get(
3394:
3395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3396: ROLLBACK TO update_relationship;
3397: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3399: FND_MSG_PUB.Count_And_Get(
3400: p_encoded => FND_API.G_FALSE,
3401: p_count => x_msg_count,
3402: p_data => x_msg_data);
3396: ROLLBACK TO update_relationship;
3397: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3399: FND_MSG_PUB.Count_And_Get(
3400: p_encoded => FND_API.G_FALSE,
3401: p_count => x_msg_count,
3402: p_data => x_msg_data);
3403:
3404: -- Debug info.
3420:
3421: WHEN OTHERS THEN
3422: ROLLBACK TO update_relationship;
3423: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
3424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3425: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3426: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3427: FND_MSG_PUB.ADD;
3428: FND_MSG_PUB.Count_And_Get(
3425: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3426: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3427: FND_MSG_PUB.ADD;
3428: FND_MSG_PUB.Count_And_Get(
3429: p_encoded => FND_API.G_FALSE,
3430: p_count => x_msg_count,
3431: p_data => x_msg_data);
3432:
3433: -- Debug info.
3476: |
3477: +===========================================================================*/
3478:
3479: PROCEDURE get_relationship_rec (
3480: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3481: p_relationship_id IN NUMBER,
3482: p_directional_flag IN VARCHAR2 := 'F',
3483: x_rel_rec OUT NOCOPY RELATIONSHIP_REC_TYPE,
3484: x_return_status OUT NOCOPY VARCHAR2,
3504: END IF;
3505:
3506:
3507: --Initialize message list if p_init_msg_list is set to TRUE.
3508: IF FND_API.to_Boolean(p_init_msg_list) THEN
3509: FND_MSG_PUB.initialize;
3510: END IF;
3511:
3512: --Initialize API return status to success.
3509: FND_MSG_PUB.initialize;
3510: END IF;
3511:
3512: --Initialize API return status to success.
3513: x_return_status := FND_API.G_RET_STS_SUCCESS;
3514:
3515: --Check whether primary key has been passed in.
3516: IF p_relationship_id IS NULL OR
3517: p_relationship_id = FND_API.G_MISS_NUM THEN
3513: x_return_status := FND_API.G_RET_STS_SUCCESS;
3514:
3515: --Check whether primary key has been passed in.
3516: IF p_relationship_id IS NULL OR
3517: p_relationship_id = FND_API.G_MISS_NUM THEN
3518: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3519: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'relationship_id' );
3520: FND_MSG_PUB.ADD;
3521: RAISE FND_API.G_EXC_ERROR;
3517: p_relationship_id = FND_API.G_MISS_NUM THEN
3518: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3519: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'relationship_id' );
3520: FND_MSG_PUB.ADD;
3521: RAISE FND_API.G_EXC_ERROR;
3522: END IF;
3523:
3524: x_rel_rec.relationship_id := p_relationship_id;
3525: IF p_directional_flag <> 'F'
3621: END IF;
3622:
3623: IF l_party_id IS NOT NULL
3624: AND
3625: l_party_id <> FND_API.G_MISS_NUM
3626: THEN
3627: HZ_PARTY_V2PUB.get_party_rec (
3628: p_party_id => l_party_id,
3629: x_party_rec => x_rel_rec.party_rec,
3631: x_msg_count => x_msg_count,
3632: x_msg_data => x_msg_data
3633: );
3634:
3635: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3636: RAISE FND_API.G_EXC_ERROR;
3637: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3639: END IF;
3632: x_msg_data => x_msg_data
3633: );
3634:
3635: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3636: RAISE FND_API.G_EXC_ERROR;
3637: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3639: END IF;
3640: END IF;
3633: );
3634:
3635: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3636: RAISE FND_API.G_EXC_ERROR;
3637: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3639: END IF;
3640: END IF;
3641:
3634:
3635: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3636: RAISE FND_API.G_EXC_ERROR;
3637: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3639: END IF;
3640: END IF;
3641:
3642: --Standard call to get message count and if count is 1, get message info.
3640: END IF;
3641:
3642: --Standard call to get message count and if count is 1, get message info.
3643: FND_MSG_PUB.Count_And_Get(
3644: p_encoded => FND_API.G_FALSE,
3645: p_count => x_msg_count,
3646: p_data => x_msg_data );
3647:
3648: -- Debug info.
3661: -- Check if API is called in debug mode. If yes, disable debug.
3662: --disable_debug;
3663:
3664: EXCEPTION
3665: WHEN FND_API.G_EXC_ERROR THEN
3666: x_return_status := FND_API.G_RET_STS_ERROR;
3667:
3668: FND_MSG_PUB.Count_And_Get(
3669: p_encoded => FND_API.G_FALSE,
3662: --disable_debug;
3663:
3664: EXCEPTION
3665: WHEN FND_API.G_EXC_ERROR THEN
3666: x_return_status := FND_API.G_RET_STS_ERROR;
3667:
3668: FND_MSG_PUB.Count_And_Get(
3669: p_encoded => FND_API.G_FALSE,
3670: p_count => x_msg_count,
3665: WHEN FND_API.G_EXC_ERROR THEN
3666: x_return_status := FND_API.G_RET_STS_ERROR;
3667:
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:
3687: -- Check if API is called in debug mode. If yes, disable debug.
3688: --disable_debug;
3689:
3690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3692:
3693: FND_MSG_PUB.Count_And_Get(
3694: p_encoded => FND_API.G_FALSE,
3687: -- Check if API is called in debug mode. If yes, disable debug.
3688: --disable_debug;
3689:
3690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3691: x_return_status := FND_API.G_RET_STS_UNEXP_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_UNEXPECTED_ERROR THEN
3691: x_return_status := FND_API.G_RET_STS_UNEXP_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.
3712: -- Check if API is called in debug mode. If yes, disable debug.
3713: --disable_debug;
3714:
3715: WHEN OTHERS THEN
3716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3717:
3718: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3719: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3720: FND_MSG_PUB.ADD;
3719: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3720: FND_MSG_PUB.ADD;
3721:
3722: FND_MSG_PUB.Count_And_Get(
3723: p_encoded => FND_API.G_FALSE,
3724: p_count => x_msg_count,
3725: p_data => x_msg_data );
3726:
3727: -- Debug info.