[Home] [Help]
1: PACKAGE BODY JG_ZZ_VAT_ALLOC_PRC_PKG AS
2: /* $Header: jgzzvatallocprcb.pls 120.14.12020000.4 2012/11/29 09:55:21 rshergil ship $*/
3:
4: gv_debug_flag BOOLEAN; /* added for debug */
5:
39:
40: exception
41: when others then
42: xv_return_status := fnd_api.g_ret_sts_unexp_error;
43: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.purge_allocation_data ~ Unexpected Error -' || sqlerrm;
44: end purge_allocation_data;
45:
46: PROCEDURE insert_allocation_error (
47: pn_vat_transaction_id number,
90:
91: exception
92: when others then
93: xv_return_status := fnd_api.g_ret_sts_unexp_error;
94: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.insert_allocation_error ~ Unexpected Error -' || sqlerrm;
95: END insert_allocation_error;
96:
97: PROCEDURE update_allocation_error (
98: pn_vat_transaction_id number,
115:
116: exception
117: when others then
118: xv_return_status := fnd_api.g_ret_sts_unexp_error;
119: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.update_allocation_error ~ Unexpected Error -' || sqlerrm;
120: end update_allocation_error;
121:
122: PROCEDURE delete_allocation_error (
123: pn_vat_transaction_id number,
135:
136: exception
137: when others then
138: xv_return_status := fnd_api.g_ret_sts_unexp_error;
139: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.delete_allocation_error ~ Unexpected Error -' || sqlerrm;
140: end delete_allocation_error;
141:
142: /* Main procedure that performs the allocation */
143: PROCEDURE run_allocation (
251: /* fetches all transactions for which box is not allocated */
252: /* this cursor is only used for reference in REF CURSOR RETURN statement */
253: CURSOR c_trxs_for_allocation( cp_source varchar2, cp_period_name varchar2 ) IS
254: SELECT
255: jg_zz_vat_alloc_prc_pkg.g_fresh_allocation allocation_type,
256: /* 'FRESH ALLOCATION' allocation_type, */
257: dtl.extract_source_ledger,
258: dtl.tax,
259: dtl.tax_status_code,
308: + the cursor c_trxs_for_allocation which is defined above
309: */
310: OPEN l_trxs_csr FOR
311: SELECT
312: jg_zz_vat_alloc_prc_pkg.g_fresh_allocation allocation_type,
313: /* 'FRESH ALLOCATION' allocation_type, */
314: dtl.extract_source_ledger,
315: dtl.tax,
316: dtl.tax_status_code,
343: end if;
344:
345: OPEN l_trxs_csr FOR
346: SELECT
347: jg_zz_vat_alloc_prc_pkg.g_error_allocation allocation_type,
348: /* 'ERROR ALLOCATION' allocation_type, */
349: dtl.extract_source_ledger,
350: dtl.tax,
351: dtl.tax_status_code,
1484: if gv_debug_flag then
1485: fnd_file.put_line(fnd_file.log, 'allocate_box - Setting ERROR NO ALLOC RULE FOUND');
1486: end if;
1487: /* execution will come here if no matching rule is found */
1488: xv_error_code := JG_ZZ_VAT_ALLOC_PRC_PKG.g_alloc_errcode_rule_not_found;
1489: return;
1490: end if;
1491:
1492: if gv_debug_flag then
1498: if gv_debug_flag then
1499: fnd_file.put_line(fnd_file.log, 'allocate_box - ERROR lv_statement:'||lv_statement );
1500: end if;
1501: xv_return_status := fnd_api.g_ret_sts_unexp_error;
1502: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.allocate_box ~ Unexpected Error -' || sqlerrm;
1503:
1504: end allocate_box;
1505:
1506: FUNCTION get_allocation_status(
1527:
1528: return lv_allocation_status;
1529: end get_allocation_status;
1530:
1531: END JG_ZZ_VAT_ALLOC_PRC_PKG;