15:
16: PROCEDURE calculate_tax (p_tax_head_tbl IN POR_TAX_HEADER_OBJ_TBL_TYPE,
17: p_tax_line_tbl IN POR_TAX_LINE_OBJ_TBL_TYPE,
18: p_tax_dist_tbl IN POR_TAX_DIST_OBJ_TBL_TYPE,
19: x_tax_dist_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
20: x_tax_recov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
21: x_tax_nonrecov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
22: x_return_status OUT NOCOPY VARCHAR2,
23: x_msg_data OUT NOCOPY VARCHAR2,
16: PROCEDURE calculate_tax (p_tax_head_tbl IN POR_TAX_HEADER_OBJ_TBL_TYPE,
17: p_tax_line_tbl IN POR_TAX_LINE_OBJ_TBL_TYPE,
18: p_tax_dist_tbl IN POR_TAX_DIST_OBJ_TBL_TYPE,
19: x_tax_dist_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
20: x_tax_recov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
21: x_tax_nonrecov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
22: x_return_status OUT NOCOPY VARCHAR2,
23: x_msg_data OUT NOCOPY VARCHAR2,
24: x_msg_count OUT NOCOPY NUMBER) IS
17: p_tax_line_tbl IN POR_TAX_LINE_OBJ_TBL_TYPE,
18: p_tax_dist_tbl IN POR_TAX_DIST_OBJ_TBL_TYPE,
19: x_tax_dist_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
20: x_tax_recov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
21: x_tax_nonrecov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
22: x_return_status OUT NOCOPY VARCHAR2,
23: x_msg_data OUT NOCOPY VARCHAR2,
24: x_msg_count OUT NOCOPY NUMBER) IS
25:
417: EXIT WHEN c_get_tax%NOTFOUND;
418:
419: IF (i=1) THEN
420: -- Initialize the output tables
421: x_tax_dist_id_tbl := ICX_TBL_NUMBER(null);
422: x_tax_recov_amt_tbl := ICX_TBL_NUMBER(null);
423: x_tax_nonrecov_amt_tbl := ICX_TBL_NUMBER(null);
424: ELSE
425: x_tax_dist_id_tbl.EXTEND;
418:
419: IF (i=1) THEN
420: -- Initialize the output tables
421: x_tax_dist_id_tbl := ICX_TBL_NUMBER(null);
422: x_tax_recov_amt_tbl := ICX_TBL_NUMBER(null);
423: x_tax_nonrecov_amt_tbl := ICX_TBL_NUMBER(null);
424: ELSE
425: x_tax_dist_id_tbl.EXTEND;
426: x_tax_recov_amt_tbl.EXTEND;
419: IF (i=1) THEN
420: -- Initialize the output tables
421: x_tax_dist_id_tbl := ICX_TBL_NUMBER(null);
422: x_tax_recov_amt_tbl := ICX_TBL_NUMBER(null);
423: x_tax_nonrecov_amt_tbl := ICX_TBL_NUMBER(null);
424: ELSE
425: x_tax_dist_id_tbl.EXTEND;
426: x_tax_recov_amt_tbl.EXTEND;
427: x_tax_nonrecov_amt_tbl.EXTEND;
478: x_prd_fisc_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
479: x_prd_type_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
480: x_int_use_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
481: x_usr_fisc_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
482: x_ass_val_tbl OUT NOCOPY ICX_TBL_NUMBER,
483: x_prd_cat_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
484: x_override_tbl OUT NOCOPY ICX_TBL_FLAG,
485: x_line_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
486: x_return_status OUT NOCOPY VARCHAR2,
481: x_usr_fisc_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
482: x_ass_val_tbl OUT NOCOPY ICX_TBL_NUMBER,
483: x_prd_cat_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
484: x_override_tbl OUT NOCOPY ICX_TBL_FLAG,
485: x_line_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
486: x_return_status OUT NOCOPY VARCHAR2,
487: x_msg_data OUT NOCOPY VARCHAR2,
488: x_msg_count OUT NOCOPY NUMBER) IS
489:
841: END IF;
842:
843: IF (i=1) THEN
844: -- Initialize the tables
845: x_line_id_tbl := ICX_TBL_NUMBER(null);
846: x_tax_class_tbl := ICX_TBL_VARCHAR240(null);
847: x_trx_bus_tbl := ICX_TBL_VARCHAR240(null);
848: x_prd_fisc_tbl := ICX_TBL_VARCHAR240(null);
849: x_prd_type_tbl := ICX_TBL_VARCHAR240(null);
848: x_prd_fisc_tbl := ICX_TBL_VARCHAR240(null);
849: x_prd_type_tbl := ICX_TBL_VARCHAR240(null);
850: x_int_use_tbl := ICX_TBL_VARCHAR240(null);
851: x_usr_fisc_tbl := ICX_TBL_VARCHAR240(null);
852: x_ass_val_tbl := ICX_TBL_NUMBER(null);
853: x_prd_cat_tbl := ICX_TBL_VARCHAR240(null);
854: x_override_tbl := ICX_TBL_FLAG(null);
855: ELSE
856: -- extend the tables