[Home] [Help]
1: PACKAGE BODY JG_ZZ_VAT_ALLOC_PRC_PKG AS
2: /* $Header: jgzzvatallocprcb.pls 120.7.12010000.3 2008/08/04 13:58:42 vgadde ship $*/
3:
4: gv_debug_flag BOOLEAN; /* added for debug */
5:
38:
39: exception
40: when others then
41: xv_return_status := fnd_api.g_ret_sts_unexp_error;
42: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.purge_allocation_data ~ Unexpected Error -' || sqlerrm;
43: end purge_allocation_data;
44:
45: PROCEDURE insert_allocation_error (
46: pn_vat_transaction_id number,
89:
90: exception
91: when others then
92: xv_return_status := fnd_api.g_ret_sts_unexp_error;
93: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.insert_allocation_error ~ Unexpected Error -' || sqlerrm;
94: END insert_allocation_error;
95:
96: PROCEDURE update_allocation_error (
97: pn_vat_transaction_id number,
114:
115: exception
116: when others then
117: xv_return_status := fnd_api.g_ret_sts_unexp_error;
118: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.update_allocation_error ~ Unexpected Error -' || sqlerrm;
119: end update_allocation_error;
120:
121: PROCEDURE delete_allocation_error (
122: pn_vat_transaction_id number,
134:
135: exception
136: when others then
137: xv_return_status := fnd_api.g_ret_sts_unexp_error;
138: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.delete_allocation_error ~ Unexpected Error -' || sqlerrm;
139: end delete_allocation_error;
140:
141: /* Main procedure that performs the allocation */
142: PROCEDURE run_allocation (
249: /* fetches all transactions for which box is not allocated */
250: /* this cursor is only used for reference in REF CURSOR RETURN statement */
251: CURSOR c_trxs_for_allocation( cp_source varchar2, cp_period_name varchar2 ) IS
252: SELECT
253: jg_zz_vat_alloc_prc_pkg.g_fresh_allocation allocation_type,
254: /* 'FRESH ALLOCATION' allocation_type, */
255: dtl.extract_source_ledger,
256: dtl.tax,
257: dtl.tax_status_code,
305: + the cursor c_trxs_for_allocation which is defined above
306: */
307: OPEN l_trxs_csr FOR
308: SELECT
309: jg_zz_vat_alloc_prc_pkg.g_fresh_allocation allocation_type,
310: /* 'FRESH ALLOCATION' allocation_type, */
311: dtl.extract_source_ledger,
312: dtl.tax,
313: dtl.tax_status_code,
339: end if;
340:
341: OPEN l_trxs_csr FOR
342: SELECT
343: jg_zz_vat_alloc_prc_pkg.g_error_allocation allocation_type,
344: /* 'ERROR ALLOCATION' allocation_type, */
345: dtl.extract_source_ledger,
346: dtl.tax,
347: dtl.tax_status_code,
1284: xv_tax_box := lv_tax_box_non_rec;
1285: end if;
1286: elsif lv_rule_found = g_no then
1287: /* execution will come here if no matching rule is found */
1288: xv_error_code := JG_ZZ_VAT_ALLOC_PRC_PKG.g_alloc_errcode_rule_not_found;
1289: return;
1290: end if;
1291:
1292: if gv_debug_flag then
1298: if gv_debug_flag then
1299: fnd_file.put_line(fnd_file.log, 'allocate_box - ERROR lv_statement:'||lv_statement );
1300: end if;
1301: xv_return_status := fnd_api.g_ret_sts_unexp_error;
1302: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.allocate_box ~ Unexpected Error -' || sqlerrm;
1303:
1304: end allocate_box;
1305:
1306: FUNCTION get_allocation_status(
1327:
1328: return lv_allocation_status;
1329: end get_allocation_status;
1330:
1331: END JG_ZZ_VAT_ALLOC_PRC_PKG;