1: package body jg_zz_vat_alloc_rules_pkg as
2: /* $Header: jgzzvarb.pls 120.4 2006/09/15 17:37:18 rjreddy ship $*/
3: /* CHANGE HISTORY ------------------------------------------------------------------------------------------
4: DATE AUTHOR VERSION BUG NO. DESCRIPTION
5: (DD/MM/YYYY) (UID)
15: 15/09/2006 RJREDDY 120.4 5532038 Removed the taxable_box_recoverable and taxable_rec_sign_flag
16: field from all the procedures
17: -----------------------------------------------------------------------------------------------------------*/
18: procedure insert_row
19: ( x_record jg_zz_vat_alloc_rules%rowtype
20: , x_allocation_rule_id out nocopy jg_zz_vat_alloc_rules.allocation_rule_id%type
21: , x_row_id out nocopy rowid
22: )
23: is
16: field from all the procedures
17: -----------------------------------------------------------------------------------------------------------*/
18: procedure insert_row
19: ( x_record jg_zz_vat_alloc_rules%rowtype
20: , x_allocation_rule_id out nocopy jg_zz_vat_alloc_rules.allocation_rule_id%type
21: , x_row_id out nocopy rowid
22: )
23: is
24:
23: is
24:
25: cursor c_gen_alloc_rule_id
26: is
27: select jg_zz_vat_alloc_rules_s.nextval
28: from dual;
29:
30: begin
31:
38: /* Use the allocation_rule_id given in the procedure arguments */
39: x_allocation_rule_id := x_record.allocation_rule_id;
40: end if;
41:
42: insert into jg_zz_vat_alloc_rules
43: ( allocation_rule_id
44: , vat_reporting_entity_id
45: , source
46: , financial_document_type
108: /*------------------------------------------------------------------------------------------------------------*/
109:
110: procedure lock_row
111: ( x_row_id rowid
112: , x_record jg_zz_vat_alloc_rules%rowtype
113: )
114: is
115:
116: cursor c_locked_row is
114: is
115:
116: cursor c_locked_row is
117: select jzvar.*
118: from jg_zz_vat_alloc_rules jzvar
119: where rowid = x_row_id
120: for update nowait;
121:
122: lr_locked_row jg_zz_vat_alloc_rules%rowtype;
118: from jg_zz_vat_alloc_rules jzvar
119: where rowid = x_row_id
120: for update nowait;
121:
122: lr_locked_row jg_zz_vat_alloc_rules%rowtype;
123:
124: begin
125:
126: open c_locked_row;
164: end lock_row;
165:
166: /*------------------------------------------------------------------------------------------------------------*/
167:
168: procedure update_row( x_record jg_zz_vat_alloc_rules%rowtype
169: )
170: is
171: le_no_rows_updated exception;
172: lx_row_id rowid;
172: lx_row_id rowid;
173:
174: begin
175:
176: update jg_zz_vat_alloc_rules
177: set vat_reporting_entity_id = x_record.vat_reporting_entity_id
178: , source = x_record.source
179: , financial_document_type = x_record.financial_document_type
180: , vat_transaction_type = x_record.vat_transaction_type
204: end update_row;
205:
206: /*------------------------------------------------------------------------------------------------------------*/
207:
208: procedure delete_row( x_allocation_rule_id jg_zz_vat_alloc_rules.allocation_rule_id%type)
209: is
210: le_no_rows_deleted exception;
211: begin
212:
209: is
210: le_no_rows_deleted exception;
211: begin
212:
213: delete from jg_zz_vat_alloc_rules
214: where allocation_rule_id = x_allocation_rule_id ;
215:
216: end delete_row;
217:
214: where allocation_rule_id = x_allocation_rule_id ;
215:
216: end delete_row;
217:
218: end jg_zz_vat_alloc_rules_pkg;