[Home] [Help]
213: EXCEPTION WHEN NO_DATA_FOUND THEN
214: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_RECORD');
215: FND_MESSAGE.SET_TOKEN('TOKEN1', 'geography_element_column');
216: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_type :'||l_get_all_parents.parent_object_type||', country_code :'||l_country_code);
217: FND_MSG_PUB.ADD;
218: x_return_status := fnd_api.g_ret_sts_error;
219: RAISE FND_API.G_EXC_ERROR;
220: END;
221:
356: EXCEPTION WHEN NO_DATA_FOUND THEN
357: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_RECORD');
358: FND_MESSAGE.SET_TOKEN('TOKEN1', 'geography_element_column');
359: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_type :'||l_parent_object_type||'and for country_code of geography_id:'||p_geography_id);
360: FND_MSG_PUB.ADD;
361:
362: RAISE FND_API.G_EXC_ERROR;
363: END;
364: END IF;
513: FND_MESSAGE.SET_TOKEN('IDENT_TYPE', 'NAME');
514: FND_MESSAGE.SET_TOKEN('VALUE', p_child_name);
515: FND_MESSAGE.SET_TOKEN('GEO_ID', p_child_id);
516: FND_MESSAGE.SET_TOKEN('PARENT_GEO_ID', p_parent_id);
517: FND_MSG_PUB.ADD;
518: x_return_status := fnd_api.g_ret_sts_error;
519:
520: END IF;
521:
557: FND_MESSAGE.SET_TOKEN('IDENT_TYPE', 'CODE');
558: FND_MESSAGE.SET_TOKEN('VALUE', p_child_code);
559: FND_MESSAGE.SET_TOKEN('GEO_ID', p_child_id);
560: FND_MESSAGE.SET_TOKEN('PARENT_GEO_ID', p_parent_id);
561: FND_MSG_PUB.ADD;
562: x_return_status := fnd_api.g_ret_sts_error;
563:
564: END IF;
565:
750: EXCEPTION when no_data_found THEN
751: fnd_message.set_name('AR', 'HZ_GEO_NO_RECORD');
752: fnd_message.set_token('TOKEN1','Geography record');
753: fnd_message.set_token('TOKEN2','geography_id '||p_master_relation_rec.geography_id);
754: fnd_msg_pub.add;
755: RAISE FND_API.G_EXC_ERROR;
756: END;
757: -- a geography can not have two countries as its parents
758: IF l_parent_geography_type = 'COUNTRY' THEN
766:
767: IF l_count > 0 THEN
768: fnd_message.set_name('AR', 'HZ_GEO_MULTIPLE_COUNTRIES');
769: fnd_message.set_token('GEO_ID', p_master_relation_rec.geography_id);
770: fnd_msg_pub.add;
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: END IF;
774:
942: EXCEPTION WHEN NO_DATA_FOUND THEN
943: fnd_message.set_name('AR', 'HZ_GEO_NO_RECORD');
944: fnd_message.set_token('token1', 'relationship');
945: fnd_message.set_token('token1', 'relationship_id '||p_relationship_id);
946: fnd_msg_pub.add;
947: RAISE FND_API.G_EXC_ERROR;
948: END;
949:
950: --dbms_output.put_line('after master relation validation');
1004: EXCEPTION WHEN NO_DATA_FOUND THEN
1005: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NO_RECORD' );
1006: FND_MESSAGE.SET_TOKEN( 'TOKEN1', 'Relationship');
1007: FND_MESSAGE.SET_TOKEN( 'TOKEN2', 'object_id '||l_geography_id||',object_type '||l_geography_type||' and relationship_type MASTER_REF');
1008: FND_MSG_PUB.ADD;
1009: RAISE FND_API.G_EXC_ERROR;
1010: END;
1011:
1012:
1014: IF (l_parent_count = 1 AND p_status = 'I') THEN
1015: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_SINGLE_PARENT' );
1016: FND_MESSAGE.SET_TOKEN( 'REL_ID', p_relationship_id);
1017: FND_MESSAGE.SET_TOKEN( 'GEO_ID', l_geography_id);
1018: FND_MSG_PUB.ADD;
1019: RAISE FND_API.G_EXC_ERROR;
1020: --l_update_flag := 'N';
1021: END IF;
1022: ----dbms_output.put_line ('parent_count '||to_char(l_parent_count));
1196: EXCEPTION when no_data_found THEN
1197: fnd_message.set_name('AR', 'HZ_GEO_NO_RECORD');
1198: fnd_message.set_token('TOKEN1','Geography record');
1199: fnd_message.set_token('TOKEN2','geography_id '||p_geo_identifier_rec.geography_id);
1200: fnd_msg_pub.add;
1201: RAISE FND_API.G_EXC_ERROR;
1202: END;
1203:
1204: IF l_geography_use = 'MASTER_REF' THEN
1250:
1251: IF l_count > 0 THEN
1252: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_DUP_COUNTRY_IDEN');
1253: FND_MESSAGE.SET_TOKEN('IDEN_VAL', p_geo_identifier_rec.identifier_value);
1254: FND_MSG_PUB.ADD;
1255: x_return_status := fnd_api.g_ret_sts_error;
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258: END IF;
1263: IF (p_geo_identifier_rec.identifier_type = 'NAME' AND p_geo_identifier_rec.primary_flag = 'Y') THEN
1264: IF p_geo_identifier_rec.identifier_subtype <> 'STANDARD_NAME' THEN
1265: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_INVALID_SUBTYPE' );
1266: FND_MESSAGE.SET_TOKEN( 'SUBTYPE', p_geo_identifier_rec.identifier_subtype);
1267: FND_MSG_PUB.ADD;
1268: x_return_status := FND_API.G_RET_STS_ERROR;
1269: RAISE FND_API.G_EXC_ERROR;
1270: END IF;
1271: END IF;
1372: --dbms_output.put_line('in the error');
1373: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_RECORD');
1374: FND_MESSAGE.SET_TOKEN('TOKEN1', 'geography structure level');
1375: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_id: '||to_char(l_count)||',country_code: '||l_country_code||',geography_type: '||l_geography_type);
1376: FND_MSG_PUB.ADD;
1377: x_return_status := FND_API.G_RET_STS_ERROR;
1378: END;
1379: END IF;
1380:
1513: --validate object_version_number
1514: IF l_object_version_number <> p_object_version_number THEN
1515: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1516: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_geography_identifiers');
1517: FND_MSG_PUB.ADD;
1518: RAISE FND_API.G_EXC_ERROR;
1519: ELSE
1520: p_object_version_number := l_object_version_number + 1;
1521: END IF;
1525: FND_MESSAGE.SET_TOKEN('TOKEN1', 'geography_identifier');
1526: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_id: '||p_geo_identifier_rec.geography_id||', identifier_type: '||
1527: p_geo_identifier_rec.identifier_type||', identifier_subtype: '||p_geo_identifier_rec.identifier_subtype||', identifier_value: '||
1528: p_geo_identifier_rec.identifier_value||', language_code: '||p_geo_identifier_rec.language_code);
1529: FND_MSG_PUB.ADD;
1530: RAISE FND_API.G_EXC_ERROR;
1531: END;
1532:
1533: -- Validate new subtype. Update only if valid and geo type is CODE.
1556: IF (p_geo_identifier_rec.new_identifier_subtype <> 'STANDARD_NAME') THEN
1557: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
1558: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'identifier_subtype' );
1559: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'HZ_GEO_IDENTIFIER_SUBTYPE' );
1560: FND_MSG_PUB.ADD;
1561: x_return_status := FND_API.G_RET_STS_ERROR;
1562: END IF;
1563: l_subtype_updated := 'Y';
1564: ELSE -- new geo subtype is null (i.e. no need to update), use the old subtype
1612: FND_MESSAGE.SET_TOKEN('IDENT_TYPE', 'NAME');
1613: FND_MESSAGE.SET_TOKEN('VALUE', l_new_geo_value);
1614: FND_MESSAGE.SET_TOKEN('GEO_ID', p_geo_identifier_rec.geography_id);
1615: FND_MESSAGE.SET_TOKEN('PARENT_GEO_ID', l_get_all_parents.subject_id);
1616: FND_MSG_PUB.ADD;
1617: x_return_status := fnd_api.g_ret_sts_error;
1618: RAISE FND_API.G_EXC_ERROR;
1619: EXIT;
1620: END IF;
1641: FND_MESSAGE.SET_TOKEN('IDENT_TYPE', 'CODE');
1642: FND_MESSAGE.SET_TOKEN('VALUE', l_new_geo_value);
1643: FND_MESSAGE.SET_TOKEN('GEO_ID', p_geo_identifier_rec.geography_id);
1644: FND_MESSAGE.SET_TOKEN('PARENT_GEO_ID', l_get_all_parents.subject_id);
1645: FND_MSG_PUB.ADD;
1646: x_return_status := fnd_api.g_ret_sts_error;
1647: RAISE FND_API.G_EXC_ERROR;
1648: EXIT;
1649: END IF;
1663:
1664: IF l_count > 0 THEN
1665: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_DUP_COUNTRY_IDEN');
1666: FND_MESSAGE.SET_TOKEN('IDEN_VAL', l_new_geo_value);
1667: FND_MSG_PUB.ADD;
1668: x_return_status := fnd_api.g_ret_sts_error;
1669: RAISE FND_API.G_EXC_ERROR;
1670: END IF;
1671:
1677: --do not allow the updation of primary_flag from 'Y' to 'N'
1678: IF (l_old_primary_flag = 'Y' AND p_geo_identifier_rec.primary_flag = 'N') THEN
1679: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
1680: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'primary_flag from Y to N');
1681: FND_MSG_PUB.ADD;
1682: x_return_status := FND_API.G_RET_STS_ERROR;
1683: RAISE FND_API.G_EXC_ERROR;
1684: END IF;
1685:
1797:
1798: IF l_primary_flag = 'Y' THEN
1799: l_delete_flag := 'N';
1800: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NONDELETEABLE' );
1801: FND_MSG_PUB.ADD;
1802: x_return_status := FND_API.G_RET_STS_ERROR;
1803: RAISE FND_API.G_EXC_ERROR;
1804: END IF;
1805:
1843: FND_MESSAGE.SET_TOKEN('TOKEN1', 'geography_identifier');
1844: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_id: '||p_geography_id||', identifier_type: '||
1845: p_identifier_type||', identifier_subtype: '||p_identifier_subtype||', identifier_value: '||
1846: p_identifier_value||', language_code: '||p_language_code);
1847: FND_MSG_PUB.ADD;
1848: RAISE FND_API.G_EXC_ERROR;
1849:
1850: END do_delete_geo_identifier;
1851:
2117: --validate object_version_number
2118: IF l_object_version_number <> p_object_version_number THEN
2119: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
2120: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_geographies');
2121: FND_MSG_PUB.ADD;
2122: RAISE FND_API.G_EXC_ERROR;
2123: ELSE
2124: p_object_version_number := l_object_version_number + 1;
2125: END IF;
2127: EXCEPTION WHEN NO_DATA_FOUND THEN
2128: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_RECORD');
2129: FND_MESSAGE.SET_TOKEN('TOKEN1','geography');
2130: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_id '||p_geography_id);
2131: FND_MSG_PUB.ADD;
2132: RAISE FND_API.G_EXC_ERROR;
2133: END;
2134: --dbms_output.put_line('start date and old end date and end date '||to_char(l_start_date,'dd-mon-yyyy')||'*'||to_char(l_end_date,'dd-mon-yyyy')||'*'||to_char(p_end_date,'dd-mon-yyyy')||'*');
2135: --dbms_output.put_line('After date validation '|| x_return_status);
2168: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
2169: fnd_message.set_token('FK', 'timezone_code');
2170: fnd_message.set_token('COLUMN','timezone_code');
2171: fnd_message.set_token('TABLE','FND_TIMEZONES_B');
2172: fnd_msg_pub.add;
2173: RAISE FND_API.G_EXC_ERROR;
2174: END IF;
2175: END IF;
2176: --dbms_output.put_line('After date validation '|| x_return_status);
2476:
2477: IF l_count > 0 THEN
2478: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_DUPLICATE_COLUMN' );
2479: FND_MESSAGE.SET_TOKEN( 'COLUMN','geography_id, geography_from, start_date');
2480: FND_MSG_PUB.ADD;
2481: RAISE FND_API.G_EXC_ERROR;
2482: END IF; */
2483:
2484:
2588: --validate object_version_number
2589: IF l_object_version_number <> p_object_version_number THEN
2590: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
2591: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_geography_ranges');
2592: FND_MSG_PUB.ADD;
2593: RAISE FND_API.G_EXC_ERROR;
2594: ELSE
2595: p_object_version_number := l_object_version_number + 1;
2596: END IF;
2598: EXCEPTION WHEN NO_DATA_FOUND THEN
2599: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NO_RECORD' );
2600: FND_MESSAGE.SET_TOKEN( 'TOKEN1', 'Geography Range');
2601: FND_MESSAGE.SET_TOKEN( 'TOKEN2', 'geography_id '||p_geography_id||', geography_from '||p_geography_from||', start_date '||p_start_date);
2602: FND_MSG_PUB.ADD;
2603: RAISE FND_API.G_EXC_ERROR;
2604:
2605: END;
2606: -- check if start_date <= end_date
2734: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NO_RELATIONSHIP');
2735: FND_MESSAGE.SET_TOKEN( 'INCL_GEO_ID',p_zone_relation_tbl(i).included_geography_id);
2736: FND_MESSAGE.SET_TOKEN( 'LIM_GEO_ID', l_limited_by_geography_id );
2737: FND_MESSAGE.SET_TOKEN( 'ZONE_TYPE', l_zone_type);
2738: FND_MSG_PUB.ADD;
2739: RAISE FND_API.G_EXC_ERROR;
2740: END;
2741: END IF;
2742:
2794: IF l_count > 0 THEN
2795: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_OVERLAPPING_GEOGS' );
2796: FND_MESSAGE.SET_TOKEN( 'GEO_ID',p_zone_relation_tbl(i).included_geography_id );
2797: FND_MESSAGE.SET_TOKEN( 'ZONE_TYPE', l_zone_type);
2798: FND_MSG_PUB.ADD;
2799: RAISE FND_API.G_EXC_ERROR;
2800: EXIT;
2801: END IF;
2802:
2815: IF l_count > 0 THEN
2816: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_DUPL_INCL_GEO_ID' );
2817: FND_MESSAGE.SET_TOKEN( 'GEO_ID',p_zone_relation_tbl(i).included_geography_id );
2818: FND_MESSAGE.SET_TOKEN( 'ZONE_ID', p_geography_id);
2819: FND_MSG_PUB.ADD;
2820: RAISE FND_API.G_EXC_ERROR;
2821: EXIT;
2822: END IF;
2823:
2962: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
2963: fnd_message.set_token('FK', 'geography_type');
2964: fnd_message.set_token('COLUMN','zone_type');
2965: fnd_message.set_token('TABLE','HZ_GEOGRAPHY_TYPES_B');
2966: fnd_msg_pub.add;
2967: RAISE FND_API.G_EXC_ERROR;
2968: END;
2969:
2970: -- zone_name must be unique with in a zone_type
2976:
2977: IF l_count > 0 THEN
2978: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_DUPLICATE_COLUMN' );
2979: FND_MESSAGE.SET_TOKEN( 'COLUMN','zone name');
2980: FND_MSG_PUB.ADD;
2981: RAISE FND_API.G_EXC_ERROR;
2982: END IF;
2983:
2984: -- zone_code must be unique within a zone_type
2992:
2993: IF l_count > 0 THEN
2994: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_DUPLICATE_COLUMN' );
2995: FND_MESSAGE.SET_TOKEN( 'COLUMN','zone code');
2996: FND_MSG_PUB.ADD;
2997: RAISE FND_API.G_EXC_ERROR;
2998: END IF;
2999: END IF;
3000:
3001: -- zone_code_type is mandatory if zone_code is NOT NULL
3002: IF (p_zone_code IS NOT NULL AND p_zone_code_type IS NULL) THEN
3003: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3004: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'zone_code_type' );
3005: FND_MSG_PUB.ADD;
3006: RAISE FND_API.G_EXC_ERROR;
3007: END IF;
3008:
3009:
3018: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
3019: fnd_message.set_token('FK', 'timezone_code');
3020: fnd_message.set_token('COLUMN','timezone_code');
3021: fnd_message.set_token('TABLE','FND_TIMEZONES_B');
3022: fnd_msg_pub.add;
3023: RAISE FND_API.G_EXC_ERROR;
3024: END IF;
3025: END IF;
3026:
3026:
3027: -- there must be atleast one included geography for a zone
3028: IF p_zone_relation_tbl.count = 0 THEN
3029: fnd_message.set_name('AR', 'HZ_GEO_NO_INCL_GEOGRAPHIES');
3030: fnd_msg_pub.add;
3031: RAISE FND_API.G_EXC_ERROR;
3032: END IF;
3033:
3034: -- get country code of one of the included_geography_id of this zone_type
3047: EXCEPTION WHEN NO_DATA_FOUND THEN
3048: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NO_RECORD');
3049: FND_MESSAGE.SET_TOKEN( 'TOKEN1','country code');
3050: FND_MESSAGE.SET_TOKEN( 'TOKEN2', 'included_geography_id '||p_zone_relation_tbl(i).included_geography_id);
3051: FND_MSG_PUB.ADD;
3052: RAISE FND_API.G_EXC_ERROR;
3053: EXIT;
3054: END;
3055: END IF;
3252: SAVEPOINT create_master_relation;
3253:
3254: -- Initialize message list if p_init_msg_list is set to TRUE.
3255: IF FND_API.to_Boolean(p_init_msg_list) THEN
3256: FND_MSG_PUB.initialize;
3257: END IF;
3258:
3259: -- Initialize API return status to success.
3260: x_return_status := FND_API.G_RET_STS_SUCCESS;
3272: END IF;
3273:
3274: --g_dup_checked := 'N';
3275: -- Standard call to get message count and if count is 1, get message info.
3276: FND_MSG_PUB.Count_And_Get(
3277: p_encoded => FND_API.G_FALSE,
3278: p_count => x_msg_count,
3279: p_data => x_msg_data);
3280:
3282: WHEN FND_API.G_EXC_ERROR THEN
3283: g_dup_checked := 'N';
3284: ROLLBACK TO create_master_relation;
3285: x_return_status := FND_API.G_RET_STS_ERROR;
3286: FND_MSG_PUB.Count_And_Get(
3287: p_encoded => FND_API.G_FALSE,
3288: p_count => x_msg_count,
3289: p_data => x_msg_data);
3290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3291: --g_dup_checked := 'N';
3292: ROLLBACK TO create_master_relation;
3293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3294: FND_MSG_PUB.Count_And_Get(
3295: p_encoded => FND_API.G_FALSE,
3296: p_count => x_msg_count,
3297: p_data => x_msg_data);
3298:
3301: ROLLBACK TO create_master_relation;
3302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3303: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3304: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3305: FND_MSG_PUB.ADD;
3306: FND_MSG_PUB.Count_And_Get(
3307: p_encoded => FND_API.G_FALSE,
3308: p_count => x_msg_count,
3309: p_data => x_msg_data);
3302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3303: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3304: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3305: FND_MSG_PUB.ADD;
3306: FND_MSG_PUB.Count_And_Get(
3307: p_encoded => FND_API.G_FALSE,
3308: p_count => x_msg_count,
3309: p_data => x_msg_data);
3310:
3356: SAVEPOINT update_relationship;
3357:
3358: -- Initialize message list if p_init_msg_list is set to TRUE.
3359: IF FND_API.to_Boolean(p_init_msg_list) THEN
3360: FND_MSG_PUB.initialize;
3361: END IF;
3362:
3363: -- Initialize API return status to success.
3364: x_return_status := FND_API.G_RET_STS_SUCCESS;
3376: RAISE FND_API.G_EXC_ERROR;
3377: END IF;
3378:
3379: -- Standard call to get message count and if count is 1, get message info.
3380: FND_MSG_PUB.Count_And_Get(
3381: p_encoded => FND_API.G_FALSE,
3382: p_count => x_msg_count,
3383: p_data => x_msg_data);
3384:
3385: EXCEPTION
3386: WHEN FND_API.G_EXC_ERROR THEN
3387: ROLLBACK TO update_relationship;
3388: x_return_status := FND_API.G_RET_STS_ERROR;
3389: FND_MSG_PUB.Count_And_Get(
3390: p_encoded => FND_API.G_FALSE,
3391: p_count => x_msg_count,
3392: p_data => x_msg_data);
3393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3392: p_data => x_msg_data);
3393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3394: ROLLBACK TO update_relationship;
3395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3396: FND_MSG_PUB.Count_And_Get(
3397: p_encoded => FND_API.G_FALSE,
3398: p_count => x_msg_count,
3399: p_data => x_msg_data);
3400:
3402: ROLLBACK TO update_relationship;
3403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3404: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3405: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3406: FND_MSG_PUB.ADD;
3407: FND_MSG_PUB.Count_And_Get(
3408: p_encoded => FND_API.G_FALSE,
3409: p_count => x_msg_count,
3410: p_data => x_msg_data);
3403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3404: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3405: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3406: FND_MSG_PUB.ADD;
3407: FND_MSG_PUB.Count_And_Get(
3408: p_encoded => FND_API.G_FALSE,
3409: p_count => x_msg_count,
3410: p_data => x_msg_data);
3411:
3456: SAVEPOINT create_geo_identifier;
3457:
3458: -- Initialize message list if p_init_msg_list is set to TRUE.
3459: IF FND_API.to_Boolean(p_init_msg_list) THEN
3460: FND_MSG_PUB.initialize;
3461: END IF;
3462:
3463: -- Initialize API return status to success.
3464: x_return_status := FND_API.G_RET_STS_SUCCESS;
3474: RAISE FND_API.G_EXC_ERROR;
3475: END IF;
3476:
3477: -- Standard call to get message count and if count is 1, get message info.
3478: FND_MSG_PUB.Count_And_Get(
3479: p_encoded => FND_API.G_FALSE,
3480: p_count => x_msg_count,
3481: p_data => x_msg_data);
3482:
3483: EXCEPTION
3484: WHEN FND_API.G_EXC_ERROR THEN
3485: ROLLBACK TO create_geo_identifier;
3486: x_return_status := FND_API.G_RET_STS_ERROR;
3487: FND_MSG_PUB.Count_And_Get(
3488: p_encoded => FND_API.G_FALSE,
3489: p_count => x_msg_count,
3490: p_data => x_msg_data);
3491: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3490: p_data => x_msg_data);
3491: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3492: ROLLBACK TO create_geo_identifier;
3493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3494: FND_MSG_PUB.Count_And_Get(
3495: p_encoded => FND_API.G_FALSE,
3496: p_count => x_msg_count,
3497: p_data => x_msg_data);
3498:
3502: HZ_UTILITY_V2PUB.find_index_name(p_index_name);
3503: IF p_index_name = 'HZ_GEOGRAPHY_IDENTIFIERS_U1' THEN
3504: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
3505: FND_MESSAGE.SET_TOKEN('COLUMN', 'geography_id,identifier_type,identifier_subtype,identifier_value,language_code');
3506: FND_MSG_PUB.ADD;
3507: END IF;
3508: FND_MSG_PUB.Count_And_Get(
3509: p_encoded => FND_API.G_FALSE,
3510: p_count => x_msg_count,
3504: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
3505: FND_MESSAGE.SET_TOKEN('COLUMN', 'geography_id,identifier_type,identifier_subtype,identifier_value,language_code');
3506: FND_MSG_PUB.ADD;
3507: END IF;
3508: FND_MSG_PUB.Count_And_Get(
3509: p_encoded => FND_API.G_FALSE,
3510: p_count => x_msg_count,
3511: p_data => x_msg_data);
3512:
3514: ROLLBACK TO create_geo_identifier;
3515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3516: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3517: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3518: FND_MSG_PUB.ADD;
3519: FND_MSG_PUB.Count_And_Get(
3520: p_encoded => FND_API.G_FALSE,
3521: p_count => x_msg_count,
3522: p_data => x_msg_data);
3515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3516: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3517: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3518: FND_MSG_PUB.ADD;
3519: FND_MSG_PUB.Count_And_Get(
3520: p_encoded => FND_API.G_FALSE,
3521: p_count => x_msg_count,
3522: p_data => x_msg_data);
3523: END create_geo_identifier;
3573: SAVEPOINT update_geo_identifier;
3574:
3575: -- Initialize message list if p_init_msg_list is set to TRUE.
3576: IF FND_API.to_Boolean(p_init_msg_list) THEN
3577: FND_MSG_PUB.initialize;
3578: END IF;
3579:
3580: -- Initialize API return status to success.
3581: x_return_status := FND_API.G_RET_STS_SUCCESS;
3593: RAISE FND_API.G_EXC_ERROR;
3594: END IF;
3595:
3596: -- Standard call to get message count and if count is 1, get message info.
3597: FND_MSG_PUB.Count_And_Get(
3598: p_encoded => FND_API.G_FALSE,
3599: p_count => x_msg_count,
3600: p_data => x_msg_data);
3601:
3602: EXCEPTION
3603: WHEN FND_API.G_EXC_ERROR THEN
3604: ROLLBACK TO update_geo_identifier;
3605: x_return_status := FND_API.G_RET_STS_ERROR;
3606: FND_MSG_PUB.Count_And_Get(
3607: p_encoded => FND_API.G_FALSE,
3608: p_count => x_msg_count,
3609: p_data => x_msg_data);
3610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3609: p_data => x_msg_data);
3610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3611: ROLLBACK TO update_geo_identifier;
3612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3613: FND_MSG_PUB.Count_And_Get(
3614: p_encoded => FND_API.G_FALSE,
3615: p_count => x_msg_count,
3616: p_data => x_msg_data);
3617:
3619: ROLLBACK TO update_geo_identifier;
3620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3621: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3622: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3623: FND_MSG_PUB.ADD;
3624: FND_MSG_PUB.Count_And_Get(
3625: p_encoded => FND_API.G_FALSE,
3626: p_count => x_msg_count,
3627: p_data => x_msg_data);
3620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3621: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3622: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3623: FND_MSG_PUB.ADD;
3624: FND_MSG_PUB.Count_And_Get(
3625: p_encoded => FND_API.G_FALSE,
3626: p_count => x_msg_count,
3627: p_data => x_msg_data);
3628:
3678: SAVEPOINT delete_geo_identifier;
3679:
3680: -- Initialize message list if p_init_msg_list is set to TRUE.
3681: IF FND_API.to_Boolean(p_init_msg_list) THEN
3682: FND_MSG_PUB.initialize;
3683: END IF;
3684:
3685: -- Initialize API return status to success.
3686: x_return_status := FND_API.G_RET_STS_SUCCESS;
3700: RAISE FND_API.G_EXC_ERROR;
3701: END IF;
3702:
3703: -- Standard call to get message count and if count is 1, get message info.
3704: FND_MSG_PUB.Count_And_Get(
3705: p_encoded => FND_API.G_FALSE,
3706: p_count => x_msg_count,
3707: p_data => x_msg_data);
3708:
3709: EXCEPTION
3710: WHEN FND_API.G_EXC_ERROR THEN
3711: ROLLBACK TO delete_geo_identifier;
3712: x_return_status := FND_API.G_RET_STS_ERROR;
3713: FND_MSG_PUB.Count_And_Get(
3714: p_encoded => FND_API.G_FALSE,
3715: p_count => x_msg_count,
3716: p_data => x_msg_data);
3717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3716: p_data => x_msg_data);
3717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3718: ROLLBACK TO delete_geo_identifier;
3719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3720: FND_MSG_PUB.Count_And_Get(
3721: p_encoded => FND_API.G_FALSE,
3722: p_count => x_msg_count,
3723: p_data => x_msg_data);
3724:
3726: ROLLBACK TO delete_geo_identifier;
3727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3728: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3729: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3730: FND_MSG_PUB.ADD;
3731: FND_MSG_PUB.Count_And_Get(
3732: p_encoded => FND_API.G_FALSE,
3733: p_count => x_msg_count,
3734: p_data => x_msg_data);
3727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3728: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3729: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3730: FND_MSG_PUB.ADD;
3731: FND_MSG_PUB.Count_And_Get(
3732: p_encoded => FND_API.G_FALSE,
3733: p_count => x_msg_count,
3734: p_data => x_msg_data);
3735:
3782: --dbms_output.put_line('In the beginning of create_master_geography');
3783:
3784: -- Initialize message list if p_init_msg_list is set to TRUE.
3785: IF FND_API.to_Boolean(p_init_msg_list) THEN
3786: FND_MSG_PUB.initialize;
3787: END IF;
3788:
3789: -- Initialize API return status to success.
3790: x_return_status := FND_API.G_RET_STS_SUCCESS;
3802: RAISE FND_API.G_EXC_ERROR;
3803: END IF;
3804:
3805: -- Standard call to get message count and if count is 1, get message info.
3806: FND_MSG_PUB.Count_And_Get(
3807: p_encoded => FND_API.G_FALSE,
3808: p_count => x_msg_count,
3809: p_data => x_msg_data);
3810:
3811: EXCEPTION
3812: WHEN FND_API.G_EXC_ERROR THEN
3813: ROLLBACK TO create_master_geography;
3814: x_return_status := FND_API.G_RET_STS_ERROR;
3815: FND_MSG_PUB.Count_And_Get(
3816: p_encoded => FND_API.G_FALSE,
3817: p_count => x_msg_count,
3818: p_data => x_msg_data);
3819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3818: p_data => x_msg_data);
3819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3820: ROLLBACK TO create_master_geography;
3821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3822: FND_MSG_PUB.Count_And_Get(
3823: p_encoded => FND_API.G_FALSE,
3824: p_count => x_msg_count,
3825: p_data => x_msg_data);
3826:
3828: ROLLBACK TO create_master_geography;
3829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3830: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3831: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3832: FND_MSG_PUB.ADD;
3833: FND_MSG_PUB.Count_And_Get(
3834: p_encoded => FND_API.G_FALSE,
3835: p_count => x_msg_count,
3836: p_data => x_msg_data);
3829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3830: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3831: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3832: FND_MSG_PUB.ADD;
3833: FND_MSG_PUB.Count_And_Get(
3834: p_encoded => FND_API.G_FALSE,
3835: p_count => x_msg_count,
3836: p_data => x_msg_data);
3837:
3886: SAVEPOINT update_geography;
3887:
3888: -- Initialize message list if p_init_msg_list is set to TRUE.
3889: IF FND_API.to_Boolean(p_init_msg_list) THEN
3890: FND_MSG_PUB.initialize;
3891: END IF;
3892:
3893: -- Initialize API return status to success.
3894: x_return_status := FND_API.G_RET_STS_SUCCESS;
3908: RAISE FND_API.G_EXC_ERROR;
3909: END IF;
3910:
3911: -- Standard call to get message count and if count is 1, get message info.
3912: FND_MSG_PUB.Count_And_Get(
3913: p_encoded => FND_API.G_FALSE,
3914: p_count => x_msg_count,
3915: p_data => x_msg_data);
3916:
3917: EXCEPTION
3918: WHEN FND_API.G_EXC_ERROR THEN
3919: ROLLBACK TO update_geography;
3920: x_return_status := FND_API.G_RET_STS_ERROR;
3921: FND_MSG_PUB.Count_And_Get(
3922: p_encoded => FND_API.G_FALSE,
3923: p_count => x_msg_count,
3924: p_data => x_msg_data);
3925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3924: p_data => x_msg_data);
3925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3926: ROLLBACK TO update_geography;
3927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3928: FND_MSG_PUB.Count_And_Get(
3929: p_encoded => FND_API.G_FALSE,
3930: p_count => x_msg_count,
3931: p_data => x_msg_data);
3932:
3934: ROLLBACK TO update_geography;
3935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3936: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3937: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3938: FND_MSG_PUB.ADD;
3939: FND_MSG_PUB.Count_And_Get(
3940: p_encoded => FND_API.G_FALSE,
3941: p_count => x_msg_count,
3942: p_data => x_msg_data);
3935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3936: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3937: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3938: FND_MSG_PUB.ADD;
3939: FND_MSG_PUB.Count_And_Get(
3940: p_encoded => FND_API.G_FALSE,
3941: p_count => x_msg_count,
3942: p_data => x_msg_data);
3943:
3989: --dbms_output.put_line('In the beginning of create_master_geography');
3990:
3991: -- Initialize message list if p_init_msg_list is set to TRUE.
3992: IF FND_API.to_Boolean(p_init_msg_list) THEN
3993: FND_MSG_PUB.initialize;
3994: END IF;
3995:
3996: -- Initialize API return status to success.
3997: x_return_status := FND_API.G_RET_STS_SUCCESS;
4008: RAISE FND_API.G_EXC_ERROR;
4009: END IF;
4010:
4011: -- Standard call to get message count and if count is 1, get message info.
4012: FND_MSG_PUB.Count_And_Get(
4013: p_encoded => FND_API.G_FALSE,
4014: p_count => x_msg_count,
4015: p_data => x_msg_data);
4016:
4017: EXCEPTION
4018: WHEN FND_API.G_EXC_ERROR THEN
4019: ROLLBACK TO create_geography_range;
4020: x_return_status := FND_API.G_RET_STS_ERROR;
4021: FND_MSG_PUB.Count_And_Get(
4022: p_encoded => FND_API.G_FALSE,
4023: p_count => x_msg_count,
4024: p_data => x_msg_data);
4025: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4024: p_data => x_msg_data);
4025: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4026: ROLLBACK TO create_geography_range;
4027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4028: FND_MSG_PUB.Count_And_Get(
4029: p_encoded => FND_API.G_FALSE,
4030: p_count => x_msg_count,
4031: p_data => x_msg_data);
4032:
4036: HZ_UTILITY_V2PUB.find_index_name(p_index_name);
4037: IF p_index_name = 'HZ_GEOGRAPHY_RANGES_U1' THEN
4038: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
4039: FND_MESSAGE.SET_TOKEN('COLUMN', 'geography_id,geography_from and start_date');
4040: FND_MSG_PUB.ADD;
4041: END IF;
4042: FND_MSG_PUB.Count_And_Get(
4043: p_encoded => FND_API.G_FALSE,
4044: p_count => x_msg_count,
4038: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
4039: FND_MESSAGE.SET_TOKEN('COLUMN', 'geography_id,geography_from and start_date');
4040: FND_MSG_PUB.ADD;
4041: END IF;
4042: FND_MSG_PUB.Count_And_Get(
4043: p_encoded => FND_API.G_FALSE,
4044: p_count => x_msg_count,
4045: p_data => x_msg_data);
4046:
4048: ROLLBACK TO create_geography_range;
4049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4050: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4051: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4052: FND_MSG_PUB.ADD;
4053: FND_MSG_PUB.Count_And_Get(
4054: p_encoded => FND_API.G_FALSE,
4055: p_count => x_msg_count,
4056: p_data => x_msg_data);
4049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4050: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4051: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4052: FND_MSG_PUB.ADD;
4053: FND_MSG_PUB.Count_And_Get(
4054: p_encoded => FND_API.G_FALSE,
4055: p_count => x_msg_count,
4056: p_data => x_msg_data);
4057:
4109: SAVEPOINT update_geography_range;
4110:
4111: -- Initialize message list if p_init_msg_list is set to TRUE.
4112: IF FND_API.to_Boolean(p_init_msg_list) THEN
4113: FND_MSG_PUB.initialize;
4114: END IF;
4115:
4116: -- Initialize API return status to success.
4117: x_return_status := FND_API.G_RET_STS_SUCCESS;
4131: RAISE FND_API.G_EXC_ERROR;
4132: END IF;
4133:
4134: -- Standard call to get message count and if count is 1, get message info.
4135: FND_MSG_PUB.Count_And_Get(
4136: p_encoded => FND_API.G_FALSE,
4137: p_count => x_msg_count,
4138: p_data => x_msg_data);
4139:
4140: EXCEPTION
4141: WHEN FND_API.G_EXC_ERROR THEN
4142: ROLLBACK TO update_geography_range;
4143: x_return_status := FND_API.G_RET_STS_ERROR;
4144: FND_MSG_PUB.Count_And_Get(
4145: p_encoded => FND_API.G_FALSE,
4146: p_count => x_msg_count,
4147: p_data => x_msg_data);
4148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4147: p_data => x_msg_data);
4148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4149: ROLLBACK TO update_geography_range;
4150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4151: FND_MSG_PUB.Count_And_Get(
4152: p_encoded => FND_API.G_FALSE,
4153: p_count => x_msg_count,
4154: p_data => x_msg_data);
4155:
4157: ROLLBACK TO update_geography_range;
4158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4159: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4160: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4161: FND_MSG_PUB.ADD;
4162: FND_MSG_PUB.Count_And_Get(
4163: p_encoded => FND_API.G_FALSE,
4164: p_count => x_msg_count,
4165: p_data => x_msg_data);
4158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4159: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4160: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4161: FND_MSG_PUB.ADD;
4162: FND_MSG_PUB.Count_And_Get(
4163: p_encoded => FND_API.G_FALSE,
4164: p_count => x_msg_count,
4165: p_data => x_msg_data);
4166:
4214: --dbms_output.put_line('In the beginning of create_zone_relation');
4215:
4216: -- Initialize message list if p_init_msg_list is set to TRUE.
4217: IF FND_API.to_Boolean(p_init_msg_list) THEN
4218: FND_MSG_PUB.initialize;
4219: END IF;
4220:
4221: -- Initialize API return status to success.
4222: x_return_status := FND_API.G_RET_STS_SUCCESS;
4238:
4239: --dbms_output.put_line('after call to do_create '|| x_return_status);
4240:
4241: -- Standard call to get message count and if count is 1, get message info.
4242: FND_MSG_PUB.Count_And_Get(
4243: p_encoded => FND_API.G_FALSE,
4244: p_count => x_msg_count,
4245: p_data => x_msg_data);
4246:
4247: EXCEPTION
4248: WHEN FND_API.G_EXC_ERROR THEN
4249: ROLLBACK TO create_zone_relation;
4250: x_return_status := FND_API.G_RET_STS_ERROR;
4251: FND_MSG_PUB.Count_And_Get(
4252: p_encoded => FND_API.G_FALSE,
4253: p_count => x_msg_count,
4254: p_data => x_msg_data);
4255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4254: p_data => x_msg_data);
4255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4256: ROLLBACK TO create_zone_relation;
4257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4258: FND_MSG_PUB.Count_And_Get(
4259: p_encoded => FND_API.G_FALSE,
4260: p_count => x_msg_count,
4261: p_data => x_msg_data);
4262:
4264: ROLLBACK TO create_zone_relation;
4265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4266: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4267: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4268: FND_MSG_PUB.ADD;
4269: FND_MSG_PUB.Count_And_Get(
4270: p_encoded => FND_API.G_FALSE,
4271: p_count => x_msg_count,
4272: p_data => x_msg_data);
4265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4266: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4267: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4268: FND_MSG_PUB.ADD;
4269: FND_MSG_PUB.Count_And_Get(
4270: p_encoded => FND_API.G_FALSE,
4271: p_count => x_msg_count,
4272: p_data => x_msg_data);
4273:
4344: --dbms_output.put_line('In the beginning of create_zone');
4345:
4346: -- Initialize message list if p_init_msg_list is set to TRUE.
4347: IF FND_API.to_Boolean(p_init_msg_list) THEN
4348: FND_MSG_PUB.initialize;
4349: END IF;
4350:
4351: -- Initialize API return status to success.
4352: x_return_status := FND_API.G_RET_STS_SUCCESS;
4376: RAISE FND_API.G_EXC_ERROR;
4377: END IF;
4378:
4379: -- Standard call to get message count and if count is 1, get message info.
4380: FND_MSG_PUB.Count_And_Get(
4381: p_encoded => FND_API.G_FALSE,
4382: p_count => x_msg_count,
4383: p_data => x_msg_data);
4384:
4385: EXCEPTION
4386: WHEN FND_API.G_EXC_ERROR THEN
4387: ROLLBACK TO create_zone;
4388: x_return_status := FND_API.G_RET_STS_ERROR;
4389: FND_MSG_PUB.Count_And_Get(
4390: p_encoded => FND_API.G_FALSE,
4391: p_count => x_msg_count,
4392: p_data => x_msg_data);
4393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4392: p_data => x_msg_data);
4393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4394: ROLLBACK TO create_zone;
4395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4396: FND_MSG_PUB.Count_And_Get(
4397: p_encoded => FND_API.G_FALSE,
4398: p_count => x_msg_count,
4399: p_data => x_msg_data);
4400:
4402: ROLLBACK TO create_zone;
4403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4404: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4405: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4406: FND_MSG_PUB.ADD;
4407: FND_MSG_PUB.Count_And_Get(
4408: p_encoded => FND_API.G_FALSE,
4409: p_count => x_msg_count,
4410: p_data => x_msg_data);
4403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4404: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4405: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4406: FND_MSG_PUB.ADD;
4407: FND_MSG_PUB.Count_And_Get(
4408: p_encoded => FND_API.G_FALSE,
4409: p_count => x_msg_count,
4410: p_data => x_msg_data);
4411: END create_zone;