140: -- The Draft id of the Modification
141: -- Will be null for all cases except CheckFunds on Modification
142: --OUT:
143: --x_return_status
144: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
145: -- FND_API.G_RET_STS_ERROR if validation fails
146: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
147: --x_po_return_code
148: -- Indicates whether PO is classifying this transaction as an
141: -- Will be null for all cases except CheckFunds on Modification
142: --OUT:
143: --x_return_status
144: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
145: -- FND_API.G_RET_STS_ERROR if validation fails
146: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
147: --x_po_return_code
148: -- Indicates whether PO is classifying this transaction as an
149: -- Error/Warning/Partial Success/Success
142: --OUT:
143: --x_return_status
144: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
145: -- FND_API.G_RET_STS_ERROR if validation fails
146: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
147: --x_po_return_code
148: -- Indicates whether PO is classifying this transaction as an
149: -- Error/Warning/Partial Success/Success
150: --x_online_report_id
216: IF g_debug_stmt THEN
217: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
218: End If;
219:
220: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
221: l_use_enc_gt_flag := g_parameter_YES;
222: ELSE
223: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
224: OR x_return_status IS NULL ) THEN
219:
220: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
221: l_use_enc_gt_flag := g_parameter_YES;
222: ELSE
223: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
224: OR x_return_status IS NULL ) THEN
225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
226: END IF;
227: END IF;
221: l_use_enc_gt_flag := g_parameter_YES;
222: ELSE
223: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
224: OR x_return_status IS NULL ) THEN
225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
226: END IF;
227: END IF;
228:
229: END IF;
250: x_online_report_id => x_online_report_id);
251:
252: l_progress := '100';
253:
254: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
255: OR x_return_status IS NULL
256: ) THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: END IF;
253:
254: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
255: OR x_return_status IS NULL
256: ) THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: END IF;
259:
260: l_progress := '900';
261:
332: --p_override_date
333: -- Caller-specified date to use for distribution encumbrance date in GL entries
334: --OUT:
335: --x_return_status
336: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
337: -- FND_API.G_RET_STS_ERROR if validation fails
338: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
339: --x_po_return_code
340: -- Indicates whether PO is classifying this transaction as an
333: -- Caller-specified date to use for distribution encumbrance date in GL entries
334: --OUT:
335: --x_return_status
336: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
337: -- FND_API.G_RET_STS_ERROR if validation fails
338: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
339: --x_po_return_code
340: -- Indicates whether PO is classifying this transaction as an
341: -- Error/Warning/Partial Success/Success
334: --OUT:
335: --x_return_status
336: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
337: -- FND_API.G_RET_STS_ERROR if validation fails
338: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
339: --x_po_return_code
340: -- Indicates whether PO is classifying this transaction as an
341: -- Error/Warning/Partial Success/Success
342: --x_online_report_id
405: x_online_report_id => x_online_report_id);
406:
407: l_progress := '100';
408:
409: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
410: OR x_return_status IS NULL
411: ) THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: END IF;
408:
409: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
410: OR x_return_status IS NULL
411: ) THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: END IF;
414:
415: l_progress := '900';
416:
504: --p_employee_id
505: -- Employee Id of the user taking the action
506: --OUT:
507: --x_return_status
508: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
509: -- FND_API.G_RET_STS_ERROR if validation fails
510: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
511: --x_po_return_code
512: -- Indicates whether PO is classifying this transaction as an
505: -- Employee Id of the user taking the action
506: --OUT:
507: --x_return_status
508: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
509: -- FND_API.G_RET_STS_ERROR if validation fails
510: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
511: --x_po_return_code
512: -- Indicates whether PO is classifying this transaction as an
513: -- Error/Warning/Partial Success/Success
506: --OUT:
507: --x_return_status
508: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
509: -- FND_API.G_RET_STS_ERROR if validation fails
510: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
511: --x_po_return_code
512: -- Indicates whether PO is classifying this transaction as an
513: -- Error/Warning/Partial Success/Success
514: --x_online_report_id
583: x_online_report_id => x_online_report_id);
584:
585: l_progress := '100';
586:
587: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
588: OR x_return_status IS NULL
589: ) THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
586:
587: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
588: OR x_return_status IS NULL
589: ) THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
592:
593: l_progress := '900';
594:
681: --p_employee_id
682: -- Employee Id of the user taking the action
683: --OUT:
684: --x_return_status
685: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
686: -- FND_API.G_RET_STS_ERROR if validation fails
687: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
688: --x_po_return_code
689: -- Indicates whether PO is classifying this transaction as an
682: -- Employee Id of the user taking the action
683: --OUT:
684: --x_return_status
685: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
686: -- FND_API.G_RET_STS_ERROR if validation fails
687: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
688: --x_po_return_code
689: -- Indicates whether PO is classifying this transaction as an
690: -- Error/Warning/Partial Success/Success
683: --OUT:
684: --x_return_status
685: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
686: -- FND_API.G_RET_STS_ERROR if validation fails
687: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
688: --x_po_return_code
689: -- Indicates whether PO is classifying this transaction as an
690: -- Error/Warning/Partial Success/Success
691: --x_online_report_id
764: x_online_report_id => x_online_report_id);
765:
766: l_progress := '100';
767:
768: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
769: OR x_return_status IS NULL
770: ) THEN
771: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
772: END IF;
767:
768: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
769: OR x_return_status IS NULL
770: ) THEN
771: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
772: END IF;
773:
774: l_progress := '900';
775:
852: --p_override_date
853: -- Caller-specified date to use for distribution encumbrance date in GL entries
854: --OUT:
855: --x_return_status
856: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
857: -- FND_API.G_RET_STS_ERROR if validation fails
858: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
859: --x_po_return_code
860: -- Indicates whether PO is classifying this transaction as an
853: -- Caller-specified date to use for distribution encumbrance date in GL entries
854: --OUT:
855: --x_return_status
856: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
857: -- FND_API.G_RET_STS_ERROR if validation fails
858: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
859: --x_po_return_code
860: -- Indicates whether PO is classifying this transaction as an
861: -- Error/Warning/Partial Success/Success
854: --OUT:
855: --x_return_status
856: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
857: -- FND_API.G_RET_STS_ERROR if validation fails
858: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
859: --x_po_return_code
860: -- Indicates whether PO is classifying this transaction as an
861: -- Error/Warning/Partial Success/Success
862: --x_online_report_id
929: x_online_report_id => x_online_report_id);
930:
931: l_progress := '100';
932:
933: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
934: OR x_return_status IS NULL
935: ) THEN
936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
937: END IF;
932:
933: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
934: OR x_return_status IS NULL
935: ) THEN
936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
937: END IF;
938:
939: l_progress := '900';
940:
1021: --p_override_date
1022: -- Caller-specified date to use for distribution encumbrance date in GL entries
1023: --OUT:
1024: --x_return_status
1025: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1026: -- FND_API.G_RET_STS_ERROR if validation fails
1027: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1028: --x_po_return_code
1029: -- Indicates whether PO is classifying this transaction as an
1022: -- Caller-specified date to use for distribution encumbrance date in GL entries
1023: --OUT:
1024: --x_return_status
1025: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1026: -- FND_API.G_RET_STS_ERROR if validation fails
1027: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1028: --x_po_return_code
1029: -- Indicates whether PO is classifying this transaction as an
1030: -- Error/Warning/Partial Success/Success
1023: --OUT:
1024: --x_return_status
1025: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1026: -- FND_API.G_RET_STS_ERROR if validation fails
1027: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1028: --x_po_return_code
1029: -- Indicates whether PO is classifying this transaction as an
1030: -- Error/Warning/Partial Success/Success
1031: --x_online_report_id
1100: x_online_report_id => x_online_report_id);
1101:
1102: l_progress := '100';
1103:
1104: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1105: OR x_return_status IS NULL
1106: ) THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: END IF;
1103:
1104: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1105: OR x_return_status IS NULL
1106: ) THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: END IF;
1109:
1110: l_progress := '900';
1111:
1195: --p_override_date
1196: -- Caller-specified date to use for distribution encumbrance date in GL entries
1197: --OUT:
1198: --x_return_status
1199: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1200: -- FND_API.G_RET_STS_ERROR if validation fails
1201: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1202: --x_po_return_code
1203: -- Indicates whether PO is classifying this transaction as an
1196: -- Caller-specified date to use for distribution encumbrance date in GL entries
1197: --OUT:
1198: --x_return_status
1199: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1200: -- FND_API.G_RET_STS_ERROR if validation fails
1201: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1202: --x_po_return_code
1203: -- Indicates whether PO is classifying this transaction as an
1204: -- Error/Warning/Partial Success/Success
1197: --OUT:
1198: --x_return_status
1199: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1200: -- FND_API.G_RET_STS_ERROR if validation fails
1201: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1202: --x_po_return_code
1203: -- Indicates whether PO is classifying this transaction as an
1204: -- Error/Warning/Partial Success/Success
1205: --x_online_report_id
1274: x_online_report_id => x_online_report_id);
1275:
1276: l_progress := '100';
1277:
1278: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1279: OR x_return_status IS NULL
1280: ) THEN
1281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282: END IF;
1277:
1278: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1279: OR x_return_status IS NULL
1280: ) THEN
1281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282: END IF;
1283:
1284: l_progress := '900';
1285:
1363: -- If 'Y', then encumbrance code will make calls to check doc correctness
1364: -- If 'N', then the caller has already done these validations.
1365: --OUT:
1366: --x_return_status
1367: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1368: -- FND_API.G_RET_STS_ERROR if validation fails
1369: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1370: --x_po_return_code
1371: -- Indicates whether PO is classifying this transaction as an
1364: -- If 'N', then the caller has already done these validations.
1365: --OUT:
1366: --x_return_status
1367: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1368: -- FND_API.G_RET_STS_ERROR if validation fails
1369: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1370: --x_po_return_code
1371: -- Indicates whether PO is classifying this transaction as an
1372: -- Error/Warning/Partial Success/Success
1365: --OUT:
1366: --x_return_status
1367: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1368: -- FND_API.G_RET_STS_ERROR if validation fails
1369: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1370: --x_po_return_code
1371: -- Indicates whether PO is classifying this transaction as an
1372: -- Error/Warning/Partial Success/Success
1373: --x_online_report_id
1442: x_online_report_id => x_online_report_id);
1443:
1444: l_progress := '100';
1445:
1446: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1447: OR x_return_status IS NULL
1448: ) THEN
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1445:
1446: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1447: OR x_return_status IS NULL
1448: ) THEN
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1451:
1452: l_progress := '900';
1453:
1529: -- in GL entries.
1530: --OUT:
1531: --x_return_status
1532: -- VARCHAR2(1)
1533: -- FND_API.G_RET_STS_SUCCESS for success
1534: -- FND_API.G_RET_STS_ERROR for a forseen error
1535: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurs
1536: --x_po_return_code
1537: -- VARCHAR2(10)
1530: --OUT:
1531: --x_return_status
1532: -- VARCHAR2(1)
1533: -- FND_API.G_RET_STS_SUCCESS for success
1534: -- FND_API.G_RET_STS_ERROR for a forseen error
1535: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurs
1536: --x_po_return_code
1537: -- VARCHAR2(10)
1538: -- Indicates the PO classification of the results of this transaction.
1531: --x_return_status
1532: -- VARCHAR2(1)
1533: -- FND_API.G_RET_STS_SUCCESS for success
1534: -- FND_API.G_RET_STS_ERROR for a forseen error
1535: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurs
1536: --x_po_return_code
1537: -- VARCHAR2(10)
1538: -- Indicates the PO classification of the results of this transaction.
1539: -- g_return_<>
1600: );
1601:
1602: l_progress := '200';
1603:
1604: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1605: OR x_return_status IS NULL
1606: ) THEN
1607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1608: END IF;
1603:
1604: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1605: OR x_return_status IS NULL
1606: ) THEN
1607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1608: END IF;
1609:
1610: l_progress := '210';
1611: IF g_debug_stmt THEN
1624: );
1625:
1626: l_progress := '300';
1627:
1628: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1629: OR x_return_status IS NULL
1630: ) THEN
1631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1632: END IF;
1627:
1628: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1629: OR x_return_status IS NULL
1630: ) THEN
1631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1632: END IF;
1633:
1634: l_progress := '310';
1635: IF g_debug_stmt THEN
1671: );
1672:
1673: l_progress := '400';
1674:
1675: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1676: OR x_return_status IS NULL
1677: ) THEN
1678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1679: END IF;
1674:
1675: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1676: OR x_return_status IS NULL
1677: ) THEN
1678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1679: END IF;
1680:
1681: l_progress := '900';
1682:
1763: -- The id of the invoice that is causing the final match, when coming
1764: -- through an AP call.
1765: --OUT:
1766: --x_return_status
1767: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1768: -- FND_API.G_RET_STS_ERROR if validation fails
1769: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1770: --x_po_return_code
1771: -- Indicates whether PO is classifying this transaction as an
1764: -- through an AP call.
1765: --OUT:
1766: --x_return_status
1767: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1768: -- FND_API.G_RET_STS_ERROR if validation fails
1769: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1770: --x_po_return_code
1771: -- Indicates whether PO is classifying this transaction as an
1772: -- Error/Warning/Partial Success/Success
1765: --OUT:
1766: --x_return_status
1767: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
1768: -- FND_API.G_RET_STS_ERROR if validation fails
1769: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1770: --x_po_return_code
1771: -- Indicates whether PO is classifying this transaction as an
1772: -- Error/Warning/Partial Success/Success
1773: --x_online_report_id
1848: );
1849:
1850: l_progress := '100';
1851:
1852: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1853: OR x_return_status IS NULL
1854: ) THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: END IF;
1851:
1852: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1853: OR x_return_status IS NULL
1854: ) THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: END IF;
1857:
1858: l_progress := '900';
1859:
2030: );
2031:
2032: l_progress := '100';
2033:
2034: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2035: OR x_return_status IS NULL
2036: ) THEN
2037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2038: END IF;
2033:
2034: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2035: OR x_return_status IS NULL
2036: ) THEN
2037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2038: END IF;
2039:
2040: l_progress := '900';
2041:
2116: --p_employee_id
2117: -- Employee Id of the user taking the action
2118: --OUT:
2119: --x_return_status
2120: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2121: -- FND_API.G_RET_STS_ERROR if validation fails
2122: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2123: --x_po_return_code
2124: -- Indicates whether PO is classifying this transaction as an
2117: -- Employee Id of the user taking the action
2118: --OUT:
2119: --x_return_status
2120: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2121: -- FND_API.G_RET_STS_ERROR if validation fails
2122: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2123: --x_po_return_code
2124: -- Indicates whether PO is classifying this transaction as an
2125: -- Error/Warning/Partial Success/Success
2118: --OUT:
2119: --x_return_status
2120: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2121: -- FND_API.G_RET_STS_ERROR if validation fails
2122: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2123: --x_po_return_code
2124: -- Indicates whether PO is classifying this transaction as an
2125: -- Error/Warning/Partial Success/Success
2126: --x_online_report_id
2191: x_online_report_id => x_online_report_id);
2192:
2193: l_progress := '100';
2194:
2195: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2196: OR x_return_status IS NULL
2197: ) THEN
2198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2199: END IF;
2194:
2195: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2196: OR x_return_status IS NULL
2197: ) THEN
2198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2199: END IF;
2200:
2201: l_progress := '900';
2202:
2282: --p_employee_id
2283: -- Employee Id of the user taking the action
2284: --OUT:
2285: --x_return_status
2286: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2287: -- FND_API.G_RET_STS_ERROR if validation fails
2288: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2289: --x_po_return_code
2290: -- Indicates whether PO is classifying this transaction as an
2283: -- Employee Id of the user taking the action
2284: --OUT:
2285: --x_return_status
2286: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2287: -- FND_API.G_RET_STS_ERROR if validation fails
2288: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2289: --x_po_return_code
2290: -- Indicates whether PO is classifying this transaction as an
2291: -- Error/Warning/Partial Success/Success
2284: --OUT:
2285: --x_return_status
2286: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2287: -- FND_API.G_RET_STS_ERROR if validation fails
2288: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2289: --x_po_return_code
2290: -- Indicates whether PO is classifying this transaction as an
2291: -- Error/Warning/Partial Success/Success
2292: --x_online_report_id
2361: x_online_report_id => x_online_report_id);
2362:
2363: l_progress := '100';
2364:
2365: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2366: OR x_return_status IS NULL
2367: ) THEN
2368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2369: END IF;
2364:
2365: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2366: OR x_return_status IS NULL
2367: ) THEN
2368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2369: END IF;
2370:
2371: l_progress := '900';
2372:
2469: --OUT:
2470: --x_packet_id
2471: -- GL PACKET ID, if gl entries are made otherwise null
2472: --x_return_status
2473: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2474: -- FND_API.G_RET_STS_ERROR if validation fails
2475: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2476: --Testing:
2477: --
2470: --x_packet_id
2471: -- GL PACKET ID, if gl entries are made otherwise null
2472: --x_return_status
2473: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2474: -- FND_API.G_RET_STS_ERROR if validation fails
2475: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2476: --Testing:
2477: --
2478: --End of Comments
2471: -- GL PACKET ID, if gl entries are made otherwise null
2472: --x_return_status
2473: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2474: -- FND_API.G_RET_STS_ERROR if validation fails
2475: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2476: --Testing:
2477: --
2478: --End of Comments
2479: -------------------------------------------------------------------------------
2544: -- return success without doing anything.
2545:
2546: IF (NVL(p_tax_line_flag, g_parameter_NO) = g_parameter_YES) THEN
2547: x_packet_id := NULL;
2548: x_return_status := FND_API.G_RET_STS_SUCCESS;
2549: RETURN;
2550: END IF;
2551:
2552: l_progress := '005';
2580:
2581: IF ((l_amt_based_line_flag = 'N') and (NVL(p_qty_cancelled, 0) = 0))
2582: THEN
2583: x_packet_id := NULL;
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585: RETURN;
2586: END IF;
2587:
2588: l_progress := '008';
2612: ELSE -- p_qty_cancelled = 0, No entries should be created
2613: l_progress := '050';
2614:
2615: x_packet_id := NULL;
2616: x_return_status := FND_API.G_RET_STS_SUCCESS;
2617:
2618: return;
2619: END IF;
2620:
2673: );
2674:
2675: l_progress := '090';
2676:
2677: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2678: OR x_return_status IS NULL
2679: ) THEN
2680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2681: END IF;
2676:
2677: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2678: OR x_return_status IS NULL
2679: ) THEN
2680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2681: END IF;
2682:
2683: l_progress := '100';
2684:
2745: -- A table of po_header_ids corresponding to the PAs that we are checking
2746: -- the encumbered state of.
2747: --OUT:
2748: --x_return_status
2749: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2750: -- FND_API.G_RET_STS_ERROR if validation fails
2751: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2752: --x_agreement_encumbered_tbl
2753: -- A table of Y/N results indicating whether each PA is encumbered or not.
2746: -- the encumbered state of.
2747: --OUT:
2748: --x_return_status
2749: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2750: -- FND_API.G_RET_STS_ERROR if validation fails
2751: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2752: --x_agreement_encumbered_tbl
2753: -- A table of Y/N results indicating whether each PA is encumbered or not.
2754: -- Y = the given PA is/can be encumbered.
2747: --OUT:
2748: --x_return_status
2749: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2750: -- FND_API.G_RET_STS_ERROR if validation fails
2751: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2752: --x_agreement_encumbered_tbl
2753: -- A table of Y/N results indicating whether each PA is encumbered or not.
2754: -- Y = the given PA is/can be encumbered.
2755: -- N = the PA is not eligible for encumbrance
2874: ;
2875:
2876: l_progress := '040';
2877:
2878: x_return_status := fnd_api.g_ret_sts_success;
2879:
2880: l_progress := '900';
2881:
2882: IF g_debug_stmt THEN
2888: EXCEPTION
2889: WHEN OTHERS THEN
2890: BEGIN
2891: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
2892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2893: IF g_debug_stmt THEN
2894: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2895: PO_DEBUG.debug_var(l_log_head,l_progress,'x_agreement_encumbered_tbl',x_agreement_encumbered_tbl);
2896: END IF;
2926: -- A po_header_id corresponding to the PA that we are checking
2927: -- the encumbered state of.
2928: --OUT:
2929: --x_return_status
2930: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2931: -- FND_API.G_RET_STS_ERROR if validation fails
2932: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2933: --x_agreement_encumbered_flag
2934: -- Indicates whether the PA is encumbered or not.
2927: -- the encumbered state of.
2928: --OUT:
2929: --x_return_status
2930: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2931: -- FND_API.G_RET_STS_ERROR if validation fails
2932: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2933: --x_agreement_encumbered_flag
2934: -- Indicates whether the PA is encumbered or not.
2935: -- Y = the given PA is/can be encumbered.
2928: --OUT:
2929: --x_return_status
2930: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
2931: -- FND_API.G_RET_STS_ERROR if validation fails
2932: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2933: --x_agreement_encumbered_flag
2934: -- Indicates whether the PA is encumbered or not.
2935: -- Y = the given PA is/can be encumbered.
2936: -- N = the PA is not eligible for encumbrance
2999: EXCEPTION
3000: WHEN OTHERS THEN
3001: BEGIN
3002: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3004: ROLLBACK TO IS_AGREEMENT_ENCUMBERED_SP;
3005: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3006: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3007: END IF;
3077: --p_employee_id
3078: -- Employee Id of the user taking the action
3079: --OUT:
3080: --x_return_status
3081: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
3082: -- FND_API.G_RET_STS_ERROR if validation fails
3083: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3084: --x_po_return_code
3085: -- Indicates whether PO is classifying this transaction as an
3078: -- Employee Id of the user taking the action
3079: --OUT:
3080: --x_return_status
3081: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
3082: -- FND_API.G_RET_STS_ERROR if validation fails
3083: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3084: --x_po_return_code
3085: -- Indicates whether PO is classifying this transaction as an
3086: -- Error/Warning/Partial Success/Success
3079: --OUT:
3080: --x_return_status
3081: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
3082: -- FND_API.G_RET_STS_ERROR if validation fails
3083: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3084: --x_po_return_code
3085: -- Indicates whether PO is classifying this transaction as an
3086: -- Error/Warning/Partial Success/Success
3087: --x_online_report_id
3412: p_calling_program =>g_action_RESERVE,
3413: x_return_status => l_return_status);
3414: END IF;
3415:
3416: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3417: IF g_debug_stmt THEN
3418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3419: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3420: l_api_name||'.' || l_progress,
3428: p_message_text => l_exc_message_text,
3429: p_user_id => l_user_id,
3430: x_online_report_id => x_online_report_id
3431: );
3432: x_return_status := FND_API.G_RET_STS_ERROR;
3433: x_po_return_code := g_return_FAILURE;
3434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3435: END IF;
3436: END IF;
3430: x_online_report_id => x_online_report_id
3431: );
3432: x_return_status := FND_API.G_RET_STS_ERROR;
3433: x_po_return_code := g_return_FAILURE;
3434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3435: END IF;
3436: END IF;
3437: --
3438: END IF; -- end of check for Reserve action
3502:
3503: IF (l_validation_successful_flag <> g_parameter_YES) THEN
3504: l_progress := '035';
3505: l_exc_code := g_SUBMISSION_CHECK_EXC_CODE;
3506: RAISE FND_API.G_EXC_ERROR;
3507: END IF;
3508:
3509: l_progress := '040';
3510:
3523: , p_cbc_flag => p_cbc_flag
3524: , x_count => l_dist_count
3525: );
3526: EXCEPTION
3527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3528: l_progress := '041';
3529: l_exc_code := G_GET_ALL_DISTS_EXC_CODE;
3530: RAISE;
3531: END;
3534:
3535: IF (NVL(l_dist_count,0) < 1) THEN
3536: l_progress := '045';
3537: l_exc_code := g_NO_ROWS_EXC_CODE;
3538: RAISE FND_API.G_EXC_ERROR;
3539: END IF;
3540:
3541: l_progress := '046';
3542: IF g_debug_stmt THEN
3741: , p_user_resp_id => l_user_resp_id
3742: , x_return_code => l_gl_return_code
3743: );
3744: EXCEPTION
3745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3746: l_progress := '075';
3747: l_exc_code := g_EXECUTE_GL_CALL_EXC_CODE;
3748: RAISE;
3749: --
3942: --
3943: PO_ENCUMBRANCE_POSTPROCESSING.populate_bc_report_id(x_online_report_id);
3944: --
3945: IF x_po_return_code IN (g_return_SUCCESS, g_return_WARNING) THEN
3946: x_return_status := FND_API.g_ret_sts_success;
3947: ELSIF x_po_return_code IN (g_return_PARTIAL, g_return_FAILURE) THEN
3948: x_return_status := FND_API.g_ret_sts_error;
3949: ELSE
3950: x_return_status := FND_API.g_ret_sts_unexp_error;
3944: --
3945: IF x_po_return_code IN (g_return_SUCCESS, g_return_WARNING) THEN
3946: x_return_status := FND_API.g_ret_sts_success;
3947: ELSIF x_po_return_code IN (g_return_PARTIAL, g_return_FAILURE) THEN
3948: x_return_status := FND_API.g_ret_sts_error;
3949: ELSE
3950: x_return_status := FND_API.g_ret_sts_unexp_error;
3951: END IF;
3952:
3946: x_return_status := FND_API.g_ret_sts_success;
3947: ELSIF x_po_return_code IN (g_return_PARTIAL, g_return_FAILURE) THEN
3948: x_return_status := FND_API.g_ret_sts_error;
3949: ELSE
3950: x_return_status := FND_API.g_ret_sts_unexp_error;
3951: END IF;
3952:
3953: -- Push the po_return_msg onto api msg list
3954: -- Bug 3516763: No longer put a message on the message dictionary stack.
4001: -- Set the return statuses.
4002: --
4003:
4004: IF (l_exc_code = g_NO_ROWS_EXC_CODE) THEN
4005: x_return_status := FND_API.G_RET_STS_SUCCESS;
4006: x_po_return_code := g_return_SUCCESS;
4007: l_po_return_msg_name := 'PO_ENC_API_SUCCESS';
4008: --Bug : 14536217 Returning error code as FAILURE and status as 'E'
4009: --instead of 'U' when GL_GUNDS_API_EXC is thrown as this is not an
4009: --instead of 'U' when GL_GUNDS_API_EXC is thrown as this is not an
4010: -- unexpected error
4011: ELSIF (l_exc_code = g_SUBMISSION_CHECK_EXC_CODE
4012: OR l_exc_code = g_GL_FUNDS_API_EXC) THEN
4013: x_return_status := FND_API.g_ret_sts_error;
4014: x_po_return_code := g_return_FAILURE;
4015: l_po_return_msg_name := 'PO_ENC_API_FAILURE';
4016: ELSE
4017: x_return_status := FND_API.g_ret_sts_unexp_error;
4013: x_return_status := FND_API.g_ret_sts_error;
4014: x_po_return_code := g_return_FAILURE;
4015: l_po_return_msg_name := 'PO_ENC_API_FAILURE';
4016: ELSE
4017: x_return_status := FND_API.g_ret_sts_unexp_error;
4018: x_po_return_code := g_return_FATAL;
4019: l_po_return_msg_name := 'PO_ENC_API_FAILURE';
4020: END IF;
4021:
4054: -- Retrieve that message.
4055: l_exc_message_text :=
4056: FND_MSG_PUB.get(
4057: p_msg_index => FND_MSG_PUB.G_LAST
4058: , p_encoded => FND_API.G_FALSE
4059: );
4060: --
4061: ELSIF (l_exc_code = g_GL_FUNDS_API_EXC) then
4062: l_exc_message_text := 'GL_FUNDS_API_EXC';
4148: -- Warning and Error rows are always included.
4149: -- Values: g_parameter_YES, g_parameter_NO
4150: --OUT:
4151: --x_return_status
4152: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
4153: -- FND_API.G_RET_STS_ERROR if validation fails
4154: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4155: --x_report_object
4156: -- Object of po_fcout_type
4149: -- Values: g_parameter_YES, g_parameter_NO
4150: --OUT:
4151: --x_return_status
4152: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
4153: -- FND_API.G_RET_STS_ERROR if validation fails
4154: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4155: --x_report_object
4156: -- Object of po_fcout_type
4157: --Testing:
4150: --OUT:
4151: --x_return_status
4152: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
4153: -- FND_API.G_RET_STS_ERROR if validation fails
4154: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4155: --x_report_object
4156: -- Object of po_fcout_type
4157: --Testing:
4158: --
4221: )
4222: ;
4223:
4224: l_progress := '020';
4225: x_return_status := FND_API.g_ret_sts_success;
4226:
4227: IF g_debug_stmt THEN
4228: PO_DEBUG.debug_end(l_log_head);
4229: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',
4234: WHEN OTHERS THEN
4235: BEGIN
4236: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
4237: --unexpected error from this procedure
4238: x_return_status := FND_API.g_ret_sts_unexp_error;
4239: --add message to the stack and log a debug msg if necessary
4240: po_message_s.sql_error(g_pkg_name, l_api_name, l_progress, SQLCODE, SQLERRM);
4241: fnd_msg_pub.add;
4242: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
4279: -- The id corresponding to the doc level type:
4280: -- header_id/release_id, line_id, line_location_id, distribution_id
4281: --OUT:
4282: --x_return_status
4283: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
4284: -- FND_API.G_RET_STS_ERROR if validation fails
4285: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4286: --x_reservable_flag
4287: -- Indicates whether funds reservation is possible on this doc level
4280: -- header_id/release_id, line_id, line_location_id, distribution_id
4281: --OUT:
4282: --x_return_status
4283: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
4284: -- FND_API.G_RET_STS_ERROR if validation fails
4285: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4286: --x_reservable_flag
4287: -- Indicates whether funds reservation is possible on this doc level
4288: -- 'Y' means it is possible, 'N' means it isn't.
4281: --OUT:
4282: --x_return_status
4283: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
4284: -- FND_API.G_RET_STS_ERROR if validation fails
4285: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4286: --x_reservable_flag
4287: -- Indicates whether funds reservation is possible on this doc level
4288: -- 'Y' means it is possible, 'N' means it isn't.
4289: --Testing:
4330: x_action_possible_flag => x_reservable_flag);
4331:
4332: l_progress := '100';
4333:
4334: x_return_status := fnd_api.g_ret_sts_success;
4335:
4336: l_progress := '900';
4337:
4338: IF g_debug_stmt THEN
4344: EXCEPTION
4345: WHEN OTHERS THEN
4346: BEGIN
4347: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
4348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4349: ROLLBACK TO IS_RESERVABLE_SP;
4350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4351: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4352: END IF;
4390: -- The id corresponding to the doc level type:
4391: -- header_id/release_id, line_id, line_location_id, distribution_id
4392: --OUT:
4393: --x_return_status
4394: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
4395: -- FND_API.G_RET_STS_ERROR if validation fails
4396: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4397: --x_unreservable_flag
4398: -- Indicates whether funds unreservation is possible on this doc level
4391: -- header_id/release_id, line_id, line_location_id, distribution_id
4392: --OUT:
4393: --x_return_status
4394: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
4395: -- FND_API.G_RET_STS_ERROR if validation fails
4396: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4397: --x_unreservable_flag
4398: -- Indicates whether funds unreservation is possible on this doc level
4399: -- 'Y' means it is possible, 'N' means it isn't.
4392: --OUT:
4393: --x_return_status
4394: -- FND_API.G_RET_STS_SUCCESS if validation succeeds
4395: -- FND_API.G_RET_STS_ERROR if validation fails
4396: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4397: --x_unreservable_flag
4398: -- Indicates whether funds unreservation is possible on this doc level
4399: -- 'Y' means it is possible, 'N' means it isn't.
4400: --Testing:
4441: x_action_possible_flag => x_unreservable_flag);
4442:
4443: l_progress := '100';
4444:
4445: x_return_status := fnd_api.g_ret_sts_success;
4446:
4447: l_progress := '900';
4448:
4449: IF g_debug_stmt THEN
4455: EXCEPTION
4456: WHEN OTHERS THEN
4457: BEGIN
4458: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
4459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4460: ROLLBACK TO IS_UNRESERVABLE_SP;
4461: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4462: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4463: END IF;
4554:
4555: BEGIN
4556:
4557: SAVEPOINT populate_encumbrance_gt_PVT;
4558: x_return_status := FND_API.G_RET_STS_SUCCESS;
4559:
4560: IF g_debug_stmt THEN
4561: PO_DEBUG.debug_begin(l_log_head);
4562: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
4933: EXCEPTION
4934: WHEN OTHERS THEN
4935: BEGIN
4936: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
4937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4938: ROLLBACK TO populate_encumbrance_gt_PVT;
4939: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
4940: EXCEPTION
4941: WHEN OTHERS THEN
5028:
5029: l_progress := '020';
5030:
5031: -- Initialize API return status to success
5032: x_return_status := FND_API.G_RET_STS_SUCCESS;
5033:
5034: l_progress := '100';
5035:
5036: -- Clear the existing data from the encumbrance table.
5080: EXCEPTION
5081: WHEN OTHERS THEN
5082: BEGIN
5083: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
5084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5085: ROLLBACK TO POPULATE_ENC_GT_ACTION_IDS_PVT;
5086: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5087: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
5088: END IF;
5117: -- The location in the procedure at which the exception occurred.
5118: --OUT:
5119: --x_return_status
5120: -- VARCHAR2(1)
5121: -- Will be set to FND_API.g_ret_sts_unexp_error.
5122: --x_po_return_code
5123: -- VARCHAR2(10)
5124: -- Will be set to g_return_FATAL.
5125: --Notes:
5153:
5154:
5155: -- 1. Set the API return statuses to indicate a failure.
5156:
5157: x_return_status := FND_API.g_ret_sts_unexp_error;
5158: x_po_return_code := g_return_FATAL;
5159:
5160: l_progress := '100';
5161:
5257: )
5258: IS
5259: l_api_name CONSTANT varchar2(30) := 'POPULATE_BC_REPORT_EVENTS';
5260: BEGIN
5261: x_return_status := FND_API.G_RET_STS_SUCCESS;
5262:
5263: DELETE FROM PSA_BC_REPORT_EVENTS_GT;
5264: --
5265: --Going forward we would populate the events and distribution ids
5286: EXCEPTION
5287: WHEN OTHERS THEN
5288: PO_DEBUG.handle_unexp_error ( p_pkg_name => g_pkg_name,
5289: p_proc_name => l_api_name);
5290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5291: END POPULATE_BC_REPORT_EVENTS;
5292:
5293: -------------------------------------------------------------------------------
5294: --Start of Comments
5312: --IN OUT:
5313: -- None.
5314: --OUT:
5315: -- x_return_status : overall status of the procedure - i.e.
5316: -- FND_API.G_RET_STS_SUCCESS or FND_API.G_RET_STS_UNEXP_ERROR
5317: -- x_report_created : 'Y'/'N' to indicate whether the report was created
5318: -- successfully
5319: --Notes:
5320: --Testing:
5338: l_application_id NUMBER := 201; -- PO
5339: l_return_status VARCHAR2(1);
5340: l_progress VARCHAR2(3) := '000';
5341: BEGIN
5342: x_return_status := FND_API.G_RET_STS_SUCCESS;
5343: x_report_created := 'N';
5344: --
5345: PO_DOCUMENT_FUNDS_PVT.g_ONLINE_REPORT_ID:=p_online_report_id;
5346: --
5350: p_online_report_id => p_online_report_id,
5351: x_events_populated => l_events_populated
5352: );
5353:
5354: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5356: END IF;
5357: --
5358: --If events haven't been populated we needto look into po_online_report_text
5351: x_events_populated => l_events_populated
5352: );
5353:
5354: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5356: END IF;
5357: --
5358: --If events haven't been populated we needto look into po_online_report_text
5359: -- to figure out if any of the rows in it are marked as show in psa.
5414: WHEN OTHERS THEN
5415: PO_DEBUG.handle_unexp_error ( p_pkg_name => g_pkg_name,
5416: p_proc_name => l_api_name,
5417: p_progress => l_progress );
5418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5419: END POPULATE_AND_CREATE_BC_REPORT;
5420: --
5421:
5422: --
5511: --IN OUT:
5512: -- None.
5513: --OUT:
5514: -- x_return_status : overall status of the procedure - i.e.
5515: -- FND_API.G_RET_STS_SUCCESS or FND_API.G_RET_STS_UNEXP_ERROR
5516: --Notes:
5517: --Testing:
5518: --
5519: --End of Comments
5535:
5536: BEGIN
5537:
5538: SAVEPOINT Populate_Enc_Gt_Draft;
5539: x_return_status := FND_API.G_RET_STS_SUCCESS;
5540:
5541: IF g_debug_stmt THEN
5542: po_debug.Debug_begin(l_log_head);
5543: po_debug.Debug_var(l_log_head,l_progress,'p_Draft_Id',p_draft_id);
5712: EXCEPTION
5713: WHEN OTHERS THEN
5714: BEGIN
5715: po_debug.Debug_unexp(l_log_head,l_progress,'OTHERS Start');
5716: x_return_status := fnd_api.g_ret_sts_unexp_error;
5717: ROLLBACK TO Populate_Enc_Gt_Draft;
5718:
5719: po_debug.Debug_unexp(l_log_head,l_progress,'OTHERS End');
5720: EXCEPTION