[Home] [Help]
57:
58: begin
59:
60: l_progress := '000';
61: -- Standard call to check for call compatibility
62:
63: IF (NOT FND_API.Compatible_API_Call(l_api_version
64: ,p_api_version
65: ,l_api_name
235: l_progress varchar2(3);
236: begin
237:
238: l_progress := '000';
239: if ((p_doc_subtype <> 'STANDARD') AND (p_doc_subtype <> 'PLANNED') AND
240: (p_doc_subtype <> 'BLANKET') AND (p_doc_subtype <> 'CONTRACT')) THEN
241: PO_MESSAGE_S.APP_ERROR(error_name => 'PO_ALL_TRACE_ERROR',
242: token1 => 'FILE',
243: value1 => 'PO_DOCUMENT_REVISION_GRP',
246: token3 => 'SUBROUTINE',
247: value3 => 'Check_PO_PA_Revision()');
248: return FALSE;
249:
250: end if; /*(p_doc_subtype<>'STANDARD') AND (p_doc_subtype<>'PLANNED') */
251: /* Check whether the header revision is same as the archived
252: * Revision. If it is different then dont continue.
253: */
254: l_progress := '020';
309:
310: l_progress := '040';
311:
312: if ((p_table_name ='ALL') OR (p_table_name = 'LINES')) THEN
313: if ((p_doc_subtype = 'STANDARD') OR
314: (p_doc_subtype = 'PLANNED') OR
315: (p_doc_subtype = 'BLANKET')) THEN
316: compare_table(p_doc_id => p_doc_id,
317: p_doc_subtype => p_doc_subtype,
320: p_line_id => p_line_id, --
321: p_line_location_id => p_line_location_id, --
322: p_chk_cancel_flag => p_chk_cancel_flag, --
323: x_different => x_different);
324: end if; /*p_doc_subtype = 'STANDARD') OR ...*/
325:
326: if (x_different = 'Y') then
327: return TRUE;
328: end if;
327: return TRUE;
328: end if;
329: END IF; /*(p_table_name ='ALL' OR (p_table_name = 'LINES')*/
330:
331: /* Subtypes STANDARD and PLANNED and BLANKET need to have
332: * their shipments checked if p_table_name in ('ALL', 'SHIPMENTS').
333: */
334:
335: l_progress := '050';
333: */
334:
335: l_progress := '050';
336: if ((p_table_name ='ALL') OR (p_table_name = 'SHIPMENTS')) THEN
337: if ((p_doc_subtype = 'STANDARD') OR
338: (p_doc_subtype = 'PLANNED')) THEN
339: compare_table(p_doc_id => p_doc_id,
340: p_doc_subtype => p_doc_subtype,
341: p_type => 'PORCH_PO',
359: x_different => x_different);
360: if (x_different = 'Y') then
361: return TRUE;
362: end if;
363: end if; /*p_doc_subtype = 'STANDARD') OR ...*/
364:
365: END IF; /*(p_table_name ='ALL' OR (p_table_name = 'SHIPMENTS')*/
366:
367: -- SERVICES FPJ Start
364:
365: END IF; /*(p_table_name ='ALL' OR (p_table_name = 'SHIPMENTS')*/
366:
367: -- SERVICES FPJ Start
368: -- Check the price differentials table for standard PO's and GA's
369:
370: l_progress := '060';
371: IF p_table_name = 'PO_LINE_PRICE_DIFF'
372: THEN
369:
370: l_progress := '060';
371: IF p_table_name = 'PO_LINE_PRICE_DIFF'
372: THEN
373: IF (p_doc_subtype = 'STANDARD') OR
374: (PO_GA_PVT.is_global_agreement(p_doc_id))
375: THEN
376: compare_table(p_doc_id => p_doc_id,
377: p_doc_subtype => p_doc_subtype,
412: -- SERVICES FPJ End
413:
414: l_progress := '080';
415: if ((p_table_name ='ALL') OR (p_table_name = 'DISTRIBUTIONS')) THEN
416: if ((p_doc_subtype = 'STANDARD') OR
417: (p_doc_subtype = 'PLANNED')) THEN
418: compare_table(p_doc_id => p_doc_id,
419: p_doc_subtype => p_doc_subtype,
420: p_type => 'PORCH_PO',
422: p_line_id => p_line_id, --
423: p_line_location_id => p_line_location_id, --
424: p_chk_cancel_flag => p_chk_cancel_flag, --
425: x_different => x_different);
426: end if; /*p_doc_subtype = 'STANDARD') OR ...*/
427:
428: if (x_different = 'Y') then
429: return TRUE;
430: end if;
1723: -- All attributes that cause revision change except cancel_flag/closed_code are compared
1724: --Parameters:
1725: --IN:
1726: --p_api_version
1727: -- Standard API Version
1728: --p_doc_id
1729: -- The Document ID of the PO/PA/Release
1730: --p_doc_type
1731: -- The Document Type indicating PO, PA, or RELEASE
1742: -- Y If Archival exists and differences exist
1743: -- N If Archival exists and no differences exist
1744: -- M If archival record is missing.
1745: --x_return_status
1746: -- Standard API Return Status S, U, E
1747: --Testing:
1748: -- Test for all Types of Documents and Entity Levels
1749: --End of Comments
1750: -------------------------------------------------------------------------------
1776: END IF;
1777: END IF;
1778:
1779: l_progress := '010';
1780: --Standard call to check for call compatibility
1781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1783: END IF;
1784:
2023:
2024: --Parameters:
2025: --IN:
2026: --p_api_version
2027: -- Standard API Version
2028: --p_doc_id
2029: -- The Document ID of the PO/PA/Release
2030: --p_doc_type
2031: -- The Document Type indicating PO, PA, or RELEASE
2041: --x_msg
2042: -- This will have value if the entity is different than its previous revision
2043: -- based on above explained check.
2044: --x_return_status
2045: -- Standard API Return Status S, U, E
2046: --Testing:
2047: -- Test for all Types of Documents and Entity Levels
2048: --End of Comments
2049: -------------------------------------------------------------------------------