[Home] [Help]
749: -- p_Terr_Values_Tbl Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl
750: --
751: -- Optional
752: -- Parameter Name Data Type Default
753: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
754: -- p_Commit VARCHAR2 := FND_API.G_FALSE
755: --
756: -- OUT NOCOPY :
757: -- Parameter Name Data Type
750: --
751: -- Optional
752: -- Parameter Name Data Type Default
753: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
754: -- p_Commit VARCHAR2 := FND_API.G_FALSE
755: --
756: -- OUT NOCOPY :
757: -- Parameter Name Data Type
758: -- x_Return_Status VARCHAR2(1)
771: -- End of Comments
772: --
773: PROCEDURE create_territory (
774: p_api_version_number IN NUMBER,
775: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
776: p_commit IN VARCHAR2 := fnd_api.g_false,
777: x_return_status OUT NOCOPY VARCHAR2,
778: x_msg_count OUT NOCOPY NUMBER,
779: x_msg_data OUT NOCOPY VARCHAR2,
772: --
773: PROCEDURE create_territory (
774: p_api_version_number IN NUMBER,
775: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
776: p_commit IN VARCHAR2 := fnd_api.g_false,
777: x_return_status OUT NOCOPY VARCHAR2,
778: x_msg_count OUT NOCOPY NUMBER,
779: x_msg_data OUT NOCOPY VARCHAR2,
780: p_terr_all_rec IN terr_all_rec_type
812: -- Standard Start of API savepoint
813: SAVEPOINT create_territory_pub;
814:
815: -- Standard call to check for call compatibility.
816: IF NOT fnd_api.compatible_api_call (
817: l_api_version_number,
818: p_api_version_number,
819: l_api_name,
820: g_pkg_name
819: l_api_name,
820: g_pkg_name
821: )
822: THEN
823: RAISE fnd_api.g_exc_unexpected_error;
824: END IF;
825:
826: -- Initialize message list if p_init_msg_list is set to TRUE.
827: IF fnd_api.to_boolean (p_init_msg_list)
823: RAISE fnd_api.g_exc_unexpected_error;
824: END IF;
825:
826: -- Initialize message list if p_init_msg_list is set to TRUE.
827: IF fnd_api.to_boolean (p_init_msg_list)
828: THEN
829: fnd_msg_pub.initialize;
830: END IF;
831:
837: fnd_msg_pub.add;
838: END IF;
839:
840: -- Initialize API return status to success
841: x_return_status := fnd_api.g_ret_sts_success;
842: --
843: -- API body
844: --
845: convert_terrrec_pubtopvt (
864: );
865: -- ******************************************************************
866: jtf_territory_pvt.create_territory (
867: p_api_version_number => 1.0,
868: p_init_msg_list => fnd_api.g_false,
869: p_commit => fnd_api.g_false,
870: p_validation_level => fnd_api.g_valid_level_full,
871: x_return_status => l_return_status,
872: x_msg_count => x_msg_count,
865: -- ******************************************************************
866: jtf_territory_pvt.create_territory (
867: p_api_version_number => 1.0,
868: p_init_msg_list => fnd_api.g_false,
869: p_commit => fnd_api.g_false,
870: p_validation_level => fnd_api.g_valid_level_full,
871: x_return_status => l_return_status,
872: x_msg_count => x_msg_count,
873: x_msg_data => x_msg_data,
866: jtf_territory_pvt.create_territory (
867: p_api_version_number => 1.0,
868: p_init_msg_list => fnd_api.g_false,
869: p_commit => fnd_api.g_false,
870: p_validation_level => fnd_api.g_valid_level_full,
871: x_return_status => l_return_status,
872: x_msg_count => x_msg_count,
873: x_msg_data => x_msg_data,
874: p_terr_all_rec => l_terr_rec,
899: x_terrvaluesout_tbl => x_terr_values_out_tbl
900: );
901: x_return_status := l_return_status;
902:
903: IF l_return_status = fnd_api.g_ret_sts_error
904: THEN
905: RAISE fnd_api.g_exc_error;
906: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
907: THEN
901: x_return_status := l_return_status;
902:
903: IF l_return_status = fnd_api.g_ret_sts_error
904: THEN
905: RAISE fnd_api.g_exc_error;
906: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
907: THEN
908: RAISE fnd_api.g_exc_unexpected_error;
909: END IF;
902:
903: IF l_return_status = fnd_api.g_ret_sts_error
904: THEN
905: RAISE fnd_api.g_exc_error;
906: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
907: THEN
908: RAISE fnd_api.g_exc_unexpected_error;
909: END IF;
910:
904: THEN
905: RAISE fnd_api.g_exc_error;
906: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
907: THEN
908: RAISE fnd_api.g_exc_unexpected_error;
909: END IF;
910:
911: --
912: -- End of API body.
912: -- End of API body.
913: --
914:
915: -- Standard check of p_commit.
916: IF fnd_api.to_boolean (p_commit)
917: THEN
918: COMMIT WORK;
919: END IF;
920:
928:
929: -- Standard call to get message count and if count is 1, get message info.
930: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
931: EXCEPTION
932: WHEN fnd_api.g_exc_error
933: THEN
934: ROLLBACK TO create_territory_pub;
935: x_return_status := fnd_api.g_ret_sts_error;
936: fnd_msg_pub.count_and_get (
931: EXCEPTION
932: WHEN fnd_api.g_exc_error
933: THEN
934: ROLLBACK TO create_territory_pub;
935: x_return_status := fnd_api.g_ret_sts_error;
936: fnd_msg_pub.count_and_get (
937: p_count => x_msg_count,
938: p_data => x_msg_data
939: );
936: fnd_msg_pub.count_and_get (
937: p_count => x_msg_count,
938: p_data => x_msg_data
939: );
940: WHEN fnd_api.g_exc_unexpected_error
941: THEN
942: ROLLBACK TO create_territory_pub;
943: x_return_status := fnd_api.g_ret_sts_unexp_error;
944: fnd_msg_pub.count_and_get (
939: );
940: WHEN fnd_api.g_exc_unexpected_error
941: THEN
942: ROLLBACK TO create_territory_pub;
943: x_return_status := fnd_api.g_ret_sts_unexp_error;
944: fnd_msg_pub.count_and_get (
945: p_count => x_msg_count,
946: p_data => x_msg_data
947: );
947: );
948: WHEN OTHERS
949: THEN
950: ROLLBACK TO create_territory_pub;
951: x_return_status := fnd_api.g_ret_sts_unexp_error;
952:
953: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
954: THEN
955: fnd_msg_pub.add_exc_msg (
984: -- p_Terr_Id NUMBER
985: --
986: -- Optional
987: -- Parameter Name Data Type Default
988: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
989: -- p_Commit VARCHAR2 FND_API.G_FALSE
990: --
991: -- OUT :
992: -- Parameter Name Data Type
985: --
986: -- Optional
987: -- Parameter Name Data Type Default
988: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
989: -- p_Commit VARCHAR2 FND_API.G_FALSE
990: --
991: -- OUT :
992: -- Parameter Name Data Type
993: -- p_Return_Status VARCHAR2(1)
1001: -- End of Comments
1002: --
1003: PROCEDURE delete_territory (
1004: p_api_version_number IN NUMBER,
1005: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1006: p_commit IN VARCHAR2 := fnd_api.g_false,
1007: x_return_status OUT NOCOPY VARCHAR2,
1008: x_msg_count OUT NOCOPY NUMBER,
1009: x_msg_data OUT NOCOPY VARCHAR2,
1002: --
1003: PROCEDURE delete_territory (
1004: p_api_version_number IN NUMBER,
1005: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1006: p_commit IN VARCHAR2 := fnd_api.g_false,
1007: x_return_status OUT NOCOPY VARCHAR2,
1008: x_msg_count OUT NOCOPY NUMBER,
1009: x_msg_data OUT NOCOPY VARCHAR2,
1010: p_terr_id IN NUMBER
1017: -- Standard Start of API savepoint
1018: SAVEPOINT delete_territory_pub;
1019:
1020: -- Standard call to check for call compatibility.
1021: IF NOT fnd_api.compatible_api_call (
1022: l_api_version_number,
1023: p_api_version_number,
1024: l_api_name,
1025: g_pkg_name
1024: l_api_name,
1025: g_pkg_name
1026: )
1027: THEN
1028: RAISE fnd_api.g_exc_unexpected_error;
1029: END IF;
1030:
1031: -- Initialize message list if p_init_msg_list is set to TRUE.
1032: IF fnd_api.to_boolean (p_init_msg_list)
1028: RAISE fnd_api.g_exc_unexpected_error;
1029: END IF;
1030:
1031: -- Initialize message list if p_init_msg_list is set to TRUE.
1032: IF fnd_api.to_boolean (p_init_msg_list)
1033: THEN
1034: fnd_msg_pub.initialize;
1035: END IF;
1036:
1042: fnd_msg_pub.add;
1043: END IF;
1044:
1045: -- Initialize API return status to success
1046: x_return_status := fnd_api.g_ret_sts_success;
1047: --
1048: -- API body
1049: --
1050: jtf_territory_pvt.delete_territory (
1058: );
1059: x_return_status := l_return_status;
1060:
1061: --
1062: IF l_return_status = fnd_api.g_ret_sts_error
1063: THEN
1064: RAISE fnd_api.g_exc_error;
1065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1066: THEN
1060:
1061: --
1062: IF l_return_status = fnd_api.g_ret_sts_error
1063: THEN
1064: RAISE fnd_api.g_exc_error;
1065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1066: THEN
1067: RAISE fnd_api.g_exc_unexpected_error;
1068: END IF;
1061: --
1062: IF l_return_status = fnd_api.g_ret_sts_error
1063: THEN
1064: RAISE fnd_api.g_exc_error;
1065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1066: THEN
1067: RAISE fnd_api.g_exc_unexpected_error;
1068: END IF;
1069:
1063: THEN
1064: RAISE fnd_api.g_exc_error;
1065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1066: THEN
1067: RAISE fnd_api.g_exc_unexpected_error;
1068: END IF;
1069:
1070: -- Standard check of p_commit.
1071: IF fnd_api.to_boolean (p_commit)
1067: RAISE fnd_api.g_exc_unexpected_error;
1068: END IF;
1069:
1070: -- Standard check of p_commit.
1071: IF fnd_api.to_boolean (p_commit)
1072: THEN
1073: COMMIT WORK;
1074: END IF;
1075:
1083:
1084: -- Standard call to get message count and if count is 1, get message info.
1085: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1086: EXCEPTION
1087: WHEN fnd_api.g_exc_error
1088: THEN
1089: ROLLBACK TO delete_territory_pub;
1090: x_return_status := fnd_api.g_ret_sts_error;
1091: fnd_msg_pub.count_and_get (
1086: EXCEPTION
1087: WHEN fnd_api.g_exc_error
1088: THEN
1089: ROLLBACK TO delete_territory_pub;
1090: x_return_status := fnd_api.g_ret_sts_error;
1091: fnd_msg_pub.count_and_get (
1092: p_count => x_msg_count,
1093: p_data => x_msg_data
1094: );
1091: fnd_msg_pub.count_and_get (
1092: p_count => x_msg_count,
1093: p_data => x_msg_data
1094: );
1095: WHEN fnd_api.g_exc_unexpected_error
1096: THEN
1097: ROLLBACK TO delete_territory_pub;
1098: x_return_status := fnd_api.g_ret_sts_unexp_error;
1099: fnd_msg_pub.count_and_get (
1094: );
1095: WHEN fnd_api.g_exc_unexpected_error
1096: THEN
1097: ROLLBACK TO delete_territory_pub;
1098: x_return_status := fnd_api.g_ret_sts_unexp_error;
1099: fnd_msg_pub.count_and_get (
1100: p_count => x_msg_count,
1101: p_data => x_msg_data
1102: );
1102: );
1103: WHEN OTHERS
1104: THEN
1105: ROLLBACK TO delete_territory_pub;
1106: x_return_status := fnd_api.g_ret_sts_unexp_error;
1107:
1108: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1109: THEN
1110: fnd_msg_pub.add_exc_msg (
1143: -- p_Terr_Values_Tbl Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl
1144: --
1145: -- Optional
1146: -- Parameter Name Data Type Default
1147: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
1148: -- p_Commit VARCHAR2 := FND_API.G_FALSE
1149: --
1150: -- OUT NOCOPY :
1151: -- Parameter Name Data Type
1144: --
1145: -- Optional
1146: -- Parameter Name Data Type Default
1147: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
1148: -- p_Commit VARCHAR2 := FND_API.G_FALSE
1149: --
1150: -- OUT NOCOPY :
1151: -- Parameter Name Data Type
1152: -- p_Return_Status VARCHAR2(1)
1165: -- End of Comments
1166: --
1167: PROCEDURE update_territory (
1168: p_api_version_number IN NUMBER,
1169: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1170: p_commit IN VARCHAR2 := fnd_api.g_false,
1171: x_return_status OUT NOCOPY VARCHAR2,
1172: x_msg_count OUT NOCOPY NUMBER,
1173: x_msg_data OUT NOCOPY VARCHAR2,
1166: --
1167: PROCEDURE update_territory (
1168: p_api_version_number IN NUMBER,
1169: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1170: p_commit IN VARCHAR2 := fnd_api.g_false,
1171: x_return_status OUT NOCOPY VARCHAR2,
1172: x_msg_count OUT NOCOPY NUMBER,
1173: x_msg_data OUT NOCOPY VARCHAR2,
1174: p_terr_all_rec IN terr_all_rec_type
1207: -- Standard Start of API savepoint
1208: SAVEPOINT upadate_territory_pub;
1209:
1210: -- Standard call to check for call compatibility.
1211: IF NOT fnd_api.compatible_api_call (
1212: l_api_version_number,
1213: p_api_version_number,
1214: l_api_name,
1215: g_pkg_name
1214: l_api_name,
1215: g_pkg_name
1216: )
1217: THEN
1218: RAISE fnd_api.g_exc_unexpected_error;
1219: END IF;
1220:
1221: -- Initialize message list if p_init_msg_list is set to TRUE.
1222: IF fnd_api.to_boolean (p_init_msg_list)
1218: RAISE fnd_api.g_exc_unexpected_error;
1219: END IF;
1220:
1221: -- Initialize message list if p_init_msg_list is set to TRUE.
1222: IF fnd_api.to_boolean (p_init_msg_list)
1223: THEN
1224: fnd_msg_pub.initialize;
1225: END IF;
1226:
1232: fnd_msg_pub.add;
1233: END IF;
1234:
1235: -- Initialize API return status to success
1236: x_return_status := fnd_api.g_ret_sts_success;
1237: --
1238: -- API body
1239: --
1240: --
1261: );
1262: --dbms_output.put_line('Update_Territory PUB: Before Calling JTF_TERRITORY_PVT.Update_Territory');
1263: jtf_territory_pvt.update_territory (
1264: p_api_version_number => 1.0,
1265: p_init_msg_list => fnd_api.g_false,
1266: p_commit => fnd_api.g_false,
1267: p_validation_level => fnd_api.g_valid_level_full,
1268: x_return_status => l_return_status,
1269: x_msg_count => x_msg_count,
1262: --dbms_output.put_line('Update_Territory PUB: Before Calling JTF_TERRITORY_PVT.Update_Territory');
1263: jtf_territory_pvt.update_territory (
1264: p_api_version_number => 1.0,
1265: p_init_msg_list => fnd_api.g_false,
1266: p_commit => fnd_api.g_false,
1267: p_validation_level => fnd_api.g_valid_level_full,
1268: x_return_status => l_return_status,
1269: x_msg_count => x_msg_count,
1270: x_msg_data => x_msg_data,
1263: jtf_territory_pvt.update_territory (
1264: p_api_version_number => 1.0,
1265: p_init_msg_list => fnd_api.g_false,
1266: p_commit => fnd_api.g_false,
1267: p_validation_level => fnd_api.g_valid_level_full,
1268: x_return_status => l_return_status,
1269: x_msg_count => x_msg_count,
1270: x_msg_data => x_msg_data,
1271: p_terr_all_rec => l_terr_rec,
1301: x_terrvaluesout_tbl => x_terr_values_out_tbl
1302: );
1303:
1304: --
1305: IF l_return_status <> fnd_api.g_ret_sts_success
1306: THEN
1307: RAISE fnd_api.g_exc_error;
1308: END IF;
1309:
1303:
1304: --
1305: IF l_return_status <> fnd_api.g_ret_sts_success
1306: THEN
1307: RAISE fnd_api.g_exc_error;
1308: END IF;
1309:
1310: -- Debug Message
1311: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1317:
1318: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1319:
1320: -- Standard check for p_commit
1321: IF fnd_api.to_boolean (p_commit)
1322: THEN
1323: COMMIT WORK;
1324: END IF;
1325: --dbms_output.put_line('Update_Territory PUB: Exiting API');
1325: --dbms_output.put_line('Update_Territory PUB: Exiting API');
1326: --
1327: EXCEPTION
1328: --
1329: WHEN fnd_api.g_exc_error
1330: THEN
1331: --dbms_output.put_line('Update_Territory PUB: FND_API.G_EXC_ERROR');
1332: ROLLBACK TO update_territory_pub;
1333: x_return_status := fnd_api.g_ret_sts_error;
1327: EXCEPTION
1328: --
1329: WHEN fnd_api.g_exc_error
1330: THEN
1331: --dbms_output.put_line('Update_Territory PUB: FND_API.G_EXC_ERROR');
1332: ROLLBACK TO update_territory_pub;
1333: x_return_status := fnd_api.g_ret_sts_error;
1334: fnd_msg_pub.count_and_get (
1335: p_count => x_msg_count,
1329: WHEN fnd_api.g_exc_error
1330: THEN
1331: --dbms_output.put_line('Update_Territory PUB: FND_API.G_EXC_ERROR');
1332: ROLLBACK TO update_territory_pub;
1333: x_return_status := fnd_api.g_ret_sts_error;
1334: fnd_msg_pub.count_and_get (
1335: p_count => x_msg_count,
1336: p_data => x_msg_data
1337: );
1334: fnd_msg_pub.count_and_get (
1335: p_count => x_msg_count,
1336: p_data => x_msg_data
1337: );
1338: WHEN fnd_api.g_exc_unexpected_error
1339: THEN
1340: --dbms_output.put_line('Update_Territory PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
1341: ROLLBACK TO update_territory_pub;
1342: x_return_status := fnd_api.g_ret_sts_unexp_error;
1336: p_data => x_msg_data
1337: );
1338: WHEN fnd_api.g_exc_unexpected_error
1339: THEN
1340: --dbms_output.put_line('Update_Territory PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
1341: ROLLBACK TO update_territory_pub;
1342: x_return_status := fnd_api.g_ret_sts_unexp_error;
1343: fnd_msg_pub.count_and_get (
1344: p_count => x_msg_count,
1338: WHEN fnd_api.g_exc_unexpected_error
1339: THEN
1340: --dbms_output.put_line('Update_Territory PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
1341: ROLLBACK TO update_territory_pub;
1342: x_return_status := fnd_api.g_ret_sts_unexp_error;
1343: fnd_msg_pub.count_and_get (
1344: p_count => x_msg_count,
1345: p_data => x_msg_data
1346: );
1347: WHEN OTHERS
1348: THEN
1349: --dbms_output.put_line('Update_Territory PUB: OTHERS - ' || SQLERRM);
1350: ROLLBACK TO update_territory_pub;
1351: x_return_status := fnd_api.g_ret_sts_unexp_error;
1352:
1353: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1354: THEN
1355: fnd_msg_pub.add_exc_msg (
1383: -- p_Terr_Id NUMBER
1384: --
1385: -- Optional
1386: -- Parameter Name Data Type Default
1387: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
1388: -- p_Commit VARCHAR2 FND_API.G_FALSE
1389: --
1390: -- OUT NOCOPY :
1391: -- Parameter Name Data Type
1384: --
1385: -- Optional
1386: -- Parameter Name Data Type Default
1387: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
1388: -- p_Commit VARCHAR2 FND_API.G_FALSE
1389: --
1390: -- OUT NOCOPY :
1391: -- Parameter Name Data Type
1392: -- x_Return_Status VARCHAR2(1)
1400: -- End of Comments
1401: --
1402: PROCEDURE deactivate_territory (
1403: p_api_version_number IN NUMBER,
1404: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1405: p_commit IN VARCHAR2 := fnd_api.g_false,
1406: x_return_status OUT NOCOPY VARCHAR2,
1407: x_msg_count OUT NOCOPY NUMBER,
1408: x_msg_data OUT NOCOPY VARCHAR2,
1401: --
1402: PROCEDURE deactivate_territory (
1403: p_api_version_number IN NUMBER,
1404: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1405: p_commit IN VARCHAR2 := fnd_api.g_false,
1406: x_return_status OUT NOCOPY VARCHAR2,
1407: x_msg_count OUT NOCOPY NUMBER,
1408: x_msg_data OUT NOCOPY VARCHAR2,
1409: p_terr_id IN NUMBER
1416: -- Standard Start of API savepoint
1417: SAVEPOINT deactivate_territory_pub;
1418:
1419: -- Standard call to check for call compatibility.
1420: IF NOT fnd_api.compatible_api_call (
1421: l_api_version_number,
1422: p_api_version_number,
1423: l_api_name,
1424: g_pkg_name
1423: l_api_name,
1424: g_pkg_name
1425: )
1426: THEN
1427: RAISE fnd_api.g_exc_unexpected_error;
1428: END IF;
1429:
1430: -- Initialize message list if p_init_msg_list is set to TRUE.
1431: IF fnd_api.to_boolean (p_init_msg_list)
1427: RAISE fnd_api.g_exc_unexpected_error;
1428: END IF;
1429:
1430: -- Initialize message list if p_init_msg_list is set to TRUE.
1431: IF fnd_api.to_boolean (p_init_msg_list)
1432: THEN
1433: fnd_msg_pub.initialize;
1434: END IF;
1435:
1441: fnd_msg_pub.add;
1442: END IF;
1443:
1444: -- Initialize API return status to success
1445: x_return_status := fnd_api.g_ret_sts_success;
1446: --
1447: -- API body
1448: --
1449: jtf_territory_pvt.deactivate_territory (
1457: );
1458: x_return_status := l_return_status;
1459:
1460: --
1461: IF l_return_status = fnd_api.g_ret_sts_error
1462: THEN
1463: RAISE fnd_api.g_exc_error;
1464: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1465: THEN
1459:
1460: --
1461: IF l_return_status = fnd_api.g_ret_sts_error
1462: THEN
1463: RAISE fnd_api.g_exc_error;
1464: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1465: THEN
1466: RAISE fnd_api.g_exc_unexpected_error;
1467: END IF;
1460: --
1461: IF l_return_status = fnd_api.g_ret_sts_error
1462: THEN
1463: RAISE fnd_api.g_exc_error;
1464: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1465: THEN
1466: RAISE fnd_api.g_exc_unexpected_error;
1467: END IF;
1468:
1462: THEN
1463: RAISE fnd_api.g_exc_error;
1464: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1465: THEN
1466: RAISE fnd_api.g_exc_unexpected_error;
1467: END IF;
1468:
1469: -- Standard check of p_commit.
1470: IF fnd_api.to_boolean (p_commit)
1466: RAISE fnd_api.g_exc_unexpected_error;
1467: END IF;
1468:
1469: -- Standard check of p_commit.
1470: IF fnd_api.to_boolean (p_commit)
1471: THEN
1472: COMMIT WORK;
1473: END IF;
1474:
1482:
1483: -- Standard call to get message count and if count is 1, get message info.
1484: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1485: EXCEPTION
1486: WHEN fnd_api.g_exc_error
1487: THEN
1488: ROLLBACK TO deactivate_territory_pub;
1489: x_return_status := fnd_api.g_ret_sts_error;
1490: fnd_msg_pub.count_and_get (
1485: EXCEPTION
1486: WHEN fnd_api.g_exc_error
1487: THEN
1488: ROLLBACK TO deactivate_territory_pub;
1489: x_return_status := fnd_api.g_ret_sts_error;
1490: fnd_msg_pub.count_and_get (
1491: p_count => x_msg_count,
1492: p_data => x_msg_data
1493: );
1490: fnd_msg_pub.count_and_get (
1491: p_count => x_msg_count,
1492: p_data => x_msg_data
1493: );
1494: WHEN fnd_api.g_exc_unexpected_error
1495: THEN
1496: ROLLBACK TO deactivate_territory_pub;
1497: x_return_status := fnd_api.g_ret_sts_unexp_error;
1498: fnd_msg_pub.count_and_get (
1493: );
1494: WHEN fnd_api.g_exc_unexpected_error
1495: THEN
1496: ROLLBACK TO deactivate_territory_pub;
1497: x_return_status := fnd_api.g_ret_sts_unexp_error;
1498: fnd_msg_pub.count_and_get (
1499: p_count => x_msg_count,
1500: p_data => x_msg_data
1501: );
1501: );
1502: WHEN OTHERS
1503: THEN
1504: ROLLBACK TO deactivate_territory_pub;
1505: x_return_status := fnd_api.g_ret_sts_unexp_error;
1506:
1507: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1508: THEN
1509: fnd_msg_pub.add_exc_msg (
1538: -- p_TerrRsc_Access_Tbl TerrRsc_Access_tbl_type := G_MISS_TERRRSC_ACCESS_TBL
1539: --
1540: -- Optional
1541: -- Parameter Name Data Type Default
1542: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
1543: -- p_Commit VARCHAR2 := FND_API.G_FALSE
1544: --
1545: -- OUT NOCOPY :
1546: -- Parameter Name Data Type
1539: --
1540: -- Optional
1541: -- Parameter Name Data Type Default
1542: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
1543: -- p_Commit VARCHAR2 := FND_API.G_FALSE
1544: --
1545: -- OUT NOCOPY :
1546: -- Parameter Name Data Type
1547: -- x_Return_Status VARCHAR2(1)
1557: -- End of Comments
1558: --
1559: PROCEDURE create_terrresource (
1560: p_api_version_number IN NUMBER,
1561: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1562: p_commit IN VARCHAR2 := fnd_api.g_false,
1563: x_return_status OUT NOCOPY VARCHAR2,
1564: x_msg_count OUT NOCOPY NUMBER,
1565: x_msg_data OUT NOCOPY VARCHAR2,
1558: --
1559: PROCEDURE create_terrresource (
1560: p_api_version_number IN NUMBER,
1561: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1562: p_commit IN VARCHAR2 := fnd_api.g_false,
1563: x_return_status OUT NOCOPY VARCHAR2,
1564: x_msg_count OUT NOCOPY NUMBER,
1565: x_msg_data OUT NOCOPY VARCHAR2,
1566: p_terrrsc_tbl IN terrresource_tbl_type
1584: -- Standard Start of API savepoint
1585: SAVEPOINT create_terrresource_pub;
1586:
1587: -- Standard call to check for call compatibility.
1588: IF NOT fnd_api.compatible_api_call (
1589: l_api_version_number,
1590: p_api_version_number,
1591: l_api_name,
1592: g_pkg_name
1591: l_api_name,
1592: g_pkg_name
1593: )
1594: THEN
1595: RAISE fnd_api.g_exc_unexpected_error;
1596: END IF;
1597:
1598: -- Initialize message list if p_init_msg_list is set to TRUE.
1599: IF fnd_api.to_boolean (p_init_msg_list)
1595: RAISE fnd_api.g_exc_unexpected_error;
1596: END IF;
1597:
1598: -- Initialize message list if p_init_msg_list is set to TRUE.
1599: IF fnd_api.to_boolean (p_init_msg_list)
1600: THEN
1601: fnd_msg_pub.initialize;
1602: END IF;
1603:
1609: fnd_msg_pub.add;
1610: END IF;
1611:
1612: -- Initialize API return status to success
1613: x_return_status := fnd_api.g_ret_sts_success;
1614: -- Convert incomming data from public to private Tbl format
1615: convert_terrrsc_pubtopvt (
1616: p_terrrsc_tbl => p_terrrsc_tbl,
1617: x_terrrsc_tbl => l_terrrsc_tbl
1624: -- API body
1625: --
1626: jtf_territory_resource_pvt.create_terrresource (
1627: p_api_version_number => 1.0,
1628: p_init_msg_list => fnd_api.g_false,
1629: p_commit => fnd_api.g_false,
1630: p_validation_level => fnd_api.g_valid_level_full,
1631: x_return_status => l_return_status,
1632: x_msg_count => x_msg_count,
1625: --
1626: jtf_territory_resource_pvt.create_terrresource (
1627: p_api_version_number => 1.0,
1628: p_init_msg_list => fnd_api.g_false,
1629: p_commit => fnd_api.g_false,
1630: p_validation_level => fnd_api.g_valid_level_full,
1631: x_return_status => l_return_status,
1632: x_msg_count => x_msg_count,
1633: x_msg_data => x_msg_data,
1626: jtf_territory_resource_pvt.create_terrresource (
1627: p_api_version_number => 1.0,
1628: p_init_msg_list => fnd_api.g_false,
1629: p_commit => fnd_api.g_false,
1630: p_validation_level => fnd_api.g_valid_level_full,
1631: x_return_status => l_return_status,
1632: x_msg_count => x_msg_count,
1633: x_msg_data => x_msg_data,
1634: p_terrrsc_tbl => l_terrrsc_tbl,
1645: x_terrrscaccout_tbl => x_terrrsc_access_out_tbl
1646: );
1647: x_return_status := l_return_status;
1648:
1649: IF l_return_status = fnd_api.g_ret_sts_error
1650: THEN
1651: RAISE fnd_api.g_exc_error;
1652: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1653: THEN
1647: x_return_status := l_return_status;
1648:
1649: IF l_return_status = fnd_api.g_ret_sts_error
1650: THEN
1651: RAISE fnd_api.g_exc_error;
1652: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1653: THEN
1654: RAISE fnd_api.g_exc_unexpected_error;
1655: END IF;
1648:
1649: IF l_return_status = fnd_api.g_ret_sts_error
1650: THEN
1651: RAISE fnd_api.g_exc_error;
1652: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1653: THEN
1654: RAISE fnd_api.g_exc_unexpected_error;
1655: END IF;
1656:
1650: THEN
1651: RAISE fnd_api.g_exc_error;
1652: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1653: THEN
1654: RAISE fnd_api.g_exc_unexpected_error;
1655: END IF;
1656:
1657: --
1658: -- End of API body.
1658: -- End of API body.
1659: --
1660:
1661: -- Standard check of p_commit.
1662: IF fnd_api.to_boolean (p_commit)
1663: THEN
1664: COMMIT WORK;
1665: END IF;
1666:
1674:
1675: -- Standard call to get message count and if count is 1, get message info.
1676: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1677: EXCEPTION
1678: WHEN fnd_api.g_exc_error
1679: THEN
1680: ROLLBACK TO create_terrresource_pub;
1681: x_return_status := fnd_api.g_ret_sts_error;
1682: fnd_msg_pub.count_and_get (
1677: EXCEPTION
1678: WHEN fnd_api.g_exc_error
1679: THEN
1680: ROLLBACK TO create_terrresource_pub;
1681: x_return_status := fnd_api.g_ret_sts_error;
1682: fnd_msg_pub.count_and_get (
1683: p_count => x_msg_count,
1684: p_data => x_msg_data
1685: );
1683: p_count => x_msg_count,
1684: p_data => x_msg_data
1685: );
1686:
1687: WHEN fnd_api.g_exc_unexpected_error
1688: THEN
1689: ROLLBACK TO create_terrresource_pub;
1690: x_return_status := fnd_api.g_ret_sts_unexp_error;
1691: fnd_msg_pub.count_and_get (
1686:
1687: WHEN fnd_api.g_exc_unexpected_error
1688: THEN
1689: ROLLBACK TO create_terrresource_pub;
1690: x_return_status := fnd_api.g_ret_sts_unexp_error;
1691: fnd_msg_pub.count_and_get (
1692: p_count => x_msg_count,
1693: p_data => x_msg_data
1694: );
1695:
1696: WHEN OTHERS
1697: THEN
1698: ROLLBACK TO create_terrresource_pub;
1699: x_return_status := fnd_api.g_ret_sts_unexp_error;
1700:
1701: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1702: THEN
1703: fnd_msg_pub.add_exc_msg (
1732: -- p_TerrRsc_Id NUMBER
1733: --
1734: -- Optional
1735: -- Parameter Name Data Type Default
1736: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
1737: -- p_Commit VARCHAR2 FND_API.G_FALSE
1738: --
1739: -- OUT NOCOPY :
1740: -- Parameter Name Data Type
1733: --
1734: -- Optional
1735: -- Parameter Name Data Type Default
1736: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
1737: -- p_Commit VARCHAR2 FND_API.G_FALSE
1738: --
1739: -- OUT NOCOPY :
1740: -- Parameter Name Data Type
1741: -- p_Return_Status VARCHAR2(1)
1749: -- End of Comments
1750: --
1751: PROCEDURE delete_terrresource (
1752: p_api_version_number IN NUMBER,
1753: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1754: p_commit IN VARCHAR2 := fnd_api.g_false,
1755: x_return_status OUT NOCOPY VARCHAR2,
1756: x_msg_count OUT NOCOPY NUMBER,
1757: x_msg_data OUT NOCOPY VARCHAR2,
1750: --
1751: PROCEDURE delete_terrresource (
1752: p_api_version_number IN NUMBER,
1753: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1754: p_commit IN VARCHAR2 := fnd_api.g_false,
1755: x_return_status OUT NOCOPY VARCHAR2,
1756: x_msg_count OUT NOCOPY NUMBER,
1757: x_msg_data OUT NOCOPY VARCHAR2,
1758: p_terrrsc_id IN NUMBER
1765: -- Standard Start of API savepoint
1766: SAVEPOINT delete_terrresource_pub;
1767:
1768: -- Standard call to check for call compatibility.
1769: IF NOT fnd_api.compatible_api_call (
1770: l_api_version_number,
1771: p_api_version_number,
1772: l_api_name,
1773: g_pkg_name
1772: l_api_name,
1773: g_pkg_name
1774: )
1775: THEN
1776: RAISE fnd_api.g_exc_unexpected_error;
1777: END IF;
1778:
1779: -- Initialize message list if p_init_msg_list is set to TRUE.
1780: IF fnd_api.to_boolean (p_init_msg_list)
1776: RAISE fnd_api.g_exc_unexpected_error;
1777: END IF;
1778:
1779: -- Initialize message list if p_init_msg_list is set to TRUE.
1780: IF fnd_api.to_boolean (p_init_msg_list)
1781: THEN
1782: fnd_msg_pub.initialize;
1783: END IF;
1784:
1790: fnd_msg_pub.add;
1791: END IF;
1792:
1793: -- Initialize API return status to success
1794: x_return_status := fnd_api.g_ret_sts_success;
1795: --
1796: -- API body
1797: --
1798: jtf_territory_resource_pvt.delete_terr_resource (
1798: jtf_territory_resource_pvt.delete_terr_resource (
1799: p_api_version_number => p_api_version_number,
1800: p_init_msg_list => p_init_msg_list,
1801: p_commit => p_commit,
1802: p_validation_level => fnd_api.g_valid_level_full,
1803: x_return_status => x_return_status,
1804: x_msg_count => x_msg_count,
1805: x_msg_data => x_msg_data,
1806: p_terrrsc_id => p_terrrsc_id
1807: );
1808: x_return_status := l_return_status;
1809:
1810: --
1811: IF l_return_status = fnd_api.g_ret_sts_error
1812: THEN
1813: RAISE fnd_api.g_exc_error;
1814: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1815: THEN
1809:
1810: --
1811: IF l_return_status = fnd_api.g_ret_sts_error
1812: THEN
1813: RAISE fnd_api.g_exc_error;
1814: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1815: THEN
1816: RAISE fnd_api.g_exc_unexpected_error;
1817: END IF;
1810: --
1811: IF l_return_status = fnd_api.g_ret_sts_error
1812: THEN
1813: RAISE fnd_api.g_exc_error;
1814: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1815: THEN
1816: RAISE fnd_api.g_exc_unexpected_error;
1817: END IF;
1818:
1812: THEN
1813: RAISE fnd_api.g_exc_error;
1814: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1815: THEN
1816: RAISE fnd_api.g_exc_unexpected_error;
1817: END IF;
1818:
1819: -- Standard check of p_commit.
1820: IF fnd_api.to_boolean (p_commit)
1816: RAISE fnd_api.g_exc_unexpected_error;
1817: END IF;
1818:
1819: -- Standard check of p_commit.
1820: IF fnd_api.to_boolean (p_commit)
1821: THEN
1822: COMMIT WORK;
1823: END IF;
1824:
1832:
1833: -- Standard call to get message count and if count is 1, get message info.
1834: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1835: EXCEPTION
1836: WHEN fnd_api.g_exc_error
1837: THEN
1838: ROLLBACK TO delete_terrresource_pub;
1839: x_return_status := fnd_api.g_ret_sts_error;
1840: fnd_msg_pub.count_and_get (
1835: EXCEPTION
1836: WHEN fnd_api.g_exc_error
1837: THEN
1838: ROLLBACK TO delete_terrresource_pub;
1839: x_return_status := fnd_api.g_ret_sts_error;
1840: fnd_msg_pub.count_and_get (
1841: p_count => x_msg_count,
1842: p_data => x_msg_data
1843: );
1840: fnd_msg_pub.count_and_get (
1841: p_count => x_msg_count,
1842: p_data => x_msg_data
1843: );
1844: WHEN fnd_api.g_exc_unexpected_error
1845: THEN
1846: ROLLBACK TO delete_terrresource_pub;
1847: x_return_status := fnd_api.g_ret_sts_unexp_error;
1848: fnd_msg_pub.count_and_get (
1843: );
1844: WHEN fnd_api.g_exc_unexpected_error
1845: THEN
1846: ROLLBACK TO delete_terrresource_pub;
1847: x_return_status := fnd_api.g_ret_sts_unexp_error;
1848: fnd_msg_pub.count_and_get (
1849: p_count => x_msg_count,
1850: p_data => x_msg_data
1851: );
1851: );
1852: WHEN OTHERS
1853: THEN
1854: ROLLBACK TO delete_terrresource_pub;
1855: x_return_status := fnd_api.g_ret_sts_unexp_error;
1856:
1857: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1858: THEN
1859: fnd_msg_pub.add_exc_msg (
1888: -- p_TerrRsc_Access_Tbl TerrRsc_Access_tbl_type := G_MISS_TERRRSC_ACCESS_TBL
1889: --
1890: -- Optional
1891: -- Parameter Name Data Type Default
1892: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
1893: -- p_Commit VARCHAR2 := FND_API.G_FALSE
1894: --
1895: -- OUT NOCOPY :
1896: -- Parameter Name Data Type
1889: --
1890: -- Optional
1891: -- Parameter Name Data Type Default
1892: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
1893: -- p_Commit VARCHAR2 := FND_API.G_FALSE
1894: --
1895: -- OUT NOCOPY :
1896: -- Parameter Name Data Type
1897: -- x_Return_Status VARCHAR2(1)
1907: -- End of Comments
1908: --
1909: PROCEDURE update_terrresource (
1910: p_api_version_number IN NUMBER,
1911: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1912: p_commit IN VARCHAR2 := fnd_api.g_false,
1913: x_return_status OUT NOCOPY VARCHAR2,
1914: x_msg_count OUT NOCOPY NUMBER,
1915: x_msg_data OUT NOCOPY VARCHAR2,
1908: --
1909: PROCEDURE update_terrresource (
1910: p_api_version_number IN NUMBER,
1911: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1912: p_commit IN VARCHAR2 := fnd_api.g_false,
1913: x_return_status OUT NOCOPY VARCHAR2,
1914: x_msg_count OUT NOCOPY NUMBER,
1915: x_msg_data OUT NOCOPY VARCHAR2,
1916: p_terrrsc_tbl IN terrresource_tbl_type
1934: -- Standard Start of API savepoint
1935: SAVEPOINT upadate_terrresource_pub;
1936:
1937: -- Standard call to check for call compatibility.
1938: IF NOT fnd_api.compatible_api_call (
1939: l_api_version_number,
1940: p_api_version_number,
1941: l_api_name,
1942: g_pkg_name
1941: l_api_name,
1942: g_pkg_name
1943: )
1944: THEN
1945: RAISE fnd_api.g_exc_unexpected_error;
1946: END IF;
1947:
1948: -- Initialize message list if p_init_msg_list is set to TRUE.
1949: IF fnd_api.to_boolean (p_init_msg_list)
1945: RAISE fnd_api.g_exc_unexpected_error;
1946: END IF;
1947:
1948: -- Initialize message list if p_init_msg_list is set to TRUE.
1949: IF fnd_api.to_boolean (p_init_msg_list)
1950: THEN
1951: fnd_msg_pub.initialize;
1952: END IF;
1953:
1959: fnd_msg_pub.add;
1960: END IF;
1961:
1962: -- Initialize API return status to success
1963: x_return_status := fnd_api.g_ret_sts_success;
1964: --
1965: -- API body
1966: --
1967: -- Convert incomming data from public to private Tbl format
1975: );
1976: --
1977: jtf_territory_resource_pvt.update_terrresource (
1978: p_api_version_number => 1.0,
1979: p_init_msg_list => fnd_api.g_false,
1980: p_commit => fnd_api.g_false,
1981: p_validation_level => fnd_api.g_valid_level_full,
1982: x_return_status => l_return_status,
1983: x_msg_count => x_msg_count,
1976: --
1977: jtf_territory_resource_pvt.update_terrresource (
1978: p_api_version_number => 1.0,
1979: p_init_msg_list => fnd_api.g_false,
1980: p_commit => fnd_api.g_false,
1981: p_validation_level => fnd_api.g_valid_level_full,
1982: x_return_status => l_return_status,
1983: x_msg_count => x_msg_count,
1984: x_msg_data => x_msg_data,
1977: jtf_territory_resource_pvt.update_terrresource (
1978: p_api_version_number => 1.0,
1979: p_init_msg_list => fnd_api.g_false,
1980: p_commit => fnd_api.g_false,
1981: p_validation_level => fnd_api.g_valid_level_full,
1982: x_return_status => l_return_status,
1983: x_msg_count => x_msg_count,
1984: x_msg_data => x_msg_data,
1985: p_terrrsc_tbl => l_terrrsc_tbl,
1996: x_terrrscaccout_tbl => x_terrrsc_access_out_tbl
1997: );
1998:
1999: --
2000: IF l_return_status <> fnd_api.g_ret_sts_success
2001: THEN
2002: RAISE fnd_api.g_exc_error;
2003: END IF;
2004:
1998:
1999: --
2000: IF l_return_status <> fnd_api.g_ret_sts_success
2001: THEN
2002: RAISE fnd_api.g_exc_error;
2003: END IF;
2004:
2005: -- Debug Message
2006: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
2012:
2013: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2014:
2015: -- Standard check for p_commit
2016: IF fnd_api.to_boolean (p_commit)
2017: THEN
2018: COMMIT WORK;
2019: END IF;
2020: --
2019: END IF;
2020: --
2021: EXCEPTION
2022: --
2023: WHEN fnd_api.g_exc_error
2024: THEN
2025: ROLLBACK TO update_terrresource_pub;
2026: x_return_status := fnd_api.g_ret_sts_error;
2027: fnd_msg_pub.count_and_get (
2022: --
2023: WHEN fnd_api.g_exc_error
2024: THEN
2025: ROLLBACK TO update_terrresource_pub;
2026: x_return_status := fnd_api.g_ret_sts_error;
2027: fnd_msg_pub.count_and_get (
2028: p_count => x_msg_count,
2029: p_data => x_msg_data
2030: );
2027: fnd_msg_pub.count_and_get (
2028: p_count => x_msg_count,
2029: p_data => x_msg_data
2030: );
2031: WHEN fnd_api.g_exc_unexpected_error
2032: THEN
2033: ROLLBACK TO update_terrresource_pub;
2034: x_return_status := fnd_api.g_ret_sts_unexp_error;
2035: fnd_msg_pub.count_and_get (
2030: );
2031: WHEN fnd_api.g_exc_unexpected_error
2032: THEN
2033: ROLLBACK TO update_terrresource_pub;
2034: x_return_status := fnd_api.g_ret_sts_unexp_error;
2035: fnd_msg_pub.count_and_get (
2036: p_count => x_msg_count,
2037: p_data => x_msg_data
2038: );
2039:
2040: WHEN OTHERS
2041: THEN
2042: ROLLBACK TO update_terrresource_pub;
2043: x_return_status := fnd_api.g_ret_sts_unexp_error;
2044:
2045: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2046: THEN
2047: fnd_msg_pub.add_exc_msg (