The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT icx_po_history_details_s.nextval
INTO v_sequence_num
FROM DUAL;
SELECT *
INTO v_header_to
FROM po_headers_archive
WHERE
po_header_id = p_header_id
AND revision_num = p_revision_num;
SELECT *
INTO v_header_from
FROM po_headers_archive
WHERE
po_header_id = p_header_id
AND revision_num = v_previous_revision_num;
SELECT *
INTO v_release_to
FROM po_releases_archive
WHERE
po_release_id = p_release_id
AND revision_num = p_revision_num;
SELECT *
INTO v_release_from
FROM po_releases_archive
WHERE
po_release_id = p_release_id
AND revision_num = v_previous_revision_num;
* 20-NOV-1997 Rami Haddad Changed cursor to select latest
* revision of lines for the PO, given
* its revision number, p_revision_num.
********************************************************************/
PROCEDURE compare_lines(
p_header_id IN NUMBER,
p_revision_num IN NUMBER,
p_comparison_flag IN VARCHAR2,
p_sequence_num IN NUMBER
) AS
CURSOR current_lines_cursor(
current_header_id NUMBER,
current_revision_num NUMBER ) IS
SELECT *
FROM po_lines_archive pla1
WHERE
po_header_id = current_header_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_lines_archive pla2
WHERE
revision_num <= current_revision_num
AND pla2.po_line_id = pla1.po_line_id
);
SELECT *
INTO v_line_from
FROM po_lines_archive
WHERE
revision_num = (
SELECT MAX( revision_num )
FROM po_lines_archive
WHERE
revision_num <=
v_previous_revision_num
AND po_line_id = v_line_to.po_line_id
)
AND po_line_id = v_line_to.po_line_id;
* 20-NOV-1997 Rami Haddad Changed cursor to select latest
* revision of shipments for the PO,
* given its revision number,
* p_revision_num.
********************************************************************/
PROCEDURE compare_locations(
p_header_id IN NUMBER,
p_release_id IN NUMBER,
p_revision_num IN NUMBER,
p_comparison_flag IN VARCHAR2,
p_sequence_num IN NUMBER
) AS
CURSOR current_locations_cursor(
current_header_id NUMBER,
current_release_id NUMBER,
current_revision_num NUMBER ) IS
SELECT *
FROM po_line_locations_archive plla1
WHERE po_header_id = current_header_id
AND NVL( po_release_id, -99 ) = current_release_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_line_locations_archive plla2
WHERE
revision_num <= current_revision_num
AND plla2.line_location_id = plla1.line_location_id
);
SELECT *
INTO v_loc_from
FROM po_line_locations_archive
WHERE
revision_num = (
SELECT MAX( revision_num )
FROM po_line_locations_archive
WHERE
revision_num <=
v_previous_revision_num
AND line_location_id =
v_loc_to.line_location_id
)
AND line_location_id = v_loc_to.line_location_id;
* 20-NOV-1997 Rami Haddad Changed cursor to select latest
* revision of distributions for the PO,
* given its revision number,
* p_revision_num.
********************************************************************/
PROCEDURE compare_distributions(
p_header_id IN NUMBER,
p_release_id IN NUMBER,
p_revision_num IN NUMBER,
p_comparison_flag IN VARCHAR2,
p_sequence_num IN NUMBER
) AS
CURSOR current_distributions_cursor(
current_header_id NUMBER,
current_release_id NUMBER,
current_revision_num NUMBER
) IS
SELECT *
FROM po_distributions_archive pda1
WHERE
po_header_id = current_header_id
AND NVL( po_release_id, -99 ) = current_release_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_distributions_archive pda2
WHERE
revision_num <= current_revision_num
AND pda2.po_distribution_id = pda1.po_distribution_id
);
SELECT *
INTO v_dist_from
FROM po_distributions_archive
WHERE
revision_num = (
SELECT MAX( revision_num )
FROM po_distributions_archive
WHERE revision_num <=
v_previous_revision_num
AND po_distribution_id =
v_dist_to.po_distribution_id
)
AND po_distribution_id =
v_dist_to.po_distribution_id;
SELECT icx_po_history_details_s.nextval
INTO v_sequence_num
FROM DUAL;
* 24-NOV-1997 Rami Haddad Select PO line with minimum revision
* as the original PO line, instead of
* the one with revision 0.
********************************************************************/
PROCEDURE compare_line(
p_line_id IN NUMBER,
p_revision_num IN NUMBER,
p_comparison_flag IN VARCHAR2,
p_sequence_num IN NUMBER
) AS
v_line_to po_lines_archive%ROWTYPE;
SELECT MIN( revision_num )
INTO v_previous_revision_num
FROM po_lines_archive
WHERE po_line_id = p_line_id;
SELECT *
INTO v_line_to
FROM po_lines_archive pla1
WHERE
po_line_id = p_line_id
AND revision_num = p_revision_num;
SELECT *
INTO v_line_from
FROM po_lines_archive
WHERE
po_line_id = p_line_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_lines_archive
WHERE
revision_num <= v_previous_revision_num
AND po_line_id = p_line_id
);
* 20-NOV-1997 Rami Haddad Changed cursor to select latest
* revision of shipments for the line,
* given its revision number,
* p_revision_num.
********************************************************************/
PROCEDURE compare_line_locs(
p_line_id IN NUMBER,
p_release_id IN NUMBER,
p_revision_num IN NUMBER,
p_comparison_flag IN VARCHAR2,
p_sequence_num IN NUMBER
) AS
CURSOR current_locations(
current_line_id NUMBER,
current_release_id NUMBER
) IS
SELECT *
FROM po_line_locations_archive plla1
WHERE
po_line_id = current_line_id
AND NVL( po_release_id, -99 ) = current_release_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_line_locations_archive plla2
WHERE
revision_num <= p_revision_num
AND plla2.line_location_id = plla1.line_location_id
);
SELECT MIN( revision_num )
INTO v_previous_revision_num
FROM po_lines_archive
WHERE po_line_id = p_line_id;
SELECT *
INTO v_loc_from
FROM po_line_locations_archive
WHERE
line_location_id = v_loc_to.line_location_id
AND revision_num =
(
SELECT MAX(revision_num)
FROM po_line_locations_archive
WHERE
revision_num <=
v_previous_revision_num
AND line_location_id =
v_loc_to.line_location_id
);
* Changed cursor to select latest
* revision of distributions for the
* line, given its revision number,
* p_revision_num.
********************************************************************/
PROCEDURE compare_line_dists(
p_line_id IN NUMBER,
p_release_id IN NUMBER,
p_revision_num IN NUMBER,
p_comparison_flag IN VARCHAR2,
p_sequence_num IN NUMBER
) AS
CURSOR current_distributions(
current_line_id number,
current_release_id number
) IS
SELECT *
FROM po_distributions_archive pda1
WHERE
po_line_id = current_line_id
AND NVL( po_release_id, -99 ) = current_release_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_distributions_archive pda2
WHERE
revision_num <= p_revision_num
AND pda2.po_distribution_id = pda1.po_distribution_id
);
SELECT MIN( revision_num )
INTO v_previous_revision_num
FROM po_lines_archive
WHERE po_line_id = p_line_id;
SELECT *
INTO v_dist_from
FROM po_distributions_archive
WHERE
po_distribution_id =
v_dist_to.po_distribution_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_distributions_archive
WHERE revision_num <=
v_previous_revision_num
AND po_distribution_id =
v_dist_to.po_distribution_id
);