794: | |
795: +===========================================================================*/
796: PROCEDURE update_remit(
797: p_api_version IN NUMBER ,
798: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
799: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
800: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
801: x_return_status OUT NOCOPY VARCHAR2 ,
802: x_msg_count OUT NOCOPY NUMBER ,
795: +===========================================================================*/
796: PROCEDURE update_remit(
797: p_api_version IN NUMBER ,
798: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
799: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
800: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
801: x_return_status OUT NOCOPY VARCHAR2 ,
802: x_msg_count OUT NOCOPY NUMBER ,
803: x_msg_data OUT NOCOPY VARCHAR2 ,
796: PROCEDURE update_remit(
797: p_api_version IN NUMBER ,
798: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
799: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
800: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
801: x_return_status OUT NOCOPY VARCHAR2 ,
802: x_msg_count OUT NOCOPY NUMBER ,
803: x_msg_data OUT NOCOPY VARCHAR2 ,
804: p_batch_id IN AR_BATCHES.batch_id%TYPE,
831:
832: SAVEPOINT update_remit_PVT;
833:
834: -- Standard call to check for call compatability
835: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: END IF;
838:
839: x_return_status := FND_API.G_RET_STS_SUCCESS;
832: SAVEPOINT update_remit_PVT;
833:
834: -- Standard call to check for call compatability
835: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: END IF;
838:
839: x_return_status := FND_API.G_RET_STS_SUCCESS;
840:
835: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: END IF;
838:
839: x_return_status := FND_API.G_RET_STS_SUCCESS;
840:
841:
842: IF (p_batch_id IS NULL) THEN
843: l_field := 'P_BATCH_ID';
879: END IF;
880:
881: EXCEPTION
882:
883: WHEN FND_API.G_EXC_ERROR THEN
884: IF PG_DEBUG in ('Y', 'C') THEN
885: arp_util.debug('EXCEPTION FND_API.G_EXC_ERROR:ARP_BR_REMIT_BATCHES.update_remit');
886: END IF;
887: x_return_status := FND_API.G_RET_STS_ERROR;
881: EXCEPTION
882:
883: WHEN FND_API.G_EXC_ERROR THEN
884: IF PG_DEBUG in ('Y', 'C') THEN
885: arp_util.debug('EXCEPTION FND_API.G_EXC_ERROR:ARP_BR_REMIT_BATCHES.update_remit');
886: END IF;
887: x_return_status := FND_API.G_RET_STS_ERROR;
888: ROLLBACK TO update_remit_PVT;
889:
883: WHEN FND_API.G_EXC_ERROR THEN
884: IF PG_DEBUG in ('Y', 'C') THEN
885: arp_util.debug('EXCEPTION FND_API.G_EXC_ERROR:ARP_BR_REMIT_BATCHES.update_remit');
886: END IF;
887: x_return_status := FND_API.G_RET_STS_ERROR;
888: ROLLBACK TO update_remit_PVT;
889:
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: IF PG_DEBUG in ('Y', 'C') THEN
886: END IF;
887: x_return_status := FND_API.G_RET_STS_ERROR;
888: ROLLBACK TO update_remit_PVT;
889:
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: IF PG_DEBUG in ('Y', 'C') THEN
892: arp_util.debug('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR:ARP_BR_REMIT_BATCHES.update_remit');
893: END IF;
894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: ROLLBACK TO update_remit_PVT;
889:
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: IF PG_DEBUG in ('Y', 'C') THEN
892: arp_util.debug('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR:ARP_BR_REMIT_BATCHES.update_remit');
893: END IF;
894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
895: ROLLBACK TO update_remit_PVT;
896:
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: IF PG_DEBUG in ('Y', 'C') THEN
892: arp_util.debug('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR:ARP_BR_REMIT_BATCHES.update_remit');
893: END IF;
894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
895: ROLLBACK TO update_remit_PVT;
896:
897: WHEN OTHERS THEN
898: IF PG_DEBUG in ('Y', 'C') THEN
900: arp_util.debug('update_remit: ' || SQLERRM);
901: END IF;
902: ROLLBACK TO update_remit_PVT;
903: IF (SQLCODE = -20001) THEN
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: RETURN;
906: END IF;
907:
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: RETURN;
906: END IF;
907:
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
909:
910:
911: END update_remit;
912:
1119: | |
1120: +===========================================================================*/
1121: PROCEDURE lock_remit (
1122: p_api_version IN NUMBER ,
1123: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1124: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1125: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1126: x_return_status OUT NOCOPY VARCHAR2 ,
1127: x_msg_count OUT NOCOPY NUMBER ,
1120: +===========================================================================*/
1121: PROCEDURE lock_remit (
1122: p_api_version IN NUMBER ,
1123: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1124: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1125: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1126: x_return_status OUT NOCOPY VARCHAR2 ,
1127: x_msg_count OUT NOCOPY NUMBER ,
1128: x_msg_data OUT NOCOPY VARCHAR2 ,
1121: PROCEDURE lock_remit (
1122: p_api_version IN NUMBER ,
1123: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1124: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1125: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1126: x_return_status OUT NOCOPY VARCHAR2 ,
1127: x_msg_count OUT NOCOPY NUMBER ,
1128: x_msg_data OUT NOCOPY VARCHAR2 ,
1129: p_rowid IN varchar2,
1171:
1172: SAVEPOINT lock_remit_PVT;
1173:
1174: -- Standard call to check for call compatability
1175: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1177: END IF;
1178:
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1172: SAVEPOINT lock_remit_PVT;
1173:
1174: -- Standard call to check for call compatability
1175: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1177: END IF;
1178:
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180:
1175: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1177: END IF;
1178:
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180:
1181: arp_cr_batches_pkg.fetch_p(p_batch_id,l_batch_rec);
1182:
1183: l_batch_rec.name :=p_batch_name;
1259: END IF;
1260:
1261: EXCEPTION
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: IF PG_DEBUG in ('Y', 'C') THEN
1265: arp_util.debug('EXCEPTION FND_API.G_EXC_ERROR:ARP_BR_REMIT_BATCHES.lock_remit');
1266: END IF;
1267: x_return_status := FND_API.G_RET_STS_ERROR;
1261: EXCEPTION
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: IF PG_DEBUG in ('Y', 'C') THEN
1265: arp_util.debug('EXCEPTION FND_API.G_EXC_ERROR:ARP_BR_REMIT_BATCHES.lock_remit');
1266: END IF;
1267: x_return_status := FND_API.G_RET_STS_ERROR;
1268: ROLLBACK TO lock_remit_PVT;
1269:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: IF PG_DEBUG in ('Y', 'C') THEN
1265: arp_util.debug('EXCEPTION FND_API.G_EXC_ERROR:ARP_BR_REMIT_BATCHES.lock_remit');
1266: END IF;
1267: x_return_status := FND_API.G_RET_STS_ERROR;
1268: ROLLBACK TO lock_remit_PVT;
1269:
1270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1271: IF PG_DEBUG in ('Y', 'C') THEN
1266: END IF;
1267: x_return_status := FND_API.G_RET_STS_ERROR;
1268: ROLLBACK TO lock_remit_PVT;
1269:
1270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1271: IF PG_DEBUG in ('Y', 'C') THEN
1272: arp_util.debug('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR:ARP_BR_REMIT_BATCHES.lock_remit');
1273: END IF;
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1268: ROLLBACK TO lock_remit_PVT;
1269:
1270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1271: IF PG_DEBUG in ('Y', 'C') THEN
1272: arp_util.debug('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR:ARP_BR_REMIT_BATCHES.lock_remit');
1273: END IF;
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275: ROLLBACK TO lock_remit_PVT;
1276:
1270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1271: IF PG_DEBUG in ('Y', 'C') THEN
1272: arp_util.debug('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR:ARP_BR_REMIT_BATCHES.lock_remit');
1273: END IF;
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275: ROLLBACK TO lock_remit_PVT;
1276:
1277: WHEN OTHERS THEN
1278: IF PG_DEBUG in ('Y', 'C') THEN
1280: arp_util.debug('lock_remit: ' || SQLERRM);
1281: END IF;
1282: ROLLBACK TO lock_remit_PVT;
1283: IF (SQLCODE = -20001) THEN
1284: x_return_status := FND_API.G_RET_STS_ERROR;
1285: RETURN;
1286: END IF;
1287:
1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1284: x_return_status := FND_API.G_RET_STS_ERROR;
1285: RETURN;
1286: END IF;
1287:
1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1289:
1290:
1291: END lock_remit;
1292: