5: -- Logging global constants
6: D_PACKAGE_BASE CONSTANT VARCHAR2(100) := PO_LOG.get_package_base(G_PACKAGE_NAME);
7:
8: -- Private procedure declarations
9: PROCEDURE populate_zx_headers_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
10: p_calling_program IN VARCHAR2);
11:
12: PROCEDURE populate_header_po(p_po_header_id IN NUMBER);
13:
10: p_calling_program IN VARCHAR2);
11:
12: PROCEDURE populate_header_po(p_po_header_id IN NUMBER);
13:
14: PROCEDURE populate_zx_headers_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
15: p_calling_program IN VARCHAR2);
16:
17: PROCEDURE populate_header_rel(p_po_release_id IN NUMBER);
18:
18:
19: PROCEDURE populate_zx_headers_with_req(p_requisition_header_id IN NUMBER,
20: p_calling_program IN VARCHAR2);
21:
22: PROCEDURE populate_zx_lines_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
23: p_calling_program IN VARCHAR2);
24:
25: PROCEDURE populate_zx_lines_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
26: p_calling_program IN VARCHAR2);
21:
22: PROCEDURE populate_zx_lines_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
23: p_calling_program IN VARCHAR2);
24:
25: PROCEDURE populate_zx_lines_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
26: p_calling_program IN VARCHAR2);
27:
28: PROCEDURE populate_zx_lines_with_req(p_requisition_header_id IN NUMBER,
29: p_calling_program IN VARCHAR2);
27:
28: PROCEDURE populate_zx_lines_with_req(p_requisition_header_id IN NUMBER,
29: p_calling_program IN VARCHAR2);
30:
31: PROCEDURE populate_zx_dists_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
32: p_calling_program IN VARCHAR2);
33:
34: PROCEDURE populate_all_dists_po(p_po_header_id IN NUMBER);
35:
32: p_calling_program IN VARCHAR2);
33:
34: PROCEDURE populate_all_dists_po(p_po_header_id IN NUMBER);
35:
36: PROCEDURE populate_zx_dists_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
37: p_calling_program IN VARCHAR2);
38:
39: PROCEDURE populate_all_dists_rel(p_po_release_id IN NUMBER);
40:
57: p_progress IN NUMBER);
58:
59: PROCEDURE log_po_tauc(p_module_base IN VARCHAR2,
60: p_progress IN NUMBER,
61: p_po_header_id_tbl IN PO_TBL_NUMBER);
62:
63: PROCEDURE log_rel_tauc(p_module_base IN VARCHAR2,
64: p_progress IN NUMBER,
65: p_po_release_id_tbl IN PO_TBL_NUMBER);
61: p_po_header_id_tbl IN PO_TBL_NUMBER);
62:
63: PROCEDURE log_rel_tauc(p_module_base IN VARCHAR2,
64: p_progress IN NUMBER,
65: p_po_release_id_tbl IN PO_TBL_NUMBER);
66:
67: PROCEDURE log_req_tauc(p_module_base IN VARCHAR2,
68: p_progress IN NUMBER,
69: p_requisition_header_id IN NUMBER);
119: -- amounts calculated.
120: -- 2. Returns all expected errors from etax API's in global tax error record
121: --End of Comments
122: -----------------------------------------------------------------------------
123: PROCEDURE calculate_tax(p_po_header_id_tbl IN PO_TBL_NUMBER,
124: p_po_release_id_tbl IN PO_TBL_NUMBER,
125: p_calling_program IN VARCHAR2,
126: x_return_status OUT NOCOPY VARCHAR2
127: ) IS
120: -- 2. Returns all expected errors from etax API's in global tax error record
121: --End of Comments
122: -----------------------------------------------------------------------------
123: PROCEDURE calculate_tax(p_po_header_id_tbl IN PO_TBL_NUMBER,
124: p_po_release_id_tbl IN PO_TBL_NUMBER,
125: p_calling_program IN VARCHAR2,
126: x_return_status OUT NOCOPY VARCHAR2
127: ) IS
128: l_module_name CONSTANT VARCHAR2(100) := 'CALCULATE_TAX';
1012: l_module_name CONSTANT VARCHAR2(100) := 'CALCULATE_TAX_WRAPPER';
1013: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(
1014: D_PACKAGE_BASE, l_module_name);
1015: d_progress NUMBER;
1016: l_po_header_id_tbl PO_TBL_NUMBER;
1017: l_po_release_id_tbl PO_TBL_NUMBER;
1018: BEGIN
1019:
1020: IF (PO_LOG.d_proc) THEN
1013: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(
1014: D_PACKAGE_BASE, l_module_name);
1015: d_progress NUMBER;
1016: l_po_header_id_tbl PO_TBL_NUMBER;
1017: l_po_release_id_tbl PO_TBL_NUMBER;
1018: BEGIN
1019:
1020: IF (PO_LOG.d_proc) THEN
1021: PO_LOG.proc_begin(d_module_base);
1026:
1027: d_progress := 0;
1028:
1029: IF (p_po_header_id IS NULL) THEN
1030: l_po_header_id_tbl := PO_TBL_NUMBER();
1031: ELSE
1032: l_po_header_id_tbl := PO_TBL_NUMBER(p_po_header_id);
1033: END IF;
1034:
1028:
1029: IF (p_po_header_id IS NULL) THEN
1030: l_po_header_id_tbl := PO_TBL_NUMBER();
1031: ELSE
1032: l_po_header_id_tbl := PO_TBL_NUMBER(p_po_header_id);
1033: END IF;
1034:
1035: IF (p_po_release_id IS NULL) THEN
1036: l_po_release_id_tbl := PO_TBL_NUMBER();
1032: l_po_header_id_tbl := PO_TBL_NUMBER(p_po_header_id);
1033: END IF;
1034:
1035: IF (p_po_release_id IS NULL) THEN
1036: l_po_release_id_tbl := PO_TBL_NUMBER();
1037: ELSE
1038: l_po_release_id_tbl := PO_TBL_NUMBER(p_po_release_id);
1039: END IF;
1040:
1034:
1035: IF (p_po_release_id IS NULL) THEN
1036: l_po_release_id_tbl := PO_TBL_NUMBER();
1037: ELSE
1038: l_po_release_id_tbl := PO_TBL_NUMBER(p_po_release_id);
1039: END IF;
1040:
1041: calculate_tax(p_po_header_id_tbl => l_po_header_id_tbl,
1042: p_po_release_id_tbl => l_po_release_id_tbl,
2306: --Notes:
2307: -- Used by calculate_tax procedure. Not to be used externally
2308: --End of Comments
2309: -----------------------------------------------------------------------------
2310: PROCEDURE populate_zx_headers_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
2311: p_calling_program IN VARCHAR2
2312: ) IS
2313: BEGIN
2314:
2524: --Notes:
2525: -- Used by calculate_tax procedure. Not to be used externally
2526: --End of Comments
2527: -----------------------------------------------------------------------------
2528: PROCEDURE populate_zx_headers_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
2529: p_calling_program IN VARCHAR2
2530: ) IS
2531: BEGIN
2532: -- Populate zx_trx_headers_gt for Releases
2835: --Notes:
2836: -- Used by calculate_tax procedure. Not to be used externally
2837: --End of Comments
2838: -----------------------------------------------------------------------------
2839: PROCEDURE populate_zx_lines_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
2840: p_calling_program IN VARCHAR2
2841: ) IS
2842: BEGIN
2843:
3153: --Notes:
3154: -- Used by calculate_tax procedure. Not to be used externally
3155: --End of Comments
3156: -----------------------------------------------------------------------------
3157: PROCEDURE populate_zx_lines_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
3158: p_calling_program IN VARCHAR2
3159: ) IS
3160: BEGIN
3161: -- Populate zx_transaction_lines_gt for Releases
3717: --Notes:
3718: -- Used by calculate_tax procedure. Not to be used externally
3719: --End of Comments
3720: -----------------------------------------------------------------------------
3721: PROCEDURE populate_zx_dists_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
3722: p_calling_program IN VARCHAR2
3723: ) IS
3724: BEGIN
3725: -- Populate ZX_ITM_DISTRIBUTIONS_GT with all such distributions for which:
3905: --Notes:
3906: -- Used by calculate_tax procedure. Not to be used externally
3907: --End of Comments
3908: -----------------------------------------------------------------------------
3909: PROCEDURE populate_zx_dists_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
3910: p_calling_program IN VARCHAR2
3911: ) IS
3912: BEGIN
3913: -- Populate ZX_ITM_DISTRIBUTIONS_GT with all such distributions for which:
4514: -----------------------------------------------------------------------------
4515: PROCEDURE SHIPMENT_DIST_DELETED_FROM_OA
4516: (
4517: P_PO_HEADER_ID IN NUMBER,
4518: P_DEL_SHIPMENT_TABLE IN PO_TBL_NUMBER,
4519: P_DEL_DIST_SHIPMENT_TABLE IN PO_TBL_NUMBER
4520: )
4521: IS
4522: l_module_name CONSTANT VARCHAR2(100) := 'shipment_dist_deleted_from_oa';
4515: PROCEDURE SHIPMENT_DIST_DELETED_FROM_OA
4516: (
4517: P_PO_HEADER_ID IN NUMBER,
4518: P_DEL_SHIPMENT_TABLE IN PO_TBL_NUMBER,
4519: P_DEL_DIST_SHIPMENT_TABLE IN PO_TBL_NUMBER
4520: )
4521: IS
4522: l_module_name CONSTANT VARCHAR2(100) := 'shipment_dist_deleted_from_oa';
4523: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(
4881: -----------------------------------------------------------------------------
4882: PROCEDURE initialize_global_error_record IS BEGIN
4883: G_TAX_ERRORS_TBL.error_level := PO_TBL_VARCHAR20();
4884: G_TAX_ERRORS_TBL.document_type_code := PO_TBL_VARCHAR25();
4885: G_TAX_ERRORS_TBL.document_id := PO_TBL_NUMBER();
4886: G_TAX_ERRORS_TBL.document_num := PO_TBL_NUMBER();
4887: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
4888: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
4889: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
4882: PROCEDURE initialize_global_error_record IS BEGIN
4883: G_TAX_ERRORS_TBL.error_level := PO_TBL_VARCHAR20();
4884: G_TAX_ERRORS_TBL.document_type_code := PO_TBL_VARCHAR25();
4885: G_TAX_ERRORS_TBL.document_id := PO_TBL_NUMBER();
4886: G_TAX_ERRORS_TBL.document_num := PO_TBL_NUMBER();
4887: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
4888: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
4889: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
4890: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
4883: G_TAX_ERRORS_TBL.error_level := PO_TBL_VARCHAR20();
4884: G_TAX_ERRORS_TBL.document_type_code := PO_TBL_VARCHAR25();
4885: G_TAX_ERRORS_TBL.document_id := PO_TBL_NUMBER();
4886: G_TAX_ERRORS_TBL.document_num := PO_TBL_NUMBER();
4887: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
4888: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
4889: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
4890: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
4891: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
4884: G_TAX_ERRORS_TBL.document_type_code := PO_TBL_VARCHAR25();
4885: G_TAX_ERRORS_TBL.document_id := PO_TBL_NUMBER();
4886: G_TAX_ERRORS_TBL.document_num := PO_TBL_NUMBER();
4887: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
4888: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
4889: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
4890: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
4891: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
4892: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
4885: G_TAX_ERRORS_TBL.document_id := PO_TBL_NUMBER();
4886: G_TAX_ERRORS_TBL.document_num := PO_TBL_NUMBER();
4887: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
4888: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
4889: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
4890: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
4891: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
4892: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
4893: G_TAX_ERRORS_TBL.message_text := PO_TBL_VARCHAR2000();
4886: G_TAX_ERRORS_TBL.document_num := PO_TBL_NUMBER();
4887: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
4888: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
4889: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
4890: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
4891: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
4892: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
4893: G_TAX_ERRORS_TBL.message_text := PO_TBL_VARCHAR2000();
4894: END initialize_global_error_record;
4887: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
4888: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
4889: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
4890: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
4891: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
4892: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
4893: G_TAX_ERRORS_TBL.message_text := PO_TBL_VARCHAR2000();
4894: END initialize_global_error_record;
4895:
4888: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
4889: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
4890: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
4891: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
4892: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
4893: G_TAX_ERRORS_TBL.message_text := PO_TBL_VARCHAR2000();
4894: END initialize_global_error_record;
4895:
4896:
5533: --End of Comments
5534: -----------------------------------------------------------------------------
5535: PROCEDURE log_po_tauc(p_module_base IN VARCHAR2,
5536: p_progress IN NUMBER,
5537: p_po_header_id_tbl IN PO_TBL_NUMBER) IS
5538: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
5539: d_progress NUMBER := p_progress;
5540: l_line_id_tbl PO_TBL_NUMBER;
5541: l_ship_id_tbl PO_TBL_NUMBER;
5536: p_progress IN NUMBER,
5537: p_po_header_id_tbl IN PO_TBL_NUMBER) IS
5538: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
5539: d_progress NUMBER := p_progress;
5540: l_line_id_tbl PO_TBL_NUMBER;
5541: l_ship_id_tbl PO_TBL_NUMBER;
5542: l_dist_id_tbl PO_TBL_NUMBER;
5543: l_header_tauc PO_HEADERS_ALL.tax_attribute_update_code%TYPE;
5544: l_line_tauc_tbl PO_TBL_VARCHAR15;
5537: p_po_header_id_tbl IN PO_TBL_NUMBER) IS
5538: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
5539: d_progress NUMBER := p_progress;
5540: l_line_id_tbl PO_TBL_NUMBER;
5541: l_ship_id_tbl PO_TBL_NUMBER;
5542: l_dist_id_tbl PO_TBL_NUMBER;
5543: l_header_tauc PO_HEADERS_ALL.tax_attribute_update_code%TYPE;
5544: l_line_tauc_tbl PO_TBL_VARCHAR15;
5545: l_ship_tauc_tbl PO_TBL_VARCHAR15;
5538: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
5539: d_progress NUMBER := p_progress;
5540: l_line_id_tbl PO_TBL_NUMBER;
5541: l_ship_id_tbl PO_TBL_NUMBER;
5542: l_dist_id_tbl PO_TBL_NUMBER;
5543: l_header_tauc PO_HEADERS_ALL.tax_attribute_update_code%TYPE;
5544: l_line_tauc_tbl PO_TBL_VARCHAR15;
5545: l_ship_tauc_tbl PO_TBL_VARCHAR15;
5546: l_dist_tauc_tbl PO_TBL_VARCHAR15;
5623: --End of Comments
5624: -----------------------------------------------------------------------------
5625: PROCEDURE log_rel_tauc(p_module_base IN VARCHAR2,
5626: p_progress IN NUMBER,
5627: p_po_release_id_tbl IN PO_TBL_NUMBER) IS
5628: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
5629: d_progress NUMBER := p_progress;
5630: l_ship_id_tbl PO_TBL_NUMBER;
5631: l_dist_id_tbl PO_TBL_NUMBER;
5626: p_progress IN NUMBER,
5627: p_po_release_id_tbl IN PO_TBL_NUMBER) IS
5628: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
5629: d_progress NUMBER := p_progress;
5630: l_ship_id_tbl PO_TBL_NUMBER;
5631: l_dist_id_tbl PO_TBL_NUMBER;
5632: l_header_tauc PO_RELEASES_ALL.tax_attribute_update_code%TYPE;
5633: l_ship_tauc_tbl PO_TBL_VARCHAR15;
5634: l_dist_tauc_tbl PO_TBL_VARCHAR15;
5627: p_po_release_id_tbl IN PO_TBL_NUMBER) IS
5628: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
5629: d_progress NUMBER := p_progress;
5630: l_ship_id_tbl PO_TBL_NUMBER;
5631: l_dist_id_tbl PO_TBL_NUMBER;
5632: l_header_tauc PO_RELEASES_ALL.tax_attribute_update_code%TYPE;
5633: l_ship_tauc_tbl PO_TBL_VARCHAR15;
5634: l_dist_tauc_tbl PO_TBL_VARCHAR15;
5635: BEGIN
5701: p_progress IN NUMBER,
5702: p_requisition_header_id IN NUMBER) IS
5703: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
5704: d_progress NUMBER := p_progress;
5705: l_line_id_tbl PO_TBL_NUMBER;
5706: l_header_tauc PO_REQUISITION_HEADERS_ALL.tax_attribute_update_code%TYPE;
5707: l_line_tauc_tbl PO_TBL_VARCHAR15;
5708: BEGIN
5709:
6451: -- Additional Tax Attribute on the Additional Tax Information page and
6452: -- presses Apply
6453: --End of Comments
6454: -----------------------------------------------------------------------------
6455: PROCEDURE unapprove_schedules(p_line_location_id_tbl IN PO_TBL_NUMBER,
6456: x_return_status OUT NOCOPY VARCHAR2
6457: ) IS
6458: l_module_name CONSTANT VARCHAR2(100) := 'UNAPPROVE_SCHEDULES';
6459: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(