[Home] [Help]
PACKAGE BODY: APPS.JG_ZZ_VAT_BOX_ALLOCS_PKG
Source
1 PACKAGE BODY JG_ZZ_VAT_BOX_ALLOCS_PKG AS
2 /* $Header: jgzzvatboxallocb.pls 120.1 2006/07/26 14:09:37 brathod ship $*/
3 /*------------------------------------------------------------------------------------------------------------
4 CHANGE HISTORY
5 1. Vijay Shankar 20-Jan-2005 File Version 120.0
6 Created.
7
8 2. Bhavik Rathod 25-Jul-2005 Bug: 5408280, File Version 120.1
9 Modified to uptake impact due to SIGN_FLAG column changes
10 Refer bug for more details
11 ------------------------------------------------------------------------------------------------------------*/
12
13 /* API to insert a single row */
14 procedure INSERT_ROW(
15 XN_VAT_BOX_ALLOCATION_ID OUT nocopy jg_zz_vat_box_allocs.VAT_BOX_ALLOCATION_ID%TYPE,
16 PN_VAT_TRANSACTION_ID jg_zz_vat_box_allocs.VAT_TRANSACTION_ID%TYPE,
17 PV_PERIOD_TYPE jg_zz_vat_box_allocs.PERIOD_TYPE%TYPE,
18 PN_ALLOCATION_RULE_ID jg_zz_vat_box_allocs.ALLOCATION_RULE_ID%TYPE,
19 PV_TAX_BOX jg_zz_vat_box_allocs.TAX_BOX%TYPE,
20 Pv_TAXABLE_BOX jg_zz_vat_box_allocs.TAXABLE_BOX%TYPE,
21 PV_TAX_RECOVERABLE_FLAG jg_zz_vat_box_allocs.TAX_RECOVERABLE_FLAG%TYPE,
22 pn_request_id jg_zz_vat_box_allocs.request_id%TYPE,
23 pn_program_application_id jg_zz_vat_box_allocs.program_application_id%TYPE,
24 pn_program_id jg_zz_vat_box_allocs.program_id%TYPE,
25 pn_program_login_id jg_zz_vat_box_allocs.program_login_id%TYPE,
26 pn_created_by number,
27 pn_last_updated_by number,
28 pn_last_update_login number,
29 xv_return_status out nocopy varchar2,
30 xv_return_message out nocopy varchar2
31 ) is
32
33
34 begin
35 INSERT INTO jg_zz_vat_box_allocs(
36 vat_box_allocation_id ,
37 vat_transaction_id ,
38 allocation_rule_id ,
39 period_type ,
40 tax_box ,
41 taxable_box ,
42 tax_recoverable_flag ,
43 request_id ,
44 program_application_id ,
45 program_id ,
46 program_update_date ,
47 program_login_id ,
48 creation_date ,
49 created_by ,
50 last_update_date ,
51 last_updated_by ,
52 last_update_login
53 ) VALUES (
54 jg_zz_vat_box_allocs_s.nextval,
55 pn_vat_transaction_id ,
56 pn_allocation_rule_id ,
57 pv_period_type ,
58 pv_tax_box ,
59 pv_taxable_box ,
60 pv_tax_recoverable_flag ,
61 pn_request_id ,
62 pn_program_application_id ,
63 pn_program_id ,
64 sysdate ,
65 pn_program_login_id ,
66 sysdate ,
67 pn_created_by ,
68 sysdate ,
69 pn_last_updated_by ,
70 pn_last_update_login
71 ) returning vat_box_allocation_id into xn_vat_box_allocation_id;
72
73 exception
74 when others then
75 xv_return_status := fnd_api.g_ret_sts_unexp_error;
76 xv_return_message := 'jg_zz_vat_box_allocs_pkg.insert_row ~ Unexpected Error -' || sqlerrm;
77
78 end INSERT_ROW;
79
80 /* API to update a single row */
81 procedure UPDATE_ROW(
82 Pn_VAT_BOX_ALLOCATION_ID jg_zz_vat_box_allocs.VAT_BOX_ALLOCATION_ID%TYPE,
83 Pn_ALLOCATION_RULE_ID jg_zz_vat_box_allocs.ALLOCATION_RULE_ID%TYPE,
84 Pv_TAX_BOX jg_zz_vat_box_allocs.TAX_BOX%TYPE,
85 Pv_TAXABLE_BOX jg_zz_vat_box_allocs.TAXABLE_BOX%TYPE,
86 pn_request_id jg_zz_vat_box_allocs.request_id%TYPE,
87 pn_program_login_id jg_zz_vat_box_allocs.program_login_id%TYPE,
88 pn_last_updated_by number,
89 pn_last_update_login number,
90 xv_return_status out nocopy varchar2,
91 xv_return_message out nocopy varchar2
92 ) is
93
94 begin
95 UPDATE jg_zz_vat_box_allocs
96 SET allocation_rule_id = pn_allocation_rule_id,
97 tax_box = nvl(pv_tax_box, tax_box),
98 taxable_box = nvl(pv_taxable_box, taxable_box),
99 program_update_date = sysdate,
100 last_update_date = sysdate,
101 request_id = pn_request_id,
102 program_login_id = pn_program_login_id,
103 last_updated_by = pn_last_updated_by,
104 last_update_login = pn_last_update_login
105 WHERE vat_box_allocation_id = pn_vat_box_allocation_id;
106
107 exception
108 when others then
109 xv_return_status := fnd_api.g_ret_sts_unexp_error;
110 xv_return_message := 'jg_zz_vat_box_allocs_pkg.update_row ~ Unexpected Error -' || sqlerrm;
111
112 end UPDATE_ROW;
113
114 /* API to delete a single row */
115 procedure DELETE_ROW(
116 Pn_VAT_BOX_ALLOCATION_ID jg_zz_vat_box_allocs.VAT_BOX_ALLOCATION_ID%TYPE,
117 Pn_VAT_TRANSACTION_ID jg_zz_vat_box_allocs.VAT_TRANSACTION_ID%TYPE,
118 Pv_PERIOD_TYPE jg_zz_vat_box_allocs.PERIOD_TYPE%TYPE,
119 xv_return_status out nocopy varchar2,
120 xv_return_message out nocopy varchar2
121 ) is
122
123 begin
124 if pn_vat_Box_allocation_id is not null then
125 DELETE FROM jg_zz_vat_box_allocs
126 WHERE vat_box_allocation_id = pn_vat_box_allocation_id;
127 else
128 DELETE FROM jg_zz_vat_box_allocs
129 WHERE vat_transaction_id = pn_vat_transaction_id
130 AND period_type = pv_period_type;
131 end if;
132
133 exception
134 when others then
135 xv_return_status := fnd_api.g_ret_sts_unexp_error;
136 xv_return_message := 'jg_zz_vat_box_allocs_pkg.delete_row ~ Unexpected Error -' || sqlerrm;
137
138 end DELETE_ROW;
139
140 end JG_ZZ_VAT_BOX_ALLOCS_PKG;