[Home] [Help]
PACKAGE BODY: APPS.AR_TRX_GLOBAL_PROCESS_DIST
Source
1 PACKAGE BODY AR_TRX_GLOBAL_PROCESS_DIST AS
2 /* $Header: ARINGTDB.pls 120.3 2005/06/14 19:04:14 vcrisost noship $ */
3
4 pg_debug VARCHAR2(1) := nvl(fnd_profile.value('AFLOG_ENABLED'),'N');
5
6 PROCEDURE INSERT_ROW (
7 p_trx_dist_tbl IN AR_INVOICE_API_PUB.trx_dist_tbl_type,
8 x_errmsg OUT NOCOPY VARCHAR2,
9 x_return_status OUT NOCOPY VARCHAR2
10 ) IS
11
12 RecExist NUMBER;
13 BEGIN
14 IF pg_debug = 'Y'
15 THEN
16 ar_invoice_utils.debug ('AR_TRX_GLOBAL_PROCESS_DIST.INSERT_ROW (+)');
17 END IF;
18
19 x_return_status := FND_API.G_RET_STS_SUCCESS;
20
21 -- Now populate the lines global Temp. Table
22 -- First check whether there are any records in the pl/sql table
23
24 RecExist := p_trx_dist_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_dist_tbl.FIRST .. p_trx_dist_tbl.LAST
32 LOOP
33 INSERT INTO ar_trx_dist_gt (
34 trx_dist_ID ,
35 trx_header_id ,
36 trx_LINE_ID ,
37 ACCOUNT_CLASS ,
38 AMOUNT ,
39 acctd_amount ,
40 PERCENT ,
41 CODE_COMBINATION_ID ,
42 CREATED_BY ,
43 CREATION_DATE ,
44 LAST_UPDATED_BY ,
45 LAST_UPDATE_DATE ,
46 LAST_UPDATE_LOGIN ,
47 CUST_TRX_LINE_SALESREP_ID ,
48 process_flag ,
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 COMMENTS ,
66 ORG_ID)
67 VALUES
68 ( p_trx_dist_tbl(i).trx_dist_ID,
69 p_trx_dist_tbl(i).trx_header_ID,
70 p_trx_dist_tbl(i).trx_LINE_ID,
71 p_trx_dist_tbl(i).ACCOUNT_CLASS,
72 p_trx_dist_tbl(i).AMOUNT ,
73 p_trx_dist_tbl(i).acctd_amount ,
74 p_trx_dist_tbl(i).PERCENT ,
75 p_trx_dist_tbl(i).CODE_COMBINATION_ID ,
76 fnd_global.user_id,
77 sysdate,
78 fnd_global.user_id,
79 sysdate,
80 fnd_global.login_id,
81 null, -- p_trx_dist_tbl(i).CUST_TRX_LINE_SALESREP_ID ,
82 'N', -- process_flag
83 p_trx_dist_tbl(i).ATTRIBUTE_CATEGORY ,
84 p_trx_dist_tbl(i).ATTRIBUTE1 ,
85 p_trx_dist_tbl(i).ATTRIBUTE2 ,
86 p_trx_dist_tbl(i).ATTRIBUTE3 ,
87 p_trx_dist_tbl(i).ATTRIBUTE4 ,
88 p_trx_dist_tbl(i).ATTRIBUTE5 ,
89 p_trx_dist_tbl(i).ATTRIBUTE6 ,
90 p_trx_dist_tbl(i).ATTRIBUTE7 ,
91 p_trx_dist_tbl(i).ATTRIBUTE8 ,
92 p_trx_dist_tbl(i).ATTRIBUTE9 ,
93 p_trx_dist_tbl(i).ATTRIBUTE10 ,
94 p_trx_dist_tbl(i).ATTRIBUTE11 ,
95 p_trx_dist_tbl(i).ATTRIBUTE12 ,
96 p_trx_dist_tbl(i).ATTRIBUTE13 ,
97 p_trx_dist_tbl(i).ATTRIBUTE14 ,
98 p_trx_dist_tbl(i).ATTRIBUTE15 ,
99 p_trx_dist_tbl(i).COMMENTS ,
100 arp_standard.sysparm.org_id);
101 END LOOP;
102 END IF;
103 IF pg_debug = 'Y'
104 THEN
105 ar_invoice_utils.debug ('AR_TRX_GLOBAL_PROCESS_DIST.INSERT_ROW (-)');
106 END IF;
107 EXCEPTION
108 WHEN OTHERS THEN
109 x_errmsg := 'Error in AR_TRX_GLOBAL_PROCESS_DIST.INSERT_ROW '||sqlerrm;
110 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111 return;
112 END INSERT_ROW;
113
114 END AR_TRX_GLOBAL_PROCESS_DIST;