PACKAGE BODY: APPS.AR_TRX_BULK_PROCESS_SALESCR

Source

1 PACKAGE BODY AR_TRX_BULK_PROCESS_SALESCR AS
2 /* $Header: ARINBLSB.pls 120.4 2011/08/25 01:43:13 kknekkal ship $ */
3 
4 pg_debug                VARCHAR2(1) := nvl(fnd_profile.value('AFLOG_ENABLED'),'N');
5 
6 PROCEDURE INSERT_ROW (
7         p_trx_salescredit_id         IN      NUMBER,
8         x_errmsg                    OUT NOCOPY  VARCHAR2,
9         x_return_status             OUT NOCOPY  VARCHAR2 ) IS
10 BEGIN
11     IF pg_debug = 'Y'
12     THEN
13         ar_invoice_utils.debug ('AR_TRX_BULK_PROCESS_SALESCR.INSERT_ROW (+)');
14     END IF;
15 
16     x_return_status := FND_API.G_RET_STS_SUCCESS;
17     INSERT INTO RA_CUST_TRX_LINE_SALESREPS (
18             CUST_TRX_LINE_SALESREP_ID,
19             LAST_UPDATE_DATE,
20             LAST_UPDATED_BY,
21             CREATION_DATE,
22             CREATED_BY,
23             LAST_UPDATE_LOGIN,
24             SALESREP_ID,
25             CUSTOMER_TRX_ID,
26             CUSTOMER_TRX_LINE_ID,
27             REVENUE_AMOUNT_SPLIT,
28             REVENUE_PERCENT_SPLIT,
29             NON_REVENUE_AMOUNT_SPLIT,
30             NON_REVENUE_PERCENT_SPLIT,
31             request_id,
32             ATTRIBUTE_CATEGORY,
33             ATTRIBUTE1,
34             ATTRIBUTE2,
35             ATTRIBUTE3,
36             ATTRIBUTE4,
37             ATTRIBUTE5,
38             ATTRIBUTE6,
39             ATTRIBUTE7,
40             ATTRIBUTE8,
41             ATTRIBUTE9,
42             ATTRIBUTE10,
43             ATTRIBUTE11,
44             ATTRIBUTE12,
45             ATTRIBUTE13,
46             ATTRIBUTE14,
47             ATTRIBUTE15,org_id)
48             SELECT
49             RA_CUST_TRX_LINE_SALESREPS_S.NEXTVAL,
50             LAST_UPDATE_DATE,
51             LAST_UPDATED_BY,
52             CREATION_DATE,
53             CREATED_BY,
54             LAST_UPDATE_LOGIN,
55             SALESREP_ID,
56             CUSTOMER_TRX_ID,
57             CUSTOMER_TRX_LINE_ID,
58             REVENUE_AMOUNT_SPLIT,
59             REVENUE_PERCENT_SPLIT,
60             NON_REVENUE_AMOUNT_SPLIT,
61             NON_REVENUE_PERCENT_SPLIT,
62             request_id,
63             ATTRIBUTE_CATEGORY,
64             ATTRIBUTE1,
65             ATTRIBUTE2,
66             ATTRIBUTE3,
67             ATTRIBUTE4,
68             ATTRIBUTE5,
69             ATTRIBUTE6,
70             ATTRIBUTE7,
71             ATTRIBUTE8,
72             ATTRIBUTE9,
73             ATTRIBUTE10,
74             ATTRIBUTE11,
75             ATTRIBUTE12,
76             ATTRIBUTE13,
77             ATTRIBUTE14,
78             ATTRIBUTE15,arp_standard.sysparm.org_id
79             FROM ar_trx_salescredits_gt
80             WHERE trx_header_id NOT IN (
81                                 SELECT trx_header_id
82                                 from   ar_trx_errors_gt )
83            AND customer_trx_id = AR_INVOICE_API_PUB.g_customer_trx_id;
84 
85             -- run_auto_accounting;
86 
87             -- need to code the similar to distributiosn. valdate_rev
88         IF pg_debug = 'Y'
89         THEN
90             ar_invoice_utils.debug ('AR_TRX_BULK_PROCESS_SALESCR.INSERT_ROW (-)');
91         END IF;
92         EXCEPTION
93             WHEN OTHERS THEN
94                 x_errmsg := 'Error in AR_TRX_BULK_PROCESS_SALESCR.INSERT_ROW'||sqlerrm;
95                 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96                 return;
97 
98 END INSERT_ROW;
99 
100 END AR_TRX_BULK_PROCESS_SALESCR;