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 nvl(global_agreement_flag,'N')
into x_global_agree_flag
from po_headers_all
where po_header_id = p_header_id;
SELECT *
INTO v_header_to
FROM po_headers_archive_all
WHERE
po_header_id = p_header_id
AND revision_num = p_revision_num;
SELECT *
INTO v_header_from
FROM po_headers_archive_all
WHERE
po_header_id = p_header_id
AND revision_num = v_previous_revision_num;
SELECT *
INTO v_release_to
FROM po_releases_archive_all
WHERE
po_release_id = p_release_id
AND revision_num = p_revision_num;
SELECT *
INTO v_release_from
FROM po_releases_archive_all
WHERE
po_release_id = p_release_id
AND revision_num = v_previous_revision_num;
SELECT *
FROM po_ga_org_assignments_archive pga1
WHERE
po_header_id = current_header_id AND
revision_num = (SELECT MAX( revision_num )
FROM po_ga_org_assignments_archive pga2
WHERE
revision_num <= current_revision_num
AND pga2.organization_id = pga1.organization_id
AND pga2.po_header_id = pga1.po_header_id
);
SELECT *
INTO v_ga_ass_from
FROM po_ga_org_assignments_archive
WHERE
revision_num = (
SELECT MAX( revision_num )
FROM po_ga_org_assignments_archive
WHERE
revision_num <= v_previous_revision_num
AND organization_id = v_ga_ass_to.organization_id
AND po_header_id = v_ga_ass_to.po_header_id
)
AND organization_id = v_ga_ass_to.organization_id
AND po_header_id = v_ga_ass_to.po_header_id;
* 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_all pla1
WHERE
po_header_id = current_header_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_lines_archive_all 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_all
WHERE
revision_num = (
SELECT MAX( revision_num )
FROM po_lines_archive_all
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;
SELECT PDIFF1.PRICE_DIFFERENTIAL_ID,
PDIFF1.PRICE_DIFFERENTIAL_NUM,
PDIFF1.ENTITY_ID ,
PDIFF1.ENTITY_TYPE ,
PDIFF1.PRICE_TYPE ,
PDIFF1.REVISION_NUM ,
PDIFF1.ENABLED_FLAG ,
PDIFF1.MIN_MULTIPLIER ,
PDIFF1.LATEST_EXTERNAL_FLAG,
PDIFF1.MAX_MULTIPLIER ,
PDIFF1.MULTIPLIER ,
PDIFF1.CREATED_BY ,
PDIFF1.CREATION_DATE ,
PDIFF1.LAST_UPDATED_BY ,
PDIFF1.LAST_UPDATE_DATE ,
PDIFF1.LAST_UPDATE_LOGIN
FROM po_price_differentials_archive pdiff1,po_lines_all pol
WHERE
pol.po_header_id = current_header_id and
pol.po_line_id = pdiff1.entity_id and
pol.revision_num = (
SELECT MAX( pdiff2.revision_num )
FROM po_price_differentials_archive pdiff2,
po_lines_all pol2
WHERE
pol2.po_header_id = current_header_id and
pol2.po_line_id = pdiff2.entity_id and
pdiff2.entity_type in ('PO LINE','BLANKET LINE') and
pdiff2.revision_num <= current_revision_num
AND pdiff1.price_differential_id = pdiff2.price_differential_id
);
SELECT *
INTO v_pdiff_from
FROM po_price_differentials_archive
WHERE
revision_num = (
SELECT MAX( revision_num )
FROM po_price_differentials_archive
WHERE
revision_num <= v_previous_revision_num
AND price_differential_id = v_pdiff_to.price_differential_id
)
AND price_differential_id = v_pdiff_to.price_differential_id;
SELECT PDIFF1.PRICE_DIFFERENTIAL_ID,
PDIFF1.PRICE_DIFFERENTIAL_NUM,
PDIFF1.ENTITY_ID ,
PDIFF1.ENTITY_TYPE ,
PDIFF1.PRICE_TYPE ,
PDIFF1.REVISION_NUM ,
PDIFF1.ENABLED_FLAG ,
PDIFF1.MIN_MULTIPLIER ,
PDIFF1.LATEST_EXTERNAL_FLAG,
PDIFF1.MAX_MULTIPLIER ,
PDIFF1.MULTIPLIER ,
PDIFF1.CREATED_BY ,
PDIFF1.CREATION_DATE ,
PDIFF1.LAST_UPDATED_BY ,
PDIFF1.LAST_UPDATE_DATE ,
PDIFF1.LAST_UPDATE_LOGIN
FROM po_price_differentials_archive pdiff1,po_line_locations_all pll
WHERE
pll.po_header_id = current_header_id and
pll.line_location_id = pdiff1.entity_id and
pll.revision_num = (
SELECT MAX( pdiff2.revision_num )
FROM po_price_differentials_archive pdiff2,
po_line_locations_all pll2
WHERE
pll2.po_header_id = current_header_id and
pll2.line_location_id = pdiff2.entity_id and
pdiff2.entity_type in ('PRICE BREAK') and
pdiff2.revision_num <= current_revision_num and
pdiff1.price_differential_id = pdiff2.price_differential_id
);
SELECT *
INTO v_pdiff_from
FROM po_price_differentials_archive
WHERE
revision_num = (
SELECT MAX( revision_num )
FROM po_price_differentials_archive
WHERE
revision_num <= v_previous_revision_num
AND price_differential_id = v_pdiff_to.price_differential_id
)
AND price_differential_id = v_pdiff_to.price_differential_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_all 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_all 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_all
WHERE
revision_num = (
SELECT MAX( revision_num )
FROM po_line_locations_archive_all
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_all 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_all 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_all
WHERE
revision_num = (
SELECT MAX( revision_num )
FROM po_distributions_archive_all
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_all%ROWTYPE;
SELECT MIN( revision_num )
INTO v_previous_revision_num
FROM po_lines_archive_all
WHERE po_line_id = p_line_id;
SELECT *
INTO v_line_to
FROM po_lines_archive_all pla1
WHERE
po_line_id = p_line_id
AND revision_num = p_revision_num;
SELECT *
INTO v_line_from
FROM po_lines_archive_all
WHERE
po_line_id = p_line_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_lines_archive_all
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_all 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_all 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_all
WHERE po_line_id = p_line_id;
SELECT *
INTO v_loc_from
FROM po_line_locations_archive_all
WHERE
line_location_id = v_loc_to.line_location_id
AND revision_num =
(
SELECT MAX(revision_num)
FROM po_line_locations_archive_all
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_all 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_all 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_all
WHERE po_line_id = p_line_id;
SELECT *
INTO v_dist_from
FROM po_distributions_archive_all
WHERE
po_distribution_id =
v_dist_to.po_distribution_id
AND revision_num = (
SELECT MAX( revision_num )
FROM po_distributions_archive_all
WHERE revision_num <=
v_previous_revision_num
AND po_distribution_id =
v_dist_to.po_distribution_id
);