[Home] [Help]
424: END IF;
425: IF PG_DEBUG = 'Y' THEN
426: localdebug('EXCEPTION no_sequence in in arp_dte_dist_pkg.get_gt_sequence');
427: END IF;
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
430: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION no_sequence in arp_dte_dist_pkg.get_gt_sequence');
431: FND_MSG_PUB.ADD;
432: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
430: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION no_sequence in arp_dte_dist_pkg.get_gt_sequence');
431: FND_MSG_PUB.ADD;
432: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
433: p_count => x_msg_count,
434: p_data => x_msg_data);
435: END get_gt_sequence;
436: --}
9561: IF c%ISOPEN THEN CLOSE c; END IF;
9562: IF PG_DEBUG = 'Y' THEN
9563: localdebug('EXCEPTION no_a_valid_trx :'||p_customer_trx.customer_trx_id);
9564: END IF;
9565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9566: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
9567: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION Not a Valid Trx ID');
9568: FND_MSG_PUB.ADD;
9569: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9566: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
9567: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION Not a Valid Trx ID');
9568: FND_MSG_PUB.ADD;
9569: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9570: p_count => x_msg_count,
9571: p_data => x_msg_data);
9572: WHEN OTHERS THEN
9573: IF c%ISOPEN THEN CLOSE c; END IF;
9573: IF c%ISOPEN THEN CLOSE c; END IF;
9574: IF PG_DEBUG = 'Y' THEN
9575: localdebug('EXCEPTION OTHERS in set_original_rem_amt_r12 :'||SQLERRM);
9576: END IF;
9577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9578: x_msg_data := 'EXCEPTION OTHERS in set_original_rem_amt_r12 :'||SQLERRM;
9579: END set_original_rem_amt_r12;
9580:
9581:
10059: l_11i_adj VARCHAR2(1);
10060: l_mfar_adj VARCHAR2(1);
10061: l_11i_app VARCHAR2(1);
10062: l_mfar_app VARCHAR2(1);
10063: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
10064: l_msg_data VARCHAR2(2000);
10065: l_msg_count NUMBER;
10066: --{HYUNBL
10067: l_verif_rec c_verif%ROWTYPE;
10176: x_msg_count => l_msg_count,
10177: x_msg_data => l_msg_data,
10178: p_from_llca => 'Y');
10179:
10180: IF l_return_status <> fnd_api.g_ret_sts_success THEN
10181: RAISE excep_set_org_rem_amt_r12;
10182: END IF;
10183:
10184:
12538: IS
12539: l_adj_rec ar_adjustments%ROWTYPE;
12540: l_app_rec ar_receivable_applications%ROWTYPE;
12541: l_gt_id VARCHAR2(30);
12542: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12543: l_msg_data VARCHAR2(2000);
12544: l_msg_count NUMBER;
12545: E11i_trx_no_llca EXCEPTION;
12546: excep_get_gt_sequence EXCEPTION;
12557: get_gt_sequence (x_gt_id => l_gt_id,
12558: x_return_status => l_return_status,
12559: x_msg_count => l_msg_count,
12560: x_msg_data => l_msg_data);
12561: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12562: RAISE excep_get_gt_sequence;
12563: END IF;
12564: --l_gt_id := g_gt_id;
12565: --}
12586:
12587: ELSE
12588:
12589: IF g_mode_process = 'R12_11IMFAR' THEN
12590: l_return_status := FND_API.G_RET_STS_SUCCESS;
12591:
12592: ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
12593: ( p_app_rec => p_app_rec,
12594: x_app_rec => l_app_rec,
12597: x_return_status => l_return_status,
12598: x_msg_data => l_msg_data,
12599: x_msg_count => l_msg_count);
12600:
12601: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12602: RAISE fnd_api.G_EXC_ERROR;
12603: ELSE
12604: l_app_rec := p_app_rec;
12605: END IF;
12598: x_msg_data => l_msg_data,
12599: x_msg_count => l_msg_count);
12600:
12601: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12602: RAISE fnd_api.G_EXC_ERROR;
12603: ELSE
12604: l_app_rec := p_app_rec;
12605: END IF;
12606:
12672: IF PG_DEBUG = 'Y' THEN
12673: localdebug('legacy transaction no trx level application allowed.');
12674: END IF;
12675: RAISE;
12676: WHEN fnd_api.G_EXC_ERROR THEN
12677: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12678: p_count => l_msg_count,
12679: p_data => l_msg_data);
12680: IF PG_DEBUG = 'Y' THEN
12673: localdebug('legacy transaction no trx level application allowed.');
12674: END IF;
12675: RAISE;
12676: WHEN fnd_api.G_EXC_ERROR THEN
12677: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12678: p_count => l_msg_count,
12679: p_data => l_msg_data);
12680: IF PG_DEBUG = 'Y' THEN
12681: localdebug('fnd_api.G_EXC_ERROR IN Trx_level_cash_apply error count:'||l_msg_count);
12677: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12678: p_count => l_msg_count,
12679: p_data => l_msg_data);
12680: IF PG_DEBUG = 'Y' THEN
12681: localdebug('fnd_api.G_EXC_ERROR IN Trx_level_cash_apply error count:'||l_msg_count);
12682: localdebug('last error:'||l_msg_data);
12683: END IF;
12684: RAISE;
12685: WHEN OTHERS THEN
12722: IS
12723: l_adj_rec ar_adjustments%ROWTYPE;
12724: l_app_rec ar_receivable_applications%ROWTYPE;
12725: l_gt_id VARCHAR2(30);
12726: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12727: l_msg_data VARCHAR2(2000);
12728: l_msg_count NUMBER;
12729: E11i_gp_no_llca EXCEPTION;
12730: excep_get_gt_sequence EXCEPTION;
12747: get_gt_sequence (x_gt_id => l_gt_id,
12748: x_return_status => l_return_status,
12749: x_msg_count => l_msg_count,
12750: x_msg_data => l_msg_data);
12751: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12752: RAISE fnd_api.G_EXC_ERROR;
12753: END IF;
12754: --l_gt_id := g_gt_id;
12755: --}
12748: x_return_status => l_return_status,
12749: x_msg_count => l_msg_count,
12750: x_msg_data => l_msg_data);
12751: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12752: RAISE fnd_api.G_EXC_ERROR;
12753: END IF;
12754: --l_gt_id := g_gt_id;
12755: --}
12756: ELSE
12776:
12777: ELSE
12778:
12779: IF g_mode_process = 'R12_11IMFAR' THEN
12780: l_return_status := FND_API.G_RET_STS_SUCCESS;
12781:
12782: ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
12783: ( p_app_rec => p_app_rec,
12784: x_app_rec => l_app_rec,
12793: x_return_status => l_return_status,
12794: x_msg_data => l_msg_data,
12795: x_msg_count => l_msg_count);
12796:
12797: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12798: RAISE fnd_api.G_EXC_ERROR;
12799: ELSE
12800: l_app_rec := p_app_rec;
12801: END IF;
12794: x_msg_data => l_msg_data,
12795: x_msg_count => l_msg_count);
12796:
12797: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12798: RAISE fnd_api.G_EXC_ERROR;
12799: ELSE
12800: l_app_rec := p_app_rec;
12801: END IF;
12802:
12884: IF PG_DEBUG = 'Y' THEN
12885: localdebug('legacy transaction no group level application allowed.');
12886: END IF;
12887: RAISE;
12888: WHEN fnd_api.G_EXC_ERROR THEN
12889: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12890: p_count => l_msg_count,
12891: p_data => l_msg_data);
12892: IF PG_DEBUG = 'Y' THEN
12885: localdebug('legacy transaction no group level application allowed.');
12886: END IF;
12887: RAISE;
12888: WHEN fnd_api.G_EXC_ERROR THEN
12889: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12890: p_count => l_msg_count,
12891: p_data => l_msg_data);
12892: IF PG_DEBUG = 'Y' THEN
12893: localdebug('fnd_api.G_EXC_ERROR IN Trx_gp_level_cash_apply error count:'||l_msg_count);
12889: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12890: p_count => l_msg_count,
12891: p_data => l_msg_data);
12892: IF PG_DEBUG = 'Y' THEN
12893: localdebug('fnd_api.G_EXC_ERROR IN Trx_gp_level_cash_apply error count:'||l_msg_count);
12894: localdebug('last error:'||l_msg_data);
12895: END IF;
12896: RAISE;
12897: WHEN OTHERS THEN
12929: IS
12930: l_adj_rec ar_adjustments%ROWTYPE;
12931: l_app_rec ar_receivable_applications%ROWTYPE;
12932: l_gt_id VARCHAR2(30);
12933: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12934: l_msg_data VARCHAR2(2000);
12935: l_msg_count NUMBER;
12936: E11i_line_no_llca EXCEPTION;
12937: excep_get_gt_sequence EXCEPTION;
12950: get_gt_sequence (x_gt_id => l_gt_id,
12951: x_return_status => l_return_status,
12952: x_msg_count => l_msg_count,
12953: x_msg_data => l_msg_data);
12954: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12955: RAISE excep_get_gt_sequence;
12956: END IF;
12957: --l_gt_id := g_gt_id;
12958: --}
12979:
12980: ELSE
12981:
12982: IF g_mode_process = 'R12_11IMFAR' THEN
12983: l_return_status := FND_API.G_RET_STS_SUCCESS;
12984:
12985: ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
12986: ( p_app_rec => p_app_rec,
12987: x_app_rec => l_app_rec,
12991: x_return_status => l_return_status,
12992: x_msg_data => l_msg_data,
12993: x_msg_count => l_msg_count);
12994:
12995: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12996: RAISE fnd_api.G_EXC_ERROR;
12997: ELSE
12998: l_app_rec := p_app_rec;
12999: END IF;
12992: x_msg_data => l_msg_data,
12993: x_msg_count => l_msg_count);
12994:
12995: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12996: RAISE fnd_api.G_EXC_ERROR;
12997: ELSE
12998: l_app_rec := p_app_rec;
12999: END IF;
13000:
13072: IF PG_DEBUG = 'Y' THEN
13073: localdebug('legacy transaction no line level application allowed.');
13074: END IF;
13075: RAISE;
13076: WHEN fnd_api.G_EXC_ERROR THEN
13077: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
13078: p_count => l_msg_count,
13079: p_data => l_msg_data);
13080: IF PG_DEBUG = 'Y' THEN
13073: localdebug('legacy transaction no line level application allowed.');
13074: END IF;
13075: RAISE;
13076: WHEN fnd_api.G_EXC_ERROR THEN
13077: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
13078: p_count => l_msg_count,
13079: p_data => l_msg_data);
13080: IF PG_DEBUG = 'Y' THEN
13081: localdebug('fnd_api.G_EXC_ERROR IN Trx_line_level_cash_apply error count:'||l_msg_count);
13077: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
13078: p_count => l_msg_count,
13079: p_data => l_msg_data);
13080: IF PG_DEBUG = 'Y' THEN
13081: localdebug('fnd_api.G_EXC_ERROR IN Trx_line_level_cash_apply error count:'||l_msg_count);
13082: localdebug('last error:'||l_msg_data);
13083: END IF;
13084: RAISE;
13085: WHEN OTHERS THEN
13664: p_gt_id IN NUMBER DEFAULT NULL)
13665: IS
13666: l_app_rec ar_receivable_applications%ROWTYPE;
13667: l_gt_id NUMBER;
13668: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13669: l_msg_count NUMBER := 0;
13670: l_msg_data VARCHAR2(2000);
13671: excep_get_gt_sequence EXCEPTION;
13672: BEGIN
13680: get_gt_sequence (x_gt_id => l_gt_id,
13681: x_return_status => l_return_status,
13682: x_msg_count => l_msg_count,
13683: x_msg_data => l_msg_data);
13684: IF l_return_status <> fnd_api.g_ret_sts_success THEN
13685: RAISE excep_get_gt_sequence;
13686: END IF;
13687: --l_gt_id := g_gt_id;
13688: --}
13826: l_adj_rec ar_adjustments%ROWTYPE;
13827: l_app_rec ar_receivable_applications%ROWTYPE;
13828: l_gt_id NUMBER;
13829: l_out_res VARCHAR2(1);
13830: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13831: l_msg_count NUMBER := 0;
13832: l_msg_data VARCHAR2(2000);
13833: l_upg_cm VARCHAR2(1);
13834: l_rows NUMBER;
13846: get_gt_sequence (x_gt_id => l_gt_id,
13847: x_return_status => l_return_status,
13848: x_msg_count => l_msg_count,
13849: x_msg_data => l_msg_data);
13850: IF l_return_status <> fnd_api.g_ret_sts_success THEN
13851: RAISE excep_get_gt_sequence;
13852: END IF;
13853: --l_gt_id := g_gt_id;
13854: --}
13933:
13934: -- If the application is from MFAR legacy the bucket of app charge can be wrong versus the
13935: -- remaining amount buckets of the transaction as the changes are prorated over all distributions
13936: IF g_mode_process = 'R12_11IMFAR' AND p_inv_cm = 'I' THEN
13937: l_return_status := FND_API.G_RET_STS_SUCCESS;
13938:
13939: ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
13940: ( p_app_rec => p_app_rec,
13941: x_app_rec => l_app_rec,
13944: x_return_status => l_return_status,
13945: x_msg_data => l_msg_data,
13946: x_msg_count => l_msg_count);
13947:
13948: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13949: RAISE fnd_api.G_EXC_ERROR;
13950: END IF;
13951:
13952: IF PG_DEBUG = 'Y' THEN
13945: x_msg_data => l_msg_data,
13946: x_msg_count => l_msg_count);
13947:
13948: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13949: RAISE fnd_api.G_EXC_ERROR;
13950: END IF;
13951:
13952: IF PG_DEBUG = 'Y' THEN
13953: localdebug('l_app_rec.RECEIVABLES_CHARGES_APPLIED :' ||l_app_rec.RECEIVABLES_CHARGES_APPLIED);
14067: localdebug('EXCEPTION_get_gt_sequence IN Trx_level_cash_apply error count:'||l_msg_count);
14068: localdebug('last error:'||l_msg_data);
14069: END IF;
14070: RAISE;
14071: WHEN fnd_api.G_EXC_ERROR THEN
14072: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
14073: p_count => l_msg_count,
14074: p_data => l_msg_data);
14075: IF PG_DEBUG = 'Y' THEN
14068: localdebug('last error:'||l_msg_data);
14069: END IF;
14070: RAISE;
14071: WHEN fnd_api.G_EXC_ERROR THEN
14072: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
14073: p_count => l_msg_count,
14074: p_data => l_msg_data);
14075: IF PG_DEBUG = 'Y' THEN
14076: localdebug('fnd_api.G_EXC_ERROR IN Trx_level_direct_cash_apply error count:'||l_msg_count);
14072: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
14073: p_count => l_msg_count,
14074: p_data => l_msg_data);
14075: IF PG_DEBUG = 'Y' THEN
14076: localdebug('fnd_api.G_EXC_ERROR IN Trx_level_direct_cash_apply error count:'||l_msg_count);
14077: localdebug('last error:'||l_msg_data);
14078: END IF;
14079: RAISE;
14080: WHEN OTHERS THEN
14936: | p_amt_rem containing amount kept at invoice |
14937: | lines. |
14938: | x_return_status value according to the possibility |
14939: | of the adjustment |
14940: | FND_API.G_RET_STS_SUCCESS if possible |
14941: | FND_API.G_RET_STS_ERROR if imposssible |
14942: | x_line_adj codification for line adjustment |
14943: | x_tax_adj codification for tax adjustment |
14944: | x_frt_adj codification for freight adjustment |
14937: | lines. |
14938: | x_return_status value according to the possibility |
14939: | of the adjustment |
14940: | FND_API.G_RET_STS_SUCCESS if possible |
14941: | FND_API.G_RET_STS_ERROR if imposssible |
14942: | x_line_adj codification for line adjustment |
14943: | x_tax_adj codification for tax adjustment |
14944: | x_frt_adj codification for freight adjustment |
14945: | x_chrg_adj codification for charge adjustment |
14967: IF PG_DEBUG = 'Y' THEN
14968: localdebug('arp_det_dist_pkg.possible_adjust()+');
14969: END IF;
14970:
14971: x_return_status := FND_API.G_RET_STS_SUCCESS;
14972:
14973: get_orig_amt(p_customer_trx_id => p_customer_trx_id,
14974: x_amt_rem => l_amt_rem);
14975:
14972:
14973: get_orig_amt(p_customer_trx_id => p_customer_trx_id,
14974: x_amt_rem => l_amt_rem);
14975:
14976: -- IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
14977: x_tax_adj := tax_adj_type(p_adj_rec => p_adj_rec,
14978: p_ae_rule_rec => p_ae_rule_rec,
14979: p_amt_rem => l_amt_rem,
14980: p_app_rec => p_app_rec,
15020: IF x_line_adj IN ('LA_GASROI_NRL',
15021: 'LA_GASTCI_YRL_NTR',
15022: 'LA_GASTCI_NRL')
15023: THEN
15024: x_return_status := FND_API.G_RET_STS_ERROR;
15025: fnd_message.set_name('AR','AR_'||x_line_adj);
15026: fnd_msg_pub.add;
15027: END IF;
15028:
15034: 'CATB_GASACT_TCSN_NTL',
15035: 'FATB_TCSINV_NTL','FATB_GASTCI_TCSN_NTL','FATB_GASROI_TCSN_NTL',
15036: 'FATB_GASACT_TCSN_NTL'
15037: ) THEN
15038: x_return_status := FND_API.G_RET_STS_ERROR;
15039: fnd_message.set_name('AR','AR_'||x_tax_adj);
15040: fnd_msg_pub.add;
15041: END IF;
15042:
15042:
15043: IF x_frt_adj IN ('FA_GASROI_NHFL_NLFL' , 'FA_GASROI_YHFL_NLFL',
15044: 'FA_GASTCI_NHFL_NLFL_NTF', 'FA_GASTCI_NHFL_YLFL_NTF',
15045: 'FA_GASTCI_NHFL_NLFL_YTF', 'FA_GASTCI_YHFL_NLFL_NTF') THEN
15046: x_return_status := FND_API.G_RET_STS_ERROR;
15047: fnd_message.set_name('AR','AR_'||x_frt_adj);
15048: fnd_msg_pub.add;
15049: END IF;
15050:
15056: --
15057: -- IF g_chrg_adj IN ('CA_GASROI','CA_GASTCI','CA_GASACT_NRL_NHFL_NLFL') THEN
15058: --HYU reautorise 'CA_GASACT_NRL_NHFL_NLFL'
15059: IF x_chrg_adj IN ('CA_GASROI','CA_GASTCI') THEN
15060: x_return_status := FND_API.G_RET_STS_ERROR;
15061: fnd_message.set_name('AR','AR_'||x_chrg_adj);
15062: fnd_msg_pub.add;
15063: END IF;
15064:
15614: END IF;
15615:
15616: AR_Revenue_Adjustment_PVT.Earn_Revenue
15617: ( p_api_version => 2
15618: ,p_init_msg_list => FND_API.G_TRUE
15619: ,p_commit => FND_API.G_FALSE
15620: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
15621: ,x_return_status => l_return_status
15622: ,x_msg_count => l_msg_count
15615:
15616: AR_Revenue_Adjustment_PVT.Earn_Revenue
15617: ( p_api_version => 2
15618: ,p_init_msg_list => FND_API.G_TRUE
15619: ,p_commit => FND_API.G_FALSE
15620: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
15621: ,x_return_status => l_return_status
15622: ,x_msg_count => l_msg_count
15623: ,x_msg_data => l_msg_data
15616: AR_Revenue_Adjustment_PVT.Earn_Revenue
15617: ( p_api_version => 2
15618: ,p_init_msg_list => FND_API.G_TRUE
15619: ,p_commit => FND_API.G_FALSE
15620: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
15621: ,x_return_status => l_return_status
15622: ,x_msg_count => l_msg_count
15623: ,x_msg_data => l_msg_data
15624: ,p_rev_adj_rec => l_rev_adj_rec
15627: ,x_dist_count => l_dist_count
15628: ,x_ra_dist_tbl => l_ra_dist_tbl);
15629:
15630:
15631: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15632:
15633: IF l_msg_count > 1 THEN
15634: fnd_msg_pub.reset;
15635: --get only the first message from the api message stack for forms users
15632:
15633: IF l_msg_count > 1 THEN
15634: fnd_msg_pub.reset;
15635: --get only the first message from the api message stack for forms users
15636: l_mesg := fnd_msg_pub.get(p_encoded=>FND_API.G_FALSE);
15637: ELSE
15638: l_mesg := l_msg_data;
15639: END IF;
15640:
15732: END;
15733:
15734:
15735: PROCEDURE exec_revrec_if_required
15736: (p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_TRUE
15737: ,p_mode IN VARCHAR2 DEFAULT 'TRANSACTION'
15738: ,p_customer_trx_id IN NUMBER DEFAULT NULL
15739: ,p_request_id IN NUMBER DEFAULT NULL
15740: ,x_sum_dist OUT NOCOPY NUMBER
15766: localdebug(' p_customer_trx_id :' || p_customer_trx_id);
15767: localdebug(' p_request_id :' || p_request_id);
15768: END IF;
15769:
15770: x_return_status := FND_API.G_RET_STS_SUCCESS;
15771:
15772: IF FND_API.to_Boolean(p_init_msg_list) THEN
15773: FND_MSG_PUB.initialize;
15774: END IF;
15768: END IF;
15769:
15770: x_return_status := FND_API.G_RET_STS_SUCCESS;
15771:
15772: IF FND_API.to_Boolean(p_init_msg_list) THEN
15773: FND_MSG_PUB.initialize;
15774: END IF;
15775:
15776: IF p_mode <> 'TRANSACTION' THEN
15776: IF p_mode <> 'TRANSACTION' THEN
15777: x_msg_data := 'Only transaction mode is supported currently.
15778: ';
15779: x_msg_count := 1;
15780: x_return_status := FND_API.G_RET_STS_ERROR;
15781: END IF;
15782:
15783: IF p_mode = 'TRANSACTION' AND p_customer_trx_id IS NULL THEN
15784: x_msg_data := x_msg_data||'The p_customer_trx_id is required, currently it is passed as null.
15783: IF p_mode = 'TRANSACTION' AND p_customer_trx_id IS NULL THEN
15784: x_msg_data := x_msg_data||'The p_customer_trx_id is required, currently it is passed as null.
15785: ';
15786: x_msg_count := 1;
15787: x_return_status := FND_API.G_RET_STS_ERROR;
15788: END IF;
15789:
15790: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15791: RAISE wrong_parameter;
15786: x_msg_count := 1;
15787: x_return_status := FND_API.G_RET_STS_ERROR;
15788: END IF;
15789:
15790: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15791: RAISE wrong_parameter;
15792: END IF;
15793:
15794:
15825: CLOSE c_trx_number;
15826: FND_MESSAGE.SET_NAME( 'AR', 'AR_AUTORULE_ERROR' );
15827: FND_MESSAGE.SET_TOKEN( 'TRX_NUMBER', l_trx_number );
15828: FND_MSG_PUB.ADD;
15829: x_return_status := FND_API.G_RET_STS_ERROR;
15830: END IF;
15831: IF PG_DEBUG = 'Y' THEN
15832: localdebug(' Completed running revenue recognition for Transaction');
15833: END IF;
15832: localdebug(' Completed running revenue recognition for Transaction');
15833: END IF;
15834: END IF;
15835:
15836: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15837: RAISE fnd_api.G_EXC_ERROR;
15838: END IF;
15839: IF PG_DEBUG = 'Y' THEN
15840: localdebug( 'arp_det_dist_pkg.exec_revrec_if_required()-');
15833: END IF;
15834: END IF;
15835:
15836: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15837: RAISE fnd_api.G_EXC_ERROR;
15838: END IF;
15839: IF PG_DEBUG = 'Y' THEN
15840: localdebug( 'arp_det_dist_pkg.exec_revrec_if_required()-');
15841: END IF;
15839: IF PG_DEBUG = 'Y' THEN
15840: localdebug( 'arp_det_dist_pkg.exec_revrec_if_required()-');
15841: END IF;
15842: EXCEPTION
15843: WHEN fnd_api.G_EXC_ERROR THEN
15844: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
15845: p_count => x_msg_count,
15846: p_data => x_msg_data);
15847:
15840: localdebug( 'arp_det_dist_pkg.exec_revrec_if_required()-');
15841: END IF;
15842: EXCEPTION
15843: WHEN fnd_api.G_EXC_ERROR THEN
15844: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
15845: p_count => x_msg_count,
15846: p_data => x_msg_data);
15847:
15848: WHEN wrong_parameter THEN localdebug(x_msg_count);
15847:
15848: WHEN wrong_parameter THEN localdebug(x_msg_count);
15849:
15850: WHEN OTHERS THEN
15851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15852: x_msg_count := NVL(x_msg_count,0) + 1;
15853: x_msg_data :='EXCEPTION OTHERS exec_revrec_if_required :'||SQLERRM ;
15854: IF PG_DEBUG = 'Y' THEN
15855: localdebug(x_msg_data );
17974: p_source_data_key3:'||p_source_data_key3||'
17975: p_source_data_key4:'||p_source_data_key4||'
17976: p_source_data_key5:'||p_source_data_key5);
17977: FND_MSG_PUB.ADD;
17978: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
17979: p_count => x_msg_count,
17980: p_data => x_msg_data);
17981: x_return_status := FND_API.G_RET_STS_SUCCESS;
17982: WHEN OTHERS THEN
17977: FND_MSG_PUB.ADD;
17978: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
17979: p_count => x_msg_count,
17980: p_data => x_msg_data);
17981: x_return_status := FND_API.G_RET_STS_SUCCESS;
17982: WHEN OTHERS THEN
17983: IF PG_DEBUG = 'Y' THEN
17984: localdebug('EXCEPTION OTHERS get_latest_amount_remaining:'||SQLERRM);
17985: END IF;
17985: END IF;
17986: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
17987: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_latest_amount_remaining-'||SQLERRM );
17988: FND_MSG_PUB.ADD;
17989: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
17990: p_count => x_msg_count,
17991: p_data => x_msg_data);
17992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17993:
17988: FND_MSG_PUB.ADD;
17989: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
17990: p_count => x_msg_count,
17991: p_data => x_msg_data);
17992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17993:
17994: END get_latest_amount_remaining;
17995:
17996:
18411: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
18412: p_gt_id IN NUMBER,
18413: p_line_flag IN VARCHAR2 DEFAULT 'INTERFACE',
18414: p_tax_flag IN VARCHAR2 DEFAULT 'INTERFACE',
18415: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
18416: x_return_status IN OUT NOCOPY VARCHAR2,
18417: x_msg_count IN OUT NOCOPY NUMBER,
18418: x_msg_data IN OUT NOCOPY VARCHAR2,
18419: p_llca_from_call IN VARCHAR2 DEFAULT NULL,
18430: localdebug(' p_ae_sys_rec.base_currency :'|| p_ae_sys_rec.base_currency);
18431: localdebug(' p_llca_from_call :'|| p_llca_from_call);
18432: END IF;
18433:
18434: x_return_status := fnd_api.g_ret_sts_success;
18435:
18436: IF FND_API.to_Boolean(p_init_msg_list) THEN
18437: FND_MSG_PUB.initialize;
18438: END IF;
18432: END IF;
18433:
18434: x_return_status := fnd_api.g_ret_sts_success;
18435:
18436: IF FND_API.to_Boolean(p_init_msg_list) THEN
18437: FND_MSG_PUB.initialize;
18438: END IF;
18439:
18440: arp_process_det_pkg.verif_int_adj_line_tax(
18445: p_line_flag => p_line_flag,
18446: p_tax_flag => p_tax_flag,
18447: x_return_status => x_return_status);
18448:
18449: IF x_return_status <> fnd_api.g_ret_sts_success THEN
18450: RAISE fnd_api.G_EXC_ERROR;
18451: END IF;
18452:
18453: g_gt_id := p_gt_id;
18446: p_tax_flag => p_tax_flag,
18447: x_return_status => x_return_status);
18448:
18449: IF x_return_status <> fnd_api.g_ret_sts_success THEN
18450: RAISE fnd_api.G_EXC_ERROR;
18451: END IF;
18452:
18453: g_gt_id := p_gt_id;
18454:
18537: IF PG_DEBUG = 'Y' THEN
18538: localdebug('arp_det_dist_pkg.adjustment_with_interface()-');
18539: END IF;
18540: EXCEPTION
18541: WHEN fnd_api.G_EXC_ERROR THEN
18542: FND_MSG_PUB.Count_And_Get(
18543: p_encoded => FND_API.G_FALSE,
18544: p_count => x_msg_count,
18545: p_data => x_msg_data);
18539: END IF;
18540: EXCEPTION
18541: WHEN fnd_api.G_EXC_ERROR THEN
18542: FND_MSG_PUB.Count_And_Get(
18543: p_encoded => FND_API.G_FALSE,
18544: p_count => x_msg_count,
18545: p_data => x_msg_data);
18546: IF PG_DEBUG = 'Y' THEN
18547: localdebug('fnd_api.G_EXC_ERROR IN adjustment_with_interface error count:'||x_msg_count);
18543: p_encoded => FND_API.G_FALSE,
18544: p_count => x_msg_count,
18545: p_data => x_msg_data);
18546: IF PG_DEBUG = 'Y' THEN
18547: localdebug('fnd_api.G_EXC_ERROR IN adjustment_with_interface error count:'||x_msg_count);
18548: localdebug('last error:'||x_msg_data);
18549: END IF;
18550: RAISE;
18551: WHEN OTHERS THEN
18566: p_ed_line_flag IN VARCHAR2 DEFAULT 'NORMAL',
18567: p_ed_tax_flag IN VARCHAR2 DEFAULT 'NORMAL',
18568: p_uned_line_flag IN VARCHAR2 DEFAULT 'NORMAL',
18569: p_uned_tax_flag IN VARCHAR2 DEFAULT 'NORMAL',
18570: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
18571: x_return_status IN OUT NOCOPY VARCHAR2,
18572: x_msg_count IN OUT NOCOPY NUMBER,
18573: x_msg_data IN OUT NOCOPY VARCHAR2)
18574: IS
18579: localdebug(' p_customer_trx_id :'||p_customer_trx.customer_trx_id);
18580: localdebug(' p_gt_id :'||p_gt_id);
18581: END IF;
18582:
18583: x_return_status := fnd_api.g_ret_sts_success;
18584:
18585: IF FND_API.to_Boolean(p_init_msg_list) THEN
18586: FND_MSG_PUB.initialize;
18587: END IF;
18581: END IF;
18582:
18583: x_return_status := fnd_api.g_ret_sts_success;
18584:
18585: IF FND_API.to_Boolean(p_init_msg_list) THEN
18586: FND_MSG_PUB.initialize;
18587: END IF;
18588:
18589: arp_process_det_pkg.verif_int_app_line_tax
18598: p_uned_line_flag => p_uned_line_flag,
18599: p_uned_tax_flag => p_uned_tax_flag,
18600: x_return_status => x_return_status);
18601:
18602: IF x_return_status <> fnd_api.g_ret_sts_success THEN
18603: RAISE fnd_api.G_EXC_ERROR;
18604: END IF;
18605:
18606: g_gt_id := p_gt_id;
18599: p_uned_tax_flag => p_uned_tax_flag,
18600: x_return_status => x_return_status);
18601:
18602: IF x_return_status <> fnd_api.g_ret_sts_success THEN
18603: RAISE fnd_api.G_EXC_ERROR;
18604: END IF;
18605:
18606: g_gt_id := p_gt_id;
18607:
18624: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR');
18625: FND_MESSAGE.SET_TOKEN('TEXT','application_with_interface is not supported for 11i transaction with activities customer_trx_id :'||
18626: p_customer_trx.customer_trx_id);
18627: FND_MSG_PUB.ADD;
18628: x_return_status := fnd_api.g_ret_sts_success;
18629: RAISE fnd_api.G_EXC_ERROR;
18630: ELSE
18631:
18632: copy_trx_lines(p_customer_trx_id => p_customer_trx.customer_trx_id,
18625: FND_MESSAGE.SET_TOKEN('TEXT','application_with_interface is not supported for 11i transaction with activities customer_trx_id :'||
18626: p_customer_trx.customer_trx_id);
18627: FND_MSG_PUB.ADD;
18628: x_return_status := fnd_api.g_ret_sts_success;
18629: RAISE fnd_api.G_EXC_ERROR;
18630: ELSE
18631:
18632: copy_trx_lines(p_customer_trx_id => p_customer_trx.customer_trx_id,
18633: p_ae_sys_rec => p_ae_sys_rec);
18634:
18635:
18636: IF g_mode_process = 'R12_11IMFAR' THEN
18637:
18638: x_return_status := fnd_api.g_ret_sts_success;
18639: IF PG_DEBUG = 'Y' THEN
18640: localdebug('application_with_interface is not supported for 11i MFAR transaction with activities');
18641: END IF;
18642: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR');
18642: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR');
18643: FND_MESSAGE.SET_TOKEN('TEXT','application_with_interface is not supported for 11i MFAR transaction with activities customer_trx_id :'||
18644: p_customer_trx.customer_trx_id);
18645: FND_MSG_PUB.ADD;
18646: RAISE fnd_api.G_EXC_ERROR;
18647:
18648: END IF;
18649: --}
18650:
18704: IF PG_DEBUG = 'Y' THEN
18705: localdebug('arp_det_dist_pkg.application_with_interface()-');
18706: END IF;
18707: EXCEPTION
18708: WHEN fnd_api.G_EXC_ERROR THEN
18709: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
18710: p_count => x_msg_count,
18711: p_data => x_msg_data);
18712: IF PG_DEBUG = 'Y' THEN
18705: localdebug('arp_det_dist_pkg.application_with_interface()-');
18706: END IF;
18707: EXCEPTION
18708: WHEN fnd_api.G_EXC_ERROR THEN
18709: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
18710: p_count => x_msg_count,
18711: p_data => x_msg_data);
18712: IF PG_DEBUG = 'Y' THEN
18713: localdebug('fnd_api.G_EXC_ERROR IN application_with_interface error count:'||x_msg_count);
18709: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
18710: p_count => x_msg_count,
18711: p_data => x_msg_data);
18712: IF PG_DEBUG = 'Y' THEN
18713: localdebug('fnd_api.G_EXC_ERROR IN application_with_interface error count:'||x_msg_count);
18714: localdebug('last error:'||x_msg_data);
18715: END IF;
18716: RAISE;
18717: WHEN OTHERS THEN
18886: localdebug('application record the amount_earned :'||p_app_rec.earned_discount_taken);
18887: localdebug('application record the amount_unearned:'||p_app_rec.unearned_discount_taken);
18888: localdebug('Gross transaction amount do not reconcile');
18889: END IF;
18890: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18891: ELSIF ABS(nvl(l_acctd_sum,0)) <> ABS(NVL(p_app_rec.acctd_amount_applied_to,0)
18892: + NVL(p_app_rec.ACCTD_UNEARNED_DISCOUNT_TAKEN,0)
18893: + NVL(p_app_rec.ACCTD_EARNED_DISCOUNT_TAKEN,0) ) THEN
18894: IF PG_DEBUG = 'Y' THEN
18902: l_acctd_amt_sum := ABS(NVL(p_app_rec.acctd_amount_applied_to,0)
18903: + NVL(p_app_rec.ACCTD_UNEARNED_DISCOUNT_TAKEN,0)
18904: + NVL(p_app_rec.ACCTD_EARNED_DISCOUNT_TAKEN,0));
18905:
18906: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18907: END IF;
18908: ELSIF p_activity_type = 'ADJ' THEN
18909: IF ABS(nvl(l_sum,0)) <> ABS(NVL(p_adj_rec.amount,0)) THEN
18910: IF PG_DEBUG = 'Y' THEN
18911: localdebug('From the detail gt the amount l_sum :'||l_sum);
18912: localdebug('adjustment record the amount:'||p_adj_rec.amount);
18913: localdebug('Gross transaction amount do not reconcile');
18914: END IF;
18915: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18916: ELSIF ABS(nvl(l_acctd_sum,0)) <> ABS(NVL(p_adj_rec.acctd_amount,0)) THEN
18917: IF PG_DEBUG = 'Y' THEN
18918: localdebug('From the detail gt the acctd_amount l_acctd_sum :'||l_acctd_sum);
18919: localdebug('adjustment record the acctd_amount:'||p_adj_rec.acctd_amount);
18920: localdebug('Gross transaction acctd amount do not reconcile');
18921: END IF;
18922: l_check_precision := 'Y';
18923: l_acctd_amt_sum := ABS(NVL(p_adj_rec.acctd_amount,0));
18924: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18925: END IF;
18926: END IF;
18927:
18928:
18957: IF PG_DEBUG = 'Y' THEN
18958: localdebug('From the detail gt the applied amount l_app_amt :'||l_app_amt);
18959: localdebug('application record the amount_applied :'||p_app_rec.amount_applied);
18960: END IF;
18961: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18962: ELSIF ABS(l_ed_amt) <> ABS( NVL(p_app_rec.earned_discount_taken,0)) THEN
18963: IF PG_DEBUG = 'Y' THEN
18964: localdebug('From the detail gt the ed amount l_ed_amt :'||l_ed_amt);
18965: localdebug('application record the amount_earned :'||p_app_rec.earned_discount_taken);
18963: IF PG_DEBUG = 'Y' THEN
18964: localdebug('From the detail gt the ed amount l_ed_amt :'||l_ed_amt);
18965: localdebug('application record the amount_earned :'||p_app_rec.earned_discount_taken);
18966: END IF;
18967: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18968: ELSIF ABS(l_uned_amt) <> ABS( NVL(p_app_rec.unearned_discount_taken,0)) THEN
18969: IF PG_DEBUG = 'Y' THEN
18970: localdebug('From the detail gt the uned amount l_uned_amt :'||l_uned_amt);
18971: localdebug('application record the amount_unearned:'||p_app_rec.unearned_discount_taken);
18969: IF PG_DEBUG = 'Y' THEN
18970: localdebug('From the detail gt the uned amount l_uned_amt :'||l_uned_amt);
18971: localdebug('application record the amount_unearned:'||p_app_rec.unearned_discount_taken);
18972: END IF;
18973: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18974: ELSIF ABS(l_app_acctd_amt) <> ABS(NVL(p_app_rec.acctd_amount_applied_to,0)) THEN
18975: IF PG_DEBUG = 'Y' THEN
18976: localdebug('From the detail gt the applied amount l_app_acctd_amt :'||l_app_acctd_amt);
18977: localdebug('application record the acctd_amount_applied :'||p_app_rec.acctd_amount_applied_to);
18977: localdebug('application record the acctd_amount_applied :'||p_app_rec.acctd_amount_applied_to);
18978: END IF;
18979: l_check_precision := 'Y';
18980: l_acctd_amt_sum := ABS(NVL(p_app_rec.acctd_amount_applied_to,0));
18981: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18982: ELSIF ABS(l_ed_acctd_amt) <> ABS( NVL(p_app_rec.acctd_earned_discount_taken,0)) THEN
18983: IF PG_DEBUG = 'Y' THEN
18984: localdebug('From the detail gt the ed amount l_ed_acctd_amt :'||l_ed_acctd_amt);
18985: localdebug('application record the acctd_amount_earned :'||p_app_rec.acctd_earned_discount_taken);
18985: localdebug('application record the acctd_amount_earned :'||p_app_rec.acctd_earned_discount_taken);
18986: END IF;
18987: l_check_precision := 'Y';
18988: l_acctd_amt_sum := ABS(NVL(p_app_rec.acctd_earned_discount_taken,0));
18989: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18990: ELSIF ABS(l_uned_acctd_amt) <> ABS( NVL(p_app_rec.acctd_unearned_discount_taken,0)) THEN
18991: IF PG_DEBUG = 'Y' THEN
18992: localdebug('From the detail gt the ed amount l_uned_acctd_amt :'||l_uned_acctd_amt);
18993: localdebug('application record the acctd_amount_unearned :'||p_app_rec.acctd_unearned_discount_taken);
18993: localdebug('application record the acctd_amount_unearned :'||p_app_rec.acctd_unearned_discount_taken);
18994: END IF;
18995: l_check_precision := 'Y';
18996: l_acctd_amt_sum := ABS(NVL(p_app_rec.acctd_unearned_discount_taken,0));
18997: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
18998: END IF;
18999:
19000: END IF;
19001: END IF;
19003: IF PG_DEBUG = 'Y' THEN
19004: localdebug('arp_det_dist_pkg.reconciliation()-');
19005: END IF;
19006: EXCEPTION
19007: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
19008: IF l_check_valid = 1 THEN
19009: FND_MESSAGE.SET_NAME( 'AR', 'AR_APP_PARTIAL_REV' );
19010: APP_EXCEPTION.RAISE_EXCEPTION;
19011: ELSIF l_check_valid = 2 THEN