[Home] [Help]
11: -- This is used as a delimiter in constructing the error msgs
12: g_delim CONSTANT VARCHAR2(1) := ' ';
13:
14: --Contains message 'Line#'
15: g_linemsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_LINE'), 1,25);
16:
17: --Contains message 'Schedule#'
18: g_shipmsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_SCHEDULE'), 1,25);
19:
14: --Contains message 'Line#'
15: g_linemsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_LINE'), 1,25);
16:
17: --Contains message 'Schedule#'
18: g_shipmsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_SCHEDULE'), 1,25);
19:
20: --Contains message 'Distribution#'
21: g_distmsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_DISTRIBUTION'), 1,25);
22:
17: --Contains message 'Schedule#'
18: g_shipmsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_SCHEDULE'), 1,25);
19:
20: --Contains message 'Distribution#'
21: g_distmsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_DISTRIBUTION'), 1,25);
22:
23: --Contains message 'Price Break#'
24: g_price_breakmsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_PRICE_BREAK'), 1,25);
25:
20: --Contains message 'Distribution#'
21: g_distmsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_DISTRIBUTION'), 1,25);
22:
23: --Contains message 'Price Break#'
24: g_price_breakmsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_PRICE_BREAK'), 1,25);
25:
26: --Contains message 'Quantity'
27: g_qtymsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_SUB_TOKEN_QUANTITY'),1,25);
28:
23: --Contains message 'Price Break#'
24: g_price_breakmsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_ZMVOR_PRICE_BREAK'), 1,25);
25:
26: --Contains message 'Quantity'
27: g_qtymsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_SUB_TOKEN_QUANTITY'),1,25);
28:
29: --
30: --Contains message 'Shipment Quantity'
31: g_shipqtymsg CONSTANT VARCHAR2(40) := substrb(FND_MESSAGE.GET_STRING('PO', 'PO_SUB_TOKEN_SHIP_QUANTITY'),1,40);
27: g_qtymsg CONSTANT VARCHAR2(75) := substr(FND_MESSAGE.GET_STRING('PO', 'PO_SUB_TOKEN_QUANTITY'),1,25);
28:
29: --
30: --Contains message 'Shipment Quantity'
31: g_shipqtymsg CONSTANT VARCHAR2(40) := substrb(FND_MESSAGE.GET_STRING('PO', 'PO_SUB_TOKEN_SHIP_QUANTITY'),1,40);
32:
33: --Contains message 'Distribution Quantity'
34: g_distqtymsg CONSTANT VARCHAR2(40) := substrb(FND_MESSAGE.GET_STRING('PO', 'PO_SUB_TOKEN_DIST_QUANTITY'),1,40);
35:
30: --Contains message 'Shipment Quantity'
31: g_shipqtymsg CONSTANT VARCHAR2(40) := substrb(FND_MESSAGE.GET_STRING('PO', 'PO_SUB_TOKEN_SHIP_QUANTITY'),1,40);
32:
33: --Contains message 'Distribution Quantity'
34: g_distqtymsg CONSTANT VARCHAR2(40) := substrb(FND_MESSAGE.GET_STRING('PO', 'PO_SUB_TOKEN_DIST_QUANTITY'),1,40);
35:
36: G_PKG_NAME CONSTANT varchar2(30) := 'PO_DOCUMENT_CHECKS_PVT';
37:
38: g_log_head CONSTANT VARCHAR2(50) := 'po.plsql.'|| G_PKG_NAME || '.';
655: CLOSE c_vendor_eligibility;
656:
657: IF l_enable_epls = 'Y' AND l_eligibility = 'NOTRUN' THEN
658:
659: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_VENDOR_ELIGIBILITY_NOTRUN');
660:
661: INSERT INTO po_online_report_text_gt
662: (online_report_id
663: ,last_updated_by
690: END IF;
691:
692: IF l_enable_epls = 'Y' AND l_eligibility = 'INELIGIBILE' THEN
693:
694: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_VENDOR_ELIGIBILITY_INVALID');
695:
696: INSERT INTO po_online_report_text_gt
697: (online_report_id
698: ,last_updated_by
850: CLOSE c_not_par;
851:
852: IF l_enable_wdol = 'Y' AND l_wdol_attachment_exists = 'N' AND l_not_par = 'Y' THEN
853:
854: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_WDOL_NOTRUN');
855:
856: INSERT INTO po_online_report_text_gt
857: (online_report_id
858: ,last_updated_by
1019:
1020:
1021: IF l_enable_eda = 'Y' AND l_validate_pds_status = 'N' AND l_not_par = 'Y' THEN
1022:
1023: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_VALIDATE_PDS_NOTRUN');
1024:
1025: INSERT INTO po_online_report_text_gt
1026: (online_report_id
1027: ,last_updated_by
1562: 0,
1563: 0,
1564: 0,
1565: p_sequence +1,
1566: FND_MESSAGE.GET_STRING('PO', 'PO_PRINT_FORM_FORMAT_INVALID'),
1567: 'PO_PRINT_FORM_FORMAT_INVALID',
1568: 'E'
1569: FROM po_drafts phmv
1570: WHERE phmv.draft_id = p_draft_id
1605: 0,
1606: 0,
1607: 0,
1608: p_sequence +1,
1609: FND_MESSAGE.GET_STRING('PO', 'PO_PRINT_FORM_FORMAT_INVALID'),
1610: 'PO_PRINT_FORM_FORMAT_INVALID',
1611: 'E'
1612: FROM po_headers_all phmv
1613: WHERE phmv.po_header_id = l_document_id
1680: SYSDATE,
1681: 0,
1682: 0,
1683: p_sequence+1,
1684: FND_MESSAGE.GET_STRING('PO', 'PO_PRICING_MISMATCH'),
1685: 'PO_PRICING_MISMATCH',
1686: 'E',
1687: pol.line_num
1688: FROM po_lines_gt pol,
1731: SYSDATE,
1732: 0,
1733: 0,
1734: p_sequence+1,
1735: FND_MESSAGE.GET_STRING('PO', 'PO_PRICING_MISMATCH'),
1736: 'PO_PRICING_MISMATCH',
1737: 'E',
1738: pol.line_num
1739: FROM po_lines_gt pol
1860: 0,
1861: 0,
1862: 0,
1863: p_sequence+1,
1864: FND_MESSAGE.GET_STRING('PO', 'PO_FBO_JA_NOT_POSTED'),
1865: 'PO_FBO_JA_NOT_POSTED',
1866: 'W'
1867: );
1868: END;
2003: 0,
2004: 0,
2005: 0,
2006: p_sequence,
2007: FND_MESSAGE.GET_STRING('PO', 'PO_CLM_CAR_NOT_REPORTED'),
2008: 'PO_CLM_CAR_NOT_REPORTED',
2009: 'W'
2010: );
2011: ELSIF (l_reporting_method = 'SINGLE_CAR' AND
2037: 0,
2038: 0,
2039: 0,
2040: p_sequence,
2041: FND_MESSAGE.GET_STRING('PO', 'PO_CLM_CAR_NOT_AUTHENTICATED'),
2042: 'PO_CLM_CAR_NOT_AUTHENTICATED',
2043: 'W'
2044: );
2045: END IF;
3499: END IF;
3500:
3501: -- Check 1: Each Requisition Header must have atleast one line
3502: -- PO_SUB_REQ_HEADER_NO_LINES
3503: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REQ_HEADER_NO_LINES');
3504: INSERT INTO po_online_report_text_gt(online_report_id,
3505: last_update_login,
3506: last_updated_by,
3507: last_update_date,
3552:
3553: l_clm_req := PO_CLM_INTG_GRP.is_clm_document( p_doc_type => 'REQUISITION',
3554: p_document_id => p_document_id );
3555:
3556: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REQ_LINE_NO_DIST');
3557: INSERT INTO po_online_report_text_gt(online_report_id,
3558: last_update_login,
3559: last_updated_by,
3560: last_update_date,
3717:
3718: -- Check 4:Lines with SOURCE type as INVENTORY can have one only one dist
3719: -- PO_SUB_REQ_SOURCE_ONE_DIST
3720:
3721: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REQ_SOURCE_ONE_DIST');
3722: INSERT INTO po_online_report_text_gt(online_report_id,
3723: last_update_login,
3724: last_updated_by,
3725: last_update_date,
3765: END IF;
3766:
3767: -- Check 5: Requistion Rate cannot be NULL if using a foreign currency vendor
3768: -- PO_SUB_REQ_RATE_NULL
3769: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REQ_RATE_NULL');
3770: INSERT INTO po_online_report_text_gt(online_report_id,
3771: last_update_login,
3772: last_updated_by,
3773: last_update_date,
3853: END IF;
3854:
3855: -- Check 7: Requisitions cannot have ATO/CTO model items (Bug 3362369)
3856: -- PO_ATO_ITEM_NA
3857: l_textline := FND_MESSAGE.GET_STRING('PO','PO_ATO_ITEM_NA');
3858: INSERT INTO po_online_report_text_gt(online_report_id,
3859: last_update_login,
3860: last_updated_by,
3861: last_update_date,
3930: 'REQ 10: Calculate tax has errored out');
3931: END IF;
3932: END IF;
3933:
3934: l_tax_message := fnd_message.get_string('PO','PO_TAX_CALCULATION')||' : ' ;
3935:
3936: FOR i IN 1..po_tax_interface_pvt.G_TAX_ERRORS_TBL.MESSAGE_TEXT.COUNT
3937: LOOP
3938: INSERT INTO po_online_report_text_gt
3983: l_textline := l_textline || po_tax_interface_pvt.G_TAX_ERRORS_TBL.MESSAGE_TEXT(1);
3984: ELSE
3985: l_textline := l_textline || SQLERRM();
3986: END IF;
3987: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
3988: fnd_message.set_token('ERROR',l_textline);
3989: FND_MSG_PUB.Add;
3990: l_progress := '014';
3991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3984: ELSE
3985: l_textline := l_textline || SQLERRM();
3986: END IF;
3987: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
3988: fnd_message.set_token('ERROR',l_textline);
3989: FND_MSG_PUB.Add;
3990: l_progress := '014';
3991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3992: END IF;
4111: -- PO_SUB_REL_PA_APPROVED
4112: --< Bug 3422733 > Only do this check if the BPA is not ON HOLD. The ON HOLD
4113: -- check is done later. Avoids showing 2 msgs for BPA that is ON HOLD.
4114:
4115: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REL_PA_APPROVED');
4116: INSERT INTO po_online_report_text_gt(online_report_id,
4117: last_update_login,
4118: last_updated_by,
4119: last_update_date,
4168: --WITH IN THE TOLERANCE SPECIFIED BY THE PROFILE "PO: Release Creation Tolerance For Expired Blankets; in Days",
4169: --CHANGED THE WHERE CLAUSE TO EXCEEDE THE END DATE BY THE TOLERANCE VALUE
4170:
4171:
4172: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REL_PA_EXPIRED');
4173: INSERT INTO po_online_report_text_gt(online_report_id,
4174: last_update_login,
4175: last_updated_by,
4176: last_update_date,
4216: -- Check 3: Purchase Agreement assocaited with this release must not be
4217: -- on hold
4218: -- PO_SUB_REL_PA_ON_HOLD
4219:
4220: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REL_PA_ON_HOLD');
4221: INSERT INTO po_online_report_text_gt(online_report_id,
4222: last_update_login,
4223: last_updated_by,
4224: last_update_date,
4262:
4263: -- Check 4: Associated Purchase Agreement's supplier should not be on hold
4264: -- PO_SUB_REL_VENDOR_ON_HOLD
4265:
4266: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REL_VENDOR_ON_HOLD');
4267: INSERT INTO po_online_report_text_gt(online_report_id,
4268: last_update_login,
4269: last_updated_by,
4270: last_update_date,
4311:
4312: -- Check 5: Every Release must have atleast one shipment
4313: -- PO_SUB_REL_NO_SHIP
4314:
4315: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REL_NO_SHIP');
4316: INSERT INTO po_online_report_text_gt(online_report_id,
4317: last_update_login,
4318: last_updated_by,
4319: last_update_date,
4614:
4615: -- Check 8: All Release shipments should have atleast one distribution
4616: -- PO_SUB_REL_SHIP_NO_DIST
4617:
4618: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REL_SHIP_NO_DIST');
4619: INSERT INTO po_online_report_text_gt(online_report_id,
4620: last_update_login,
4621: last_updated_by,
4622: last_update_date,
4666: -- Check 9: Rate on the Release shipment must not be NULL if using a foreign
4667: -- currency vendor. We are using foreign currency if the currency on PO
4668: -- Header does not match Set of Books currency
4669: -- PO_SUB_REL_RATE_NULL
4670: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REL_RATE_NULL');
4671: INSERT INTO po_online_report_text_gt(online_report_id,
4672: last_update_login,
4673: last_updated_by,
4674: last_update_date,
4725: -- Check 10:Release total amount must be greater than Purchase Agreement
4726: -- minimum release amount
4727: -- PO_SUB_REL_AMT_LESS_MINREL_AMT
4728:
4729: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REL_AMT_LESS_MINREL_AMT');
4730: INSERT INTO po_online_report_text_gt(online_report_id,
4731: last_update_login,
4732: last_updated_by,
4733: last_update_date,
4868:
4869: --
4870:
4871:
4872: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REL_AMT_GRT_LIMIT_AMT');
4873: INSERT INTO po_online_report_text_gt (online_report_id,
4874: last_update_login,
4875: last_updated_by,
4876: last_update_date,
4920: -- Check 12: The Amount being released for all shipments for a particular line
4921: -- must be greater than the min release amount specified in agreement line
4922: -- PO_SUB_REL_SHIPAMT_LESS_MINREL
4923:
4924: l_textline := FND_MESSAGE.GET_STRING('PO','PO_SUB_REL_SHIPAMT_LESS_MINREL');
4925: SELECT
4926: POL.line_num,
4927: 0,
4928: 0,
5049: -- Message inserted is:
5050: --'Shipment#
5051: -- is disabled
5052: -- Bug #1630662
5053: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_UOM_CLASS_CONVERSION');
5054: INSERT INTO po_online_report_text_gt(online_report_id,
5055: last_update_login,
5056: last_updated_by,
5057: last_update_date,
5112: is restricted by checking 'Use approved supplier list' there should be
5113: atlease one approved ASL either at item level or at category level
5114: if there is no item ASL*/
5115:
5116: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_ITEM_NOT_APPROVED_REL');
5117: INSERT INTO po_online_report_text_gt(online_report_id,
5118: last_update_login,
5119: last_updated_by,
5120: last_update_date,
5214: Need to remove the join with mtl_item_categories for one
5215: time items as there will not be any record
5216: */
5217:
5218: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_ITEM_ASL_DEBARRED_REL');
5219: INSERT INTO po_online_report_text_gt(online_report_id,
5220: last_update_login,
5221: last_updated_by,
5222: last_update_date,
5296: END IF;
5297:
5298: -- Check 17: ATO/CTO Model items not allowed on Releases (Bug 3362369)
5299:
5300: l_textline := FND_MESSAGE.get_string('PO', 'PO_ATO_ITEM_NA');
5301:
5302: INSERT INTO po_online_report_text_gt(
5303: online_report_id,
5304: last_update_login,
5356: END IF;
5357:
5358: -- Check 018: Item has to purchasable
5359:
5360: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ALL_NO_ITEM');
5361: INSERT INTO po_online_report_text_gt(online_report_id,
5362: last_update_login,
5363: last_updated_by,
5364: last_update_date,
5409: END IF;
5410: -- Check 19: Release should not be on hold (Bug 3678912)
5411: -- PO_ON_HOLD_CANNOT_APPROVE
5412:
5413: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ON_HOLD_CANNOT_APPROVE');
5414: INSERT INTO po_online_report_text_gt(online_report_id,
5415: last_update_login,
5416: last_updated_by,
5417: last_update_date,
5455: -- Check 20: Vendor should be valid when approving the document.
5456: -- Important for reapproval, to avoid the case when the vendor has
5457: -- been invalidated by first successful approval.
5458:
5459: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_PDOI_INVALID_VENDOR');
5460: ---------------------------------------------------------------------------
5461: if (l_vendor_id is NOT NULL) then
5462: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
5463: fnd_message.set_token('VALUE', to_char(l_vendor_id), FALSE);
5458:
5459: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_PDOI_INVALID_VENDOR');
5460: ---------------------------------------------------------------------------
5461: if (l_vendor_id is NOT NULL) then
5462: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
5463: fnd_message.set_token('VALUE', to_char(l_vendor_id), FALSE);
5464: l_textline := substr(fnd_message.get, 1, 240);
5465:
5466:
5459: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_PDOI_INVALID_VENDOR');
5460: ---------------------------------------------------------------------------
5461: if (l_vendor_id is NOT NULL) then
5462: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
5463: fnd_message.set_token('VALUE', to_char(l_vendor_id), FALSE);
5464: l_textline := substr(fnd_message.get, 1, 240);
5465:
5466:
5467: INSERT INTO po_online_report_text_gt(online_report_id,
5460: ---------------------------------------------------------------------------
5461: if (l_vendor_id is NOT NULL) then
5462: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
5463: fnd_message.set_token('VALUE', to_char(l_vendor_id), FALSE);
5464: l_textline := substr(fnd_message.get, 1, 240);
5465:
5466:
5467: INSERT INTO po_online_report_text_gt(online_report_id,
5468: last_update_login,
5504: -------------------------------------------------------------------------------------
5505: -- Check 21: check the validity of the vendor site.
5506: if (l_vendor_site_id is not null) then
5507:
5508: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR_SITE');
5509: fnd_message.set_token('VALUE', to_char(l_vendor_site_id), FALSE);
5510: l_textline := substr(fnd_message.get, 1, 240);
5511:
5512: INSERT INTO po_online_report_text_gt(online_report_id,
5505: -- Check 21: check the validity of the vendor site.
5506: if (l_vendor_site_id is not null) then
5507:
5508: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR_SITE');
5509: fnd_message.set_token('VALUE', to_char(l_vendor_site_id), FALSE);
5510: l_textline := substr(fnd_message.get, 1, 240);
5511:
5512: INSERT INTO po_online_report_text_gt(online_report_id,
5513: last_update_login,
5506: if (l_vendor_site_id is not null) then
5507:
5508: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR_SITE');
5509: fnd_message.set_token('VALUE', to_char(l_vendor_site_id), FALSE);
5510: l_textline := substr(fnd_message.get, 1, 240);
5511:
5512: INSERT INTO po_online_report_text_gt(online_report_id,
5513: last_update_login,
5514: last_updated_by,
5548: -------------------------------------------------------------------------------------
5549: -- check 22: validate vendor contact
5550: if (l_vendor_contact_id is not null) then
5551:
5552: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VDR_CNTCT');
5553: fnd_message.set_token('VALUE', to_char(l_vendor_contact_id), FALSE);
5554: l_textline := substr(fnd_message.get, 1, 240);
5555:
5556: INSERT INTO po_online_report_text_gt(online_report_id,
5549: -- check 22: validate vendor contact
5550: if (l_vendor_contact_id is not null) then
5551:
5552: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VDR_CNTCT');
5553: fnd_message.set_token('VALUE', to_char(l_vendor_contact_id), FALSE);
5554: l_textline := substr(fnd_message.get, 1, 240);
5555:
5556: INSERT INTO po_online_report_text_gt(online_report_id,
5557: last_update_login,
5550: if (l_vendor_contact_id is not null) then
5551:
5552: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VDR_CNTCT');
5553: fnd_message.set_token('VALUE', to_char(l_vendor_contact_id), FALSE);
5554: l_textline := substr(fnd_message.get, 1, 240);
5555:
5556: INSERT INTO po_online_report_text_gt(online_report_id,
5557: last_update_login,
5558: last_updated_by,
5655: END IF;
5656: END IF;
5657: l_progress := '023';
5658:
5659: l_tax_message := fnd_message.get_string('PO','PO_TAX_CALCULATION')||' : ' ;
5660:
5661: FOR i IN 1..po_tax_interface_pvt.G_TAX_ERRORS_TBL.MESSAGE_TEXT.COUNT
5662: LOOP
5663: INSERT INTO po_online_report_text_gt
5707: l_textline := l_textline || po_tax_interface_pvt.G_TAX_ERRORS_TBL.MESSAGE_TEXT(1);
5708: ELSE
5709: l_textline := l_textline || SQLERRM();
5710: END IF;
5711: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
5712: fnd_message.set_token('ERROR',l_textline);
5713: FND_MSG_PUB.Add;
5714: l_progress := '025';
5715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5708: ELSE
5709: l_textline := l_textline || SQLERRM();
5710: END IF;
5711: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
5712: fnd_message.set_token('ERROR',l_textline);
5713: FND_MSG_PUB.Add;
5714: l_progress := '025';
5715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5716: END IF;
5729: || l_progress,'Rel 25: LCM enabled release shipment should have invoice match option as receipt');
5730: END IF;
5731: END IF;
5732: -- Check 25: Validation for LCM enabled release to check whether its shipment has invoice match option as 'Receipt'
5733: l_textline := FND_MESSAGE.GET_STRING('PO','PO_SUB_REL_SHIP_INV_MATCH_NE_R');
5734: INSERT INTO po_online_report_text_gt (online_report_id,
5735: last_update_login,
5736: last_updated_by,
5737: last_update_date,
5774: || l_progress,'Rel 26: LCM enabled release distribution should have destination type as Inventory');
5775: END IF;
5776: END IF;
5777: -- Check 26: Validation for LCM enabled release to check whether its distribution has destination type as 'Inventory'
5778: l_textline := FND_MESSAGE.GET_STRING('PO','PO_SUB_REL_DIST_DEST_TYPE_NE_I');
5779: INSERT INTO po_online_report_text_gt (online_report_id,
5780: last_update_login,
5781: last_updated_by,
5782: last_update_date,
5822: END IF;
5823: -- Check 27: Buyer on the release should not be inactive
5824: -- PO_BUYER_INACTIVE
5825:
5826: l_textline := substr(FND_MESSAGE.GET_STRING('PO', 'PO_BUYER_INACTIVE'),1,240);
5827: INSERT INTO po_online_report_text_gt(online_report_id,
5828: last_update_login,
5829: last_updated_by,
5830: last_update_date,
6505: IF (l_ship_price_ext_precn > ROUND((l_req_line_price_ext_precn * l_shipment_to_req_rate*(1+l_price_tolerance_allowed)),l_pou_func_curr_ext_precn))
6506: THEN
6507:
6508: l_progress := '019';
6509: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REQ_PRICE_TOL_EXCEED');
6510: INSERT
6511: INTO po_online_report_text_gt
6512: (
6513: online_report_id ,
6724: ) THEN
6725: --
6726: l_progress := '030';
6727: --Report the price tolerance error
6728: l_textline := FND_MESSAGE.GET_STRING('PO',
6729: 'PO_SUB_REQ_PRICE_TOL_EXCEED');
6730: INSERT into po_online_report_text_gt(
6731: online_report_id,
6732: last_update_login,
6866: )
6867: THEN
6868:
6869: l_progress := '060';
6870: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REQ_AMT_TOL_EXCEED');
6871: INSERT
6872: INTO po_online_report_text_gt
6873: (
6874: online_report_id ,
7043: THEN
7044: l_progress := '080';
7045: --Report the price amount exceeded error
7046: l_textline :=
7047: FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REQ_AMT_TOL_EXCEED');
7048: INSERT into po_online_report_text_gt(
7049: online_report_id,
7050: last_update_login,
7051: last_updated_by,
7181:
7182: -- Check 1: Purchase Order vendor should not be on hold
7183: -- PO_SUB_VENDOR_ON_HOLD
7184:
7185: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_VENDOR_ON_HOLD');
7186: INSERT INTO po_online_report_text_gt(online_report_id,
7187: last_update_login,
7188: last_updated_by,
7189: last_update_date,
7257: END IF;
7258: -- Check 2: When no rows are returned, its likely that there
7259: --are problems with system setup
7260: --
7261: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_SYSTEM_SETUP');
7262: INSERT INTO po_online_report_text_gt(online_report_id,
7263: last_update_login,
7264: last_updated_by,
7265: last_update_date,
7304: END IF;
7305:
7306: --Check 3: vendor_id is NULL
7307: IF l_vendor_id IS NULL THEN
7308: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_ENTER_VENDOR');
7309: INSERT INTO po_online_report_text_gt(online_report_id,
7310: last_update_login,
7311: last_updated_by,
7312: last_update_date,
7344: END IF;
7345:
7346: --Check 4: vendor_site_id is NULL
7347: IF l_vendor_site_id IS NULL THEN
7348: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_ENTER_VENDOR_SITE');
7349: INSERT INTO po_online_report_text_gt(online_report_id,
7350: last_update_login,
7351: last_updated_by,
7352: last_update_date,
7384: END IF;
7385:
7386: --Check 5: ship_to_location_id is NULL
7387: IF l_ship_to_location_id IS NULL THEN
7388: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_NO_SHIP_TO_LOC_ID');
7389: INSERT INTO po_online_report_text_gt(online_report_id,
7390: last_update_login,
7391: last_updated_by,
7392: last_update_date,
7475:
7476: --Check 6: bill_to_location_id is NULL
7477: IF l_bill_to_location_id IS NULL THEN
7478:
7479: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_NO_BILL_TO_LOC_ID');
7480: INSERT INTO po_online_report_text_gt(online_report_id,
7481: last_update_login,
7482: last_updated_by,
7483: last_update_date,
7562: END IF;
7563:
7564: --Check 7: currency_code is NULL
7565: IF l_currency_code IS NULL THEN
7566: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_NO_CURRENCY_CODE');
7567: INSERT INTO po_online_report_text_gt(online_report_id,
7568: last_update_login,
7569: last_updated_by,
7570: last_update_date,
7605: IF l_currency_code <> l_sob_currency_code AND
7606: (l_rate_type IS NULL OR l_rate IS NULL OR
7607: (l_rate_type <> 'User' AND l_rate_date IS NULL)) -- Bug 3759198
7608: THEN
7609: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_NO_RATE_TYPE');
7610: INSERT INTO po_online_report_text_gt(online_report_id,
7611: last_update_login,
7612: last_updated_by,
7613: last_update_date,
7651: -- contains any Lines with Value Basis of "Rate".
7652:
7653: IF ( l_rate_type = 'User' ) THEN
7654:
7655: l_textline := FND_MESSAGE.get_string('PO','PO_SUB_USER_RATE_TYPE');
7656:
7657: INSERT INTO po_online_report_text_gt
7658: ( online_report_id
7659: , last_update_login
7705: END IF;
7706: -- Check 10: Purchase Order should not be on hold (Bug 3678912)
7707: -- PO_ON_HOLD_CANNOT_APPROVE
7708:
7709: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ON_HOLD_CANNOT_APPROVE');
7710: INSERT INTO po_online_report_text_gt(online_report_id,
7711: last_update_login,
7712: last_updated_by,
7713: last_update_date,
7744: -- been invalidated by first successful approval.
7745:
7746: /* Need to find out.
7747:
7748: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
7749: fnd_message.set_token('VALUE', to_char(x_vendor_id), FALSE);
7750: l_textline := fnd_message.get;
7751:
7752: */
7745:
7746: /* Need to find out.
7747:
7748: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
7749: fnd_message.set_token('VALUE', to_char(x_vendor_id), FALSE);
7750: l_textline := fnd_message.get;
7751:
7752: */
7753:
7746: /* Need to find out.
7747:
7748: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
7749: fnd_message.set_token('VALUE', to_char(x_vendor_id), FALSE);
7750: l_textline := fnd_message.get;
7751:
7752: */
7753:
7754: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_PDOI_INVALID_VENDOR');
7750: l_textline := fnd_message.get;
7751:
7752: */
7753:
7754: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_PDOI_INVALID_VENDOR');
7755:
7756: if (l_vendor_id is NOT NULL) then
7757: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
7758: fnd_message.set_token('VALUE', to_char(l_vendor_id), FALSE);
7753:
7754: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_PDOI_INVALID_VENDOR');
7755:
7756: if (l_vendor_id is NOT NULL) then
7757: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
7758: fnd_message.set_token('VALUE', to_char(l_vendor_id), FALSE);
7759: l_textline := substr(fnd_message.get, 1, 240);
7760:
7761:
7754: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_PDOI_INVALID_VENDOR');
7755:
7756: if (l_vendor_id is NOT NULL) then
7757: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
7758: fnd_message.set_token('VALUE', to_char(l_vendor_id), FALSE);
7759: l_textline := substr(fnd_message.get, 1, 240);
7760:
7761:
7762: INSERT INTO po_online_report_text_gt(online_report_id,
7755:
7756: if (l_vendor_id is NOT NULL) then
7757: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR');
7758: fnd_message.set_token('VALUE', to_char(l_vendor_id), FALSE);
7759: l_textline := substr(fnd_message.get, 1, 240);
7760:
7761:
7762: INSERT INTO po_online_report_text_gt(online_report_id,
7763: last_update_login,
7798:
7799: -- Check 12: check the validity of the vendor site.
7800: if (l_vendor_site_id is not null) then
7801:
7802: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR_SITE');
7803: fnd_message.set_token('VALUE', to_char(l_vendor_site_id), FALSE);
7804: l_textline := substr(fnd_message.get, 1, 240);
7805:
7806: INSERT INTO po_online_report_text_gt(online_report_id,
7799: -- Check 12: check the validity of the vendor site.
7800: if (l_vendor_site_id is not null) then
7801:
7802: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR_SITE');
7803: fnd_message.set_token('VALUE', to_char(l_vendor_site_id), FALSE);
7804: l_textline := substr(fnd_message.get, 1, 240);
7805:
7806: INSERT INTO po_online_report_text_gt(online_report_id,
7807: last_update_login,
7800: if (l_vendor_site_id is not null) then
7801:
7802: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VENDOR_SITE');
7803: fnd_message.set_token('VALUE', to_char(l_vendor_site_id), FALSE);
7804: l_textline := substr(fnd_message.get, 1, 240);
7805:
7806: INSERT INTO po_online_report_text_gt(online_report_id,
7807: last_update_login,
7808: last_updated_by,
7841:
7842: -- check 13: validate vendor contact
7843: if (l_vendor_contact_id is not null) then
7844:
7845: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VDR_CNTCT');
7846: fnd_message.set_token('VALUE', to_char(l_vendor_contact_id), FALSE);
7847: l_textline := substr(fnd_message.get, 1, 240);
7848:
7849: INSERT INTO po_online_report_text_gt(online_report_id,
7842: -- check 13: validate vendor contact
7843: if (l_vendor_contact_id is not null) then
7844:
7845: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VDR_CNTCT');
7846: fnd_message.set_token('VALUE', to_char(l_vendor_contact_id), FALSE);
7847: l_textline := substr(fnd_message.get, 1, 240);
7848:
7849: INSERT INTO po_online_report_text_gt(online_report_id,
7850: last_update_login,
7843: if (l_vendor_contact_id is not null) then
7844:
7845: fnd_message.set_name('PO', 'PO_PDOI_INVALID_VDR_CNTCT');
7846: fnd_message.set_token('VALUE', to_char(l_vendor_contact_id), FALSE);
7847: l_textline := substr(fnd_message.get, 1, 240);
7848:
7849: INSERT INTO po_online_report_text_gt(online_report_id,
7850: last_update_login,
7851: last_updated_by,
7911: -- CLM apprvl checks. If acceptance is required for a document then there must exist a valid vendor contact with valid user name associated with it
7912: if l_acceptance_required in ('S') then
7913: -- check 14: Check if vendor contact is available.
7914: if l_vendor_contact_id is null then
7915: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_ENTER_VENDOR_CONTACT');
7916: INSERT INTO po_online_report_text_gt(online_report_id,
7917: last_update_login,
7918: last_updated_by,
7919: last_update_date,
7941: --Increment the p_sequence with number of errors reported in last query
7942: p_sequence := p_sequence + 1;
7943: else
7944: -- check 15: Check if vendor contact has a valid fnd user.
7945: fnd_message.set_name('PO', 'PO_CONTACT_WITHOUT_VALID_USER');
7946: fnd_message.set_token('VALUE', to_char(l_vendor_contact_id), FALSE);
7947: l_textline := substr(fnd_message.get, 1, 240);
7948:
7949: INSERT INTO po_online_report_text_gt(online_report_id,
7942: p_sequence := p_sequence + 1;
7943: else
7944: -- check 15: Check if vendor contact has a valid fnd user.
7945: fnd_message.set_name('PO', 'PO_CONTACT_WITHOUT_VALID_USER');
7946: fnd_message.set_token('VALUE', to_char(l_vendor_contact_id), FALSE);
7947: l_textline := substr(fnd_message.get, 1, 240);
7948:
7949: INSERT INTO po_online_report_text_gt(online_report_id,
7950: last_update_login,
7943: else
7944: -- check 15: Check if vendor contact has a valid fnd user.
7945: fnd_message.set_name('PO', 'PO_CONTACT_WITHOUT_VALID_USER');
7946: fnd_message.set_token('VALUE', to_char(l_vendor_contact_id), FALSE);
7947: l_textline := substr(fnd_message.get, 1, 240);
7948:
7949: INSERT INTO po_online_report_text_gt(online_report_id,
7950: last_update_login,
7951: last_updated_by,
7992: -- CLM Award Type
7993: -- Check 16: Award/IDV Type should not be NULL
7994: -- PO_SUB_AWARD_TYPE_NULL
7995:
7996: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_AWARD_TYPE_NULL');
7997: INSERT INTO po_online_report_text_gt(online_report_id,
7998: last_update_login,
7999: last_updated_by,
8000: last_update_date,
8030:
8031: -- Check 17: Order of IDV Type without source IDV or External IDV
8032: -- PO_SUB_IDV_WITHOUT_SOURCE
8033:
8034: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_IDV_WITHOUT_SOURCE');
8035: INSERT INTO po_online_report_text_gt(online_report_id,
8036: last_update_login,
8037: last_updated_by,
8038: last_update_date,
8071:
8072: -- Check 18: Award Type with source IDV or External IDV
8073: -- PO_SUB_IDV_WITHOUT_SOURCE
8074:
8075: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_AWARD_WITH_SOURCE');
8076: INSERT INTO po_online_report_text_gt(online_report_id,
8077: last_update_login,
8078: last_updated_by,
8079: last_update_date,
8114: --
8115: -- Check 19: Buyer on the po/pa should not be inactive
8116: -- PO_BUYER_INACTIVE
8117:
8118: l_textline := substr(FND_MESSAGE.GET_STRING('PO', 'PO_BUYER_INACTIVE'),1,240);
8119: INSERT INTO po_online_report_text_gt(online_report_id,
8120: last_update_login,
8121: last_updated_by,
8122: last_update_date,
8280:
8281: -- Check 1: Header must have at least one line
8282: -- PO_SUB_HEADER_NO_LINES
8283: -- Message inserted is 'Purchase Document has no lines'
8284: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_HEADER_NO_LINES');
8285: INSERT INTO po_online_report_text_gt(online_report_id,
8286: last_update_login,
8287: last_updated_by,
8288: last_update_date,
8331:
8332: l_is_complex_po := PO_COMPLEX_WORK_PVT.is_complex_work_po(p_document_id);
8333:
8334: IF (l_is_complex_po) THEN
8335: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_PAYITEMS');
8336: ELSE
8337: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_SCHEDULES');
8338: END IF;
8339:
8333:
8334: IF (l_is_complex_po) THEN
8335: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_PAYITEMS');
8336: ELSE
8337: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_SCHEDULES');
8338: END IF;
8339:
8340: FND_MESSAGE.SET_NAME('PO','PO_SUB_LINE_NO_SHIP');
8341: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
8336: ELSE
8337: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_SCHEDULES');
8338: END IF;
8339:
8340: FND_MESSAGE.SET_NAME('PO','PO_SUB_LINE_NO_SHIP');
8341: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
8342:
8343: l_textline := FND_MESSAGE.GET;
8344: INSERT INTO po_online_report_text_gt(online_report_id,
8337: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_SCHEDULES');
8338: END IF;
8339:
8340: FND_MESSAGE.SET_NAME('PO','PO_SUB_LINE_NO_SHIP');
8341: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
8342:
8343: l_textline := FND_MESSAGE.GET;
8344: INSERT INTO po_online_report_text_gt(online_report_id,
8345: last_update_login,
8339:
8340: FND_MESSAGE.SET_NAME('PO','PO_SUB_LINE_NO_SHIP');
8341: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
8342:
8343: l_textline := FND_MESSAGE.GET;
8344: INSERT INTO po_online_report_text_gt(online_report_id,
8345: last_update_login,
8346: last_updated_by,
8347: last_update_date,
8394:
8395: --
8396:
8397: IF (l_is_complex_po) THEN
8398: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_P_PAYITEM');
8399: ELSE
8400: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
8401: END IF;
8402:
8396:
8397: IF (l_is_complex_po) THEN
8398: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_P_PAYITEM');
8399: ELSE
8400: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
8401: END IF;
8402:
8403: IF (l_clm_document <> 'Y') THEN
8404: FND_MESSAGE.SET_NAME('PO', 'PO_SUB_SHIP_NO_DIST');
8400: l_line_loc_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
8401: END IF;
8402:
8403: IF (l_clm_document <> 'Y') THEN
8404: FND_MESSAGE.SET_NAME('PO', 'PO_SUB_SHIP_NO_DIST');
8405: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
8406: l_textline := FND_MESSAGE.GET;
8407: ELSE
8408: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CLM_SUB_SHIP_NO_DIST_WARN');
8401: END IF;
8402:
8403: IF (l_clm_document <> 'Y') THEN
8404: FND_MESSAGE.SET_NAME('PO', 'PO_SUB_SHIP_NO_DIST');
8405: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
8406: l_textline := FND_MESSAGE.GET;
8407: ELSE
8408: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CLM_SUB_SHIP_NO_DIST_WARN');
8409: END IF;
8402:
8403: IF (l_clm_document <> 'Y') THEN
8404: FND_MESSAGE.SET_NAME('PO', 'PO_SUB_SHIP_NO_DIST');
8405: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
8406: l_textline := FND_MESSAGE.GET;
8407: ELSE
8408: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CLM_SUB_SHIP_NO_DIST_WARN');
8409: END IF;
8410:
8404: FND_MESSAGE.SET_NAME('PO', 'PO_SUB_SHIP_NO_DIST');
8405: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
8406: l_textline := FND_MESSAGE.GET;
8407: ELSE
8408: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CLM_SUB_SHIP_NO_DIST_WARN');
8409: END IF;
8410:
8411: INSERT INTO po_online_report_text_gt(online_report_id,
8412: last_update_login,
8490: -- if the po header currency code is not the same as the sets of
8491: -- books currency code.
8492: -- PO_SUB_DIST_RATE_NULL
8493:
8494: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_DIST_RATE_NULL');
8495: INSERT INTO po_online_report_text_gt(online_report_id,
8496: last_update_login,
8497: last_updated_by,
8498: last_update_date,
8549: END IF;
8550:
8551: -- Check 7: If using functional currency then rate has to be null.
8552: -- PO_SUB_DIST_RATE_NOT_NULL
8553: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_DIST_RATE_NOT_NULL');
8554: INSERT INTO po_online_report_text_gt(online_report_id,
8555: last_update_login,
8556: last_updated_by,
8557: last_update_date,
8618: );
8619:
8620: IF (l_val_contract_limit = 0) THEN
8621:
8622: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_CONTRACT_AMT_LIMIT');
8623: INSERT INTO po_online_report_text_gt(online_report_id,
8624: last_update_login,
8625: last_updated_by,
8626: last_update_date,
8668: -- PO_SUB_REF_UNAPPROVED_CONTRACT
8669: --< Bug 3422733 > Only do this check if Contract is not ON HOLD. The ON HOLD
8670: -- check is done later. Avoids showing 2 msgs for Contract that is ON HOLD.
8671:
8672: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_REF_UNAPPROVED_CONTRACT');
8673: INSERT INTO po_online_report_text_gt(online_report_id,
8674: last_update_login,
8675: last_updated_by,
8676: last_update_date,
8727: -- contract whose vendor is different than the one on PO header.
8728: -- PO_SUB_LINE_CONTRACT_MISMATCH
8729: --< CLM Novation > bug13059027 - This check is a Warning for OrderOfIDV Modifications
8730: -- or Re-approval Base docs whose Supplier is different from that of referenced IDV
8731: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_LINE_CONTRACT_MISMATCH');
8732: INSERT INTO po_online_report_text_gt(online_report_id,
8733: last_update_login,
8734: last_updated_by,
8735: last_update_date,
8822: -- Message inserted is:
8823: --'Line#
8824: -- is disabled
8825: -- Bug #1630662
8826: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_UOM_CLASS_CONVERSION');
8827: INSERT INTO po_online_report_text_gt(online_report_id,
8828: last_update_login,
8829: last_updated_by,
8830: last_update_date,
8933: is restricted by checking 'Use approved supplier list' there should be
8934: atlease one approved ASL either at item level or at category level
8935: if there is no item ASL*/
8936:
8937: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_ITEM_NOT_APPROVED');
8938: INSERT INTO po_online_report_text_gt(online_report_id,
8939: last_update_login,
8940: last_updated_by,
8941: last_update_date,
9037: supplier flag'. This check would apply even for one time items.
9038: If supplier is debarred in any of the ASL item/category (Global/Local)
9039: (Suplier/Supplier+site) then the approval of the PO will not be allowed */
9040:
9041: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_ITEM_ASL_DEBARRED');
9042: INSERT INTO po_online_report_text_gt(online_report_id,
9043: last_update_login,
9044: last_updated_by,
9045: last_update_date,
9122:
9123: -- Check 15: Contract referenced on a PO line should not be on hold
9124: -- (If contract is in incomplete status)
9125:
9126: l_textline := FND_MESSAGE.get_string('PO', 'PO_SUB_LINE_CONTRACT_HOLD');
9127:
9128: INSERT INTO po_online_report_text_gt(
9129: online_report_id,
9130: last_update_login,
9178:
9179: -- Check 16: Creation date of the contract should be within the effective
9180: -- dates of the contracts referenced
9181:
9182: l_textline := FND_MESSAGE.get_string('PO', 'PO_SUB_LINE_CONTRACT_EXP');
9183:
9184: INSERT INTO po_online_report_text_gt(
9185: online_report_id,
9186: last_update_login,
9234: END IF;
9235:
9236: -- Check 17: ATO/CTO Model items not allowed on PO's (Bug 3362369)
9237:
9238: l_textline := FND_MESSAGE.get_string('PO', 'PO_ATO_ITEM_NA');
9239: --Bug10064616
9240: INSERT INTO po_online_report_text_gt(
9241: online_report_id,
9242: last_update_login,
9292: l_api_name||'.' || l_progress,
9293: 'PO 18: Non Purchasable Item is not allowed');
9294: END IF;
9295: END IF;
9296: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ALL_NO_ITEM');
9297: --Bug10064616
9298: INSERT INTO po_online_report_text_gt(online_report_id,
9299: last_update_login,
9300: last_updated_by,
9342: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9343: l_api_name||'.' || l_progress,
9344: 'PO 19: Non Purchasable Item is not allowed'); END IF;
9345: END IF;
9346: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ALL_NO_ITEM');
9347: INSERT INTO po_online_report_text_gt(online_report_id,
9348: last_update_login,
9349: last_updated_by,
9350: last_update_date,
9403:
9404: -- Check 20: Either Promised Date or Need by date is required for planned
9405: -- items (ECO 4503425 for HTML Orders R12)
9406:
9407: l_textline := FND_MESSAGE.get_string('PO', 'PO_PO_PLANNED_ITEM_DATE_REQ');
9408:
9409: INSERT INTO po_online_report_text_gt(
9410: online_report_id,
9411: last_update_login,
9575: l_api_name||'.' || l_progress,
9576: 'PO 23: Calculate tax has errored out');
9577: END IF;
9578: END IF;
9579: l_tax_message := fnd_message.get_string('PO','PO_TAX_CALCULATION')||' : ' ;
9580: FOR i IN 1..po_tax_interface_pvt.G_TAX_ERRORS_TBL.MESSAGE_TEXT.COUNT
9581: LOOP
9582: INSERT INTO po_online_report_text_gt
9583: (
9626: l_textline := l_textline || po_tax_interface_pvt.G_TAX_ERRORS_TBL.MESSAGE_TEXT(1);
9627: ELSE
9628: l_textline := l_textline || SQLERRM();
9629: END IF;
9630: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
9631: fnd_message.set_token('ERROR',l_textline);
9632: FND_MSG_PUB.Add;
9633: l_progress := '025';
9634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9627: ELSE
9628: l_textline := l_textline || SQLERRM();
9629: END IF;
9630: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
9631: fnd_message.set_token('ERROR',l_textline);
9632: FND_MSG_PUB.Add;
9633: l_progress := '025';
9634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9635: END IF;
9658: fnd_profile.get(PO_PROFILES.PO_VMI_DISPLAY_WARNING,l_po_vmi_display_warning);
9659:
9660: IF (l_po_vmi_display_warning = 'Y') THEN
9661:
9662: l_textline := FND_MESSAGE.get_string('PO', 'PO_SUB_VMI_ASL_EXISTS');
9663:
9664: INSERT INTO po_online_report_text_gt(
9665: online_report_id,
9666: last_update_login,
9897: nvl(pol.closed_code,'OPEN') <> 'FINALLY CLOSED' AND
9898: poll.shipment_type in ('STANDARD','PLANNED')
9899: )
9900: LOOP
9901: FND_MESSAGE.SET_NAME('PO','PO_PDOI_SHIP_PRICE_NE_LINE');
9902: FND_MESSAGE.SET_TOKEN('SHIP_PRICE', price_rec.price_override);
9903: FND_MESSAGE.SET_TOKEN('LINE_PRICE',price_rec.unit_price);
9904: l_textline := FND_MESSAGE.GET;
9905:
9898: poll.shipment_type in ('STANDARD','PLANNED')
9899: )
9900: LOOP
9901: FND_MESSAGE.SET_NAME('PO','PO_PDOI_SHIP_PRICE_NE_LINE');
9902: FND_MESSAGE.SET_TOKEN('SHIP_PRICE', price_rec.price_override);
9903: FND_MESSAGE.SET_TOKEN('LINE_PRICE',price_rec.unit_price);
9904: l_textline := FND_MESSAGE.GET;
9905:
9906: INSERT INTO po_online_report_text_gt
9899: )
9900: LOOP
9901: FND_MESSAGE.SET_NAME('PO','PO_PDOI_SHIP_PRICE_NE_LINE');
9902: FND_MESSAGE.SET_TOKEN('SHIP_PRICE', price_rec.price_override);
9903: FND_MESSAGE.SET_TOKEN('LINE_PRICE',price_rec.unit_price);
9904: l_textline := FND_MESSAGE.GET;
9905:
9906: INSERT INTO po_online_report_text_gt
9907: (online_report_id,
9900: LOOP
9901: FND_MESSAGE.SET_NAME('PO','PO_PDOI_SHIP_PRICE_NE_LINE');
9902: FND_MESSAGE.SET_TOKEN('SHIP_PRICE', price_rec.price_override);
9903: FND_MESSAGE.SET_TOKEN('LINE_PRICE',price_rec.unit_price);
9904: l_textline := FND_MESSAGE.GET;
9905:
9906: INSERT INTO po_online_report_text_gt
9907: (online_report_id,
9908: last_update_login,
9942: l_api_name||'.' || l_progress,'PO 24: Validate the LCM enabled PO to check whether its invoice match option is set as Receipt');
9943: END IF;
9944: END IF;
9945: -- Check 24: Validate the LCM enabled PO to check whether its invoice match option is set as 'Receipt'.
9946: l_textline := FND_MESSAGE.GET_STRING('PO','PO_SUB_PO_SHIP_INV_MATCH_NE_R');
9947: INSERT INTO po_online_report_text_gt (online_report_id,
9948: last_update_login,
9949: last_updated_by,
9950: last_update_date,
9993:
9994:
9995: END IF;
9996: -- Check 25: Validate the LCM enabled PO to check whether its destination type is set as 'Inventory'
9997: l_textline := FND_MESSAGE.GET_STRING('PO','PO_SUB_PO_DIST_DEST_TYPE_NE_IN');
9998: INSERT INTO po_online_report_text_gt (online_report_id,
9999: last_update_login,
10000: last_updated_by,
10001: last_update_date,
10236: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
10237: l_progress,'PO 28: Total Funded Value of Distributions should be less than Funds remaining on the backing Requisition');
10238: END IF;
10239:
10240: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_FUNDED_VAL_GT_REQ_FUNDS');
10241: INSERT INTO po_online_report_text_gt(
10242: online_report_id,
10243: last_update_login,
10244: last_updated_by,
10347: BEGIN
10348: l_clm_po := PO_CLM_INTG_GRP.is_clm_document( p_doc_type => 'PO',
10349: p_document_id => p_document_id );
10350:
10351: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_IDV_REF_NOT_EQUAL');
10352:
10353: INSERT INTO po_online_report_text_gt(online_report_id,
10354: last_update_login,
10355: last_updated_by,
10462: -- Check 1: The amount agreed specified on the planned po and blanket
10463: -- pa should be less than the amount limit.
10464: -- PO_SUB_AGREED_GRT_LIMIT
10465:
10466: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_AGREED_GRT_LIMIT');
10467: INSERT INTO po_online_report_text_gt(online_report_id,
10468: last_update_login,
10469: last_updated_by,
10470: last_update_date,
10511: -- Check 2: The min release amount specified on the planned po and
10512: -- blanket pa should be less than the amount limit.
10513: -- PO_SUB_MINREL_GRT_LIMIT
10514:
10515: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_MINREL_GRT_LIMIT');
10516: INSERT INTO po_online_report_text_gt(online_report_id,
10517: last_update_login,
10518: last_updated_by,
10519: last_update_date,
10572: -- Check 3: The Amount Limit should be greater than the total of all
10573: -- Releases.
10574: -- PO_SUB_LIMIT_GRT_REL_AMT
10575:
10576: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_LIMIT_GRT_REL_AMT');
10577: INSERT INTO po_online_report_text_gt(online_report_id,
10578: last_update_login,
10579: last_updated_by,
10580: last_update_date,
10667: -- Check 4: The price limit when price_override_flag = 'Y' should be
10668: -- at least as large as the unit price for that line.
10669: -- PO_SVC_PRICE_LIMIT_LT_PRICE
10670:
10671: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SVC_PRICE_LIMIT_LT_PRICE');
10672:
10673:
10674: INSERT into po_online_report_text_gt(online_report_id,
10675: last_update_login,
10783:
10784: -- Check 1: Blanket Header must have at least one line
10785: -- PO_SUB_HEADER_NO_LINES
10786: -- Message inserted is 'Purchase Document has no lines'
10787: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_HEADER_NO_LINES');
10788: INSERT INTO po_online_report_text_gt(online_report_id,
10789: last_update_login,
10790: last_updated_by,
10791: last_update_date,
10825: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10826: || l_progress,'PA BLANKET 2: BPA header end date expired.');
10827: END IF;
10828: END IF;
10829: l_textline := FND_MESSAGE.GET_STRING('PO','PO_SUB_HEADER_END_DATED');
10830:
10831: INSERT INTO po_online_report_text_gt(
10832: online_report_id,
10833: last_update_login,
10912: l_api_name||'.' || l_progress,
10913: 'PO 04: Non Purchasable Item is not allowed');
10914: END IF;
10915: END IF;
10916: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ALL_NO_ITEM');
10917: INSERT INTO po_online_report_text_gt(online_report_id,
10918: last_update_login,
10919: last_updated_by,
10920: last_update_date,
10994: CASE
10995: WHEN pll.start_date < ph.start_date
10996: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
10997: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
10998: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES1),1,240)
10999: WHEN pll.end_date > ph.end_date
11000: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11001: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11002: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES),1,240)
10998: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES1),1,240)
10999: WHEN pll.end_date > ph.end_date
11000: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11001: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11002: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES),1,240)
11003: WHEN pll.start_date > ph.end_date
11004: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11005: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11006: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES4),1,240)
11002: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES),1,240)
11003: WHEN pll.start_date > ph.end_date
11004: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11005: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11006: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES4),1,240)
11007: WHEN pll.end_date < ph.start_date
11008: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11009: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11010: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES5),1,240)
11006: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES4),1,240)
11007: WHEN pll.end_date < ph.start_date
11008: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11009: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11010: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES5),1,240)
11011: WHEN pll.start_date > pl.expiration_date
11012: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11013: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11014: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES6),1,240)
11010: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES5),1,240)
11011: WHEN pll.start_date > pl.expiration_date
11012: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11013: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11014: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES6),1,240)
11015: WHEN pll.end_date > pl.expiration_date
11016: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11017: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11018: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES2),1,240)
11014: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES6),1,240)
11015: WHEN pll.end_date > pl.expiration_date
11016: THEN substr(g_linemsg||g_delim||pl.line_num||g_delim
11017: ||g_price_breakmsg||g_delim||pll.shipment_num||g_delim
11018: ||FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EFFECTIVE_DATES2),1,240)
11019: END
11020: ,
11021: CASE
11022: WHEN pll.start_date < ph.start_date
11059: END IF;
11060:
11061: -- Bug 9816849 : Added condition to avoid checking expiration date for lines
11062: -- having canceled_flag=Y
11063: l_textline := FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.POX_EXPIRATION_DATES);
11064: INSERT INTO po_online_report_text_gt(online_report_id,
11065: last_update_login,
11066: last_updated_by,
11067: last_update_date,
11111: -- must be listed in the Approved Suppliers List table and must not be
11112: -- DEBARRED.
11113: -- PO_SUB_ITEM_ASL_DEBARRED
11114:
11115: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_ITEM_ASL_DEBARRED');
11116: INSERT INTO po_online_report_text_gt(online_report_id,
11117: last_update_login,
11118: last_updated_by,
11119: last_update_date,
11445: -- Organization cannot be used to create a consigned shipment because
11446: -- order line contains a document reference. Enter a new order line
11447: -- for this shipment.
11448:
11449: -- l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUP_CONS_DOC_REF_COEXIST');
11450: --
11451: -- INSERT INTO
11452: -- po_online_report_text_gt(online_report_id,
11453: -- last_update_login,
11522: -- item_id and ship_to_organization_id, in the bulk collct select statement.
11523: -- SQL Why: Consigned status on shipments and that on ASL must match
11524: -- SQL Join: po_header_id, po_line_id
11525:
11526: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUP_CONS_STATUS_MISMATCH');
11527:
11528: SELECT POH.vendor_id,
11529: POH.vendor_site_id,
11530: POL.item_id,
11750:
11751: --
11752: --Check 1: The GA should be enabled for purchasing in the current OU.
11753: --< Shared Proc FPJ > Bug 3301427: Only do this check for new SPO lines
11754: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_GA_DISABLED');
11755: INSERT into po_online_report_text_gt(online_report_id,
11756: last_update_login,
11757: last_updated_by,
11758: last_update_date,
11819: --< Shared Proc FPJ > Bug 3301427: Only do this check for new SPO lines
11820: --< Bug 3422733 > Only do this check if GA is not ON HOLD. The ON HOLD check
11821: -- is done later. Avoids showing 2 msgs for Contract that is ON HOLD.
11822:
11823: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_GA_APPROVED');
11824: INSERT into po_online_report_text_gt(online_report_id,
11825: last_update_login,
11826: last_updated_by,
11827: last_update_date,
11876: END IF;
11877:
11878: --Check 3: The GA should not be on hold.
11879: --< Shared Proc FPJ > Bug 3301427: Only do this check for new SPO lines
11880: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_GA_ON_HOLD');
11881: INSERT into po_online_report_text_gt(online_report_id,
11882: last_update_login,
11883: last_updated_by,
11884: last_update_date,
11937:
11938: --Check 4: The vendor on the PO should match the GA.
11939: --< CLM Novation > bug13059027 - This check is a Warning for OrderOfIDV Modifications
11940: -- or Re-approval Base docs whose Supplier is different from that of referenced IDV
11941: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_GA_VENDOR_MISMATCH');
11942: INSERT into po_online_report_text_gt(online_report_id,
11943: last_update_login,
11944: last_updated_by,
11945: last_update_date,
11995: --< Shared Proc FPJ > Bug 3301427: Only do this check for new SPO lines
11996: --< CLM Novation > bug13059027 - This check is a Warning for OrderOfIDV Modifications
11997: -- or Re-approval Base docs whose Supplier is different from that of referenced IDV
11998: l_textline :=
11999: FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_GA_VDR_SITE_MISMT');
12000: INSERT into po_online_report_text_gt(online_report_id,
12001: last_update_login,
12002: last_updated_by,
12003: last_update_date,
12064: --Check 6: The PO creation date should be before Blanket(GA) or
12065: -- corresponding Line expiration date
12066: --Bug8847964 the need by date should be just greater than the start date of the blanket
12067: -- and can be later to the end date.
12068: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_AFTER_GA_DATE');
12069: INSERT into po_online_report_text_gt(online_report_id,
12070: last_update_login,
12071: last_updated_by,
12072: last_update_date,
12128: END IF;
12129:
12130: --Check 7: The Need-by-date (or if NULL the PO creation date) should be
12131: -- after the start dates of the GA
12132: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_BEFORE_GA_DATE');
12133: INSERT into po_online_report_text_gt(online_report_id,
12134: last_update_login,
12135: last_updated_by,
12136: last_update_date,
12182: END IF;
12183: END IF;
12184:
12185: --Check 8: The currency_code on the PO should match the GA.
12186: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_GA_CURR_MISMATCH');
12187: INSERT into po_online_report_text_gt(online_report_id,
12188: last_update_login,
12189: last_updated_by,
12190: last_update_date,
12351:
12352: END LOOP;
12353:
12354: l_textline :=
12355: FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_AMT_GRT_GA_AMT_LMT');
12356:
12357: --Go through all lines in current PO (which refer to a GA)
12358: FOR l_curr_doc_line_index IN 1..l_curr_doc_line_num.COUNT LOOP
12359:
12505: --Check 11: The total amount on all the lines on the standard PO
12506: --referencing same GA line should be greater than the minimum release amount
12507: --on the GA line.
12508: l_textline := -- <2710030>
12509: FND_MESSAGE.GET_STRING('PO','PO_SUB_STD_GA_LINE_LESS_MINREL');
12510: INSERT into po_online_report_text_gt(online_report_id,
12511: last_update_login,
12512: last_updated_by,
12513: last_update_date,
12671: -- Check 1: Current OU should still be enabled for purchasing on the GC
12672: -- being referenced
12673: --< Shared Proc FPJ > Bug 3301427: Only do this check for new SPO lines
12674:
12675: l_textline := FND_MESSAGE.get_string ('PO', 'PO_SUB_STD_GC_NOT_EN_PUR');
12676:
12677: INSERT INTO po_online_report_text_gt (
12678: online_report_id,
12679: last_update_login,
12745: Skip Vendor Site validation for Contracts having "Enable All Sites" is set to Y
12746: */
12747: --< CLM Novation > bug13059027 - This check is a Warning for OrderOfIDV Modifications
12748: -- or Re-approval Base docs whose Supplier is different from that of referenced IDV
12749: l_textline := FND_MESSAGE.get_string ('PO', 'PO_SUB_STD_GC_INVALID_SITE');
12750:
12751: INSERT INTO po_online_report_text_gt (
12752: online_report_id,
12753: last_update_login,
12973: 'PO STD GC 3: Amount Released Check');
12974: END IF;
12975: END IF;
12976:
12977: l_textline := FND_MESSAGE.get_string('PO',
12978: 'PO_SUB_STD_CONTRACT_AMT_LIMIT');
12979:
12980: -- Go through all lines in current PO (which refer to GCs)
12981: FOR l_curr_doc_line_index IN 1..l_curr_doc_line_num.COUNT LOOP
13027: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13028: || l_progress,'PO STD GC 4: Exp Date Check on Source Document');
13029: END IF;
13030: END IF;
13031: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_AFTER_GA_DATE');
13032: INSERT INTO po_online_report_text_gt (
13033: online_report_id,
13034: last_update_login,
13035: last_updated_by,
13147: -- PO_SUB_CONTRACT_AMT_LIMIT
13148: --
13149: --instead of summing up the Line Loc values. The results should be
13150: --equivalent for SPOs.
13151: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_CONTRACT_AMT_LIMIT');
13152: INSERT INTO po_online_report_text_gt(online_report_id,
13153: last_update_login,
13154: last_updated_by,
13155: last_update_date,
13337: l_textline := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
13338: p_encoded => 'F');
13339:
13340: IF l_textline = NULL THEN
13341: l_textline := FND_MESSAGE.GET_STRING('IGC',
13342: 'IGC_MULT_FISCAL_YEARS');
13343: END IF;
13344: --Deleting msg so that we can always use G_Last to get the
13345: --message we want
17120:
17121: l_progress := '050';
17122:
17123: IF x_return_status is null THEN -- no valid check status request specified
17124: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
17125: FND_MESSAGE.set_token('ERROR_TEXT', 'No Valid p_mode specified !');
17126: FND_MSG_PUB.Add;
17127: RAISE FND_API.G_EXC_ERROR;
17128: END IF;
17121: l_progress := '050';
17122:
17123: IF x_return_status is null THEN -- no valid check status request specified
17124: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
17125: FND_MESSAGE.set_token('ERROR_TEXT', 'No Valid p_mode specified !');
17126: FND_MSG_PUB.Add;
17127: RAISE FND_API.G_EXC_ERROR;
17128: END IF;
17129:
18349: IF g_debug_stmt THEN
18350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_msg_name',l_msg_name);
18351: END IF;
18352:
18353: l_textline := FND_MESSAGE.get_string('PO',l_msg_name);
18354:
18355: l_progress := '040';
18356: IF g_debug_stmt THEN
18357: PO_DEBUG.debug_var(l_log_head,l_progress,'l_textline',l_textline);
18853: ' Vendor site registration is not valid');
18854: END IF;
18855: END IF;
18856:
18857: l_text_line := FND_MESSAGE.get_string('PO', 'PO_VENDOR_SITE_CCR_INVALID');
18858: INSERT INTO po_online_report_text_gt
18859: (online_report_id
18860: ,last_updated_by
18861: ,last_update_date
19244: THEN
19245:
19246: d_progress := 10;
19247:
19248: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POH_WITH_RCV_TRX');
19249:
19250: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19251: ( online_report_id
19252: , last_update_login
19296: ELSE
19297:
19298: d_progress := 20;
19299:
19300: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_REL_WITH_RCV_TRX');
19301:
19302: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19303: ( online_report_id
19304: , last_update_login
19351: THEN
19352:
19353: d_progress := 30;
19354:
19355: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POL_WITH_RCV_TRX');
19356:
19357: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19358: ( online_report_id
19359: , last_update_login
19409: THEN
19410: l_is_complex_po := PO_COMPLEX_WORK_PVT.is_complex_work_po(p_document_id);
19411:
19412: IF (l_is_complex_po) THEN
19413: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_P_PAYITEM');
19414: ELSE
19415: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
19416: END IF;
19417:
19411:
19412: IF (l_is_complex_po) THEN
19413: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_P_PAYITEM');
19414: ELSE
19415: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
19416: END IF;
19417:
19418: FND_MESSAGE.SET_NAME('PO','PO_CAN_POLL_WITH_RCV_TRX');
19419: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_token_value);
19414: ELSE
19415: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
19416: END IF;
19417:
19418: FND_MESSAGE.SET_NAME('PO','PO_CAN_POLL_WITH_RCV_TRX');
19419: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_token_value);
19420:
19421: l_textline := FND_MESSAGE.GET;
19422: ELSE
19415: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
19416: END IF;
19417:
19418: FND_MESSAGE.SET_NAME('PO','PO_CAN_POLL_WITH_RCV_TRX');
19419: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_token_value);
19420:
19421: l_textline := FND_MESSAGE.GET;
19422: ELSE
19423: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_RELS_WITH_RCV_TRX');
19417:
19418: FND_MESSAGE.SET_NAME('PO','PO_CAN_POLL_WITH_RCV_TRX');
19419: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_token_value);
19420:
19421: l_textline := FND_MESSAGE.GET;
19422: ELSE
19423: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_RELS_WITH_RCV_TRX');
19424: END IF;
19425: /*Bug 9012072 START--->Determine if there are any receiving transactions that have not been fully received for the shipments
19419: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_token_value);
19420:
19421: l_textline := FND_MESSAGE.GET;
19422: ELSE
19423: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_RELS_WITH_RCV_TRX');
19424: END IF;
19425: /*Bug 9012072 START--->Determine if there are any receiving transactions that have not been fully received for the shipments
19426: of the PO or Release Shipments being finally closed*/
19427:
19614: IF (p_document_type <> g_document_type_RELEASE)
19615: THEN
19616: d_progress := 10;
19617:
19618: l_text_normal_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_ASN');
19619: l_text_complex_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_PENDING_WCR');
19620:
19621: --
19622: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19615: THEN
19616: d_progress := 10;
19617:
19618: l_text_normal_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_ASN');
19619: l_text_complex_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_PENDING_WCR');
19620:
19621: --
19622: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19623: ( online_report_id
19667:
19668: ELSE
19669: d_progress := 20;
19670:
19671: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_ASN');
19672:
19673: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19674: ( online_report_id
19675: , last_update_login
19726: THEN
19727:
19728: d_progress := 30;
19729:
19730: l_text_normal_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_ASN');
19731: l_text_complex_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_PENDING_WCR');
19732:
19733: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19734: ( online_report_id
19727:
19728: d_progress := 30;
19729:
19730: l_text_normal_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_ASN');
19731: l_text_complex_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_PENDING_WCR');
19732:
19733: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19734: ( online_report_id
19735: , last_update_login
19788:
19789: IF (p_document_type <> g_document_type_RELEASE)
19790: THEN
19791:
19792: l_text_normal_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_ASN');
19793: l_text_complex_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_PENDING_WCR');
19794:
19795: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19796: ( online_report_id
19789: IF (p_document_type <> g_document_type_RELEASE)
19790: THEN
19791:
19792: l_text_normal_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_ASN');
19793: l_text_complex_po := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_PENDING_WCR');
19794:
19795: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19796: ( online_report_id
19797: , last_update_login
19838:
19839:
19840: ELSE
19841:
19842: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_WITH_ASN');
19843:
19844: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
19845: ( online_report_id
19846: , last_update_login
20220: l_is_complex_po := PO_COMPLEX_WORK_PVT.is_complex_work_po(p_document_id);
20221: end if;
20222:
20223: IF (l_is_complex_po) THEN
20224: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_P_PAYITEM');
20225: ELSE
20226: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
20227: END IF;
20228:
20222:
20223: IF (l_is_complex_po) THEN
20224: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOW_P_PAYITEM');
20225: ELSE
20226: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
20227: END IF;
20228:
20229: FND_MESSAGE.SET_NAME('PO','PO_CAN_POLL_INVALID_ACCT_FLEX');
20230: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_token_value);
20225: ELSE
20226: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
20227: END IF;
20228:
20229: FND_MESSAGE.SET_NAME('PO','PO_CAN_POLL_INVALID_ACCT_FLEX');
20230: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_token_value);
20231:
20232: l_textline := FND_MESSAGE.GET;
20233:
20226: l_token_value := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_LOC_TYPE_LOWER_S_SCH');
20227: END IF;
20228:
20229: FND_MESSAGE.SET_NAME('PO','PO_CAN_POLL_INVALID_ACCT_FLEX');
20230: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_token_value);
20231:
20232: l_textline := FND_MESSAGE.GET;
20233:
20234: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
20228:
20229: FND_MESSAGE.SET_NAME('PO','PO_CAN_POLL_INVALID_ACCT_FLEX');
20230: FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_token_value);
20231:
20232: l_textline := FND_MESSAGE.GET;
20233:
20234: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
20235: ( online_report_id
20236: , last_update_login
20332: END IF;
20333:
20334: d_progress := 10;
20335:
20336: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POL_PLAN_WITH_OPEN_REL');
20337:
20338: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
20339: ( online_report_id
20340: , last_update_login
20429: END IF;
20430:
20431: d_progress := 10;
20432:
20433: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_GAL_WITH_OPEN_STD_REF');
20434:
20435: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
20436: ( online_report_id
20437: , last_update_login
20525: END IF;
20526:
20527: d_progress := 10;
20528:
20529: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_CGA_WITH_OPEN_STD_REF');
20530:
20531: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
20532: ( online_report_id
20533: , last_update_login
20621: END IF;
20622:
20623: d_progress := 10;
20624:
20625: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CAN_POLL_PLAN_WITH_OPEN_REL');
20626:
20627: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
20628: ( online_report_id
20629: , last_update_login
21265:
21266: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
21267: d_progress := 40;
21268: --
21269: FND_MESSAGE.set_name('PO','CWPOTODOMESSAGE');
21270: FND_MSG_PUB.add;
21271: END IF;
21272: END IF;
21273:
21665: l_invoice_type := 'BOTH'; -- bug#16471988
21666:
21667: IF (p_document_level = g_document_level_HEADER) THEN
21668: l_message_name := 'PO_UNRES_AP_DOCS_PENDING';
21669: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21670: ELSIF (p_document_level = g_document_level_LINE) THEN
21671: l_message_name := 'PO_UNRES_POL_AP_DOCS_PENDING';
21672: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21673: ELSIF (p_document_level = g_document_level_SHIPMENT) THEN
21668: l_message_name := 'PO_UNRES_AP_DOCS_PENDING';
21669: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21670: ELSIF (p_document_level = g_document_level_LINE) THEN
21671: l_message_name := 'PO_UNRES_POL_AP_DOCS_PENDING';
21672: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21673: ELSIF (p_document_level = g_document_level_SHIPMENT) THEN
21674: IF (l_is_complex_po) THEN
21675: l_message_name := 'PO_UNRES_POPI_AP_DOCS_PENDING';
21676: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21672: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21673: ELSIF (p_document_level = g_document_level_SHIPMENT) THEN
21674: IF (l_is_complex_po) THEN
21675: l_message_name := 'PO_UNRES_POPI_AP_DOCS_PENDING';
21676: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21677: ELSE
21678: l_message_name := 'PO_UNRES_POLL_AP_DOCS_PENDING';
21679: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21680: END IF;
21675: l_message_name := 'PO_UNRES_POPI_AP_DOCS_PENDING';
21676: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21677: ELSE
21678: l_message_name := 'PO_UNRES_POLL_AP_DOCS_PENDING';
21679: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21680: END IF;
21681: ELSIF (p_document_level = g_document_level_DISTRIBUTION) THEN
21682: l_message_name := 'PO_UNRES_POD_AP_DOCS_PENDING';
21683: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21679: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21680: END IF;
21681: ELSIF (p_document_level = g_document_level_DISTRIBUTION) THEN
21682: l_message_name := 'PO_UNRES_POD_AP_DOCS_PENDING';
21683: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21684: END IF;
21685: ELSIF (p_action_requested = g_action_FINAL_CLOSE_CHECK) THEN
21686: l_invoice_type := 'BOTH';
21687:
21686: l_invoice_type := 'BOTH';
21687:
21688: IF (p_document_level = g_document_level_HEADER) THEN
21689: l_message_name := 'PO_FC_POH_AP_DOCS_PENDING';
21690: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21691: ELSIF (p_document_level = g_document_level_LINE) THEN
21692: l_message_name := 'PO_FC_POL_AP_DOCS_PENDING';
21693: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21694: ELSIF (p_document_level = g_document_level_SHIPMENT) THEN
21689: l_message_name := 'PO_FC_POH_AP_DOCS_PENDING';
21690: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21691: ELSIF (p_document_level = g_document_level_LINE) THEN
21692: l_message_name := 'PO_FC_POL_AP_DOCS_PENDING';
21693: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21694: ELSIF (p_document_level = g_document_level_SHIPMENT) THEN
21695: IF (l_is_complex_po) THEN
21696: l_message_name := 'PO_FC_POPI_AP_DOCS_PENDING';
21697: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21693: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21694: ELSIF (p_document_level = g_document_level_SHIPMENT) THEN
21695: IF (l_is_complex_po) THEN
21696: l_message_name := 'PO_FC_POPI_AP_DOCS_PENDING';
21697: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21698: ELSE
21699: l_message_name := 'PO_FC_POLL_AP_DOCS_PENDING';
21700: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21701: END IF;
21696: l_message_name := 'PO_FC_POPI_AP_DOCS_PENDING';
21697: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21698: ELSE
21699: l_message_name := 'PO_FC_POLL_AP_DOCS_PENDING';
21700: l_textline := FND_MESSAGE.GET_STRING('PO',l_message_name);
21701: END IF;
21702: END IF;
21703: END IF;
21704: l_calling_sequence := l_message_name; -- can be any string(tracking in AP)
21970: , SYSDATE
21971: , p_user_id
21972: , SYSDATE
21973: , p_sequence
21974: , FND_MESSAGE.GET_STRING('PO', 'PO_SUPPLIER_DEBAR_WARN')
21975: , 'PO_SUPPLIER_DEBAR_WARN'
21976: , 'W');
21977:
21978: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', 'inserted');
22105: sysdate,
22106: p_user_id,
22107: sysdate,
22108: p_sequence,
22109: substr(FND_MESSAGE.GET_STRING('PO', 'PO_CO_INACTIVE'),1,240),
22110: 'PO_BUYER_INACTIVE',
22111: 'E'
22112: FROM dual;
22113:
22168: , SYSDATE
22169: , p_user_id
22170: , SYSDATE
22171: , p_sequence
22172: , FND_MESSAGE.GET_STRING('PO', 'PO_CO_IS_NULL')
22173: , 'PO_CO_IS_NULL'
22174: , 'E');
22175: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Contracting Officer is NULL');
22176: IF itemtype is not NULL and itemkey is not NULL THEN
22358: , SYSDATE
22359: , p_user_id
22360: , SYSDATE
22361: , p_sequence
22362: , FND_MESSAGE.GET_STRING('PO', 'PO_WARRANT_NOT_FOUND_CURR')
22363: , 'PO_WARRANT_NOT_FOUND_CURR'
22364: , 'E');
22365: x_return_status := FND_API.G_RET_STS_ERROR;
22366: ELSIF l_warrant_amount < l_doc_amount THEN
22384: , SYSDATE
22385: , p_user_id
22386: , SYSDATE
22387: , p_sequence
22388: , FND_MESSAGE.GET_STRING('PO', 'PO_WARRANT_NOT_ENOUGH')
22389: , 'PO_WARRANT_NOT_ENOUGH'
22390: , 'E');
22391:
22392: IF itemtype is not NULL and itemkey is not NULL THEN
22419: , SYSDATE
22420: , p_user_id
22421: , SYSDATE
22422: , p_sequence
22423: , FND_MESSAGE.GET_STRING('PO', 'PO_WARRANT_NOT_FOUND')
22424: , 'PO_WARRANT_NOT_FOUND'
22425: , 'E');
22426: x_return_status := FND_API.G_RET_STS_ERROR;
22427:
22562: END IF;
22563:
22564: IF msg_name IS NOT NULL THEN
22565: PO_DEBUG.debug_var(l_log_head,l_progress,'msg_name', msg_name);
22566: FND_MESSAGE.set_name('PO', msg_name);
22567: l_err_msg_txt := FND_MESSAGE.GET;
22568:
22569:
22570: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22563:
22564: IF msg_name IS NOT NULL THEN
22565: PO_DEBUG.debug_var(l_log_head,l_progress,'msg_name', msg_name);
22566: FND_MESSAGE.set_name('PO', msg_name);
22567: l_err_msg_txt := FND_MESSAGE.GET;
22568:
22569:
22570: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22571: ( online_report_id
22630: l_progress VARCHAR2(3) := '000';
22631: l_textline po_online_report_text.text_line%TYPE := NULL;
22632:
22633: BEGIN
22634: l_textline := 'Minimum Guarantee Award Amount Percentage: '|| FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.PO_ALL_ENTER_PERCENT);
22635: --FND_MESSAGE.SET_NAME('PO',PO_MESSAGE_S.PO_ALL_ENTER_PERCENT);
22636: --FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
22637:
22638: --l_textline := FND_MESSAGE.GET;
22631: l_textline po_online_report_text.text_line%TYPE := NULL;
22632:
22633: BEGIN
22634: l_textline := 'Minimum Guarantee Award Amount Percentage: '|| FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.PO_ALL_ENTER_PERCENT);
22635: --FND_MESSAGE.SET_NAME('PO',PO_MESSAGE_S.PO_ALL_ENTER_PERCENT);
22636: --FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
22637:
22638: --l_textline := FND_MESSAGE.GET;
22639: -- Percentage should be between 0 and 100
22632:
22633: BEGIN
22634: l_textline := 'Minimum Guarantee Award Amount Percentage: '|| FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.PO_ALL_ENTER_PERCENT);
22635: --FND_MESSAGE.SET_NAME('PO',PO_MESSAGE_S.PO_ALL_ENTER_PERCENT);
22636: --FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
22637:
22638: --l_textline := FND_MESSAGE.GET;
22639: -- Percentage should be between 0 and 100
22640: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22634: l_textline := 'Minimum Guarantee Award Amount Percentage: '|| FND_MESSAGE.GET_STRING('PO', PO_MESSAGE_S.PO_ALL_ENTER_PERCENT);
22635: --FND_MESSAGE.SET_NAME('PO',PO_MESSAGE_S.PO_ALL_ENTER_PERCENT);
22636: --FND_MESSAGE.SET_TOKEN('LINE_LOCATION_TYPE', l_line_loc_token_value);
22637:
22638: --l_textline := FND_MESSAGE.GET;
22639: -- Percentage should be between 0 and 100
22640: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22641: ( online_report_id
22642: , last_update_login
22665: AND (POH.clm_min_guar_award_amt_percent > 100
22666: OR POH.clm_min_guar_award_amt_percent < 0);
22667:
22668: -- Maximum Ceiling Award Amount >= Maximum Per Order Amount
22669: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MX_CL_AMT_GT_MXPM_CLM');
22670: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22671: ( online_report_id
22672: , last_update_login
22673: , last_updated_by
22694: WHERE POH.po_header_id = p_header_id
22695: AND POH.amount_limit < POH.clm_max_order_amount;
22696:
22697: -- Maximum Per Order Amount(Line) <= Maximum Per Order Amount(Header)
22698: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MX_AMT_H_GT_MX_AMT_L');
22699: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22700: ( online_report_id
22701: , last_update_login
22702: , last_updated_by
22718: , p_sequence + ROWNUM
22719: ,
22720: CASE
22721: WHEN (POH.clm_max_order_amount is not null and POL.clm_max_order_amount is not NULL)
22722: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MX_AMT_H_GT_MX_AMT_L'), 1, 240)
22723: WHEN (POH.clm_max_order_amount is not null and POL.clm_max_order_amount is NULL)
22724: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MX_AMT_H_GT_MN_AMT_L'), 1, 240)
22725: WHEN (POH.clm_max_order_amount is null and POL.clm_max_order_amount is not NULL)
22726: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MXPM_H_GT_MX_AMT_L'), 1, 240)
22720: CASE
22721: WHEN (POH.clm_max_order_amount is not null and POL.clm_max_order_amount is not NULL)
22722: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MX_AMT_H_GT_MX_AMT_L'), 1, 240)
22723: WHEN (POH.clm_max_order_amount is not null and POL.clm_max_order_amount is NULL)
22724: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MX_AMT_H_GT_MN_AMT_L'), 1, 240)
22725: WHEN (POH.clm_max_order_amount is null and POL.clm_max_order_amount is not NULL)
22726: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MXPM_H_GT_MX_AMT_L'), 1, 240)
22727: WHEN (POH.clm_max_order_amount is null and POL.clm_max_order_amount is NULL)
22728: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MXPM_H_GT_MN_AMT_L'), 1, 240)
22722: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MX_AMT_H_GT_MX_AMT_L'), 1, 240)
22723: WHEN (POH.clm_max_order_amount is not null and POL.clm_max_order_amount is NULL)
22724: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MX_AMT_H_GT_MN_AMT_L'), 1, 240)
22725: WHEN (POH.clm_max_order_amount is null and POL.clm_max_order_amount is not NULL)
22726: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MXPM_H_GT_MX_AMT_L'), 1, 240)
22727: WHEN (POH.clm_max_order_amount is null and POL.clm_max_order_amount is NULL)
22728: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MXPM_H_GT_MN_AMT_L'), 1, 240)
22729: END,
22730: CASE
22724: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MX_AMT_H_GT_MN_AMT_L'), 1, 240)
22725: WHEN (POH.clm_max_order_amount is null and POL.clm_max_order_amount is not NULL)
22726: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MXPM_H_GT_MX_AMT_L'), 1, 240)
22727: WHEN (POH.clm_max_order_amount is null and POL.clm_max_order_amount is NULL)
22728: THEN substr(FND_MESSAGE.GET_STRING('PO', 'PO_IDV_MXPM_H_GT_MN_AMT_L'), 1, 240)
22729: END,
22730: CASE
22731: WHEN (POH.clm_max_order_amount is not null and POL.clm_max_order_amount is not NULL)
22732: THEN 'PO_IDV_MX_AMT_H_GT_MX_AMT_L'
22768: L_PROGRESS,'PO_CHARGE_NOT_NULL');
22769: END IF;
22770:
22771: IF p_document_type IN ('PO') THEN
22772: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_CHARGE_NOT_NULL');
22773:
22774: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22775: (ONLINE_REPORT_ID,
22776: LAST_UPDATE_LOGIN,
22818: IF (PO_CORE_S.is_encumbrance_on(
22819: p_doc_type => g_document_type_PO
22820: , p_org_id => NULL)) THEN
22821:
22822: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ALL_NO_BUDGET_FLEX');
22823: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22824: (ONLINE_REPORT_ID,
22825: LAST_UPDATE_LOGIN,
22826: LAST_UPDATED_BY,
22920: PO_DEBUG.DEBUG_STMT(G_LOG_HEAD || '.'||L_API_NAME||'.',
22921: L_PROGRESS,'PO_LINE_SHIP_UOM_MISMATCH');
22922: END IF;
22923:
22924: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_SHIP_UOM_MISMATCH');
22925: IF P_DOCUMENT_TYPE ='RELEASE' THEN
22926:
22927: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22928: (ONLINE_REPORT_ID,
23401: l_text_line PO_ONLINE_REPORT_TEXT.text_line%TYPE := NULL;
23402: l_log_head VARCHAR2(70) := 'po.plsql.PO_DOCUMENT_CHECKS_PVT.CHECK_CLOSE_WIP_JOB';
23403: BEGIN
23404:
23405: l_text_line := FND_MESSAGE.GET_STRING('PO', 'PO_CLOSE_WIP_JOB');
23406: --Start of Process
23407: --When document type is REQUISITION
23408: IF (p_document_type = g_document_type_REQUISITION) THEN
23409: l_progress := 10;
23651: 0,
23652: PRD.distribution_num,
23653: p_sequence + ROWNUM,
23654: SUBSTR( Nvl2( PRD.code_combination_id,
23655: fnd_message.Get_string( 'PO','PO_RI_INVALID_CHARGE_ACC_ID' ),
23656: fnd_message.Get_string( 'PO','PO_CHARGE_NOT_NULL' )
23657: ) ||
23658: ' on distribution ' ||
23659: PRD.distribution_num ||
23652: PRD.distribution_num,
23653: p_sequence + ROWNUM,
23654: SUBSTR( Nvl2( PRD.code_combination_id,
23655: fnd_message.Get_string( 'PO','PO_RI_INVALID_CHARGE_ACC_ID' ),
23656: fnd_message.Get_string( 'PO','PO_CHARGE_NOT_NULL' )
23657: ) ||
23658: ' on distribution ' ||
23659: PRD.distribution_num ||
23660: ' of line ' ||
23708: 0,
23709: PRD.distribution_num,
23710: p_sequence + ROWNUM,
23711: SUBSTR( Nvl2( prd.budget_account_id,
23712: fnd_message.Get_string( 'PO','PO_RI_INVALID_BUDGET_ACC_ID' ),
23713: fnd_message.Get_string( 'PO','PO_BUDGET_NOT_NULL' )
23714: ) ||
23715: ' on distribution ' ||
23716: PRD.distribution_num ||
23709: PRD.distribution_num,
23710: p_sequence + ROWNUM,
23711: SUBSTR( Nvl2( prd.budget_account_id,
23712: fnd_message.Get_string( 'PO','PO_RI_INVALID_BUDGET_ACC_ID' ),
23713: fnd_message.Get_string( 'PO','PO_BUDGET_NOT_NULL' )
23714: ) ||
23715: ' on distribution ' ||
23716: PRD.distribution_num ||
23717: ' of line ' ||
23765: 0,
23766: PRD.distribution_num,
23767: p_sequence + ROWNUM,
23768: SUBSTR( Nvl2( prd.variance_account_id,
23769: fnd_message.Get_string( 'PO','PO_RI_INVALID_VARIANCE_ACC_ID' ),
23770: fnd_message.Get_string( 'PO', 'PO_VARIANCE_NOT_NULL' )
23771: ) ||
23772: ' on distribution ' ||
23773: PRD.distribution_num ||
23766: PRD.distribution_num,
23767: p_sequence + ROWNUM,
23768: SUBSTR( Nvl2( prd.variance_account_id,
23769: fnd_message.Get_string( 'PO','PO_RI_INVALID_VARIANCE_ACC_ID' ),
23770: fnd_message.Get_string( 'PO', 'PO_VARIANCE_NOT_NULL' )
23771: ) ||
23772: ' on distribution ' ||
23773: PRD.distribution_num ||
23774: ' of line ' ||
23821: 0,
23822: PRD.distribution_num,
23823: p_sequence + ROWNUM,
23824: SUBSTR( Nvl2( prd.accrual_account_id,
23825: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_ACCRUAL_ACC_ID' ),
23826: fnd_message.Get_string( 'PO', 'PO_ACCRUAL_NOT_NULL' )
23827: ) ||
23828: ' on distribution ' ||
23829: PRD.distribution_num ||
23822: PRD.distribution_num,
23823: p_sequence + ROWNUM,
23824: SUBSTR( Nvl2( prd.accrual_account_id,
23825: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_ACCRUAL_ACC_ID' ),
23826: fnd_message.Get_string( 'PO', 'PO_ACCRUAL_NOT_NULL' )
23827: ) ||
23828: ' on distribution ' ||
23829: PRD.distribution_num ||
23830: ' of line ' ||
23888: POLL.shipment_num,
23889: POD.DISTRIBUTION_NUM,
23890: P_SEQUENCE + ROWNUM,
23891: SUBSTR( Nvl2( PoD.code_combination_id,
23892: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_CHARGE_ACC_ID' ),
23893: fnd_message.Get_string( 'PO', 'PO_CHARGE_NOT_NULL' )
23894: )||
23895: ' on distribution ' ||
23896: POD.DISTRIBUTION_NUM ||
23889: POD.DISTRIBUTION_NUM,
23890: P_SEQUENCE + ROWNUM,
23891: SUBSTR( Nvl2( PoD.code_combination_id,
23892: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_CHARGE_ACC_ID' ),
23893: fnd_message.Get_string( 'PO', 'PO_CHARGE_NOT_NULL' )
23894: )||
23895: ' on distribution ' ||
23896: POD.DISTRIBUTION_NUM ||
23897: ' of shipment ' ||
23948: POLL.shipment_num,
23949: POD.DISTRIBUTION_NUM,
23950: P_SEQUENCE + ROWNUM,
23951: SUBSTR( Nvl2( PoD.budget_account_id,
23952: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_BUDGET_ACC_ID' ),
23953: fnd_message.Get_string( 'PO', 'PO_BUDGET_NOT_NULL' )
23954: )||
23955: ' on distribution ' ||
23956: POD.DISTRIBUTION_NUM ||
23949: POD.DISTRIBUTION_NUM,
23950: P_SEQUENCE + ROWNUM,
23951: SUBSTR( Nvl2( PoD.budget_account_id,
23952: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_BUDGET_ACC_ID' ),
23953: fnd_message.Get_string( 'PO', 'PO_BUDGET_NOT_NULL' )
23954: )||
23955: ' on distribution ' ||
23956: POD.DISTRIBUTION_NUM ||
23957: ' of shipment ' ||
24008: POLL.shipment_num,
24009: POD.DISTRIBUTION_NUM,
24010: P_SEQUENCE + ROWNUM,
24011: SUBSTR( Nvl2( PoD.accrual_account_id,
24012: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_ACCRUAL_ACC_ID' ),
24013: fnd_message.Get_string( 'PO', 'PO_ACCRUAL_NOT_NULL' )
24014: )||
24015: ' on distribution ' ||
24016: POD.DISTRIBUTION_NUM ||
24009: POD.DISTRIBUTION_NUM,
24010: P_SEQUENCE + ROWNUM,
24011: SUBSTR( Nvl2( PoD.accrual_account_id,
24012: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_ACCRUAL_ACC_ID' ),
24013: fnd_message.Get_string( 'PO', 'PO_ACCRUAL_NOT_NULL' )
24014: )||
24015: ' on distribution ' ||
24016: POD.DISTRIBUTION_NUM ||
24017: ' of shipment ' ||
24066: POLL.shipment_num,
24067: POD.DISTRIBUTION_NUM,
24068: P_SEQUENCE + ROWNUM,
24069: SUBSTR( Nvl2( PoD.variance_account_id,
24070: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_VARIANCE_ACC_ID' ),
24071: fnd_message.Get_string( 'PO', 'PO_VARIANCE_NOT_NULL' )
24072: )||
24073: ' on distribution ' ||
24074: POD.DISTRIBUTION_NUM ||
24067: POD.DISTRIBUTION_NUM,
24068: P_SEQUENCE + ROWNUM,
24069: SUBSTR( Nvl2( PoD.variance_account_id,
24070: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_VARIANCE_ACC_ID' ),
24071: fnd_message.Get_string( 'PO', 'PO_VARIANCE_NOT_NULL' )
24072: )||
24073: ' on distribution ' ||
24074: POD.DISTRIBUTION_NUM ||
24075: ' of shipment ' ||
24133: POLL.shipment_num,
24134: POD.DISTRIBUTION_NUM,
24135: P_SEQUENCE + ROWNUM,
24136: SUBSTR( Nvl2( PoD.code_combination_id,
24137: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_CHARGE_ACC_ID' ),
24138: fnd_message.Get_string( 'PO', 'PO_CHARGE_NOT_NULL' )
24139: )||
24140: ' on distribution ' ||
24141: POD.DISTRIBUTION_NUM ||
24134: POD.DISTRIBUTION_NUM,
24135: P_SEQUENCE + ROWNUM,
24136: SUBSTR( Nvl2( PoD.code_combination_id,
24137: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_CHARGE_ACC_ID' ),
24138: fnd_message.Get_string( 'PO', 'PO_CHARGE_NOT_NULL' )
24139: )||
24140: ' on distribution ' ||
24141: POD.DISTRIBUTION_NUM ||
24142: ' of shipment ' ||
24196: POLL.shipment_num,
24197: POD.DISTRIBUTION_NUM,
24198: P_SEQUENCE + ROWNUM,
24199: SUBSTR( Nvl2( PoD.budget_account_id,
24200: fnd_message.Get_string( 'PO','PO_RI_INVALID_BUDGET_ACC_ID' ),
24201: fnd_message.Get_string( 'PO', 'PO_BUDGET_NOT_NULL' )
24202: )||
24203: ' on distribution ' ||
24204: POD.DISTRIBUTION_NUM ||
24197: POD.DISTRIBUTION_NUM,
24198: P_SEQUENCE + ROWNUM,
24199: SUBSTR( Nvl2( PoD.budget_account_id,
24200: fnd_message.Get_string( 'PO','PO_RI_INVALID_BUDGET_ACC_ID' ),
24201: fnd_message.Get_string( 'PO', 'PO_BUDGET_NOT_NULL' )
24202: )||
24203: ' on distribution ' ||
24204: POD.DISTRIBUTION_NUM ||
24205: ' of shipment ' ||
24263: POLL.shipment_num,
24264: POD.DISTRIBUTION_NUM,
24265: P_SEQUENCE + ROWNUM,
24266: SUBSTR( Nvl2( PoD.accrual_account_id,
24267: fnd_message.Get_string( 'PO','PO_RI_INVALID_ACCRUAL_ACC_ID' ),
24268: fnd_message.Get_string( 'PO','PO_ACCRUAL_NOT_NULL' )
24269: )||
24270: ' on distribution ' ||
24271: POD.DISTRIBUTION_NUM ||
24264: POD.DISTRIBUTION_NUM,
24265: P_SEQUENCE + ROWNUM,
24266: SUBSTR( Nvl2( PoD.accrual_account_id,
24267: fnd_message.Get_string( 'PO','PO_RI_INVALID_ACCRUAL_ACC_ID' ),
24268: fnd_message.Get_string( 'PO','PO_ACCRUAL_NOT_NULL' )
24269: )||
24270: ' on distribution ' ||
24271: POD.DISTRIBUTION_NUM ||
24272: ' of shipment ' ||
24325: POLL.shipment_num,
24326: POD.DISTRIBUTION_NUM,
24327: P_SEQUENCE + ROWNUM,
24328: SUBSTR( Nvl2( PoD.variance_account_id,
24329: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_VARIANCE_ACC_ID' ),
24330: fnd_message.Get_string( 'PO', 'PO_VARIANCE_NOT_NULL' )
24331: )||
24332: ' on distribution ' ||
24333: POD.DISTRIBUTION_NUM ||
24326: POD.DISTRIBUTION_NUM,
24327: P_SEQUENCE + ROWNUM,
24328: SUBSTR( Nvl2( PoD.variance_account_id,
24329: fnd_message.Get_string( 'PO', 'PO_RI_INVALID_VARIANCE_ACC_ID' ),
24330: fnd_message.Get_string( 'PO', 'PO_VARIANCE_NOT_NULL' )
24331: )||
24332: ' on distribution ' ||
24333: POD.DISTRIBUTION_NUM ||
24334: ' of shipment ' ||
24537: '');
24538: END IF;
24539: END IF;
24540:
24541: l_textline := FND_MESSAGE.get_string('PO', 'CLM_NO_DELIVERY_PERIOD');
24542:
24543: INSERT INTO po_online_report_text_gt
24544: (online_report_id,
24545: last_update_login,
24677: ELSE
24678: fv_enabled_flag :='N';
24679: END IF;
24680:
24681: l_textline := FND_MESSAGE.get_string('PO', 'PO_PAY_INSTR_SEQ_NOT_SPECIFIED');
24682:
24683: INSERT INTO po_online_report_text_gt(
24684: online_report_id,
24685: last_update_login,
24739: p_sequence := p_sequence + SQL%ROWCOUNT;
24740:
24741: -- Check 2 : Payment instruction is specified as "SINGLE_FUNDING", and there exists multiple
24742: -- ACRN'son distributions against same line.
24743: l_textline := FND_MESSAGE.get_string('PO', 'PO_PAYMENT_INSTR_SINGLE_FUND');
24744:
24745: INSERT INTO po_online_report_text_gt(
24746: online_report_id,
24747: last_update_login,
24784:
24785: p_sequence := p_sequence + SQL%ROWCOUNT;
24786:
24787: -- Check 3 : Warning if Payment isntruction sequence is blank
24788: l_textline := FND_MESSAGE.get_string('PO', 'PO_PAYMENT_INSTR_BLANK');
24789:
24790: INSERT INTO po_online_report_text_gt(
24791: online_report_id,
24792: last_update_login,
24834: IF p_draft_type IN ('MOD', 'PAR') THEN
24835:
24836: -- If payment isntrc was changed to Manual in Mod at header level, warning to reverify sequence
24837: -- at distribution level must be thrown
24838: l_textline := FND_MESSAGE.get_string('PO', 'PO_PAY_INSTR_CHANGED_TO_MANUAL');
24839: INSERT INTO po_online_report_text_gt(
24840: online_report_id,
24841: last_update_login,
24842: last_updated_by,
24876: AND plc.lookup_type ='CLM_PAYMENT_INST'
24877: AND plc.lookup_code = POH.clm_payment_instr_code;
24878:
24879: p_sequence := p_sequence + SQL%ROWCOUNT;
24880: l_textline := FND_MESSAGE.get_string('PO', 'PO_PAY_INSTR_CHANGED_TO_MANUAL');
24881: -- If payment instruction was changed to Manual in Mod at line level, warning to reverify sequence
24882: -- at distribution level must be thrown
24883: INSERT INTO po_online_report_text_gt(
24884: online_report_id,
24998:
24999: -- Check 1 If Line type is Severable and delivery event is not used
25000: -- then difference between earliset POP start date and latest POP end date
25001: -- cannot be beyond 12 months
25002: l_textline := FND_MESSAGE.get_string('PO', 'CLM_POP_BEYOND_12');
25003:
25004: INSERT INTO po_online_report_text_gt
25005: (online_report_id,
25006: last_update_login,
25059: -- 1) get the earliset start date.
25060: -- 2) Pass this to FV to get the corresponding fiscal year
25061: -- and fiscal year end date.
25062:
25063: l_textline := FND_MESSAGE.get_string('PO', 'CLM_POP_BEYOND_FISCAL_END');
25064:
25065: INSERT INTO po_online_report_text_gt
25066: (online_report_id,
25067: last_update_login,
25146: l_progress := '002';
25147:
25148: -- Check 3 If Line type is Severable and delivery event is used
25149: -- then POP Duration cannot be beyond 12 months
25150: l_textline := FND_MESSAGE.get_string('PO', 'CLM_POP_DURATION_BEYOND_12');
25151:
25152: INSERT INTO po_online_report_text_gt
25153: (online_report_id,
25154: last_update_login,
25684: 'E'
25685: FROM po_lines_gt pol,
25686: po_exhibit_details_merge_v poed,
25687: (SELECT exhibit_name,
25688: (SELECT Decode( Count(1), 0, fnd_message.get_string('PO','PO_EXHIBIT_NSP_LABEL'), fnd_message.get_string('PO','PO_EXHIBIT_PRICED_LABEL'))
25689: FROM po_lines_gt pl
25690: WHERE
25691: pl.po_header_id = ped.PO_HEADER_ID AND
25692: pl.clm_exhibit_name = ped.EXHIBIT_NAME AND
25699: AND exhibit_pricing_cur.exhibit_name = poed.exhibit_name
25700: AND poed.is_cdrl = 'N' -- Data deliverable (CDRL) exhibit can be linked to any line.
25701: AND pol.po_line_id = poed.reference_line_id
25702: AND (
25703: (exhibit_pricing_cur.pricing = fnd_message.get_string('PO','PO_EXHIBIT_NSP_LABEL')
25704: AND (Nvl(pol.cost_constraint,'Priced') = 'NSP' OR
25705: Nvl(pol.cost_constraint,'Priced') = 'NC'
25706: )
25707: )
25705: Nvl(pol.cost_constraint,'Priced') = 'NC'
25706: )
25707: )
25708: OR
25709: (exhibit_pricing_cur.pricing = fnd_message.get_string('PO','PO_EXHIBIT_PRICED_LABEL')
25710: AND Nvl(pol.cost_constraint,'Priced') NOT IN ('NSP','NC')
25711: )
25712: )
25713: ORDER BY poed.exhibit_name;
25901: IF l_mipr_own_ref_exists = 'Y' THEN
25902:
25903: d_progress := 40;
25904: -- Check 1: If the award has MIPR own reference, FPDS reporting method should be 'Exempt'
25905: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_MIPR_CAR_EXEMPT');
25906:
25907: INSERT INTO po_online_report_text_gt(
25908: online_report_id,
25909: last_update_login,
25934: p_sequence := p_sequence + SQL%ROWCOUNT;
25935:
25936: d_progress := 50;
25937: -- Check 2: If award has MIPR own reference, Supplier communication method must be set to none.
25938: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_MIPR_COMM_METHOD_NONE');
25939:
25940: INSERT INTO po_online_report_text_gt(
25941: online_report_id,
25942: last_update_login,
25963: p_sequence := p_sequence + SQL%ROWCOUNT;
25964:
25965: d_progress := 60;
25966: -- Check 3: If award has MIPR own reference, Bilateral Indicator must be set to None
25967: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_MIPR_BILATERAL_IND_NONE');
25968:
25969: INSERT INTO po_online_report_text_gt(
25970: online_report_id,
25971: last_update_login,
25992: p_sequence := p_sequence + SQL%ROWCOUNT;
25993:
25994: d_progress := 70;
25995: -- Check 4: Multiple MIPR-Own are being referenced in the same award (Warning)
25996: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_MIPR_MULTI_OWN_REF');
25997:
25998: INSERT INTO po_online_report_text_gt(
25999: online_report_id,
26000: last_update_login,
26027: p_sequence := p_sequence + SQL%ROWCOUNT;
26028:
26029: d_progress := 80;
26030: -- Check 5: Dist is referencing MIPR-Own, and the award also references MIPR-Own of other Assisting agency
26031: -- l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_MIPR_MULTI_ASST_OFF_REF');
26032:
26033: INSERT INTO po_online_report_text_gt(
26034: online_report_id,
26035: last_update_login,
26072: p_sequence := p_sequence + SQL%ROWCOUNT;
26073:
26074: d_progress := 90;
26075: -- Check 6: Dist is referencing MIPR-Own, and the award also references PR/PAR/MIPR-Others
26076: -- l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_MIPR_OWN_AND_PR_REF');
26077:
26078: INSERT INTO po_online_report_text_gt(
26079: online_report_id,
26080: last_update_login,
26112: p_sequence := p_sequence + SQL%ROWCOUNT;
26113:
26114: d_progress := 100;
26115: -- Check 7: Dist is referencing MIPR-Own Direct Cite, and the award also references MIPR-Own Reimbursement
26116: -- l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_MIPR_MULTI_OBLIG_REF');
26117:
26118: INSERT INTO po_online_report_text_gt(
26119: online_report_id,
26120: last_update_login,
26164: IF l_mipr_others_ref_exists = 'Y' THEN
26165:
26166: d_progress := 110;
26167: -- Check 8: PR/PAR and MIPR-Others are being referenced in the same award (Warning)
26168: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_MIPR_OTHERS_AND_PR_REF');
26169:
26170: INSERT INTO po_online_report_text_gt(
26171: online_report_id,
26172: last_update_login,
26194: p_sequence := p_sequence + SQL%ROWCOUNT;
26195:
26196: d_progress := 120;
26197: -- Check 9: MIPR-Others of different requesting agency are being referenced in the same award (Warning)
26198: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_MIPR_MULTI_REQ_OFF_REF');
26199:
26200: INSERT INTO po_online_report_text_gt(
26201: online_report_id,
26202: last_update_login,
26274: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
26275: x_msg_data OUT NOCOPY VARCHAR2
26276: )IS
26277:
26278: L_TEXTLINE PO_ONLINE_REPORT_TEXT.TEXT_LINE%TYPE := fnd_message.Get_string( 'PO','PO_RI_INVALID_ACCRUE_ON_RCT' );
26279: L_API_NAME CONSTANT VARCHAR2( 40 ) := 'check_accrue_on_receipt';
26280: L_PROGRESS VARCHAR2( 3 );
26281:
26282: BEGIN