[Home] [Help]
1: PACKAGE BODY ARP_DET_DIST_PKG AS
2: /* $Header: ARPDDB.pls 120.57.12010000.36 2009/01/18 08:52:26 naneja ship $ */
3:
4: --{HYU possible_adj
5: TYPE g_amt_rem_type IS RECORD (
403: FROM DUAL;
404: no_sequence EXCEPTION;
405: BEGIN
406: IF PG_DEBUG = 'Y' THEN
407: localdebug('arp_det_dist_pkg.get_gt_sequence()+');
408: END IF;
409: OPEN c_gt;
410: FETCH c_gt INTO x_gt_id;
411: IF c_gt%NOTFOUND THEN
412: RAISE no_sequence;
413: END IF;
414: CLOSE c_gt;
415: IF PG_DEBUG = 'Y' THEN
416: localdebug('arp_det_dist_pkg.get_gt_sequence()-');
417: END IF;
418: EXCEPTION
419: WHEN no_sequence THEN
420: IF c_gt%ISOPEN THEN
451: WHERE customer_trx_id = p_customer_trx.customer_trx_id;
452: l_mark VARCHAR2(30);
453: BEGIN
454: IF PG_DEBUG = 'Y' THEN
455: localdebug('arp_det_dist_pkg.set_mode_process()+');
456: localdebug(' p_customer_trx.customer_trx_id :'||p_customer_trx.customer_trx_id);
457: localdebug(' p_customer_trx.upgrade_method :'||p_customer_trx.upgrade_method);
458: END IF;
459:
484: g_mode_process := 'R12_NLB';
485: END IF;
486: IF PG_DEBUG = 'Y' THEN
487: localdebug(' g_mode_process :'||g_mode_process);
488: localdebug('arp_det_dist_pkg.set_mode_process()-');
489: END IF;
490:
491: END;
492: --}
940: IS
941: i NUMBER(15);
942: BEGIN
943: IF PG_DEBUG = 'Y' THEN
944: localdebug('arp_det_dist_pkg.return_existing_group()+');
945: localdebug(' p_groupe '||p_groupe);
946: END IF;
947: x_exist := FALSE;
948: -- ADJ and APP
1113: END IF;
1114: END IF;
1115: END IF;
1116: IF PG_DEBUG = 'Y' THEN
1117: localdebug('arp_det_dist_pkg.return_existing_group()-');
1118: END IF;
1119: END return_existing_group;
1120:
1121: /*------------------------------------------+
1183: l_cnt NUMBER;
1184: i NUMBER(15);
1185: BEGIN
1186: IF PG_DEBUG = 'Y' THEN
1187: localdebug('arp_det_dist_pkg.store_group()+');
1188: localdebug(' p_groupe :'||p_groupe);
1189: -- ADJ and APP
1190: localdebug(' p_run_amt :'||p_run_amt);
1191: localdebug(' p_run_alloc :'||p_run_alloc);
1417: x_group_tbl.run_uned_tax_acctd_alloc(l_cnt+1) := p_run_uned_tax_acctd_alloc;
1418: END IF;
1419: END IF;
1420: IF PG_DEBUG = 'Y' THEN
1421: localdebug('arp_det_dist_pkg.store_group()-');
1422: END IF;
1423: END;
1424:
1425:
1510: l_exist BOOLEAN;
1511: tbl_pro_res_tbl_empty EXCEPTION;
1512: BEGIN
1513: IF PG_DEBUG = 'Y' THEN
1514: localdebug('arp_det_dist_pkg.plsql_proration()+');
1515: END IF;
1516: IF x_tab.ROWID_ID.COUNT = 0 THEN
1517: RAISE tbl_pro_res_tbl_empty;
1518: END IF;
2321: END IF;
2322:
2323: END LOOP;
2324: IF PG_DEBUG = 'Y' THEN
2325: localdebug('arp_det_dist_pkg.plsql_proration()-');
2326: END IF;
2327: EXCEPTION
2328: WHEN tbl_pro_res_tbl_empty THEN
2329: IF PG_DEBUG = 'Y' THEN
2550: l_last_fetch BOOLEAN;
2551:
2552: BEGIN
2553: IF PG_DEBUG = 'Y' THEN
2554: localdebug('arp_det_dist_pkg.update_line()+');
2555: END IF;
2556:
2557: OPEN c_read_for_line;
2558: LOOP
2755:
2756: END LOOP;
2757: CLOSE c_read_for_line;
2758: IF PG_DEBUG = 'Y' THEN
2759: localdebug('arp_det_dist_pkg.update_line()-');
2760: END IF;
2761: END update_line;
2762:
2763:
2771: l_rows NUMBER;
2772:
2773: BEGIN
2774: IF PG_DEBUG = 'Y' THEN
2775: localdebug('arp_det_dist_pkg.get_invoice_line_info()+');
2776: localdebug(' p_mode :'||p_mode);
2777: localdebug(' p_customer_trx_id :'||p_customer_trx_id);
2778: localdebug(' sob_type :'||p_ae_sys_rec.sob_type);
2779: localdebug(' set_of_books_id :'||p_ae_sys_rec.set_of_books_id);
3217: display_ra_ar_gt(p_gt_id => p_gt_id);
3218: END IF;
3219:
3220: IF PG_DEBUG = 'Y' THEN
3221: localdebug('arp_det_dist_pkg.get_invoice_line_info()-');
3222: END IF;
3223: EXCEPTION
3224: WHEN OTHERS THEN
3225: IF PG_DEBUG = 'Y' THEN
3238: IS
3239: l_rows NUMBER;
3240: BEGIN
3241: IF PG_DEBUG = 'Y' THEN
3242: localdebug('arp_det_dist_pkg.prepare_group_for_proration()+');
3243: END IF;
3244:
3245: IF p_pay_adj = 'APP' THEN
3246: IF(p_app_rec.LINE_EDISCOUNTED IS NOT NULL AND p_app_rec.LINE_EDISCOUNTED <> 0) OR
3777: ---------
3778: -- Bucket
3779: ---------
3780: -- Buc Rev
3781: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
3782: a.line_type,
3783: 'N',
3784: 'N',
3785: 'N'),
3782: a.line_type,
3783: 'N',
3784: 'N',
3785: 'N'),
3786: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
3787: a.line_type,
3788: 'Y',
3789: 'N',
3790: 'N'),
3788: 'Y',
3789: 'N',
3790: 'N'),
3791: --Buc Freight
3792: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
3793: a.line_type,
3794: 'N',
3795: 'N',
3796: 'Y'),
3793: a.line_type,
3794: 'N',
3795: 'N',
3796: 'Y'),
3797: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
3798: a.line_type,
3799: 'Y',
3800: 'N',
3801: 'Y'),
3799: 'Y',
3800: 'N',
3801: 'Y'),
3802: -- Buc Tax
3803: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
3804: a.line_type,
3805: 'N',
3806: 'N',
3807: 'N'),
3804: a.line_type,
3805: 'N',
3806: 'N',
3807: 'N'),
3808: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
3809: a.line_type,
3810: 'Y',
3811: 'N',
3812: 'N'),
3810: 'Y',
3811: 'N',
3812: 'N'),
3813: -- Buc Chrg
3814: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
3815: a.line_type,
3816: 'N',
3817: 'Y',
3818: 'N'),
3815: a.line_type,
3816: 'N',
3817: 'Y',
3818: 'N'),
3819: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
3820: a.line_type,
3821: 'Y',
3822: 'Y',
3823: 'N'),
3843: a.SUM_GP_LINE_CHRG_REM_ACCTD_AMT,
3844:
3845: CASE
3846: when g_ed_req = 'Y' then
3847: arp_det_dist_pkg.the_concern_bucket('ED',
3848: a.line_type,
3849: 'N',
3850: 'N',
3851: 'N')
3851: 'N')
3852: else 0 end,
3853: CASE
3854: when g_ed_req = 'Y' then
3855: arp_det_dist_pkg.the_concern_bucket('ED',
3856: a.line_type,
3857: 'Y',
3858: 'N',
3859: 'N')
3859: 'N')
3860: else 0 end,
3861: CASE
3862: when g_ed_req = 'Y' then
3863: arp_det_dist_pkg.the_concern_bucket('ED',
3864: a.line_type,
3865: 'N',
3866: 'N',
3867: 'Y')
3867: 'Y')
3868: else 0 end,
3869: CASE
3870: when g_ed_req = 'Y' then
3871: arp_det_dist_pkg.the_concern_bucket('ED',
3872: a.line_type,
3873: 'Y',
3874: 'N',
3875: 'Y')
3875: 'Y')
3876: else 0 end,
3877: CASE
3878: when g_ed_req = 'Y' then
3879: arp_det_dist_pkg.the_concern_bucket('ED',
3880: a.line_type,
3881: 'N',
3882: 'N',
3883: 'N')
3883: 'N')
3884: else 0 end,
3885: CASE
3886: when g_ed_req = 'Y' then
3887: arp_det_dist_pkg.the_concern_bucket('ED',
3888: a.line_type,
3889: 'Y',
3890: 'N',
3891: 'N')
3891: 'N')
3892: else 0 end,
3893: CASE
3894: when g_ed_req = 'Y' then
3895: arp_det_dist_pkg.the_concern_bucket('ED',
3896: a.line_type,
3897: 'N',
3898: 'Y',
3899: 'N')
3899: 'N')
3900: else 0 end,
3901: CASE
3902: when g_ed_req = 'Y' then
3903: arp_det_dist_pkg.the_concern_bucket('ED',
3904: a.line_type,
3905: 'Y',
3906: 'Y',
3907: 'N')
3928: a.SUM_GP_LINE_CHRG_REM_ACCTD_AMT,
3929: --
3930: CASE
3931: when g_uned_req = 'Y' then
3932: arp_det_dist_pkg.the_concern_bucket('UNED',
3933: a.line_type,
3934: 'N',
3935: 'N',
3936: 'N')
3936: 'N')
3937: else 0 end,
3938: CASE
3939: when g_uned_req = 'Y' then
3940: arp_det_dist_pkg.the_concern_bucket('UNED',
3941: a.line_type,
3942: 'Y',
3943: 'N',
3944: 'N')
3944: 'N')
3945: else 0 end,
3946: CASE
3947: when g_uned_req = 'Y' then
3948: arp_det_dist_pkg.the_concern_bucket('UNED',
3949: a.line_type,
3950: 'N',
3951: 'N',
3952: 'Y')
3952: 'Y')
3953: else 0 end,
3954: CASE
3955: when g_uned_req = 'Y' then
3956: arp_det_dist_pkg.the_concern_bucket('UNED',
3957: a.line_type,
3958: 'Y',
3959: 'N',
3960: 'Y')
3960: 'Y')
3961: else 0 end,
3962: CASE
3963: when g_uned_req = 'Y' then
3964: arp_det_dist_pkg.the_concern_bucket('UNED',
3965: a.line_type,
3966: 'N',
3967: 'N',
3968: 'N')
3968: 'N')
3969: else 0 end,
3970: CASE
3971: when g_uned_req = 'Y' then
3972: arp_det_dist_pkg.the_concern_bucket('UNED',
3973: a.line_type,
3974: 'Y',
3975: 'N',
3976: 'N')
3976: 'N')
3977: else 0 end,
3978: CASE
3979: when g_uned_req = 'Y' then
3980: arp_det_dist_pkg.the_concern_bucket('UNED',
3981: a.line_type,
3982: 'N',
3983: 'Y',
3984: 'N')
3984: 'N')
3985: else 0 end,
3986: CASE
3987: when g_uned_req = 'Y' then
3988: arp_det_dist_pkg.the_concern_bucket('UNED',
3989: a.line_type,
3990: 'Y',
3991: 'Y',
3992: 'N')
4003: display_ra_ar_gt(p_code => 'GPL',p_gt_id => p_gt_id);
4004: END IF;
4005:
4006: IF PG_DEBUG = 'Y' THEN
4007: localdebug('arp_det_dist_pkg.prepare_group_for_proration()-');
4008: END IF;
4009: END prepare_group_for_proration;
4010:
4011: PROCEDURE dump_g_amt
4060: IS
4061: l_acctd_amt NUMBER;
4062: BEGIN
4063: IF PG_DEBUG = 'Y' THEN
4064: localdebug('arp_det_dist_pkg.conv_acctd_amt()+');
4065: localdebug(' p_pay_adj :'||p_pay_adj);
4066: localdebug(' p_app_rec.AMOUNT_APPLIED :'||p_app_rec.AMOUNT_APPLIED);
4067: localdebug(' p_app_rec.LINE_APPLIED :'||p_app_rec.LINE_APPLIED);
4068: localdebug(' p_app_rec.TAX_APPLIED :'||p_app_rec.TAX_APPLIED);
4220:
4221: END IF;
4222: dump_g_amt;
4223: IF PG_DEBUG = 'Y' THEN
4224: localdebug('arp_det_dist_pkg.conv_acctd_amt()-');
4225: END IF;
4226: END conv_acctd_amt;
4227:
4228: --
4383: RETURN NUMBER IS
4384: l_res NUMBER;
4385: BEGIN
4386: IF PG_DEBUG = 'Y' THEN
4387: localdebug('arp_det_dist_pkg.the_concern_bucket()+');
4388: localdebug(' p_pay_adj :' ||p_pay_adj);
4389: localdebug(' p_line_type :' ||p_line_type);
4390: localdebug(' p_acctd :' ||p_acctd);
4391: localdebug(' p_chrg_bucket :' ||p_chrg_bucket);
4553: END IF;
4554:
4555: IF PG_DEBUG = 'Y' THEN
4556: localdebug(' l_res : '|| l_res);
4557: localdebug('arp_det_dist_pkg.the_concern_bucket()-');
4558: END IF;
4559: RETURN l_res;
4560: END the_concern_bucket;
4561:
4570: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type)
4571: IS
4572: BEGIN
4573: IF PG_DEBUG = 'Y' THEN
4574: localdebug('arp_det_dist_pkg.prepare_trx_line_proration()+');
4575: END IF;
4576:
4577:
4578: -- To executed independently
4757: 'LINE' , b.chrg_adj_rem_acctd_amt,
4758: 'CB' , b.chrg_adj_rem_acctd_amt,0))
4759: --Bucket
4760: ,CASE WHEN g_line_flag = 'NORMAL' THEN c.TL_ALLOC_AMT ELSE
4761: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
4762: b.line_type,
4763: 'N',
4764: 'N',
4765: 'N') END
4763: 'N',
4764: 'N',
4765: 'N') END
4766: ,CASE WHEN g_line_flag = 'NORMAL' THEN c.TL_ALLOC_ACCTD_AMT ELSE
4767: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
4768: b.line_type,
4769: 'Y',
4770: 'N',
4771: 'N') END
4771: 'N') END
4772: ,c.tl_frt_alloc_amt
4773: ,c.tl_frt_alloc_acctd_amt
4774: ,CASE WHEN g_tax_flag = 'NORMAL' THEN c.TL_TAX_ALLOC_AMT ELSE
4775: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
4776: b.line_type,
4777: 'N',
4778: 'N',
4779: 'N') END
4777: 'N',
4778: 'N',
4779: 'N') END
4780: ,CASE WHEN g_tax_flag = 'NORMAL' THEN c.TL_TAX_ALLOC_ACCTD_AMT ELSE
4781: arp_det_dist_pkg.the_concern_bucket(p_pay_adj,
4782: b.line_type,
4783: 'Y',
4784: 'N',
4785: 'N') END
4825: 'CB' , b.chrg_adj_rem_acctd_amt,0)
4826: --Bucket
4827: ,CASE WHEN g_ed_line_flag = 'NORMAL' THEN c.TL_ED_ALLOC_AMT ELSE
4828: CASE when g_ed_req = 'Y' then
4829: arp_det_dist_pkg.the_concern_bucket('ED',
4830: b.line_type,
4831: 'N',
4832: 'N',
4833: 'N')
4835: END
4836: ,CASE WHEN g_ed_line_flag = 'NORMAL' THEN c.TL_ED_ALLOC_ACCTD_AMT ELSE
4837: CASE
4838: when g_ed_req = 'Y' then
4839: arp_det_dist_pkg.the_concern_bucket('ED',
4840: b.line_type,
4841: 'Y',
4842: 'N',
4843: 'N')
4847: ,c.TL_ED_FRT_ALLOC_ACCTD_AMT
4848: ,CASE WHEN g_ed_tax_flag = 'NORMAL' THEN c.TL_ED_TAX_ALLOC_AMT ELSE
4849: CASE
4850: when g_ed_req = 'Y' then
4851: arp_det_dist_pkg.the_concern_bucket('ED',
4852: b.line_type,
4853: 'N',
4854: 'N',
4855: 'N')
4857: END
4858: ,CASE WHEN g_ed_tax_flag = 'NORMAL' THEN c.TL_ED_TAX_ALLOC_ACCTD_AMT ELSE
4859: CASE
4860: when g_ed_req = 'Y' then
4861: arp_det_dist_pkg.the_concern_bucket('ED',
4862: b.line_type,
4863: 'Y',
4864: 'N',
4865: 'N')
4918: --Bucket
4919: ,CASE WHEN g_uned_line_flag = 'NORMAL' THEN c.TL_UNED_ALLOC_AMT ELSE
4920: CASE
4921: when g_uned_req = 'Y' then
4922: arp_det_dist_pkg.the_concern_bucket('UNED',
4923: b.line_type,
4924: 'N',
4925: 'N',
4926: 'N')
4928: END
4929: ,CASE WHEN g_uned_line_flag = 'NORMAL' THEN c.TL_UNED_ALLOC_ACCTD_AMT ELSE
4930: CASE
4931: when g_uned_req = 'Y' then
4932: arp_det_dist_pkg.the_concern_bucket('UNED',
4933: b.line_type,
4934: 'Y',
4935: 'N',
4936: 'N')
4940: ,c.TL_UNED_FRT_ALLOC_ACCTD_AMT
4941: ,CASE WHEN g_uned_tax_flag = 'NORMAL' THEN c.TL_UNED_TAX_ALLOC_AMT ELSE
4942: CASE
4943: when g_uned_req = 'Y' then
4944: arp_det_dist_pkg.the_concern_bucket('UNED',
4945: b.line_type,
4946: 'N',
4947: 'N',
4948: 'N')
4950: END
4951: ,CASE WHEN g_uned_tax_flag = 'NORMAL' THEN c.TL_UNED_TAX_ALLOC_ACCTD_AMT ELSE
4952: CASE
4953: when g_uned_req = 'Y' then
4954: arp_det_dist_pkg.the_concern_bucket('UNED',
4955: b.line_type,
4956: 'Y',
4957: 'N',
4958: 'N')
4997: display_ra_ar_gt(p_code => 'L', p_gt_id => p_gt_id);
4998: END IF;
4999:
5000: IF PG_DEBUG = 'Y' THEN
5001: localdebug('arp_det_dist_pkg.prepare_trx_line_proration()-');
5002: END IF;
5003: EXCEPTION
5004: WHEN OTHERS THEN
5005: IF PG_DEBUG = 'Y' THEN
5025: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type)
5026: IS
5027: BEGIN
5028: IF PG_DEBUG = 'Y' THEN
5029: localdebug('arp_det_dist_pkg.update_ctl_rem_orig()+');
5030: localdebug(' p_customer_trx_line_id:'||p_customer_trx_line_id);
5031: localdebug(' p_source_data_key1 :'||p_source_data_key1);
5032: localdebug(' p_source_data_key2 :'||p_source_data_key2);
5033: localdebug(' p_source_data_key3 :'||p_source_data_key3);
5718: AND a.line_type IN ('LINE','FREIGHT','TAX','CB','CHARGES');
5719: END IF; -- End of p_customer_trx_line_id check
5720:
5721: IF PG_DEBUG = 'Y' THEN
5722: localdebug('arp_det_dist_pkg.update_ctl_rem_orig()-');
5723: END IF;
5724: EXCEPTION
5725: WHEN OTHERS THEN
5726: IF PG_DEBUG = 'Y' THEN
5741:
5742: l_rows NUMBER;
5743: BEGIN
5744: IF PG_DEBUG = 'Y' THEN
5745: localdebug('arp_det_dist_pkg.get_inv_dist()+');
5746: localdebug(' p_ae_sys_rec.set_of_books_id :'||p_ae_sys_rec.set_of_books_id);
5747: localdebug(' p_ae_sys_rec.sob_type :'||p_ae_sys_rec.sob_type);
5748: END IF;
5749:
7213: l_rows := sql%rowcount;
7214: IF PG_DEBUG = 'Y' THEN
7215: localdebug(' rows inserted(ar_base_dist_amts_gt) = ' || l_rows);
7216:
7217: localdebug('arp_det_dist_pkg.get_inv_dist()-');
7218: END IF;
7219: END get_inv_dist;
7220:
7221:
7437: l_last_fetch BOOLEAN;
7438:
7439: BEGIN
7440: IF PG_DEBUG = 'Y' THEN
7441: localdebug('arp_det_dist_pkg.update_dist()+');
7442: localdebug(' p_ae_sys_rec.set_of_books_id :'|| p_ae_sys_rec.set_of_books_id);
7443: localdebug(' p_ae_sys_rec.sob_type :'|| p_ae_sys_rec.sob_type);
7444: END IF;
7445: OPEN c_read_for_line;
7642: END LOOP;
7643: CLOSE c_read_for_line;
7644:
7645: IF PG_DEBUG = 'Y' THEN
7646: localdebug('arp_det_dist_pkg.update_dist()-');
7647: END IF;
7648: EXCEPTION
7649: WHEN OTHERS THEN
7650: IF PG_DEBUG = 'Y' THEN
7664: l_org_id NUMBER;
7665: l_rows NUMBER;
7666: BEGIN
7667: IF PG_DEBUG = 'Y' THEN
7668: localdebug('arp_det_dist_pkg.create_split_distribution()+');
7669: localdebug(' p_pay_adj :'||p_pay_adj);
7670: localdebug(' p_customer_trx_id:'||p_customer_trx_id);
7671: localdebug(' p_app_level :'||p_app_level);
7672: localdebug(' p_ae_sys_rec.set_of_books_id :'||p_ae_sys_rec.set_of_books_id);
8044: p_ae_sys_rec => p_ae_sys_rec);
8045: --}
8046:
8047: IF PG_DEBUG = 'Y' THEN
8048: localdebug('arp_det_dist_pkg.create_split_distribution()-');
8049: END IF;
8050: EXCEPTION
8051: WHEN OTHERS THEN
8052: IF PG_DEBUG = 'Y' THEN
8080: no_a_valid_trx EXCEPTION;
8081:
8082: BEGIN
8083: IF PG_DEBUG = 'Y' THEN
8084: localdebug('arp_det_dist_pkg.set_original_rem_amt_r12()+');
8085: localdebug(' p_customer_trx.customer_trx_id:'||p_customer_trx.customer_trx_id);
8086: END IF;
8087: OPEN c(p_customer_trx.customer_trx_id);
8088: LOOP
8135: UPDATE ra_customer_trx SET upgrade_method = 'R12'
8136: WHERE customer_trx_id = p_customer_trx.customer_trx_id;
8137:
8138: IF PG_DEBUG = 'Y' THEN
8139: localdebug('arp_det_dist_pkg.set_original_rem_amt_r12()-');
8140: END IF;
8141:
8142: EXCEPTION
8143: WHEN no_a_valid_trx THEN
8179: l_last_fetch BOOLEAN := FALSE;
8180: l_found VARCHAR2(1);
8181: BEGIN
8182: IF PG_DEBUG = 'Y' THEN
8183: localdebug('arp_det_dist_pkg.set_original_rem_amt_mfar()+');
8184: localdebug(' p_customer_trx.customer_trx_id:'||p_customer_trx.customer_trx_id);
8185: END IF;
8186:
8187: OPEN cmfar(p_customer_trx.customer_trx_id);
8225: END LOOP;
8226: CLOSE cmfar;
8227:
8228: IF PG_DEBUG = 'Y' THEN
8229: localdebug('arp_det_dist_pkg.set_original_rem_amt_mfar()-');
8230: END IF;
8231: EXCEPTION
8232: WHEN OTHERS THEN
8233: IF cmfar%ISOPEN THEN CLOSE cmfar; END IF;
8326: l_last_fetch BOOLEAN := FALSE;
8327:
8328: BEGIN
8329: IF PG_DEBUG = 'Y' THEN
8330: localdebug('arp_det_dist_pkg.re_calcul_rem_amt()+');
8331: localdebug('p_customer_trx_id = ' || p_customer_trx.customer_trx_id);
8332: END IF;
8333: OPEN cu_rem_amt(p_customer_trx.customer_trx_id);
8334: LOOP
8377: AND customer_trx_id = p_customer_trx.customer_trx_id;
8378: END LOOP;
8379: CLOSE cu_rem_amt;
8380: IF PG_DEBUG = 'Y' THEN
8381: localdebug('arp_det_dist_pkg.re_calcul_rem_amt()-');
8382: END IF;
8383: EXCEPTION
8384: WHEN OTHERS THEN
8385: IF PG_DEBUG = 'Y' THEN
8448:
8449: BEGIN
8450:
8451: IF PG_DEBUG = 'Y' THEN
8452: localdebug('arp_det_dist_pkg.set_original_rem_amt_r12() OVERLOAD +');
8453: END IF;
8454:
8455:
8456: OPEN c01;
8605: -- Setting the Original and Remaining amounts R12 END
8606: --
8607:
8608: IF PG_DEBUG = 'Y' THEN
8609: localdebug('arp_det_dist_pkg.set_original_rem_amt_r12() OVERLOAD -');
8610: END IF;
8611: EXCEPTION
8612:
8613: WHEN OTHERS THEN
8654: no_llca_allowed EXCEPTION;
8655: excep_set_org_rem_amt_r12 EXCEPTION; --LLCA
8656: BEGIN
8657: IF PG_DEBUG = 'Y' THEN
8658: localdebug('arp_det_dist_pkg.set_original_rem_amt()+');
8659: localdebug(' p_adj_id :'||p_adj_id );
8660: localdebug(' p_app_id :'||p_app_id );
8661: END IF;
8662:
8856: END IF; --1
8857: CLOSE c_verif;
8858:
8859: IF PG_DEBUG = 'Y' THEN
8860: localdebug('arp_det_dist_pkg.set_original_rem_amt()-');
8861: END IF;
8862: EXCEPTION
8863: WHEN no_need_to_set_orig_rem_amt THEN
8864: IF c_verif%ISOPEN THEN CLOSE c_verif; END IF;
8863: WHEN no_need_to_set_orig_rem_amt THEN
8864: IF c_verif%ISOPEN THEN CLOSE c_verif; END IF;
8865: IF PG_DEBUG = 'Y' THEN
8866: localdebug(' No need to set orig rem amount');
8867: localdebug('arp_det_dist_pkg.set_original_rem_amt()-');
8868: END IF;
8869:
8870: WHEN no_a_valid_trx THEN
8871: IF c_verif%ISOPEN THEN CLOSE c_verif; END IF;
9768: END freight_boundary;
9769: */
9770: BEGIN
9771: IF PG_DEBUG = 'Y' THEN
9772: localdebug('arp_det_dist_pkg.adjustment_detemination()+');
9773: END IF;
9774:
9775: IF p_pay_adj <> 'ADJ' THEN
9776: RAISE not_an_adjustment;
9912: l_tax_boundary_done := 'Y';
9913: END IF;
9914:
9915: IF PG_DEBUG = 'Y' THEN
9916: localdebug('arp_det_dist_pkg.adjustment_detemination()-');
9917: END IF;
9918: EXCEPTION
9919: WHEN not_an_adjustment THEN
9920: IF PG_DEBUG = 'Y' THEN
10144: l_last_fetch BOOLEAN;
10145:
10146: BEGIN
10147: IF PG_DEBUG = 'Y' THEN
10148: localdebug('arp_det_dist_pkg.update_group_line()+');
10149: END IF;
10150:
10151: OPEN c_read_for_gline;
10152: LOOP
10346: END LOOP;
10347: CLOSE c_read_for_gline;
10348:
10349: IF PG_DEBUG = 'Y' THEN
10350: localdebug('arp_det_dist_pkg.update_group_line()-');
10351: END IF;
10352: END update_group_line;
10353:
10354:
10367: IS
10368: l_rows NUMBER;
10369: BEGIN
10370: IF PG_DEBUG = 'Y' THEN
10371: localdebug('arp_det_dist_pkg.get_invoice_line_info_per_grp()+');
10372: localdebug(' p_customer_trx_id :'||p_customer_trx_id);
10373: localdebug(' p_source_data_key1 :'||p_source_data_key1);
10374: localdebug(' p_source_data_key2 :'||p_source_data_key2);
10375: localdebug(' p_source_data_key3 :'||p_source_data_key3);
10702: --}
10703: l_rows := sql%rowcount;
10704: IF PG_DEBUG = 'Y' THEN
10705: localdebug(' rows inserted = ' || l_rows);
10706: localdebug('arp_det_dist_pkg.get_invoice_line_info_per_grp()-');
10707: END IF;
10708: END get_invoice_line_info_per_grp;
10709:
10710:
10717: IS
10718: l_rows NUMBER;
10719: BEGIN
10720: IF PG_DEBUG = 'Y' THEN
10721: localdebug('arp_det_dist_pkg.get_invoice_line_info_per_line()+');
10722: localdebug(' p_customer_trx_id :'||p_customer_trx_id);
10723: localdebug(' p_customer_trx_line_id :'||p_customer_trx_line_id);
10724: localdebug(' p_gt_id :'||p_gt_id);
10725: END IF;
10949:
10950: l_rows := sql%rowcount;
10951: IF PG_DEBUG = 'Y' THEN
10952: localdebug(' rows inserted = ' || l_rows);
10953: localdebug('arp_det_dist_pkg.get_invoice_line_info_per_line()-');
10954: END IF;
10955: END get_invoice_line_info_per_line;
10956:
10957: PROCEDURE proration_app_dist_trx
10963: IS
10964: l_adj_rec ar_adjustments%ROWTYPE;
10965: BEGIN
10966: IF PG_DEBUG = 'Y' THEN
10967: localdebug('arp_det_dist_pkg.proration_app_dist_trx()+');
10968: localdebug(' p_gt_id :'||p_gt_id );
10969: localdebug(' application type :'||p_app_rec.application_type );
10970: localdebug(' receivable_application_id:'||p_app_rec.receivable_application_id );
10971: localdebug(' set of books id :'||p_ae_sys_rec.set_of_books_id );
10992: p_app_level => p_app_level,
10993: p_ae_sys_rec => p_ae_sys_rec);
10994:
10995: IF PG_DEBUG = 'Y' THEN
10996: localdebug('arp_det_dist_pkg.proration_app_dist_trx()-');
10997: END IF;
10998:
10999: END proration_app_dist_trx;
11000:
11008: IS
11009: l_app_rec ar_receivable_applications%ROWTYPE;
11010: BEGIN
11011: IF PG_DEBUG = 'Y' THEN
11012: localdebug('arp_det_dist_pkg.proration_adj_dist_trx()+');
11013: localdebug(' p_gt_id :'||p_gt_id );
11014: localdebug(' adj type :'||p_adj_rec.adjustment_type );
11015: localdebug(' adjustments_id :'||p_adj_rec.adjustment_id );
11016: localdebug(' set of books id :'||p_ae_sys_rec.set_of_books_id );
11051: p_app_level => p_app_level,
11052: p_ae_sys_rec => p_ae_sys_rec);
11053:
11054: IF PG_DEBUG = 'Y' THEN
11055: localdebug('arp_det_dist_pkg.proration_adj_dist_trx()-');
11056: END IF;
11057:
11058: END proration_adj_dist_trx;
11059:
11088: E11i_trx_no_llca EXCEPTION;
11089: excep_get_gt_sequence EXCEPTION;
11090: BEGIN
11091: IF PG_DEBUG = 'Y' THEN
11092: localdebug('arp_det_dist_pkg.trx_level_cash_apply()+');
11093: localdebug(' p_customer_trx_id :'||p_customer_trx.customer_trx_id);
11094: END IF;
11095: g_cust_inv_rec := p_customer_trx;
11096:
11194: -- p_app_level => 'TRANSACTION');
11195: -- END IF;
11196:
11197: IF PG_DEBUG = 'Y' THEN
11198: localdebug('arp_det_dist_pkg.trx_level_cash_apply()-');
11199: END IF;
11200: EXCEPTION
11201: WHEN excep_get_gt_sequence THEN
11202: IF PG_DEBUG = 'Y' THEN
11265: E11i_gp_no_llca EXCEPTION;
11266: excep_get_gt_sequence EXCEPTION;
11267: BEGIN
11268: IF PG_DEBUG = 'Y' THEN
11269: localdebug('arp_det_dist_pkg.trx_gp_level_cash_apply()+');
11270: localdebug(' p_customer_trx_id :'||p_customer_trx.customer_trx_id);
11271: localdebug(' p_source_data_key1 :'||p_source_data_key1);
11272: localdebug(' p_source_data_key2 :'||p_source_data_key2);
11273: localdebug(' p_source_data_key3 :'||p_source_data_key3);
11399: -- p_app_level => 'GROUP');
11400: -- END IF;
11401:
11402: IF PG_DEBUG = 'Y' THEN
11403: localdebug('arp_det_dist_pkg.trx_gp_level_cash_apply()-');
11404: END IF;
11405: EXCEPTION
11406: WHEN excep_get_gt_sequence THEN
11407: IF PG_DEBUG = 'Y' THEN
11465: E11i_line_no_llca EXCEPTION;
11466: excep_get_gt_sequence EXCEPTION;
11467: BEGIN
11468: IF PG_DEBUG = 'Y' THEN
11469: localdebug('arp_det_dist_pkg.trx_line_level_cash_apply()+');
11470: localdebug(' p_customer_trx_id :'||p_customer_trx.customer_trx_id);
11471: localdebug(' p_customer_trx_line_id :'||p_customer_trx_line_id);
11472: END IF;
11473:
11580: -- p_app_level => 'LINE');
11581: -- END IF;
11582:
11583: IF PG_DEBUG = 'Y' THEN
11584: localdebug('arp_det_dist_pkg.trx_line_level_cash_apply()-');
11585: END IF;
11586: EXCEPTION
11587: WHEN excep_get_gt_sequence THEN
11588: IF PG_DEBUG = 'Y' THEN
11646: l_rows NUMBER;
11647:
11648: BEGIN
11649: IF PG_DEBUG = 'Y' THEN
11650: localdebug('arp_det_dist_pkg.copy_trx_lines()+');
11651: localdebug(' p_customer_trx_id :'||p_customer_trx_id);
11652: END IF;
11653: OPEN cu_line_loaded(p_customer_trx_id, p_customer_trx_line_id);
11654: FETCH cu_line_loaded INTO l_exist;
11910: IF (PG_DEBUG = 'Y') THEN
11911: display_cust_trx_gt(p_customer_trx_id => p_customer_trx_id);
11912: END IF;
11913: IF PG_DEBUG = 'Y' THEN
11914: localdebug('arp_det_dist_pkg.copy_trx_lines()-');
11915: END IF;
11916: EXCEPTION
11917: WHEN OTHERS THEN
11918: IF PG_DEBUG = 'Y' THEN
11958: l_ctl_id_tab DBMS_SQL.NUMBER_TABLE;
11959: l_last_fetch BOOLEAN := FALSE;
11960: BEGIN
11961: IF PG_DEBUG = 'Y' THEN
11962: localdebug('arp_det_dist_pkg.final_update_inv_ctl_rem_orig()+');
11963: END IF;
11964:
11965: OPEN c(p_customer_trx.customer_trx_id);
11966: LOOP
12008: AND customer_trx_id = p_customer_trx.customer_trx_id;
12009: END LOOP;
12010: CLOSE c;
12011: IF PG_DEBUG = 'Y' THEN
12012: localdebug('arp_det_dist_pkg.final_update_inv_ctl_rem_orig()-');
12013: END IF;
12014: END final_update_inv_ctl_rem_orig;
12015:
12016:
12021: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type)
12022: IS
12023: BEGIN
12024: IF PG_DEBUG = 'Y' THEN
12025: localdebug('arp_det_dist_pkg.create_final_split()+');
12026: -- From distributions
12027: localdebug(' p_app_rec.ACCTD_AMOUNT_APPLIED_FROM :'||p_app_rec.ACCTD_AMOUNT_APPLIED_FROM);
12028: localdebug(' p_app_rec.AMOUNT_APPLIED_FROM :'||p_app_rec.AMOUNT_APPLIED_FROM );
12029: END IF;
12059: diag_data;
12060: END IF;
12061: -- END IF;
12062: IF PG_DEBUG = 'Y' THEN
12063: localdebug('arp_det_dist_pkg.create_final_split()-');
12064: END IF;
12065: END create_final_split;
12066:
12067: /*-------------------------------------------------------------------------+
12093: l_msg_data VARCHAR2(2000);
12094: excep_get_gt_sequence EXCEPTION;
12095: BEGIN
12096: IF PG_DEBUG = 'Y' THEN
12097: localdebug('arp_det_dist_pkg.trx_level_direct_adjust()+');
12098: localdebug(' p_customer_trx_id :'||p_customer_trx.customer_trx_id);
12099: END IF;
12100:
12101: IF p_gt_id IS NULL THEN
12199: UPDATE ar_adjustments SET upgrade_method = 'R12'
12200: WHERE adjustment_id = p_adj_rec.adjustment_id;
12201:
12202: IF PG_DEBUG = 'Y' THEN
12203: localdebug('arp_det_dist_pkg.trx_level_direct_adjust()-');
12204: END IF;
12205: EXCEPTION
12206: WHEN excep_get_gt_sequence THEN
12207: IF PG_DEBUG = 'Y' THEN
12249: l_upg_cm VARCHAR2(1);
12250: excep_get_gt_sequence EXCEPTION;
12251: BEGIN
12252: IF PG_DEBUG = 'Y' THEN
12253: localdebug('arp_det_dist_pkg.trx_level_direct_cash_apply()+');
12254: localdebug(' p_customer_trx_id :'||p_customer_trx.customer_trx_id);
12255: localdebug(' p_inv_cm :'||p_inv_cm);
12256: END IF;
12257:
12418: p_ae_sys_rec => p_ae_sys_rec);
12419:
12420:
12421: IF PG_DEBUG = 'Y' THEN
12422: localdebug('arp_det_dist_pkg.trx_level_direct_cash_apply()-');
12423: END IF;
12424: EXCEPTION
12425: WHEN excep_get_gt_sequence THEN
12426: IF PG_DEBUG = 'Y' THEN
12677: localdebug( ' tl_uned_tax_alloc_acctd_amt :'|| p_ra_ar_rec.TL_UNED_TAX_ALLOC_ACCTD_AMT);
12678: -- localdebug( ' buc_uned_alloc_amt :'|| p_ra_ar_rec.BUC_UNED_ALLOC_AMT);
12679: -- localdebug( ' buc_uned_alloc_acctd_amt :'|| p_ra_ar_rec.BUC_UNED_ALLOC_ACCTD_AMT);
12680: localdebug( ' tl_frt_alloc_amt :'|| p_ra_ar_rec.TL_FRT_ALLOC_AMT);
12681: localdebug( 'arp_det_dist_pkg.display_ra_ar_row()-');
12682: END IF;
12683: END;
12684:
12685:
12699: l_record c1%ROWTYPE;
12700: l_record2 c2%ROWTYPE;
12701: BEGIN
12702: IF (PG_DEBUG = 'Y') THEN
12703: localdebug('arp_det_dist_pkg.display_ra_ar_gt()+');
12704: localdebug(' p_code : '||p_code);
12705: IF p_code IS NULL THEN
12706: OPEN c1;
12707: LOOP
12718: display_ra_ar_row(l_record2);
12719: END LOOP;
12720: CLOSE c2;
12721: END IF;
12722: localdebug('arp_det_dist_pkg.display_ra_ar_gt()-');
12723: END IF;
12724: END;
12725:
12726:
12728: (p_record IN ra_customer_trx_lines_gt%ROWTYPE)
12729: IS
12730: BEGIN
12731: IF PG_DEBUG = 'Y' THEN
12732: localdebug('arp_det_dist_pkg.display_cust_trx_row()+');
12733: localdebug(' CUSTOMER_TRX_LINE_ID :'|| p_record.CUSTOMER_TRX_LINE_ID);
12734: localdebug(' LINK_TO_CUST_TRX_LINE_ID :'|| p_record.LINK_TO_CUST_TRX_LINE_ID);
12735: localdebug(' CUSTOMER_TRX_ID :'|| p_record.CUSTOMER_TRX_ID);
12736: localdebug(' SET_OF_BOOKS_ID :'|| p_record.SET_OF_BOOKS_ID);
12751: localdebug(' FRT_ED_AMOUNT :'|| p_record.FRT_ED_AMOUNT);
12752: localdebug(' FRT_ED_ACCTD_AMOUNT :'|| p_record.FRT_ED_ACCTD_AMOUNT);
12753: localdebug(' FRT_UNED_AMOUNT :'|| p_record.FRT_UNED_AMOUNT);
12754: localdebug(' FRT_UNED_ACCTD_AMOUNT :'|| p_record.FRT_UNED_ACCTD_AMOUNT);
12755: localdebug('arp_det_dist_pkg.display_cust_trx_row()-');
12756: END IF;
12757: END;
12758:
12759: PROCEDURE display_cust_trx_gt(p_customer_trx_id IN NUMBER)
12764: WHERE customer_trx_id = p_customer_trx_id;
12765: l_record c%ROWTYPE;
12766: BEGIN
12767: IF PG_DEBUG = 'Y' THEN
12768: localdebug('arp_det_dist_pkg.display_cust_trx_gt()+');
12769: END IF;
12770: OPEN c;
12771: LOOP
12772: FETCH c INTO l_record;
12774: display_cust_trx_row(l_record);
12775: END LOOP;
12776: CLOSE c;
12777: IF PG_DEBUG = 'Y' THEN
12778: localdebug('arp_det_dist_pkg.display_cust_trx_gt()-');
12779: END IF;
12780: END;
12781:
12782:
12807: l_type VARCHAR2(30);
12808: l_id NUMBER;
12809: BEGIN
12810: IF PG_DEBUG = 'Y' THEN
12811: localdebug('arp_det_dist_pkg.get_orig_amt()+');
12812: localdebug(' p_customer_trx_id :'||p_customer_trx_id);
12813: END IF;
12814: x_amt_rem.sum_line_amt_orig := 0;
12815: x_amt_rem.sum_tax_amt_orig := 0;
12846: END IF;
12847: CLOSE tl_for_rl;
12848: IF PG_DEBUG = 'Y' THEN
12849: localdebug(' x_amt_rem.tl_for_rl :'||x_amt_rem.tl_for_rl);
12850: localdebug('arp_det_dist_pkg.get_orig_amt()-');
12851: END IF;
12852: END;
12853:
12854:
12874: IS
12875: l_res VARCHAR2(1) := 'N';
12876: BEGIN
12877: IF PG_DEBUG = 'Y' THEN
12878: localdebug('arp_det_dist_pkg.ed_uned_type()+');
12879: localdebug(' p_source_exec :'||p_source_exec);
12880: localdebug(' p_bucket :'||p_bucket);
12881: END IF;
12882: IF p_source_exec = 'ED' THEN
12901: END IF;
12902: END IF;
12903: IF PG_DEBUG = 'Y' THEN
12904: localdebug(' l_res :'||l_res);
12905: localdebug('arp_det_dist_pkg.ed_uned_type()-');
12906: END IF;
12907: RETURN l_res;
12908: END;
12909:
12939: l_amt NUMBER;
12940: l_res VARCHAR2(30);
12941: BEGIN
12942: IF PG_DEBUG = 'Y' THEN
12943: localdebug('arp_det_dist_pkg.tax_adj_type()+');
12944: localdebug(' p_source_exec:'||p_source_exec);
12945: END IF;
12946: IF p_source_exec = 'ADJ' THEN
12947: IF p_adj_rec.type = 'TAX' AND (nvl(p_adj_rec.amount,0) <> 0) THEN
13014: END IF;
13015: END IF;
13016: IF PG_DEBUG = 'Y' THEN
13017: localdebug(' l_res:'||l_res);
13018: localdebug('arp_det_dist_pkg.tax_adj_type()-');
13019: END IF;
13020: RETURN l_res;
13021: END;
13022:
13052: IS
13053: l_res VARCHAR2(30);
13054: BEGIN
13055: IF PG_DEBUG = 'Y' THEN
13056: localdebug('arp_det_dist_pkg.line_adj_type()+');
13057: localdebug(' p_source_exec:'||p_source_exec);
13058: END IF;
13059: IF p_source_exec = 'ADJ' THEN
13060: IF p_adj_rec.type = 'LINE' AND (nvl(p_adj_rec.amount,0) <> 0) THEN
13098:
13099: END IF;
13100: IF PG_DEBUG = 'Y' THEN
13101: localdebug(' l_res:'||l_res);
13102: localdebug('arp_det_dist_pkg.chrg_adj_type()-');
13103: END IF;
13104: RETURN l_res;
13105: END;
13106:
13136: IS
13137: l_res VARCHAR2(30);
13138: BEGIN
13139: IF PG_DEBUG = 'Y' THEN
13140: localdebug('arp_det_dist_pkg.frt_adj_type()+');
13141: localdebug(' p_source_exec:'||p_source_exec);
13142: END IF;
13143: IF p_source_exec = 'ADJ' THEN
13144: IF p_adj_rec.type = 'FREIGHT' AND (nvl(p_adj_rec.amount,0) <> 0) THEN
13198: END IF;
13199: END IF;
13200: IF PG_DEBUG = 'Y' THEN
13201: localdebug(' l_res:'||l_res);
13202: localdebug('arp_det_dist_pkg.frt_adj_type()-');
13203: END IF;
13204: RETURN l_res;
13205: END;
13206:
13235: l_tot_frt_rev NUMBER;
13236: l_tot_frt NUMBER;
13237: BEGIN
13238: IF PG_DEBUG = 'Y' THEN
13239: localdebug('arp_det_dist_pkg.chrg_adj_type()+');
13240: localdebug(' p_source_exec:'||p_source_exec);
13241: END IF;
13242: IF p_source_exec = 'ADJ' THEN
13243: IF p_adj_rec.type = 'CHARGES' AND (nvl(p_adj_rec.amount,0) <> 0) THEN
13274: END IF;
13275: END IF;
13276: IF PG_DEBUG = 'Y' THEN
13277: localdebug(' l_res:'||l_res);
13278: localdebug('arp_det_dist_pkg.chrg_adj_type()-');
13279: END IF;
13280: RETURN l_res;
13281: END;
13282:
13320: l_line_adj VARCHAR2(100);
13321: l_chrg_adj VARCHAR2(100);
13322: BEGIN
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:
13419: END IF;
13420:
13421: IF PG_DEBUG = 'Y' THEN
13422: localdebug(' x_return_status :'||x_return_status);
13423: localdebug('arp_det_dist_pkg.possible_adjust()-');
13424: END IF;
13425: END;
13426:
13427:
13503: l_run_total NUMBER;
13504: l_currency VARCHAR2(30);
13505: BEGIN
13506: IF PG_DEBUG = 'Y' THEN
13507: localdebug('arp_det_dist_pkg.Accting_Proration_Fct()+');
13508: localdebug(' p_temp_amt : '||p_temp_amt );
13509: localdebug(' p_base_proration : '||p_base_proration);
13510: localdebug(' p_alloc_amount : '||p_alloc_amount );
13511: localdebug(' p_base_currency : '||p_base_currency );
13565: END IF;
13566:
13567: IF PG_DEBUG = 'Y' THEN
13568: localdebug(' l_result : '|| l_result);
13569: localdebug('arp_det_dist_pkg.Accting_Proration_Fct()-');
13570: END IF;
13571: RETURN l_result;
13572: EXCEPTION
13573: WHEN OTHERS THEN
13627: l_br_flag VARCHAR2(1) DEFAULT 'N';
13628: l_br_count NUMBER;
13629: BEGIN
13630: IF PG_DEBUG = 'Y' THEN
13631: localdebug('arp_det_dist_pkg.update_from_gt()+');
13632: END IF;
13633:
13634: --{LLCA CROSS CURRENCY
13635: IF p_gt_id IS NULL THEN
13787: AND a.gt_id = l_gt_id;
13788:
13789: END IF;
13790: IF PG_DEBUG = 'Y' THEN
13791: localdebug('arp_det_dist_pkg.update_from_gt()-');
13792: END IF;
13793: EXCEPTION
13794: WHEN no_from_amount_required THEN
13795: IF PG_DEBUG = 'Y' THEN
13840: ram_api_error EXCEPTION;
13841:
13842: BEGIN
13843: IF PG_DEBUG = 'Y' THEN
13844: localdebug('arp_det_dist_pkg.exec_adj_api_if_required()+');
13845: localdebug(' p_adj_rec.adjustment_id :' || p_adj_rec.adjustment_id);
13846: localdebug(' p_app_rec.receivable_application_id:' || p_app_rec.receivable_application_id);
13847: localdebug(' p_cust_inv_rec.customer_trx_id :' || p_cust_inv_rec.customer_trx_id);
13848: END IF;
13941: END IF;
13942:
13943: END IF;
13944: IF PG_DEBUG = 'Y' THEN
13945: localdebug('arp_det_dist_pkg.exec_adj_api_if_required()-');
13946: END IF;
13947: EXCEPTION
13948: WHEN ram_api_error THEN
13949: IF PG_DEBUG = 'Y' THEN
13973: l_rev_rec_req BOOLEAN;
13974: l_sum_dist NUMBER;
13975: BEGIN
13976: IF PG_DEBUG = 'Y' THEN
13977: localdebug('arp_det_dist_pkg.exec_revrec_if_required()+');
13978: localdebug(' p_customer_trx_id :' || p_customer_trx_id);
13979: localdebug(' p_app_rec.receivable_application_id :' || p_app_rec.receivable_application_id);
13980: localdebug(' p_adj_rec.adjustment_id :' || p_adj_rec.adjustment_id);
13981:
14008: localdebug(' Completed running revenue recognition for Transaction');
14009: END IF;
14010: END IF;
14011: IF PG_DEBUG = 'Y' THEN
14012: localdebug( 'arp_det_dist_pkg.exec_revrec_if_required()-');
14013: END IF;
14014: EXCEPTION
14015: WHEN OTHERS THEN
14016: IF PG_DEBUG = 'Y' THEN
14048: l_rev_rec_req BOOLEAN;
14049: wrong_parameter EXCEPTION;
14050: BEGIN
14051: IF PG_DEBUG = 'Y' THEN
14052: localdebug('arp_det_dist_pkg.exec_revrec_if_required()+');
14053: localdebug(' p_mode :' || p_mode);
14054: localdebug(' p_customer_trx_id :' || p_customer_trx_id);
14055: localdebug(' p_request_id :' || p_request_id);
14056: END IF;
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;
14130: EXCEPTION
14131: WHEN fnd_api.G_EXC_ERROR THEN
14132: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
14489: l_last_fetch BOOLEAN;
14490:
14491: BEGIN
14492: IF PG_DEBUG = 'Y' THEN
14493: localdebug('arp_det_dist_pkg.update_tax()+');
14494: localdebug(' p_ae_sys_rec.set_of_books_id');
14495: localdebug(' p_ae_sys_rec.sob_type');
14496: END IF;
14497: OPEN c_read_for_taxable;
14668: END LOOP;
14669: CLOSE c_read_for_taxable;
14670:
14671: IF PG_DEBUG = 'Y' THEN
14672: localdebug('arp_det_dist_pkg.update_taxable()-');
14673: END IF;
14674: EXCEPTION
14675: WHEN OTHERS THEN
14676: IF PG_DEBUG = 'Y' THEN
14991: l_from_curr_code VARCHAR2(30);
14992:
14993: BEGIN
14994: IF PG_DEBUG = 'Y' THEN
14995: localdebug('arp_det_dist_pkg.update_mrc_for_dist()+');
14996: END IF;
14997:
14998: IF p_app_rec.receivable_application_id IS NOT NULL THEN
14999: l_acctd_adj_app_to:= NVL(p_app_rec.acctd_amount_applied_to,0) * -1;
15230:
15231: END LOOP;
15232: CLOSE c_mrc;
15233: IF PG_DEBUG = 'Y' THEN
15234: localdebug('arp_det_dist_pkg.update_for_mrc_dist()-');
15235: END IF;
15236: END update_for_mrc_dist;
15237:
15238:
15818: l_record c%ROWTYPE;
15819:
15820: BEGIN
15821: IF PG_DEBUG = 'Y' THEN
15822: localdebug('arp_det_dist_pkg.check_legacy_status()+');
15823: END IF;
15824:
15825: OPEN c;
15826: FETCH c INTO l_record;
15864: localdebug(' 11i adj existence :'||x_11i_adj);
15865: localdebug(' 11i mfar adj existence:'||x_mfar_adj);
15866: localdebug(' 11i app existence :'||x_11i_app);
15867: localdebug(' 11i mfar app existence:'||x_mfar_app);
15868: localdebug('arp_det_dist_pkg.check_legacy_status()-');
15869: END IF;
15870: EXCEPTION
15871: WHEN OTHERS THEN
15872: IF PG_DEBUG = 'Y' THEN
15890: AND adj.upgrade_method IN ('11I','11IMFAR') ;
15891:
15892: BEGIN
15893: IF PG_DEBUG = 'Y' THEN
15894: localdebug('arp_det_dist_pkg.check_lazy_apply_req()+');
15895: END IF;
15896: OPEN c11I;
15897: FETCH c11I INTO x_out_res;
15898: IF c11I%NOTFOUND THEN
15900: END IF;
15901: CLOSE c11I;
15902: IF PG_DEBUG = 'Y' THEN
15903: localdebug(' x_out_res : '|| x_out_res);
15904: localdebug('arp_det_dist_pkg.check_lazy_apply_req()-');
15905: END IF;
15906: END;
15907:
15908:
15940: l_adj_rec ar_adjustments%ROWTYPE;
15941: l_app_rec ar_receivable_applications%ROWTYPE;
15942: BEGIN
15943: IF PG_DEBUG = 'Y' THEN
15944: localdebug('arp_det_dist_pkg.Online_lazy_apply()+');
15945: localdebug(' p_app_rec.applied_customer_trx_id : '||p_app_rec.applied_customer_trx_id);
15946: localdebug(' p_gt_id : '||p_gt_id);
15947: END IF;
15948:
16123: SET upgrade_method = 'R12_11ICASH'
16124: WHERE receivable_application_id = l_app_rec.receivable_application_id;
16125:
16126: IF PG_DEBUG = 'Y' THEN
16127: localdebug('arp_det_dist_pkg.Online_lazy_apply()-');
16128: END IF;
16129: EXCEPTION
16130: WHEN OTHERS THEN
16131: localdebug('OTHERS : Online_lazy_apply '||SQLERRM);
16209: AND source_data_key4 = p_source_data_key4
16210: AND source_data_key5 = p_source_data_key5;
16211: BEGIN
16212: IF PG_DEBUG = 'Y' THEN
16213: localdebug('arp_det_dist_pkg.get_latest_amount_remaining()+');
16214: localdebug(' p_customer_trx_id :'||p_customer_trx_id);
16215: localdebug(' p_app_level :'||p_app_level);
16216: localdebug(' p_source_data_key1:'||p_source_data_key1);
16217: localdebug(' p_source_data_key2:'||p_source_data_key2);
16237: localdebug(' x_line_rem :'||x_line_rem);
16238: localdebug(' x_tax_rem :'||x_tax_rem);
16239: localdebug(' x_freight_rem :'||x_freight_rem);
16240: localdebug(' x_charges_rem :'||x_charges_rem);
16241: localdebug('arp_det_dist_pkg.get_latest_amount_remaining()-');
16242: END IF;
16243: EXCEPTION
16244: WHEN NO_DATA_FOUND THEN
16245: IF PG_DEBUG = 'Y' THEN
16378: no_rem_for_trx_upg EXCEPTION;
16379:
16380: BEGIN
16381: IF PG_DEBUG = 'Y' THEN
16382: localdebug('arp_det_dist_pkg.convert_ra_inv_to_cm()+');
16383: localdebug(' p_cm_trx_id :' || p_cm_trx_id);
16384: localdebug(' p_mode :' || p_mode);
16385: localdebug(' p_inv_ra_rec.amount_applied :' || p_inv_ra_rec.amount_applied);
16386: localdebug(' p_inv_ra_rec.amount_applied_from :' || p_inv_ra_rec.amount_applied_from);
16400:
16401:
16402: IF p_mode = 'OLTP' THEN
16403:
16404: arp_det_dist_pkg.set_original_rem_amt
16405: (p_customer_trx => l_inv_rec,
16406: p_app_id => p_inv_ra_rec.receivable_application_id,
16407: --{HYUNLB
16408: p_from_llca => p_from_llca);
16609: localdebug(' x_cm_ra_rec.tax_applied :'||x_cm_ra_rec.tax_applied);
16610: localdebug(' x_cm_ra_rec.freight_applied :'||x_cm_ra_rec.freight_applied);
16611: localdebug(' x_cm_ra_rec.receivables_charges_applied :'||x_cm_ra_rec.receivables_charges_applied);
16612:
16613: localdebug('arp_det_dist_pkg.convert_ra_inv_to_cm()-');
16614: END IF;
16615: EXCEPTION
16616: WHEN no_rem_for_trx_upg THEN
16617: IF PG_DEBUG = 'Y' THEN
16678: IS
16679: l_app_rec ar_receivable_applications%ROWTYPE;
16680: BEGIN
16681: IF PG_DEBUG = 'Y' THEN
16682: localdebug('arp_det_dist_pkg.adjustment_with_interface()+');
16683: localdebug(' p_gt_id :'||p_gt_id);
16684: localdebug(' p_adj_rec.amount :'|| p_adj_rec.amount);
16685: localdebug(' p_adj_rec.acctd_amount :'|| p_adj_rec.acctd_amount);
16686: localdebug(' p_customer_trx.invoice_currency_code :'|| p_customer_trx.invoice_currency_code);
16784: UPDATE ar_adjustments SET upgrade_method = 'R12'
16785: WHERE adjustment_id = p_adj_rec.adjustment_id;
16786:
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(
16824: IS
16825: l_adj_rec ar_adjustments%ROWTYPE;
16826: BEGIN
16827: IF PG_DEBUG = 'Y' THEN
16828: localdebug('arp_det_dist_pkg.application_with_interface()+');
16829: localdebug(' p_customer_trx_id :'||p_customer_trx.customer_trx_id);
16830: localdebug(' p_gt_id :'||p_gt_id);
16831: END IF;
16832:
16951: p_ae_sys_rec => p_ae_sys_rec);
16952:
16953:
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,
17014: l_acctd_amt_tab DBMS_SQL.NUMBER_TABLE;
17015: l_activity_tab DBMS_SQL.VARCHAR2_TABLE;
17016: BEGIN
17017: IF PG_DEBUG = 'Y' THEN
17018: localdebug('arp_det_dist_pkg.reconciliation()+');
17019: END IF;
17020:
17021: IF p_gt_id IS NULL THEN
17022: l_gt_id := g_gt_id;
17145: END IF;
17146: END IF;
17147:
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;
17874: END IF;
17875: END IF;
17876: END;
17877:
17878: END ARP_DET_DIST_PKG;