DBA Data[Home] [Help]

APPS.PO_DOCUMENT_CHECKS_GRP dependencies on FND_MSG_PUB

Line 162: FND_MSG_PUB.Add;

158: (g_action_DOC_SUBMISSION_CHECK, g_action_UNRESERVE, g_action_FINAL_CLOSE_CHECK)
159: THEN
160: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
161: FND_MESSAGE.set_token('ERROR_TEXT','Invalid Action Requested');
162: FND_MSG_PUB.Add;
163: RAISE FND_API.G_EXC_ERROR;
164: END IF;
165:
166: l_progress := '002';

Line 171: FND_MSG_PUB.Add;

167: --check p_document_type
168: IF p_document_type NOT IN ('REQUISITION', 'RELEASE', 'PO', 'PA') THEN
169: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
170: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document TYpe');
171: FND_MSG_PUB.Add;
172: RAISE FND_API.G_EXC_ERROR;
173: END IF;
174:
175: l_progress := '003';

Line 182: FND_MSG_PUB.Add;

178: IF p_action_requested = g_action_UNRESERVE THEN
179: IF p_document_type NOT IN ('PO', 'RELEASE') THEN
180: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
181: FND_MESSAGE.set_token('ERROR_TEXT', 'UNRESERVE Action Requested for invalid document type');
182: FND_MSG_PUB.Add;
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185: --
186: ELSIF (p_action_requested = g_action_FINAL_CLOSE_CHECK) THEN

Line 190: FND_MSG_PUB.Add;

186: ELSIF (p_action_requested = g_action_FINAL_CLOSE_CHECK) THEN
187: IF p_document_type NOT IN ('PO', 'PA', 'RELEASE') THEN
188: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
189: FND_MESSAGE.set_token('ERROR_TEXT', 'FINAL_CLOSE Action Requested for invalid document type');
190: FND_MSG_PUB.Add;
191: RAISE FND_API.G_EXC_ERROR;
192: END IF;
193: --
194: ELSE

Line 198: FND_MSG_PUB.Add;

194: ELSE
195: IF p_document_level <> g_document_level_HEADER THEN
196: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
197: FND_MESSAGE.set_token('ERROR_TEXT', 'Non-Header level only supported for UNRESERVE action');
198: FND_MSG_PUB.Add;
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201: END IF;
202:

Line 209: FND_MSG_PUB.Add;

205: IF p_document_type = 'PO' THEN
206: IF p_document_subtype NOT IN ('STANDARD', 'PLANNED') THEN
207: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
208: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid document type for document type PO');
209: FND_MSG_PUB.Add;
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
212: ELSIF p_document_type = 'PA' THEN
213: IF p_document_subtype NOT IN ('BLANKET', 'CONTRACT') THEN

Line 216: FND_MSG_PUB.Add;

212: ELSIF p_document_type = 'PA' THEN
213: IF p_document_subtype NOT IN ('BLANKET', 'CONTRACT') THEN
214: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
215: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid document type for document type PA');
216: FND_MSG_PUB.Add;
217: RAISE FND_API.G_EXC_ERROR;
218: END IF;
219: END IF;
220:

Line 241: FND_MSG_PUB.Add;

237: EXCEPTION
238: WHEN NO_DATA_FOUND THEN
239: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
240: FND_MESSAGE.set_token('ERROR_TEXT', 'Either Org Context is not set OR Doc_id does not exist');
241: FND_MSG_PUB.Add;
242: WHEN OTHERS THEN
243: RAISE;
244: END;
245: ELSIF p_document_type = 'REQUISITION' THEN

Line 255: FND_MSG_PUB.Add;

251: EXCEPTION
252: WHEN NO_DATA_FOUND THEN
253: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
254: FND_MESSAGE.set_token('ERROR_TEXT', 'Either Org Context is not set OR Doc_id does not exist');
255: FND_MSG_PUB.Add;
256: WHEN OTHERS THEN
257: RAISE;
258: END;
259: ELSE --Its a release

Line 271: FND_MSG_PUB.Add;

267: EXCEPTION
268: WHEN NO_DATA_FOUND THEN
269: FND_MESSAGE.set_name('PO', 'PO_SUB_GENERAL_ERROR');
270: FND_MESSAGE.set_token('ERROR_TEXT', 'Either Org Context is not set OR Doc_id does not exist');
271: FND_MSG_PUB.Add;
272: WHEN OTHERS THEN
273: RAISE;
274: END;
275: END IF;

Line 332: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

328: END IF;
329:
330: EXCEPTION
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
333: p_encoded => 'F');
334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
335: x_sub_check_status := FND_API.G_RET_STS_ERROR;
336: WHEN FND_API.G_EXC_ERROR THEN

Line 337: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

333: p_encoded => 'F');
334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
335: x_sub_check_status := FND_API.G_RET_STS_ERROR;
336: WHEN FND_API.G_EXC_ERROR THEN
337: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
338: p_encoded => 'F');
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: x_sub_check_status := FND_API.G_RET_STS_ERROR;
341: WHEN OTHERS THEN

Line 342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

338: p_encoded => 'F');
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: x_sub_check_status := FND_API.G_RET_STS_ERROR;
341: WHEN OTHERS THEN
342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
343: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
344: END IF;
345:
346: IF (g_fnd_debug = 'Y') THEN

Line 343: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);

339: x_return_status := FND_API.G_RET_STS_ERROR;
340: x_sub_check_status := FND_API.G_RET_STS_ERROR;
341: WHEN OTHERS THEN
342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
343: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
344: END IF;
345:
346: IF (g_fnd_debug = 'Y') THEN
347: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

Line 354: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

350: || l_progress || ' SQL CODE is '||sqlcode);
351: END IF;
352: END IF;
353:
354: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
355: p_encoded => 'F');
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
357: x_sub_check_status := FND_API.G_RET_STS_ERROR;
358: END po_submission_check;

Line 528: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

524:
525: l_progress := '001';
526: EXCEPTION
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
529: p_encoded => 'F');
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531: x_sub_check_status := FND_API.G_RET_STS_ERROR;
532: WHEN FND_API.G_EXC_ERROR THEN

Line 533: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

529: p_encoded => 'F');
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531: x_sub_check_status := FND_API.G_RET_STS_ERROR;
532: WHEN FND_API.G_EXC_ERROR THEN
533: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
534: p_encoded => 'F');
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: x_sub_check_status := FND_API.G_RET_STS_ERROR;
537: WHEN OTHERS THEN

Line 538: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

534: p_encoded => 'F');
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: x_sub_check_status := FND_API.G_RET_STS_ERROR;
537: WHEN OTHERS THEN
538: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
539: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
540: END IF;
541:
542: IF (g_fnd_debug = 'Y') THEN

Line 539: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);

535: x_return_status := FND_API.G_RET_STS_ERROR;
536: x_sub_check_status := FND_API.G_RET_STS_ERROR;
537: WHEN OTHERS THEN
538: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
539: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
540: END IF;
541:
542: IF (g_fnd_debug = 'Y') THEN
543: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

Line 550: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

546: || l_progress || ' SQL CODE is '||sqlcode);
547: END IF;
548: END IF;
549:
550: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
551: p_encoded => 'F');
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: x_sub_check_status := FND_API.G_RET_STS_ERROR;
554: END po_submission_check;

Line 625: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

621: l_progress := '001';
622:
623: EXCEPTION
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
626: p_encoded => 'F');
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: x_sub_check_status := FND_API.G_RET_STS_ERROR;
629:

Line 631: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: x_sub_check_status := FND_API.G_RET_STS_ERROR;
629:
630: WHEN FND_API.G_EXC_ERROR THEN
631: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
632: p_encoded => 'F');
633: x_return_status := FND_API.G_RET_STS_ERROR;
634: x_sub_check_status := FND_API.G_RET_STS_ERROR;
635:

Line 637: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)

633: x_return_status := FND_API.G_RET_STS_ERROR;
634: x_sub_check_status := FND_API.G_RET_STS_ERROR;
635:
636: WHEN OTHERS THEN
637: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
638: THEN
639: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
640: END IF;
641:

Line 639: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);

635:
636: WHEN OTHERS THEN
637: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
638: THEN
639: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
640: END IF;
641:
642: IF ( g_fnd_debug = 'Y' )
643: THEN

Line 651: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

647: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '|| sqlcode);
648: END IF;
649: END IF;
650:
651: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
652: p_encoded => 'F');
653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
654: x_sub_check_status := FND_API.G_RET_STS_ERROR;
655:

Line 801: FND_MSG_PUB.Add;

797: (p_minimum_access_level IS NULL) OR (p_document_type is NULL) OR
798: (p_document_subtype is NULL) OR (p_type_clause is NULL)) THEN
799: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
800: FND_MESSAGE.set_token('ERROR_TEXT', 'Mandatory parameters are NULL');
801: FND_MSG_PUB.Add;
802: RAISE FND_API.G_EXC_ERROR;
803: END IF; /*(p_query_table is NULL) OR (p_owner_id_column is NULL)*/
804:
805: l_progress := '020';

Line 810: FND_MSG_PUB.Add;

806: --Check p_minimum_access_level
807: IF p_minimum_access_level NOT IN ('VIEW_ONLY', 'MODIFY', 'FULL') THEN
808: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
809: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Minimum Access Level');
810: FND_MSG_PUB.Add;
811: RAISE FND_API.G_EXC_ERROR;
812: END IF; /*p_minimum_access_level NOT IN ('VIEW_ONLY', 'MODIFY', 'ALL')*/
813:
814: l_progress := '030';

Line 821: FND_MSG_PUB.Add;

817: IF p_document_type NOT IN ('RFQ', 'QUOTATION', 'REQUISITION',
818: 'RELEASE', 'PO', 'PA', 'PO_PA') THEN
819: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
820: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Type');
821: FND_MSG_PUB.Add;
822: RAISE FND_API.G_EXC_ERROR;
823: END IF; /*p_document_type NOT IN ('RFQ', 'QUOTATION', 'REQUISITION',*/
824:
825: l_progress := '040';

Line 831: FND_MSG_PUB.Add;

827: IF p_document_type = 'REQUISITION' THEN
828: IF p_document_subtype NOT IN ('PURCHASE', 'INTERNAL') THEN
829: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
830: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
831: FND_MSG_PUB.Add;
832: RAISE FND_API.G_EXC_ERROR;
833: END IF;
834: ELSIF p_document_type = 'RELEASE' THEN
835: IF p_document_subtype NOT IN ('SCHEDULED', 'BLANKET') THEN

Line 838: FND_MSG_PUB.Add;

834: ELSIF p_document_type = 'RELEASE' THEN
835: IF p_document_subtype NOT IN ('SCHEDULED', 'BLANKET') THEN
836: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
837: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
838: FND_MSG_PUB.Add;
839: RAISE FND_API.G_EXC_ERROR;
840: END IF;
841: ELSIF p_document_type = 'PO' THEN
842: IF p_document_subtype NOT IN ('STANDARD', 'PLANNED') THEN

Line 845: FND_MSG_PUB.Add;

841: ELSIF p_document_type = 'PO' THEN
842: IF p_document_subtype NOT IN ('STANDARD', 'PLANNED') THEN
843: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
844: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
845: FND_MSG_PUB.Add;
846: RAISE FND_API.G_EXC_ERROR;
847: END IF;
848: ELSIF p_document_type = 'PA' THEN
849: IF p_document_subtype NOT IN ('BLANKET', 'CONTRACT') THEN

Line 852: FND_MSG_PUB.Add;

848: ELSIF p_document_type = 'PA' THEN
849: IF p_document_subtype NOT IN ('BLANKET', 'CONTRACT') THEN
850: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
851: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
852: FND_MSG_PUB.Add;
853: RAISE FND_API.G_EXC_ERROR;
854: END IF;
855: -- Bug 5054685 Start: Performance issue. Collapsed multiple security
856: -- related where-clauses into one.

Line 861: FND_MSG_PUB.Add;

857: ELSIF p_document_type = 'PO_PA' THEN
858: IF p_document_subtype NOT IN ('ALL') THEN
859: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
860: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
861: FND_MSG_PUB.Add;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864: -- Bug 5054685 End
865: END IF; /*p_document_type = 'REQUISITION'*/

Line 891: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

887:
888: l_progress := '100';
889: EXCEPTION
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
892: p_encoded => 'F');
893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
894: x_where_clause := NULL;
895: WHEN FND_API.G_EXC_ERROR THEN

Line 896: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

892: p_encoded => 'F');
893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
894: x_where_clause := NULL;
895: WHEN FND_API.G_EXC_ERROR THEN
896: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
897: p_encoded => 'F');
898: x_return_status := FND_API.G_RET_STS_ERROR;
899: x_where_clause := NULL;
900: WHEN OTHERS THEN

Line 901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

897: p_encoded => 'F');
898: x_return_status := FND_API.G_RET_STS_ERROR;
899: x_where_clause := NULL;
900: WHEN OTHERS THEN
901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
902: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
903: END IF;
904:
905: IF (g_fnd_debug = 'Y') THEN

Line 902: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);

898: x_return_status := FND_API.G_RET_STS_ERROR;
899: x_where_clause := NULL;
900: WHEN OTHERS THEN
901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
902: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
903: END IF;
904:
905: IF (g_fnd_debug = 'Y') THEN
906: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

Line 913: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,

909: || l_progress || ' SQL CODE is '||sqlcode);
910: END IF;
911: END IF;
912:
913: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
914: p_encoded => 'F');
915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
916: x_where_clause := NULL;
917: END PO_SECURITY_CHECK;

Line 984: FND_MSG_PUB.Add;

980: ELSIF p_vendor_order_num IS NOT NULL THEN
981: l_count := p_vendor_order_num.COUNT;
982: ELSE -- The required input table ID parameters are all null !
983: FND_MESSAGE.set_name('PO', 'PO_STATCHK_ERR_NULL_INPARAM');
984: FND_MSG_PUB.Add;
985: RAISE FND_API.G_EXC_ERROR;
986: END IF;
987:
988: --Initialize any null Tables to a dummy table of null values with length of p_header_id.COUNT

Line 1033: FND_MSG_PUB.Add;

1029: OR l_count <> p_distribution_id.count THEN
1030:
1031: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
1032: FND_MESSAGE.set_token('ERROR_TEXT', 'The input table ID parameters are not of same size !');
1033: FND_MSG_PUB.Add;
1034: RAISE FND_API.G_EXC_ERROR;
1035: END IF;
1036:
1037: --Validate that a Header or Release is specified through any of the possible combinations

Line 1049: FND_MSG_PUB.Add;

1045: IF (p_header_id(i) IS NULL) AND (p_release_id(i) IS NULL) THEN
1046: -- Means that no Header/Release is specified
1047: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
1048: FND_MESSAGE.set_token('ERROR_TEXT', 'There is no Header/Release specified at index ' || i);
1049: FND_MSG_PUB.Add;
1050: RAISE FND_API.G_EXC_ERROR;
1051: END IF;
1052:
1053: END LOOP;

Line 1064: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);

1060: WHEN FND_API.G_EXC_ERROR THEN
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062: WHEN OTHERS THEN
1063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1064: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
1065:
1066: END validate_status_check_inputs;
1067:
1068: -------------------------------------------------------------------------------

Line 1178: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);

1174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1176: WHEN OTHERS THEN
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1178: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
1179:
1180: END po_status_check;
1181:
1182: -------------------------------------------------------------------------------

Line 1261: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);

1257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1259: WHEN OTHERS THEN
1260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1261: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
1262:
1263: END po_status_check;
1264:
1265: -- Bug 3312906 START

Line 1420: FND_MSG_PUB.add;

1416: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1417:
1418: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1419: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1420: FND_MSG_PUB.add;
1421: END IF;
1422: END IF;
1423:
1424: ELSE

Line 1438: FND_MSG_PUB.add;

1434: IF (l_accrue_invoice_count > 0) THEN
1435: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1436: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1437: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1438: FND_MSG_PUB.add;
1439: END IF;
1440: END IF;
1441: END IF; -- if retro mode is all_releases
1442:

Line 1456: FND_MSG_PUB.add;

1452: AND (l_allow_price_override = 'N') THEN
1453: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1454: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1455: FND_MESSAGE.set_name('PO','PO_CHNG_GA_NO_PRICE_OVERRIDE');
1456: FND_MSG_PUB.add;
1457: END IF;
1458: END IF; -- l_has_ga_ref
1459:
1460: --

Line 1482: FND_MSG_PUB.add;

1478: IF (l_accrue_invoice_count > 0) THEN
1479: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1480: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1481: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1482: FND_MSG_PUB.add;
1483: END IF;
1484: END IF;
1485: END IF; -- IF (l_is_financing_po) THEN
1486: END IF; -- IF (NOT l_is_complex_work_po)

Line 1512: FND_MSG_PUB.add;

1508: IF (l_pending_rcv_transactions > 0) THEN
1509: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1510: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1511: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1512: FND_MSG_PUB.add;
1513: END IF;
1514: END IF;
1515:
1516: IF g_debug_stmt THEN

Line 1532: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||'.'||l_progress);

1528: PO_DEBUG.debug_exc(l_log_head, l_progress);
1529: END IF;
1530: WHEN OTHERS THEN
1531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1532: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||'.'||l_progress);
1533: IF g_debug_unexp THEN
1534: PO_DEBUG.debug_exc(l_log_head, l_progress);
1535: END IF;
1536: END check_std_po_price_updateable;

Line 1679: FND_MSG_PUB.add;

1675: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1676:
1677: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1678: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1679: FND_MSG_PUB.add;
1680: END IF;
1681: END IF;
1682:
1683: ELSE

Line 1689: FND_MSG_PUB.add;

1685: OR (l_qty_billed > 0) THEN
1686: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1687: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1688: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1689: FND_MSG_PUB.add;
1690: END IF;
1691: END IF;
1692: END IF; -- g_retropricing_mode
1693:

Line 1705: FND_MSG_PUB.add;

1701: AND (l_allow_price_override = 'N') THEN
1702: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1703: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1704: FND_MESSAGE.set_name('PO','PO_CHNG_NO_PRICE_OVERRIDE');
1705: FND_MSG_PUB.add;
1706: END IF;
1707: END IF;
1708:
1709: ----------------------------------------------------------------------------

Line 1731: FND_MSG_PUB.add;

1727: IF (l_pending_rcv_transactions > 0) THEN
1728: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1729: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1730: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1731: FND_MSG_PUB.add;
1732: END IF;
1733: END IF;
1734:
1735: IF g_debug_stmt THEN

Line 1751: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||'.'||l_progress);

1747: PO_DEBUG.debug_exc(l_log_head, l_progress);
1748: END IF;
1749: WHEN OTHERS THEN
1750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1751: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||'.'||l_progress);
1752: IF g_debug_unexp THEN
1753: PO_DEBUG.debug_exc(l_log_head, l_progress);
1754: END IF;
1755: END check_rel_price_updateable;