72: application_id NUMBER
73: );
74:
75: PROCEDURE get_party_rec (
76: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
77: p_party_id IN NUMBER,
78: x_party_rec OUT NOCOPY hz_party_v2pub.party_rec_type,
79: x_return_status OUT NOCOPY VARCHAR2,
80: x_msg_count OUT NOCOPY NUMBER,
105:
106: BEGIN
107:
108: --Initialize message list if p_init_msg_list is set to TRUE.
109: IF fnd_api.to_boolean(p_init_msg_list) THEN
110: fnd_msg_pub.initialize;
111: END IF;
112:
113: --Initialize API return status to success.
110: fnd_msg_pub.initialize;
111: END IF;
112:
113: --Initialize API return status to success.
114: x_return_status := fnd_api.g_ret_sts_success;
115:
116: --Check whether primary key has been passed in.
117: IF p_party_id IS NULL OR
118: p_party_id = fnd_api.g_miss_num THEN
114: x_return_status := fnd_api.g_ret_sts_success;
115:
116: --Check whether primary key has been passed in.
117: IF p_party_id IS NULL OR
118: p_party_id = fnd_api.g_miss_num THEN
119: fnd_message.set_name( 'AR', 'HZ_API_MISSING_COLUMN' );
120: fnd_message.set_token( 'COLUMN', 'party_id' );
121: fnd_msg_pub.add;
122: RAISE fnd_api.g_exc_error;
118: p_party_id = fnd_api.g_miss_num THEN
119: fnd_message.set_name( 'AR', 'HZ_API_MISSING_COLUMN' );
120: fnd_message.set_token( 'COLUMN', 'party_id' );
121: fnd_msg_pub.add;
122: RAISE fnd_api.g_exc_error;
123: END IF;
124:
125: x_party_rec.party_id := p_party_id;
126:
211: );
212:
213: --Standard call to get message count and if count is 1, get message info.
214: FND_MSG_PUB.Count_And_Get(
215: p_encoded => FND_API.G_FALSE,
216: p_count => x_msg_count,
217: p_data => x_msg_data );
218:
219: EXCEPTION
216: p_count => x_msg_count,
217: p_data => x_msg_data );
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222:
223: FND_MSG_PUB.Count_And_Get(
224: p_encoded => FND_API.G_FALSE,
217: p_data => x_msg_data );
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222:
223: FND_MSG_PUB.Count_And_Get(
224: p_encoded => FND_API.G_FALSE,
225: p_count => x_msg_count,
220: WHEN FND_API.G_EXC_ERROR THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222:
223: FND_MSG_PUB.Count_And_Get(
224: p_encoded => FND_API.G_FALSE,
225: p_count => x_msg_count,
226: p_data => x_msg_data );
227:
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224: p_encoded => FND_API.G_FALSE,
225: p_count => x_msg_count,
226: p_data => x_msg_data );
227:
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230:
231: FND_MSG_PUB.Count_And_Get(
232: p_encoded => FND_API.G_FALSE,
225: p_count => x_msg_count,
226: p_data => x_msg_data );
227:
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230:
231: FND_MSG_PUB.Count_And_Get(
232: p_encoded => FND_API.G_FALSE,
233: p_count => x_msg_count,
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230:
231: FND_MSG_PUB.Count_And_Get(
232: p_encoded => FND_API.G_FALSE,
233: p_count => x_msg_count,
234: p_data => x_msg_data );
235:
236: WHEN OTHERS THEN
233: p_count => x_msg_count,
234: p_data => x_msg_data );
235:
236: WHEN OTHERS THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238:
239: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
240: fnd_message.set_token( 'ERROR' ,SQLERRM );
241: fnd_msg_pub.add;
240: fnd_message.set_token( 'ERROR' ,SQLERRM );
241: fnd_msg_pub.add;
242:
243: FND_MSG_PUB.Count_And_Get(
244: p_encoded => FND_API.G_FALSE,
245: p_count => x_msg_count,
246: p_data => x_msg_data );
247:
248: END get_party_rec;
453:
454: -- default end date to 31-DEC-4712
455: IF p_relationship_rec.end_date IS NULL
456: OR
457: p_relationship_rec.end_date = FND_API.G_MISS_DATE
458: THEN
459: l_end_date := to_date('12/31/4712','MM/DD/YYYY');
460: ELSE
461: l_end_date := p_relationship_rec.end_date;
845: l_hierarchy_rec.status := NVL(p_relationship_rec.status, 'A');
846: END IF;
847:
848: HZ_HIERARCHY_PUB.create_link(
849: p_init_msg_list => FND_API.G_FALSE,
850: p_hierarchy_node_rec => l_hierarchy_rec,
851: x_return_status => x_return_status,
852: x_msg_count => l_msg_count,
853: x_msg_data => l_msg_data
998:
999: /*
1000: per HLD,mosr record should not be created for copy case, since old osr is still active
1001: hz_orig_system_ref_pvt.create_mosr_for_merge(
1002: FND_API.G_FALSE,
1003: 'HZ_PARTIES',
1004: l_party_rec.party_id,
1005: x_return_status,
1006: l_msg_count,
1005: x_return_status,
1006: l_msg_count,
1007: l_msg_data);
1008:
1009: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1010: RAISE FND_API.G_EXC_ERROR;
1011: END IF;
1012: */
1013: x_party_id := l_party_rec.party_id;
1006: l_msg_count,
1007: l_msg_data);
1008:
1009: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1010: RAISE FND_API.G_EXC_ERROR;
1011: END IF;
1012: */
1013: x_party_id := l_party_rec.party_id;
1014: x_party_number := l_party_rec.party_number;
1047: l_record_locked := 'Y';
1048: END;
1049:
1050: IF l_end_date IS NULL
1051: OR l_end_date = FND_API.G_MISS_DATE
1052: THEN
1053: l_end_date := to_date('31-12-4712', 'DD-MM-YYYY');
1054: ELSIF l_end_date = sysdate THEN
1055: l_end_date := sysdate-1;
1055: l_end_date := sysdate-1;
1056: END IF;
1057:
1058: IF l_status IS NULL
1059: OR l_status = FND_API.G_MISS_CHAR
1060: THEN
1061: l_status := 'A';
1062: END IF;
1063:
1103:
1104:
1105:
1106: PROCEDURE create_relationship (
1107: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1108: p_relationship_rec IN HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE,
1109: p_direction_code IN VARCHAR2,
1110: x_relationship_id OUT NOCOPY NUMBER,
1111: x_party_id OUT NOCOPY NUMBER,
1123: -- Standard start of API savepoint
1124: SAVEPOINT create_relationship;
1125:
1126: -- Initialize message list if p_init_msg_list is set to TRUE.
1127: IF FND_API.to_Boolean(p_init_msg_list) THEN
1128: FND_MSG_PUB.initialize;
1129: END IF;
1130:
1131: -- Initialize API return status to success.
1128: FND_MSG_PUB.initialize;
1129: END IF;
1130:
1131: -- Initialize API return status to success.
1132: x_return_status := FND_API.G_RET_STS_SUCCESS;
1133:
1134: /* SSM SST Integration and Extension
1135: * For non-profile entities, the concept of select/de-select data-sources is obsoleted.
1136:
1162: x_party_id,
1163: x_party_number,
1164: x_return_status);
1165:
1166: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1167: -- Invoke business event system.
1168: HZ_BUSINESS_EVENT_V2PVT.create_relationship_event (
1169: l_rel_rec,
1170: l_created_party );
1171: END IF;
1172:
1173: -- Standard call to get message count and if count is 1, get message info.
1174: FND_MSG_PUB.Count_And_Get(
1175: p_encoded => FND_API.G_FALSE,
1176: p_count => x_msg_count,
1177: p_data => x_msg_data);
1178:
1179: EXCEPTION
1176: p_count => x_msg_count,
1177: p_data => x_msg_data);
1178:
1179: EXCEPTION
1180: WHEN FND_API.G_EXC_ERROR THEN
1181: ROLLBACK TO create_relationship;
1182: x_return_status := FND_API.G_RET_STS_ERROR;
1183: FND_MSG_PUB.Count_And_Get(
1184: p_encoded => FND_API.G_FALSE,
1178:
1179: EXCEPTION
1180: WHEN FND_API.G_EXC_ERROR THEN
1181: ROLLBACK TO create_relationship;
1182: x_return_status := FND_API.G_RET_STS_ERROR;
1183: FND_MSG_PUB.Count_And_Get(
1184: p_encoded => FND_API.G_FALSE,
1185: p_count => x_msg_count,
1186: p_data => x_msg_data);
1180: WHEN FND_API.G_EXC_ERROR THEN
1181: ROLLBACK TO create_relationship;
1182: x_return_status := FND_API.G_RET_STS_ERROR;
1183: FND_MSG_PUB.Count_And_Get(
1184: p_encoded => FND_API.G_FALSE,
1185: p_count => x_msg_count,
1186: p_data => x_msg_data);
1187:
1188:
1185: p_count => x_msg_count,
1186: p_data => x_msg_data);
1187:
1188:
1189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1190: ROLLBACK TO create_relationship;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: FND_MSG_PUB.Count_And_Get(
1193: p_encoded => FND_API.G_FALSE,
1187:
1188:
1189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1190: ROLLBACK TO create_relationship;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: FND_MSG_PUB.Count_And_Get(
1193: p_encoded => FND_API.G_FALSE,
1194: p_count => x_msg_count,
1195: p_data => x_msg_data);
1189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1190: ROLLBACK TO create_relationship;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: FND_MSG_PUB.Count_And_Get(
1193: p_encoded => FND_API.G_FALSE,
1194: p_count => x_msg_count,
1195: p_data => x_msg_data);
1196:
1197: WHEN OTHERS THEN
1195: p_data => x_msg_data);
1196:
1197: WHEN OTHERS THEN
1198: ROLLBACK TO create_relationship;
1199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1200: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1201: fnd_message.set_token('ERROR' ,SQLERRM);
1202: fnd_msg_pub.add;
1203: FND_MSG_PUB.Count_And_Get(
1200: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1201: fnd_message.set_token('ERROR' ,SQLERRM);
1202: fnd_msg_pub.add;
1203: FND_MSG_PUB.Count_And_Get(
1204: p_encoded => FND_API.G_FALSE,
1205: p_count => x_msg_count,
1206: p_data => x_msg_data);
1207:
1208: END create_relationship;
1207:
1208: END create_relationship;
1209:
1210: PROCEDURE get_relationship_rec (
1211: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1212: p_relationship_id IN NUMBER,
1213: p_directional_flag IN VARCHAR2 := 'F',
1214: x_rel_rec OUT NOCOPY HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE,
1215: x_direction_code OUT NOCOPY VARCHAR2,
1224:
1225: BEGIN
1226:
1227: --Initialize message list if p_init_msg_list is set to TRUE.
1228: IF FND_API.to_Boolean(p_init_msg_list) THEN
1229: FND_MSG_PUB.initialize;
1230: END IF;
1231:
1232: --Initialize API return status to success.
1229: FND_MSG_PUB.initialize;
1230: END IF;
1231:
1232: --Initialize API return status to success.
1233: x_return_status := FND_API.G_RET_STS_SUCCESS;
1234:
1235: --Check whether primary key has been passed in.
1236: IF p_relationship_id IS NULL OR
1237: p_relationship_id = FND_API.G_MISS_NUM THEN
1233: x_return_status := FND_API.G_RET_STS_SUCCESS;
1234:
1235: --Check whether primary key has been passed in.
1236: IF p_relationship_id IS NULL OR
1237: p_relationship_id = FND_API.G_MISS_NUM THEN
1238: fnd_message.set_name( 'AR', 'HZ_API_MISSING_COLUMN' );
1239: fnd_message.set_token( 'COLUMN', 'relationship_id' );
1240: fnd_msg_pub.add;
1241: RAISE FND_API.G_EXC_ERROR;
1237: p_relationship_id = FND_API.G_MISS_NUM THEN
1238: fnd_message.set_name( 'AR', 'HZ_API_MISSING_COLUMN' );
1239: fnd_message.set_token( 'COLUMN', 'relationship_id' );
1240: fnd_msg_pub.add;
1241: RAISE FND_API.G_EXC_ERROR;
1242: END IF;
1243:
1244: x_rel_rec.relationship_id := p_relationship_id;
1245: IF p_directional_flag <> 'F'
1328: );
1329:
1330: IF l_party_id IS NOT NULL
1331: AND
1332: l_party_id <> FND_API.G_MISS_NUM
1333: THEN
1334: get_party_rec (
1335: p_party_id => l_party_id,
1336: x_party_rec => x_rel_rec.party_rec,
1338: x_msg_count => x_msg_count,
1339: x_msg_data => x_msg_data
1340: );
1341:
1342: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1339: x_msg_data => x_msg_data
1340: );
1341:
1342: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347: END IF;
1340: );
1341:
1342: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347: END IF;
1348:
1341:
1342: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347: END IF;
1348:
1349: --Standard call to get message count and if count is 1, get message info.
1347: END IF;
1348:
1349: --Standard call to get message count and if count is 1, get message info.
1350: FND_MSG_PUB.Count_And_Get(
1351: p_encoded => FND_API.G_FALSE,
1352: p_count => x_msg_count,
1353: p_data => x_msg_data );
1354:
1355: EXCEPTION
1352: p_count => x_msg_count,
1353: p_data => x_msg_data );
1354:
1355: EXCEPTION
1356: WHEN FND_API.G_EXC_ERROR THEN
1357: x_return_status := FND_API.G_RET_STS_ERROR;
1358:
1359: FND_MSG_PUB.Count_And_Get(
1360: p_encoded => FND_API.G_FALSE,
1353: p_data => x_msg_data );
1354:
1355: EXCEPTION
1356: WHEN FND_API.G_EXC_ERROR THEN
1357: x_return_status := FND_API.G_RET_STS_ERROR;
1358:
1359: FND_MSG_PUB.Count_And_Get(
1360: p_encoded => FND_API.G_FALSE,
1361: p_count => x_msg_count,
1356: WHEN FND_API.G_EXC_ERROR THEN
1357: x_return_status := FND_API.G_RET_STS_ERROR;
1358:
1359: FND_MSG_PUB.Count_And_Get(
1360: p_encoded => FND_API.G_FALSE,
1361: p_count => x_msg_count,
1362: p_data => x_msg_data );
1363:
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1360: p_encoded => FND_API.G_FALSE,
1361: p_count => x_msg_count,
1362: p_data => x_msg_data );
1363:
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366:
1367: FND_MSG_PUB.Count_And_Get(
1368: p_encoded => FND_API.G_FALSE,
1361: p_count => x_msg_count,
1362: p_data => x_msg_data );
1363:
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366:
1367: FND_MSG_PUB.Count_And_Get(
1368: p_encoded => FND_API.G_FALSE,
1369: p_count => x_msg_count,
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366:
1367: FND_MSG_PUB.Count_And_Get(
1368: p_encoded => FND_API.G_FALSE,
1369: p_count => x_msg_count,
1370: p_data => x_msg_data );
1371:
1372: WHEN OTHERS THEN
1369: p_count => x_msg_count,
1370: p_data => x_msg_data );
1371:
1372: WHEN OTHERS THEN
1373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1374:
1375: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
1376: fnd_message.set_token( 'ERROR' ,SQLERRM );
1377: fnd_msg_pub.add;
1376: fnd_message.set_token( 'ERROR' ,SQLERRM );
1377: fnd_msg_pub.add;
1378:
1379: FND_MSG_PUB.Count_And_Get(
1380: p_encoded => FND_API.G_FALSE,
1381: p_count => x_msg_count,
1382: p_data => x_msg_data );
1383:
1384:
1444: p_org_contact_rec.party_rel_rec.party_rec.party_id := x_party_id;
1445: p_org_contact_rec.party_rel_rec.party_rec.party_number := x_party_number;
1446: p_org_contact_rec.party_rel_rec.relationship_id := x_party_rel_id;
1447:
1448: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1449: RAISE FND_API.G_EXC_ERROR;
1450: END IF;
1451:
1452: -- call table-handler.
1445: p_org_contact_rec.party_rel_rec.party_rec.party_number := x_party_number;
1446: p_org_contact_rec.party_rel_rec.relationship_id := x_party_rel_id;
1447:
1448: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1449: RAISE FND_API.G_EXC_ERROR;
1450: END IF;
1451:
1452: -- call table-handler.
1453: HZ_ORG_CONTACTS_PKG.Insert_Row (
1497: );
1498: /*
1499: per HLD,mosr record should not be created for copy case, since old osr is still active
1500: hz_orig_system_ref_pvt.create_mosr_for_merge(
1501: FND_API.G_FALSE,
1502: 'HZ_ORG_CONTACTS',
1503: p_org_contact_rec.org_contact_id,
1504: x_return_status,
1505: l_msg_count,
1504: x_return_status,
1505: l_msg_count,
1506: l_msg_data);
1507:
1508: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1509: RAISE FND_API.G_EXC_ERROR;
1510: END IF;
1511: */
1512: x_org_contact_id := p_org_contact_rec.org_contact_id;
1505: l_msg_count,
1506: l_msg_data);
1507:
1508: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1509: RAISE FND_API.G_EXC_ERROR;
1510: END IF;
1511: */
1512: x_org_contact_id := p_org_contact_rec.org_contact_id;
1513: END do_create_org_contact;
1512: x_org_contact_id := p_org_contact_rec.org_contact_id;
1513: END do_create_org_contact;
1514:
1515: PROCEDURE create_org_contact (
1516: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1517: p_org_contact_rec IN HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE,
1518: p_direction_code IN VARCHAR2,
1519: x_org_contact_id OUT NOCOPY NUMBER,
1520: x_party_rel_id OUT NOCOPY NUMBER,
1534: -- standard start of API savepoint
1535: SAVEPOINT create_org_contact;
1536:
1537: -- initialize API return status to success.
1538: x_return_status := FND_API.G_RET_STS_SUCCESS;
1539:
1540: -- call to business logic.
1541: do_create_org_contact(
1542: l_org_contact_rec,
1547: x_party_id,
1548: x_party_number
1549: );
1550:
1551: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1552: -- Invoke business event system.
1553: HZ_BUSINESS_EVENT_V2PVT.create_org_contact_event (
1554: l_org_contact_rec );
1555: END IF;
1558: HZ_DQM_SYNC.sync_contact(l_org_contact_rec.org_contact_id, 'C');
1559:
1560: -- standard call to get message count and if count is 1, get message info.
1561: FND_MSG_PUB.Count_And_Get(
1562: p_encoded => FND_API.G_FALSE,
1563: p_count => x_msg_count,
1564: p_data => x_msg_data);
1565:
1566:
1564: p_data => x_msg_data);
1565:
1566:
1567: EXCEPTION
1568: WHEN FND_API.G_EXC_ERROR THEN
1569: ROLLBACK TO create_org_contact;
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: FND_MSG_PUB.Count_And_Get(
1572: p_encoded => FND_API.G_FALSE,
1566:
1567: EXCEPTION
1568: WHEN FND_API.G_EXC_ERROR THEN
1569: ROLLBACK TO create_org_contact;
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: FND_MSG_PUB.Count_And_Get(
1572: p_encoded => FND_API.G_FALSE,
1573: p_count => x_msg_count,
1574: p_data => x_msg_data);
1568: WHEN FND_API.G_EXC_ERROR THEN
1569: ROLLBACK TO create_org_contact;
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: FND_MSG_PUB.Count_And_Get(
1572: p_encoded => FND_API.G_FALSE,
1573: p_count => x_msg_count,
1574: p_data => x_msg_data);
1575:
1576:
1573: p_count => x_msg_count,
1574: p_data => x_msg_data);
1575:
1576:
1577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1578: ROLLBACK TO create_org_contact;
1579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1580: FND_MSG_PUB.Count_And_Get(
1581: p_encoded => FND_API.G_FALSE,
1575:
1576:
1577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1578: ROLLBACK TO create_org_contact;
1579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1580: FND_MSG_PUB.Count_And_Get(
1581: p_encoded => FND_API.G_FALSE,
1582: p_count => x_msg_count,
1583: p_data => x_msg_data);
1577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1578: ROLLBACK TO create_org_contact;
1579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1580: FND_MSG_PUB.Count_And_Get(
1581: p_encoded => FND_API.G_FALSE,
1582: p_count => x_msg_count,
1583: p_data => x_msg_data);
1584:
1585:
1584:
1585:
1586: WHEN OTHERS THEN
1587: ROLLBACK TO create_org_contact;
1588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1589: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1590: fnd_message.set_token('ERROR' ,SQLERRM);
1591: fnd_msg_pub.add;
1592: FND_MSG_PUB.Count_And_Get(
1589: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1590: fnd_message.set_token('ERROR' ,SQLERRM);
1591: fnd_msg_pub.add;
1592: FND_MSG_PUB.Count_And_Get(
1593: p_encoded => FND_API.G_FALSE,
1594: p_count => x_msg_count,
1595: p_data => x_msg_data);
1596:
1597: END create_org_contact;
1597: END create_org_contact;
1598:
1599:
1600: PROCEDURE get_org_contact_rec (
1601: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1602: p_org_contact_id IN NUMBER,
1603: x_org_contact_rec OUT NOCOPY HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE,
1604: x_direction_code OUT NOCOPY VARCHAR2,
1605: x_return_status OUT NOCOPY VARCHAR2,
1613:
1614: BEGIN
1615:
1616: --Initialize message list if p_init_msg_list is set to TRUE.
1617: IF FND_API.to_Boolean(p_init_msg_list) THEN
1618: FND_MSG_PUB.initialize;
1619: END IF;
1620:
1621: --Initialize API return status to success.
1618: FND_MSG_PUB.initialize;
1619: END IF;
1620:
1621: --Initialize API return status to success.
1622: x_return_status := FND_API.G_RET_STS_SUCCESS;
1623: --Check whether primary key has been passed in.
1624: IF p_org_contact_id IS NULL OR
1625: p_org_contact_id = FND_API.G_MISS_NUM THEN
1626: fnd_message.set_name( 'AR', 'HZ_API_MISSING_COLUMN' );
1621: --Initialize API return status to success.
1622: x_return_status := FND_API.G_RET_STS_SUCCESS;
1623: --Check whether primary key has been passed in.
1624: IF p_org_contact_id IS NULL OR
1625: p_org_contact_id = FND_API.G_MISS_NUM THEN
1626: fnd_message.set_name( 'AR', 'HZ_API_MISSING_COLUMN' );
1627: fnd_message.set_token( 'COLUMN', 'org_contact_id' );
1628: fnd_msg_pub.add;
1629: RAISE FND_API.G_EXC_ERROR;
1625: p_org_contact_id = FND_API.G_MISS_NUM THEN
1626: fnd_message.set_name( 'AR', 'HZ_API_MISSING_COLUMN' );
1627: fnd_message.set_token( 'COLUMN', 'org_contact_id' );
1628: fnd_msg_pub.add;
1629: RAISE FND_API.G_EXC_ERROR;
1630: END IF;
1631:
1632: x_org_contact_rec.org_contact_id := p_org_contact_id;
1633:
1677:
1678:
1679: IF l_party_relationship_id IS NOT NULL
1680: AND
1681: l_party_relationship_id <> FND_API.G_MISS_NUM
1682: THEN
1683: get_relationship_rec (
1684: p_relationship_id => l_party_relationship_id,
1685: p_directional_flag => 'F',
1689: x_msg_count => x_msg_count,
1690: x_msg_data => x_msg_data
1691: );
1692:
1693: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1694: RAISE FND_API.G_EXC_ERROR;
1695: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1697: END IF;
1690: x_msg_data => x_msg_data
1691: );
1692:
1693: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1694: RAISE FND_API.G_EXC_ERROR;
1695: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1697: END IF;
1698: END IF;
1691: );
1692:
1693: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1694: RAISE FND_API.G_EXC_ERROR;
1695: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1697: END IF;
1698: END IF;
1699:
1692:
1693: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1694: RAISE FND_API.G_EXC_ERROR;
1695: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1697: END IF;
1698: END IF;
1699:
1700: --Standard call to get message count and if count is 1, get message info.
1698: END IF;
1699:
1700: --Standard call to get message count and if count is 1, get message info.
1701: FND_MSG_PUB.Count_And_Get(
1702: p_encoded => FND_API.G_FALSE,
1703: p_count => x_msg_count,
1704: p_data => x_msg_data );
1705:
1706: EXCEPTION
1703: p_count => x_msg_count,
1704: p_data => x_msg_data );
1705:
1706: EXCEPTION
1707: WHEN FND_API.G_EXC_ERROR THEN
1708: x_return_status := FND_API.G_RET_STS_ERROR;
1709:
1710: FND_MSG_PUB.Count_And_Get(
1711: p_encoded => FND_API.G_FALSE,
1704: p_data => x_msg_data );
1705:
1706: EXCEPTION
1707: WHEN FND_API.G_EXC_ERROR THEN
1708: x_return_status := FND_API.G_RET_STS_ERROR;
1709:
1710: FND_MSG_PUB.Count_And_Get(
1711: p_encoded => FND_API.G_FALSE,
1712: p_count => x_msg_count,
1707: WHEN FND_API.G_EXC_ERROR THEN
1708: x_return_status := FND_API.G_RET_STS_ERROR;
1709:
1710: FND_MSG_PUB.Count_And_Get(
1711: p_encoded => FND_API.G_FALSE,
1712: p_count => x_msg_count,
1713: p_data => x_msg_data );
1714:
1715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1711: p_encoded => FND_API.G_FALSE,
1712: p_count => x_msg_count,
1713: p_data => x_msg_data );
1714:
1715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1717:
1718: FND_MSG_PUB.Count_And_Get(
1719: p_encoded => FND_API.G_FALSE,
1712: p_count => x_msg_count,
1713: p_data => x_msg_data );
1714:
1715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1717:
1718: FND_MSG_PUB.Count_And_Get(
1719: p_encoded => FND_API.G_FALSE,
1720: p_count => x_msg_count,
1715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1717:
1718: FND_MSG_PUB.Count_And_Get(
1719: p_encoded => FND_API.G_FALSE,
1720: p_count => x_msg_count,
1721: p_data => x_msg_data );
1722:
1723: WHEN OTHERS THEN
1720: p_count => x_msg_count,
1721: p_data => x_msg_data );
1722:
1723: WHEN OTHERS THEN
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
1726: fnd_message.set_token( 'ERROR' ,SQLERRM );
1727: fnd_msg_pub.add;
1728: FND_MSG_PUB.Count_And_Get(
1725: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
1726: fnd_message.set_token( 'ERROR' ,SQLERRM );
1727: fnd_msg_pub.add;
1728: FND_MSG_PUB.Count_And_Get(
1729: p_encoded => FND_API.G_FALSE,
1730: p_count => x_msg_count,
1731: p_data => x_msg_data );
1732:
1733: END get_org_contact_rec;
1861: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
1862: -- There is no need to check if the data-source is selected.
1863:
1864: IF (NVL(p_party_site_rec.status, 'A') = 'A' OR
1865: p_party_site_rec.status = FND_API.G_MISS_CHAR)/* AND
1866: g_pst_is_datasource_selected = 'Y'*/
1867: THEN
1868: p_party_site_rec.identifying_address_flag := 'Y';
1869: ELSE
1885: p_party_site_rec.party_site_id := l_party_site_id;
1886: p_party_site_rec.party_site_number := l_party_site_number;
1887:
1888: -- this is for orig_system_defaulting
1889: IF p_party_site_rec.party_site_id = FND_API.G_MISS_NUM THEN
1890: p_party_site_rec.party_site_id := NULL;
1891: END IF;
1892:
1893:
1934: );
1935: /*
1936: per HLD,mosr record should not be created for copy case, since old osr is still active
1937: hz_orig_system_ref_pvt.create_mosr_for_merge(
1938: FND_API.G_FALSE,
1939: 'HZ_PARTY_SITES',
1940: p_party_site_rec.party_site_id,
1941: x_return_status,
1942: l_msg_count,
1941: x_return_status,
1942: l_msg_count,
1943: l_msg_data);
1944:
1945: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1946: RAISE FND_API.G_EXC_ERROR;
1947: END IF;
1948: */
1949: x_party_site_id := p_party_site_rec.party_site_id;
1942: l_msg_count,
1943: l_msg_data);
1944:
1945: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1946: RAISE FND_API.G_EXC_ERROR;
1947: END IF;
1948: */
1949: x_party_site_id := p_party_site_rec.party_site_id;
1950: x_party_site_number := p_party_site_rec.party_site_number;
2070: -- body of public procedures
2071: ----------------------------
2072:
2073: PROCEDURE create_party_site (
2074: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2075: p_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
2076: p_actual_cont_source IN VARCHAR2,
2077: x_party_site_id OUT NOCOPY NUMBER,
2078: x_party_site_number OUT NOCOPY VARCHAR2,
2089: -- standard start of API savepoint
2090: SAVEPOINT create_party_site;
2091:
2092: -- initialize message list if p_init_msg_list is set to TRUE.
2093: IF FND_API.to_Boolean(p_init_msg_list) THEN
2094: FND_MSG_PUB.initialize;
2095: END IF;
2096:
2097: -- initialize API return status to success.
2094: FND_MSG_PUB.initialize;
2095: END IF;
2096:
2097: -- initialize API return status to success.
2098: x_return_status := FND_API.G_RET_STS_SUCCESS;
2099:
2100: -- Bug 2197181: added for mix-n-match project. first load data
2101: -- sources for this entity.
2102: /*
2116: x_party_site_number,
2117: x_return_status
2118: );
2119:
2120: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2121: -- Invoke business event system.
2122: HZ_BUSINESS_EVENT_V2PVT.create_party_site_event (
2123: l_party_site_rec );
2124: END IF;
2127: HZ_DQM_SYNC.sync_party_site(l_party_site_rec.party_site_id,'C');
2128:
2129: -- standard call to get message count and if count is 1, get message info.
2130: FND_MSG_PUB.Count_And_Get(
2131: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data);
2134:
2135: EXCEPTION
2132: p_count => x_msg_count,
2133: p_data => x_msg_data);
2134:
2135: EXCEPTION
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: ROLLBACK TO create_party_site;
2138: x_return_status := FND_API.G_RET_STS_ERROR;
2139: FND_MSG_PUB.Count_And_Get(
2140: p_encoded => FND_API.G_FALSE,
2134:
2135: EXCEPTION
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: ROLLBACK TO create_party_site;
2138: x_return_status := FND_API.G_RET_STS_ERROR;
2139: FND_MSG_PUB.Count_And_Get(
2140: p_encoded => FND_API.G_FALSE,
2141: p_count => x_msg_count,
2142: p_data => x_msg_data);
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: ROLLBACK TO create_party_site;
2138: x_return_status := FND_API.G_RET_STS_ERROR;
2139: FND_MSG_PUB.Count_And_Get(
2140: p_encoded => FND_API.G_FALSE,
2141: p_count => x_msg_count,
2142: p_data => x_msg_data);
2143:
2144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2140: p_encoded => FND_API.G_FALSE,
2141: p_count => x_msg_count,
2142: p_data => x_msg_data);
2143:
2144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2145: ROLLBACK TO create_party_site;
2146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2147: FND_MSG_PUB.Count_And_Get(
2148: p_encoded => FND_API.G_FALSE,
2142: p_data => x_msg_data);
2143:
2144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2145: ROLLBACK TO create_party_site;
2146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2147: FND_MSG_PUB.Count_And_Get(
2148: p_encoded => FND_API.G_FALSE,
2149: p_count => x_msg_count,
2150: p_data => x_msg_data);
2144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2145: ROLLBACK TO create_party_site;
2146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2147: FND_MSG_PUB.Count_And_Get(
2148: p_encoded => FND_API.G_FALSE,
2149: p_count => x_msg_count,
2150: p_data => x_msg_data);
2151: WHEN OTHERS THEN
2152: ROLLBACK TO create_party_site;
2149: p_count => x_msg_count,
2150: p_data => x_msg_data);
2151: WHEN OTHERS THEN
2152: ROLLBACK TO create_party_site;
2153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2154: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2155: fnd_message.set_token('ERROR' ,SQLERRM);
2156: fnd_msg_pub.add;
2157: FND_MSG_PUB.Count_And_Get(
2154: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2155: fnd_message.set_token('ERROR' ,SQLERRM);
2156: fnd_msg_pub.add;
2157: FND_MSG_PUB.Count_And_Get(
2158: p_encoded => FND_API.G_FALSE,
2159: p_count => x_msg_count,
2160: p_data => x_msg_data);
2161:
2162: END create_party_site;
2162: END create_party_site;
2163:
2164:
2165: PROCEDURE get_party_site_rec (
2166: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2167: p_party_site_id IN NUMBER,
2168: x_party_site_rec OUT NOCOPY HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
2169: x_actual_cont_source OUT NOCOPY VARCHAR2,
2170: x_return_status OUT NOCOPY VARCHAR2,
2178:
2179: BEGIN
2180:
2181: --Initialize message list if p_init_msg_list is set to TRUE.
2182: IF FND_API.to_Boolean(p_init_msg_list) THEN
2183: FND_MSG_PUB.initialize;
2184: END IF;
2185:
2186: --Initialize API return status to success.
2183: FND_MSG_PUB.initialize;
2184: END IF;
2185:
2186: --Initialize API return status to success.
2187: x_return_status := FND_API.G_RET_STS_SUCCESS;
2188:
2189: --Check whether primary key has been passed in.
2190: IF p_party_site_id IS NULL OR
2191: p_party_site_id = FND_API.G_MISS_NUM THEN
2187: x_return_status := FND_API.G_RET_STS_SUCCESS;
2188:
2189: --Check whether primary key has been passed in.
2190: IF p_party_site_id IS NULL OR
2191: p_party_site_id = FND_API.G_MISS_NUM THEN
2192: fnd_message.set_name( 'AR', 'HZ_API_MISSING_COLUMN' );
2193: fnd_message.set_token( 'COLUMN', 'party_site_id' );
2194: fnd_msg_pub.add;
2195: RAISE FND_API.G_EXC_ERROR;
2191: p_party_site_id = FND_API.G_MISS_NUM THEN
2192: fnd_message.set_name( 'AR', 'HZ_API_MISSING_COLUMN' );
2193: fnd_message.set_token( 'COLUMN', 'party_site_id' );
2194: fnd_msg_pub.add;
2195: RAISE FND_API.G_EXC_ERROR;
2196: END IF;
2197:
2198: x_party_site_rec.party_site_id := p_party_site_id;
2199:
2238: );
2239:
2240: --Standard call to get message count and if count is 1, get message info.
2241: FND_MSG_PUB.Count_And_Get(
2242: p_encoded => FND_API.G_FALSE,
2243: p_count => x_msg_count,
2244: p_data => x_msg_data );
2245:
2246: EXCEPTION
2243: p_count => x_msg_count,
2244: p_data => x_msg_data );
2245:
2246: EXCEPTION
2247: WHEN FND_API.G_EXC_ERROR THEN
2248: x_return_status := FND_API.G_RET_STS_ERROR;
2249:
2250: FND_MSG_PUB.Count_And_Get(
2251: p_encoded => FND_API.G_FALSE,
2244: p_data => x_msg_data );
2245:
2246: EXCEPTION
2247: WHEN FND_API.G_EXC_ERROR THEN
2248: x_return_status := FND_API.G_RET_STS_ERROR;
2249:
2250: FND_MSG_PUB.Count_And_Get(
2251: p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count,
2247: WHEN FND_API.G_EXC_ERROR THEN
2248: x_return_status := FND_API.G_RET_STS_ERROR;
2249:
2250: FND_MSG_PUB.Count_And_Get(
2251: p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count,
2253: p_data => x_msg_data );
2254:
2255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2251: p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count,
2253: p_data => x_msg_data );
2254:
2255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2257:
2258: FND_MSG_PUB.Count_And_Get(
2259: p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count,
2253: p_data => x_msg_data );
2254:
2255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2257:
2258: FND_MSG_PUB.Count_And_Get(
2259: p_encoded => FND_API.G_FALSE,
2260: p_count => x_msg_count,
2255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2257:
2258: FND_MSG_PUB.Count_And_Get(
2259: p_encoded => FND_API.G_FALSE,
2260: p_count => x_msg_count,
2261: p_data => x_msg_data );
2262:
2263: WHEN OTHERS THEN
2260: p_count => x_msg_count,
2261: p_data => x_msg_data );
2262:
2263: WHEN OTHERS THEN
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
2266: fnd_message.set_token( 'ERROR' ,SQLERRM );
2267: fnd_msg_pub.add;
2268: FND_MSG_PUB.Count_And_Get(
2265: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
2266: fnd_message.set_token( 'ERROR' ,SQLERRM );
2267: fnd_msg_pub.add;
2268: FND_MSG_PUB.Count_And_Get(
2269: p_encoded => FND_API.G_FALSE,
2270: p_count => x_msg_count,
2271: p_data => x_msg_data );
2272:
2273: END get_party_site_rec;
2284:
2285: PROCEDURE do_create_cust_site_use (
2286: p_cust_site_use_rec IN OUT NOCOPY HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE,
2287: p_customer_profile_rec IN OUT NOCOPY HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
2288: p_create_profile IN VARCHAR2 := FND_API.G_TRUE,
2289: p_create_profile_amt IN VARCHAR2 := FND_API.G_TRUE,
2290: p_org_id IN NUMBER DEFAULT null,
2291: x_site_use_id OUT NOCOPY NUMBER,
2292: x_return_status IN OUT NOCOPY VARCHAR2
2285: PROCEDURE do_create_cust_site_use (
2286: p_cust_site_use_rec IN OUT NOCOPY HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE,
2287: p_customer_profile_rec IN OUT NOCOPY HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
2288: p_create_profile IN VARCHAR2 := FND_API.G_TRUE,
2289: p_create_profile_amt IN VARCHAR2 := FND_API.G_TRUE,
2290: p_org_id IN NUMBER DEFAULT null,
2291: x_site_use_id OUT NOCOPY NUMBER,
2292: x_return_status IN OUT NOCOPY VARCHAR2
2293: );
2393: );
2394: /*
2395: per HLD,mosr record should not be created for copy case, since old osr is still active
2396: hz_orig_system_ref_pvt.create_mosr_for_merge(
2397: FND_API.G_FALSE,
2398: 'HZ_CUST_ACCT_SITES_ALL',
2399: p_cust_acct_site_rec.cust_acct_site_id,
2400: x_return_status,
2401: l_msg_count,
2399: p_cust_acct_site_rec.cust_acct_site_id,
2400: x_return_status,
2401: l_msg_count,
2402: l_msg_data);
2403: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2404: RAISE FND_API.G_EXC_ERROR;
2405: END IF;
2406: */
2407: x_cust_acct_site_id := p_cust_acct_site_rec.cust_acct_site_id;
2400: x_return_status,
2401: l_msg_count,
2402: l_msg_data);
2403: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2404: RAISE FND_API.G_EXC_ERROR;
2405: END IF;
2406: */
2407: x_cust_acct_site_id := p_cust_acct_site_rec.cust_acct_site_id;
2408:
2411:
2412: PROCEDURE do_create_cust_site_use (
2413: p_cust_site_use_rec IN OUT NOCOPY HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE,
2414: p_customer_profile_rec IN OUT NOCOPY HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
2415: p_create_profile IN VARCHAR2 := FND_API.G_TRUE,
2416: p_create_profile_amt IN VARCHAR2 := FND_API.G_TRUE,
2417: p_org_id IN NUMBER DEFAULT null,
2418: x_site_use_id OUT NOCOPY NUMBER,
2419: x_return_status IN OUT NOCOPY VARCHAR2
2412: PROCEDURE do_create_cust_site_use (
2413: p_cust_site_use_rec IN OUT NOCOPY HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE,
2414: p_customer_profile_rec IN OUT NOCOPY HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
2415: p_create_profile IN VARCHAR2 := FND_API.G_TRUE,
2416: p_create_profile_amt IN VARCHAR2 := FND_API.G_TRUE,
2417: p_org_id IN NUMBER DEFAULT null,
2418: x_site_use_id OUT NOCOPY NUMBER,
2419: x_return_status IN OUT NOCOPY VARCHAR2
2420: ) IS
2559: ----Bug No. 5211233
2560:
2561: ELSIF p_cust_site_use_rec.status = 'A' OR
2562: p_cust_site_use_rec.status IS NULL OR
2563: p_cust_site_use_rec.status = FND_API.G_MISS_CHAR
2564: THEN
2565: l_flag := 'Y';
2566: ELSE
2567: l_flag := NULL;
2573: l_flag );
2574:
2575: END IF;
2576:
2577: IF p_create_profile = FND_API.G_TRUE THEN
2578:
2579: -- Create the profile for the site use
2580:
2581: p_customer_profile_rec.site_use_id := p_cust_site_use_rec.site_use_id;
2593: x_msg_count => l_msg_count,
2594: x_msg_data => l_msg_data,
2595: x_cust_account_profile_id => l_cust_account_profile_id );
2596:
2597: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2598: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2599: RAISE FND_API.G_EXC_ERROR;
2600: ELSE
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2594: x_msg_data => l_msg_data,
2595: x_cust_account_profile_id => l_cust_account_profile_id );
2596:
2597: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2598: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2599: RAISE FND_API.G_EXC_ERROR;
2600: ELSE
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2595: x_cust_account_profile_id => l_cust_account_profile_id );
2596:
2597: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2598: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2599: RAISE FND_API.G_EXC_ERROR;
2600: ELSE
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2603: END IF;
2597: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2598: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2599: RAISE FND_API.G_EXC_ERROR;
2600: ELSE
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2603: END IF;
2604:
2605: END IF;
2605: END IF;
2606: /*
2607: per HLD,mosr record should not be created for copy case, since old osr is still active
2608: hz_orig_system_ref_pvt.create_mosr_for_merge(
2609: FND_API.G_FALSE,
2610: 'HZ_CUST_SITE_USES_ALL',
2611: p_cust_site_use_rec.site_use_id,
2612: x_return_status,
2613: l_msg_count,
2611: p_cust_site_use_rec.site_use_id,
2612: x_return_status,
2613: l_msg_count,
2614: l_msg_data);
2615: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2616: RAISE FND_API.G_EXC_ERROR;
2617: END IF;
2618: */
2619: x_site_use_id := p_cust_site_use_rec.site_use_id;
2612: x_return_status,
2613: l_msg_count,
2614: l_msg_data);
2615: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2616: RAISE FND_API.G_EXC_ERROR;
2617: END IF;
2618: */
2619: x_site_use_id := p_cust_site_use_rec.site_use_id;
2620:
2653: -- public procedures and functions
2654: --------------------------------------
2655:
2656: PROCEDURE create_cust_acct_site (
2657: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2658: p_cust_acct_site_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_ACCT_SITE_REC_TYPE,
2659: p_org_id IN NUMBER ,
2660: x_cust_acct_site_id OUT NOCOPY NUMBER,
2661: x_return_status OUT NOCOPY VARCHAR2,
2672: SAVEPOINT create_cust_acct_site;
2673:
2674:
2675: -- Initialize message list if p_init_msg_list is set to TRUE.
2676: IF FND_API.to_Boolean(p_init_msg_list) THEN
2677: FND_MSG_PUB.initialize;
2678: END IF;
2679:
2680: -- Initialize API return status to success.
2677: FND_MSG_PUB.initialize;
2678: END IF;
2679:
2680: -- Initialize API return status to success.
2681: x_return_status := FND_API.G_RET_STS_SUCCESS;
2682:
2683: -- Call to business logic.
2684: do_create_cust_acct_site (
2685: l_cust_acct_site_rec,
2686: p_org_id,
2687: x_cust_acct_site_id,
2688: x_return_status );
2689:
2690: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2691: -- Invoke business event system.
2692: HZ_BUSINESS_EVENT_V2PVT.create_cust_acct_site_event (
2693: l_cust_acct_site_rec );
2694: END IF;
2694: END IF;
2695:
2696: -- Standard call to get message count and if count is 1, get message info.
2697: FND_MSG_PUB.Count_And_Get(
2698: p_encoded => FND_API.G_FALSE,
2699: p_count => x_msg_count,
2700: p_data => x_msg_data );
2701:
2702:
2700: p_data => x_msg_data );
2701:
2702:
2703: EXCEPTION
2704: WHEN FND_API.G_EXC_ERROR THEN
2705: ROLLBACK TO create_cust_acct_site;
2706: x_return_status := FND_API.G_RET_STS_ERROR;
2707:
2708: FND_MSG_PUB.Count_And_Get(
2702:
2703: EXCEPTION
2704: WHEN FND_API.G_EXC_ERROR THEN
2705: ROLLBACK TO create_cust_acct_site;
2706: x_return_status := FND_API.G_RET_STS_ERROR;
2707:
2708: FND_MSG_PUB.Count_And_Get(
2709: p_encoded => FND_API.G_FALSE,
2710: p_count => x_msg_count,
2705: ROLLBACK TO create_cust_acct_site;
2706: x_return_status := FND_API.G_RET_STS_ERROR;
2707:
2708: FND_MSG_PUB.Count_And_Get(
2709: p_encoded => FND_API.G_FALSE,
2710: p_count => x_msg_count,
2711: p_data => x_msg_data );
2712:
2713:
2710: p_count => x_msg_count,
2711: p_data => x_msg_data );
2712:
2713:
2714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2715: ROLLBACK TO create_cust_acct_site;
2716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2717:
2718: FND_MSG_PUB.Count_And_Get(
2712:
2713:
2714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2715: ROLLBACK TO create_cust_acct_site;
2716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2717:
2718: FND_MSG_PUB.Count_And_Get(
2719: p_encoded => FND_API.G_FALSE,
2720: p_count => x_msg_count,
2715: ROLLBACK TO create_cust_acct_site;
2716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2717:
2718: FND_MSG_PUB.Count_And_Get(
2719: p_encoded => FND_API.G_FALSE,
2720: p_count => x_msg_count,
2721: p_data => x_msg_data );
2722:
2723: WHEN OTHERS THEN
2721: p_data => x_msg_data );
2722:
2723: WHEN OTHERS THEN
2724: ROLLBACK TO create_cust_acct_site;
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2726:
2727: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
2728: fnd_message.set_token( 'ERROR' ,SQLERRM );
2729: fnd_msg_pub.add;
2728: fnd_message.set_token( 'ERROR' ,SQLERRM );
2729: fnd_msg_pub.add;
2730:
2731: FND_MSG_PUB.Count_And_Get(
2732: p_encoded => FND_API.G_FALSE,
2733: p_count => x_msg_count,
2734: p_data => x_msg_data );
2735:
2736:
2736:
2737: END create_cust_acct_site;
2738:
2739: PROCEDURE create_cust_site_use (
2740: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2741: p_cust_site_use_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE,
2742: p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
2743: p_create_profile IN VARCHAR2 := FND_API.G_TRUE,
2744: p_create_profile_amt IN VARCHAR2 := FND_API.G_TRUE,
2739: PROCEDURE create_cust_site_use (
2740: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2741: p_cust_site_use_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE,
2742: p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
2743: p_create_profile IN VARCHAR2 := FND_API.G_TRUE,
2744: p_create_profile_amt IN VARCHAR2 := FND_API.G_TRUE,
2745: p_org_id IN NUMBER ,
2746: x_site_use_id OUT NOCOPY NUMBER,
2747: x_return_status OUT NOCOPY VARCHAR2,
2740: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2741: p_cust_site_use_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE,
2742: p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
2743: p_create_profile IN VARCHAR2 := FND_API.G_TRUE,
2744: p_create_profile_amt IN VARCHAR2 := FND_API.G_TRUE,
2745: p_org_id IN NUMBER ,
2746: x_site_use_id OUT NOCOPY NUMBER,
2747: x_return_status OUT NOCOPY VARCHAR2,
2748: x_msg_count OUT NOCOPY NUMBER,
2759: -- Standard start of API savepoint
2760: SAVEPOINT create_cust_site_use;
2761:
2762: -- Initialize message list if p_init_msg_list is set to TRUE.
2763: IF FND_API.to_Boolean(p_init_msg_list) THEN
2764: FND_MSG_PUB.initialize;
2765: END IF;
2766:
2767: -- Initialize API return status to success.
2764: FND_MSG_PUB.initialize;
2765: END IF;
2766:
2767: -- Initialize API return status to success.
2768: x_return_status := FND_API.G_RET_STS_SUCCESS;
2769:
2770: -- Call to business logic.
2771: do_create_cust_site_use (
2772: l_cust_site_use_rec,
2776: p_org_id,
2777: x_site_use_id,
2778: x_return_status );
2779:
2780: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2781: -- Invoke business event system.
2782: HZ_BUSINESS_EVENT_V2PVT.create_cust_site_use_event (
2783: l_cust_site_use_rec,
2784: l_customer_profile_rec,
2787: END IF;
2788:
2789: -- Standard call to get message count and if count is 1, get message info.
2790: FND_MSG_PUB.Count_And_Get(
2791: p_encoded => FND_API.G_FALSE,
2792: p_count => x_msg_count,
2793: p_data => x_msg_data );
2794:
2795: EXCEPTION
2792: p_count => x_msg_count,
2793: p_data => x_msg_data );
2794:
2795: EXCEPTION
2796: WHEN FND_API.G_EXC_ERROR THEN
2797: ROLLBACK TO create_cust_site_use;
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799:
2800: FND_MSG_PUB.Count_And_Get(
2794:
2795: EXCEPTION
2796: WHEN FND_API.G_EXC_ERROR THEN
2797: ROLLBACK TO create_cust_site_use;
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799:
2800: FND_MSG_PUB.Count_And_Get(
2801: p_encoded => FND_API.G_FALSE,
2802: p_count => x_msg_count,
2797: ROLLBACK TO create_cust_site_use;
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799:
2800: FND_MSG_PUB.Count_And_Get(
2801: p_encoded => FND_API.G_FALSE,
2802: p_count => x_msg_count,
2803: p_data => x_msg_data );
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2801: p_encoded => FND_API.G_FALSE,
2802: p_count => x_msg_count,
2803: p_data => x_msg_data );
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2806: ROLLBACK TO create_cust_site_use;
2807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2808:
2809: FND_MSG_PUB.Count_And_Get(
2803: p_data => x_msg_data );
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2806: ROLLBACK TO create_cust_site_use;
2807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2808:
2809: FND_MSG_PUB.Count_And_Get(
2810: p_encoded => FND_API.G_FALSE,
2811: p_count => x_msg_count,
2806: ROLLBACK TO create_cust_site_use;
2807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2808:
2809: FND_MSG_PUB.Count_And_Get(
2810: p_encoded => FND_API.G_FALSE,
2811: p_count => x_msg_count,
2812: p_data => x_msg_data );
2813:
2814:
2813:
2814:
2815: WHEN OTHERS THEN
2816: ROLLBACK TO create_cust_site_use;
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2818:
2819: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
2820: fnd_message.set_token( 'ERROR' ,SQLERRM );
2821: fnd_msg_pub.add;
2820: fnd_message.set_token( 'ERROR' ,SQLERRM );
2821: fnd_msg_pub.add;
2822:
2823: FND_MSG_PUB.Count_And_Get(
2824: p_encoded => FND_API.G_FALSE,
2825: p_count => x_msg_count,
2826: p_data => x_msg_data );
2827:
2828: END create_cust_site_use;
3104: --------------------------------------
3105: -- public procedures and functions
3106: --------------------------------------
3107: PROCEDURE create_customer_profile (
3108: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3109: p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
3110: p_create_profile_amt IN VARCHAR2 := FND_API.G_TRUE,
3111: x_cust_account_profile_id OUT NOCOPY NUMBER,
3112: x_return_status OUT NOCOPY VARCHAR2,
3106: --------------------------------------
3107: PROCEDURE create_customer_profile (
3108: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3109: p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
3110: p_create_profile_amt IN VARCHAR2 := FND_API.G_TRUE,
3111: x_cust_account_profile_id OUT NOCOPY NUMBER,
3112: x_return_status OUT NOCOPY VARCHAR2,
3113: x_msg_count OUT NOCOPY NUMBER,
3114: x_msg_data OUT NOCOPY VARCHAR2
3123: SAVEPOINT create_customer_profile;
3124:
3125:
3126: -- Initialize message list if p_init_msg_list is set to TRUE.
3127: IF FND_API.to_Boolean(p_init_msg_list) THEN
3128: FND_MSG_PUB.initialize;
3129: END IF;
3130:
3131: -- Initialize API return status to success.
3128: FND_MSG_PUB.initialize;
3129: END IF;
3130:
3131: -- Initialize API return status to success.
3132: x_return_status := FND_API.G_RET_STS_SUCCESS;
3133:
3134: -- Call to business logic.
3135: do_create_customer_profile (
3136: l_customer_profile_rec,
3137: p_create_profile_amt,
3138: x_cust_account_profile_id,
3139: x_return_status );
3140:
3141: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3142: -- Invoke business event system.
3143: HZ_BUSINESS_EVENT_V2PVT.create_customer_profile_event (
3144: l_customer_profile_rec,
3145: p_create_profile_amt );
3146: END IF;
3147:
3148: -- Standard call to get message count and if count is 1, get message info.
3149: FND_MSG_PUB.Count_And_Get(
3150: p_encoded => FND_API.G_FALSE,
3151: p_count => x_msg_count,
3152: p_data => x_msg_data );
3153:
3154:
3152: p_data => x_msg_data );
3153:
3154:
3155: EXCEPTION
3156: WHEN FND_API.G_EXC_ERROR THEN
3157: ROLLBACK TO create_customer_profile;
3158: x_return_status := FND_API.G_RET_STS_ERROR;
3159:
3160: FND_MSG_PUB.Count_And_Get(
3154:
3155: EXCEPTION
3156: WHEN FND_API.G_EXC_ERROR THEN
3157: ROLLBACK TO create_customer_profile;
3158: x_return_status := FND_API.G_RET_STS_ERROR;
3159:
3160: FND_MSG_PUB.Count_And_Get(
3161: p_encoded => FND_API.G_FALSE,
3162: p_count => x_msg_count,
3157: ROLLBACK TO create_customer_profile;
3158: x_return_status := FND_API.G_RET_STS_ERROR;
3159:
3160: FND_MSG_PUB.Count_And_Get(
3161: p_encoded => FND_API.G_FALSE,
3162: p_count => x_msg_count,
3163: p_data => x_msg_data );
3164:
3165:
3162: p_count => x_msg_count,
3163: p_data => x_msg_data );
3164:
3165:
3166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3167: ROLLBACK TO create_customer_profile;
3168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3169:
3170: FND_MSG_PUB.Count_And_Get(
3164:
3165:
3166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3167: ROLLBACK TO create_customer_profile;
3168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3169:
3170: FND_MSG_PUB.Count_And_Get(
3171: p_encoded => FND_API.G_FALSE,
3172: p_count => x_msg_count,
3167: ROLLBACK TO create_customer_profile;
3168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3169:
3170: FND_MSG_PUB.Count_And_Get(
3171: p_encoded => FND_API.G_FALSE,
3172: p_count => x_msg_count,
3173: p_data => x_msg_data );
3174:
3175:
3174:
3175:
3176: WHEN OTHERS THEN
3177: ROLLBACK TO create_customer_profile;
3178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3179:
3180: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
3181: fnd_message.set_token( 'ERROR' ,SQLERRM );
3182: fnd_msg_pub.add;
3181: fnd_message.set_token( 'ERROR' ,SQLERRM );
3182: fnd_msg_pub.add;
3183:
3184: FND_MSG_PUB.Count_And_Get(
3185: p_encoded => FND_API.G_FALSE,
3186: p_count => x_msg_count,
3187: p_data => x_msg_data );
3188:
3189:
3191:
3192:
3193:
3194: PROCEDURE create_cust_profile_amt (
3195: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3196: p_check_foreign_key IN VARCHAR2 := FND_API.G_TRUE,
3197: p_cust_profile_amt_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE,
3198: x_cust_acct_profile_amt_id OUT NOCOPY NUMBER,
3199: x_return_status OUT NOCOPY VARCHAR2,
3192:
3193:
3194: PROCEDURE create_cust_profile_amt (
3195: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3196: p_check_foreign_key IN VARCHAR2 := FND_API.G_TRUE,
3197: p_cust_profile_amt_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE,
3198: x_cust_acct_profile_amt_id OUT NOCOPY NUMBER,
3199: x_return_status OUT NOCOPY VARCHAR2,
3200: x_msg_count OUT NOCOPY NUMBER,
3209: -- Standard start of API savepoint
3210: SAVEPOINT create_cust_profile_amt;
3211:
3212: -- Initialize message list if p_init_msg_list is set to TRUE.
3213: IF FND_API.to_Boolean(p_init_msg_list) THEN
3214: FND_MSG_PUB.initialize;
3215: END IF;
3216:
3217: -- Initialize API return status to success.
3214: FND_MSG_PUB.initialize;
3215: END IF;
3216:
3217: -- Initialize API return status to success.
3218: x_return_status := FND_API.G_RET_STS_SUCCESS;
3219:
3220: -- Call to business logic.
3221: do_create_cust_profile_amt (
3222: p_check_foreign_key,
3223: l_cust_profile_amt_rec,
3224: x_cust_acct_profile_amt_id,
3225: x_return_status );
3226:
3227: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3228: -- Invoke business event system.
3229: HZ_BUSINESS_EVENT_V2PVT.create_cust_profile_amt_event (
3230: l_cust_profile_amt_rec );
3231: END IF;
3231: END IF;
3232:
3233: -- Standard call to get message count and if count is 1, get message info.
3234: FND_MSG_PUB.Count_And_Get(
3235: p_encoded => FND_API.G_FALSE,
3236: p_count => x_msg_count,
3237: p_data => x_msg_data );
3238:
3239:
3237: p_data => x_msg_data );
3238:
3239:
3240: EXCEPTION
3241: WHEN FND_API.G_EXC_ERROR THEN
3242: ROLLBACK TO create_cust_profile_amt;
3243: x_return_status := FND_API.G_RET_STS_ERROR;
3244:
3245: FND_MSG_PUB.Count_And_Get(
3239:
3240: EXCEPTION
3241: WHEN FND_API.G_EXC_ERROR THEN
3242: ROLLBACK TO create_cust_profile_amt;
3243: x_return_status := FND_API.G_RET_STS_ERROR;
3244:
3245: FND_MSG_PUB.Count_And_Get(
3246: p_encoded => FND_API.G_FALSE,
3247: p_count => x_msg_count,
3242: ROLLBACK TO create_cust_profile_amt;
3243: x_return_status := FND_API.G_RET_STS_ERROR;
3244:
3245: FND_MSG_PUB.Count_And_Get(
3246: p_encoded => FND_API.G_FALSE,
3247: p_count => x_msg_count,
3248: p_data => x_msg_data );
3249:
3250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3246: p_encoded => FND_API.G_FALSE,
3247: p_count => x_msg_count,
3248: p_data => x_msg_data );
3249:
3250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3251: ROLLBACK TO create_cust_profile_amt;
3252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3253:
3254: FND_MSG_PUB.Count_And_Get(
3248: p_data => x_msg_data );
3249:
3250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3251: ROLLBACK TO create_cust_profile_amt;
3252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3253:
3254: FND_MSG_PUB.Count_And_Get(
3255: p_encoded => FND_API.G_FALSE,
3256: p_count => x_msg_count,
3251: ROLLBACK TO create_cust_profile_amt;
3252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3253:
3254: FND_MSG_PUB.Count_And_Get(
3255: p_encoded => FND_API.G_FALSE,
3256: p_count => x_msg_count,
3257: p_data => x_msg_data );
3258:
3259: WHEN OTHERS THEN
3257: p_data => x_msg_data );
3258:
3259: WHEN OTHERS THEN
3260: ROLLBACK TO create_cust_profile_amt;
3261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3262:
3263: fnd_message.set_name( 'AR', 'HZ_API_OTHERS_EXCEP' );
3264: fnd_message.set_token( 'ERROR' ,SQLERRM );
3265: fnd_msg_pub.add;
3264: fnd_message.set_token( 'ERROR' ,SQLERRM );
3265: fnd_msg_pub.add;
3266:
3267: FND_MSG_PUB.Count_And_Get(
3268: p_encoded => FND_API.G_FALSE,
3269: p_count => x_msg_count,
3270: p_data => x_msg_data );
3271:
3272: END create_cust_profile_amt;
3407: -- it is not visible, the flag must be reset to 'N'.
3408:
3409:
3410: IF p_contact_point_rec.status IS NULL OR
3411: p_contact_point_rec.status = fnd_api.g_miss_char OR
3412: p_contact_point_rec.status = 'A'
3413: THEN
3414: IF p_contact_point_rec.primary_flag = 'Y' THEN
3415: -- Bug 2197181: added for mix-n-match project
3475: -- flag can be set to 'Y' only if the contact point will be visible.
3476: -- If it is not visible, the flag must be reset to 'N'.
3477:
3478: IF p_contact_point_rec.contact_point_purpose IS NOT NULL AND
3479: p_contact_point_rec.contact_point_purpose <> fnd_api.g_miss_char
3480: THEN
3481: IF p_contact_point_rec.primary_by_purpose = 'Y' THEN
3482: -- Bug 2197181: added for mix-n-match project
3483:
3568: x_contact_point_id := p_contact_point_rec.contact_point_id;
3569: /*
3570: per HLD,mosr record should not be created for copy case, since old osr is still active
3571: hz_orig_system_ref_pvt.create_mosr_for_merge(
3572: FND_API.G_FALSE,
3573: 'HZ_CONTACT_POINTS',
3574: p_contact_point_rec.contact_point_id,
3575: x_return_status,
3576: l_msg_count,
3575: x_return_status,
3576: l_msg_count,
3577: l_msg_data);
3578:
3579: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3580: RAISE FND_API.G_EXC_ERROR;
3581: END IF;
3582: */
3583: END do_create_contact_point;
3576: l_msg_count,
3577: l_msg_data);
3578:
3579: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3580: RAISE FND_API.G_EXC_ERROR;
3581: END IF;
3582: */
3583: END do_create_contact_point;
3584:
3595:
3596:
3597: -- Check during insert.
3598: IF p_contact_point_id IS NULL THEN
3599: l_contact_point_id := fnd_api.g_miss_num;
3600: ELSE
3601: l_contact_point_id := p_contact_point_id;
3602: END IF;
3603:
3646:
3647:
3648: -- Check during insert.
3649: IF p_contact_point_id IS NULL THEN
3650: l_contact_point_id := FND_API.G_MISS_NUM;
3651: ELSE
3652: l_contact_point_id := p_contact_point_id;
3653: END IF;
3654:
3669: --------------------------------------
3670:
3671:
3672: PROCEDURE create_contact_point (
3673: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3674: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
3675: p_edi_rec IN hz_contact_point_v2pub.edi_rec_type := g_miss_edi_rec,
3676: p_eft_rec IN hz_contact_point_v2pub.eft_rec_type := g_miss_eft_rec,
3677: p_email_rec IN hz_contact_point_v2pub.email_rec_type := g_miss_email_rec,
3698: -- Standard start of API savepoint
3699: SAVEPOINT create_contact_point;
3700:
3701: -- Initialize API return status to success.
3702: x_return_status := fnd_api.g_ret_sts_success;
3703:
3704: /* SSM SST Integration and Extension
3705: * For non-profile entities, the concept of select/de-select data-sources is obsoleted.
3706:
3735: l_web_rec,
3736: x_contact_point_id,
3737: x_return_status);
3738:
3739: IF x_return_status = fnd_api.g_ret_sts_success THEN
3740: -- Invoke business event system.
3741: hz_business_event_v2pvt.create_contact_point_event(
3742: l_contact_point_rec,
3743: l_edi_rec,
3752: hz_dqm_sync.sync_contact_point(l_contact_point_rec.contact_point_id, 'C');
3753:
3754: -- Standard call to get message count and if count is 1, get message info.
3755: fnd_msg_pub.count_and_get(
3756: p_encoded => fnd_api.g_false,
3757: p_count => x_msg_count,
3758: p_data => x_msg_data);
3759:
3760:
3758: p_data => x_msg_data);
3759:
3760:
3761: EXCEPTION
3762: WHEN fnd_api.g_exc_error THEN
3763: ROLLBACK TO create_contact_point;
3764: x_return_status := fnd_api.g_ret_sts_error;
3765:
3766: fnd_msg_pub.count_and_get(
3760:
3761: EXCEPTION
3762: WHEN fnd_api.g_exc_error THEN
3763: ROLLBACK TO create_contact_point;
3764: x_return_status := fnd_api.g_ret_sts_error;
3765:
3766: fnd_msg_pub.count_and_get(
3767: p_encoded => fnd_api.g_false,
3768: p_count => x_msg_count,
3763: ROLLBACK TO create_contact_point;
3764: x_return_status := fnd_api.g_ret_sts_error;
3765:
3766: fnd_msg_pub.count_and_get(
3767: p_encoded => fnd_api.g_false,
3768: p_count => x_msg_count,
3769: p_data => x_msg_data);
3770:
3771: WHEN fnd_api.g_exc_unexpected_error THEN
3767: p_encoded => fnd_api.g_false,
3768: p_count => x_msg_count,
3769: p_data => x_msg_data);
3770:
3771: WHEN fnd_api.g_exc_unexpected_error THEN
3772: ROLLBACK TO create_contact_point;
3773: x_return_status := fnd_api.g_ret_sts_unexp_error;
3774:
3775: fnd_msg_pub.count_and_get(
3769: p_data => x_msg_data);
3770:
3771: WHEN fnd_api.g_exc_unexpected_error THEN
3772: ROLLBACK TO create_contact_point;
3773: x_return_status := fnd_api.g_ret_sts_unexp_error;
3774:
3775: fnd_msg_pub.count_and_get(
3776: p_encoded => fnd_api.g_false,
3777: p_count => x_msg_count,
3772: ROLLBACK TO create_contact_point;
3773: x_return_status := fnd_api.g_ret_sts_unexp_error;
3774:
3775: fnd_msg_pub.count_and_get(
3776: p_encoded => fnd_api.g_false,
3777: p_count => x_msg_count,
3778: p_data => x_msg_data);
3779:
3780: WHEN OTHERS THEN
3778: p_data => x_msg_data);
3779:
3780: WHEN OTHERS THEN
3781: ROLLBACK TO create_contact_point;
3782: x_return_status := fnd_api.g_ret_sts_unexp_error;
3783:
3784: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3785: fnd_message.set_token('ERROR' ,SQLERRM);
3786: fnd_msg_pub.add;
3785: fnd_message.set_token('ERROR' ,SQLERRM);
3786: fnd_msg_pub.add;
3787:
3788: fnd_msg_pub.count_and_get(
3789: p_encoded => fnd_api.g_false,
3790: p_count => x_msg_count,
3791: p_data => x_msg_data);
3792:
3793: END create_contact_point;
3793: END create_contact_point;
3794:
3795:
3796: PROCEDURE get_contact_point_rec (
3797: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3798: p_contact_point_id IN NUMBER,
3799: x_contact_point_rec OUT NOCOPY hz_contact_point_v2pub.contact_point_rec_type,
3800: x_edi_rec OUT NOCOPY hz_contact_point_v2pub.edi_rec_type,
3801: x_eft_rec OUT NOCOPY hz_contact_point_v2pub.eft_rec_type,
3812:
3813: BEGIN
3814:
3815: -- Initialize API return status to success.
3816: x_return_status := fnd_api.g_ret_sts_success;
3817:
3818: -- Check whether primary key has been passed in.
3819: IF p_contact_point_id IS NULL OR
3820: p_contact_point_id = FND_API.G_MISS_NUM THEN
3816: x_return_status := fnd_api.g_ret_sts_success;
3817:
3818: -- Check whether primary key has been passed in.
3819: IF p_contact_point_id IS NULL OR
3820: p_contact_point_id = FND_API.G_MISS_NUM THEN
3821: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
3822: fnd_message.set_token('COLUMN', 'contact_point_id');
3823: fnd_msg_pub.add;
3824: RAISE fnd_api.g_exc_error;
3820: p_contact_point_id = FND_API.G_MISS_NUM THEN
3821: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
3822: fnd_message.set_token('COLUMN', 'contact_point_id');
3823: fnd_msg_pub.add;
3824: RAISE fnd_api.g_exc_error;
3825: END IF;
3826:
3827: x_contact_point_rec.contact_point_id := p_contact_point_id;
3828:
3893:
3894:
3895: -- Standard call to get message count and if count is 1, get message info.
3896: fnd_msg_pub.count_and_get(
3897: p_encoded => fnd_api.g_false,
3898: p_count => x_msg_count,
3899: p_data => x_msg_data);
3900:
3901: EXCEPTION
3898: p_count => x_msg_count,
3899: p_data => x_msg_data);
3900:
3901: EXCEPTION
3902: WHEN fnd_api.g_exc_error THEN
3903: x_return_status := fnd_api.g_ret_sts_error;
3904:
3905: fnd_msg_pub.count_and_get(
3906: p_encoded => fnd_api.g_false,
3899: p_data => x_msg_data);
3900:
3901: EXCEPTION
3902: WHEN fnd_api.g_exc_error THEN
3903: x_return_status := fnd_api.g_ret_sts_error;
3904:
3905: fnd_msg_pub.count_and_get(
3906: p_encoded => fnd_api.g_false,
3907: p_count => x_msg_count,
3902: WHEN fnd_api.g_exc_error THEN
3903: x_return_status := fnd_api.g_ret_sts_error;
3904:
3905: fnd_msg_pub.count_and_get(
3906: p_encoded => fnd_api.g_false,
3907: p_count => x_msg_count,
3908: p_data => x_msg_data);
3909:
3910: WHEN fnd_api.g_exc_unexpected_error THEN
3906: p_encoded => fnd_api.g_false,
3907: p_count => x_msg_count,
3908: p_data => x_msg_data);
3909:
3910: WHEN fnd_api.g_exc_unexpected_error THEN
3911: x_return_status := fnd_api.g_ret_sts_unexp_error;
3912:
3913: fnd_msg_pub.count_and_get(
3914: p_encoded => fnd_api.g_false,
3907: p_count => x_msg_count,
3908: p_data => x_msg_data);
3909:
3910: WHEN fnd_api.g_exc_unexpected_error THEN
3911: x_return_status := fnd_api.g_ret_sts_unexp_error;
3912:
3913: fnd_msg_pub.count_and_get(
3914: p_encoded => fnd_api.g_false,
3915: p_count => x_msg_count,
3910: WHEN fnd_api.g_exc_unexpected_error THEN
3911: x_return_status := fnd_api.g_ret_sts_unexp_error;
3912:
3913: fnd_msg_pub.count_and_get(
3914: p_encoded => fnd_api.g_false,
3915: p_count => x_msg_count,
3916: p_data => x_msg_data);
3917:
3918: WHEN OTHERS THEN
3915: p_count => x_msg_count,
3916: p_data => x_msg_data);
3917:
3918: WHEN OTHERS THEN
3919: x_return_status := fnd_api.g_ret_sts_unexp_error;
3920:
3921: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3922: fnd_message.set_token('ERROR' ,SQLERRM);
3923: fnd_msg_pub.add;
3922: fnd_message.set_token('ERROR' ,SQLERRM);
3923: fnd_msg_pub.add;
3924:
3925: fnd_msg_pub.count_and_get(
3926: p_encoded => fnd_api.g_false,
3927: p_count => x_msg_count,
3928: p_data => x_msg_data);
3929:
3930: END get_contact_point_rec;
3962: |
3963: +===========================================================================*/
3964:
3965: PROCEDURE get_party_site_use_rec (
3966: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3967: p_party_site_use_id IN NUMBER,
3968: x_party_site_use_rec OUT NOCOPY HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE,
3969: x_return_status OUT NOCOPY VARCHAR2,
3970: x_msg_count OUT NOCOPY NUMBER,
3975:
3976: BEGIN
3977:
3978: --Initialize message list if p_init_msg_list is set to TRUE.
3979: IF FND_API.to_Boolean(p_init_msg_list) THEN
3980: FND_MSG_PUB.initialize;
3981: END IF;
3982:
3983: --Initialize API return status to success.
3980: FND_MSG_PUB.initialize;
3981: END IF;
3982:
3983: --Initialize API return status to success.
3984: x_return_status := FND_API.G_RET_STS_SUCCESS;
3985:
3986: --Check whether primary key has been passed in.
3987: IF p_party_site_use_id IS NULL OR
3988: p_party_site_use_id = FND_API.G_MISS_NUM THEN
3984: x_return_status := FND_API.G_RET_STS_SUCCESS;
3985:
3986: --Check whether primary key has been passed in.
3987: IF p_party_site_use_id IS NULL OR
3988: p_party_site_use_id = FND_API.G_MISS_NUM THEN
3989: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3990: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_party_site_use_id' );
3991: FND_MSG_PUB.ADD;
3992: RAISE FND_API.G_EXC_ERROR;
3988: p_party_site_use_id = FND_API.G_MISS_NUM THEN
3989: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3990: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_party_site_use_id' );
3991: FND_MSG_PUB.ADD;
3992: RAISE FND_API.G_EXC_ERROR;
3993: END IF;
3994:
3995: x_party_site_use_rec.party_site_use_id := p_party_site_use_id;
3996:
4006: );
4007:
4008: --Standard call to get message count and if count is 1, get message info.
4009: FND_MSG_PUB.Count_And_Get(
4010: p_encoded => FND_API.G_FALSE,
4011: p_count => x_msg_count,
4012: p_data => x_msg_data );
4013:
4014: EXCEPTION
4011: p_count => x_msg_count,
4012: p_data => x_msg_data );
4013:
4014: EXCEPTION
4015: WHEN FND_API.G_EXC_ERROR THEN
4016: x_return_status := FND_API.G_RET_STS_ERROR;
4017:
4018: FND_MSG_PUB.Count_And_Get(
4019: p_encoded => FND_API.G_FALSE,
4012: p_data => x_msg_data );
4013:
4014: EXCEPTION
4015: WHEN FND_API.G_EXC_ERROR THEN
4016: x_return_status := FND_API.G_RET_STS_ERROR;
4017:
4018: FND_MSG_PUB.Count_And_Get(
4019: p_encoded => FND_API.G_FALSE,
4020: p_count => x_msg_count,
4015: WHEN FND_API.G_EXC_ERROR THEN
4016: x_return_status := FND_API.G_RET_STS_ERROR;
4017:
4018: FND_MSG_PUB.Count_And_Get(
4019: p_encoded => FND_API.G_FALSE,
4020: p_count => x_msg_count,
4021: p_data => x_msg_data );
4022:
4023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4019: p_encoded => FND_API.G_FALSE,
4020: p_count => x_msg_count,
4021: p_data => x_msg_data );
4022:
4023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4025:
4026: FND_MSG_PUB.Count_And_Get(
4027: p_encoded => FND_API.G_FALSE,
4020: p_count => x_msg_count,
4021: p_data => x_msg_data );
4022:
4023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4025:
4026: FND_MSG_PUB.Count_And_Get(
4027: p_encoded => FND_API.G_FALSE,
4028: p_count => x_msg_count,
4023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4025:
4026: FND_MSG_PUB.Count_And_Get(
4027: p_encoded => FND_API.G_FALSE,
4028: p_count => x_msg_count,
4029: p_data => x_msg_data );
4030:
4031: WHEN OTHERS THEN
4028: p_count => x_msg_count,
4029: p_data => x_msg_data );
4030:
4031: WHEN OTHERS THEN
4032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4033: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
4034: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
4035: FND_MSG_PUB.ADD;
4036: FND_MSG_PUB.Count_And_Get(
4033: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
4034: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
4035: FND_MSG_PUB.ADD;
4036: FND_MSG_PUB.Count_And_Get(
4037: p_encoded => FND_API.G_FALSE,
4038: p_count => x_msg_count,
4039: p_data => x_msg_data );
4040:
4041: END get_party_site_use_rec;
4105: WHEN OTHERS THEN
4106: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
4107: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTY_SITE_USES');
4108: FND_MSG_PUB.ADD;
4109: RAISE FND_API.G_EXC_ERROR;
4110: END;
4111:
4112: IF l_rowid IS NOT NULL THEN
4113: UPDATE HZ_PARTY_SITE_USES
4248: |
4249: +===========================================================================*/
4250:
4251: PROCEDURE create_party_site_use (
4252: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4253: p_party_site_use_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE,
4254: x_party_site_use_id OUT NOCOPY NUMBER,
4255: x_return_status OUT NOCOPY VARCHAR2,
4256: x_msg_count OUT NOCOPY NUMBER,
4266: -- standard start of API savepoint
4267: SAVEPOINT create_party_site_use;
4268:
4269: -- initialize message list if p_init_msg_list is set to TRUE.
4270: IF FND_API.to_Boolean(p_init_msg_list) THEN
4271: FND_MSG_PUB.initialize;
4272: END IF;
4273:
4274: -- initialize API return status to success.
4271: FND_MSG_PUB.initialize;
4272: END IF;
4273:
4274: -- initialize API return status to success.
4275: x_return_status := FND_API.G_RET_STS_SUCCESS;
4276:
4277: -- call to business logic.
4278: do_create_party_site_use(
4279: l_party_site_use_rec,
4280: x_party_site_use_id,
4281: x_return_status
4282: );
4283:
4284: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4285: -- Invoke business event system.
4286: HZ_BUSINESS_EVENT_V2PVT.create_party_site_use_event (
4287: l_party_site_use_rec );
4288: END IF;
4288: END IF;
4289:
4290: -- standard call to get message count and if count is 1, get message info.
4291: FND_MSG_PUB.Count_And_Get(
4292: p_encoded => FND_API.G_FALSE,
4293: p_count => x_msg_count,
4294: p_data => x_msg_data);
4295:
4296:
4294: p_data => x_msg_data);
4295:
4296:
4297: EXCEPTION
4298: WHEN FND_API.G_EXC_ERROR THEN
4299: ROLLBACK TO create_party_site_use;
4300: x_return_status := FND_API.G_RET_STS_ERROR;
4301: FND_MSG_PUB.Count_And_Get(
4302: p_encoded => FND_API.G_FALSE,
4296:
4297: EXCEPTION
4298: WHEN FND_API.G_EXC_ERROR THEN
4299: ROLLBACK TO create_party_site_use;
4300: x_return_status := FND_API.G_RET_STS_ERROR;
4301: FND_MSG_PUB.Count_And_Get(
4302: p_encoded => FND_API.G_FALSE,
4303: p_count => x_msg_count,
4304: p_data => x_msg_data);
4298: WHEN FND_API.G_EXC_ERROR THEN
4299: ROLLBACK TO create_party_site_use;
4300: x_return_status := FND_API.G_RET_STS_ERROR;
4301: FND_MSG_PUB.Count_And_Get(
4302: p_encoded => FND_API.G_FALSE,
4303: p_count => x_msg_count,
4304: p_data => x_msg_data);
4305:
4306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4302: p_encoded => FND_API.G_FALSE,
4303: p_count => x_msg_count,
4304: p_data => x_msg_data);
4305:
4306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4307: ROLLBACK TO create_party_site_use;
4308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4309: FND_MSG_PUB.Count_And_Get(
4310: p_encoded => FND_API.G_FALSE,
4304: p_data => x_msg_data);
4305:
4306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4307: ROLLBACK TO create_party_site_use;
4308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4309: FND_MSG_PUB.Count_And_Get(
4310: p_encoded => FND_API.G_FALSE,
4311: p_count => x_msg_count,
4312: p_data => x_msg_data);
4306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4307: ROLLBACK TO create_party_site_use;
4308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4309: FND_MSG_PUB.Count_And_Get(
4310: p_encoded => FND_API.G_FALSE,
4311: p_count => x_msg_count,
4312: p_data => x_msg_data);
4313:
4314: WHEN OTHERS THEN
4312: p_data => x_msg_data);
4313:
4314: WHEN OTHERS THEN
4315: ROLLBACK TO create_party_site_use;
4316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4317: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4318: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4319: FND_MSG_PUB.ADD;
4320: FND_MSG_PUB.Count_And_Get(
4317: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4318: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4319: FND_MSG_PUB.ADD;
4320: FND_MSG_PUB.Count_And_Get(
4321: p_encoded => FND_API.G_FALSE,
4322: p_count => x_msg_count,
4323: p_data => x_msg_data);
4324:
4325: