4087: --
4088:
4089: --bug#3987438
4090: --A new table to hold the invalid ship to location codes
4091: TYPE CharTab is TABLE of HR_LOCATIONS_ALL_TL.location_code%type INDEX by BINARY_INTEGER;
4092: l_ship_to_location_tbl CharTab;
4093: --bug#3987438
4094:
4095: BEGIN
4367: BULK COLLECT INTO
4368: l_line_num,
4369: l_ship_to_location_tbl
4370: FROM PO_LINE_LOCATIONS_GT POLG,
4371: HR_LOCATIONS_ALL HLA,
4372: HR_LOCATIONS_ALL_TL HLT
4373: WHERE POLG.po_release_id = p_document_id
4374: AND POLG.ship_to_location_id=HLA.location_id
4375: AND nvl(POLG.cancel_flag,'N') = 'N'
4368: l_line_num,
4369: l_ship_to_location_tbl
4370: FROM PO_LINE_LOCATIONS_GT POLG,
4371: HR_LOCATIONS_ALL HLA,
4372: HR_LOCATIONS_ALL_TL HLT
4373: WHERE POLG.po_release_id = p_document_id
4374: AND POLG.ship_to_location_id=HLA.location_id
4375: AND nvl(POLG.cancel_flag,'N') = 'N'
4376: AND nvl(POLG.closed_code,'OPEN') <> 'FINALLY CLOSED'
7157:
7158: --bug#3987438
7159: --Adding a new variable that would hold the name of the invalid
7160: --ship-to or bill-to location
7161: l_invalid_location HR_LOCATIONS_ALL_TL.location_code%type;
7162: --bug#3987438
7163:
7164: -- CLM Award/ Idv Type
7165: l_clm_po VARCHAR2(1);
7418: ELSE
7419: BEGIN
7420: SELECT hlt.location_code
7421: INTO l_invalid_location
7422: FROM hr_locations_all hla,
7423: hr_locations_all_tl hlt
7424: WHERE hla.location_id = l_ship_to_location_id
7425: AND NVL(TRUNC(hla.inactive_date), TRUNC(SYSDATE)+1 ) <= TRUNC(SYSDATE)
7426: AND hlt.location_id=hla.location_id
7419: BEGIN
7420: SELECT hlt.location_code
7421: INTO l_invalid_location
7422: FROM hr_locations_all hla,
7423: hr_locations_all_tl hlt
7424: WHERE hla.location_id = l_ship_to_location_id
7425: AND NVL(TRUNC(hla.inactive_date), TRUNC(SYSDATE)+1 ) <= TRUNC(SYSDATE)
7426: AND hlt.location_id=hla.location_id
7427: AND hlt.language=USERENV('LANG');
7509: ELSE
7510: BEGIN
7511: SELECT hlt.location_code
7512: INTO l_invalid_location
7513: FROM hr_locations_all hla,
7514: hr_locations_all_tl hlt
7515: WHERE hla.location_id = l_bill_to_location_id
7516: AND NVL(TRUNC(hla.inactive_date), TRUNC(SYSDATE)+1 ) <= TRUNC(SYSDATE)
7517: AND hlt.location_id=hla.location_id
7510: BEGIN
7511: SELECT hlt.location_code
7512: INTO l_invalid_location
7513: FROM hr_locations_all hla,
7514: hr_locations_all_tl hlt
7515: WHERE hla.location_id = l_bill_to_location_id
7516: AND NVL(TRUNC(hla.inactive_date), TRUNC(SYSDATE)+1 ) <= TRUNC(SYSDATE)
7517: AND hlt.location_id=hla.location_id
7518: AND hlt.language=USERENV('LANG');
8227: l_val_contract_limit NUMBER; -- bug3673292
8228:
8229: --bug#3987438
8230: --A new table to hold the invalid ship to location codes
8231: TYPE CharTab is TABLE of HR_LOCATIONS_ALL_TL.location_code%type INDEX by BINARY_INTEGER;
8232: l_ship_to_location_tbl CharTab;
8233: --bug#3987438
8234:
8235: --
9482: l_ship_to_location_tbl
9483: FROM
9484: po_lines_gt pol,
9485: po_line_locations_gt poll,
9486: hr_locations_all hla,
9487: hr_locations_all_tl hlat
9488: WHERE poll.po_header_id=p_document_id
9489: and pol.po_Header_id=p_document_id
9490: and pol.po_line_id = poll.po_line_id
9483: FROM
9484: po_lines_gt pol,
9485: po_line_locations_gt poll,
9486: hr_locations_all hla,
9487: hr_locations_all_tl hlat
9488: WHERE poll.po_header_id=p_document_id
9489: and pol.po_Header_id=p_document_id
9490: and pol.po_line_id = poll.po_line_id
9491: and poll.ship_to_location_id = hla.location_id