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: -- Bug 11665348
39: PROCEDURE populate_zx_lines_with_po_cal(p_po_header_id_tbl IN PO_TBL_NUMBER,
40: p_calling_program IN VARCHAR2);
35:
36: PROCEDURE populate_zx_dists_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
37: p_calling_program IN VARCHAR2);
38: -- Bug 11665348
39: PROCEDURE populate_zx_lines_with_po_cal(p_po_header_id_tbl IN PO_TBL_NUMBER,
40: p_calling_program IN VARCHAR2);
41:
42: PROCEDURE populate_zx_lines_with_rel_cal(p_po_release_id_tbl IN PO_TBL_NUMBER,
43: p_calling_program IN VARCHAR2);
38: -- Bug 11665348
39: PROCEDURE populate_zx_lines_with_po_cal(p_po_header_id_tbl IN PO_TBL_NUMBER,
40: p_calling_program IN VARCHAR2);
41:
42: PROCEDURE populate_zx_lines_with_rel_cal(p_po_release_id_tbl IN PO_TBL_NUMBER,
43: p_calling_program IN VARCHAR2);
44: -- Bug 11665348
45:
46:
65: p_progress IN NUMBER);
66:
67: PROCEDURE log_po_tauc(p_module_base IN VARCHAR2,
68: p_progress IN NUMBER,
69: p_po_header_id_tbl IN PO_TBL_NUMBER);
70:
71: PROCEDURE log_rel_tauc(p_module_base IN VARCHAR2,
72: p_progress IN NUMBER,
73: p_po_release_id_tbl IN PO_TBL_NUMBER);
69: p_po_header_id_tbl IN PO_TBL_NUMBER);
70:
71: PROCEDURE log_rel_tauc(p_module_base IN VARCHAR2,
72: p_progress IN NUMBER,
73: p_po_release_id_tbl IN PO_TBL_NUMBER);
74:
75: PROCEDURE log_req_tauc(p_module_base IN VARCHAR2,
76: p_progress IN NUMBER,
77: p_requisition_header_id IN NUMBER);
127: -- amounts calculated.
128: -- 2. Returns all expected errors from etax API's in global tax error record
129: --End of Comments
130: -----------------------------------------------------------------------------
131: PROCEDURE calculate_tax(p_po_header_id_tbl IN PO_TBL_NUMBER,
132: p_po_release_id_tbl IN PO_TBL_NUMBER,
133: p_calling_program IN VARCHAR2,
134: x_return_status OUT NOCOPY VARCHAR2
135: ) IS
128: -- 2. Returns all expected errors from etax API's in global tax error record
129: --End of Comments
130: -----------------------------------------------------------------------------
131: PROCEDURE calculate_tax(p_po_header_id_tbl IN PO_TBL_NUMBER,
132: p_po_release_id_tbl IN PO_TBL_NUMBER,
133: p_calling_program IN VARCHAR2,
134: x_return_status OUT NOCOPY VARCHAR2
135: ) IS
136: l_module_name CONSTANT VARCHAR2(100) := 'CALCULATE_TAX';
1123: l_module_name CONSTANT VARCHAR2(100) := 'CALCULATE_TAX_WRAPPER';
1124: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(
1125: D_PACKAGE_BASE, l_module_name);
1126: d_progress NUMBER;
1127: l_po_header_id_tbl PO_TBL_NUMBER;
1128: l_po_release_id_tbl PO_TBL_NUMBER;
1129:
1130: l_is_clm_po VARCHAR2(1); -- Bug 9718704
1131: l_type_lookup_code VARCHAR2(50) ; --Bug 13798221
1124: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(
1125: D_PACKAGE_BASE, l_module_name);
1126: d_progress NUMBER;
1127: l_po_header_id_tbl PO_TBL_NUMBER;
1128: l_po_release_id_tbl PO_TBL_NUMBER;
1129:
1130: l_is_clm_po VARCHAR2(1); -- Bug 9718704
1131: l_type_lookup_code VARCHAR2(50) ; --Bug 13798221
1132:
1180:
1181: --Bug 13798221
1182:
1183: IF (p_po_header_id IS NULL) THEN
1184: l_po_header_id_tbl := PO_TBL_NUMBER();
1185: ELSE
1186: l_po_header_id_tbl := PO_TBL_NUMBER(p_po_header_id);
1187: END IF;
1188:
1182:
1183: IF (p_po_header_id IS NULL) THEN
1184: l_po_header_id_tbl := PO_TBL_NUMBER();
1185: ELSE
1186: l_po_header_id_tbl := PO_TBL_NUMBER(p_po_header_id);
1187: END IF;
1188:
1189: IF (p_po_release_id IS NULL) THEN
1190: l_po_release_id_tbl := PO_TBL_NUMBER();
1186: l_po_header_id_tbl := PO_TBL_NUMBER(p_po_header_id);
1187: END IF;
1188:
1189: IF (p_po_release_id IS NULL) THEN
1190: l_po_release_id_tbl := PO_TBL_NUMBER();
1191: ELSE
1192: l_po_release_id_tbl := PO_TBL_NUMBER(p_po_release_id);
1193: END IF;
1194:
1188:
1189: IF (p_po_release_id IS NULL) THEN
1190: l_po_release_id_tbl := PO_TBL_NUMBER();
1191: ELSE
1192: l_po_release_id_tbl := PO_TBL_NUMBER(p_po_release_id);
1193: END IF;
1194:
1195: calculate_tax(p_po_header_id_tbl => l_po_header_id_tbl,
1196: p_po_release_id_tbl => l_po_release_id_tbl,
2491: --Notes:
2492: -- Used by calculate_tax procedure. Not to be used externally
2493: --End of Comments
2494: -----------------------------------------------------------------------------
2495: PROCEDURE populate_zx_headers_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
2496: p_calling_program IN VARCHAR2
2497: ) IS
2498: BEGIN
2499:
2709: --Notes:
2710: -- Used by calculate_tax procedure. Not to be used externally
2711: --End of Comments
2712: -----------------------------------------------------------------------------
2713: PROCEDURE populate_zx_headers_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
2714: p_calling_program IN VARCHAR2
2715: ) IS
2716: BEGIN
2717: -- Populate zx_trx_headers_gt for Releases
3026: --Notes:
3027: -- Used by calculate_tax procedure. Not to be used externally
3028: --End of Comments
3029: -----------------------------------------------------------------------------
3030: PROCEDURE populate_zx_lines_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
3031: p_calling_program IN VARCHAR2
3032: ) IS
3033: BEGIN
3034:
3357: --Notes:
3358: -- Used by calculate_tax procedure. Not to be used externally
3359: --End of Comments
3360: -----------------------------------------------------------------------------
3361: PROCEDURE populate_zx_lines_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
3362: p_calling_program IN VARCHAR2
3363: ) IS
3364: BEGIN
3365: -- Populate zx_transaction_lines_gt for Releases
3686: --Notes:
3687: -- Used by calculate_tax procedure. Not to be used externally
3688: --End of Comments
3689: -----------------------------------------------------------------------------
3690: PROCEDURE populate_zx_lines_with_po_cal(p_po_header_id_tbl IN PO_TBL_NUMBER,
3691: p_calling_program IN VARCHAR2
3692: ) IS
3693: BEGIN
3694:
4013: --Notes:
4014: -- Used by calculate_tax procedure. Not to be used externally
4015: --End of Comments
4016: -----------------------------------------------------------------------------
4017: PROCEDURE populate_zx_lines_with_rel_cal(p_po_release_id_tbl IN PO_TBL_NUMBER,
4018: p_calling_program IN VARCHAR2
4019: ) IS
4020: BEGIN
4021: -- Populate zx_transaction_lines_gt for Releases
4601: --Notes:
4602: -- Used by calculate_tax procedure. Not to be used externally
4603: --End of Comments
4604: -----------------------------------------------------------------------------
4605: PROCEDURE populate_zx_dists_with_po(p_po_header_id_tbl IN PO_TBL_NUMBER,
4606: p_calling_program IN VARCHAR2
4607: ) IS
4608: BEGIN
4609: -- Populate ZX_ITM_DISTRIBUTIONS_GT with all such distributions for which:
4798: --Notes:
4799: -- Used by calculate_tax procedure. Not to be used externally
4800: --End of Comments
4801: -----------------------------------------------------------------------------
4802: PROCEDURE populate_zx_dists_with_rel(p_po_release_id_tbl IN PO_TBL_NUMBER,
4803: p_calling_program IN VARCHAR2
4804: ) IS
4805: BEGIN
4806: -- Populate ZX_ITM_DISTRIBUTIONS_GT with all such distributions for which:
5409: -----------------------------------------------------------------------------
5410: PROCEDURE SHIPMENT_DIST_DELETED_FROM_OA
5411: (
5412: P_PO_HEADER_ID IN NUMBER,
5413: P_DEL_SHIPMENT_TABLE IN PO_TBL_NUMBER,
5414: P_DEL_DIST_SHIPMENT_TABLE IN PO_TBL_NUMBER
5415: )
5416: IS
5417: l_module_name CONSTANT VARCHAR2(100) := 'shipment_dist_deleted_from_oa';
5410: PROCEDURE SHIPMENT_DIST_DELETED_FROM_OA
5411: (
5412: P_PO_HEADER_ID IN NUMBER,
5413: P_DEL_SHIPMENT_TABLE IN PO_TBL_NUMBER,
5414: P_DEL_DIST_SHIPMENT_TABLE IN PO_TBL_NUMBER
5415: )
5416: IS
5417: l_module_name CONSTANT VARCHAR2(100) := 'shipment_dist_deleted_from_oa';
5418: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(
5776: -----------------------------------------------------------------------------
5777: PROCEDURE initialize_global_error_record IS BEGIN
5778: G_TAX_ERRORS_TBL.error_level := PO_TBL_VARCHAR20();
5779: G_TAX_ERRORS_TBL.document_type_code := PO_TBL_VARCHAR25();
5780: G_TAX_ERRORS_TBL.document_id := PO_TBL_NUMBER();
5781: G_TAX_ERRORS_TBL.document_num := PO_TBL_VARCHAR20(); --<9688923>
5782: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
5783: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
5784: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
5778: G_TAX_ERRORS_TBL.error_level := PO_TBL_VARCHAR20();
5779: G_TAX_ERRORS_TBL.document_type_code := PO_TBL_VARCHAR25();
5780: G_TAX_ERRORS_TBL.document_id := PO_TBL_NUMBER();
5781: G_TAX_ERRORS_TBL.document_num := PO_TBL_VARCHAR20(); --<9688923>
5782: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
5783: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
5784: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
5785: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
5786: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
5779: G_TAX_ERRORS_TBL.document_type_code := PO_TBL_VARCHAR25();
5780: G_TAX_ERRORS_TBL.document_id := PO_TBL_NUMBER();
5781: G_TAX_ERRORS_TBL.document_num := PO_TBL_VARCHAR20(); --<9688923>
5782: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
5783: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
5784: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
5785: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
5786: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
5787: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
5780: G_TAX_ERRORS_TBL.document_id := PO_TBL_NUMBER();
5781: G_TAX_ERRORS_TBL.document_num := PO_TBL_VARCHAR20(); --<9688923>
5782: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
5783: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
5784: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
5785: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
5786: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
5787: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
5788: G_TAX_ERRORS_TBL.message_text := PO_TBL_VARCHAR2000();
5781: G_TAX_ERRORS_TBL.document_num := PO_TBL_VARCHAR20(); --<9688923>
5782: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
5783: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
5784: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
5785: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
5786: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
5787: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
5788: G_TAX_ERRORS_TBL.message_text := PO_TBL_VARCHAR2000();
5789: END initialize_global_error_record;
5782: G_TAX_ERRORS_TBL.line_id := PO_TBL_NUMBER();
5783: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
5784: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
5785: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
5786: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
5787: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
5788: G_TAX_ERRORS_TBL.message_text := PO_TBL_VARCHAR2000();
5789: END initialize_global_error_record;
5790:
5783: G_TAX_ERRORS_TBL.line_num := PO_TBL_NUMBER();
5784: G_TAX_ERRORS_TBL.line_location_id := PO_TBL_NUMBER();
5785: G_TAX_ERRORS_TBL.shipment_num := PO_TBL_NUMBER();
5786: G_TAX_ERRORS_TBL.distribution_id := PO_TBL_NUMBER();
5787: G_TAX_ERRORS_TBL.distribution_num := PO_TBL_NUMBER();
5788: G_TAX_ERRORS_TBL.message_text := PO_TBL_VARCHAR2000();
5789: END initialize_global_error_record;
5790:
5791:
6429: --End of Comments
6430: -----------------------------------------------------------------------------
6431: PROCEDURE log_po_tauc(p_module_base IN VARCHAR2,
6432: p_progress IN NUMBER,
6433: p_po_header_id_tbl IN PO_TBL_NUMBER) IS
6434: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
6435: d_progress NUMBER := p_progress;
6436: l_line_id_tbl PO_TBL_NUMBER;
6437: l_ship_id_tbl PO_TBL_NUMBER;
6432: p_progress IN NUMBER,
6433: p_po_header_id_tbl IN PO_TBL_NUMBER) IS
6434: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
6435: d_progress NUMBER := p_progress;
6436: l_line_id_tbl PO_TBL_NUMBER;
6437: l_ship_id_tbl PO_TBL_NUMBER;
6438: l_dist_id_tbl PO_TBL_NUMBER;
6439: l_header_tauc PO_HEADERS_ALL.tax_attribute_update_code%TYPE;
6440: l_line_tauc_tbl PO_TBL_VARCHAR15;
6433: p_po_header_id_tbl IN PO_TBL_NUMBER) IS
6434: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
6435: d_progress NUMBER := p_progress;
6436: l_line_id_tbl PO_TBL_NUMBER;
6437: l_ship_id_tbl PO_TBL_NUMBER;
6438: l_dist_id_tbl PO_TBL_NUMBER;
6439: l_header_tauc PO_HEADERS_ALL.tax_attribute_update_code%TYPE;
6440: l_line_tauc_tbl PO_TBL_VARCHAR15;
6441: l_ship_tauc_tbl PO_TBL_VARCHAR15;
6434: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
6435: d_progress NUMBER := p_progress;
6436: l_line_id_tbl PO_TBL_NUMBER;
6437: l_ship_id_tbl PO_TBL_NUMBER;
6438: l_dist_id_tbl PO_TBL_NUMBER;
6439: l_header_tauc PO_HEADERS_ALL.tax_attribute_update_code%TYPE;
6440: l_line_tauc_tbl PO_TBL_VARCHAR15;
6441: l_ship_tauc_tbl PO_TBL_VARCHAR15;
6442: l_dist_tauc_tbl PO_TBL_VARCHAR15;
6519: --End of Comments
6520: -----------------------------------------------------------------------------
6521: PROCEDURE log_rel_tauc(p_module_base IN VARCHAR2,
6522: p_progress IN NUMBER,
6523: p_po_release_id_tbl IN PO_TBL_NUMBER) IS
6524: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
6525: d_progress NUMBER := p_progress;
6526: l_ship_id_tbl PO_TBL_NUMBER;
6527: l_dist_id_tbl PO_TBL_NUMBER;
6522: p_progress IN NUMBER,
6523: p_po_release_id_tbl IN PO_TBL_NUMBER) IS
6524: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
6525: d_progress NUMBER := p_progress;
6526: l_ship_id_tbl PO_TBL_NUMBER;
6527: l_dist_id_tbl PO_TBL_NUMBER;
6528: l_header_tauc PO_RELEASES_ALL.tax_attribute_update_code%TYPE;
6529: l_ship_tauc_tbl PO_TBL_VARCHAR15;
6530: l_dist_tauc_tbl PO_TBL_VARCHAR15;
6523: p_po_release_id_tbl IN PO_TBL_NUMBER) IS
6524: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
6525: d_progress NUMBER := p_progress;
6526: l_ship_id_tbl PO_TBL_NUMBER;
6527: l_dist_id_tbl PO_TBL_NUMBER;
6528: l_header_tauc PO_RELEASES_ALL.tax_attribute_update_code%TYPE;
6529: l_ship_tauc_tbl PO_TBL_VARCHAR15;
6530: l_dist_tauc_tbl PO_TBL_VARCHAR15;
6531: BEGIN
6597: p_progress IN NUMBER,
6598: p_requisition_header_id IN NUMBER) IS
6599: d_module_base CONSTANT VARCHAR2(100) := p_module_base;
6600: d_progress NUMBER := p_progress;
6601: l_line_id_tbl PO_TBL_NUMBER;
6602: l_header_tauc PO_REQUISITION_HEADERS_ALL.tax_attribute_update_code%TYPE;
6603: l_line_tauc_tbl PO_TBL_VARCHAR15;
6604: BEGIN
6605:
7359: -- Additional Tax Attribute on the Additional Tax Information page and
7360: -- presses Apply
7361: --End of Comments
7362: -----------------------------------------------------------------------------
7363: PROCEDURE unapprove_schedules(p_line_location_id_tbl IN PO_TBL_NUMBER,
7364: x_return_status OUT NOCOPY VARCHAR2
7365: ) IS
7366: l_module_name CONSTANT VARCHAR2(100) := 'UNAPPROVE_SCHEDULES';
7367: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(