[Home] [Help]
18: po_line_locations poll
19: WHERE pol.po_header_id = p_document_id
20: AND NVL(pol.closed_code,'X') <> 'FINALLY CLOSED'
21: AND NVL(poll.closed_code,'X') <> 'FINALLY CLOSED'
22: AND poll.shipment_type IN ('STANDARD','PLANNED')
23: AND pod.line_location_id = poll.line_location_id
24: AND pod.po_line_id = pol.po_line_id
25: AND poll.po_line_id = pol.po_line_id
26: AND nvl(poll.cancel_flag,'N') = 'N'
165:
166: -- Initialize package variable
167: igc_cbc_po_grp.g_is_cbc_po_enabled := 'N';
168:
169: -- Standard call to check for call compatibility
170:
171: IF (NOT FND_API.Compatible_API_Call(l_api_version
172: ,p_api_version
173: ,l_api_name
320: e_document_not_found EXCEPTION;
321:
322: BEGIN
323:
324: -- standard call to check for call compatibility.
325:
326: IF (NOT FND_API.Compatible_API_Call( l_api_version
327: ,p_api_version
328: ,l_api_name
348: FROM financials_system_parameters;
349:
350:
351: IF (p_document_type = 'PO')
352: AND p_document_sub_type IN ('STANDARD','PLANNED')
353: AND NVL(l_purch_encumbrance_flag,'N')='Y' THEN
354:
355: -- Get the minimum and maximum gl dates for the PO distributions
356:
504: l_bpa_enc_required_flag VARCHAR2(1);
505:
506: BEGIN
507:
508: -- Standard Call to check for call compatibility
509:
510: IF (NOT FND_API.Compatible_API_Call( l_api_version
511: ,p_api_version
512: ,l_api_name
539:
540: -- Check if we need to perform any validations
541:
542: IF NOT((p_document_type = 'PO'
543: AND p_document_sub_type IN ('STANDARD','PLANNED')
544: AND NVL(l_purch_encumbrance_flag,'N') = 'Y')
545:
546: OR
547:
706: -- of the GL dates on all the distributions for this document.
707: -- All the distributions should be in the same fiscal year
708:
709: IF p_document_type = 'PO'
710: AND p_document_sub_type IN ('STANDARD', 'PLANNED') -- Bug 3173178
711: THEN
712: -- Get the minimum and maximum gl dates for the PO distributions
713:
714: OPEN c_po_dates(p_document_id);
780: -- is lesser or equal to the accounting date being validated.
781: -- The fiscal years of all the accounting dates should be the same.
782:
783: IF (p_document_type = 'PO')
784: AND p_document_sub_type IN ('STANDARD', 'PLANNED')
785: THEN
786: SELECT max(prh.cbc_accounting_date),
787: min(prh.cbc_accounting_date)
788: INTO l_max_cbc_acc_date,
904: AND NVL(prl.closed_code,'X') <> 'FINALLY CLOSED'
905: AND NVL(prl.cancel_flag,'N') = 'N';
906:
907: ELSIF p_document_type = 'PO'
908: AND p_document_sub_type = 'STANDARD'
909: THEN
910: -- PO sourced from BPA.
911: SELECT MAX(bpa_h.cbc_accounting_date),
912: MIN(bpa_h.cbc_accounting_date)
1105: set_of_books_id
1106: FROM financials_system_parameters ;
1107:
1108: -- Added for PRC.FP.J, get the accounting date for the
1109: -- Blanket Agreements for Standard Purchase Orders.
1110: Cursor c_max_bpa_po_date IS
1111: SELECT max(bpa_h.cbc_accounting_date)
1112: FROM po_headers bpa_h,
1113: Po_lines pol,
1139: l_req_accounting_date DATE;
1140:
1141: BEGIN
1142:
1143: -- Standard call to check for call compatibility.
1144: IF NOT FND_API.Compatible_API_Call(
1145: l_api_version,
1146: p_api_version,
1147: l_api_name,
1167: l_sob_id ;
1168: CLOSE c_fin_info ;
1169:
1170: IF NOT((p_document_type = 'PO'
1171: AND p_document_sub_type IN ('STANDARD','PLANNED')
1172: AND NVL(l_pur_enc_flag,'N') = 'Y')
1173: OR
1174: (p_document_type LIKE 'REQ%'
1175: AND NVL(l_req_enc_flag,'N') = 'Y')
1268: -- and then use the one which is the greatest of the two
1269: l_accounting_date := NULL;
1270: l_req_accounting_date := NULL;
1271: l_bpa_accounting_date := NULL;
1272: IF p_document_sub_type = 'STANDARD'
1273: THEN
1274: OPEN c_max_bpa_po_date ;
1275: FETCH c_max_bpa_po_date INTO l_bpa_accounting_date ;
1276: CLOSE c_max_bpa_po_date ;
1276: CLOSE c_max_bpa_po_date ;
1277: END IF;
1278:
1279: -- Check if the accounting date is available from Requisitions
1280: -- This is true for planned or standard POs
1281: -- End of code added for PRC.FP.J, 3173178
1282: OPEN c_max_req_date ;
1283: FETCH c_max_req_date INTO l_req_accounting_date ;
1284: CLOSE c_max_req_date ;
1460: l_bpa_enc_required_flag VARCHAR2(1);
1461:
1462: BEGIN
1463:
1464: -- Standard call to check for call compatibility.
1465: IF NOT FND_API.Compatible_API_Call(
1466: l_api_version,
1467: p_api_version,
1468: l_api_name,
1488: CLOSE c_fin_info ;
1489:
1490: -- Check if we should be storing the date
1491: IF NOT((p_document_type = 'PO'
1492: AND p_document_sub_type IN ('STANDARD','PLANNED')
1493: AND NVL(l_pur_enc_flag,'N') = 'Y')
1494: OR
1495: (p_document_type LIKE 'REQ%'
1496: AND NVL(l_req_enc_flag,'N') = 'Y')
1737: l_sob_id financials_system_parameters.set_of_books_id%TYPE;
1738:
1739: Begin
1740:
1741: --Standard Call to check for call compatibility
1742:
1743: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1744: p_api_version,
1745: l_api_name,
1792:
1793: IF p_document_type = 'PO'
1794: AND NVL(l_purch_encumbrance_flag,'N')='Y' THEN
1795:
1796: --Standard or Planned PO's only
1797:
1798: IF p_document_sub_type IN ('PLANNED', 'STANDARD')
1799: THEN
1800:
1794: AND NVL(l_purch_encumbrance_flag,'N')='Y' THEN
1795:
1796: --Standard or Planned PO's only
1797:
1798: IF p_document_sub_type IN ('PLANNED', 'STANDARD')
1799: THEN
1800:
1801: FOR l_po_dists_po IN c_po_dists_po
1802: LOOP
1866: END IF; --validation
1867:
1868: END LOOP; --FOR l_po_dists
1869:
1870: END IF; --p_document_subtype IN (PLANNED, STANDARD)
1871:
1872: ELSIF p_document_type LIKE 'REL%'
1873: AND NVL(l_purch_encumbrance_flag,'N')='Y' THEN
1874: