14:
15: PROCEDURE calculate_tax (p_tax_head_tbl IN POR_TAX_HEADER_OBJ_TBL_TYPE,
16: p_tax_line_tbl IN POR_TAX_LINE_OBJ_TBL_TYPE,
17: p_tax_dist_tbl IN POR_TAX_DIST_OBJ_TBL_TYPE,
18: x_tax_dist_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
19: x_tax_recov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
20: x_tax_nonrecov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
21: x_return_status OUT NOCOPY VARCHAR2,
22: x_msg_data OUT NOCOPY VARCHAR2,
15: PROCEDURE calculate_tax (p_tax_head_tbl IN POR_TAX_HEADER_OBJ_TBL_TYPE,
16: p_tax_line_tbl IN POR_TAX_LINE_OBJ_TBL_TYPE,
17: p_tax_dist_tbl IN POR_TAX_DIST_OBJ_TBL_TYPE,
18: x_tax_dist_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
19: x_tax_recov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
20: x_tax_nonrecov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
21: x_return_status OUT NOCOPY VARCHAR2,
22: x_msg_data OUT NOCOPY VARCHAR2,
23: x_msg_count OUT NOCOPY NUMBER) IS
16: p_tax_line_tbl IN POR_TAX_LINE_OBJ_TBL_TYPE,
17: p_tax_dist_tbl IN POR_TAX_DIST_OBJ_TBL_TYPE,
18: x_tax_dist_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
19: x_tax_recov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
20: x_tax_nonrecov_amt_tbl OUT NOCOPY ICX_TBL_NUMBER,
21: x_return_status OUT NOCOPY VARCHAR2,
22: x_msg_data OUT NOCOPY VARCHAR2,
23: x_msg_count OUT NOCOPY NUMBER) IS
24:
423: EXIT WHEN c_get_tax%NOTFOUND;
424:
425: IF (i=1) THEN
426: -- Initialize the output tables
427: x_tax_dist_id_tbl := ICX_TBL_NUMBER(null);
428: x_tax_recov_amt_tbl := ICX_TBL_NUMBER(null);
429: x_tax_nonrecov_amt_tbl := ICX_TBL_NUMBER(null);
430: ELSE
431: x_tax_dist_id_tbl.EXTEND;
424:
425: IF (i=1) THEN
426: -- Initialize the output tables
427: x_tax_dist_id_tbl := ICX_TBL_NUMBER(null);
428: x_tax_recov_amt_tbl := ICX_TBL_NUMBER(null);
429: x_tax_nonrecov_amt_tbl := ICX_TBL_NUMBER(null);
430: ELSE
431: x_tax_dist_id_tbl.EXTEND;
432: x_tax_recov_amt_tbl.EXTEND;
425: IF (i=1) THEN
426: -- Initialize the output tables
427: x_tax_dist_id_tbl := ICX_TBL_NUMBER(null);
428: x_tax_recov_amt_tbl := ICX_TBL_NUMBER(null);
429: x_tax_nonrecov_amt_tbl := ICX_TBL_NUMBER(null);
430: ELSE
431: x_tax_dist_id_tbl.EXTEND;
432: x_tax_recov_amt_tbl.EXTEND;
433: x_tax_nonrecov_amt_tbl.EXTEND;
487: x_prd_fisc_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
488: x_prd_type_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
489: x_int_use_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
490: x_usr_fisc_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
491: x_ass_val_tbl OUT NOCOPY ICX_TBL_NUMBER,
492: x_prd_cat_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
493: x_override_tbl OUT NOCOPY ICX_TBL_FLAG,
494: x_line_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
495: x_return_status OUT NOCOPY VARCHAR2,
490: x_usr_fisc_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
491: x_ass_val_tbl OUT NOCOPY ICX_TBL_NUMBER,
492: x_prd_cat_tbl OUT NOCOPY ICX_TBL_VARCHAR240,
493: x_override_tbl OUT NOCOPY ICX_TBL_FLAG,
494: x_line_id_tbl OUT NOCOPY ICX_TBL_NUMBER,
495: x_return_status OUT NOCOPY VARCHAR2,
496: x_msg_data OUT NOCOPY VARCHAR2,
497: x_msg_count OUT NOCOPY NUMBER) IS
498:
860: END IF;
861:
862: IF (i=1) THEN
863: -- Initialize the tables
864: x_line_id_tbl := ICX_TBL_NUMBER(null);
865: x_tax_class_tbl := ICX_TBL_VARCHAR240(null);
866: x_trx_bus_tbl := ICX_TBL_VARCHAR240(null);
867: x_prd_fisc_tbl := ICX_TBL_VARCHAR240(null);
868: x_prd_type_tbl := ICX_TBL_VARCHAR240(null);
867: x_prd_fisc_tbl := ICX_TBL_VARCHAR240(null);
868: x_prd_type_tbl := ICX_TBL_VARCHAR240(null);
869: x_int_use_tbl := ICX_TBL_VARCHAR240(null);
870: x_usr_fisc_tbl := ICX_TBL_VARCHAR240(null);
871: x_ass_val_tbl := ICX_TBL_NUMBER(null);
872: x_prd_cat_tbl := ICX_TBL_VARCHAR240(null);
873: x_override_tbl := ICX_TBL_FLAG(null);
874: ELSE
875: -- extend the tables