[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:
947: EXCEPTION WHEN NO_DATA_FOUND THEN
948: fnd_message.set_name('AR', 'HZ_GEO_NO_RECORD');
949: fnd_message.set_token('token1', 'relationship');
950: fnd_message.set_token('token1', 'relationship_id '||p_relationship_id);
951: fnd_msg_pub.add;
952: RAISE FND_API.G_EXC_ERROR;
953: END;
954:
955: --dbms_output.put_line('after master relation validation');
1009: EXCEPTION WHEN NO_DATA_FOUND THEN
1010: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NO_RECORD' );
1011: FND_MESSAGE.SET_TOKEN( 'TOKEN1', 'Relationship');
1012: FND_MESSAGE.SET_TOKEN( 'TOKEN2', 'object_id '||l_geography_id||',object_type '||l_geography_type||' and relationship_type MASTER_REF');
1013: FND_MSG_PUB.ADD;
1014: RAISE FND_API.G_EXC_ERROR;
1015: END;
1016:
1017:
1019: IF (l_parent_count = 1 AND p_status = 'I') THEN
1020: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_SINGLE_PARENT' );
1021: FND_MESSAGE.SET_TOKEN( 'REL_ID', p_relationship_id);
1022: FND_MESSAGE.SET_TOKEN( 'GEO_ID', l_geography_id);
1023: FND_MSG_PUB.ADD;
1024: RAISE FND_API.G_EXC_ERROR;
1025: --l_update_flag := 'N';
1026: END IF;
1027: ----dbms_output.put_line ('parent_count '||to_char(l_parent_count));
1201: EXCEPTION when no_data_found THEN
1202: fnd_message.set_name('AR', 'HZ_GEO_NO_RECORD');
1203: fnd_message.set_token('TOKEN1','Geography record');
1204: fnd_message.set_token('TOKEN2','geography_id '||p_geo_identifier_rec.geography_id);
1205: fnd_msg_pub.add;
1206: RAISE FND_API.G_EXC_ERROR;
1207: END;
1208:
1209: IF l_geography_use = 'MASTER_REF' THEN
1255:
1256: IF l_count > 0 THEN
1257: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_DUP_COUNTRY_IDEN');
1258: FND_MESSAGE.SET_TOKEN('IDEN_VAL', p_geo_identifier_rec.identifier_value);
1259: FND_MSG_PUB.ADD;
1260: x_return_status := fnd_api.g_ret_sts_error;
1261: RAISE FND_API.G_EXC_ERROR;
1262: END IF;
1263: END IF;
1268: IF (p_geo_identifier_rec.identifier_type = 'NAME' AND p_geo_identifier_rec.primary_flag = 'Y') THEN
1269: IF p_geo_identifier_rec.identifier_subtype <> 'STANDARD_NAME' THEN
1270: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_INVALID_SUBTYPE' );
1271: FND_MESSAGE.SET_TOKEN( 'SUBTYPE', p_geo_identifier_rec.identifier_subtype);
1272: FND_MSG_PUB.ADD;
1273: x_return_status := FND_API.G_RET_STS_ERROR;
1274: RAISE FND_API.G_EXC_ERROR;
1275: END IF;
1276: END IF;
1377: --dbms_output.put_line('in the error');
1378: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_RECORD');
1379: FND_MESSAGE.SET_TOKEN('TOKEN1', 'geography structure level');
1380: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_id: '||to_char(l_count)||',country_code: '||l_country_code||',geography_type: '||l_geography_type);
1381: FND_MSG_PUB.ADD;
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: END;
1384: END IF;
1385:
1522: --validate object_version_number
1523: IF l_object_version_number <> p_object_version_number THEN
1524: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1525: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_geography_identifiers');
1526: FND_MSG_PUB.ADD;
1527: RAISE FND_API.G_EXC_ERROR;
1528: ELSE
1529: p_object_version_number := l_object_version_number + 1;
1530: END IF;
1534: FND_MESSAGE.SET_TOKEN('TOKEN1', 'geography_identifier');
1535: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_id: '||p_geo_identifier_rec.geography_id||', identifier_type: '||
1536: p_geo_identifier_rec.identifier_type||', identifier_subtype: '||p_geo_identifier_rec.identifier_subtype||', identifier_value: '||
1537: p_geo_identifier_rec.identifier_value||', language_code: '||p_geo_identifier_rec.language_code);
1538: FND_MSG_PUB.ADD;
1539: RAISE FND_API.G_EXC_ERROR;
1540: END;
1541:
1542: -- Validate new subtype. Update only if valid and geo type is CODE.
1565: IF (p_geo_identifier_rec.new_identifier_subtype <> 'STANDARD_NAME') THEN
1566: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
1567: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'identifier_subtype' );
1568: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'HZ_GEO_IDENTIFIER_SUBTYPE' );
1569: FND_MSG_PUB.ADD;
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: END IF;
1572: l_subtype_updated := 'Y';
1573: ELSE -- new geo subtype is null (i.e. no need to update), use the old subtype
1621: FND_MESSAGE.SET_TOKEN('IDENT_TYPE', 'NAME');
1622: FND_MESSAGE.SET_TOKEN('VALUE', l_new_geo_value);
1623: FND_MESSAGE.SET_TOKEN('GEO_ID', p_geo_identifier_rec.geography_id);
1624: FND_MESSAGE.SET_TOKEN('PARENT_GEO_ID', l_get_all_parents.subject_id);
1625: FND_MSG_PUB.ADD;
1626: x_return_status := fnd_api.g_ret_sts_error;
1627: RAISE FND_API.G_EXC_ERROR;
1628: EXIT;
1629: END IF;
1650: FND_MESSAGE.SET_TOKEN('IDENT_TYPE', 'CODE');
1651: FND_MESSAGE.SET_TOKEN('VALUE', l_new_geo_value);
1652: FND_MESSAGE.SET_TOKEN('GEO_ID', p_geo_identifier_rec.geography_id);
1653: FND_MESSAGE.SET_TOKEN('PARENT_GEO_ID', l_get_all_parents.subject_id);
1654: FND_MSG_PUB.ADD;
1655: x_return_status := fnd_api.g_ret_sts_error;
1656: RAISE FND_API.G_EXC_ERROR;
1657: EXIT;
1658: END IF;
1672:
1673: IF l_count > 0 THEN
1674: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_DUP_COUNTRY_IDEN');
1675: FND_MESSAGE.SET_TOKEN('IDEN_VAL', l_new_geo_value);
1676: FND_MSG_PUB.ADD;
1677: x_return_status := fnd_api.g_ret_sts_error;
1678: RAISE FND_API.G_EXC_ERROR;
1679: END IF;
1680:
1686: --do not allow the updation of primary_flag from 'Y' to 'N'
1687: IF (l_old_primary_flag = 'Y' AND p_geo_identifier_rec.primary_flag = 'N') THEN
1688: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
1689: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'primary_flag from Y to N');
1690: FND_MSG_PUB.ADD;
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1692: RAISE FND_API.G_EXC_ERROR;
1693: END IF;
1694:
1810:
1811: IF l_primary_flag = 'Y' THEN
1812: l_delete_flag := 'N';
1813: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NONDELETEABLE' );
1814: FND_MSG_PUB.ADD;
1815: x_return_status := FND_API.G_RET_STS_ERROR;
1816: RAISE FND_API.G_EXC_ERROR;
1817: END IF;
1818:
1856: FND_MESSAGE.SET_TOKEN('TOKEN1', 'geography_identifier');
1857: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_id: '||p_geography_id||', identifier_type: '||
1858: p_identifier_type||', identifier_subtype: '||p_identifier_subtype||', identifier_value: '||
1859: p_identifier_value||', language_code: '||p_language_code);
1860: FND_MSG_PUB.ADD;
1861: RAISE FND_API.G_EXC_ERROR;
1862:
1863: END do_delete_geo_identifier;
1864:
2130: --validate object_version_number
2131: IF l_object_version_number <> p_object_version_number THEN
2132: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
2133: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_geographies');
2134: FND_MSG_PUB.ADD;
2135: RAISE FND_API.G_EXC_ERROR;
2136: ELSE
2137: p_object_version_number := l_object_version_number + 1;
2138: END IF;
2140: EXCEPTION WHEN NO_DATA_FOUND THEN
2141: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_RECORD');
2142: FND_MESSAGE.SET_TOKEN('TOKEN1','geography');
2143: FND_MESSAGE.SET_TOKEN('TOKEN2', 'geography_id '||p_geography_id);
2144: FND_MSG_PUB.ADD;
2145: RAISE FND_API.G_EXC_ERROR;
2146: END;
2147: --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')||'*');
2148: --dbms_output.put_line('After date validation '|| x_return_status);
2181: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
2182: fnd_message.set_token('FK', 'timezone_code');
2183: fnd_message.set_token('COLUMN','timezone_code');
2184: fnd_message.set_token('TABLE','FND_TIMEZONES_B');
2185: fnd_msg_pub.add;
2186: RAISE FND_API.G_EXC_ERROR;
2187: END IF;
2188: END IF;
2189: --dbms_output.put_line('After date validation '|| x_return_status);
2489:
2490: IF l_count > 0 THEN
2491: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_DUPLICATE_COLUMN' );
2492: FND_MESSAGE.SET_TOKEN( 'COLUMN','geography_id, geography_from, start_date');
2493: FND_MSG_PUB.ADD;
2494: RAISE FND_API.G_EXC_ERROR;
2495: END IF; */
2496:
2497:
2601: --validate object_version_number
2602: IF l_object_version_number <> p_object_version_number THEN
2603: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
2604: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_geography_ranges');
2605: FND_MSG_PUB.ADD;
2606: RAISE FND_API.G_EXC_ERROR;
2607: ELSE
2608: p_object_version_number := l_object_version_number + 1;
2609: END IF;
2611: EXCEPTION WHEN NO_DATA_FOUND THEN
2612: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NO_RECORD' );
2613: FND_MESSAGE.SET_TOKEN( 'TOKEN1', 'Geography Range');
2614: FND_MESSAGE.SET_TOKEN( 'TOKEN2', 'geography_id '||p_geography_id||', geography_from '||p_geography_from||', start_date '||p_start_date);
2615: FND_MSG_PUB.ADD;
2616: RAISE FND_API.G_EXC_ERROR;
2617:
2618: END;
2619: -- check if start_date <= end_date
2747: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NO_RELATIONSHIP');
2748: FND_MESSAGE.SET_TOKEN( 'INCL_GEO_ID',p_zone_relation_tbl(i).included_geography_id);
2749: FND_MESSAGE.SET_TOKEN( 'LIM_GEO_ID', l_limited_by_geography_id );
2750: FND_MESSAGE.SET_TOKEN( 'ZONE_TYPE', l_zone_type);
2751: FND_MSG_PUB.ADD;
2752: RAISE FND_API.G_EXC_ERROR;
2753: END;
2754: END IF;
2755:
2807: IF l_count > 0 THEN
2808: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_OVERLAPPING_GEOGS' );
2809: FND_MESSAGE.SET_TOKEN( 'GEO_ID',p_zone_relation_tbl(i).included_geography_id );
2810: FND_MESSAGE.SET_TOKEN( 'ZONE_TYPE', l_zone_type);
2811: FND_MSG_PUB.ADD;
2812: RAISE FND_API.G_EXC_ERROR;
2813: EXIT;
2814: END IF;
2815:
2828: IF l_count > 0 THEN
2829: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_DUPL_INCL_GEO_ID' );
2830: FND_MESSAGE.SET_TOKEN( 'GEO_ID',p_zone_relation_tbl(i).included_geography_id );
2831: FND_MESSAGE.SET_TOKEN( 'ZONE_ID', p_geography_id);
2832: FND_MSG_PUB.ADD;
2833: RAISE FND_API.G_EXC_ERROR;
2834: EXIT;
2835: END IF;
2836:
2975: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
2976: fnd_message.set_token('FK', 'geography_type');
2977: fnd_message.set_token('COLUMN','zone_type');
2978: fnd_message.set_token('TABLE','HZ_GEOGRAPHY_TYPES_B');
2979: fnd_msg_pub.add;
2980: RAISE FND_API.G_EXC_ERROR;
2981: END;
2982:
2983: -- zone_name must be unique with in a zone_type
2989:
2990: IF l_count > 0 THEN
2991: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_DUPLICATE_COLUMN' );
2992: FND_MESSAGE.SET_TOKEN( 'COLUMN','zone name');
2993: FND_MSG_PUB.ADD;
2994: RAISE FND_API.G_EXC_ERROR;
2995: END IF;
2996:
2997: -- zone_code must be unique within a zone_type
3005:
3006: IF l_count > 0 THEN
3007: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_DUPLICATE_COLUMN' );
3008: FND_MESSAGE.SET_TOKEN( 'COLUMN','zone code');
3009: FND_MSG_PUB.ADD;
3010: RAISE FND_API.G_EXC_ERROR;
3011: END IF;
3012: END IF;
3013:
3014: -- zone_code_type is mandatory if zone_code is NOT NULL
3015: IF (p_zone_code IS NOT NULL AND p_zone_code_type IS NULL) THEN
3016: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3017: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'zone_code_type' );
3018: FND_MSG_PUB.ADD;
3019: RAISE FND_API.G_EXC_ERROR;
3020: END IF;
3021:
3022:
3031: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
3032: fnd_message.set_token('FK', 'timezone_code');
3033: fnd_message.set_token('COLUMN','timezone_code');
3034: fnd_message.set_token('TABLE','FND_TIMEZONES_B');
3035: fnd_msg_pub.add;
3036: RAISE FND_API.G_EXC_ERROR;
3037: END IF;
3038: END IF;
3039:
3039:
3040: -- there must be atleast one included geography for a zone
3041: IF p_zone_relation_tbl.count = 0 THEN
3042: fnd_message.set_name('AR', 'HZ_GEO_NO_INCL_GEOGRAPHIES');
3043: fnd_msg_pub.add;
3044: RAISE FND_API.G_EXC_ERROR;
3045: END IF;
3046:
3047: -- get country code of one of the included_geography_id of this zone_type
3060: EXCEPTION WHEN NO_DATA_FOUND THEN
3061: FND_MESSAGE.SET_NAME( 'AR', 'HZ_GEO_NO_RECORD');
3062: FND_MESSAGE.SET_TOKEN( 'TOKEN1','country code');
3063: FND_MESSAGE.SET_TOKEN( 'TOKEN2', 'included_geography_id '||p_zone_relation_tbl(i).included_geography_id);
3064: FND_MSG_PUB.ADD;
3065: RAISE FND_API.G_EXC_ERROR;
3066: EXIT;
3067: END;
3068: END IF;
3265: SAVEPOINT create_master_relation;
3266:
3267: -- Initialize message list if p_init_msg_list is set to TRUE.
3268: IF FND_API.to_Boolean(p_init_msg_list) THEN
3269: FND_MSG_PUB.initialize;
3270: END IF;
3271:
3272: -- Initialize API return status to success.
3273: x_return_status := FND_API.G_RET_STS_SUCCESS;
3285: END IF;
3286:
3287: --g_dup_checked := 'N';
3288: -- Standard call to get message count and if count is 1, get message info.
3289: FND_MSG_PUB.Count_And_Get(
3290: p_encoded => FND_API.G_FALSE,
3291: p_count => x_msg_count,
3292: p_data => x_msg_data);
3293:
3295: WHEN FND_API.G_EXC_ERROR THEN
3296: g_dup_checked := 'N';
3297: ROLLBACK TO create_master_relation;
3298: x_return_status := FND_API.G_RET_STS_ERROR;
3299: FND_MSG_PUB.Count_And_Get(
3300: p_encoded => FND_API.G_FALSE,
3301: p_count => x_msg_count,
3302: p_data => x_msg_data);
3303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3304: --g_dup_checked := 'N';
3305: ROLLBACK TO create_master_relation;
3306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3307: FND_MSG_PUB.Count_And_Get(
3308: p_encoded => FND_API.G_FALSE,
3309: p_count => x_msg_count,
3310: p_data => x_msg_data);
3311:
3314: ROLLBACK TO create_master_relation;
3315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3316: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3317: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3318: FND_MSG_PUB.ADD;
3319: FND_MSG_PUB.Count_And_Get(
3320: p_encoded => FND_API.G_FALSE,
3321: p_count => x_msg_count,
3322: p_data => x_msg_data);
3315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3316: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3317: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3318: FND_MSG_PUB.ADD;
3319: FND_MSG_PUB.Count_And_Get(
3320: p_encoded => FND_API.G_FALSE,
3321: p_count => x_msg_count,
3322: p_data => x_msg_data);
3323:
3369: SAVEPOINT update_relationship;
3370:
3371: -- Initialize message list if p_init_msg_list is set to TRUE.
3372: IF FND_API.to_Boolean(p_init_msg_list) THEN
3373: FND_MSG_PUB.initialize;
3374: END IF;
3375:
3376: -- Initialize API return status to success.
3377: x_return_status := FND_API.G_RET_STS_SUCCESS;
3389: RAISE FND_API.G_EXC_ERROR;
3390: END IF;
3391:
3392: -- Standard call to get message count and if count is 1, get message info.
3393: FND_MSG_PUB.Count_And_Get(
3394: p_encoded => FND_API.G_FALSE,
3395: p_count => x_msg_count,
3396: p_data => x_msg_data);
3397:
3398: EXCEPTION
3399: WHEN FND_API.G_EXC_ERROR THEN
3400: ROLLBACK TO update_relationship;
3401: x_return_status := FND_API.G_RET_STS_ERROR;
3402: FND_MSG_PUB.Count_And_Get(
3403: p_encoded => FND_API.G_FALSE,
3404: p_count => x_msg_count,
3405: p_data => x_msg_data);
3406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3405: p_data => x_msg_data);
3406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3407: ROLLBACK TO update_relationship;
3408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3409: FND_MSG_PUB.Count_And_Get(
3410: p_encoded => FND_API.G_FALSE,
3411: p_count => x_msg_count,
3412: p_data => x_msg_data);
3413:
3415: ROLLBACK TO update_relationship;
3416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3417: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3418: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3419: FND_MSG_PUB.ADD;
3420: FND_MSG_PUB.Count_And_Get(
3421: p_encoded => FND_API.G_FALSE,
3422: p_count => x_msg_count,
3423: p_data => x_msg_data);
3416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3417: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3418: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3419: FND_MSG_PUB.ADD;
3420: FND_MSG_PUB.Count_And_Get(
3421: p_encoded => FND_API.G_FALSE,
3422: p_count => x_msg_count,
3423: p_data => x_msg_data);
3424:
3469: SAVEPOINT create_geo_identifier;
3470:
3471: -- Initialize message list if p_init_msg_list is set to TRUE.
3472: IF FND_API.to_Boolean(p_init_msg_list) THEN
3473: FND_MSG_PUB.initialize;
3474: END IF;
3475:
3476: -- Initialize API return status to success.
3477: x_return_status := FND_API.G_RET_STS_SUCCESS;
3487: RAISE FND_API.G_EXC_ERROR;
3488: END IF;
3489:
3490: -- Standard call to get message count and if count is 1, get message info.
3491: FND_MSG_PUB.Count_And_Get(
3492: p_encoded => FND_API.G_FALSE,
3493: p_count => x_msg_count,
3494: p_data => x_msg_data);
3495:
3496: EXCEPTION
3497: WHEN FND_API.G_EXC_ERROR THEN
3498: ROLLBACK TO create_geo_identifier;
3499: x_return_status := FND_API.G_RET_STS_ERROR;
3500: FND_MSG_PUB.Count_And_Get(
3501: p_encoded => FND_API.G_FALSE,
3502: p_count => x_msg_count,
3503: p_data => x_msg_data);
3504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3503: p_data => x_msg_data);
3504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3505: ROLLBACK TO create_geo_identifier;
3506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3507: FND_MSG_PUB.Count_And_Get(
3508: p_encoded => FND_API.G_FALSE,
3509: p_count => x_msg_count,
3510: p_data => x_msg_data);
3511:
3515: HZ_UTILITY_V2PUB.find_index_name(p_index_name);
3516: IF p_index_name = 'HZ_GEOGRAPHY_IDENTIFIERS_U1' THEN
3517: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
3518: FND_MESSAGE.SET_TOKEN('COLUMN', 'geography_id,identifier_type,identifier_subtype,identifier_value,language_code');
3519: FND_MSG_PUB.ADD;
3520: END IF;
3521: FND_MSG_PUB.Count_And_Get(
3522: p_encoded => FND_API.G_FALSE,
3523: p_count => x_msg_count,
3517: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
3518: FND_MESSAGE.SET_TOKEN('COLUMN', 'geography_id,identifier_type,identifier_subtype,identifier_value,language_code');
3519: FND_MSG_PUB.ADD;
3520: END IF;
3521: FND_MSG_PUB.Count_And_Get(
3522: p_encoded => FND_API.G_FALSE,
3523: p_count => x_msg_count,
3524: p_data => x_msg_data);
3525:
3527: ROLLBACK TO create_geo_identifier;
3528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3529: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3530: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3531: FND_MSG_PUB.ADD;
3532: FND_MSG_PUB.Count_And_Get(
3533: p_encoded => FND_API.G_FALSE,
3534: p_count => x_msg_count,
3535: p_data => x_msg_data);
3528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3529: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3530: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3531: FND_MSG_PUB.ADD;
3532: FND_MSG_PUB.Count_And_Get(
3533: p_encoded => FND_API.G_FALSE,
3534: p_count => x_msg_count,
3535: p_data => x_msg_data);
3536: END create_geo_identifier;
3586: SAVEPOINT update_geo_identifier;
3587:
3588: -- Initialize message list if p_init_msg_list is set to TRUE.
3589: IF FND_API.to_Boolean(p_init_msg_list) THEN
3590: FND_MSG_PUB.initialize;
3591: END IF;
3592:
3593: -- Initialize API return status to success.
3594: x_return_status := FND_API.G_RET_STS_SUCCESS;
3606: RAISE FND_API.G_EXC_ERROR;
3607: END IF;
3608:
3609: -- Standard call to get message count and if count is 1, get message info.
3610: FND_MSG_PUB.Count_And_Get(
3611: p_encoded => FND_API.G_FALSE,
3612: p_count => x_msg_count,
3613: p_data => x_msg_data);
3614:
3615: EXCEPTION
3616: WHEN FND_API.G_EXC_ERROR THEN
3617: ROLLBACK TO update_geo_identifier;
3618: x_return_status := FND_API.G_RET_STS_ERROR;
3619: FND_MSG_PUB.Count_And_Get(
3620: p_encoded => FND_API.G_FALSE,
3621: p_count => x_msg_count,
3622: p_data => x_msg_data);
3623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3622: p_data => x_msg_data);
3623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3624: ROLLBACK TO update_geo_identifier;
3625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3626: FND_MSG_PUB.Count_And_Get(
3627: p_encoded => FND_API.G_FALSE,
3628: p_count => x_msg_count,
3629: p_data => x_msg_data);
3630:
3632: ROLLBACK TO update_geo_identifier;
3633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3634: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3635: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3636: FND_MSG_PUB.ADD;
3637: FND_MSG_PUB.Count_And_Get(
3638: p_encoded => FND_API.G_FALSE,
3639: p_count => x_msg_count,
3640: p_data => x_msg_data);
3633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3634: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3635: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3636: FND_MSG_PUB.ADD;
3637: FND_MSG_PUB.Count_And_Get(
3638: p_encoded => FND_API.G_FALSE,
3639: p_count => x_msg_count,
3640: p_data => x_msg_data);
3641:
3691: SAVEPOINT delete_geo_identifier;
3692:
3693: -- Initialize message list if p_init_msg_list is set to TRUE.
3694: IF FND_API.to_Boolean(p_init_msg_list) THEN
3695: FND_MSG_PUB.initialize;
3696: END IF;
3697:
3698: -- Initialize API return status to success.
3699: x_return_status := FND_API.G_RET_STS_SUCCESS;
3713: RAISE FND_API.G_EXC_ERROR;
3714: END IF;
3715:
3716: -- Standard call to get message count and if count is 1, get message info.
3717: FND_MSG_PUB.Count_And_Get(
3718: p_encoded => FND_API.G_FALSE,
3719: p_count => x_msg_count,
3720: p_data => x_msg_data);
3721:
3722: EXCEPTION
3723: WHEN FND_API.G_EXC_ERROR THEN
3724: ROLLBACK TO delete_geo_identifier;
3725: x_return_status := FND_API.G_RET_STS_ERROR;
3726: FND_MSG_PUB.Count_And_Get(
3727: p_encoded => FND_API.G_FALSE,
3728: p_count => x_msg_count,
3729: p_data => x_msg_data);
3730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3729: p_data => x_msg_data);
3730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3731: ROLLBACK TO delete_geo_identifier;
3732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3733: FND_MSG_PUB.Count_And_Get(
3734: p_encoded => FND_API.G_FALSE,
3735: p_count => x_msg_count,
3736: p_data => x_msg_data);
3737:
3739: ROLLBACK TO delete_geo_identifier;
3740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3741: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3742: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3743: FND_MSG_PUB.ADD;
3744: FND_MSG_PUB.Count_And_Get(
3745: p_encoded => FND_API.G_FALSE,
3746: p_count => x_msg_count,
3747: p_data => x_msg_data);
3740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3741: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3742: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3743: FND_MSG_PUB.ADD;
3744: FND_MSG_PUB.Count_And_Get(
3745: p_encoded => FND_API.G_FALSE,
3746: p_count => x_msg_count,
3747: p_data => x_msg_data);
3748:
3795: --dbms_output.put_line('In the beginning of create_master_geography');
3796:
3797: -- Initialize message list if p_init_msg_list is set to TRUE.
3798: IF FND_API.to_Boolean(p_init_msg_list) THEN
3799: FND_MSG_PUB.initialize;
3800: END IF;
3801:
3802: -- Initialize API return status to success.
3803: x_return_status := FND_API.G_RET_STS_SUCCESS;
3815: RAISE FND_API.G_EXC_ERROR;
3816: END IF;
3817:
3818: -- Standard call to get message count and if count is 1, get message info.
3819: FND_MSG_PUB.Count_And_Get(
3820: p_encoded => FND_API.G_FALSE,
3821: p_count => x_msg_count,
3822: p_data => x_msg_data);
3823:
3824: EXCEPTION
3825: WHEN FND_API.G_EXC_ERROR THEN
3826: ROLLBACK TO create_master_geography;
3827: x_return_status := FND_API.G_RET_STS_ERROR;
3828: FND_MSG_PUB.Count_And_Get(
3829: p_encoded => FND_API.G_FALSE,
3830: p_count => x_msg_count,
3831: p_data => x_msg_data);
3832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3831: p_data => x_msg_data);
3832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3833: ROLLBACK TO create_master_geography;
3834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3835: FND_MSG_PUB.Count_And_Get(
3836: p_encoded => FND_API.G_FALSE,
3837: p_count => x_msg_count,
3838: p_data => x_msg_data);
3839:
3841: ROLLBACK TO create_master_geography;
3842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3843: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3844: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3845: FND_MSG_PUB.ADD;
3846: FND_MSG_PUB.Count_And_Get(
3847: p_encoded => FND_API.G_FALSE,
3848: p_count => x_msg_count,
3849: p_data => x_msg_data);
3842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3843: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3844: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3845: FND_MSG_PUB.ADD;
3846: FND_MSG_PUB.Count_And_Get(
3847: p_encoded => FND_API.G_FALSE,
3848: p_count => x_msg_count,
3849: p_data => x_msg_data);
3850:
3899: SAVEPOINT update_geography;
3900:
3901: -- Initialize message list if p_init_msg_list is set to TRUE.
3902: IF FND_API.to_Boolean(p_init_msg_list) THEN
3903: FND_MSG_PUB.initialize;
3904: END IF;
3905:
3906: -- Initialize API return status to success.
3907: x_return_status := FND_API.G_RET_STS_SUCCESS;
3921: RAISE FND_API.G_EXC_ERROR;
3922: END IF;
3923:
3924: -- Standard call to get message count and if count is 1, get message info.
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: EXCEPTION
3931: WHEN FND_API.G_EXC_ERROR THEN
3932: ROLLBACK TO update_geography;
3933: x_return_status := FND_API.G_RET_STS_ERROR;
3934: FND_MSG_PUB.Count_And_Get(
3935: p_encoded => FND_API.G_FALSE,
3936: p_count => x_msg_count,
3937: p_data => x_msg_data);
3938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3937: p_data => x_msg_data);
3938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3939: ROLLBACK TO update_geography;
3940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3941: FND_MSG_PUB.Count_And_Get(
3942: p_encoded => FND_API.G_FALSE,
3943: p_count => x_msg_count,
3944: p_data => x_msg_data);
3945:
3947: ROLLBACK TO update_geography;
3948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3949: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3950: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3951: FND_MSG_PUB.ADD;
3952: FND_MSG_PUB.Count_And_Get(
3953: p_encoded => FND_API.G_FALSE,
3954: p_count => x_msg_count,
3955: p_data => x_msg_data);
3948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3949: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3950: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3951: FND_MSG_PUB.ADD;
3952: FND_MSG_PUB.Count_And_Get(
3953: p_encoded => FND_API.G_FALSE,
3954: p_count => x_msg_count,
3955: p_data => x_msg_data);
3956:
4002: --dbms_output.put_line('In the beginning of create_master_geography');
4003:
4004: -- Initialize message list if p_init_msg_list is set to TRUE.
4005: IF FND_API.to_Boolean(p_init_msg_list) THEN
4006: FND_MSG_PUB.initialize;
4007: END IF;
4008:
4009: -- Initialize API return status to success.
4010: x_return_status := FND_API.G_RET_STS_SUCCESS;
4021: RAISE FND_API.G_EXC_ERROR;
4022: END IF;
4023:
4024: -- Standard call to get message count and if count is 1, get message info.
4025: FND_MSG_PUB.Count_And_Get(
4026: p_encoded => FND_API.G_FALSE,
4027: p_count => x_msg_count,
4028: p_data => x_msg_data);
4029:
4030: EXCEPTION
4031: WHEN FND_API.G_EXC_ERROR THEN
4032: ROLLBACK TO create_geography_range;
4033: x_return_status := FND_API.G_RET_STS_ERROR;
4034: FND_MSG_PUB.Count_And_Get(
4035: p_encoded => FND_API.G_FALSE,
4036: p_count => x_msg_count,
4037: p_data => x_msg_data);
4038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4037: p_data => x_msg_data);
4038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4039: ROLLBACK TO create_geography_range;
4040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4041: FND_MSG_PUB.Count_And_Get(
4042: p_encoded => FND_API.G_FALSE,
4043: p_count => x_msg_count,
4044: p_data => x_msg_data);
4045:
4049: HZ_UTILITY_V2PUB.find_index_name(p_index_name);
4050: IF p_index_name = 'HZ_GEOGRAPHY_RANGES_U1' THEN
4051: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
4052: FND_MESSAGE.SET_TOKEN('COLUMN', 'geography_id,geography_from and start_date');
4053: FND_MSG_PUB.ADD;
4054: END IF;
4055: FND_MSG_PUB.Count_And_Get(
4056: p_encoded => FND_API.G_FALSE,
4057: p_count => x_msg_count,
4051: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
4052: FND_MESSAGE.SET_TOKEN('COLUMN', 'geography_id,geography_from and start_date');
4053: FND_MSG_PUB.ADD;
4054: END IF;
4055: FND_MSG_PUB.Count_And_Get(
4056: p_encoded => FND_API.G_FALSE,
4057: p_count => x_msg_count,
4058: p_data => x_msg_data);
4059:
4061: ROLLBACK TO create_geography_range;
4062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4063: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4064: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4065: FND_MSG_PUB.ADD;
4066: FND_MSG_PUB.Count_And_Get(
4067: p_encoded => FND_API.G_FALSE,
4068: p_count => x_msg_count,
4069: p_data => x_msg_data);
4062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4063: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4064: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4065: FND_MSG_PUB.ADD;
4066: FND_MSG_PUB.Count_And_Get(
4067: p_encoded => FND_API.G_FALSE,
4068: p_count => x_msg_count,
4069: p_data => x_msg_data);
4070:
4122: SAVEPOINT update_geography_range;
4123:
4124: -- Initialize message list if p_init_msg_list is set to TRUE.
4125: IF FND_API.to_Boolean(p_init_msg_list) THEN
4126: FND_MSG_PUB.initialize;
4127: END IF;
4128:
4129: -- Initialize API return status to success.
4130: x_return_status := FND_API.G_RET_STS_SUCCESS;
4144: RAISE FND_API.G_EXC_ERROR;
4145: END IF;
4146:
4147: -- Standard call to get message count and if count is 1, get message info.
4148: FND_MSG_PUB.Count_And_Get(
4149: p_encoded => FND_API.G_FALSE,
4150: p_count => x_msg_count,
4151: p_data => x_msg_data);
4152:
4153: EXCEPTION
4154: WHEN FND_API.G_EXC_ERROR THEN
4155: ROLLBACK TO update_geography_range;
4156: x_return_status := FND_API.G_RET_STS_ERROR;
4157: FND_MSG_PUB.Count_And_Get(
4158: p_encoded => FND_API.G_FALSE,
4159: p_count => x_msg_count,
4160: p_data => x_msg_data);
4161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4160: p_data => x_msg_data);
4161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4162: ROLLBACK TO update_geography_range;
4163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4164: FND_MSG_PUB.Count_And_Get(
4165: p_encoded => FND_API.G_FALSE,
4166: p_count => x_msg_count,
4167: p_data => x_msg_data);
4168:
4170: ROLLBACK TO update_geography_range;
4171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4172: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4173: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4174: FND_MSG_PUB.ADD;
4175: FND_MSG_PUB.Count_And_Get(
4176: p_encoded => FND_API.G_FALSE,
4177: p_count => x_msg_count,
4178: p_data => x_msg_data);
4171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4172: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4173: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4174: FND_MSG_PUB.ADD;
4175: FND_MSG_PUB.Count_And_Get(
4176: p_encoded => FND_API.G_FALSE,
4177: p_count => x_msg_count,
4178: p_data => x_msg_data);
4179:
4227: --dbms_output.put_line('In the beginning of create_zone_relation');
4228:
4229: -- Initialize message list if p_init_msg_list is set to TRUE.
4230: IF FND_API.to_Boolean(p_init_msg_list) THEN
4231: FND_MSG_PUB.initialize;
4232: END IF;
4233:
4234: -- Initialize API return status to success.
4235: x_return_status := FND_API.G_RET_STS_SUCCESS;
4251:
4252: --dbms_output.put_line('after call to do_create '|| x_return_status);
4253:
4254: -- Standard call to get message count and if count is 1, get message info.
4255: FND_MSG_PUB.Count_And_Get(
4256: p_encoded => FND_API.G_FALSE,
4257: p_count => x_msg_count,
4258: p_data => x_msg_data);
4259:
4260: EXCEPTION
4261: WHEN FND_API.G_EXC_ERROR THEN
4262: ROLLBACK TO create_zone_relation;
4263: x_return_status := FND_API.G_RET_STS_ERROR;
4264: FND_MSG_PUB.Count_And_Get(
4265: p_encoded => FND_API.G_FALSE,
4266: p_count => x_msg_count,
4267: p_data => x_msg_data);
4268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4267: p_data => x_msg_data);
4268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4269: ROLLBACK TO create_zone_relation;
4270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4271: FND_MSG_PUB.Count_And_Get(
4272: p_encoded => FND_API.G_FALSE,
4273: p_count => x_msg_count,
4274: p_data => x_msg_data);
4275:
4277: ROLLBACK TO create_zone_relation;
4278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4279: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4280: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4281: FND_MSG_PUB.ADD;
4282: FND_MSG_PUB.Count_And_Get(
4283: p_encoded => FND_API.G_FALSE,
4284: p_count => x_msg_count,
4285: p_data => x_msg_data);
4278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4279: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4280: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4281: FND_MSG_PUB.ADD;
4282: FND_MSG_PUB.Count_And_Get(
4283: p_encoded => FND_API.G_FALSE,
4284: p_count => x_msg_count,
4285: p_data => x_msg_data);
4286:
4357: --dbms_output.put_line('In the beginning of create_zone');
4358:
4359: -- Initialize message list if p_init_msg_list is set to TRUE.
4360: IF FND_API.to_Boolean(p_init_msg_list) THEN
4361: FND_MSG_PUB.initialize;
4362: END IF;
4363:
4364: -- Initialize API return status to success.
4365: x_return_status := FND_API.G_RET_STS_SUCCESS;
4389: RAISE FND_API.G_EXC_ERROR;
4390: END IF;
4391:
4392: -- Standard call to get message count and if count is 1, get message info.
4393: FND_MSG_PUB.Count_And_Get(
4394: p_encoded => FND_API.G_FALSE,
4395: p_count => x_msg_count,
4396: p_data => x_msg_data);
4397:
4398: EXCEPTION
4399: WHEN FND_API.G_EXC_ERROR THEN
4400: ROLLBACK TO create_zone;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4402: FND_MSG_PUB.Count_And_Get(
4403: p_encoded => FND_API.G_FALSE,
4404: p_count => x_msg_count,
4405: p_data => x_msg_data);
4406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4405: p_data => x_msg_data);
4406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4407: ROLLBACK TO create_zone;
4408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4409: FND_MSG_PUB.Count_And_Get(
4410: p_encoded => FND_API.G_FALSE,
4411: p_count => x_msg_count,
4412: p_data => x_msg_data);
4413:
4415: ROLLBACK TO create_zone;
4416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4417: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4418: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4419: FND_MSG_PUB.ADD;
4420: FND_MSG_PUB.Count_And_Get(
4421: p_encoded => FND_API.G_FALSE,
4422: p_count => x_msg_count,
4423: p_data => x_msg_data);
4416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4417: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4418: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4419: FND_MSG_PUB.ADD;
4420: FND_MSG_PUB.Count_And_Get(
4421: p_encoded => FND_API.G_FALSE,
4422: p_count => x_msg_count,
4423: p_data => x_msg_data);
4424: END create_zone;