[Home] [Help]
1: PACKAGE BODY AR_BUS_EVENT_SUB_PVT AS
2: /* $Header: ARBESUBB.pls 120.32.12020000.9 2013/03/16 02:36:00 naneja ship $*/
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 NVL(org_id,'-99') = NVL(l_org_id,-99);
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
532: END LOOP;
533: END IF;
534: IF pg_debug = 'Y'
535: THEN
536: debug ('AR_BUS_EVENT_SUB_PVT.Update_summary_for_request_id(-)');
537: END IF;
538: END Update_summary_for_request_id;
539:
540: PROCEDURE Update_Adj_info (
553: ) IS
554: BEGIN
555: IF pg_debug = 'Y'
556: THEN
557: debug ('AR_BUS_EVENT_SUB_PVT.Update_Adj_info(+)');
558: debug ('cust_account_id ='||l_customer_id);
559: debug ('site_use_id ='||l_site_use_id);
560: debug ('currency ='||l_currency_code);
561: debug ('org_id ='||l_org_id);
700: nvl(l_adj_amount,0) );
701: END IF;
702: IF pg_debug = 'Y'
703: THEN
704: debug ('AR_BUS_EVENT_SUB_PVT.Update_Adj_info(-)');
705: END IF;
706: END Update_Adj_info;
707:
708: PROCEDURE Update_rcpt_app_info_for_req(p_req_id in number,
834: BEGIN
835:
836: IF pg_debug = 'Y'
837: THEN
838: debug ('AR_BUS_EVENT_SUB_PVT.Update_rcpt_app_info_for_req(+)');
839: debug ('p_req_id ='||p_req_id);
840: END IF;
841: FOR i in create_recept_info(p_req_id)
842: LOOP
1034: END IF;
1035:
1036: IF pg_debug = 'Y'
1037: THEN
1038: debug ('AR_BUS_EVENT_SUB_PVT.Update_rcpt_app_info_for_req(-)');
1039: END IF;
1040: END Update_rcpt_app_info_for_req;
1041:
1042: FUNCTION Inv_Complete
1078: BEGIN
1079:
1080: IF pg_debug = 'Y'
1081: THEN
1082: debug ('AR_BUS_EVENT_SUB_PVT.Inv_Complete(+)');
1083: END IF;
1084: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
1085: l_org_id := p_event.GetValueForParameter('ORG_ID');
1086: l_user_id := p_event.GetValueForParameter('USER_ID');
1308: END IF; --l_ps_exists
1309:
1310: IF pg_debug = 'Y'
1311: THEN
1312: debug ('AR_BUS_EVENT_SUB_PVT.Inv_Complete(-)');
1313: END IF;
1314: RETURN 'SUCCESS';
1315:
1316: EXCEPTION
1320: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
1321: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
1322: FND_MSG_PUB.ADD;
1323:
1324: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'INV_COMPLETE', p_event.getEventName(), p_subscription_guid);
1325: WF_EVENT.setErrorInfo(p_event, 'ERROR');
1326:
1327: RETURN 'ERROR';
1328:
1380: BEGIN
1381:
1382: IF pg_debug = 'Y'
1383: THEN
1384: debug ('AR_BUS_EVENT_SUB_PVT.Inv_InComplete(+)');
1385: END IF;
1386: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
1387: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
1388: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
1573: END IF;
1574:
1575: IF pg_debug = 'Y'
1576: THEN
1577: debug ('AR_BUS_EVENT_SUB_PVT.Inv_InComplete(-)');
1578: END IF;
1579: Return 'SUCCESS';
1580: EXCEPTION
1581: WHEN OTHERS THEN
1584: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
1585: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
1586: FND_MSG_PUB.ADD;
1587:
1588: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'INV_INCOMPLETE', p_event.getEventName(), p_subscription_guid);
1589: WF_EVENT.setErrorInfo(p_event, 'ERROR');
1590:
1591: RETURN 'ERROR';
1592:
1633: BEGIN
1634:
1635: IF pg_debug = 'Y'
1636: THEN
1637: debug ('AR_BUS_EVENT_SUB_PVT.Inv_Modify(+)');
1638: END IF;
1639: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
1640: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
1641: l_org_id := p_event.GetValueForParameter('ORG_ID');
1779: --to do anything.
1780:
1781: IF pg_debug = 'Y'
1782: THEN
1783: debug ('AR_BUS_EVENT_SUB_PVT.Inv_Modify(-)');
1784: END IF;
1785: Return 'SUCCESS';
1786: EXCEPTION
1787: WHEN OTHERS THEN
1790: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
1791: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
1792: FND_MSG_PUB.ADD;
1793:
1794: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'INV_MODIFY', p_event.getEventName(), p_subscription_guid);
1795: WF_EVENT.setErrorInfo(p_event, 'ERROR');
1796:
1797: RETURN 'ERROR';
1798:
1807: BEGIN
1808:
1809: IF pg_debug = 'Y'
1810: THEN
1811: debug ('AR_BUS_EVENT_SUB_PVT.Inv_DepositApply(+)');
1812: END IF;
1813: Return 'SUCCESS';
1814: IF pg_debug = 'Y'
1815: THEN
1812: END IF;
1813: Return 'SUCCESS';
1814: IF pg_debug = 'Y'
1815: THEN
1816: debug ('AR_BUS_EVENT_SUB_PVT.Inv_DepositApply(-)');
1817: END IF;
1818: END Inv_DepositApply;
1819:
1820: FUNCTION CM_Complete
1869: l_past_due_inv_count NUMBER;
1870: BEGIN
1871: IF pg_debug = 'Y'
1872: THEN
1873: debug ('AR_BUS_EVENT_SUB_PVT.CM_Complete(+)');
1874: END IF;
1875: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
1876: l_prev_trx_op_count := p_event.GetValueForParameter('PREV_TRX_OP_COUNT');
1877: l_prev_trx_app_amt := fnd_number.canonical_to_number(p_event.GetValueForParameter('PREV_TRX_APP_AMT'));
2146: END IF; --l_ps_exists
2147:
2148: IF pg_debug = 'Y'
2149: THEN
2150: debug ('AR_BUS_EVENT_SUB_PVT.CM_Complete(-)');
2151: END IF;
2152: Return 'SUCCESS';
2153: EXCEPTION
2154: WHEN OTHERS THEN
2157: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
2158: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
2159: FND_MSG_PUB.ADD;
2160:
2161: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CM_COMPLETE', p_event.getEventName(), p_subscription_guid);
2162: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2163:
2164: RETURN 'ERROR';
2165:
2216: BEGIN
2217:
2218: IF pg_debug = 'Y'
2219: THEN
2220: debug ('AR_BUS_EVENT_SUB_PVT.CM_InComplete(+)');
2221: END IF;
2222: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
2223: l_prev_trx_op_count := p_event.GetValueForParameter('PREV_TRX_OP_COUNT');
2224: l_prev_trx_app_amt := fnd_number.canonical_to_number(p_event.GetValueForParameter('PREV_TRX_APP_AMT'));
2379: END IF;
2380:
2381: IF pg_debug = 'Y'
2382: THEN
2383: debug ('AR_BUS_EVENT_SUB_PVT.CM_InComplete(-)');
2384: END IF;
2385: Return 'SUCCESS';
2386:
2387: END CM_InComplete;
2395: BEGIN
2396:
2397: IF pg_debug = 'Y'
2398: THEN
2399: debug ('AR_BUS_EVENT_SUB_PVT.CM_Modify(+)');
2400: END IF;
2401: Return 'SUCCESS';
2402: IF pg_debug = 'Y'
2403: THEN
2400: END IF;
2401: Return 'SUCCESS';
2402: IF pg_debug = 'Y'
2403: THEN
2404: debug ('AR_BUS_EVENT_SUB_PVT.CM_Modify(-)');
2405: END IF;
2406: END CM_Modify;
2407:
2408: FUNCTION DM_Complete
2441: BEGIN
2442:
2443: IF pg_debug = 'Y'
2444: THEN
2445: debug ('AR_BUS_EVENT_SUB_PVT.DM_Complete(+)');
2446: END IF;
2447: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
2448: l_org_id := p_event.GetValueForParameter('ORG_ID');
2449: l_user_id := p_event.GetValueForParameter('USER_ID');
2633: END IF; --l_ps_exists
2634:
2635: IF pg_debug = 'Y'
2636: THEN
2637: debug ('AR_BUS_EVENT_SUB_PVT.DM_Complete(-)');
2638: END IF;
2639: Return 'SUCCESS';
2640: EXCEPTION
2641: WHEN OTHERS THEN
2644: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
2645: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
2646: FND_MSG_PUB.ADD;
2647:
2648: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'DM_COMPLETE', p_event.getEventName(), p_subscription_guid);
2649: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2650:
2651: RETURN 'ERROR';
2652:
2690: BEGIN
2691:
2692: IF pg_debug = 'Y'
2693: THEN
2694: debug ('AR_BUS_EVENT_SUB_PVT.DM_InComplete(+)');
2695: END IF;
2696: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
2697: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
2698: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
2806: END IF;
2807:
2808: IF pg_debug = 'Y'
2809: THEN
2810: debug ('AR_BUS_EVENT_SUB_PVT.DM_InComplete(-)');
2811: END IF;
2812: Return 'SUCCESS';
2813: EXCEPTION
2814: WHEN OTHERS THEN
2817: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
2818: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
2819: FND_MSG_PUB.ADD;
2820:
2821: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'DEP_INCOMPLETE', p_event.getEventName(), p_subscription_guid);
2822: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2823:
2824: RETURN 'ERROR';
2825:
2834: BEGIN
2835:
2836: IF pg_debug = 'Y'
2837: THEN
2838: debug ('AR_BUS_EVENT_SUB_PVT.DM_Modify(+)');
2839: END IF;
2840: Return 'SUCCESS';
2841: IF pg_debug = 'Y'
2842: THEN
2839: END IF;
2840: Return 'SUCCESS';
2841: IF pg_debug = 'Y'
2842: THEN
2843: debug ('AR_BUS_EVENT_SUB_PVT.DM_Modify(-)');
2844: END IF;
2845: END DM_Modify;
2846:
2847: FUNCTION Dep_Complete
2882: BEGIN
2883:
2884: IF pg_debug = 'Y'
2885: THEN
2886: debug ('AR_BUS_EVENT_SUB_PVT.Dep_Complete(+)');
2887: END IF;
2888: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
2889: l_org_id := p_event.GetValueForParameter('ORG_ID');
2890: l_user_id := p_event.GetValueForParameter('USER_ID');
3077: END IF; --l_ps_exists
3078:
3079: IF pg_debug = 'Y'
3080: THEN
3081: debug ('AR_BUS_EVENT_SUB_PVT.Dep_Complete(-)');
3082: END IF;
3083:
3084: Return 'SUCCESS';
3085: EXCEPTION
3089: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
3090: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
3091: FND_MSG_PUB.ADD;
3092:
3093: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'DEP_COMPLETE', p_event.getEventName(), p_subscription_guid);
3094: WF_EVENT.setErrorInfo(p_event, 'ERROR');
3095:
3096: RETURN 'ERROR';
3097: END Dep_Complete;
3132: BEGIN
3133:
3134: IF pg_debug = 'Y'
3135: THEN
3136: debug ('AR_BUS_EVENT_SUB_PVT.Dep_InComplete(+)');
3137: END IF;
3138: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
3139: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
3140: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
3250: END IF;
3251:
3252: IF pg_debug = 'Y'
3253: THEN
3254: debug ('AR_BUS_EVENT_SUB_PVT.Dep_InComplete(-)');
3255: END IF;
3256: Return 'SUCCESS';
3257: EXCEPTION
3258: WHEN OTHERS THEN
3261: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
3262: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
3263: FND_MSG_PUB.ADD;
3264:
3265: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'DEP_INCOMPLETE', p_event.getEventName(), p_subscription_guid);
3266: WF_EVENT.setErrorInfo(p_event, 'ERROR');
3267:
3268: RETURN 'ERROR';
3269:
3278: BEGIN
3279:
3280: IF pg_debug = 'Y'
3281: THEN
3282: debug ('AR_BUS_EVENT_SUB_PVT.Dep_Modify(+)');
3283: END IF;
3284: Return 'SUCCESS';
3285: IF pg_debug = 'Y'
3286: THEN
3283: END IF;
3284: Return 'SUCCESS';
3285: IF pg_debug = 'Y'
3286: THEN
3287: debug ('AR_BUS_EVENT_SUB_PVT.Dep_Modify(-)');
3288: END IF;
3289: END Dep_Modify;
3290:
3291: FUNCTION CB_Create
3328: l_inv_inst_count NUMBER;
3329: BEGIN
3330: IF pg_debug = 'Y'
3331: THEN
3332: debug ('AR_BUS_EVENT_SUB_PVT.CB_Create(+)');
3333: END IF;
3334: l_customer_trx_id := p_event.GetValueForParameter('CUSTOMER_TRX_ID');
3335: l_org_id := p_event.GetValueForParameter('ORG_ID');
3336: l_user_id := p_event.GetValueForParameter('USER_ID');
3516: END IF; --l_ps_exists
3517:
3518: IF pg_debug = 'Y'
3519: THEN
3520: debug ('AR_BUS_EVENT_SUB_PVT.CB_Create(-)');
3521: END IF;
3522: Return 'SUCCESS';
3523: EXCEPTION
3524: WHEN OTHERS THEN
3527: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
3528: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
3529: FND_MSG_PUB.ADD;
3530:
3531: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CB_CREATE', p_event.getEventName(), p_subscription_guid);
3532: WF_EVENT.setErrorInfo(p_event, 'ERROR');
3533:
3534: RETURN 'ERROR';
3535:
3544: BEGIN
3545:
3546: IF pg_debug = 'Y'
3547: THEN
3548: debug ('AR_BUS_EVENT_SUB_PVT.CB_Modify(+)');
3549: END IF;
3550: Return 'SUCCESS';
3551: IF pg_debug = 'Y'
3552: THEN
3549: END IF;
3550: Return 'SUCCESS';
3551: IF pg_debug = 'Y'
3552: THEN
3553: debug ('AR_BUS_EVENT_SUB_PVT.CB_Modify(-)');
3554: END IF;
3555: END CB_Modify;
3556:
3557: FUNCTION Guar_Complete
3563: BEGIN
3564:
3565: IF pg_debug = 'Y'
3566: THEN
3567: debug ('AR_BUS_EVENT_SUB_PVT.Guar_Complete(+)');
3568: END IF;
3569: Return 'SUCCESS';
3570: IF pg_debug = 'Y'
3571: THEN
3568: END IF;
3569: Return 'SUCCESS';
3570: IF pg_debug = 'Y'
3571: THEN
3572: debug ('AR_BUS_EVENT_SUB_PVT.Guar_Complete(-)');
3573: END IF;
3574: END Guar_Complete;
3575:
3576: FUNCTION Guar_InComplete
3582: BEGIN
3583:
3584: IF pg_debug = 'Y'
3585: THEN
3586: debug ('AR_BUS_EVENT_SUB_PVT.Guar_InComplete(+)');
3587: END IF;
3588: Return 'SUCCESS';
3589: IF pg_debug = 'Y'
3590: THEN
3587: END IF;
3588: Return 'SUCCESS';
3589: IF pg_debug = 'Y'
3590: THEN
3591: debug ('AR_BUS_EVENT_SUB_PVT.Guar_InComplete(-)');
3592: END IF;
3593: END Guar_InComplete;
3594:
3595: FUNCTION Guar_Modify
3601: BEGIN
3602:
3603: IF pg_debug = 'Y'
3604: THEN
3605: debug ('AR_BUS_EVENT_SUB_PVT.Guar_Modify(+)');
3606: END IF;
3607: Return 'SUCCESS';
3608: IF pg_debug = 'Y'
3609: THEN
3606: END IF;
3607: Return 'SUCCESS';
3608: IF pg_debug = 'Y'
3609: THEN
3610: debug ('AR_BUS_EVENT_SUB_PVT.Guar_Modify(-)');
3611: END IF;
3612: END Guar_Modify;
3613:
3614: FUNCTION CashReceipt_Create
3652: l_receipt_exists BOOLEAN := FALSE;
3653: BEGIN
3654: IF pg_debug = 'Y'
3655: THEN
3656: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Create(+)');
3657: END IF;
3658: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
3659: l_org_id := p_event.GetValueForParameter('ORG_ID');
3660: l_user_id := p_event.GetValueForParameter('USER_ID');
3832:
3833: END IF; -- end of l_cust-account_id <> -99
3834: IF pg_debug = 'Y'
3835: THEN
3836: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Create(-)');
3837: END IF;
3838: Return 'SUCCESS';
3839: EXCEPTION
3840: WHEN OTHERS THEN
3843: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
3844: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
3845: FND_MSG_PUB.ADD;
3846:
3847: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashReceipt_Create', p_event.getEventName(), p_subscription_guid);
3848: WF_EVENT.setErrorInfo(p_event, 'ERROR');
3849:
3850: RETURN 'ERROR';
3851: END CashReceipt_Create;
3938:
3939: BEGIN
3940: IF pg_debug = 'Y'
3941: THEN
3942: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Reverse(+)');
3943: END IF;
3944: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
3945: l_cash_receipt_id := p_event.GetValueForParameter('CASH_RECEIPT_ID');
3946: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
4053: END IF;
4054:
4055: IF pg_debug = 'Y'
4056: THEN
4057: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Reverse(-)');
4058: END IF;
4059: Return 'SUCCESS';
4060: EXCEPTION
4061: WHEN OTHERS THEN
4064: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
4065: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
4066: FND_MSG_PUB.ADD;
4067:
4068: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashReceipt_Reverse', p_event.getEventName(), p_subscription_guid);
4069: WF_EVENT.setErrorInfo(p_event, 'ERROR');
4070:
4071: RETURN 'ERROR';
4072: END CashReceipt_Reverse;
4123: l_history_exists_flag VARCHAR2(1);
4124: BEGIN
4125: IF pg_debug = 'Y'
4126: THEN
4127: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Modify(+)');
4128: END IF;
4129: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
4130: l_history_id := p_event.GetValueForParameter('HISTORY_ID');
4131: l_cash_receipt_id := p_event.GetValueForParameter('CASH_RECEIPT_ID');
4692:
4693: END IF;
4694: IF pg_debug = 'Y'
4695: THEN
4696: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Modify(-)');
4697: END IF;
4698:
4699: Return 'SUCCESS';
4700: EXCEPTION
4704: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
4705: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
4706: FND_MSG_PUB.ADD;
4707:
4708: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashReceipt_Modify', p_event.getEventName(), p_subscription_guid);
4709: WF_EVENT.setErrorInfo(p_event, 'ERROR');
4710:
4711: RETURN 'ERROR';
4712:
4721: BEGIN
4722:
4723: IF pg_debug = 'Y'
4724: THEN
4725: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Approve(+)');
4726: END IF;
4727: Return 'SUCCESS';
4728: IF pg_debug = 'Y'
4729: THEN
4726: END IF;
4727: Return 'SUCCESS';
4728: IF pg_debug = 'Y'
4729: THEN
4730: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Approve(-)');
4731: END IF;
4732: END CashReceipt_Approve;
4733:
4734: FUNCTION CashReceipt_Confirm
4740: BEGIN
4741:
4742: IF pg_debug = 'Y'
4743: THEN
4744: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Confirm(+)');
4745: END IF;
4746: Return 'SUCCESS';
4747: IF pg_debug = 'Y'
4748: THEN
4745: END IF;
4746: Return 'SUCCESS';
4747: IF pg_debug = 'Y'
4748: THEN
4749: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Confirm(-)');
4750: END IF;
4751: END CashReceipt_Confirm;
4752:
4753: FUNCTION CashReceipt_Unconfirm
4759: BEGIN
4760:
4761: IF pg_debug = 'Y'
4762: THEN
4763: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Unconfirm(+)');
4764: END IF;
4765: Return 'SUCCESS';
4766: IF pg_debug = 'Y'
4767: THEN
4764: END IF;
4765: Return 'SUCCESS';
4766: IF pg_debug = 'Y'
4767: THEN
4768: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Unconfirm(-)');
4769: END IF;
4770: END CashReceipt_Unconfirm;
4771:
4772: FUNCTION CashReceipt_DMReversal
4778: BEGIN
4779:
4780: IF pg_debug = 'Y'
4781: THEN
4782: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_DMReversal(+)');
4783: END IF;
4784: Return 'SUCCESS';
4785: IF pg_debug = 'Y'
4786: THEN
4783: END IF;
4784: Return 'SUCCESS';
4785: IF pg_debug = 'Y'
4786: THEN
4787: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_DMReversal(-)');
4788: END IF;
4789: END CashReceipt_DMReversal;
4790:
4791: /* Bug 4173339 */
4854: BEGIN
4855:
4856: IF pg_debug = 'Y'
4857: THEN
4858: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Delete(+)');
4859: END IF;
4860: l_payment_schedule_id := p_event.GetValueForParameter('PAYMENT_SCHEDULE_ID');
4861: l_cash_receipt_id := p_event.GetValueForParameter('CASH_RECEIPT_ID');
4862: l_receipt_number := p_event.GetValueForParameter('RECEIPT_NUMBER');
4958: END LOOP;
4959:
4960: IF pg_debug = 'Y'
4961: THEN
4962: debug ('AR_BUS_EVENT_SUB_PVT.CashReceipt_Delete(-)');
4963: END IF;
4964: RETURN 'SUCCESS';
4965: EXCEPTION
4966: WHEN OTHERS THEN
4969: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
4970: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
4971: FND_MSG_PUB.ADD;
4972:
4973: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashReceipt_Delete', p_event.getEventName(), p_subscription_guid);
4974: WF_EVENT.setErrorInfo(p_event, 'ERROR');
4975:
4976: RETURN 'ERROR';
4977: END CashReceipt_Delete;
5031: SAVEPOINT CM_Apply_Event;
5032:
5033: IF pg_debug = 'Y'
5034: THEN
5035: debug ('AR_BUS_EVENT_SUB_PVT.CreditMemoApp_Apply(+)');
5036: END IF;
5037: l_receivable_application_id :=
5038: p_event.GetValueForParameter('RECEIVABLE_APPLICATION_ID');
5039: l_trx_ps_status := p_event.GetValueForParameter('TRX_PS_STATUS');
5165: --
5166: CLOSE get_recapp_details;
5167: IF pg_debug = 'Y'
5168: THEN
5169: debug ('AR_BUS_EVENT_SUB_PVT.CreditMemoApp_Apply(-)');
5170: END IF;
5171: Return 'SUCCESS';
5172: EXCEPTION
5173: WHEN OTHERS THEN
5176: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
5177: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
5178: FND_MSG_PUB.ADD;
5179:
5180: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CREDITMEMOAPP_APPLY', p_event.getEventName(), p_subscription_guid);
5181: WF_EVENT.setErrorInfo(p_event, 'ERROR');
5182:
5183: RETURN 'ERROR';
5184:
5239:
5240: BEGIN
5241: IF pg_debug = 'Y'
5242: THEN
5243: debug ('AR_BUS_EVENT_SUB_PVT.CreditMemoApp_UnApply(+)');
5244: END IF;
5245: l_receivable_application_id :=
5246: p_event.GetValueForParameter('RECEIVABLE_APPLICATION_ID');
5247: l_trx_ps_status := p_event.GetValueForParameter('TRX_PS_STATUS');
5373: --
5374: CLOSE get_recapp_details;
5375: IF pg_debug = 'Y'
5376: THEN
5377: debug ('AR_BUS_EVENT_SUB_PVT.CreditMemoApp_UnApply(-)');
5378: END IF;
5379: Return 'SUCCESS';
5380: EXCEPTION
5381: WHEN OTHERS THEN
5384: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
5385: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
5386: FND_MSG_PUB.ADD;
5387:
5388: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CREDITMEMOAPP_UNAPPLY', p_event.getEventName(), p_subscription_guid);
5389: WF_EVENT.setErrorInfo(p_event, 'ERROR');
5390:
5391: RETURN 'ERROR';
5392:
5473: SAVEPOINT CashApp_Apply_pvt;
5474:
5475: IF pg_debug = 'Y'
5476: THEN
5477: debug ('AR_BUS_EVENT_SUB_PVT.CashApp_Apply(+)');
5478: END IF;
5479: l_receivable_application_id :=
5480: p_event.GetValueForParameter('RECEIVABLE_APPLICATION_ID');
5481: l_trx_ps_status := p_event.GetValueForParameter('TRX_PS_STATUS');
5655: CLOSE get_recapp_details;
5656:
5657: IF pg_debug = 'Y'
5658: THEN
5659: debug ('AR_BUS_EVENT_SUB_PVT.CashApp_Apply(-)');
5660: END IF;
5661: Return 'SUCCESS';
5662: EXCEPTION
5663: WHEN OTHERS THEN
5666: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
5667: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
5668: FND_MSG_PUB.ADD;
5669:
5670: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashApp_Apply', p_event.getEventName(), p_subscription_guid);
5671: WF_EVENT.setErrorInfo(p_event, 'ERROR');
5672:
5673: RETURN 'ERROR';
5674:
5767: BEGIN
5768: SAVEPOINT CashApp_UnApply_pvt;
5769: IF pg_debug = 'Y'
5770: THEN
5771: debug ('AR_BUS_EVENT_SUB_PVT.CashApp_UnApply(+)');
5772: END IF;
5773: l_receivable_application_id :=
5774: p_event.GetValueForParameter('RECEIVABLE_APPLICATION_ID');
5775: l_old_trx_ps_status := p_event.GetValueForParameter('OLD_TRX_PS_STATUS');
6041: CLOSE get_recapp_details;
6042:
6043: IF pg_debug = 'Y'
6044: THEN
6045: debug ('AR_BUS_EVENT_SUB_PVT.CashApp_UnApply(-)');
6046: END IF;
6047: Return 'SUCCESS';
6048: EXCEPTION
6049: WHEN OTHERS THEN
6052: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6053: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6054: FND_MSG_PUB.ADD;
6055:
6056: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'CashApp_UnApply', p_event.getEventName(), p_subscription_guid);
6057: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6058:
6059: RETURN 'ERROR';
6060:
6070: BEGIN
6071:
6072: IF pg_debug = 'Y'
6073: THEN
6074: debug ('AR_BUS_EVENT_SUB_PVT.Adjustment(+)');
6075: END IF;
6076: Return 'SUCCESS';
6077: IF pg_debug = 'Y'
6078: THEN
6075: END IF;
6076: Return 'SUCCESS';
6077: IF pg_debug = 'Y'
6078: THEN
6079: debug ('AR_BUS_EVENT_SUB_PVT.Adjustment(-)');
6080: END IF;
6081: END Adjustment;
6082:
6083: FUNCTION AutoInv_Run
6181: BEGIN
6182:
6183: IF pg_debug = 'Y'
6184: THEN
6185: debug ('AR_BUS_EVENT_SUB_PVT.AutoInv_Run(+)');
6186: END IF;
6187: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6188: l_org_id := p_event.GetValueForParameter('ORG_ID');
6189: l_user_id := p_event.GetValueForParameter('USER_ID');
6209:
6210: Update_summary_for_request_id(l_request_id);
6211: IF pg_debug = 'Y'
6212: THEN
6213: debug ('AR_BUS_EVENT_SUB_PVT.AutoInv_Run(-)');
6214: END IF;
6215:
6216: Return 'SUCCESS';
6217: EXCEPTION
6221: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6222: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6223: FND_MSG_PUB.ADD;
6224:
6225: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'AUTOINV_RUN', p_event.getEventName(), p_subscription_guid);
6226: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6227:
6228: RETURN 'ERROR';
6229:
6245: BEGIN
6246:
6247: IF pg_debug = 'Y'
6248: THEN
6249: debug ('AR_BUS_EVENT_SUB_PVT.AutoRcpt_Run(+)');
6250: END IF;
6251: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6252: l_org_id := p_event.GetValueForParameter('ORG_ID');
6253: l_user_id := p_event.GetValueForParameter('USER_ID');
6273:
6274: Update_rcpt_app_info_for_req(l_request_id, l_org_id);
6275: IF pg_debug = 'Y'
6276: THEN
6277: debug ('AR_BUS_EVENT_SUB_PVT.AutoRcpt_Run(-)');
6278: END IF;
6279: Return 'SUCCESS';
6280: EXCEPTION
6281: WHEN OTHERS THEN
6284: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6285: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6286: FND_MSG_PUB.ADD;
6287:
6288: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'AUTORCPT_RUN', p_event.getEventName(), p_subscription_guid);
6289: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6290:
6291: RETURN 'ERROR';
6292: END AutoRcpt_Run;
6336:
6337: BEGIN
6338: IF pg_debug = 'Y'
6339: THEN
6340: debug ('AR_BUS_EVENT_SUB_PVT.AutoAdj_Run(+)');
6341: END IF;
6342: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6343: l_org_id := p_event.GetValueForParameter('ORG_ID');
6344: l_user_id := p_event.GetValueForParameter('USER_ID');
6411: CLOSE get_adj;
6412:
6413: IF pg_debug = 'Y'
6414: THEN
6415: debug ('AR_BUS_EVENT_SUB_PVT.AutoAdj_Run(-)');
6416: END IF;
6417: Return 'SUCCESS';
6418: EXCEPTION
6419: WHEN OTHERS THEN
6422: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6423: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6424: FND_MSG_PUB.ADD;
6425:
6426: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'AUTO_ADJ_RUN', p_event.getEventName(), p_subscription_guid);
6427: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6428:
6429: RETURN 'ERROR';
6430:
6446: BEGIN
6447:
6448: IF pg_debug = 'Y'
6449: THEN
6450: debug ('AR_BUS_EVENT_SUB_PVT.QuickCash_PostBatch(+)');
6451: END IF;
6452: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6453: l_org_id := p_event.GetValueForParameter('ORG_ID');
6454: l_user_id := p_event.GetValueForParameter('USER_ID');
6474:
6475: Update_rcpt_app_info_for_req(l_request_id, l_org_id);
6476: IF pg_debug = 'Y'
6477: THEN
6478: debug ('AR_BUS_EVENT_SUB_PVT.QuickCash_PostBatch(-)');
6479: END IF;
6480:
6481: Return 'SUCCESS';
6482:
6487: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6488: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6489: FND_MSG_PUB.ADD;
6490:
6491: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'QuickCash_PostBatch', p_event.getEventName(), p_subscription_guid);
6492: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6493:
6494: RETURN 'ERROR';
6495:
6505: BEGIN
6506:
6507: IF pg_debug = 'Y'
6508: THEN
6509: debug ('AR_BUS_EVENT_SUB_PVT.Aging_PastDue(+)');
6510: END IF;
6511: Return 'SUCCESS';
6512: IF pg_debug = 'Y'
6513: THEN
6510: END IF;
6511: Return 'SUCCESS';
6512: IF pg_debug = 'Y'
6513: THEN
6514: debug ('AR_BUS_EVENT_SUB_PVT.Aging_PastDue(-)');
6515: END IF;
6516: END Aging_PastDue;
6517:
6518: FUNCTION AdjCreate
6554: l_past_due_inv_value NUMBER;
6555: BEGIN
6556: IF pg_debug = 'Y'
6557: THEN
6558: debug ('AR_BUS_EVENT_SUB_PVT.AdjCreate(+)');
6559: END IF;
6560: l_adjustment_id := p_event.GetValueForParameter('ADJUSTMENT_ID');
6561: l_adj_status := p_event.GetValueForParameter('ADJ_STATUS');
6562: l_app_ps_status := p_event.GetValueForParameter('APPLIED_PS_STATUS');
6663: l_past_due_inv_value);
6664:
6665: IF pg_debug = 'Y'
6666: THEN
6667: debug ('AR_BUS_EVENT_SUB_PVT.AdjCreate(-)');
6668: END IF;
6669: Return 'SUCCESS';
6670: EXCEPTION
6671: WHEN OTHERS THEN
6674: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6675: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6676: FND_MSG_PUB.ADD;
6677:
6678: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'ADJ_CREATE', p_event.getEventName(), p_subscription_guid);
6679: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6680:
6681: RETURN 'ERROR';
6682:
6722:
6723: BEGIN
6724: IF pg_debug = 'Y'
6725: THEN
6726: debug ('AR_BUS_EVENT_SUB_PVT.AdjApprove(+)');
6727: END IF;
6728: l_adjustment_id := p_event.GetValueForParameter('ADJUSTMENT_ID');
6729: l_adj_status := p_event.GetValueForParameter('APPROVAL_ACTN_HIST_ID');
6730: l_app_ps_status := p_event.GetValueForParameter('APPLIED_PS_STATUS');
6807: l_past_due_inv_value);
6808:
6809: IF pg_debug = 'Y'
6810: THEN
6811: debug ('AR_BUS_EVENT_SUB_PVT.AdjApprove(-)');
6812: END IF;
6813: Return 'SUCCESS';
6814: EXCEPTION
6815: WHEN OTHERS THEN
6818: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6819: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6820: FND_MSG_PUB.ADD;
6821:
6822: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'ADJ_APPROVE', p_event.getEventName(), p_subscription_guid);
6823: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6824:
6825: RETURN 'ERROR';
6826:
6836: BEGIN
6837:
6838: IF pg_debug = 'Y'
6839: THEN
6840: debug ('AR_BUS_EVENT_SUB_PVT.Recurr_Invoice(+)');
6841: END IF;
6842: Return 'SUCCESS';
6843:
6844: IF pg_debug = 'Y'
6842: Return 'SUCCESS';
6843:
6844: IF pg_debug = 'Y'
6845: THEN
6846: debug ('AR_BUS_EVENT_SUB_PVT.Recurr_Invoice(-)');
6847: END IF;
6848: END Recurr_Invoice;
6849:
6850: FUNCTION CopyInv_Run
6862: l_security_gr_id NUMBER;
6863: BEGIN
6864: IF pg_debug = 'Y'
6865: THEN
6866: debug ('AR_BUS_EVENT_SUB_PVT.CopyInv_Run(+)');
6867: END IF;
6868: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
6869: l_org_id := p_event.GetValueForParameter('ORG_ID');
6870: l_user_id := p_event.GetValueForParameter('USER_ID');
6891: Update_summary_for_request_id(l_request_id);
6892:
6893: IF pg_debug = 'Y'
6894: THEN
6895: debug ('AR_BUS_EVENT_SUB_PVT.CopyInv_Run(-)');
6896: END IF;
6897: Return 'SUCCESS';
6898: EXCEPTION
6899: WHEN OTHERS THEN
6902: FND_MESSAGE.SET_NAME( 'AR', 'GENERIC_MESSAGE' );
6903: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
6904: FND_MSG_PUB.ADD;
6905:
6906: WF_CORE.CONTEXT('AR_BUS_EVENT_SUB_PVT', 'COPYINV_RUN', p_event.getEventName(), p_subscription_guid);
6907: WF_EVENT.setErrorInfo(p_event, 'ERROR');
6908:
6909: RETURN 'ERROR';
6910:
6932: BEGIN
6933:
6934: IF pg_debug = 'Y'
6935: THEN
6936: debug ('AR_BUS_EVENT_SUB_PVT.raise_revenue_event(+)');
6937: END IF;
6938: -- This function simply raises revenue related business events.
6939:
6940:
6966:
6967:
6968: IF pg_debug = 'Y'
6969: THEN
6970: debug ('AR_BUS_EVENT_SUB_PVT.raise_revenue_event(-)');
6971: END IF;
6972: RETURN l_item_key;
6973:
6974: EXCEPTION
7041: BEGIN
7042:
7043: IF pg_debug = 'Y'
7044: THEN
7045: debug ('AR_BUS_EVENT_SUB_PVT.events_manager(+)');
7046: END IF;
7047: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
7048:
7049: IF pg_debug = 'Y'
7096: CLOSE Lines;
7097:
7098: IF pg_debug = 'Y'
7099: THEN
7100: debug ('AR_BUS_EVENT_SUB_PVT.events_manager(-)');
7101: END IF;
7102:
7103: RETURN 'SUCCESS';
7104:
7127: ar_trx_bal_summary for partial receipts, multiple applications to one
7128: trx from different receipts, and receipts with apply_dates that
7129: occurr before the trx.due_date. */
7130: PROCEDURE refresh_counts(
7131: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7132: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7133: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7134: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type ) IS
7135:
7128: trx from different receipts, and receipts with apply_dates that
7129: occurr before the trx.due_date. */
7130: PROCEDURE refresh_counts(
7131: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7132: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7133: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7134: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type ) IS
7135:
7136: l_rows NUMBER;
7129: occurr before the trx.due_date. */
7130: PROCEDURE refresh_counts(
7131: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7132: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7133: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7134: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type ) IS
7135:
7136: l_rows NUMBER;
7137:
7130: PROCEDURE refresh_counts(
7131: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7132: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7133: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7134: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type ) IS
7135:
7136: l_rows NUMBER;
7137:
7138: BEGIN
7137:
7138: BEGIN
7139: IF pg_debug = 'Y'
7140: THEN
7141: debug ('ar_bus_event_sub_pvt.refresh_counts()+');
7142: END IF;
7143:
7144: FORALL i IN p_customer_id_tab.FIRST .. p_customer_id_tab.LAST
7145: update ar_trx_bal_summary main_sum
7211: p_org_id_tab);
7212:
7213: IF pg_debug = 'Y'
7214: THEN
7215: debug ('ar_bus_event_sub_pvt.refresh_counts()-');
7216: END IF;
7217: END refresh_counts;
7218:
7219: /* 5690748 - procedure for setting the receipt_at_risk_value column
7219: /* 5690748 - procedure for setting the receipt_at_risk_value column
7220: after mass updates (receipt applications)
7221: */
7222: PROCEDURE refresh_at_risk_value(
7223: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7224: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7225: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7226: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7227: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE default null ) IS
7220: after mass updates (receipt applications)
7221: */
7222: PROCEDURE refresh_at_risk_value(
7223: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7224: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7225: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7226: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7227: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE default null ) IS
7228:
7221: */
7222: PROCEDURE refresh_at_risk_value(
7223: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7224: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7225: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7226: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7227: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE default null ) IS
7228:
7229: l_rows NUMBER;
7222: PROCEDURE refresh_at_risk_value(
7223: p_customer_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7224: p_site_use_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7225: p_currency_tab IN ar_bus_event_sub_pvt.currency_type,
7226: p_org_id_tab IN ar_bus_event_sub_pvt.generic_id_type,
7227: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE default null ) IS
7228:
7229: l_rows NUMBER;
7230:
7230:
7231: BEGIN
7232: IF pg_debug = 'Y'
7233: THEN
7234: debug ('ar_bus_event_sub_pvt.refresh_at_risk_value()+');
7235: END IF;
7236: /*bug 13858491 */
7237: If (p_cash_receipt_id is null) then
7238:
7275: else
7276:
7277: IF pg_debug = 'Y'
7278: THEN
7279: debug ('ar_bus_event_sub_pvt.refresh_at_risk_value() Call from CE_AUTO_BANK_REC');
7280: END IF;
7281:
7282: UPDATE ar_trx_bal_summary main_sum
7283: SET receipts_at_risk_value = receipts_at_risk_value -
7319: /*bug 13858491 Ends*/
7320: IF pg_debug = 'Y'
7321: THEN
7322: debug (' updated row(s) = ' || l_rows);
7323: debug ('ar_bus_event_sub_pvt.refresh_at_risk_value()-');
7324: END IF;
7325: END refresh_at_risk_value;
7326:
7327: END AR_BUS_EVENT_SUB_PVT; -- Package spec
7323: debug ('ar_bus_event_sub_pvt.refresh_at_risk_value()-');
7324: END IF;
7325: END refresh_at_risk_value;
7326:
7327: END AR_BUS_EVENT_SUB_PVT; -- Package spec