PACKAGE BODY: APPS.AR_TRX_GLOBAL_PROCESS_CONT

Source

1 PACKAGE BODY ar_trx_global_process_cont AS
2 /* $Header: ARINGTCB.pls 120.3 2005/06/16 20:41:25 vcrisost noship $ */
3 
4 
5   pg_debug VARCHAR2(1) := nvl(fnd_profile.value('AFLOG_ENABLED'),'N');
6 
7 
8 PROCEDURE insert_row (
9   p_trx_contingencies_tbl ar_invoice_api_pub.trx_contingencies_tbl_type,
10   x_errmsg        OUT NOCOPY  VARCHAR2,
11   x_return_status OUT NOCOPY  VARCHAR2) IS
12 
13 BEGIN
14 
15   IF pg_debug = 'Y'  THEN
16     ar_invoice_utils.debug ('ar_trx_global_process_cont.insert_row (+)');
17   END IF;
18 
19   x_return_status := FND_API.G_RET_STS_SUCCESS;
20 
21   IF p_trx_contingencies_tbl.COUNT > 0 THEN
22 
23     FOR i IN  p_trx_contingencies_tbl.FIRST ..
24               p_trx_contingencies_tbl.LAST LOOP
25       INSERT INTO ar_trx_contingencies_gt
26       (
27         trx_contingency_id,
28         trx_line_id,
29         contingency_id,
30         expiration_date,
31         expiration_days,
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,
48         creation_date,
49         created_by,
50         last_update_date,
51         last_updated_by,
52         last_update_login,
53         completed_by,
54         completed_flag,
55         expiration_event_date,
56         org_id
57 )
58       VALUES
59       (
60         p_trx_contingencies_tbl(i).trx_contingency_id,
61         p_trx_contingencies_tbl(i).trx_line_id,
62         p_trx_contingencies_tbl(i).contingency_id,
63         p_trx_contingencies_tbl(i).expiration_date,
64         p_trx_contingencies_tbl(i).expiration_days,
65         p_trx_contingencies_tbl(i).attribute_category,
66         p_trx_contingencies_tbl(i).attribute1,
67         p_trx_contingencies_tbl(i).attribute2,
68         p_trx_contingencies_tbl(i).attribute3,
69         p_trx_contingencies_tbl(i).attribute4,
70         p_trx_contingencies_tbl(i).attribute5,
71         p_trx_contingencies_tbl(i).attribute6,
72         p_trx_contingencies_tbl(i).attribute7,
73         p_trx_contingencies_tbl(i).attribute8,
74         p_trx_contingencies_tbl(i).attribute9,
75         p_trx_contingencies_tbl(i).attribute10,
76         p_trx_contingencies_tbl(i).attribute11,
77         p_trx_contingencies_tbl(i).attribute12,
78         p_trx_contingencies_tbl(i).attribute13,
79         p_trx_contingencies_tbl(i).attribute14,
80         p_trx_contingencies_tbl(i).attribute15,
81         sysdate,
82         fnd_global.user_id,
83         sysdate,
84         fnd_global.user_id,
85         fnd_global.login_id,
86         p_trx_contingencies_tbl(i).completed_by,
87         p_trx_contingencies_tbl(i).completed_flag,
88         p_trx_contingencies_tbl(i).expiration_event_date,
89         arp_standard.sysparm.org_id
90       );
91 
92     END LOOP;
93 
94   END IF;
95 
96   IF pg_debug = 'Y' THEN
97     ar_invoice_utils.debug ('ar_trx_global_process_cont.insert_row (-)');
98   END IF;
99 
100   EXCEPTION
101     WHEN OTHERS THEN
102       x_errmsg := 'Error:  ar_trx_global_process_cont.insert_row ' ||sqlerrm;
103       x_return_status := fnd_api.g_ret_sts_unexp_error;
104       RETURN;
105 
106 END insert_row;
107 
108 END ar_trx_global_process_cont;