DBA Data[Home] [Help]

APPS.PO_DOCUMENT_CHECKS_GRP dependencies on FND_MSG_PUB

Line 161: FND_MSG_PUB.Add;

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

Line 170: FND_MSG_PUB.Add;

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

Line 181: FND_MSG_PUB.Add;

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

Line 189: FND_MSG_PUB.Add;

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

Line 197: FND_MSG_PUB.Add;

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

Line 208: FND_MSG_PUB.Add;

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

Line 215: FND_MSG_PUB.Add;

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

Line 240: FND_MSG_PUB.Add;

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

Line 254: FND_MSG_PUB.Add;

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

Line 270: FND_MSG_PUB.Add;

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

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

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

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

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

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

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

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

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

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

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

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

518:
519: l_progress := '001';
520: EXCEPTION
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
523: p_encoded => 'F');
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
525: x_sub_check_status := FND_API.G_RET_STS_ERROR;
526: WHEN FND_API.G_EXC_ERROR THEN

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

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

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

528: p_encoded => 'F');
529: x_return_status := FND_API.G_RET_STS_ERROR;
530: x_sub_check_status := FND_API.G_RET_STS_ERROR;
531: WHEN OTHERS THEN
532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
533: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
534: END IF;
535:
536: IF (g_fnd_debug = 'Y') THEN

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

529: x_return_status := FND_API.G_RET_STS_ERROR;
530: x_sub_check_status := FND_API.G_RET_STS_ERROR;
531: WHEN OTHERS THEN
532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
533: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
534: END IF;
535:
536: IF (g_fnd_debug = 'Y') THEN
537: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

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

540: || l_progress || ' SQL CODE is '||sqlcode);
541: END IF;
542: END IF;
543:
544: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
545: p_encoded => 'F');
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: x_sub_check_status := FND_API.G_RET_STS_ERROR;
548: END po_submission_check;

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

613: l_progress := '001';
614:
615: EXCEPTION
616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
617: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
618: p_encoded => 'F');
619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620: x_sub_check_status := FND_API.G_RET_STS_ERROR;
621:

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

619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620: x_sub_check_status := FND_API.G_RET_STS_ERROR;
621:
622: WHEN FND_API.G_EXC_ERROR THEN
623: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
624: p_encoded => 'F');
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: x_sub_check_status := FND_API.G_RET_STS_ERROR;
627:

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

625: x_return_status := FND_API.G_RET_STS_ERROR;
626: x_sub_check_status := FND_API.G_RET_STS_ERROR;
627:
628: WHEN OTHERS THEN
629: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
630: THEN
631: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
632: END IF;
633:

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

627:
628: WHEN OTHERS THEN
629: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
630: THEN
631: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
632: END IF;
633:
634: IF ( g_fnd_debug = 'Y' )
635: THEN

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

639: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '|| sqlcode);
640: END IF;
641: END IF;
642:
643: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
644: p_encoded => 'F');
645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
646: x_sub_check_status := FND_API.G_RET_STS_ERROR;
647:

Line 791: FND_MSG_PUB.Add;

787: (p_minimum_access_level IS NULL) OR (p_document_type is NULL) OR
788: (p_document_subtype is NULL) OR (p_type_clause is NULL)) THEN
789: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
790: FND_MESSAGE.set_token('ERROR_TEXT', 'Mandatory parameters are NULL');
791: FND_MSG_PUB.Add;
792: RAISE FND_API.G_EXC_ERROR;
793: END IF; /*(p_query_table is NULL) OR (p_owner_id_column is NULL)*/
794:
795: l_progress := '020';

Line 800: FND_MSG_PUB.Add;

796: --Check p_minimum_access_level
797: IF p_minimum_access_level NOT IN ('VIEW_ONLY', 'MODIFY', 'FULL') THEN
798: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
799: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Minimum Access Level');
800: FND_MSG_PUB.Add;
801: RAISE FND_API.G_EXC_ERROR;
802: END IF; /*p_minimum_access_level NOT IN ('VIEW_ONLY', 'MODIFY', 'ALL')*/
803:
804: l_progress := '030';

Line 811: FND_MSG_PUB.Add;

807: IF p_document_type NOT IN ('RFQ', 'QUOTATION', 'REQUISITION',
808: 'RELEASE', 'PO', 'PA', 'PO_PA') THEN
809: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
810: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Type');
811: FND_MSG_PUB.Add;
812: RAISE FND_API.G_EXC_ERROR;
813: END IF; /*p_document_type NOT IN ('RFQ', 'QUOTATION', 'REQUISITION',*/
814:
815: l_progress := '040';

Line 821: FND_MSG_PUB.Add;

817: IF p_document_type = 'REQUISITION' THEN
818: IF p_document_subtype NOT IN ('PURCHASE', 'INTERNAL') THEN
819: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
820: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
821: FND_MSG_PUB.Add;
822: RAISE FND_API.G_EXC_ERROR;
823: END IF;
824: ELSIF p_document_type = 'RELEASE' THEN
825: IF p_document_subtype NOT IN ('SCHEDULED', 'BLANKET') THEN

Line 828: FND_MSG_PUB.Add;

824: ELSIF p_document_type = 'RELEASE' THEN
825: IF p_document_subtype NOT IN ('SCHEDULED', 'BLANKET') THEN
826: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
827: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
828: FND_MSG_PUB.Add;
829: RAISE FND_API.G_EXC_ERROR;
830: END IF;
831: ELSIF p_document_type = 'PO' THEN
832: IF p_document_subtype NOT IN ('STANDARD', 'PLANNED') THEN

Line 835: FND_MSG_PUB.Add;

831: ELSIF p_document_type = 'PO' THEN
832: IF p_document_subtype NOT IN ('STANDARD', 'PLANNED') THEN
833: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
834: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
835: FND_MSG_PUB.Add;
836: RAISE FND_API.G_EXC_ERROR;
837: END IF;
838: ELSIF p_document_type = 'PA' THEN
839: IF p_document_subtype NOT IN ('BLANKET', 'CONTRACT') THEN

Line 842: FND_MSG_PUB.Add;

838: ELSIF p_document_type = 'PA' THEN
839: IF p_document_subtype NOT IN ('BLANKET', 'CONTRACT') THEN
840: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
841: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
842: FND_MSG_PUB.Add;
843: RAISE FND_API.G_EXC_ERROR;
844: END IF;
845: -- Bug 5054685 Start: Performance issue. Collapsed multiple security
846: -- related where-clauses into one.

Line 851: FND_MSG_PUB.Add;

847: ELSIF p_document_type = 'PO_PA' THEN
848: IF p_document_subtype NOT IN ('ALL') THEN
849: FND_MESSAGE.set_name('PO', 'PO_SEC_GENERAL_ERROR');
850: FND_MESSAGE.set_token('ERROR_TEXT', 'Invalid Document Subtype');
851: FND_MSG_PUB.Add;
852: RAISE FND_API.G_EXC_ERROR;
853: END IF;
854: -- Bug 5054685 End
855: END IF; /*p_document_type = 'REQUISITION'*/

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

877:
878: l_progress := '100';
879: EXCEPTION
880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
881: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
882: p_encoded => 'F');
883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
884: x_where_clause := NULL;
885: WHEN FND_API.G_EXC_ERROR THEN

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

882: p_encoded => 'F');
883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
884: x_where_clause := NULL;
885: WHEN FND_API.G_EXC_ERROR THEN
886: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
887: p_encoded => 'F');
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: x_where_clause := NULL;
890: WHEN OTHERS THEN

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

887: p_encoded => 'F');
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: x_where_clause := NULL;
890: WHEN OTHERS THEN
891: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
892: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
893: END IF;
894:
895: IF (g_fnd_debug = 'Y') THEN

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

888: x_return_status := FND_API.G_RET_STS_ERROR;
889: x_where_clause := NULL;
890: WHEN OTHERS THEN
891: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
892: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
893: END IF;
894:
895: IF (g_fnd_debug = 'Y') THEN
896: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

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

899: || l_progress || ' SQL CODE is '||sqlcode);
900: END IF;
901: END IF;
902:
903: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
904: p_encoded => 'F');
905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
906: x_where_clause := NULL;
907: END PO_SECURITY_CHECK;

Line 974: FND_MSG_PUB.Add;

970: ELSIF p_vendor_order_num IS NOT NULL THEN
971: l_count := p_vendor_order_num.COUNT;
972: ELSE -- The required input table ID parameters are all null !
973: FND_MESSAGE.set_name('PO', 'PO_STATCHK_ERR_NULL_INPARAM');
974: FND_MSG_PUB.Add;
975: RAISE FND_API.G_EXC_ERROR;
976: END IF;
977:
978: --Initialize any null Tables to a dummy table of null values with length of p_header_id.COUNT

Line 1023: FND_MSG_PUB.Add;

1019: OR l_count <> p_distribution_id.count THEN
1020:
1021: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
1022: FND_MESSAGE.set_token('ERROR_TEXT', 'The input table ID parameters are not of same size !');
1023: FND_MSG_PUB.Add;
1024: RAISE FND_API.G_EXC_ERROR;
1025: END IF;
1026:
1027: --Validate that a Header or Release is specified through any of the possible combinations

Line 1039: FND_MSG_PUB.Add;

1035: IF (p_header_id(i) IS NULL) AND (p_release_id(i) IS NULL) THEN
1036: -- Means that no Header/Release is specified
1037: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
1038: FND_MESSAGE.set_token('ERROR_TEXT', 'There is no Header/Release specified at index ' || i);
1039: FND_MSG_PUB.Add;
1040: RAISE FND_API.G_EXC_ERROR;
1041: END IF;
1042:
1043: END LOOP;

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

1050: WHEN FND_API.G_EXC_ERROR THEN
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: WHEN OTHERS THEN
1053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1054: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
1055:
1056: END validate_status_check_inputs;
1057:
1058: -------------------------------------------------------------------------------

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

1164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1166: WHEN OTHERS THEN
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1168: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
1169:
1170: END po_status_check;
1171:
1172: -------------------------------------------------------------------------------

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

1247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1249: WHEN OTHERS THEN
1250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1251: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
1252:
1253: END po_status_check;
1254:
1255: -- Bug 3312906 START

Line 1410: FND_MSG_PUB.add;

1406: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1407:
1408: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1409: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1410: FND_MSG_PUB.add;
1411: END IF;
1412: END IF;
1413:
1414: ELSE

Line 1428: FND_MSG_PUB.add;

1424: IF (l_accrue_invoice_count > 0) THEN
1425: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1426: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1427: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1428: FND_MSG_PUB.add;
1429: END IF;
1430: END IF;
1431: END IF; -- if retro mode is all_releases
1432:

Line 1446: FND_MSG_PUB.add;

1442: AND (l_allow_price_override = 'N') THEN
1443: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1444: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1445: FND_MESSAGE.set_name('PO','PO_CHNG_GA_NO_PRICE_OVERRIDE');
1446: FND_MSG_PUB.add;
1447: END IF;
1448: END IF; -- l_has_ga_ref
1449:
1450: --

Line 1472: FND_MSG_PUB.add;

1468: IF (l_accrue_invoice_count > 0) THEN
1469: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1470: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1471: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1472: FND_MSG_PUB.add;
1473: END IF;
1474: END IF;
1475: END IF; -- IF (l_is_financing_po) THEN
1476: END IF; -- IF (NOT l_is_complex_work_po)

Line 1502: FND_MSG_PUB.add;

1498: IF (l_pending_rcv_transactions > 0) THEN
1499: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1500: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1501: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1502: FND_MSG_PUB.add;
1503: END IF;
1504: END IF;
1505:
1506: IF g_debug_stmt THEN

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

1518: PO_DEBUG.debug_exc(l_log_head, l_progress);
1519: END IF;
1520: WHEN OTHERS THEN
1521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1522: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||'.'||l_progress);
1523: IF g_debug_unexp THEN
1524: PO_DEBUG.debug_exc(l_log_head, l_progress);
1525: END IF;
1526: END check_std_po_price_updateable;

Line 1669: FND_MSG_PUB.add;

1665: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1666:
1667: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1668: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1669: FND_MSG_PUB.add;
1670: END IF;
1671: END IF;
1672:
1673: ELSE

Line 1679: FND_MSG_PUB.add;

1675: OR (l_qty_billed > 0) THEN
1676: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1677: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1678: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1679: FND_MSG_PUB.add;
1680: END IF;
1681: END IF;
1682: END IF; -- g_retropricing_mode
1683:

Line 1695: FND_MSG_PUB.add;

1691: AND (l_allow_price_override = 'N') THEN
1692: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1693: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1694: FND_MESSAGE.set_name('PO','PO_CHNG_NO_PRICE_OVERRIDE');
1695: FND_MSG_PUB.add;
1696: END IF;
1697: END IF;
1698:
1699: ----------------------------------------------------------------------------

Line 1721: FND_MSG_PUB.add;

1717: IF (l_pending_rcv_transactions > 0) THEN
1718: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1719: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1720: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1721: FND_MSG_PUB.add;
1722: END IF;
1723: END IF;
1724:
1725: IF g_debug_stmt THEN

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

1737: PO_DEBUG.debug_exc(l_log_head, l_progress);
1738: END IF;
1739: WHEN OTHERS THEN
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1741: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||'.'||l_progress);
1742: IF g_debug_unexp THEN
1743: PO_DEBUG.debug_exc(l_log_head, l_progress);
1744: END IF;
1745: END check_rel_price_updateable;