[Home] [Help]
422: END IF;
423: IF PG_DEBUG = 'Y' THEN
424: localdebug('EXCEPTION no_sequence in in arp_dte_dist_pkg.get_gt_sequence');
425: END IF;
426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
428: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION no_sequence in arp_dte_dist_pkg.get_gt_sequence');
429: FND_MSG_PUB.ADD;
430: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
428: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION no_sequence in arp_dte_dist_pkg.get_gt_sequence');
429: FND_MSG_PUB.ADD;
430: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
431: p_count => x_msg_count,
432: p_data => x_msg_data);
433: END get_gt_sequence;
434: --}
8144: IF c%ISOPEN THEN CLOSE c; END IF;
8145: IF PG_DEBUG = 'Y' THEN
8146: localdebug('EXCEPTION no_a_valid_trx :'||p_customer_trx.customer_trx_id);
8147: END IF;
8148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8149: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
8150: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION Not a Valid Trx ID');
8151: FND_MSG_PUB.ADD;
8152: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8149: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
8150: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION Not a Valid Trx ID');
8151: FND_MSG_PUB.ADD;
8152: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8153: p_count => x_msg_count,
8154: p_data => x_msg_data);
8155: WHEN OTHERS THEN
8156: IF c%ISOPEN THEN CLOSE c; END IF;
8156: IF c%ISOPEN THEN CLOSE c; END IF;
8157: IF PG_DEBUG = 'Y' THEN
8158: localdebug('EXCEPTION OTHERS in set_original_rem_amt_r12 :'||SQLERRM);
8159: END IF;
8160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8161: x_msg_data := 'EXCEPTION OTHERS in set_original_rem_amt_r12 :'||SQLERRM;
8162: END set_original_rem_amt_r12;
8163:
8164:
8642: l_11i_adj VARCHAR2(1);
8643: l_mfar_adj VARCHAR2(1);
8644: l_11i_app VARCHAR2(1);
8645: l_mfar_app VARCHAR2(1);
8646: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8647: l_msg_data VARCHAR2(2000);
8648: l_msg_count NUMBER;
8649: --{HYUNBL
8650: l_verif_rec c_verif%ROWTYPE;
8745: x_msg_count => l_msg_count,
8746: x_msg_data => l_msg_data,
8747: p_from_llca => 'Y');
8748:
8749: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8750: RAISE excep_set_org_rem_amt_r12;
8751: END IF;
8752:
8753:
11081: IS
11082: l_adj_rec ar_adjustments%ROWTYPE;
11083: l_app_rec ar_receivable_applications%ROWTYPE;
11084: l_gt_id VARCHAR2(30);
11085: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
11086: l_msg_data VARCHAR2(2000);
11087: l_msg_count NUMBER;
11088: E11i_trx_no_llca EXCEPTION;
11089: excep_get_gt_sequence EXCEPTION;
11099: get_gt_sequence (x_gt_id => l_gt_id,
11100: x_return_status => l_return_status,
11101: x_msg_count => l_msg_count,
11102: x_msg_data => l_msg_data);
11103: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11104: RAISE excep_get_gt_sequence;
11105: END IF;
11106: --l_gt_id := g_gt_id;
11107: --}
11122:
11123: ELSE
11124:
11125: IF g_mode_process = 'R12_11IMFAR' THEN
11126: l_return_status := FND_API.G_RET_STS_SUCCESS;
11127:
11128: ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
11129: ( p_app_rec => p_app_rec,
11130: x_app_rec => l_app_rec,
11133: x_return_status => l_return_status,
11134: x_msg_data => l_msg_data,
11135: x_msg_count => l_msg_count);
11136:
11137: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11138: RAISE fnd_api.G_EXC_ERROR;
11139: ELSE
11140: l_app_rec := p_app_rec;
11141: END IF;
11134: x_msg_data => l_msg_data,
11135: x_msg_count => l_msg_count);
11136:
11137: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11138: RAISE fnd_api.G_EXC_ERROR;
11139: ELSE
11140: l_app_rec := p_app_rec;
11141: END IF;
11142:
11208: IF PG_DEBUG = 'Y' THEN
11209: localdebug('legacy transaction no trx level application allowed.');
11210: END IF;
11211: RAISE;
11212: WHEN fnd_api.G_EXC_ERROR THEN
11213: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
11214: p_count => l_msg_count,
11215: p_data => l_msg_data);
11216: IF PG_DEBUG = 'Y' THEN
11209: localdebug('legacy transaction no trx level application allowed.');
11210: END IF;
11211: RAISE;
11212: WHEN fnd_api.G_EXC_ERROR THEN
11213: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
11214: p_count => l_msg_count,
11215: p_data => l_msg_data);
11216: IF PG_DEBUG = 'Y' THEN
11217: localdebug('fnd_api.G_EXC_ERROR IN Trx_level_cash_apply error count:'||l_msg_count);
11213: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
11214: p_count => l_msg_count,
11215: p_data => l_msg_data);
11216: IF PG_DEBUG = 'Y' THEN
11217: localdebug('fnd_api.G_EXC_ERROR IN Trx_level_cash_apply error count:'||l_msg_count);
11218: localdebug('last error:'||l_msg_data);
11219: END IF;
11220: RAISE;
11221: WHEN OTHERS THEN
11258: IS
11259: l_adj_rec ar_adjustments%ROWTYPE;
11260: l_app_rec ar_receivable_applications%ROWTYPE;
11261: l_gt_id VARCHAR2(30);
11262: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
11263: l_msg_data VARCHAR2(2000);
11264: l_msg_count NUMBER;
11265: E11i_gp_no_llca EXCEPTION;
11266: excep_get_gt_sequence EXCEPTION;
11282: get_gt_sequence (x_gt_id => l_gt_id,
11283: x_return_status => l_return_status,
11284: x_msg_count => l_msg_count,
11285: x_msg_data => l_msg_data);
11286: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11287: RAISE fnd_api.G_EXC_ERROR;
11288: END IF;
11289: --l_gt_id := g_gt_id;
11290: --}
11283: x_return_status => l_return_status,
11284: x_msg_count => l_msg_count,
11285: x_msg_data => l_msg_data);
11286: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11287: RAISE fnd_api.G_EXC_ERROR;
11288: END IF;
11289: --l_gt_id := g_gt_id;
11290: --}
11291: ELSE
11305:
11306: ELSE
11307:
11308: IF g_mode_process = 'R12_11IMFAR' THEN
11309: l_return_status := FND_API.G_RET_STS_SUCCESS;
11310:
11311: ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
11312: ( p_app_rec => p_app_rec,
11313: x_app_rec => l_app_rec,
11322: x_return_status => l_return_status,
11323: x_msg_data => l_msg_data,
11324: x_msg_count => l_msg_count);
11325:
11326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11327: RAISE fnd_api.G_EXC_ERROR;
11328: ELSE
11329: l_app_rec := p_app_rec;
11330: END IF;
11323: x_msg_data => l_msg_data,
11324: x_msg_count => l_msg_count);
11325:
11326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11327: RAISE fnd_api.G_EXC_ERROR;
11328: ELSE
11329: l_app_rec := p_app_rec;
11330: END IF;
11331:
11413: IF PG_DEBUG = 'Y' THEN
11414: localdebug('legacy transaction no group level application allowed.');
11415: END IF;
11416: RAISE;
11417: WHEN fnd_api.G_EXC_ERROR THEN
11418: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
11419: p_count => l_msg_count,
11420: p_data => l_msg_data);
11421: IF PG_DEBUG = 'Y' THEN
11414: localdebug('legacy transaction no group level application allowed.');
11415: END IF;
11416: RAISE;
11417: WHEN fnd_api.G_EXC_ERROR THEN
11418: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
11419: p_count => l_msg_count,
11420: p_data => l_msg_data);
11421: IF PG_DEBUG = 'Y' THEN
11422: localdebug('fnd_api.G_EXC_ERROR IN Trx_gp_level_cash_apply error count:'||l_msg_count);
11418: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
11419: p_count => l_msg_count,
11420: p_data => l_msg_data);
11421: IF PG_DEBUG = 'Y' THEN
11422: localdebug('fnd_api.G_EXC_ERROR IN Trx_gp_level_cash_apply error count:'||l_msg_count);
11423: localdebug('last error:'||l_msg_data);
11424: END IF;
11425: RAISE;
11426: WHEN OTHERS THEN
11458: IS
11459: l_adj_rec ar_adjustments%ROWTYPE;
11460: l_app_rec ar_receivable_applications%ROWTYPE;
11461: l_gt_id VARCHAR2(30);
11462: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
11463: l_msg_data VARCHAR2(2000);
11464: l_msg_count NUMBER;
11465: E11i_line_no_llca EXCEPTION;
11466: excep_get_gt_sequence EXCEPTION;
11478: get_gt_sequence (x_gt_id => l_gt_id,
11479: x_return_status => l_return_status,
11480: x_msg_count => l_msg_count,
11481: x_msg_data => l_msg_data);
11482: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11483: RAISE excep_get_gt_sequence;
11484: END IF;
11485: --l_gt_id := g_gt_id;
11486: --}
11501:
11502: ELSE
11503:
11504: IF g_mode_process = 'R12_11IMFAR' THEN
11505: l_return_status := FND_API.G_RET_STS_SUCCESS;
11506:
11507: ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
11508: ( p_app_rec => p_app_rec,
11509: x_app_rec => l_app_rec,
11513: x_return_status => l_return_status,
11514: x_msg_data => l_msg_data,
11515: x_msg_count => l_msg_count);
11516:
11517: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11518: RAISE fnd_api.G_EXC_ERROR;
11519: ELSE
11520: l_app_rec := p_app_rec;
11521: END IF;
11514: x_msg_data => l_msg_data,
11515: x_msg_count => l_msg_count);
11516:
11517: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11518: RAISE fnd_api.G_EXC_ERROR;
11519: ELSE
11520: l_app_rec := p_app_rec;
11521: END IF;
11522:
11594: IF PG_DEBUG = 'Y' THEN
11595: localdebug('legacy transaction no line level application allowed.');
11596: END IF;
11597: RAISE;
11598: WHEN fnd_api.G_EXC_ERROR THEN
11599: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
11600: p_count => l_msg_count,
11601: p_data => l_msg_data);
11602: IF PG_DEBUG = 'Y' THEN
11595: localdebug('legacy transaction no line level application allowed.');
11596: END IF;
11597: RAISE;
11598: WHEN fnd_api.G_EXC_ERROR THEN
11599: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
11600: p_count => l_msg_count,
11601: p_data => l_msg_data);
11602: IF PG_DEBUG = 'Y' THEN
11603: localdebug('fnd_api.G_EXC_ERROR IN Trx_line_level_cash_apply error count:'||l_msg_count);
11599: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
11600: p_count => l_msg_count,
11601: p_data => l_msg_data);
11602: IF PG_DEBUG = 'Y' THEN
11603: localdebug('fnd_api.G_EXC_ERROR IN Trx_line_level_cash_apply error count:'||l_msg_count);
11604: localdebug('last error:'||l_msg_data);
11605: END IF;
11606: RAISE;
11607: WHEN OTHERS THEN
12087: p_gt_id IN NUMBER DEFAULT NULL)
12088: IS
12089: l_app_rec ar_receivable_applications%ROWTYPE;
12090: l_gt_id NUMBER;
12091: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12092: l_msg_count NUMBER := 0;
12093: l_msg_data VARCHAR2(2000);
12094: excep_get_gt_sequence EXCEPTION;
12095: BEGIN
12103: get_gt_sequence (x_gt_id => l_gt_id,
12104: x_return_status => l_return_status,
12105: x_msg_count => l_msg_count,
12106: x_msg_data => l_msg_data);
12107: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12108: RAISE excep_get_gt_sequence;
12109: END IF;
12110: --l_gt_id := g_gt_id;
12111: --}
12242: l_adj_rec ar_adjustments%ROWTYPE;
12243: l_app_rec ar_receivable_applications%ROWTYPE;
12244: l_gt_id NUMBER;
12245: l_out_res VARCHAR2(1);
12246: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12247: l_msg_count NUMBER := 0;
12248: l_msg_data VARCHAR2(2000);
12249: l_upg_cm VARCHAR2(1);
12250: excep_get_gt_sequence EXCEPTION;
12260: get_gt_sequence (x_gt_id => l_gt_id,
12261: x_return_status => l_return_status,
12262: x_msg_count => l_msg_count,
12263: x_msg_data => l_msg_data);
12264: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12265: RAISE excep_get_gt_sequence;
12266: END IF;
12267: --l_gt_id := g_gt_id;
12268: --}
12302:
12303: -- If the application is from MFAR legacy the bucket of app charge can be wrong versus the
12304: -- remaining amount buckets of the transaction as the changes are prorated over all distributions
12305: IF g_mode_process = 'R12_11IMFAR' AND p_inv_cm = 'I' THEN
12306: l_return_status := FND_API.G_RET_STS_SUCCESS;
12307:
12308: ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
12309: ( p_app_rec => p_app_rec,
12310: x_app_rec => l_app_rec,
12313: x_return_status => l_return_status,
12314: x_msg_data => l_msg_data,
12315: x_msg_count => l_msg_count);
12316:
12317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12318: RAISE fnd_api.G_EXC_ERROR;
12319: END IF;
12320:
12321: IF PG_DEBUG = 'Y' THEN
12314: x_msg_data => l_msg_data,
12315: x_msg_count => l_msg_count);
12316:
12317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12318: RAISE fnd_api.G_EXC_ERROR;
12319: END IF;
12320:
12321: IF PG_DEBUG = 'Y' THEN
12322: localdebug('l_app_rec.RECEIVABLES_CHARGES_APPLIED :' ||l_app_rec.RECEIVABLES_CHARGES_APPLIED);
12427: localdebug('EXCEPTION_get_gt_sequence IN Trx_level_cash_apply error count:'||l_msg_count);
12428: localdebug('last error:'||l_msg_data);
12429: END IF;
12430: RAISE;
12431: WHEN fnd_api.G_EXC_ERROR THEN
12432: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12433: p_count => l_msg_count,
12434: p_data => l_msg_data);
12435: IF PG_DEBUG = 'Y' THEN
12428: localdebug('last error:'||l_msg_data);
12429: END IF;
12430: RAISE;
12431: WHEN fnd_api.G_EXC_ERROR THEN
12432: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12433: p_count => l_msg_count,
12434: p_data => l_msg_data);
12435: IF PG_DEBUG = 'Y' THEN
12436: localdebug('fnd_api.G_EXC_ERROR IN Trx_level_direct_cash_apply error count:'||l_msg_count);
12432: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12433: p_count => l_msg_count,
12434: p_data => l_msg_data);
12435: IF PG_DEBUG = 'Y' THEN
12436: localdebug('fnd_api.G_EXC_ERROR IN Trx_level_direct_cash_apply error count:'||l_msg_count);
12437: localdebug('last error:'||l_msg_data);
12438: END IF;
12439: RAISE;
12440: WHEN OTHERS THEN
13292: | p_amt_rem containing amount kept at invoice |
13293: | lines. |
13294: | x_return_status value according to the possibility |
13295: | of the adjustment |
13296: | FND_API.G_RET_STS_SUCCESS if possible |
13297: | FND_API.G_RET_STS_ERROR if imposssible |
13298: | x_line_adj codification for line adjustment |
13299: | x_tax_adj codification for tax adjustment |
13300: | x_frt_adj codification for freight adjustment |
13293: | lines. |
13294: | x_return_status value according to the possibility |
13295: | of the adjustment |
13296: | FND_API.G_RET_STS_SUCCESS if possible |
13297: | FND_API.G_RET_STS_ERROR if imposssible |
13298: | x_line_adj codification for line adjustment |
13299: | x_tax_adj codification for tax adjustment |
13300: | x_frt_adj codification for freight adjustment |
13301: | x_chrg_adj codification for charge adjustment |
13323: IF PG_DEBUG = 'Y' THEN
13324: localdebug('arp_det_dist_pkg.possible_adjust()+');
13325: END IF;
13326:
13327: x_return_status := FND_API.G_RET_STS_SUCCESS;
13328:
13329: get_orig_amt(p_customer_trx_id => p_customer_trx_id,
13330: x_amt_rem => l_amt_rem);
13331:
13328:
13329: get_orig_amt(p_customer_trx_id => p_customer_trx_id,
13330: x_amt_rem => l_amt_rem);
13331:
13332: -- IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
13333: x_tax_adj := tax_adj_type(p_adj_rec => p_adj_rec,
13334: p_ae_rule_rec => p_ae_rule_rec,
13335: p_amt_rem => l_amt_rem,
13336: p_app_rec => p_app_rec,
13376: IF x_line_adj IN ('LA_GASROI_NRL',
13377: 'LA_GASTCI_YRL_NTR',
13378: 'LA_GASTCI_NRL')
13379: THEN
13380: x_return_status := FND_API.G_RET_STS_ERROR;
13381: fnd_message.set_name('AR','AR_'||x_line_adj);
13382: fnd_msg_pub.add;
13383: END IF;
13384:
13390: 'CATB_GASACT_TCSN_NTL',
13391: 'FATB_TCSINV_NTL','FATB_GASTCI_TCSN_NTL','FATB_GASROI_TCSN_NTL',
13392: 'FATB_GASACT_TCSN_NTL'
13393: ) THEN
13394: x_return_status := FND_API.G_RET_STS_ERROR;
13395: fnd_message.set_name('AR','AR_'||x_tax_adj);
13396: fnd_msg_pub.add;
13397: END IF;
13398:
13398:
13399: IF x_frt_adj IN ('FA_GASROI_NHFL_NLFL' , 'FA_GASROI_YHFL_NLFL',
13400: 'FA_GASTCI_NHFL_NLFL_NTF', 'FA_GASTCI_NHFL_YLFL_NTF',
13401: 'FA_GASTCI_NHFL_NLFL_YTF', 'FA_GASTCI_YHFL_NLFL_NTF') THEN
13402: x_return_status := FND_API.G_RET_STS_ERROR;
13403: fnd_message.set_name('AR','AR_'||x_frt_adj);
13404: fnd_msg_pub.add;
13405: END IF;
13406:
13412: --
13413: -- IF g_chrg_adj IN ('CA_GASROI','CA_GASTCI','CA_GASACT_NRL_NHFL_NLFL') THEN
13414: --HYU reautorise 'CA_GASACT_NRL_NHFL_NLFL'
13415: IF x_chrg_adj IN ('CA_GASROI','CA_GASTCI') THEN
13416: x_return_status := FND_API.G_RET_STS_ERROR;
13417: fnd_message.set_name('AR','AR_'||x_chrg_adj);
13418: fnd_msg_pub.add;
13419: END IF;
13420:
13902: END IF;
13903:
13904: AR_Revenue_Adjustment_PVT.Earn_Revenue
13905: ( p_api_version => 2
13906: ,p_init_msg_list => FND_API.G_TRUE
13907: ,p_commit => FND_API.G_FALSE
13908: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
13909: ,x_return_status => l_return_status
13910: ,x_msg_count => l_msg_count
13903:
13904: AR_Revenue_Adjustment_PVT.Earn_Revenue
13905: ( p_api_version => 2
13906: ,p_init_msg_list => FND_API.G_TRUE
13907: ,p_commit => FND_API.G_FALSE
13908: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
13909: ,x_return_status => l_return_status
13910: ,x_msg_count => l_msg_count
13911: ,x_msg_data => l_msg_data
13904: AR_Revenue_Adjustment_PVT.Earn_Revenue
13905: ( p_api_version => 2
13906: ,p_init_msg_list => FND_API.G_TRUE
13907: ,p_commit => FND_API.G_FALSE
13908: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
13909: ,x_return_status => l_return_status
13910: ,x_msg_count => l_msg_count
13911: ,x_msg_data => l_msg_data
13912: ,p_rev_adj_rec => l_rev_adj_rec
13915: ,x_dist_count => l_dist_count
13916: ,x_ra_dist_tbl => l_ra_dist_tbl);
13917:
13918:
13919: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13920:
13921: IF l_msg_count > 1 THEN
13922: fnd_msg_pub.reset;
13923: --get only the first message from the api message stack for forms users
13920:
13921: IF l_msg_count > 1 THEN
13922: fnd_msg_pub.reset;
13923: --get only the first message from the api message stack for forms users
13924: l_mesg := fnd_msg_pub.get(p_encoded=>FND_API.G_FALSE);
13925: ELSE
13926: l_mesg := l_msg_data;
13927: END IF;
13928:
14020: END;
14021:
14022:
14023: PROCEDURE exec_revrec_if_required
14024: (p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_TRUE
14025: ,p_mode IN VARCHAR2 DEFAULT 'TRANSACTION'
14026: ,p_customer_trx_id IN NUMBER DEFAULT NULL
14027: ,p_request_id IN NUMBER DEFAULT NULL
14028: ,x_sum_dist OUT NOCOPY NUMBER
14054: localdebug(' p_customer_trx_id :' || p_customer_trx_id);
14055: localdebug(' p_request_id :' || p_request_id);
14056: END IF;
14057:
14058: x_return_status := FND_API.G_RET_STS_SUCCESS;
14059:
14060: IF FND_API.to_Boolean(p_init_msg_list) THEN
14061: FND_MSG_PUB.initialize;
14062: END IF;
14056: END IF;
14057:
14058: x_return_status := FND_API.G_RET_STS_SUCCESS;
14059:
14060: IF FND_API.to_Boolean(p_init_msg_list) THEN
14061: FND_MSG_PUB.initialize;
14062: END IF;
14063:
14064: IF p_mode <> 'TRANSACTION' THEN
14064: IF p_mode <> 'TRANSACTION' THEN
14065: x_msg_data := 'Only transaction mode is supported currently.
14066: ';
14067: x_msg_count := 1;
14068: x_return_status := FND_API.G_RET_STS_ERROR;
14069: END IF;
14070:
14071: IF p_mode = 'TRANSACTION' AND p_customer_trx_id IS NULL THEN
14072: x_msg_data := x_msg_data||'The p_customer_trx_id is required, currently it is passed as null.
14071: IF p_mode = 'TRANSACTION' AND p_customer_trx_id IS NULL THEN
14072: x_msg_data := x_msg_data||'The p_customer_trx_id is required, currently it is passed as null.
14073: ';
14074: x_msg_count := 1;
14075: x_return_status := FND_API.G_RET_STS_ERROR;
14076: END IF;
14077:
14078: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14079: RAISE wrong_parameter;
14074: x_msg_count := 1;
14075: x_return_status := FND_API.G_RET_STS_ERROR;
14076: END IF;
14077:
14078: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14079: RAISE wrong_parameter;
14080: END IF;
14081:
14082:
14113: CLOSE c_trx_number;
14114: FND_MESSAGE.SET_NAME( 'AR', 'AR_AUTORULE_ERROR' );
14115: FND_MESSAGE.SET_TOKEN( 'TRX_NUMBER', l_trx_number );
14116: FND_MSG_PUB.ADD;
14117: x_return_status := FND_API.G_RET_STS_ERROR;
14118: END IF;
14119: IF PG_DEBUG = 'Y' THEN
14120: localdebug(' Completed running revenue recognition for Transaction');
14121: END IF;
14120: localdebug(' Completed running revenue recognition for Transaction');
14121: END IF;
14122: END IF;
14123:
14124: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14125: RAISE fnd_api.G_EXC_ERROR;
14126: END IF;
14127: IF PG_DEBUG = 'Y' THEN
14128: localdebug( 'arp_det_dist_pkg.exec_revrec_if_required()-');
14121: END IF;
14122: END IF;
14123:
14124: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14125: RAISE fnd_api.G_EXC_ERROR;
14126: END IF;
14127: IF PG_DEBUG = 'Y' THEN
14128: localdebug( 'arp_det_dist_pkg.exec_revrec_if_required()-');
14129: END IF;
14127: IF PG_DEBUG = 'Y' THEN
14128: localdebug( 'arp_det_dist_pkg.exec_revrec_if_required()-');
14129: END IF;
14130: EXCEPTION
14131: WHEN fnd_api.G_EXC_ERROR THEN
14132: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
14133: p_count => x_msg_count,
14134: p_data => x_msg_data);
14135:
14128: localdebug( 'arp_det_dist_pkg.exec_revrec_if_required()-');
14129: END IF;
14130: EXCEPTION
14131: WHEN fnd_api.G_EXC_ERROR THEN
14132: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
14133: p_count => x_msg_count,
14134: p_data => x_msg_data);
14135:
14136: WHEN wrong_parameter THEN localdebug(x_msg_count);
14135:
14136: WHEN wrong_parameter THEN localdebug(x_msg_count);
14137:
14138: WHEN OTHERS THEN
14139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14140: x_msg_count := NVL(x_msg_count,0) + 1;
14141: x_msg_data :='EXCEPTION OTHERS exec_revrec_if_required :'||SQLERRM ;
14142: IF PG_DEBUG = 'Y' THEN
14143: localdebug(x_msg_data );
16255: p_source_data_key3:'||p_source_data_key3||'
16256: p_source_data_key4:'||p_source_data_key4||'
16257: p_source_data_key5:'||p_source_data_key5);
16258: FND_MSG_PUB.ADD;
16259: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
16260: p_count => x_msg_count,
16261: p_data => x_msg_data);
16262: x_return_status := FND_API.G_RET_STS_SUCCESS;
16263: WHEN OTHERS THEN
16258: FND_MSG_PUB.ADD;
16259: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
16260: p_count => x_msg_count,
16261: p_data => x_msg_data);
16262: x_return_status := FND_API.G_RET_STS_SUCCESS;
16263: WHEN OTHERS THEN
16264: IF PG_DEBUG = 'Y' THEN
16265: localdebug('EXCEPTION OTHERS get_latest_amount_remaining:'||SQLERRM);
16266: END IF;
16266: END IF;
16267: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
16268: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_latest_amount_remaining-'||SQLERRM );
16269: FND_MSG_PUB.ADD;
16270: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
16271: p_count => x_msg_count,
16272: p_data => x_msg_data);
16273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16274:
16269: FND_MSG_PUB.ADD;
16270: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
16271: p_count => x_msg_count,
16272: p_data => x_msg_data);
16273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16274:
16275: END get_latest_amount_remaining;
16276:
16277:
16668: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
16669: p_gt_id IN NUMBER,
16670: p_line_flag IN VARCHAR2 DEFAULT 'INTERFACE',
16671: p_tax_flag IN VARCHAR2 DEFAULT 'INTERFACE',
16672: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
16673: x_return_status IN OUT NOCOPY VARCHAR2,
16674: x_msg_count IN OUT NOCOPY NUMBER,
16675: x_msg_data IN OUT NOCOPY VARCHAR2,
16676: p_llca_from_call IN VARCHAR2 DEFAULT NULL,
16687: localdebug(' p_ae_sys_rec.base_currency :'|| p_ae_sys_rec.base_currency);
16688: localdebug(' p_llca_from_call :'|| p_llca_from_call);
16689: END IF;
16690:
16691: x_return_status := fnd_api.g_ret_sts_success;
16692:
16693: IF FND_API.to_Boolean(p_init_msg_list) THEN
16694: FND_MSG_PUB.initialize;
16695: END IF;
16689: END IF;
16690:
16691: x_return_status := fnd_api.g_ret_sts_success;
16692:
16693: IF FND_API.to_Boolean(p_init_msg_list) THEN
16694: FND_MSG_PUB.initialize;
16695: END IF;
16696:
16697: arp_process_det_pkg.verif_int_adj_line_tax(
16702: p_line_flag => p_line_flag,
16703: p_tax_flag => p_tax_flag,
16704: x_return_status => x_return_status);
16705:
16706: IF x_return_status <> fnd_api.g_ret_sts_success THEN
16707: RAISE fnd_api.G_EXC_ERROR;
16708: END IF;
16709:
16710: g_gt_id := p_gt_id;
16703: p_tax_flag => p_tax_flag,
16704: x_return_status => x_return_status);
16705:
16706: IF x_return_status <> fnd_api.g_ret_sts_success THEN
16707: RAISE fnd_api.G_EXC_ERROR;
16708: END IF;
16709:
16710: g_gt_id := p_gt_id;
16711:
16787: IF PG_DEBUG = 'Y' THEN
16788: localdebug('arp_det_dist_pkg.adjustment_with_interface()-');
16789: END IF;
16790: EXCEPTION
16791: WHEN fnd_api.G_EXC_ERROR THEN
16792: FND_MSG_PUB.Count_And_Get(
16793: p_encoded => FND_API.G_FALSE,
16794: p_count => x_msg_count,
16795: p_data => x_msg_data);
16789: END IF;
16790: EXCEPTION
16791: WHEN fnd_api.G_EXC_ERROR THEN
16792: FND_MSG_PUB.Count_And_Get(
16793: p_encoded => FND_API.G_FALSE,
16794: p_count => x_msg_count,
16795: p_data => x_msg_data);
16796: IF PG_DEBUG = 'Y' THEN
16797: localdebug('fnd_api.G_EXC_ERROR IN adjustment_with_interface error count:'||x_msg_count);
16793: p_encoded => FND_API.G_FALSE,
16794: p_count => x_msg_count,
16795: p_data => x_msg_data);
16796: IF PG_DEBUG = 'Y' THEN
16797: localdebug('fnd_api.G_EXC_ERROR IN adjustment_with_interface error count:'||x_msg_count);
16798: localdebug('last error:'||x_msg_data);
16799: END IF;
16800: RAISE;
16801: WHEN OTHERS THEN
16816: p_ed_line_flag IN VARCHAR2 DEFAULT 'NORMAL',
16817: p_ed_tax_flag IN VARCHAR2 DEFAULT 'NORMAL',
16818: p_uned_line_flag IN VARCHAR2 DEFAULT 'NORMAL',
16819: p_uned_tax_flag IN VARCHAR2 DEFAULT 'NORMAL',
16820: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
16821: x_return_status IN OUT NOCOPY VARCHAR2,
16822: x_msg_count IN OUT NOCOPY NUMBER,
16823: x_msg_data IN OUT NOCOPY VARCHAR2)
16824: IS
16829: localdebug(' p_customer_trx_id :'||p_customer_trx.customer_trx_id);
16830: localdebug(' p_gt_id :'||p_gt_id);
16831: END IF;
16832:
16833: x_return_status := fnd_api.g_ret_sts_success;
16834:
16835: IF FND_API.to_Boolean(p_init_msg_list) THEN
16836: FND_MSG_PUB.initialize;
16837: END IF;
16831: END IF;
16832:
16833: x_return_status := fnd_api.g_ret_sts_success;
16834:
16835: IF FND_API.to_Boolean(p_init_msg_list) THEN
16836: FND_MSG_PUB.initialize;
16837: END IF;
16838:
16839: arp_process_det_pkg.verif_int_app_line_tax
16848: p_uned_line_flag => p_uned_line_flag,
16849: p_uned_tax_flag => p_uned_tax_flag,
16850: x_return_status => x_return_status);
16851:
16852: IF x_return_status <> fnd_api.g_ret_sts_success THEN
16853: RAISE fnd_api.G_EXC_ERROR;
16854: END IF;
16855:
16856: g_gt_id := p_gt_id;
16849: p_uned_tax_flag => p_uned_tax_flag,
16850: x_return_status => x_return_status);
16851:
16852: IF x_return_status <> fnd_api.g_ret_sts_success THEN
16853: RAISE fnd_api.G_EXC_ERROR;
16854: END IF;
16855:
16856: g_gt_id := p_gt_id;
16857:
16874: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR');
16875: FND_MESSAGE.SET_TOKEN('TEXT','application_with_interface is not supported for 11i transaction with activities customer_trx_id :'||
16876: p_customer_trx.customer_trx_id);
16877: FND_MSG_PUB.ADD;
16878: x_return_status := fnd_api.g_ret_sts_success;
16879: RAISE fnd_api.G_EXC_ERROR;
16880: ELSE
16881:
16882: copy_trx_lines(p_customer_trx_id => p_customer_trx.customer_trx_id,
16875: FND_MESSAGE.SET_TOKEN('TEXT','application_with_interface is not supported for 11i transaction with activities customer_trx_id :'||
16876: p_customer_trx.customer_trx_id);
16877: FND_MSG_PUB.ADD;
16878: x_return_status := fnd_api.g_ret_sts_success;
16879: RAISE fnd_api.G_EXC_ERROR;
16880: ELSE
16881:
16882: copy_trx_lines(p_customer_trx_id => p_customer_trx.customer_trx_id,
16883: p_ae_sys_rec => p_ae_sys_rec);
16884:
16885:
16886: IF g_mode_process = 'R12_11IMFAR' THEN
16887:
16888: x_return_status := fnd_api.g_ret_sts_success;
16889: IF PG_DEBUG = 'Y' THEN
16890: localdebug('application_with_interface is not supported for 11i MFAR transaction with activities');
16891: END IF;
16892: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR');
16892: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR');
16893: FND_MESSAGE.SET_TOKEN('TEXT','application_with_interface is not supported for 11i MFAR transaction with activities customer_trx_id :'||
16894: p_customer_trx.customer_trx_id);
16895: FND_MSG_PUB.ADD;
16896: RAISE fnd_api.G_EXC_ERROR;
16897:
16898: END IF;
16899: --}
16900:
16954: IF PG_DEBUG = 'Y' THEN
16955: localdebug('arp_det_dist_pkg.application_with_interface()-');
16956: END IF;
16957: EXCEPTION
16958: WHEN fnd_api.G_EXC_ERROR THEN
16959: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
16960: p_count => x_msg_count,
16961: p_data => x_msg_data);
16962: IF PG_DEBUG = 'Y' THEN
16955: localdebug('arp_det_dist_pkg.application_with_interface()-');
16956: END IF;
16957: EXCEPTION
16958: WHEN fnd_api.G_EXC_ERROR THEN
16959: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
16960: p_count => x_msg_count,
16961: p_data => x_msg_data);
16962: IF PG_DEBUG = 'Y' THEN
16963: localdebug('fnd_api.G_EXC_ERROR IN application_with_interface error count:'||x_msg_count);
16959: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
16960: p_count => x_msg_count,
16961: p_data => x_msg_data);
16962: IF PG_DEBUG = 'Y' THEN
16963: localdebug('fnd_api.G_EXC_ERROR IN application_with_interface error count:'||x_msg_count);
16964: localdebug('last error:'||x_msg_data);
16965: END IF;
16966: RAISE;
16967: WHEN OTHERS THEN
17044: localdebug('application record the amount_earned :'||p_app_rec.earned_discount_taken);
17045: localdebug('application record the amount_unearned:'||p_app_rec.unearned_discount_taken);
17046: localdebug('Gross transaction amount do not reconcile');
17047: END IF;
17048: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17049: ELSIF ABS(nvl(l_acctd_sum,0)) <> ABS(NVL(p_app_rec.acctd_amount_applied_to,0)
17050: + NVL(p_app_rec.ACCTD_UNEARNED_DISCOUNT_TAKEN,0)
17051: + NVL(p_app_rec.ACCTD_EARNED_DISCOUNT_TAKEN,0) ) THEN
17052: IF PG_DEBUG = 'Y' THEN
17055: localdebug('application record the acctd_amount_earned :'||p_app_rec.ACCTD_EARNED_DISCOUNT_TAKEN);
17056: localdebug('application record the acctd_amount_unearned:'||p_app_rec.ACCTD_UNEARNED_DISCOUNT_TAKEN);
17057: localdebug('Gross transaction acctd amount do not reconcile');
17058: END IF;
17059: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17060: END IF;
17061: ELSIF p_activity_type = 'ADJ' THEN
17062: IF ABS(nvl(l_sum,0)) <> ABS(NVL(p_adj_rec.amount,0)) THEN
17063: IF PG_DEBUG = 'Y' THEN
17064: localdebug('From the detail gt the amount l_sum :'||l_sum);
17065: localdebug('adjustment record the amount:'||p_adj_rec.amount);
17066: localdebug('Gross transaction amount do not reconcile');
17067: END IF;
17068: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17069: ELSIF ABS(nvl(l_acctd_sum,0)) <> ABS(NVL(p_adj_rec.acctd_amount,0)) THEN
17070: IF PG_DEBUG = 'Y' THEN
17071: localdebug('From the detail gt the acctd_amount l_acctd_sum :'||l_acctd_sum);
17072: localdebug('adjustment record the acctd_amount:'||p_adj_rec.acctd_amount);
17071: localdebug('From the detail gt the acctd_amount l_acctd_sum :'||l_acctd_sum);
17072: localdebug('adjustment record the acctd_amount:'||p_adj_rec.acctd_amount);
17073: localdebug('Gross transaction acctd amount do not reconcile');
17074: END IF;
17075: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17076: END IF;
17077: END IF;
17078:
17079:
17108: IF PG_DEBUG = 'Y' THEN
17109: localdebug('From the detail gt the applied amount l_app_amt :'||l_app_amt);
17110: localdebug('application record the amount_applied :'||p_app_rec.amount_applied);
17111: END IF;
17112: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17113: ELSIF ABS(l_ed_amt) <> ABS( NVL(p_app_rec.earned_discount_taken,0)) THEN
17114: IF PG_DEBUG = 'Y' THEN
17115: localdebug('From the detail gt the ed amount l_ed_amt :'||l_ed_amt);
17116: localdebug('application record the amount_earned :'||p_app_rec.earned_discount_taken);
17114: IF PG_DEBUG = 'Y' THEN
17115: localdebug('From the detail gt the ed amount l_ed_amt :'||l_ed_amt);
17116: localdebug('application record the amount_earned :'||p_app_rec.earned_discount_taken);
17117: END IF;
17118: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17119: ELSIF ABS(l_uned_amt) <> ABS( NVL(p_app_rec.unearned_discount_taken,0)) THEN
17120: IF PG_DEBUG = 'Y' THEN
17121: localdebug('From the detail gt the uned amount l_uned_amt :'||l_uned_amt);
17122: localdebug('application record the amount_unearned:'||p_app_rec.unearned_discount_taken);
17120: IF PG_DEBUG = 'Y' THEN
17121: localdebug('From the detail gt the uned amount l_uned_amt :'||l_uned_amt);
17122: localdebug('application record the amount_unearned:'||p_app_rec.unearned_discount_taken);
17123: END IF;
17124: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17125: ELSIF ABS(l_app_acctd_amt) <> ABS(NVL(p_app_rec.acctd_amount_applied_to,0)) THEN
17126: IF PG_DEBUG = 'Y' THEN
17127: localdebug('From the detail gt the applied amount l_app_acctd_amt :'||l_app_acctd_amt);
17128: localdebug('application record the acctd_amount_applied :'||p_app_rec.acctd_amount_applied_to);
17126: IF PG_DEBUG = 'Y' THEN
17127: localdebug('From the detail gt the applied amount l_app_acctd_amt :'||l_app_acctd_amt);
17128: localdebug('application record the acctd_amount_applied :'||p_app_rec.acctd_amount_applied_to);
17129: END IF;
17130: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17131: ELSIF ABS(l_ed_acctd_amt) <> ABS( NVL(p_app_rec.acctd_earned_discount_taken,0)) THEN
17132: IF PG_DEBUG = 'Y' THEN
17133: localdebug('From the detail gt the ed amount l_ed_acctd_amt :'||l_ed_acctd_amt);
17134: localdebug('application record the acctd_amount_earned :'||p_app_rec.acctd_earned_discount_taken);
17132: IF PG_DEBUG = 'Y' THEN
17133: localdebug('From the detail gt the ed amount l_ed_acctd_amt :'||l_ed_acctd_amt);
17134: localdebug('application record the acctd_amount_earned :'||p_app_rec.acctd_earned_discount_taken);
17135: END IF;
17136: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17137: ELSIF ABS(l_uned_acctd_amt) <> ABS( NVL(p_app_rec.acctd_unearned_discount_taken,0)) THEN
17138: IF PG_DEBUG = 'Y' THEN
17139: localdebug('From the detail gt the ed amount l_uned_acctd_amt :'||l_uned_acctd_amt);
17140: localdebug('application record the acctd_amount_unearned :'||p_app_rec.acctd_unearned_discount_taken);
17138: IF PG_DEBUG = 'Y' THEN
17139: localdebug('From the detail gt the ed amount l_uned_acctd_amt :'||l_uned_acctd_amt);
17140: localdebug('application record the acctd_amount_unearned :'||p_app_rec.acctd_unearned_discount_taken);
17141: END IF;
17142: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
17143: END IF;
17144:
17145: END IF;
17146: END IF;
17148: IF PG_DEBUG = 'Y' THEN
17149: localdebug('arp_det_dist_pkg.reconciliation()-');
17150: END IF;
17151: EXCEPTION
17152: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
17153: RAISE;
17154: END;
17155:
17156: