[Home] [Help]
1: PACKAGE BODY AR_BUS_EVENT_SUB_PVT AS
2: /* $Header: ARBESUBB.pls 120.29 2007/08/31 19:04:16 mraymond noship $*/
3:
4: TYPE ps_tab_type IS TABLE OF ar_payment_schedules%rowtype
5: INDEX BY BINARY_INTEGER;
30:
31: PROCEDURE debug (
32: p_message_name IN VARCHAR2 ) IS
33: BEGIN
34: ar_cmgt_util.debug (p_message_name, 'ar.cmgt.plsql.AR_BUS_EVENT_SUB_PVT');
35: END;
36:
37: PROCEDURE Update_recapp_info(l_trx_class IN VARCHAR2,
38: l_trx_customer_id IN NUMBER,
67:
68: BEGIN
69: IF pg_debug = 'Y'
70: THEN
71: debug ('AR_BUS_EVENT_SUB_PVT.Update_recapp_info(+)');
72: debug ('cust_account_id ='||l_trx_customer_id);
73: debug ('site_use_id ='||l_trx_site_use_id);
74: debug ('currency ='||l_trx_currency_code);
75: debug ('org_id ='||l_org_id);
173: and org_id = l_org_id;
174: END IF;
175: IF pg_debug = 'Y'
176: THEN
177: debug ('AR_BUS_EVENT_SUB_PVT.Update_recapp_info(-)');
178: END IF;
179: END Update_recapp_info;
180:
181: PROCEDURE Update_summary_for_request_id (p_request_id IN NUMBER)
269:
270: BEGIN
271: IF pg_debug = 'Y'
272: THEN
273: debug ('AR_BUS_EVENT_SUB_PVT.Update_summary_for_request_id(+)');
274: debug ('p_request_id ='||p_request_id);
275: END IF;
276: IF p_request_id IS NOT NULL THEN
277: For rec in get_req_run_data(p_request_id) LOOP
531: END LOOP;
532: END IF;
533: IF pg_debug = 'Y'
534: THEN
535: debug ('AR_BUS_EVENT_SUB_PVT.Update_summary_for_request_id(-)');
536: END IF;
537: END Update_summary_for_request_id;
538:
539: PROCEDURE Update_Adj_info (
552: ) IS
553: BEGIN
554: IF pg_debug = 'Y'
555: THEN
556: debug ('AR_BUS_EVENT_SUB_PVT.Update_Adj_info(+)');
557: debug ('cust_account_id ='||l_customer_id);
558: debug ('site_use_id ='||l_site_use_id);
559: debug ('currency ='||l_currency_code);
560: debug ('org_id ='||l_org_id);
699: nvl(l_adj_amount,0) );
700: END IF;
701: IF pg_debug = 'Y'
702: THEN
703: debug ('AR_BUS_EVENT_SUB_PVT.Update_Adj_info(-)');
704: END IF;
705: END Update_Adj_info;
706:
707: PROCEDURE Update_rcpt_app_info_for_req(p_req_id in number,
833: BEGIN
834:
835: IF pg_debug = 'Y'
836: THEN
837: debug ('AR_BUS_EVENT_SUB_PVT.Update_rcpt_app_info_for_req(+)');
838: debug ('p_req_id ='||p_req_id);
839: END IF;
840: FOR i in create_recept_info(p_req_id)
841: LOOP
1033: END IF;
1034:
1035: IF pg_debug = 'Y'
1036: THEN
1037: debug ('AR_BUS_EVENT_SUB_PVT.Update_rcpt_app_info_for_req(-)');
1038: END IF;
1039: END Update_rcpt_app_info_for_req;
1040:
1041: FUNCTION Inv_Complete
1077: BEGIN
1078:
1079: IF pg_debug = 'Y'
1080: THEN
1081: debug ('AR_BUS_EVENT_SUB_PVT.Inv_Complete(+)');
1082: END IF;
1083: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
1084: l_org_id := p_event.GetValueForParameter('ORG_ID');
1085: l_user_id := p_event.GetValueForParameter('USER_ID');
1306: END IF; --l_ps_exists
1307:
1308: IF pg_debug = 'Y'
1309: THEN
1310: debug ('AR_BUS_EVENT_SUB_PVT.Inv_Complete(-)');
1311: END IF;
1312: RETURN 'SUCCESS';
1313:
1314: EXCEPTION
1318: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
1319: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
1320: FND_MSG_PUB.ADD;
1321:
1322: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'INV_COMPLETE', p_event.getEventName(), p_subscription_guid);
1323: WF_EVENT.setErrorInfo(p_event, 'ERROR');
1324:
1325: RETURN 'ERROR';
1326:
1378: BEGIN
1379:
1380: IF pg_debug = 'Y'
1381: THEN
1382: debug ('AR_BUS_EVENT_SUB_PVT.Inv_InComplete(+)');
1383: END IF;
1384: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
1385: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
1386: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
1571: END IF;
1572:
1573: IF pg_debug = 'Y'
1574: THEN
1575: debug ('AR_BUS_EVENT_SUB_PVT.Inv_InComplete(-)');
1576: END IF;
1577: Return 'SUCCESS';
1578: EXCEPTION
1579: WHEN OTHERS THEN
1582: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
1583: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
1584: FND_MSG_PUB.ADD;
1585:
1586: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'INV_INCOMPLETE', p_event.getEventName(), p_subscription_guid);
1587: WF_EVENT.setErrorInfo(p_event, 'ERROR');
1588:
1589: RETURN 'ERROR';
1590:
1631: BEGIN
1632:
1633: IF pg_debug = 'Y'
1634: THEN
1635: debug ('AR_BUS_EVENT_SUB_PVT.Inv_Modify(+)');
1636: END IF;
1637: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
1638: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
1639: l_org_id := p_event.GetValueForParameter('ORG_ID');
1777: --to do anything.
1778:
1779: IF pg_debug = 'Y'
1780: THEN
1781: debug ('AR_BUS_EVENT_SUB_PVT.Inv_Modify(-)');
1782: END IF;
1783: Return 'SUCCESS';
1784: EXCEPTION
1785: WHEN OTHERS THEN
1788: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
1789: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
1790: FND_MSG_PUB.ADD;
1791:
1792: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'INV_MODIFY', p_event.getEventName(), p_subscription_guid);
1793: WF_EVENT.setErrorInfo(p_event, 'ERROR');
1794:
1795: RETURN 'ERROR';
1796:
1805: BEGIN
1806:
1807: IF pg_debug = 'Y'
1808: THEN
1809: debug ('AR_BUS_EVENT_SUB_PVT.Inv_DepositApply(+)');
1810: END IF;
1811: Return 'SUCCESS';
1812: IF pg_debug = 'Y'
1813: THEN
1810: END IF;
1811: Return 'SUCCESS';
1812: IF pg_debug = 'Y'
1813: THEN
1814: debug ('AR_BUS_EVENT_SUB_PVT.Inv_DepositApply(-)');
1815: END IF;
1816: END Inv_DepositApply;
1817:
1818: FUNCTION CM_Complete
1867: l_past_due_inv_count NUMBER;
1868: BEGIN
1869: IF pg_debug = 'Y'
1870: THEN
1871: debug ('AR_BUS_EVENT_SUB_PVT.CM_Complete(+)');
1872: END IF;
1873: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
1874: l_prev_trx_op_count := p_event.GetValueForParameter('PREV_TRX_OP_COUNT');
1875: l_prev_trx_app_amt := p_event.GetValueForParameter('PREV_TRX_APP_AMT');
2144: END IF; --l_ps_exists
2145:
2146: IF pg_debug = 'Y'
2147: THEN
2148: debug ('AR_BUS_EVENT_SUB_PVT.CM_Complete(-)');
2149: END IF;
2150: Return 'SUCCESS';
2151: EXCEPTION
2152: WHEN OTHERS THEN
2155: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
2156: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
2157: FND_MSG_PUB.ADD;
2158:
2159: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CM_COMPLETE', p_event.getEventName(), p_subscription_guid);
2160: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2161:
2162: RETURN 'ERROR';
2163:
2214: BEGIN
2215:
2216: IF pg_debug = 'Y'
2217: THEN
2218: debug ('AR_BUS_EVENT_SUB_PVT.CM_InComplete(+)');
2219: END IF;
2220: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
2221: l_prev_trx_op_count := p_event.GetValueForParameter('PREV_TRX_OP_COUNT');
2222: l_prev_trx_app_amt := p_event.GetValueForParameter('PREV_TRX_APP_AMT');
2377: END IF;
2378:
2379: IF pg_debug = 'Y'
2380: THEN
2381: debug ('AR_BUS_EVENT_SUB_PVT.CM_InComplete(-)');
2382: END IF;
2383: Return 'SUCCESS';
2384:
2385: END CM_InComplete;
2393: BEGIN
2394:
2395: IF pg_debug = 'Y'
2396: THEN
2397: debug ('AR_BUS_EVENT_SUB_PVT.CM_Modify(+)');
2398: END IF;
2399: Return 'SUCCESS';
2400: IF pg_debug = 'Y'
2401: THEN
2398: END IF;
2399: Return 'SUCCESS';
2400: IF pg_debug = 'Y'
2401: THEN
2402: debug ('AR_BUS_EVENT_SUB_PVT.CM_Modify(-)');
2403: END IF;
2404: END CM_Modify;
2405:
2406: FUNCTION DM_Complete
2439: BEGIN
2440:
2441: IF pg_debug = 'Y'
2442: THEN
2443: debug ('AR_BUS_EVENT_SUB_PVT.DM_Complete(+)');
2444: END IF;
2445: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
2446: l_org_id := p_event.GetValueForParameter('ORG_ID');
2447: l_user_id := p_event.GetValueForParameter('USER_ID');
2630: END IF; --l_ps_exists
2631:
2632: IF pg_debug = 'Y'
2633: THEN
2634: debug ('AR_BUS_EVENT_SUB_PVT.DM_Complete(-)');
2635: END IF;
2636: Return 'SUCCESS';
2637: EXCEPTION
2638: WHEN OTHERS THEN
2641: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
2642: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
2643: FND_MSG_PUB.ADD;
2644:
2645: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'DM_COMPLETE', p_event.getEventName(), p_subscription_guid);
2646: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2647:
2648: RETURN 'ERROR';
2649:
2687: BEGIN
2688:
2689: IF pg_debug = 'Y'
2690: THEN
2691: debug ('AR_BUS_EVENT_SUB_PVT.DM_InComplete(+)');
2692: END IF;
2693: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
2694: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
2695: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
2803: END IF;
2804:
2805: IF pg_debug = 'Y'
2806: THEN
2807: debug ('AR_BUS_EVENT_SUB_PVT.DM_InComplete(-)');
2808: END IF;
2809: Return 'SUCCESS';
2810: EXCEPTION
2811: WHEN OTHERS THEN
2814: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
2815: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
2816: FND_MSG_PUB.ADD;
2817:
2818: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'DEP_INCOMPLETE', p_event.getEventName(), p_subscription_guid);
2819: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2820:
2821: RETURN 'ERROR';
2822:
2831: BEGIN
2832:
2833: IF pg_debug = 'Y'
2834: THEN
2835: debug ('AR_BUS_EVENT_SUB_PVT.DM_Modify(+)');
2836: END IF;
2837: Return 'SUCCESS';
2838: IF pg_debug = 'Y'
2839: THEN
2836: END IF;
2837: Return 'SUCCESS';
2838: IF pg_debug = 'Y'
2839: THEN
2840: debug ('AR_BUS_EVENT_SUB_PVT.DM_Modify(-)');
2841: END IF;
2842: END DM_Modify;
2843:
2844: FUNCTION Dep_Complete
2879: BEGIN
2880:
2881: IF pg_debug = 'Y'
2882: THEN
2883: debug ('AR_BUS_EVENT_SUB_PVT.Dep_Complete(+)');
2884: END IF;
2885: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
2886: l_org_id := p_event.GetValueForParameter('ORG_ID');
2887: l_user_id := p_event.GetValueForParameter('USER_ID');
3073: END IF; --l_ps_exists
3074:
3075: IF pg_debug = 'Y'
3076: THEN
3077: debug ('AR_BUS_EVENT_SUB_PVT.Dep_Complete(-)');
3078: END IF;
3079:
3080: Return 'SUCCESS';
3081: EXCEPTION
3085: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
3086: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
3087: FND_MSG_PUB.ADD;
3088:
3089: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'DEP_COMPLETE', p_event.getEventName(), p_subscription_guid);
3090: WF_EVENT.setErrorInfo(p_event, 'ERROR');
3091:
3092: RETURN 'ERROR';
3093: END Dep_Complete;
3128: BEGIN
3129:
3130: IF pg_debug = 'Y'
3131: THEN
3132: debug ('AR_BUS_EVENT_SUB_PVT.Dep_InComplete(+)');
3133: END IF;
3134: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
3135: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
3136: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
3246: END IF;
3247:
3248: IF pg_debug = 'Y'
3249: THEN
3250: debug ('AR_BUS_EVENT_SUB_PVT.Dep_InComplete(-)');
3251: END IF;
3252: Return 'SUCCESS';
3253: EXCEPTION
3254: WHEN OTHERS THEN
3257: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
3258: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
3259: FND_MSG_PUB.ADD;
3260:
3261: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'DEP_INCOMPLETE', p_event.getEventName(), p_subscription_guid);
3262: WF_EVENT.setErrorInfo(p_event, 'ERROR');
3263:
3264: RETURN 'ERROR';
3265:
3274: BEGIN
3275:
3276: IF pg_debug = 'Y'
3277: THEN
3278: debug ('AR_BUS_EVENT_SUB_PVT.Dep_Modify(+)');
3279: END IF;
3280: Return 'SUCCESS';
3281: IF pg_debug = 'Y'
3282: THEN
3279: END IF;
3280: Return 'SUCCESS';
3281: IF pg_debug = 'Y'
3282: THEN
3283: debug ('AR_BUS_EVENT_SUB_PVT.Dep_Modify(-)');
3284: END IF;
3285: END Dep_Modify;
3286:
3287: FUNCTION CB_Create
3324: l_inv_inst_count NUMBER;
3325: BEGIN
3326: IF pg_debug = 'Y'
3327: THEN
3328: debug ('AR_BUS_EVENT_SUB_PVT.CB_Create(+)');
3329: END IF;
3330: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
3331: l_org_id := p_event.GetValueForParameter('ORG_ID');
3332: l_user_id := p_event.GetValueForParameter('USER_ID');
3511: END IF; --l_ps_exists
3512:
3513: IF pg_debug = 'Y'
3514: THEN
3515: debug ('AR_BUS_EVENT_SUB_PVT.CB_Create(-)');
3516: END IF;
3517: Return 'SUCCESS';
3518: EXCEPTION
3519: WHEN OTHERS THEN
3522: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
3523: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
3524: FND_MSG_PUB.ADD;
3525:
3526: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CB_CREATE', p_event.getEventName(), p_subscription_guid);
3527: WF_EVENT.setErrorInfo(p_event, 'ERROR');
3528:
3529: RETURN 'ERROR';
3530:
3539: BEGIN
3540:
3541: IF pg_debug = 'Y'
3542: THEN
3543: debug ('AR_BUS_EVENT_SUB_PVT.CB_Modify(+)');
3544: END IF;
3545: Return 'SUCCESS';
3546: IF pg_debug = 'Y'
3547: THEN
3544: END IF;
3545: Return 'SUCCESS';
3546: IF pg_debug = 'Y'
3547: THEN
3548: debug ('AR_BUS_EVENT_SUB_PVT.CB_Modify(-)');
3549: END IF;
3550: END CB_Modify;
3551:
3552: FUNCTION Guar_Complete
3558: BEGIN
3559:
3560: IF pg_debug = 'Y'
3561: THEN
3562: debug ('AR_BUS_EVENT_SUB_PVT.Guar_Complete(+)');
3563: END IF;
3564: Return 'SUCCESS';
3565: IF pg_debug = 'Y'
3566: THEN
3563: END IF;
3564: Return 'SUCCESS';
3565: IF pg_debug = 'Y'
3566: THEN
3567: debug ('AR_BUS_EVENT_SUB_PVT.Guar_Complete(-)');
3568: END IF;
3569: END Guar_Complete;
3570:
3571: FUNCTION Guar_InComplete
3577: BEGIN
3578:
3579: IF pg_debug = 'Y'
3580: THEN
3581: debug ('AR_BUS_EVENT_SUB_PVT.Guar_InComplete(+)');
3582: END IF;
3583: Return 'SUCCESS';
3584: IF pg_debug = 'Y'
3585: THEN
3582: END IF;
3583: Return 'SUCCESS';
3584: IF pg_debug = 'Y'
3585: THEN
3586: debug ('AR_BUS_EVENT_SUB_PVT.Guar_InComplete(-)');
3587: END IF;
3588: END Guar_InComplete;
3589:
3590: FUNCTION Guar_Modify
3596: BEGIN
3597:
3598: IF pg_debug = 'Y'
3599: THEN
3600: debug ('AR_BUS_EVENT_SUB_PVT.Guar_Modify(+)');
3601: END IF;
3602: Return 'SUCCESS';
3603: IF pg_debug = 'Y'
3604: THEN
3601: END IF;
3602: Return 'SUCCESS';
3603: IF pg_debug = 'Y'
3604: THEN
3605: debug ('AR_BUS_EVENT_SUB_PVT.Guar_Modify(-)');
3606: END IF;
3607: END Guar_Modify;
3608:
3609: FUNCTION CashReceipt_Create
3649: l_receipt_exists BOOLEAN := FALSE;
3650: BEGIN
3651: IF pg_debug = 'Y'
3652: THEN
3653: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Create(+)');
3654: END IF;
3655: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
3656: l_org_id := p_event.GetValueForParameter('ORG_ID');
3657: l_user_id := p_event.GetValueForParameter('USER_ID');
3820: END IF;
3821: END IF; -- end of l_cust-account_id <> -99
3822: IF pg_debug = 'Y'
3823: THEN
3824: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Create(-)');
3825: END IF;
3826: Return 'SUCCESS';
3827: EXCEPTION
3828: WHEN OTHERS THEN
3831: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
3832: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
3833: FND_MSG_PUB.ADD;
3834:
3835: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashReceipt_Create', p_event.getEventName(), p_subscription_guid);
3836: WF_EVENT.setErrorInfo(p_event, 'ERROR');
3837:
3838: RETURN 'ERROR';
3839: END CashReceipt_Create;
3927:
3928: BEGIN
3929: IF pg_debug = 'Y'
3930: THEN
3931: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Reverse(+)');
3932: END IF;
3933: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
3934: l_cash_receipt_id := p_event.GetValueForParameter('CASH_RECEIPT_ID');
3935: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
4042: END IF;
4043:
4044: IF pg_debug = 'Y'
4045: THEN
4046: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Reverse(-)');
4047: END IF;
4048: Return 'SUCCESS';
4049: EXCEPTION
4050: WHEN OTHERS THEN
4053: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
4054: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
4055: FND_MSG_PUB.ADD;
4056:
4057: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashReceipt_Reverse', p_event.getEventName(), p_subscription_guid);
4058: WF_EVENT.setErrorInfo(p_event, 'ERROR');
4059:
4060: RETURN 'ERROR';
4061: END CashReceipt_Reverse;
4113: l_history_exists_flag VARCHAR2(1);
4114: BEGIN
4115: IF pg_debug = 'Y'
4116: THEN
4117: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Modify(+)');
4118: END IF;
4119: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
4120: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
4121: l_cash_receipt_id := p_event.GetValueForParameter('CASH_RECEIPT_ID');
4681:
4682: END IF;
4683: IF pg_debug = 'Y'
4684: THEN
4685: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Modify(-)');
4686: END IF;
4687:
4688: Return 'SUCCESS';
4689: EXCEPTION
4693: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
4694: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
4695: FND_MSG_PUB.ADD;
4696:
4697: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashReceipt_Modify', p_event.getEventName(), p_subscription_guid);
4698: WF_EVENT.setErrorInfo(p_event, 'ERROR');
4699:
4700: RETURN 'ERROR';
4701:
4710: BEGIN
4711:
4712: IF pg_debug = 'Y'
4713: THEN
4714: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Approve(+)');
4715: END IF;
4716: Return 'SUCCESS';
4717: IF pg_debug = 'Y'
4718: THEN
4715: END IF;
4716: Return 'SUCCESS';
4717: IF pg_debug = 'Y'
4718: THEN
4719: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Approve(-)');
4720: END IF;
4721: END CashReceipt_Approve;
4722:
4723: FUNCTION CashReceipt_Confirm
4729: BEGIN
4730:
4731: IF pg_debug = 'Y'
4732: THEN
4733: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Confirm(+)');
4734: END IF;
4735: Return 'SUCCESS';
4736: IF pg_debug = 'Y'
4737: THEN
4734: END IF;
4735: Return 'SUCCESS';
4736: IF pg_debug = 'Y'
4737: THEN
4738: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Confirm(-)');
4739: END IF;
4740: END CashReceipt_Confirm;
4741:
4742: FUNCTION CashReceipt_Unconfirm
4748: BEGIN
4749:
4750: IF pg_debug = 'Y'
4751: THEN
4752: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Unconfirm(+)');
4753: END IF;
4754: Return 'SUCCESS';
4755: IF pg_debug = 'Y'
4756: THEN
4753: END IF;
4754: Return 'SUCCESS';
4755: IF pg_debug = 'Y'
4756: THEN
4757: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Unconfirm(-)');
4758: END IF;
4759: END CashReceipt_Unconfirm;
4760:
4761: FUNCTION CashReceipt_DMReversal
4767: BEGIN
4768:
4769: IF pg_debug = 'Y'
4770: THEN
4771: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_DMReversal(+)');
4772: END IF;
4773: Return 'SUCCESS';
4774: IF pg_debug = 'Y'
4775: THEN
4772: END IF;
4773: Return 'SUCCESS';
4774: IF pg_debug = 'Y'
4775: THEN
4776: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_DMReversal(-)');
4777: END IF;
4778: END CashReceipt_DMReversal;
4779:
4780: /* Bug 4173339 */
4843: BEGIN
4844:
4845: IF pg_debug = 'Y'
4846: THEN
4847: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Delete(+)');
4848: END IF;
4849: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
4850: l_cash_receipt_id := p_event.GetValueForParameter('CASH_RECEIPT_ID');
4851: l_receipt_number := p_event.GetValueForParameter('RECEIPT_NUMBER');
4947: END LOOP;
4948:
4949: IF pg_debug = 'Y'
4950: THEN
4951: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Delete(-)');
4952: END IF;
4953: RETURN 'SUCCESS';
4954: EXCEPTION
4955: WHEN OTHERS THEN
4958: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
4959: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
4960: FND_MSG_PUB.ADD;
4961:
4962: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashReceipt_Delete', p_event.getEventName(), p_subscription_guid);
4963: WF_EVENT.setErrorInfo(p_event, 'ERROR');
4964:
4965: RETURN 'ERROR';
4966: END CashReceipt_Delete;
5020: SAVEPOINT CM_Apply_Event;
5021:
5022: IF pg_debug = 'Y'
5023: THEN
5024: debug ('AR_BUS_EVENT_SUB_PVT.CreditMemoApp_Apply(+)');
5025: END IF;
5026: l_receivable_application_id :=
5027: p_event.GetValueForParameter('RECEIVABLE_APPLICATION_ID');
5028: l_trx_ps_status := p_event.GetValueForParameter('TRX_PS_STATUS');
5150: --
5151: CLOSE get_recapp_details;
5152: IF pg_debug = 'Y'
5153: THEN
5154: debug ('AR_BUS_EVENT_SUB_PVT.CreditMemoApp_Apply(-)');
5155: END IF;
5156: Return 'SUCCESS';
5157: EXCEPTION
5158: WHEN OTHERS THEN
5161: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
5162: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
5163: FND_MSG_PUB.ADD;
5164:
5165: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CREDITMEMOAPP_APPLY', p_event.getEventName(), p_subscription_guid);
5166: WF_EVENT.setErrorInfo(p_event, 'ERROR');
5167:
5168: RETURN 'ERROR';
5169:
5224:
5225: BEGIN
5226: IF pg_debug = 'Y'
5227: THEN
5228: debug ('AR_BUS_EVENT_SUB_PVT.CreditMemoApp_UnApply(+)');
5229: END IF;
5230: l_receivable_application_id :=
5231: p_event.GetValueForParameter('RECEIVABLE_APPLICATION_ID');
5232: l_trx_ps_status := p_event.GetValueForParameter('TRX_PS_STATUS');
5355: --
5356: CLOSE get_recapp_details;
5357: IF pg_debug = 'Y'
5358: THEN
5359: debug ('AR_BUS_EVENT_SUB_PVT.CreditMemoApp_UnApply(-)');
5360: END IF;
5361: Return 'SUCCESS';
5362: EXCEPTION
5363: WHEN OTHERS THEN
5366: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
5367: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
5368: FND_MSG_PUB.ADD;
5369:
5370: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CREDITMEMOAPP_UNAPPLY', p_event.getEventName(), p_subscription_guid);
5371: WF_EVENT.setErrorInfo(p_event, 'ERROR');
5372:
5373: RETURN 'ERROR';
5374:
5455: SAVEPOINT CashApp_Apply_pvt;
5456:
5457: IF pg_debug = 'Y'
5458: THEN
5459: debug ('AR_BUS_EVENT_SUB_PVT.CashApp_Apply(+)');
5460: END IF;
5461: l_receivable_application_id :=
5462: p_event.GetValueForParameter('RECEIVABLE_APPLICATION_ID');
5463: l_trx_ps_status := p_event.GetValueForParameter('TRX_PS_STATUS');
5632: CLOSE get_recapp_details;
5633:
5634: IF pg_debug = 'Y'
5635: THEN
5636: debug ('AR_BUS_EVENT_SUB_PVT.CashApp_Apply(-)');
5637: END IF;
5638: Return 'SUCCESS';
5639: EXCEPTION
5640: WHEN OTHERS THEN
5643: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
5644: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
5645: FND_MSG_PUB.ADD;
5646:
5647: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashApp_Apply', p_event.getEventName(), p_subscription_guid);
5648: WF_EVENT.setErrorInfo(p_event, 'ERROR');
5649:
5650: RETURN 'ERROR';
5651:
5744: BEGIN
5745: SAVEPOINT CashApp_UnApply_pvt;
5746: IF pg_debug = 'Y'
5747: THEN
5748: debug ('AR_BUS_EVENT_SUB_PVT.CashApp_UnApply(+)');
5749: END IF;
5750: l_receivable_application_id :=
5751: p_event.GetValueForParameter('RECEIVABLE_APPLICATION_ID');
5752: l_old_trx_ps_status := p_event.GetValueForParameter('OLD_TRX_PS_STATUS');
6013: CLOSE get_recapp_details;
6014:
6015: IF pg_debug = 'Y'
6016: THEN
6017: debug ('AR_BUS_EVENT_SUB_PVT.CashApp_UnApply(-)');
6018: END IF;
6019: Return 'SUCCESS';
6020: EXCEPTION
6021: WHEN OTHERS THEN
6024: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6025: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6026: FND_MSG_PUB.ADD;
6027:
6028: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashApp_UnApply', p_event.getEventName(), p_subscription_guid);
6029: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6030:
6031: RETURN 'ERROR';
6032:
6042: BEGIN
6043:
6044: IF pg_debug = 'Y'
6045: THEN
6046: debug ('AR_BUS_EVENT_SUB_PVT.Adjustment(+)');
6047: END IF;
6048: Return 'SUCCESS';
6049: IF pg_debug = 'Y'
6050: THEN
6047: END IF;
6048: Return 'SUCCESS';
6049: IF pg_debug = 'Y'
6050: THEN
6051: debug ('AR_BUS_EVENT_SUB_PVT.Adjustment(-)');
6052: END IF;
6053: END Adjustment;
6054:
6055: FUNCTION AutoInv_Run
6153: BEGIN
6154:
6155: IF pg_debug = 'Y'
6156: THEN
6157: debug ('AR_BUS_EVENT_SUB_PVT.AutoInv_Run(+)');
6158: END IF;
6159: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6160: l_org_id := p_event.GetValueForParameter('ORG_ID');
6161: l_user_id := p_event.GetValueForParameter('USER_ID');
6181:
6182: Update_summary_for_request_id(l_request_id);
6183: IF pg_debug = 'Y'
6184: THEN
6185: debug ('AR_BUS_EVENT_SUB_PVT.AutoInv_Run(-)');
6186: END IF;
6187:
6188: Return 'SUCCESS';
6189: EXCEPTION
6193: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6194: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6195: FND_MSG_PUB.ADD;
6196:
6197: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'AUTOINV_RUN', p_event.getEventName(), p_subscription_guid);
6198: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6199:
6200: RETURN 'ERROR';
6201:
6217: BEGIN
6218:
6219: IF pg_debug = 'Y'
6220: THEN
6221: debug ('AR_BUS_EVENT_SUB_PVT.AutoRcpt_Run(+)');
6222: END IF;
6223: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6224: l_org_id := p_event.GetValueForParameter('ORG_ID');
6225: l_user_id := p_event.GetValueForParameter('USER_ID');
6245:
6246: Update_rcpt_app_info_for_req(l_request_id, l_org_id);
6247: IF pg_debug = 'Y'
6248: THEN
6249: debug ('AR_BUS_EVENT_SUB_PVT.AutoRcpt_Run(-)');
6250: END IF;
6251: Return 'SUCCESS';
6252: EXCEPTION
6253: WHEN OTHERS THEN
6256: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6257: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6258: FND_MSG_PUB.ADD;
6259:
6260: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'AUTORCPT_RUN', p_event.getEventName(), p_subscription_guid);
6261: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6262:
6263: RETURN 'ERROR';
6264: END AutoRcpt_Run;
6308:
6309: BEGIN
6310: IF pg_debug = 'Y'
6311: THEN
6312: debug ('AR_BUS_EVENT_SUB_PVT.AutoAdj_Run(+)');
6313: END IF;
6314: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6315: l_org_id := p_event.GetValueForParameter('ORG_ID');
6316: l_user_id := p_event.GetValueForParameter('USER_ID');
6383: CLOSE get_adj;
6384:
6385: IF pg_debug = 'Y'
6386: THEN
6387: debug ('AR_BUS_EVENT_SUB_PVT.AutoAdj_Run(-)');
6388: END IF;
6389: Return 'SUCCESS';
6390: EXCEPTION
6391: WHEN OTHERS THEN
6394: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6395: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6396: FND_MSG_PUB.ADD;
6397:
6398: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'AUTO_ADJ_RUN', p_event.getEventName(), p_subscription_guid);
6399: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6400:
6401: RETURN 'ERROR';
6402:
6418: BEGIN
6419:
6420: IF pg_debug = 'Y'
6421: THEN
6422: debug ('AR_BUS_EVENT_SUB_PVT.QuickCash_PostBatch(+)');
6423: END IF;
6424: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6425: l_org_id := p_event.GetValueForParameter('ORG_ID');
6426: l_user_id := p_event.GetValueForParameter('USER_ID');
6446:
6447: Update_rcpt_app_info_for_req(l_request_id, l_org_id);
6448: IF pg_debug = 'Y'
6449: THEN
6450: debug ('AR_BUS_EVENT_SUB_PVT.QuickCash_PostBatch(-)');
6451: END IF;
6452:
6453: Return 'SUCCESS';
6454:
6459: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6460: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6461: FND_MSG_PUB.ADD;
6462:
6463: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'QuickCash_PostBatch', p_event.getEventName(), p_subscription_guid);
6464: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6465:
6466: RETURN 'ERROR';
6467:
6477: BEGIN
6478:
6479: IF pg_debug = 'Y'
6480: THEN
6481: debug ('AR_BUS_EVENT_SUB_PVT.Aging_PastDue(+)');
6482: END IF;
6483: Return 'SUCCESS';
6484: IF pg_debug = 'Y'
6485: THEN
6482: END IF;
6483: Return 'SUCCESS';
6484: IF pg_debug = 'Y'
6485: THEN
6486: debug ('AR_BUS_EVENT_SUB_PVT.Aging_PastDue(-)');
6487: END IF;
6488: END Aging_PastDue;
6489:
6490: FUNCTION AdjCreate
6526: l_past_due_inv_value NUMBER;
6527: BEGIN
6528: IF pg_debug = 'Y'
6529: THEN
6530: debug ('AR_BUS_EVENT_SUB_PVT.AdjCreate(+)');
6531: END IF;
6532: l_adjustment_id := p_event.GetValueForParameter('ADJUSTMENT_ID');
6533: l_adj_status := p_event.GetValueForParameter('ADJ_STATUS');
6534: l_app_ps_status := p_event.GetValueForParameter('APPLIED_PS_STATUS');
6623: l_past_due_inv_value);
6624:
6625: IF pg_debug = 'Y'
6626: THEN
6627: debug ('AR_BUS_EVENT_SUB_PVT.AdjCreate(-)');
6628: END IF;
6629: Return 'SUCCESS';
6630: EXCEPTION
6631: WHEN OTHERS THEN
6634: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6635: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6636: FND_MSG_PUB.ADD;
6637:
6638: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'ADJ_CREATE', p_event.getEventName(), p_subscription_guid);
6639: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6640:
6641: RETURN 'ERROR';
6642:
6682:
6683: BEGIN
6684: IF pg_debug = 'Y'
6685: THEN
6686: debug ('AR_BUS_EVENT_SUB_PVT.AdjApprove(+)');
6687: END IF;
6688: l_adjustment_id := p_event.GetValueForParameter('ADJUSTMENT_ID');
6689: l_adj_status := p_event.GetValueForParameter('APPROVAL_ACTN_HIST_ID');
6690: l_app_ps_status := p_event.GetValueForParameter('APPLIED_PS_STATUS');
6762: l_past_due_inv_value);
6763:
6764: IF pg_debug = 'Y'
6765: THEN
6766: debug ('AR_BUS_EVENT_SUB_PVT.AdjApprove(-)');
6767: END IF;
6768: Return 'SUCCESS';
6769: EXCEPTION
6770: WHEN OTHERS THEN
6773: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6774: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6775: FND_MSG_PUB.ADD;
6776:
6777: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'ADJ_APPROVE', p_event.getEventName(), p_subscription_guid);
6778: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6779:
6780: RETURN 'ERROR';
6781:
6791: BEGIN
6792:
6793: IF pg_debug = 'Y'
6794: THEN
6795: debug ('AR_BUS_EVENT_SUB_PVT.Recurr_Invoice(+)');
6796: END IF;
6797: Return 'SUCCESS';
6798:
6799: IF pg_debug = 'Y'
6797: Return 'SUCCESS';
6798:
6799: IF pg_debug = 'Y'
6800: THEN
6801: debug ('AR_BUS_EVENT_SUB_PVT.Recurr_Invoice(-)');
6802: END IF;
6803: END Recurr_Invoice;
6804:
6805: FUNCTION CopyInv_Run
6817: l_security_gr_id NUMBER;
6818: BEGIN
6819: IF pg_debug = 'Y'
6820: THEN
6821: debug ('AR_BUS_EVENT_SUB_PVT.CopyInv_Run(+)');
6822: END IF;
6823: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6824: l_org_id := p_event.GetValueForParameter('ORG_ID');
6825: l_user_id := p_event.GetValueForParameter('USER_ID');
6846: Update_summary_for_request_id(l_request_id);
6847:
6848: IF pg_debug = 'Y'
6849: THEN
6850: debug ('AR_BUS_EVENT_SUB_PVT.CopyInv_Run(-)');
6851: END IF;
6852: Return 'SUCCESS';
6853: EXCEPTION
6854: WHEN OTHERS THEN
6857: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6858: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6859: FND_MSG_PUB.ADD;
6860:
6861: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'COPYINV_RUN', p_event.getEventName(), p_subscription_guid);
6862: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6863:
6864: RETURN 'ERROR';
6865:
6887: BEGIN
6888:
6889: IF pg_debug = 'Y'
6890: THEN
6891: debug ('AR_BUS_EVENT_SUB_PVT.raise_revenue_event(+)');
6892: END IF;
6893: -- This function simply raises revenue related business events.
6894:
6895:
6921:
6922:
6923: IF pg_debug = 'Y'
6924: THEN
6925: debug ('AR_BUS_EVENT_SUB_PVT.raise_revenue_event(-)');
6926: END IF;
6927: RETURN l_item_key;
6928:
6929: EXCEPTION
6996: BEGIN
6997:
6998: IF pg_debug = 'Y'
6999: THEN
7000: debug ('AR_BUS_EVENT_SUB_PVT.events_manager(+)');
7001: END IF;
7002: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
7003:
7004: IF pg_debug = 'Y'
7051: CLOSE Lines;
7052:
7053: IF pg_debug = 'Y'
7054: THEN
7055: debug ('AR_BUS_EVENT_SUB_PVT.events_manager(-)');
7056: END IF;
7057:
7058: RETURN 'SUCCESS';
7059:
7082: ar_trx_bal_summary for partial receipts, multiple applications to one
7083: trx from different receipts, and receipts with apply_dates that
7084: occurr before the trx.due_date. */
7085: PROCEDURE refresh_counts(
7086: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7087: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7088: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7089: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type ) IS
7090:
7083: trx from different receipts, and receipts with apply_dates that
7084: occurr before the trx.due_date. */
7085: PROCEDURE refresh_counts(
7086: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7087: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7088: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7089: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type ) IS
7090:
7091: l_rows NUMBER;
7084: occurr before the trx.due_date. */
7085: PROCEDURE refresh_counts(
7086: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7087: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7088: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7089: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type ) IS
7090:
7091: l_rows NUMBER;
7092:
7085: PROCEDURE refresh_counts(
7086: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7087: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7088: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7089: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type ) IS
7090:
7091: l_rows NUMBER;
7092:
7093: BEGIN
7092:
7093: BEGIN
7094: IF pg_debug = 'Y'
7095: THEN
7096: debug ('ar_bus_event_sub_pvt.refresh_counts()+');
7097: END IF;
7098:
7099: FORALL i IN p_customer_id_tab.FIRST .. p_customer_id_tab.LAST
7100: update ar_trx_bal_summary main_sum
7156:
7157: IF pg_debug = 'Y'
7158: THEN
7159: debug (' updated row(s) = ' || l_rows);
7160: debug ('ar_bus_event_sub_pvt.refresh_counts()-');
7161: END IF;
7162: END refresh_counts;
7163:
7164: END AR_BUS_EVENT_SUB_PVT; -- Package spec
7160: debug ('ar_bus_event_sub_pvt.refresh_counts()-');
7161: END IF;
7162: END refresh_counts;
7163:
7164: END AR_BUS_EVENT_SUB_PVT; -- Package spec