[Home] [Help]
PACKAGE BODY: APPS.AR_TRX_GLOBAL_PROCESS_SALESCR
Source
1 PACKAGE BODY AR_TRX_GLOBAL_PROCESS_SALESCR AS
2 /* $Header: ARINGTSB.pls 120.3 2005/06/14 19:05:06 vcrisost noship $ */
3
4 pg_debug VARCHAR2(1) := nvl(fnd_profile.value('AFLOG_ENABLED'),'N');
5
6 PROCEDURE INSERT_ROW (
7 p_trx_salescredits_tbl IN AR_INVOICE_API_PUB.trx_salescredits_tbl_type,
8 x_errmsg OUT NOCOPY VARCHAR2,
9 x_return_status OUT NOCOPY VARCHAR2
10 ) IS
11
12 RecExist NUMBER;
13 BEGIN
14
15 IF pg_debug = 'Y'
16 THEN
17 ar_invoice_utils.debug ('AR_TRX_GLOBAL_PROCESS_SALESCR.INSERT_ROW (+)');
18 END IF;
19 x_return_status := FND_API.G_RET_STS_SUCCESS;
20
21 -- Now populate the lines global Temp. Table
22 -- Now populate the lines global Temp. Table
23 -- First check whether there are any records in the pl/sql table
24 RecExist := p_trx_salescredits_tbl.FIRST;
25 IF pg_debug = 'Y'
26 THEN
27 ar_invoice_utils.debug ('Record Count ' || RecExist);
28 END IF;
29 IF RecExist >= 1
30 THEN
31 FOR i IN p_trx_salescredits_tbl.FIRST .. p_trx_salescredits_tbl.LAST
32 LOOP
33 INSERT INTO ar_trx_salescredits_gt (
34 trx_salescredit_id,
35 trx_line_id,
36 LAST_UPDATE_DATE,
37 LAST_UPDATED_BY,
38 CREATION_DATE,
39 CREATED_BY,
40 LAST_UPDATE_LOGIN,
41 SALESREP_ID,
42 SALESREP_NUM,
43 SALES_CREDIT_TYPE_NAME,
44 SALES_CREDIT_TYPE_ID,
45 REVENUE_AMOUNT_SPLIT,
46 REVENUE_PERCENT_SPLIT,
47 NON_REVENUE_AMOUNT_SPLIT,
48 NON_REVENUE_PERCENT_SPLIT,
49 ATTRIBUTE_CATEGORY,
50 ATTRIBUTE1,
51 ATTRIBUTE2,
52 ATTRIBUTE3,
53 ATTRIBUTE4,
54 ATTRIBUTE5,
55 ATTRIBUTE6,
56 ATTRIBUTE7,
57 ATTRIBUTE8,
58 ATTRIBUTE9,
59 ATTRIBUTE10,
60 ATTRIBUTE11,
61 ATTRIBUTE12,
62 ATTRIBUTE13,
63 ATTRIBUTE14,
64 ATTRIBUTE15,
65 ORG_ID)
66 VALUES (
67 p_trx_salescredits_tbl(i).trx_salescredit_id,
68 p_trx_salescredits_tbl(i).trx_line_id,
69 sysdate, -- LAST_UPDATE_DATE,
70 fnd_global.user_id, -- last_updated_by
71 sysdate, --CREATION_DATE,
72 fnd_global.user_id,-- CREATED_BY,
73 fnd_global.login_id, --LAST_UPDATE_LOGIN,
74 p_trx_salescredits_tbl(i).SALESREP_ID,
75 p_trx_salescredits_tbl(i).SALESREP_NUMBER,
76 p_trx_salescredits_tbl(i).SALES_CREDIT_TYPE_NAME,
77 p_trx_salescredits_tbl(i).SALES_CREDIT_TYPE_ID,
78 -- revenue
79 DECODE(p_trx_salescredits_tbl(i).sales_credit_type_id, 1,
80 p_trx_salescredits_tbl(i).salescredit_amount_split, NULL),
81 DECODE(p_trx_salescredits_tbl(i).sales_credit_type_id, 1,
82 p_trx_salescredits_tbl(i).salescredit_percent_split, NULL),
83 -- non revenue
84 DECODE(p_trx_salescredits_tbl(i).sales_credit_type_id, 2,
85 p_trx_salescredits_tbl(i).salescredit_amount_split, NULL),
86 DECODE(p_trx_salescredits_tbl(i).sales_credit_type_id, 2,
87 p_trx_salescredits_tbl(i).salescredit_percent_split, NULL),
88 p_trx_salescredits_tbl(i).ATTRIBUTE_CATEGORY,
89 p_trx_salescredits_tbl(i).ATTRIBUTE1,
90 p_trx_salescredits_tbl(i).ATTRIBUTE2,
91 p_trx_salescredits_tbl(i).ATTRIBUTE3,
92 p_trx_salescredits_tbl(i).ATTRIBUTE4,
93 p_trx_salescredits_tbl(i).ATTRIBUTE5,
94 p_trx_salescredits_tbl(i).ATTRIBUTE6,
95 p_trx_salescredits_tbl(i).ATTRIBUTE7,
96 p_trx_salescredits_tbl(i).ATTRIBUTE8,
97 p_trx_salescredits_tbl(i).ATTRIBUTE9,
98 p_trx_salescredits_tbl(i).ATTRIBUTE10,
99 p_trx_salescredits_tbl(i).ATTRIBUTE11,
100 p_trx_salescredits_tbl(i).ATTRIBUTE12,
101 p_trx_salescredits_tbl(i).ATTRIBUTE13,
102 p_trx_salescredits_tbl(i).ATTRIBUTE14,
103 p_trx_salescredits_tbl(i).ATTRIBUTE15,
104 arp_standard.sysparm.org_id);
105
106
107 END LOOP;
108 END IF;
109 IF pg_debug = 'Y'
110 THEN
111 ar_invoice_utils.debug ('AR_TRX_GLOBAL_PROCESS_SALESCR.INSERT_ROW (-)');
112 END IF;
113 EXCEPTION
114 WHEN OTHERS THEN
115 x_errmsg := 'Error in AR_TRX_GLOBAL_PROCESS_SALESCR.INSERT_ROW '||sqlerrm;
116 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
117 return;
118 END INSERT_ROW;
119
120 END AR_TRX_GLOBAL_PROCESS_SALESCR;