80: l_drop_ship_row l_drop_ship_csr%ROWTYPE;
81:
82: BEGIN
83: -- Start standard API initialization
84: IF FND_API.to_boolean(p_init_msg_list) THEN
85: FND_MSG_PUB.initialize;
86: END IF;
87:
88: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
84: IF FND_API.to_boolean(p_init_msg_list) THEN
85: FND_MSG_PUB.initialize;
86: END IF;
87:
88: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
89: d_api_name, g_pkg_name) THEN
90: RAISE FND_API.g_exc_unexpected_error;
91: END IF;
92:
86: END IF;
87:
88: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
89: d_api_name, g_pkg_name) THEN
90: RAISE FND_API.g_exc_unexpected_error;
91: END IF;
92:
93: IF g_debug_stmt THEN
94: PO_DEBUG.debug_begin(d_module);
122: PO_DEBUG.debug_var(d_module, l_progress, 'l_return_status', l_return_status);
123: END IF;
124:
125: IF (l_return_status IS NULL) THEN
126: l_return_status := FND_API.g_ret_sts_success;
127: END IF;
128:
129: IF (l_return_status = FND_API.g_ret_sts_error) THEN
130: RAISE FND_API.g_exc_error;
125: IF (l_return_status IS NULL) THEN
126: l_return_status := FND_API.g_ret_sts_success;
127: END IF;
128:
129: IF (l_return_status = FND_API.g_ret_sts_error) THEN
130: RAISE FND_API.g_exc_error;
131: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
132: RAISE FND_API.g_exc_unexpected_error;
133: END IF;
126: l_return_status := FND_API.g_ret_sts_success;
127: END IF;
128:
129: IF (l_return_status = FND_API.g_ret_sts_error) THEN
130: RAISE FND_API.g_exc_error;
131: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
132: RAISE FND_API.g_exc_unexpected_error;
133: END IF;
134:
127: END IF;
128:
129: IF (l_return_status = FND_API.g_ret_sts_error) THEN
130: RAISE FND_API.g_exc_error;
131: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
132: RAISE FND_API.g_exc_unexpected_error;
133: END IF;
134:
135: IF l_so_updatable_flag = 'Y' THEN
128:
129: IF (l_return_status = FND_API.g_ret_sts_error) THEN
130: RAISE FND_API.g_exc_error;
131: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
132: RAISE FND_API.g_exc_unexpected_error;
133: END IF;
134:
135: IF l_so_updatable_flag = 'Y' THEN
136: IF g_debug_stmt THEN
194: l_return_status BOOLEAN;
195:
196: BEGIN
197: -- Start standard API initialization
198: IF FND_API.to_boolean(p_init_msg_list) THEN
199: FND_MSG_PUB.initialize;
200: END IF;
201:
202: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
198: IF FND_API.to_boolean(p_init_msg_list) THEN
199: FND_MSG_PUB.initialize;
200: END IF;
201:
202: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
203: d_api_name, g_pkg_name) THEN
204: RAISE FND_API.g_exc_unexpected_error;
205: END IF;
206: l_partial_rcv_bld := 0;
200: END IF;
201:
202: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
203: d_api_name, g_pkg_name) THEN
204: RAISE FND_API.g_exc_unexpected_error;
205: END IF;
206: l_partial_rcv_bld := 0;
207: l_return_status := FALSE;
208:
328: --IN OUT:
329:
330: -- OUT:
331: -- x_return_status
332: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
333: -- FND_API.G_RET_STS_ERROR if procedure fails
334: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
335:
336: -- x_msg_data
329:
330: -- OUT:
331: -- x_return_status
332: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
333: -- FND_API.G_RET_STS_ERROR if procedure fails
334: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
335:
336: -- x_msg_data
337:
330: -- OUT:
331: -- x_return_status
332: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
333: -- FND_API.G_RET_STS_ERROR if procedure fails
334: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
335:
336: -- x_msg_data
337:
338: --End of Comments
357: l_progress VARCHAR2(3) := '000' ;
358:
359: BEGIN
360: -- Start standard API initialization
361: IF FND_API.to_boolean(p_init_msg_list) THEN
362: FND_MSG_PUB.initialize;
363: END IF;
364:
365: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
361: IF FND_API.to_boolean(p_init_msg_list) THEN
362: FND_MSG_PUB.initialize;
363: END IF;
364:
365: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
366: d_api_name, g_pkg_name) THEN
367: RAISE FND_API.g_exc_unexpected_error;
368: END IF;
369:
363: END IF;
364:
365: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
366: d_api_name, g_pkg_name) THEN
367: RAISE FND_API.g_exc_unexpected_error;
368: END IF;
369:
370:
371: IF g_debug_stmt THEN
372: PO_DEBUG.debug_begin(d_module);
373: PO_DEBUG.debug_var(d_module, l_progress, 'p_cancel_reqs_flag', p_cancel_reqs_flag);
374: END IF;
375:
376: x_return_status := FND_API.G_RET_STS_SUCCESS;
377: x_msg_data := NULL;
378: l_progress := '001';
379:
380: -- for each entity id in the entity record table
420: THEN
421: l_progress := '009';
422: IF isPartialRcvBilled(
423: p_api_version => 1.0,
424: p_init_msg_list => FND_API.G_FALSE,
425: p_entity_level=> p_entity_dtl(i).entity_level,
426: p_document_type=> p_entity_dtl(i).document_type,
427: p_entity_id=>p_entity_dtl(i).entity_id)
428: THEN
445: -- If any shipemnt associated with currecnt entity being cancelled
446: -- is a Drop Shipment with an updatable SO, then impose recreate demand.
447: IF isDropShipWithUpdateableSO(
448: p_api_version => 1.0,
449: p_init_msg_list => FND_API.G_FALSE,
450: p_entity_level=>p_entity_dtl(i).entity_level,
451: p_entity_id=>p_entity_dtl(i).entity_id,
452: p_document_type=>p_entity_dtl(i).document_type)
453: THEN
471:
472: END LOOP;
473:
474: EXCEPTION
475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
476: x_msg_data := FND_MSG_PUB.GET(
477: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
478: P_ENCODED => 'F');
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
476: x_msg_data := FND_MSG_PUB.GET(
477: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
478: P_ENCODED => 'F');
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
481:
482: WHEN FND_API.G_EXC_ERROR THEN
483: x_msg_data := FND_MSG_PUB.GET(
478: P_ENCODED => 'F');
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
481:
482: WHEN FND_API.G_EXC_ERROR THEN
483: x_msg_data := FND_MSG_PUB.GET(
484: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
485: P_ENCODED => 'F');
486: x_return_status := FND_API.G_RET_STS_ERROR;
482: WHEN FND_API.G_EXC_ERROR THEN
483: x_msg_data := FND_MSG_PUB.GET(
484: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
485: P_ENCODED => 'F');
486: x_return_status := FND_API.G_RET_STS_ERROR;
487: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
488:
489: WHEN OTHERS THEN
490: IF (G_DEBUG_UNEXP) THEN
497:
498: x_msg_data := FND_MSG_PUB.GET(
499: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
500: P_ENCODED => 'F');
501: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
502:
503: END init_recreate_demand_flag;
504:
505: --------------------------------------------------------------------------------
520: --IN OUT:
521:
522: -- OUT:
523: -- x_return_status
524: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
525: -- FND_API.G_RET_STS_ERROR if procedure fails
526: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
527:
528:
521:
522: -- OUT:
523: -- x_return_status
524: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
525: -- FND_API.G_RET_STS_ERROR if procedure fails
526: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
527:
528:
529:
522: -- OUT:
523: -- x_return_status
524: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
525: -- FND_API.G_RET_STS_ERROR if procedure fails
526: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
527:
528:
529:
530: --End of Comments
544: l_progress VARCHAR2(3) := '000' ;
545:
546: BEGIN
547: -- Start standard API initialization
548: IF FND_API.to_boolean(p_init_msg_list) THEN
549: FND_MSG_PUB.initialize;
550: END IF;
551:
552: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
548: IF FND_API.to_boolean(p_init_msg_list) THEN
549: FND_MSG_PUB.initialize;
550: END IF;
551:
552: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
553: d_api_name, g_pkg_name) THEN
554: RAISE FND_API.g_exc_unexpected_error;
555: END IF;
556:
550: END IF;
551:
552: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
553: d_api_name, g_pkg_name) THEN
554: RAISE FND_API.g_exc_unexpected_error;
555: END IF;
556:
557:
558: IF g_debug_stmt THEN
642: PO_DEBUG.debug_var(d_module, l_progress, 'Rows Updated the PO Distributions table', SQL%ROWCOUNT);
643: END IF;
644:
645: EXCEPTION
646: WHEN FND_API.g_exc_error THEN
647: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
648: x_return_status := FND_API.g_ret_sts_error;
649: WHEN FND_API.g_exc_unexpected_error THEN
650: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
644:
645: EXCEPTION
646: WHEN FND_API.g_exc_error THEN
647: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
648: x_return_status := FND_API.g_ret_sts_error;
649: WHEN FND_API.g_exc_unexpected_error THEN
650: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
651: x_return_status := FND_API.g_ret_sts_unexp_error;
652: WHEN OTHERS THEN
645: EXCEPTION
646: WHEN FND_API.g_exc_error THEN
647: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
648: x_return_status := FND_API.g_ret_sts_error;
649: WHEN FND_API.g_exc_unexpected_error THEN
650: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
651: x_return_status := FND_API.g_ret_sts_unexp_error;
652: WHEN OTHERS THEN
653: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
647: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
648: x_return_status := FND_API.g_ret_sts_error;
649: WHEN FND_API.g_exc_unexpected_error THEN
650: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
651: x_return_status := FND_API.g_ret_sts_unexp_error;
652: WHEN OTHERS THEN
653: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
654: x_return_status := FND_API.g_ret_sts_unexp_error;
655: END denormPlannedPOQty;
650: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
651: x_return_status := FND_API.g_ret_sts_unexp_error;
652: WHEN OTHERS THEN
653: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
654: x_return_status := FND_API.g_ret_sts_unexp_error;
655: END denormPlannedPOQty;
656:
657: --------------------------------------------------------------------------------
658: --Start of Comments
692: --IN OUT:
693:
694: -- OUT:
695: -- x_return_status
696: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
697: -- FND_API.G_RET_STS_ERROR if procedure fails
698: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
699:
700:
693:
694: -- OUT:
695: -- x_return_status
696: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
697: -- FND_API.G_RET_STS_ERROR if procedure fails
698: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
699:
700:
701:
694: -- OUT:
695: -- x_return_status
696: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
697: -- FND_API.G_RET_STS_ERROR if procedure fails
698: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
699:
700:
701:
702: --End of Comments
723: l_progress VARCHAR2(3) := '000' ;
724:
725: BEGIN
726: -- Start standard API initialization
727: IF FND_API.to_boolean(p_init_msg_list) THEN
728: FND_MSG_PUB.initialize;
729: END IF;
730:
731: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
727: IF FND_API.to_boolean(p_init_msg_list) THEN
728: FND_MSG_PUB.initialize;
729: END IF;
730:
731: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
732: d_api_name, g_pkg_name) THEN
733: RAISE FND_API.g_exc_unexpected_error;
734: END IF;
735:
729: END IF;
730:
731: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
732: d_api_name, g_pkg_name) THEN
733: RAISE FND_API.g_exc_unexpected_error;
734: END IF;
735:
736:
737: IF g_debug_stmt THEN
841: END IF;
842:
843: EXCEPTION
844:
845: WHEN FND_API.g_exc_error THEN
846: x_return_status := FND_API.g_ret_sts_error;
847: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
848: WHEN FND_API.g_exc_unexpected_error THEN
849: x_return_status := FND_API.g_ret_sts_unexp_error;
842:
843: EXCEPTION
844:
845: WHEN FND_API.g_exc_error THEN
846: x_return_status := FND_API.g_ret_sts_error;
847: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
848: WHEN FND_API.g_exc_unexpected_error THEN
849: x_return_status := FND_API.g_ret_sts_unexp_error;
850: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
844:
845: WHEN FND_API.g_exc_error THEN
846: x_return_status := FND_API.g_ret_sts_error;
847: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
848: WHEN FND_API.g_exc_unexpected_error THEN
849: x_return_status := FND_API.g_ret_sts_unexp_error;
850: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
851: WHEN OTHERS THEN
852: x_return_status := FND_API.g_ret_sts_unexp_error;
845: WHEN FND_API.g_exc_error THEN
846: x_return_status := FND_API.g_ret_sts_error;
847: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
848: WHEN FND_API.g_exc_unexpected_error THEN
849: x_return_status := FND_API.g_ret_sts_unexp_error;
850: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
851: WHEN OTHERS THEN
852: x_return_status := FND_API.g_ret_sts_unexp_error;
853: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
848: WHEN FND_API.g_exc_unexpected_error THEN
849: x_return_status := FND_API.g_ret_sts_unexp_error;
850: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
851: WHEN OTHERS THEN
852: x_return_status := FND_API.g_ret_sts_unexp_error;
853: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
854: END update_dist_cancel;
855:
856:
897: --IN OUT:
898:
899: -- OUT:
900: -- x_return_status
901: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
902: -- FND_API.G_RET_STS_ERROR if procedure fails
903: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
904:
905:
898:
899: -- OUT:
900: -- x_return_status
901: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
902: -- FND_API.G_RET_STS_ERROR if procedure fails
903: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
904:
905:
906:
899: -- OUT:
900: -- x_return_status
901: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
902: -- FND_API.G_RET_STS_ERROR if procedure fails
903: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
904:
905:
906:
907: --End of Comments
930: l_request_id PO_HEADERS.request_id%TYPE := fnd_global.conc_request_id;
931:
932: BEGIN
933: -- Start standard API initialization
934: IF FND_API.to_boolean(p_init_msg_list) THEN
935: FND_MSG_PUB.initialize;
936: END IF;
937:
938: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
934: IF FND_API.to_boolean(p_init_msg_list) THEN
935: FND_MSG_PUB.initialize;
936: END IF;
937:
938: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
939: d_api_name, g_pkg_name) THEN
940: RAISE FND_API.g_exc_unexpected_error;
941: END IF;
942:
936: END IF;
937:
938: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
939: d_api_name, g_pkg_name) THEN
940: RAISE FND_API.g_exc_unexpected_error;
941: END IF;
942:
943:
944:
1053: END IF;
1054:
1055:
1056: EXCEPTION
1057: WHEN FND_API.g_exc_error THEN
1058: x_return_status := FND_API.g_ret_sts_error;
1059: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1060: WHEN FND_API.g_exc_unexpected_error THEN
1061: x_return_status := FND_API.g_ret_sts_unexp_error;
1054:
1055:
1056: EXCEPTION
1057: WHEN FND_API.g_exc_error THEN
1058: x_return_status := FND_API.g_ret_sts_error;
1059: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1060: WHEN FND_API.g_exc_unexpected_error THEN
1061: x_return_status := FND_API.g_ret_sts_unexp_error;
1062: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1056: EXCEPTION
1057: WHEN FND_API.g_exc_error THEN
1058: x_return_status := FND_API.g_ret_sts_error;
1059: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1060: WHEN FND_API.g_exc_unexpected_error THEN
1061: x_return_status := FND_API.g_ret_sts_unexp_error;
1062: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1063: WHEN OTHERS THEN
1064: x_return_status := FND_API.g_ret_sts_unexp_error;
1057: WHEN FND_API.g_exc_error THEN
1058: x_return_status := FND_API.g_ret_sts_error;
1059: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1060: WHEN FND_API.g_exc_unexpected_error THEN
1061: x_return_status := FND_API.g_ret_sts_unexp_error;
1062: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1063: WHEN OTHERS THEN
1064: x_return_status := FND_API.g_ret_sts_unexp_error;
1065: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1060: WHEN FND_API.g_exc_unexpected_error THEN
1061: x_return_status := FND_API.g_ret_sts_unexp_error;
1062: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1063: WHEN OTHERS THEN
1064: x_return_status := FND_API.g_ret_sts_unexp_error;
1065: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1066:
1067: END update_ship_cancel;
1068:
1084: -- IN OUT:
1085:
1086: -- OUT:
1087: -- x_return_status
1088: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1089: -- FND_API.G_RET_STS_ERROR if procedure fails
1090: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1091:
1092: --End of Comments
1085:
1086: -- OUT:
1087: -- x_return_status
1088: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1089: -- FND_API.G_RET_STS_ERROR if procedure fails
1090: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1091:
1092: --End of Comments
1093: --------------------------------------------------------------------------------
1086: -- OUT:
1087: -- x_return_status
1088: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1089: -- FND_API.G_RET_STS_ERROR if procedure fails
1090: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1091:
1092: --End of Comments
1093: --------------------------------------------------------------------------------
1094:
1107: l_emp_id NUMBER := FND_GLOBAL.employee_id;
1108:
1109: BEGIN
1110: -- Start standard API initialization
1111: IF FND_API.to_boolean(p_init_msg_list) THEN
1112: FND_MSG_PUB.initialize;
1113: END IF;
1114:
1115: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1111: IF FND_API.to_boolean(p_init_msg_list) THEN
1112: FND_MSG_PUB.initialize;
1113: END IF;
1114:
1115: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1116: d_api_name, g_pkg_name) THEN
1117: RAISE FND_API.g_exc_unexpected_error;
1118: END IF;
1119:
1113: END IF;
1114:
1115: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1116: d_api_name, g_pkg_name) THEN
1117: RAISE FND_API.g_exc_unexpected_error;
1118: END IF;
1119:
1120:
1121: IF g_debug_stmt THEN
1215:
1216:
1217:
1218: EXCEPTION
1219: WHEN FND_API.g_exc_error THEN
1220: x_return_status := FND_API.g_ret_sts_error;
1221: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1222: WHEN FND_API.g_exc_unexpected_error THEN
1223: x_return_status := FND_API.g_ret_sts_unexp_error;
1216:
1217:
1218: EXCEPTION
1219: WHEN FND_API.g_exc_error THEN
1220: x_return_status := FND_API.g_ret_sts_error;
1221: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1222: WHEN FND_API.g_exc_unexpected_error THEN
1223: x_return_status := FND_API.g_ret_sts_unexp_error;
1224: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1218: EXCEPTION
1219: WHEN FND_API.g_exc_error THEN
1220: x_return_status := FND_API.g_ret_sts_error;
1221: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1222: WHEN FND_API.g_exc_unexpected_error THEN
1223: x_return_status := FND_API.g_ret_sts_unexp_error;
1224: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1225: WHEN OTHERS THEN
1226: x_return_status := FND_API.g_ret_sts_unexp_error;
1219: WHEN FND_API.g_exc_error THEN
1220: x_return_status := FND_API.g_ret_sts_error;
1221: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1222: WHEN FND_API.g_exc_unexpected_error THEN
1223: x_return_status := FND_API.g_ret_sts_unexp_error;
1224: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1225: WHEN OTHERS THEN
1226: x_return_status := FND_API.g_ret_sts_unexp_error;
1227: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1222: WHEN FND_API.g_exc_unexpected_error THEN
1223: x_return_status := FND_API.g_ret_sts_unexp_error;
1224: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1225: WHEN OTHERS THEN
1226: x_return_status := FND_API.g_ret_sts_unexp_error;
1227: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1228:
1229: END update_line_qty_price_amt;
1230:
1268: -- IN OUT:
1269: --
1270: -- OUT:
1271: -- x_return_status
1272: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1273: -- FND_API.G_RET_STS_ERROR if procedure fails
1274: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1275:
1276: --End of Comments
1269: --
1270: -- OUT:
1271: -- x_return_status
1272: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1273: -- FND_API.G_RET_STS_ERROR if procedure fails
1274: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1275:
1276: --End of Comments
1277: --------------------------------------------------------------------------------
1270: -- OUT:
1271: -- x_return_status
1272: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1273: -- FND_API.G_RET_STS_ERROR if procedure fails
1274: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1275:
1276: --End of Comments
1277: --------------------------------------------------------------------------------
1278:
1300: l_request_id PO_HEADERS.request_id%TYPE := fnd_global.conc_request_id;
1301:
1302: BEGIN
1303: -- Start standard API initialization
1304: IF FND_API.to_boolean(p_init_msg_list) THEN
1305: FND_MSG_PUB.initialize;
1306: END IF;
1307:
1308: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1304: IF FND_API.to_boolean(p_init_msg_list) THEN
1305: FND_MSG_PUB.initialize;
1306: END IF;
1307:
1308: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1309: d_api_name, g_pkg_name) THEN
1310: RAISE FND_API.g_exc_unexpected_error;
1311: END IF;
1312:
1306: END IF;
1307:
1308: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1309: d_api_name, g_pkg_name) THEN
1310: RAISE FND_API.g_exc_unexpected_error;
1311: END IF;
1312:
1313:
1314: IF g_debug_stmt THEN
1412: END IF;
1413:
1414:
1415: EXCEPTION
1416: WHEN FND_API.g_exc_error THEN
1417: x_return_status := FND_API.g_ret_sts_error;
1418: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1419: WHEN FND_API.g_exc_unexpected_error THEN
1420: x_return_status := FND_API.g_ret_sts_unexp_error;
1413:
1414:
1415: EXCEPTION
1416: WHEN FND_API.g_exc_error THEN
1417: x_return_status := FND_API.g_ret_sts_error;
1418: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1419: WHEN FND_API.g_exc_unexpected_error THEN
1420: x_return_status := FND_API.g_ret_sts_unexp_error;
1421: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1415: EXCEPTION
1416: WHEN FND_API.g_exc_error THEN
1417: x_return_status := FND_API.g_ret_sts_error;
1418: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1419: WHEN FND_API.g_exc_unexpected_error THEN
1420: x_return_status := FND_API.g_ret_sts_unexp_error;
1421: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1422: WHEN OTHERS THEN
1423: x_return_status := FND_API.g_ret_sts_unexp_error;
1416: WHEN FND_API.g_exc_error THEN
1417: x_return_status := FND_API.g_ret_sts_error;
1418: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1419: WHEN FND_API.g_exc_unexpected_error THEN
1420: x_return_status := FND_API.g_ret_sts_unexp_error;
1421: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1422: WHEN OTHERS THEN
1423: x_return_status := FND_API.g_ret_sts_unexp_error;
1424: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1419: WHEN FND_API.g_exc_unexpected_error THEN
1420: x_return_status := FND_API.g_ret_sts_unexp_error;
1421: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1422: WHEN OTHERS THEN
1423: x_return_status := FND_API.g_ret_sts_unexp_error;
1424: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1425:
1426: END update_line_cancel;
1427:
1460: -- IN OUT:
1461: --
1462: -- OUT:
1463: -- x_return_status
1464: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1465: -- FND_API.G_RET_STS_ERROR if procedure fails
1466: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1467:
1468: --End of Comments
1461: --
1462: -- OUT:
1463: -- x_return_status
1464: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1465: -- FND_API.G_RET_STS_ERROR if procedure fails
1466: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1467:
1468: --End of Comments
1469: --------------------------------------------------------------------------------
1462: -- OUT:
1463: -- x_return_status
1464: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1465: -- FND_API.G_RET_STS_ERROR if procedure fails
1466: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1467:
1468: --End of Comments
1469: --------------------------------------------------------------------------------
1470:
1490: l_request_id PO_HEADERS.request_id%TYPE := fnd_global.conc_request_id;
1491:
1492: BEGIN
1493: -- Start standard API initialization
1494: IF FND_API.to_boolean(p_init_msg_list) THEN
1495: FND_MSG_PUB.initialize;
1496: END IF;
1497:
1498: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1494: IF FND_API.to_boolean(p_init_msg_list) THEN
1495: FND_MSG_PUB.initialize;
1496: END IF;
1497:
1498: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1499: d_api_name, g_pkg_name) THEN
1500: RAISE FND_API.g_exc_unexpected_error;
1501: END IF;
1502:
1496: END IF;
1497:
1498: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1499: d_api_name, g_pkg_name) THEN
1500: RAISE FND_API.g_exc_unexpected_error;
1501: END IF;
1502:
1503:
1504: IF g_debug_stmt THEN
1555: END IF;
1556:
1557:
1558: EXCEPTION
1559: WHEN FND_API.g_exc_error THEN
1560: x_return_status := FND_API.g_ret_sts_error;
1561: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1562: WHEN FND_API.g_exc_unexpected_error THEN
1563: x_return_status := FND_API.g_ret_sts_unexp_error;
1556:
1557:
1558: EXCEPTION
1559: WHEN FND_API.g_exc_error THEN
1560: x_return_status := FND_API.g_ret_sts_error;
1561: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1562: WHEN FND_API.g_exc_unexpected_error THEN
1563: x_return_status := FND_API.g_ret_sts_unexp_error;
1564: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1558: EXCEPTION
1559: WHEN FND_API.g_exc_error THEN
1560: x_return_status := FND_API.g_ret_sts_error;
1561: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1562: WHEN FND_API.g_exc_unexpected_error THEN
1563: x_return_status := FND_API.g_ret_sts_unexp_error;
1564: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1565: WHEN OTHERS THEN
1566: x_return_status := FND_API.g_ret_sts_unexp_error;
1559: WHEN FND_API.g_exc_error THEN
1560: x_return_status := FND_API.g_ret_sts_error;
1561: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1562: WHEN FND_API.g_exc_unexpected_error THEN
1563: x_return_status := FND_API.g_ret_sts_unexp_error;
1564: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1565: WHEN OTHERS THEN
1566: x_return_status := FND_API.g_ret_sts_unexp_error;
1567: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1562: WHEN FND_API.g_exc_unexpected_error THEN
1563: x_return_status := FND_API.g_ret_sts_unexp_error;
1564: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1565: WHEN OTHERS THEN
1566: x_return_status := FND_API.g_ret_sts_unexp_error;
1567: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1568:
1569: END update_po_header_cancel;
1570:
1607: -- IN OUT:
1608: --
1609: -- OUT:
1610: -- x_return_status
1611: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1612: -- FND_API.G_RET_STS_ERROR if procedure fails
1613: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1614:
1615: --End of Comments
1608: --
1609: -- OUT:
1610: -- x_return_status
1611: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1612: -- FND_API.G_RET_STS_ERROR if procedure fails
1613: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1614:
1615: --End of Comments
1616: -------------------------------------------------------------------------------
1609: -- OUT:
1610: -- x_return_status
1611: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1612: -- FND_API.G_RET_STS_ERROR if procedure fails
1613: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1614:
1615: --End of Comments
1616: -------------------------------------------------------------------------------
1617: PROCEDURE update_rel_header_cancel(
1636: l_request_id PO_HEADERS.request_id%TYPE := fnd_global.conc_request_id;
1637:
1638: BEGIN
1639: -- Start standard API initialization
1640: IF FND_API.to_boolean(p_init_msg_list) THEN
1641: FND_MSG_PUB.initialize;
1642: END IF;
1643:
1644: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1640: IF FND_API.to_boolean(p_init_msg_list) THEN
1641: FND_MSG_PUB.initialize;
1642: END IF;
1643:
1644: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1645: d_api_name, g_pkg_name) THEN
1646: RAISE FND_API.g_exc_unexpected_error;
1647: END IF;
1648:
1642: END IF;
1643:
1644: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1645: d_api_name, g_pkg_name) THEN
1646: RAISE FND_API.g_exc_unexpected_error;
1647: END IF;
1648:
1649:
1650: IF g_debug_stmt THEN
1703:
1704:
1705: EXCEPTION
1706:
1707: WHEN FND_API.g_exc_error THEN
1708: x_return_status := FND_API.g_ret_sts_error;
1709: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1710: WHEN FND_API.g_exc_unexpected_error THEN
1711: x_return_status := FND_API.g_ret_sts_unexp_error;
1704:
1705: EXCEPTION
1706:
1707: WHEN FND_API.g_exc_error THEN
1708: x_return_status := FND_API.g_ret_sts_error;
1709: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1710: WHEN FND_API.g_exc_unexpected_error THEN
1711: x_return_status := FND_API.g_ret_sts_unexp_error;
1712: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1706:
1707: WHEN FND_API.g_exc_error THEN
1708: x_return_status := FND_API.g_ret_sts_error;
1709: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1710: WHEN FND_API.g_exc_unexpected_error THEN
1711: x_return_status := FND_API.g_ret_sts_unexp_error;
1712: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1713: WHEN OTHERS THEN
1714: x_return_status := FND_API.g_ret_sts_unexp_error;
1707: WHEN FND_API.g_exc_error THEN
1708: x_return_status := FND_API.g_ret_sts_error;
1709: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1710: WHEN FND_API.g_exc_unexpected_error THEN
1711: x_return_status := FND_API.g_ret_sts_unexp_error;
1712: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1713: WHEN OTHERS THEN
1714: x_return_status := FND_API.g_ret_sts_unexp_error;
1715: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1710: WHEN FND_API.g_exc_unexpected_error THEN
1711: x_return_status := FND_API.g_ret_sts_unexp_error;
1712: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1713: WHEN OTHERS THEN
1714: x_return_status := FND_API.g_ret_sts_unexp_error;
1715: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
1716:
1717:
1718: END update_rel_header_cancel;
1763: --
1764: -- OUT:
1765: -- x_msg_data
1766: -- x_return_status
1767: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1768: -- FND_API.G_RET_STS_ERROR if procedure fails
1769: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1770:
1771: --End of Comments
1764: -- OUT:
1765: -- x_msg_data
1766: -- x_return_status
1767: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1768: -- FND_API.G_RET_STS_ERROR if procedure fails
1769: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1770:
1771: --End of Comments
1772: --------------------------------------------------------------------------------
1765: -- x_msg_data
1766: -- x_return_status
1767: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1768: -- FND_API.G_RET_STS_ERROR if procedure fails
1769: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1770:
1771: --End of Comments
1772: --------------------------------------------------------------------------------
1773:
1797: l_progress VARCHAR2(3) := '000' ;
1798:
1799: BEGIN
1800: -- Start standard API initialization
1801: IF FND_API.to_boolean(p_init_msg_list) THEN
1802: FND_MSG_PUB.initialize;
1803: END IF;
1804:
1805: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1801: IF FND_API.to_boolean(p_init_msg_list) THEN
1802: FND_MSG_PUB.initialize;
1803: END IF;
1804:
1805: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1806: d_api_name, g_pkg_name) THEN
1807: RAISE FND_API.g_exc_unexpected_error;
1808: END IF;
1809:
1803: END IF;
1804:
1805: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
1806: d_api_name, g_pkg_name) THEN
1807: RAISE FND_API.g_exc_unexpected_error;
1808: END IF;
1809:
1810:
1811: IF g_debug_stmt THEN
1823: PO_DEBUG.debug_var(d_module, l_progress, 'p_note_to_vendor', p_note_to_vendor );
1824: END IF;
1825:
1826: l_progress := '002' ;
1827: x_return_status := FND_API.g_ret_sts_success;
1828: x_msg_data := NULL;
1829:
1830: -- This block is applicable to level: Header/Line/Shipment
1831: -- If the Entity being Canceld belongs to a
1839:
1840: -- Update Cancel details on Distribution
1841: update_dist_cancel(
1842: p_api_version=> 1.0,
1843: p_init_msg_list=>FND_API.G_FALSE,
1844: p_fc_level => p_fc_level,
1845: p_action_date => p_action_date,
1846: p_entity_level => p_entity_level,
1847: p_entity_id => p_entity_id,
1850: p_user_id => p_user_id,
1851: p_login_id => p_login_id,
1852: x_return_status => x_return_status);
1853:
1854: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1855: RAISE FND_API.g_exc_error;
1856: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1857: RAISE FND_API.g_exc_unexpected_error;
1858: END IF;
1851: p_login_id => p_login_id,
1852: x_return_status => x_return_status);
1853:
1854: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1855: RAISE FND_API.g_exc_error;
1856: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1857: RAISE FND_API.g_exc_unexpected_error;
1858: END IF;
1859:
1852: x_return_status => x_return_status);
1853:
1854: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1855: RAISE FND_API.g_exc_error;
1856: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1857: RAISE FND_API.g_exc_unexpected_error;
1858: END IF;
1859:
1860: l_progress := '004';
1853:
1854: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1855: RAISE FND_API.g_exc_error;
1856: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1857: RAISE FND_API.g_exc_unexpected_error;
1858: END IF;
1859:
1860: l_progress := '004';
1861:
1861:
1862: -- Update Cancel details on Shipment
1863: update_ship_cancel(
1864: p_api_version=> 1.0,
1865: p_init_msg_list=>FND_API.G_FALSE,
1866: p_fc_level => p_fc_level,
1867: p_cancel_reason => p_cancel_reason,
1868: p_entity_level => p_entity_level,
1869: p_entity_id => p_entity_id,
1872: p_user_id => p_user_id,
1873: p_login_id => p_login_id,
1874: x_return_status => x_return_status);
1875:
1876: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1877: RAISE FND_API.g_exc_error;
1878: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1879: RAISE FND_API.g_exc_unexpected_error;
1880: END IF;
1873: p_login_id => p_login_id,
1874: x_return_status => x_return_status);
1875:
1876: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1877: RAISE FND_API.g_exc_error;
1878: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1879: RAISE FND_API.g_exc_unexpected_error;
1880: END IF;
1881:
1874: x_return_status => x_return_status);
1875:
1876: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1877: RAISE FND_API.g_exc_error;
1878: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1879: RAISE FND_API.g_exc_unexpected_error;
1880: END IF;
1881:
1882:
1875:
1876: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1877: RAISE FND_API.g_exc_error;
1878: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1879: RAISE FND_API.g_exc_unexpected_error;
1880: END IF;
1881:
1882:
1883: END IF; --IF p_document_type <> c_doc_type_PA
1904:
1905: -- Update(rollup) the qty/amount on line
1906: update_line_qty_price_amt(
1907: p_api_version=> 1.0,
1908: p_init_msg_list=>FND_API.G_FALSE,
1909: p_ship_id=>p_entity_id,
1910: x_return_status=>x_return_status);
1911:
1912: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1908: p_init_msg_list=>FND_API.G_FALSE,
1909: p_ship_id=>p_entity_id,
1910: x_return_status=>x_return_status);
1911:
1912: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1913: RAISE FND_API.g_exc_error;
1914: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1915: RAISE FND_API.g_exc_unexpected_error;
1916: END IF;
1909: p_ship_id=>p_entity_id,
1910: x_return_status=>x_return_status);
1911:
1912: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1913: RAISE FND_API.g_exc_error;
1914: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1915: RAISE FND_API.g_exc_unexpected_error;
1916: END IF;
1917:
1910: x_return_status=>x_return_status);
1911:
1912: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1913: RAISE FND_API.g_exc_error;
1914: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1915: RAISE FND_API.g_exc_unexpected_error;
1916: END IF;
1917:
1918: ELSE
1911:
1912: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1913: RAISE FND_API.g_exc_error;
1914: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1915: RAISE FND_API.g_exc_unexpected_error;
1916: END IF;
1917:
1918: ELSE
1919: -- If the Line/Header is canceled,
1921:
1922: --cancel the corresponding line
1923: update_line_cancel(
1924: p_api_version=> 1.0,
1925: p_init_msg_list=>FND_API.G_FALSE,
1926: p_fc_level => p_fc_level,
1927: p_cancel_reason =>p_cancel_reason,
1928: p_entity_level => p_entity_level,
1929: p_entity_id => p_entity_id,
1932: p_login_id => p_login_id,
1933: p_note_to_vendor =>p_note_to_vendor,
1934: x_return_status => x_return_status);
1935:
1936: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1937: RAISE FND_API.g_exc_error;
1938: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1939: RAISE FND_API.g_exc_unexpected_error;
1940: END IF;
1933: p_note_to_vendor =>p_note_to_vendor,
1934: x_return_status => x_return_status);
1935:
1936: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1937: RAISE FND_API.g_exc_error;
1938: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1939: RAISE FND_API.g_exc_unexpected_error;
1940: END IF;
1941:
1934: x_return_status => x_return_status);
1935:
1936: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1937: RAISE FND_API.g_exc_error;
1938: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1939: RAISE FND_API.g_exc_unexpected_error;
1940: END IF;
1941:
1942: END IF; --IF p_entity_level = = c_entity_level_SHIPMENT
1935:
1936: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1937: RAISE FND_API.g_exc_error;
1938: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1939: RAISE FND_API.g_exc_unexpected_error;
1940: END IF;
1941:
1942: END IF; --IF p_entity_level = = c_entity_level_SHIPMENT
1943: END IF; -- IF (NOT(p_document_type = c_doc_type_RELEASE OR p_doc_subtype = c_doc_subtype_CONTRACT))
1955:
1956: l_progress := '009';
1957: update_rel_header_cancel(
1958: p_api_version=> 1.0,
1959: p_init_msg_list=>FND_API.G_FALSE,
1960: p_fc_level => p_fc_level,
1961: p_entity_id => p_entity_id,
1962: p_action_date => p_action_date,
1963: p_cancel_reason =>p_cancel_reason,
1970: l_progress := '010';
1971: -- If the Document is a PO/PA Header
1972: update_po_header_cancel(
1973: p_api_version=> 1.0,
1974: p_init_msg_list=>FND_API.G_FALSE,
1975: p_fc_level => p_fc_level,
1976: p_entity_id => p_entity_id,
1977: p_action_date => p_action_date,
1978: p_user_id =>p_user_id,
1981: x_return_status =>x_return_status);
1982:
1983: END IF; -- IF p_document_type = c_doc_type_RELEASE
1984:
1985: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1986: RAISE FND_API.g_exc_error;
1987: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1988: RAISE FND_API.g_exc_unexpected_error;
1989: END IF;
1982:
1983: END IF; -- IF p_document_type = c_doc_type_RELEASE
1984:
1985: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1986: RAISE FND_API.g_exc_error;
1987: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1988: RAISE FND_API.g_exc_unexpected_error;
1989: END IF;
1990:
1983: END IF; -- IF p_document_type = c_doc_type_RELEASE
1984:
1985: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1986: RAISE FND_API.g_exc_error;
1987: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1988: RAISE FND_API.g_exc_unexpected_error;
1989: END IF;
1990:
1991: END IF; -- IF p_entity_level = c_entity_level_HEADER
1984:
1985: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1986: RAISE FND_API.g_exc_error;
1987: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1988: RAISE FND_API.g_exc_unexpected_error;
1989: END IF;
1990:
1991: END IF; -- IF p_entity_level = c_entity_level_HEADER
1992:
1992:
1993:
1994:
1995: EXCEPTION
1996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1997: x_msg_data := FND_MSG_PUB.GET(
1998: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
1999: P_ENCODED => 'F');
2000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1997: x_msg_data := FND_MSG_PUB.GET(
1998: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
1999: P_ENCODED => 'F');
2000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2001: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2002:
2003: WHEN FND_API.G_EXC_ERROR THEN
2004: x_msg_data := FND_MSG_PUB.GET(
1999: P_ENCODED => 'F');
2000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2001: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2002:
2003: WHEN FND_API.G_EXC_ERROR THEN
2004: x_msg_data := FND_MSG_PUB.GET(
2005: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2006: P_ENCODED => 'F');
2007: x_return_status := FND_API.G_RET_STS_ERROR;
2003: WHEN FND_API.G_EXC_ERROR THEN
2004: x_msg_data := FND_MSG_PUB.GET(
2005: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2006: P_ENCODED => 'F');
2007: x_return_status := FND_API.G_RET_STS_ERROR;
2008: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2009:
2010: WHEN OTHERS THEN
2011: IF (G_DEBUG_UNEXP) THEN
2018: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2019: x_msg_data := FND_MSG_PUB.GET(
2020: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2021: P_ENCODED => 'F');
2022: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
2023:
2024: END update_document;
2025:
2026: --------------------------------------------------------------------------------
2044: --IN OUT :
2045: --OUT :
2046: -- x_msg_data
2047: -- x_return_status
2048: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2049: -- FND_API.G_RET_STS_ERROR if cancel action fails
2050: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2051: --
2052: --End of Comments
2045: --OUT :
2046: -- x_msg_data
2047: -- x_return_status
2048: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2049: -- FND_API.G_RET_STS_ERROR if cancel action fails
2050: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2051: --
2052: --End of Comments
2053: --------------------------------------------------------------------------------
2046: -- x_msg_data
2047: -- x_return_status
2048: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2049: -- FND_API.G_RET_STS_ERROR if cancel action fails
2050: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2051: --
2052: --End of Comments
2053: --------------------------------------------------------------------------------
2054: PROCEDURE cancel_supply(
2080:
2081:
2082: BEGIN
2083: -- Start standard API initialization
2084: IF FND_API.to_boolean(p_init_msg_list) THEN
2085: FND_MSG_PUB.initialize;
2086: END IF;
2087:
2088: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2084: IF FND_API.to_boolean(p_init_msg_list) THEN
2085: FND_MSG_PUB.initialize;
2086: END IF;
2087:
2088: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2089: d_api_name, g_pkg_name) THEN
2090: RAISE FND_API.g_exc_unexpected_error;
2091: END IF;
2092:
2086: END IF;
2087:
2088: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2089: d_api_name, g_pkg_name) THEN
2090: RAISE FND_API.g_exc_unexpected_error;
2091: END IF;
2092:
2093:
2094: IF g_debug_stmt THEN
2101: PO_DEBUG.debug_var(d_module, l_progress, 'p_recreate_flag', p_recreate_flag);
2102: END IF;
2103:
2104:
2105: x_return_status := FND_API.g_ret_sts_success;
2106: x_msg_data := NULL;
2107: l_progress := '001' ;
2108:
2109: -- If the requiistion line is canceled, cancel req line supply
2197:
2198:
2199:
2200: EXCEPTION
2201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2202: x_msg_data := FND_MSG_PUB.GET(
2203: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2204: P_ENCODED => 'F');
2205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2202: x_msg_data := FND_MSG_PUB.GET(
2203: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2204: P_ENCODED => 'F');
2205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2206: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2207:
2208: WHEN FND_API.G_EXC_ERROR THEN
2209: x_msg_data := FND_MSG_PUB.GET(
2204: P_ENCODED => 'F');
2205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2206: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2207:
2208: WHEN FND_API.G_EXC_ERROR THEN
2209: x_msg_data := FND_MSG_PUB.GET(
2210: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2211: P_ENCODED => 'F');
2212: x_return_status := FND_API.G_RET_STS_ERROR;
2208: WHEN FND_API.G_EXC_ERROR THEN
2209: x_msg_data := FND_MSG_PUB.GET(
2210: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2211: P_ENCODED => 'F');
2212: x_return_status := FND_API.G_RET_STS_ERROR;
2213: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2214:
2215: WHEN OTHERS THEN
2216: IF (G_DEBUG_UNEXP) THEN
2223: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2224: x_msg_data := FND_MSG_PUB.GET(
2225: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2226: P_ENCODED => 'F');
2227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2228:
2229:
2230: END cancel_supply;
2231:
2249: --IN OUT :
2250: --OUT :
2251: -- x_msg_data
2252: -- x_return_status
2253: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2254: -- FND_API.G_RET_STS_ERROR if cancel action fails
2255: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2256: --
2257: --End of Comments
2250: --OUT :
2251: -- x_msg_data
2252: -- x_return_status
2253: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2254: -- FND_API.G_RET_STS_ERROR if cancel action fails
2255: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2256: --
2257: --End of Comments
2258: --------------------------------------------------------------------------------
2251: -- x_msg_data
2252: -- x_return_status
2253: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2254: -- FND_API.G_RET_STS_ERROR if cancel action fails
2255: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2256: --
2257: --End of Comments
2258: --------------------------------------------------------------------------------
2259:
2282:
2283:
2284: BEGIN
2285: -- Start standard API initialization
2286: IF FND_API.to_boolean(p_init_msg_list) THEN
2287: FND_MSG_PUB.initialize;
2288: END IF;
2289:
2290: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2286: IF FND_API.to_boolean(p_init_msg_list) THEN
2287: FND_MSG_PUB.initialize;
2288: END IF;
2289:
2290: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2291: d_api_name, g_pkg_name) THEN
2292: RAISE FND_API.g_exc_unexpected_error;
2293: END IF;
2294:
2288: END IF;
2289:
2290: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2291: d_api_name, g_pkg_name) THEN
2292: RAISE FND_API.g_exc_unexpected_error;
2293: END IF;
2294:
2295: IF g_debug_stmt THEN
2296: PO_DEBUG.debug_begin(d_module);
2325: x_msg_count => l_msg_count,
2326: x_msg_data => x_msg_data);
2327:
2328:
2329: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2330: RAISE FND_API.g_exc_error;
2331: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2332: RAISE FND_API.g_exc_unexpected_error;
2333: END IF;
2326: x_msg_data => x_msg_data);
2327:
2328:
2329: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2330: RAISE FND_API.g_exc_error;
2331: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2332: RAISE FND_API.g_exc_unexpected_error;
2333: END IF;
2334:
2327:
2328:
2329: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2330: RAISE FND_API.g_exc_error;
2331: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2332: RAISE FND_API.g_exc_unexpected_error;
2333: END IF;
2334:
2335: EXCEPTION
2328:
2329: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2330: RAISE FND_API.g_exc_error;
2331: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2332: RAISE FND_API.g_exc_unexpected_error;
2333: END IF;
2334:
2335: EXCEPTION
2336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2332: RAISE FND_API.g_exc_unexpected_error;
2333: END IF;
2334:
2335: EXCEPTION
2336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2337: x_msg_data := FND_MSG_PUB.GET(
2338: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2339: P_ENCODED => 'F');
2340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2337: x_msg_data := FND_MSG_PUB.GET(
2338: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2339: P_ENCODED => 'F');
2340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2341: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2342: IF (g_debug_unexp) THEN
2343: FND_LOG.string(FND_LOG.level_unexpected,d_module ||'---at '||l_progress || 'UnExpected Error', SQLERRM);
2344: END IF;
2343: FND_LOG.string(FND_LOG.level_unexpected,d_module ||'---at '||l_progress || 'UnExpected Error', SQLERRM);
2344: END IF;
2345:
2346:
2347: WHEN FND_API.G_EXC_ERROR THEN
2348: x_msg_data := FND_MSG_PUB.GET(
2349: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2350: P_ENCODED => 'F');
2351: x_return_status := FND_API.G_RET_STS_ERROR;
2347: WHEN FND_API.G_EXC_ERROR THEN
2348: x_msg_data := FND_MSG_PUB.GET(
2349: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2350: P_ENCODED => 'F');
2351: x_return_status := FND_API.G_RET_STS_ERROR;
2352: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2353: IF (g_debug_unexp) THEN
2354: FND_LOG.string(FND_LOG.level_unexpected,d_module ||'---at '||l_progress || 'UnExpected Error', SQLERRM);
2355: END IF;
2365: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2366: x_msg_data := FND_MSG_PUB.GET(
2367: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2368: P_ENCODED => 'F');
2369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2370:
2371: END cancel_tax_lines;
2372:
2373: --------------------------------------------------------------------------------
2395: --IN OUT :
2396: --OUT :
2397: -- x_msg_data
2398: -- x_return_status
2399: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2400: -- FND_API.G_RET_STS_ERROR if cancel action fails
2401: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2402: --
2403: --End of Comments
2396: --OUT :
2397: -- x_msg_data
2398: -- x_return_status
2399: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2400: -- FND_API.G_RET_STS_ERROR if cancel action fails
2401: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2402: --
2403: --End of Comments
2404: --------------------------------------------------------------------------------
2397: -- x_msg_data
2398: -- x_return_status
2399: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2400: -- FND_API.G_RET_STS_ERROR if cancel action fails
2401: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2402: --
2403: --End of Comments
2404: --------------------------------------------------------------------------------
2405:
2429:
2430:
2431: BEGIN
2432: -- Start standard API initialization
2433: IF FND_API.to_boolean(p_init_msg_list) THEN
2434: FND_MSG_PUB.initialize;
2435: END IF;
2436:
2437: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2433: IF FND_API.to_boolean(p_init_msg_list) THEN
2434: FND_MSG_PUB.initialize;
2435: END IF;
2436:
2437: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2438: d_api_name, g_pkg_name) THEN
2439: RAISE FND_API.g_exc_unexpected_error;
2440: END IF;
2441:
2435: END IF;
2436:
2437: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2438: d_api_name, g_pkg_name) THEN
2439: RAISE FND_API.g_exc_unexpected_error;
2440: END IF;
2441:
2442:
2443:
2484: -- a cancel request, we should immediately accept it, and if it is
2485: -- a change request, we should reject it. */
2486: PO_ReqChangeRequestWF_PVT.process_cancelled_req_lines (
2487: p_api_version => 1.0,
2488: p_init_msg_list => FND_API.G_FALSE,
2489: p_commit => FND_API.G_FALSE,
2490: x_return_status => x_return_status,
2491: x_msg_count => l_msg_count,
2492: x_msg_data => x_msg_data,
2485: -- a change request, we should reject it. */
2486: PO_ReqChangeRequestWF_PVT.process_cancelled_req_lines (
2487: p_api_version => 1.0,
2488: p_init_msg_list => FND_API.G_FALSE,
2489: p_commit => FND_API.G_FALSE,
2490: x_return_status => x_return_status,
2491: x_msg_count => l_msg_count,
2492: x_msg_data => x_msg_data,
2493: p_canceledReqLineIDs_tbl => p_req_line_id_tbl );
2498:
2499: IF p_entity_level = c_entity_level_HEADER THEN
2500: PO_Document_Control_PVT.rel_stop_wf_process(
2501: p_api_version => 1.0,
2502: p_init_msg_list => FND_API.G_FALSE,
2503: x_return_status => x_return_status,
2504: p_doc_type => p_document_type,
2505: p_doc_subtype => p_doc_subtype,
2506: p_doc_id => p_doc_id );
2514:
2515: l_progress := '005';
2516: PO_CHG_REQUEST_PVT.cancel_change_request(
2517: p_api_version => 1.0,
2518: p_init_msg_list => FND_API.G_FALSE,
2519: x_return_status => x_return_status,
2520: p_po_header_id => NULL,
2521: p_po_release_id => p_doc_id,
2522: p_po_line_id => NULL,
2527: IF p_entity_level = c_entity_level_HEADER THEN
2528: l_progress := '006';
2529: PO_Document_Control_PVT.po_stop_wf_process(
2530: p_api_version => 1.0,
2531: p_init_msg_list => FND_API.G_FALSE,
2532: x_return_status => x_return_status,
2533: p_doc_type => p_document_type,
2534: p_doc_subtype => p_doc_subtype,
2535: p_doc_id => p_doc_id );
2544: l_progress := '007';
2545:
2546: PO_CHG_REQUEST_PVT.cancel_change_request(
2547: p_api_version => 1.0,
2548: p_init_msg_list => FND_API.G_FALSE,
2549: x_return_status => x_return_status,
2550: p_po_header_id => p_doc_id,
2551: p_po_release_id => NULL,
2552: p_po_line_id => l_line_id,
2555: END IF;
2556:
2557: END IF; --
2558:
2559: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2560: RAISE FND_API.g_exc_error;
2561: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2562: RAISE FND_API.g_exc_unexpected_error;
2563: END IF;
2556:
2557: END IF; --
2558:
2559: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2560: RAISE FND_API.g_exc_error;
2561: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2562: RAISE FND_API.g_exc_unexpected_error;
2563: END IF;
2564:
2557: END IF; --
2558:
2559: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2560: RAISE FND_API.g_exc_error;
2561: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2562: RAISE FND_API.g_exc_unexpected_error;
2563: END IF;
2564:
2565:
2558:
2559: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2560: RAISE FND_API.g_exc_error;
2561: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2562: RAISE FND_API.g_exc_unexpected_error;
2563: END IF;
2564:
2565:
2566:
2564:
2565:
2566:
2567: EXCEPTION
2568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2569: x_msg_data := FND_MSG_PUB.GET(
2570: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2571: P_ENCODED => 'F');
2572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2569: x_msg_data := FND_MSG_PUB.GET(
2570: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2571: P_ENCODED => 'F');
2572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2573: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2574:
2575: WHEN FND_API.G_EXC_ERROR THEN
2576: x_msg_data := FND_MSG_PUB.GET(
2571: P_ENCODED => 'F');
2572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2573: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2574:
2575: WHEN FND_API.G_EXC_ERROR THEN
2576: x_msg_data := FND_MSG_PUB.GET(
2577: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2578: P_ENCODED => 'F');
2579: x_return_status := FND_API.G_RET_STS_ERROR;
2575: WHEN FND_API.G_EXC_ERROR THEN
2576: x_msg_data := FND_MSG_PUB.GET(
2577: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2578: P_ENCODED => 'F');
2579: x_return_status := FND_API.G_RET_STS_ERROR;
2580: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2581:
2582: WHEN OTHERS THEN
2583: IF (G_DEBUG_UNEXP) THEN
2589: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2590: x_msg_data := FND_MSG_PUB.GET(
2591: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
2592: P_ENCODED => 'F');
2593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2594:
2595: END cancel_pending_change_request;
2596:
2597:
2616: -- x_msg_data
2617: -- x_req_line_id_tbl
2618: -- A PL/SQL table of requisition line IDs
2619: -- x_return_status
2620: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2621: -- FND_API.G_RET_STS_ERROR if cancel action fails
2622: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2623: --
2624: --End of Comments
2617: -- x_req_line_id_tbl
2618: -- A PL/SQL table of requisition line IDs
2619: -- x_return_status
2620: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2621: -- FND_API.G_RET_STS_ERROR if cancel action fails
2622: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2623: --
2624: --End of Comments
2625: --------------------------------------------------------------------------------
2618: -- A PL/SQL table of requisition line IDs
2619: -- x_return_status
2620: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
2621: -- FND_API.G_RET_STS_ERROR if cancel action fails
2622: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2623: --
2624: --End of Comments
2625: --------------------------------------------------------------------------------
2626:
2695:
2696:
2697: BEGIN
2698: -- Start standard API initialization
2699: IF FND_API.to_boolean(p_init_msg_list) THEN
2700: FND_MSG_PUB.initialize;
2701: END IF;
2702:
2703: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2699: IF FND_API.to_boolean(p_init_msg_list) THEN
2700: FND_MSG_PUB.initialize;
2701: END IF;
2702:
2703: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2704: d_api_name, g_pkg_name) THEN
2705: RAISE FND_API.g_exc_unexpected_error;
2706: END IF;
2707:
2701: END IF;
2702:
2703: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2704: d_api_name, g_pkg_name) THEN
2705: RAISE FND_API.g_exc_unexpected_error;
2706: END IF;
2707:
2708:
2709: IF g_debug_stmt THEN
2752: x_req_line_id_tbl.count);
2753: END IF;
2754:
2755: EXCEPTION
2756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2758: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2759: IF(G_DEBUG_UNEXP) THEN
2760: FND_LOG.STRING(
2753: END IF;
2754:
2755: EXCEPTION
2756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2758: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2759: IF(G_DEBUG_UNEXP) THEN
2760: FND_LOG.STRING(
2761: FND_LOG.LEVEL_UNEXPECTED,
2763: 'ERROR: LOCATION IS ' || l_progress || ' SQL CODE IS '||SQLCODE|| ' SQL ERRM IS '||SQLERRM);
2764: END IF;
2765:
2766:
2767: WHEN FND_API.G_EXC_ERROR THEN
2768: x_return_status := FND_API.G_RET_STS_ERROR;
2769: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2770: IF (G_DEBUG_UNEXP) THEN
2771: FND_LOG.STRING(
2764: END IF;
2765:
2766:
2767: WHEN FND_API.G_EXC_ERROR THEN
2768: x_return_status := FND_API.G_RET_STS_ERROR;
2769: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2770: IF (G_DEBUG_UNEXP) THEN
2771: FND_LOG.STRING(
2772: FND_LOG.LEVEL_UNEXPECTED,
2781: d_module || '.OTHERS_EXCEPTION',
2782: 'EXCEPTION: LOCATION IS ' || l_progress || ' SQL CODE IS '||SQLCODE|| ' SQL ERRM IS '||SQLERRM);
2783: END IF;
2784: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
2785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2786:
2787: END fetch_req_lines;
2788:
2789: --------------------------------------------------------------------------------
2823:
2824:
2825: BEGIN
2826: -- Start standard API initialization
2827: IF FND_API.to_boolean(p_init_msg_list) THEN
2828: FND_MSG_PUB.initialize;
2829: END IF;
2830:
2831: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2827: IF FND_API.to_boolean(p_init_msg_list) THEN
2828: FND_MSG_PUB.initialize;
2829: END IF;
2830:
2831: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2832: d_api_name, g_pkg_name) THEN
2833: RAISE FND_API.g_exc_unexpected_error;
2834: END IF;
2835:
2829: END IF;
2830:
2831: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2832: d_api_name, g_pkg_name) THEN
2833: RAISE FND_API.g_exc_unexpected_error;
2834: END IF;
2835:
2836:
2837: IF g_debug_stmt THEN
2923:
2924:
2925: BEGIN
2926: -- Start standard API initialization
2927: IF FND_API.to_boolean(p_init_msg_list) THEN
2928: FND_MSG_PUB.initialize;
2929: END IF;
2930:
2931: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2927: IF FND_API.to_boolean(p_init_msg_list) THEN
2928: FND_MSG_PUB.initialize;
2929: END IF;
2930:
2931: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2932: d_api_name, g_pkg_name) THEN
2933: RAISE FND_API.g_exc_unexpected_error;
2934: END IF;
2935:
2929: END IF;
2930:
2931: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
2932: d_api_name, g_pkg_name) THEN
2933: RAISE FND_API.g_exc_unexpected_error;
2934: END IF;
2935:
2936:
2937: IF g_debug_stmt THEN
3012: --IN OUT :
3013: --OUT :
3014: -- x_msg_data
3015: -- x_return_status
3016: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
3017: -- FND_API.G_RET_STS_ERROR if cancel action fails
3018: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3019: --
3020: --End of Comments
3013: --OUT :
3014: -- x_msg_data
3015: -- x_return_status
3016: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
3017: -- FND_API.G_RET_STS_ERROR if cancel action fails
3018: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3019: --
3020: --End of Comments
3021: --------------------------------------------------------------------------------
3014: -- x_msg_data
3015: -- x_return_status
3016: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
3017: -- FND_API.G_RET_STS_ERROR if cancel action fails
3018: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3019: --
3020: --End of Comments
3021: --------------------------------------------------------------------------------
3022: PROCEDURE update_req_details_after_fc(
3043:
3044:
3045: BEGIN
3046: -- Start standard API initialization
3047: IF FND_API.to_boolean(p_init_msg_list) THEN
3048: FND_MSG_PUB.initialize;
3049: END IF;
3050:
3051: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3047: IF FND_API.to_boolean(p_init_msg_list) THEN
3048: FND_MSG_PUB.initialize;
3049: END IF;
3050:
3051: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3052: d_api_name, g_pkg_name) THEN
3053: RAISE FND_API.g_exc_unexpected_error;
3054: END IF;
3055:
3049: END IF;
3050:
3051: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3052: d_api_name, g_pkg_name) THEN
3053: RAISE FND_API.g_exc_unexpected_error;
3054: END IF;
3055:
3056:
3057: l_progress := '000' ;
3066:
3067: END IF;
3068:
3069:
3070: x_return_status := FND_API.g_ret_sts_success;
3071: x_msg_data := NULL;
3072: l_auth_status := NULL;
3073: l_qty_cancelled := 0;
3074: l_uom_conv := 0;
3080:
3081: -- Get the UOM conversion between req line and its corresponding PO Line
3082: calc_uom_conv (
3083: p_api_version=> 1.0,
3084: p_init_msg_list=>FND_API.G_FALSE,
3085: p_fc_level=>c_after_FC,
3086: p_req_line_id=>p_req_line_id,
3087: x_uom_conv=>l_uom_conv);
3088:
3093: l_progress := '002';
3094: -- Calculate the quantity canceled to be updated on req line.
3095: calc_qty_canceled(
3096: p_api_version=> 1.0,
3097: p_init_msg_list=>FND_API.G_FALSE,
3098: p_req_line_id=>p_req_line_id,
3099: p_uom_conv=>l_uom_conv,
3100: x_qty_cancelled=>l_qty_cancelled);
3101:
3156: -- When Recreate_Demand is ON and new Req line is created
3157: l_progress := '004' ;
3158: calc_uom_conv (
3159: p_api_version=> 1.0,
3160: p_init_msg_list=>FND_API.G_FALSE,
3161: p_fc_level=>c_after_FC,
3162: p_req_line_id=>p_req_line_id,
3163: x_uom_conv=>l_uom_conv);
3164:
3345:
3346: END IF;
3347:
3348: EXCEPTION
3349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3350: x_msg_data := FND_MSG_PUB.GET(
3351: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3352: P_ENCODED => 'F');
3353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3350: x_msg_data := FND_MSG_PUB.GET(
3351: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3352: P_ENCODED => 'F');
3353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3354: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
3355:
3356: WHEN FND_API.G_EXC_ERROR THEN
3357: x_msg_data := FND_MSG_PUB.GET(
3352: P_ENCODED => 'F');
3353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3354: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
3355:
3356: WHEN FND_API.G_EXC_ERROR THEN
3357: x_msg_data := FND_MSG_PUB.GET(
3358: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3359: P_ENCODED => 'F');
3360: x_return_status := FND_API.G_RET_STS_ERROR;
3356: WHEN FND_API.G_EXC_ERROR THEN
3357: x_msg_data := FND_MSG_PUB.GET(
3358: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3359: P_ENCODED => 'F');
3360: x_return_status := FND_API.G_RET_STS_ERROR;
3361: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
3362:
3363: WHEN OTHERS THEN
3364: IF (G_DEBUG_UNEXP) THEN
3371: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
3372: x_msg_data := FND_MSG_PUB.GET(
3373: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3374: P_ENCODED => 'F');
3375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3376:
3377:
3378: END update_req_details_after_fc;
3379:
3417: l_qzero NUMBER := 0;
3418:
3419: BEGIN
3420: -- Start standard API initialization
3421: IF FND_API.to_boolean(p_init_msg_list) THEN
3422: FND_MSG_PUB.initialize;
3423: END IF;
3424:
3425: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3421: IF FND_API.to_boolean(p_init_msg_list) THEN
3422: FND_MSG_PUB.initialize;
3423: END IF;
3424:
3425: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3426: d_api_name, g_pkg_name) THEN
3427: RAISE FND_API.g_exc_unexpected_error;
3428: END IF;
3429:
3423: END IF;
3424:
3425: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3426: d_api_name, g_pkg_name) THEN
3427: RAISE FND_API.g_exc_unexpected_error;
3428: END IF;
3429:
3430:
3431: IF g_debug_stmt THEN
3453: WHEN OTHERS THEN
3454: IF g_debug_stmt THEN
3455: PO_DEBUG.debug_stmt(d_module, l_progress, 'Exception in is_qty_del_bill_zero check');
3456: END IF ;
3457: RAISE FND_API.g_exc_unexpected_error;
3458: END;
3459:
3460: IF g_debug_stmt THEN
3461: PO_DEBUG.debug_var(d_module, l_progress, 'l_qzero', l_qzero);
3497: -- x_new_line_id
3498: -- Returns the requisition_line_id of the newly created req line
3499: -- x_msg_data
3500: -- x_return_status
3501: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
3502: -- FND_API.G_RET_STS_ERROR if cancel action fails
3503: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3504: --
3505: --End of Comments
3498: -- Returns the requisition_line_id of the newly created req line
3499: -- x_msg_data
3500: -- x_return_status
3501: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
3502: -- FND_API.G_RET_STS_ERROR if cancel action fails
3503: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3504: --
3505: --End of Comments
3506: --------------------------------------------------------------------------------
3499: -- x_msg_data
3500: -- x_return_status
3501: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
3502: -- FND_API.G_RET_STS_ERROR if cancel action fails
3503: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3504: --
3505: --End of Comments
3506: --------------------------------------------------------------------------------
3507:
3525: l_progress VARCHAR2(3) := '000' ;
3526:
3527: BEGIN
3528: -- Start standard API initialization
3529: IF FND_API.to_boolean(p_init_msg_list) THEN
3530: FND_MSG_PUB.initialize;
3531: END IF;
3532:
3533: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3529: IF FND_API.to_boolean(p_init_msg_list) THEN
3530: FND_MSG_PUB.initialize;
3531: END IF;
3532:
3533: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3534: d_api_name, g_pkg_name) THEN
3535: RAISE FND_API.g_exc_unexpected_error;
3536: END IF;
3537:
3531: END IF;
3532:
3533: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3534: d_api_name, g_pkg_name) THEN
3535: RAISE FND_API.g_exc_unexpected_error;
3536: END IF;
3537:
3538:
3539: IF g_debug_stmt THEN
3545: END IF;
3546:
3547: l_progress := '001' ;
3548: x_msg_data := NULL;
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
3550:
3551: SELECT NVL(MAX(porl.line_num), 0) + 1
3552: INTO l_next_line_num
3553: FROM po_requisition_lines_all porl
3797: X_last_update_login=> p_login_id);
3798:
3799:
3800: EXCEPTION
3801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3802: x_msg_data := FND_MSG_PUB.GET(
3803: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3804: P_ENCODED => 'F');
3805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3802: x_msg_data := FND_MSG_PUB.GET(
3803: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3804: P_ENCODED => 'F');
3805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3806: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
3807: WHEN FND_API.G_EXC_ERROR THEN
3808: x_msg_data := FND_MSG_PUB.GET(
3809: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3803: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3804: P_ENCODED => 'F');
3805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3806: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
3807: WHEN FND_API.G_EXC_ERROR THEN
3808: x_msg_data := FND_MSG_PUB.GET(
3809: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3810: P_ENCODED => 'F');
3811: x_return_status := FND_API.G_RET_STS_ERROR;
3807: WHEN FND_API.G_EXC_ERROR THEN
3808: x_msg_data := FND_MSG_PUB.GET(
3809: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3810: P_ENCODED => 'F');
3811: x_return_status := FND_API.G_RET_STS_ERROR;
3812: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
3813: WHEN OTHERS THEN
3814: IF (G_DEBUG_UNEXP) THEN
3815: FND_LOG.STRING(
3820: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
3821: x_msg_data := FND_MSG_PUB.GET(
3822: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
3823: P_ENCODED => 'F');
3824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3825:
3826: END create_req_line;
3827:
3828: --------------------------------------------------------------------------------
3851: --IN OUT :
3852: --OUT :
3853: -- x_msg_data
3854: -- x_return_status
3855: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
3856: -- FND_API.G_RET_STS_ERROR if cancel action fails
3857: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3858: --
3859: --End of Comments
3852: --OUT :
3853: -- x_msg_data
3854: -- x_return_status
3855: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
3856: -- FND_API.G_RET_STS_ERROR if cancel action fails
3857: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3858: --
3859: --End of Comments
3860: --------------------------------------------------------------------------------
3853: -- x_msg_data
3854: -- x_return_status
3855: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
3856: -- FND_API.G_RET_STS_ERROR if cancel action fails
3857: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3858: --
3859: --End of Comments
3860: --------------------------------------------------------------------------------
3861:
3877: l_uom_conv NUMBER := 0;
3878:
3879: BEGIN
3880: -- Start standard API initialization
3881: IF FND_API.to_boolean(p_init_msg_list) THEN
3882: FND_MSG_PUB.initialize;
3883: END IF;
3884:
3885: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3881: IF FND_API.to_boolean(p_init_msg_list) THEN
3882: FND_MSG_PUB.initialize;
3883: END IF;
3884:
3885: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3886: d_api_name, g_pkg_name) THEN
3887: RAISE FND_API.g_exc_unexpected_error;
3888: END IF;
3889:
3883: END IF;
3884:
3885: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
3886: d_api_name, g_pkg_name) THEN
3887: RAISE FND_API.g_exc_unexpected_error;
3888: END IF;
3889:
3890:
3891:
3897: END IF;
3898:
3899: l_progress := '001' ;
3900: x_msg_data := NULL;
3901: x_return_status := FND_API.G_RET_STS_SUCCESS;
3902:
3903: calc_uom_conv (
3904: p_api_version=> 1.0,
3905: p_init_msg_list=>FND_API.G_FALSE,
3901: x_return_status := FND_API.G_RET_STS_SUCCESS;
3902:
3903: calc_uom_conv (
3904: p_api_version=> 1.0,
3905: p_init_msg_list=>FND_API.G_FALSE,
3906: p_req_line_id=>p_req_line_id,
3907: p_fc_level=>c_after_FC,
3908: x_uom_conv=>l_uom_conv);
3909:
4062: NVL(POD.quantity_billed, 0))
4063: > 0) ;
4064:
4065: EXCEPTION
4066: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4067: x_msg_data := FND_MSG_PUB.GET(
4068: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4069: P_ENCODED => 'F');
4070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4066: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4067: x_msg_data := FND_MSG_PUB.GET(
4068: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4069: P_ENCODED => 'F');
4070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4071: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4072: WHEN FND_API.G_EXC_ERROR THEN
4073: x_msg_data := FND_MSG_PUB.GET(
4074: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4068: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4069: P_ENCODED => 'F');
4070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4071: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4072: WHEN FND_API.G_EXC_ERROR THEN
4073: x_msg_data := FND_MSG_PUB.GET(
4074: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4075: P_ENCODED => 'F');
4076: x_return_status := FND_API.G_RET_STS_ERROR;
4072: WHEN FND_API.G_EXC_ERROR THEN
4073: x_msg_data := FND_MSG_PUB.GET(
4074: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4075: P_ENCODED => 'F');
4076: x_return_status := FND_API.G_RET_STS_ERROR;
4077: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4078: WHEN OTHERS THEN
4079: IF (G_DEBUG_UNEXP) THEN
4080: FND_LOG.STRING(
4085:
4086: x_msg_data := FND_MSG_PUB.GET(
4087: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4088: P_ENCODED => 'F');
4089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4090: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4091:
4092: END create_req_dist;
4093:
4149: --OUT :
4150: -- x_req_line_id_tbl
4151: -- x_msg_data
4152: -- x_return_status
4153: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4154: -- FND_API.G_RET_STS_ERROR if cancel action fails
4155: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4156: --
4157: --End of Comments
4150: -- x_req_line_id_tbl
4151: -- x_msg_data
4152: -- x_return_status
4153: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4154: -- FND_API.G_RET_STS_ERROR if cancel action fails
4155: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4156: --
4157: --End of Comments
4158: --------------------------------------------------------------------------------
4151: -- x_msg_data
4152: -- x_return_status
4153: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4154: -- FND_API.G_RET_STS_ERROR if cancel action fails
4155: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4156: --
4157: --End of Comments
4158: --------------------------------------------------------------------------------
4159:
4190:
4191:
4192: BEGIN
4193: -- Start standard API initialization
4194: IF FND_API.to_boolean(p_init_msg_list) THEN
4195: FND_MSG_PUB.initialize;
4196: END IF;
4197:
4198: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4194: IF FND_API.to_boolean(p_init_msg_list) THEN
4195: FND_MSG_PUB.initialize;
4196: END IF;
4197:
4198: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4199: d_api_name, g_pkg_name) THEN
4200: RAISE FND_API.g_exc_unexpected_error;
4201: END IF;
4202:
4196: END IF;
4197:
4198: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4199: d_api_name, g_pkg_name) THEN
4200: RAISE FND_API.g_exc_unexpected_error;
4201: END IF;
4202:
4203:
4204: IF g_debug_stmt THEN
4222:
4223: -- get_linked_req_lines to the entity being canceled
4224: fetch_req_lines(
4225: p_api_version=> 1.0,
4226: p_init_msg_list=>FND_API.G_FALSE,
4227: p_entity_id => p_entity_id,
4228: p_entity_level =>p_entity_level,
4229: p_document_type =>p_document_type,
4230: p_doc_subtype =>p_doc_subtype,
4232: x_return_status =>x_return_status,
4233: x_req_line_id_tbl =>x_req_line_id_tbl);
4234:
4235:
4236: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4237: RAISE FND_API.g_exc_error;
4238: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4239: RAISE FND_API.g_exc_unexpected_error;
4240: END IF;
4233: x_req_line_id_tbl =>x_req_line_id_tbl);
4234:
4235:
4236: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4237: RAISE FND_API.g_exc_error;
4238: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4239: RAISE FND_API.g_exc_unexpected_error;
4240: END IF;
4241:
4234:
4235:
4236: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4237: RAISE FND_API.g_exc_error;
4238: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4239: RAISE FND_API.g_exc_unexpected_error;
4240: END IF;
4241:
4242:
4235:
4236: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4237: RAISE FND_API.g_exc_error;
4238: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4239: RAISE FND_API.g_exc_unexpected_error;
4240: END IF;
4241:
4242:
4243: IF g_debug_stmt THEN
4279:
4280: -- Update Cancel_flag to 'Y',quantity for the req line and its distribution
4281: update_req_details_after_fc(
4282: p_api_version=> 1.0,
4283: p_init_msg_list=>FND_API.G_FALSE,
4284: p_req_line_id=>x_req_line_id_tbl(i),
4285: p_recreate_demand_flag=>p_recreate_demand,
4286: p_user_id=>p_user_id,
4287: p_login_id=>p_login_id,
4289: x_msg_data =>x_msg_data,
4290: x_return_status =>x_return_status);
4291:
4292:
4293: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4294: RAISE FND_API.g_exc_error;
4295: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4296: RAISE FND_API.g_exc_unexpected_error;
4297: END IF;
4290: x_return_status =>x_return_status);
4291:
4292:
4293: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4294: RAISE FND_API.g_exc_error;
4295: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4296: RAISE FND_API.g_exc_unexpected_error;
4297: END IF;
4298:
4291:
4292:
4293: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4294: RAISE FND_API.g_exc_error;
4295: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4296: RAISE FND_API.g_exc_unexpected_error;
4297: END IF;
4298:
4299: l_progress := '005' ;
4292:
4293: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4294: RAISE FND_API.g_exc_error;
4295: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4296: RAISE FND_API.g_exc_unexpected_error;
4297: END IF;
4298:
4299: l_progress := '005' ;
4300:
4300:
4301: -- Remove the Req Line Supply from mtl supply table
4302: cancel_supply(
4303: p_api_version=> 1.0,
4304: p_init_msg_list=>FND_API.G_FALSE,
4305: p_entity_level =>NULL,
4306: p_entity_id =>x_req_line_id_tbl(i),
4307: p_doc_id =>x_req_line_id_tbl(i),
4308: p_document_type =>c_doc_type_REQUISITION,
4310: p_recreate_flag =>'N',
4311: x_return_status =>x_return_status,
4312: x_msg_data =>x_msg_data);
4313:
4314: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4315: RAISE FND_API.g_exc_error;
4316: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4317: RAISE FND_API.g_exc_unexpected_error;
4318: END IF;
4311: x_return_status =>x_return_status,
4312: x_msg_data =>x_msg_data);
4313:
4314: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4315: RAISE FND_API.g_exc_error;
4316: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4317: RAISE FND_API.g_exc_unexpected_error;
4318: END IF;
4319:
4312: x_msg_data =>x_msg_data);
4313:
4314: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4315: RAISE FND_API.g_exc_error;
4316: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4317: RAISE FND_API.g_exc_unexpected_error;
4318: END IF;
4319:
4320:
4313:
4314: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4315: RAISE FND_API.g_exc_error;
4316: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4317: RAISE FND_API.g_exc_unexpected_error;
4318: END IF;
4319:
4320:
4321: END IF; --p_fc_level
4330: -- to create a new req line; we just need to update the old one,
4331: -- since all ordered is cancelled
4332: IF is_qty_del_bill_zero(
4333: p_api_version=> 1.0,
4334: p_init_msg_list=> FND_API.G_FALSE,
4335: p_req_line_id=>x_req_line_id_tbl(i)) THEN
4336:
4337: x_is_new_line :='N';
4338:
4472:
4473: -- Get the UOM conversion between req line and its corresponding PO Line
4474: calc_uom_conv (
4475: p_api_version=> 1.0,
4476: p_init_msg_list=>FND_API.G_FALSE,
4477: p_fc_level=>c_before_FC,
4478: p_req_line_id=>x_req_line_id_tbl(i),
4479: x_uom_conv=>l_uom_conv);
4480:
4487:
4488: -- Calculate the quantity left over quanity to be updated on new req line.
4489: calc_qty_canceled(
4490: p_api_version=> 1.0,
4491: p_init_msg_list=>FND_API.G_FALSE,
4492: p_req_line_id=>x_req_line_id_tbl(i),
4493: p_uom_conv=>l_uom_conv,
4494: x_qty_cancelled=>l_qty_cancelled);
4495:
4501: -- If the quantity delivered/billed on the PO is less than the quantity
4502: -- that was ordered on the Req ,then create new req line and distribution
4503: create_req_line(
4504: p_api_version=> 1.0,
4505: p_init_msg_list=>FND_API.G_FALSE,
4506: p_old_line_id =>x_req_line_id_tbl(i),
4507: p_line_quantity =>l_qty_cancelled,
4508: p_user_id =>p_user_id,
4509: p_login_id =>p_login_id,
4510: x_new_line_id =>l_new_req_line_id,
4511: x_return_status =>x_return_status,
4512: x_msg_data =>x_msg_data);
4513:
4514: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4515: RAISE FND_API.g_exc_error;
4516: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4517: RAISE FND_API.g_exc_unexpected_error;
4518: END IF;
4511: x_return_status =>x_return_status,
4512: x_msg_data =>x_msg_data);
4513:
4514: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4515: RAISE FND_API.g_exc_error;
4516: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4517: RAISE FND_API.g_exc_unexpected_error;
4518: END IF;
4519:
4512: x_msg_data =>x_msg_data);
4513:
4514: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4515: RAISE FND_API.g_exc_error;
4516: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4517: RAISE FND_API.g_exc_unexpected_error;
4518: END IF;
4519:
4520:
4513:
4514: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4515: RAISE FND_API.g_exc_error;
4516: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4517: RAISE FND_API.g_exc_unexpected_error;
4518: END IF;
4519:
4520:
4521: create_req_dist(
4519:
4520:
4521: create_req_dist(
4522: p_api_version=> 1.0,
4523: p_init_msg_list=>FND_API.G_FALSE,
4524: p_req_line_id=>l_new_req_line_id,
4525: p_user_id =>p_user_id,
4526: p_login_id =>p_login_id,
4527: x_return_status =>x_return_status,
4526: p_login_id =>p_login_id,
4527: x_return_status =>x_return_status,
4528: x_msg_data =>x_msg_data);
4529:
4530: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4531: RAISE FND_API.g_exc_error;
4532: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4533: RAISE FND_API.g_exc_unexpected_error;
4534: END IF;
4527: x_return_status =>x_return_status,
4528: x_msg_data =>x_msg_data);
4529:
4530: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4531: RAISE FND_API.g_exc_error;
4532: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4533: RAISE FND_API.g_exc_unexpected_error;
4534: END IF;
4535:
4528: x_msg_data =>x_msg_data);
4529:
4530: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4531: RAISE FND_API.g_exc_error;
4532: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4533: RAISE FND_API.g_exc_unexpected_error;
4534: END IF;
4535:
4536: ELSE
4529:
4530: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4531: RAISE FND_API.g_exc_error;
4532: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4533: RAISE FND_API.g_exc_unexpected_error;
4534: END IF;
4535:
4536: ELSE
4537: -- If l_qty_cancelled =0 (i.e., the quantity delivered/billed on the PO is
4579: -- been updated during pre_fundschecker and we don't even get it here.
4580:
4581: update_req_details_after_fc(
4582: p_api_version=> 1.0,
4583: p_init_msg_list=>FND_API.G_FALSE,
4584: p_req_line_id=>x_req_line_id_tbl(i),
4585: p_recreate_demand_flag=>p_recreate_demand,
4586: p_user_id=>p_user_id,
4587: p_login_id=>p_login_id,
4588: p_is_new_req_line=>x_is_new_line,
4589: x_return_status =>x_return_status,
4590: x_msg_data =>x_msg_data);
4591:
4592: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4593: RAISE FND_API.g_exc_error;
4594: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4595: RAISE FND_API.g_exc_unexpected_error;
4596: END IF;
4589: x_return_status =>x_return_status,
4590: x_msg_data =>x_msg_data);
4591:
4592: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4593: RAISE FND_API.g_exc_error;
4594: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4595: RAISE FND_API.g_exc_unexpected_error;
4596: END IF;
4597:
4590: x_msg_data =>x_msg_data);
4591:
4592: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4593: RAISE FND_API.g_exc_error;
4594: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4595: RAISE FND_API.g_exc_unexpected_error;
4596: END IF;
4597:
4598: -- Create req supply for the new lines
4591:
4592: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4593: RAISE FND_API.g_exc_error;
4594: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4595: RAISE FND_API.g_exc_unexpected_error;
4596: END IF;
4597:
4598: -- Create req supply for the new lines
4599: l_status := po_supply.po_req_supply(
4613:
4614: END LOOP;
4615:
4616: EXCEPTION
4617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4618: x_msg_data := FND_MSG_PUB.GET(
4619: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4620: P_ENCODED => 'F');
4621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4618: x_msg_data := FND_MSG_PUB.GET(
4619: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4620: P_ENCODED => 'F');
4621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4622: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4623: IF (g_debug_unexp) THEN
4624: FND_LOG.STRING(
4625: FND_LOG.LEVEL_UNEXPECTED,
4627: 'Error: LOCATION IS '|| l_progress || ' SQL CODE IS '||SQLCODE);
4628: END IF;
4629:
4630:
4631: WHEN FND_API.G_EXC_ERROR THEN
4632: x_msg_data := FND_MSG_PUB.GET(
4633: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4634: P_ENCODED => 'F');
4635: x_return_status := FND_API.G_RET_STS_ERROR;
4631: WHEN FND_API.G_EXC_ERROR THEN
4632: x_msg_data := FND_MSG_PUB.GET(
4633: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4634: P_ENCODED => 'F');
4635: x_return_status := FND_API.G_RET_STS_ERROR;
4636: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4637: IF (g_debug_unexp) THEN
4638: FND_LOG.STRING(
4639: FND_LOG.LEVEL_UNEXPECTED,
4651: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4652: x_msg_data := FND_MSG_PUB.GET(
4653: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4654: P_ENCODED => 'F');
4655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4656:
4657:
4658:
4659: END update_requisitions;
4684: --IN OUT :
4685: --OUT :
4686: -- x_msg_data
4687: -- x_return_status
4688: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4689: -- FND_API.G_RET_STS_ERROR if cancel action fails
4690: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4691: --
4692: --End of Comments
4685: --OUT :
4686: -- x_msg_data
4687: -- x_return_status
4688: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4689: -- FND_API.G_RET_STS_ERROR if cancel action fails
4690: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4691: --
4692: --End of Comments
4693: --------------------------------------------------------------------------------
4686: -- x_msg_data
4687: -- x_return_status
4688: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4689: -- FND_API.G_RET_STS_ERROR if cancel action fails
4690: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4691: --
4692: --End of Comments
4693: --------------------------------------------------------------------------------
4694:
4723:
4724:
4725: BEGIN
4726: -- Start standard API initialization
4727: IF FND_API.to_boolean(p_init_msg_list) THEN
4728: FND_MSG_PUB.initialize;
4729: END IF;
4730:
4731: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4727: IF FND_API.to_boolean(p_init_msg_list) THEN
4728: FND_MSG_PUB.initialize;
4729: END IF;
4730:
4731: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4732: d_api_name, g_pkg_name) THEN
4733: RAISE FND_API.g_exc_unexpected_error;
4734: END IF;
4735:
4729: END IF;
4730:
4731: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4732: d_api_name, g_pkg_name) THEN
4733: RAISE FND_API.g_exc_unexpected_error;
4734: END IF;
4735:
4736:
4737: x_return_status := FND_API.G_RET_STS_SUCCESS;
4733: RAISE FND_API.g_exc_unexpected_error;
4734: END IF;
4735:
4736:
4737: x_return_status := FND_API.G_RET_STS_SUCCESS;
4738: x_msg_data := NULL;
4739:
4740: IF g_debug_stmt THEN
4741: PO_DEBUG.debug_begin(d_module);
4759:
4760: -- Update the cancel details on document after funds control call (unencumbering the document)
4761: update_document(
4762: p_api_version=> 1.0,
4763: p_init_msg_list=>FND_API.G_FALSE,
4764: p_entity_level =>p_entity_level,
4765: p_action_date =>p_action_date,
4766: p_entity_id =>p_entity_id,
4767: p_document_type =>p_document_type,
4776: x_msg_data =>x_msg_data);
4777:
4778:
4779:
4780: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4781: RAISE FND_API.g_exc_error;
4782: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4783: RAISE FND_API.g_exc_unexpected_error;
4784: END IF;
4777:
4778:
4779:
4780: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4781: RAISE FND_API.g_exc_error;
4782: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4783: RAISE FND_API.g_exc_unexpected_error;
4784: END IF;
4785:
4778:
4779:
4780: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4781: RAISE FND_API.g_exc_error;
4782: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4783: RAISE FND_API.g_exc_unexpected_error;
4784: END IF;
4785:
4786: l_progress := '001';
4779:
4780: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4781: RAISE FND_API.g_exc_error;
4782: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4783: RAISE FND_API.g_exc_unexpected_error;
4784: END IF;
4785:
4786: l_progress := '001';
4787: -- Update the backing requisitions accordingly after funds control call
4787: -- Update the backing requisitions accordingly after funds control call
4788: -- (unencumbering the document)
4789: update_requisitions(
4790: p_api_version=> 1.0,
4791: p_init_msg_list=>FND_API.G_FALSE,
4792: p_entity_level =>p_entity_level,
4793: p_action_date =>p_action_date,
4794: p_entity_id =>p_entity_id,
4795: p_document_type =>p_document_type,
4804: x_return_status =>x_return_status,
4805: x_msg_data =>x_msg_data,
4806: x_req_line_id_tbl =>l_req_line_id_tbl);
4807:
4808: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4809: RAISE FND_API.g_exc_error;
4810: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4811: RAISE FND_API.g_exc_unexpected_error;
4812: END IF;
4805: x_msg_data =>x_msg_data,
4806: x_req_line_id_tbl =>l_req_line_id_tbl);
4807:
4808: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4809: RAISE FND_API.g_exc_error;
4810: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4811: RAISE FND_API.g_exc_unexpected_error;
4812: END IF;
4813:
4806: x_req_line_id_tbl =>l_req_line_id_tbl);
4807:
4808: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4809: RAISE FND_API.g_exc_error;
4810: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4811: RAISE FND_API.g_exc_unexpected_error;
4812: END IF;
4813:
4814: l_progress := '002';
4807:
4808: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4809: RAISE FND_API.g_exc_error;
4810: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4811: RAISE FND_API.g_exc_unexpected_error;
4812: END IF;
4813:
4814: l_progress := '002';
4815:
4815:
4816: -- Remove the supply for the entity being canceled
4817: cancel_supply(
4818: p_api_version=> 1.0,
4819: p_init_msg_list=>FND_API.G_FALSE,
4820: p_entity_level =>p_entity_level,
4821: p_entity_id =>p_entity_id,
4822: p_doc_id =>p_doc_id,
4823: p_document_type =>p_document_type,
4825: p_recreate_flag =>p_recreate_flag,
4826: x_return_status =>x_return_status,
4827: x_msg_data =>x_msg_data);
4828:
4829: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4830: RAISE FND_API.g_exc_error;
4831: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4832: RAISE FND_API.g_exc_unexpected_error;
4833: END IF;
4826: x_return_status =>x_return_status,
4827: x_msg_data =>x_msg_data);
4828:
4829: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4830: RAISE FND_API.g_exc_error;
4831: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4832: RAISE FND_API.g_exc_unexpected_error;
4833: END IF;
4834:
4827: x_msg_data =>x_msg_data);
4828:
4829: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4830: RAISE FND_API.g_exc_error;
4831: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4832: RAISE FND_API.g_exc_unexpected_error;
4833: END IF;
4834:
4835:
4828:
4829: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4830: RAISE FND_API.g_exc_error;
4831: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4832: RAISE FND_API.g_exc_unexpected_error;
4833: END IF;
4834:
4835:
4836: l_progress := '003';
4837:
4838: -- Cancel corresponding tax lines
4839: cancel_tax_lines(
4840: p_api_version=> 1.0,
4841: p_init_msg_list=>FND_API.G_FALSE,
4842: p_entity_level =>p_entity_level,
4843: p_entity_id =>p_entity_id,
4844: p_doc_id =>p_doc_id,
4845: p_document_type =>p_document_type,
4847: x_return_status =>x_return_status,
4848: x_msg_data =>x_msg_data);
4849:
4850:
4851: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4852: RAISE FND_API.g_exc_error;
4853: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4854: RAISE FND_API.g_exc_unexpected_error;
4855: END IF;
4848: x_msg_data =>x_msg_data);
4849:
4850:
4851: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4852: RAISE FND_API.g_exc_error;
4853: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4854: RAISE FND_API.g_exc_unexpected_error;
4855: END IF;
4856:
4849:
4850:
4851: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4852: RAISE FND_API.g_exc_error;
4853: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4854: RAISE FND_API.g_exc_unexpected_error;
4855: END IF;
4856:
4857: l_progress := '004';
4850:
4851: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4852: RAISE FND_API.g_exc_error;
4853: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4854: RAISE FND_API.g_exc_unexpected_error;
4855: END IF;
4856:
4857: l_progress := '004';
4858:
4859: -- As document is being canceled, cancel any pending Change Request on the PO /PO Shipment and
4860: -- also any pending requester change request for the underlying req
4861: cancel_pending_change_request(
4862: p_api_version=> 1.0,
4863: p_init_msg_list=>FND_API.G_FALSE,
4864: p_entity_level =>p_entity_level,
4865: p_entity_id =>p_entity_id,
4866: p_doc_id =>p_doc_id,
4867: p_document_type =>p_document_type,
4871: x_return_status =>x_return_status,
4872: x_msg_data =>x_msg_data);
4873:
4874:
4875: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4876: RAISE FND_API.g_exc_error;
4877: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4878: RAISE FND_API.g_exc_unexpected_error;
4879: END IF;
4872: x_msg_data =>x_msg_data);
4873:
4874:
4875: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4876: RAISE FND_API.g_exc_error;
4877: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4878: RAISE FND_API.g_exc_unexpected_error;
4879: END IF;
4880:
4873:
4874:
4875: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4876: RAISE FND_API.g_exc_error;
4877: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4878: RAISE FND_API.g_exc_unexpected_error;
4879: END IF;
4880:
4881: EXCEPTION
4874:
4875: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4876: RAISE FND_API.g_exc_error;
4877: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4878: RAISE FND_API.g_exc_unexpected_error;
4879: END IF;
4880:
4881: EXCEPTION
4882: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4878: RAISE FND_API.g_exc_unexpected_error;
4879: END IF;
4880:
4881: EXCEPTION
4882: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4883: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4884: P_ENCODED => 'F');
4885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4886: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4881: EXCEPTION
4882: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4883: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4884: P_ENCODED => 'F');
4885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4886: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4887:
4888: WHEN FND_API.G_EXC_ERROR THEN
4889: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4884: P_ENCODED => 'F');
4885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4886: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4887:
4888: WHEN FND_API.G_EXC_ERROR THEN
4889: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4890: P_ENCODED => 'F');
4891: x_return_status := FND_API.G_RET_STS_ERROR;
4892: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4887:
4888: WHEN FND_API.G_EXC_ERROR THEN
4889: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4890: P_ENCODED => 'F');
4891: x_return_status := FND_API.G_RET_STS_ERROR;
4892: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4893:
4894:
4895: WHEN OTHERS THEN
4898: END IF;
4899: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
4900: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
4901: P_ENCODED => 'F');
4902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4903:
4904:
4905:
4906: END update_req_po_after_fc;
4930: --IN OUT :
4931: --OUT :
4932: -- x_msg_data
4933: -- x_return_status
4934: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4935: -- FND_API.G_RET_STS_ERROR if cancel action fails
4936: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4937: --
4938: --End of Comments
4931: --OUT :
4932: -- x_msg_data
4933: -- x_return_status
4934: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4935: -- FND_API.G_RET_STS_ERROR if cancel action fails
4936: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4937: --
4938: --End of Comments
4939: --------------------------------------------------------------------------------
4932: -- x_msg_data
4933: -- x_return_status
4934: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4935: -- FND_API.G_RET_STS_ERROR if cancel action fails
4936: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4937: --
4938: --End of Comments
4939: --------------------------------------------------------------------------------
4940:
4968:
4969:
4970: BEGIN
4971: -- Start standard API initialization
4972: IF FND_API.to_boolean(p_init_msg_list) THEN
4973: FND_MSG_PUB.initialize;
4974: END IF;
4975:
4976: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4972: IF FND_API.to_boolean(p_init_msg_list) THEN
4973: FND_MSG_PUB.initialize;
4974: END IF;
4975:
4976: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4977: d_api_name, g_pkg_name) THEN
4978: RAISE FND_API.g_exc_unexpected_error;
4979: END IF;
4980:
4974: END IF;
4975:
4976: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4977: d_api_name, g_pkg_name) THEN
4978: RAISE FND_API.g_exc_unexpected_error;
4979: END IF;
4980:
4981:
4982: x_return_status := FND_API.G_RET_STS_SUCCESS;
4978: RAISE FND_API.g_exc_unexpected_error;
4979: END IF;
4980:
4981:
4982: x_return_status := FND_API.G_RET_STS_SUCCESS;
4983: x_msg_data := NULL;
4984:
4985: IF g_debug_stmt THEN
4986: PO_DEBUG.debug_begin(d_module);
5002:
5003: -- Update the cancel details on document before funds control call (unencumbering the document)
5004: update_document(
5005: p_api_version=> 1.0,
5006: p_init_msg_list=>FND_API.G_FALSE,
5007: p_entity_level =>p_entity_level,
5008: p_action_date =>p_action_date,
5009: p_entity_id =>p_entity_id,
5010: p_document_type =>p_document_type,
5017: p_login_id => p_login_id,
5018: x_return_status =>x_return_status,
5019: x_msg_data =>x_msg_data);
5020:
5021: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5022: RAISE FND_API.g_exc_error;
5023: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5024: RAISE FND_API.g_exc_unexpected_error;
5025: END IF;
5018: x_return_status =>x_return_status,
5019: x_msg_data =>x_msg_data);
5020:
5021: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5022: RAISE FND_API.g_exc_error;
5023: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5024: RAISE FND_API.g_exc_unexpected_error;
5025: END IF;
5026:
5019: x_msg_data =>x_msg_data);
5020:
5021: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5022: RAISE FND_API.g_exc_error;
5023: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5024: RAISE FND_API.g_exc_unexpected_error;
5025: END IF;
5026:
5027: l_progress := '003' ;
5020:
5021: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5022: RAISE FND_API.g_exc_error;
5023: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5024: RAISE FND_API.g_exc_unexpected_error;
5025: END IF;
5026:
5027: l_progress := '003' ;
5028:
5028:
5029: -- Update the backing requisitions accordingly before funds control call (unencumbering the document)
5030: update_requisitions(
5031: p_api_version=> 1.0,
5032: p_init_msg_list=>FND_API.G_FALSE,
5033: p_entity_level =>p_entity_level,
5034: p_action_date =>p_action_date,
5035: p_entity_id =>p_entity_id,
5036: p_document_type =>p_document_type,
5045: x_return_status =>x_return_status,
5046: x_msg_data =>x_msg_data,
5047: x_req_line_id_tbl =>l_req_line_id_tbl);
5048:
5049: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5050: RAISE FND_API.g_exc_error;
5051: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5052: RAISE FND_API.g_exc_unexpected_error;
5053: END IF;
5046: x_msg_data =>x_msg_data,
5047: x_req_line_id_tbl =>l_req_line_id_tbl);
5048:
5049: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5050: RAISE FND_API.g_exc_error;
5051: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5052: RAISE FND_API.g_exc_unexpected_error;
5053: END IF;
5054:
5047: x_req_line_id_tbl =>l_req_line_id_tbl);
5048:
5049: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5050: RAISE FND_API.g_exc_error;
5051: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5052: RAISE FND_API.g_exc_unexpected_error;
5053: END IF;
5054:
5055: EXCEPTION
5048:
5049: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5050: RAISE FND_API.g_exc_error;
5051: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5052: RAISE FND_API.g_exc_unexpected_error;
5053: END IF;
5054:
5055: EXCEPTION
5056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5052: RAISE FND_API.g_exc_unexpected_error;
5053: END IF;
5054:
5055: EXCEPTION
5056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5057: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5058: P_ENCODED => 'F');
5059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5060: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5055: EXCEPTION
5056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5057: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5058: P_ENCODED => 'F');
5059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5060: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5061:
5062: WHEN FND_API.G_EXC_ERROR THEN
5063: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5058: P_ENCODED => 'F');
5059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5060: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5061:
5062: WHEN FND_API.G_EXC_ERROR THEN
5063: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5064: P_ENCODED => 'F');
5065: x_return_status := FND_API.G_RET_STS_ERROR;
5066: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5061:
5062: WHEN FND_API.G_EXC_ERROR THEN
5063: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5064: P_ENCODED => 'F');
5065: x_return_status := FND_API.G_RET_STS_ERROR;
5066: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5067:
5068: WHEN OTHERS THEN
5069: IF (G_DEBUG_UNEXP) THEN
5071: END IF;
5072:
5073: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5074: P_ENCODED => 'F');
5075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5076: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5077:
5078:
5079: END update_req_po_before_fc;
5102: --IN OUT :
5103: --OUT :
5104: -- x_msg_data
5105: -- x_return_status
5106: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5107: -- FND_API.G_RET_STS_ERROR if cancel action fails
5108: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5109: --
5110: --End of Comments
5103: --OUT :
5104: -- x_msg_data
5105: -- x_return_status
5106: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5107: -- FND_API.G_RET_STS_ERROR if cancel action fails
5108: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5109: --
5110: --End of Comments
5111: --------------------------------------------------------------------------------
5104: -- x_msg_data
5105: -- x_return_status
5106: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5107: -- FND_API.G_RET_STS_ERROR if cancel action fails
5108: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5109: --
5110: --End of Comments
5111: --------------------------------------------------------------------------------
5112: PROCEDURE approve_entity(
5132:
5133:
5134: BEGIN
5135: -- Start standard API initialization
5136: IF FND_API.to_boolean(p_init_msg_list) THEN
5137: FND_MSG_PUB.initialize;
5138: END IF;
5139:
5140: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5136: IF FND_API.to_boolean(p_init_msg_list) THEN
5137: FND_MSG_PUB.initialize;
5138: END IF;
5139:
5140: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5141: d_api_name, g_pkg_name) THEN
5142: RAISE FND_API.g_exc_unexpected_error;
5143: END IF;
5144:
5138: END IF;
5139:
5140: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5141: d_api_name, g_pkg_name) THEN
5142: RAISE FND_API.g_exc_unexpected_error;
5143: END IF;
5144:
5145:
5146: x_return_status := FND_API.G_RET_STS_SUCCESS;
5142: RAISE FND_API.g_exc_unexpected_error;
5143: END IF;
5144:
5145:
5146: x_return_status := FND_API.G_RET_STS_SUCCESS;
5147: x_msg_data := NULL;
5148:
5149: IF g_debug_stmt THEN
5150: PO_DEBUG.debug_begin(d_module);
5185: x_return_status => x_return_status
5186: );
5187:
5188:
5189: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5190: RAISE FND_API.g_exc_error;
5191: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5192: RAISE FND_API.g_exc_unexpected_error;
5193: END IF;
5186: );
5187:
5188:
5189: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5190: RAISE FND_API.g_exc_error;
5191: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5192: RAISE FND_API.g_exc_unexpected_error;
5193: END IF;
5194:
5187:
5188:
5189: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5190: RAISE FND_API.g_exc_error;
5191: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5192: RAISE FND_API.g_exc_unexpected_error;
5193: END IF;
5194:
5195: ELSE
5188:
5189: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5190: RAISE FND_API.g_exc_error;
5191: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5192: RAISE FND_API.g_exc_unexpected_error;
5193: END IF;
5194:
5195: ELSE
5196: -- If the document Line/Shipment is Canceled then approve the corresponding shipemnts
5210:
5211: END IF;
5212:
5213: EXCEPTION
5214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5215: x_msg_data := FND_MSG_PUB.GET(
5216: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5217: P_ENCODED => 'F');
5218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5215: x_msg_data := FND_MSG_PUB.GET(
5216: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5217: P_ENCODED => 'F');
5218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5219: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5220:
5221:
5222: WHEN FND_API.G_EXC_ERROR THEN
5218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5219: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5220:
5221:
5222: WHEN FND_API.G_EXC_ERROR THEN
5223: x_msg_data := FND_MSG_PUB.GET(
5224: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5225: P_ENCODED => 'F');
5226: x_return_status := FND_API.G_RET_STS_ERROR;
5222: WHEN FND_API.G_EXC_ERROR THEN
5223: x_msg_data := FND_MSG_PUB.GET(
5224: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5225: P_ENCODED => 'F');
5226: x_return_status := FND_API.G_RET_STS_ERROR;
5227: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5228:
5229: WHEN OTHERS THEN
5230: IF (g_debug_unexp) THEN
5236: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5237: x_msg_data := FND_MSG_PUB.GET(
5238: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5239: P_ENCODED => 'F');
5240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5241:
5242:
5243:
5244: END approve_entity;
5276: --IN OUT :
5277: --OUT :
5278: -- x_msg_data
5279: -- x_return_status
5280: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5281: -- FND_API.G_RET_STS_ERROR if cancel action fails
5282: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5283: --
5284: --End of Comments
5277: --OUT :
5278: -- x_msg_data
5279: -- x_return_status
5280: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5281: -- FND_API.G_RET_STS_ERROR if cancel action fails
5282: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5283: --
5284: --End of Comments
5285: --------------------------------------------------------------------------------
5278: -- x_msg_data
5279: -- x_return_status
5280: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5281: -- FND_API.G_RET_STS_ERROR if cancel action fails
5282: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5283: --
5284: --End of Comments
5285: --------------------------------------------------------------------------------
5286: PROCEDURE update_po_rev_archive(
5318:
5319:
5320: BEGIN
5321: -- Start standard API initialization
5322: IF FND_API.to_boolean(p_init_msg_list) THEN
5323: FND_MSG_PUB.initialize;
5324: END IF;
5325:
5326: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5322: IF FND_API.to_boolean(p_init_msg_list) THEN
5323: FND_MSG_PUB.initialize;
5324: END IF;
5325:
5326: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5327: d_api_name, g_pkg_name) THEN
5328: RAISE FND_API.g_exc_unexpected_error;
5329: END IF;
5330:
5324: END IF;
5325:
5326: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5327: d_api_name, g_pkg_name) THEN
5328: RAISE FND_API.g_exc_unexpected_error;
5329: END IF;
5330:
5331:
5332: x_return_status := FND_API.G_RET_STS_SUCCESS;
5328: RAISE FND_API.g_exc_unexpected_error;
5329: END IF;
5330:
5331:
5332: x_return_status := FND_API.G_RET_STS_SUCCESS;
5333: x_msg_data := NULL;
5334:
5335: IF g_debug_stmt THEN
5336: PO_DEBUG.debug_begin(d_module);
5435: -- Set the entity to approved status.
5436: IF l_auth_status <> PO_DOCUMENT_ACTION_PVT.g_doc_status_APPROVED THEN
5437: approve_entity(
5438: p_api_version=> 1.0,
5439: p_init_msg_list=>FND_API.G_FALSE,
5440: p_entity_level => p_entity_level,
5441: p_entity_id => p_entity_id,
5442: p_document_type => p_document_type,
5443: p_doc_subtype => p_doc_subtype,
5446: x_msg_data => x_msg_data);
5447:
5448: END IF;
5449:
5450: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5451: RAISE FND_API.g_exc_error;
5452: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5453: RAISE FND_API.g_exc_unexpected_error;
5454: END IF;
5447:
5448: END IF;
5449:
5450: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5451: RAISE FND_API.g_exc_error;
5452: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5453: RAISE FND_API.g_exc_unexpected_error;
5454: END IF;
5455:
5448: END IF;
5449:
5450: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5451: RAISE FND_API.g_exc_error;
5452: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5453: RAISE FND_API.g_exc_unexpected_error;
5454: END IF;
5455:
5456:
5449:
5450: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5451: RAISE FND_API.g_exc_error;
5452: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5453: RAISE FND_API.g_exc_unexpected_error;
5454: END IF;
5455:
5456:
5457:
5511: x_return_status => x_return_status,
5512: x_msg_count => l_msg_count,
5513: x_msg_data => x_msg_data);
5514:
5515: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5516: RAISE FND_API.g_exc_error;
5517: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5518: RAISE FND_API.g_exc_unexpected_error;
5519: END IF;
5512: x_msg_count => l_msg_count,
5513: x_msg_data => x_msg_data);
5514:
5515: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5516: RAISE FND_API.g_exc_error;
5517: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5518: RAISE FND_API.g_exc_unexpected_error;
5519: END IF;
5520:
5513: x_msg_data => x_msg_data);
5514:
5515: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5516: RAISE FND_API.g_exc_error;
5517: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5518: RAISE FND_API.g_exc_unexpected_error;
5519: END IF;
5520:
5521: l_progress := '007';
5514:
5515: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5516: RAISE FND_API.g_exc_error;
5517: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5518: RAISE FND_API.g_exc_unexpected_error;
5519: END IF;
5520:
5521: l_progress := '007';
5522:
5575:
5576: END IF; -- IF p_entity_level = c_entity_level_HEADER
5577:
5578: EXCEPTION
5579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5580: x_msg_data := FND_MSG_PUB.GET(
5581: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5582: P_ENCODED => 'F');
5583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5580: x_msg_data := FND_MSG_PUB.GET(
5581: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5582: P_ENCODED => 'F');
5583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5584: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5585:
5586: WHEN FND_API.G_EXC_ERROR THEN
5587: x_msg_data := FND_MSG_PUB.GET(
5582: P_ENCODED => 'F');
5583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5584: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5585:
5586: WHEN FND_API.G_EXC_ERROR THEN
5587: x_msg_data := FND_MSG_PUB.GET(
5588: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5589: P_ENCODED => 'F');
5590: x_return_status := FND_API.G_RET_STS_ERROR;
5586: WHEN FND_API.G_EXC_ERROR THEN
5587: x_msg_data := FND_MSG_PUB.GET(
5588: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5589: P_ENCODED => 'F');
5590: x_return_status := FND_API.G_RET_STS_ERROR;
5591: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5592: WHEN OTHERS THEN
5593: IF (g_debug_unexp) THEN
5594: FND_LOG.STRING(
5598: END IF;
5599: x_msg_data := FND_MSG_PUB.GET(
5600: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5601: P_ENCODED => 'F');
5602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5603: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5604:
5605: END update_po_rev_archive;
5606:
5630: --IN OUT :
5631: --OUT :
5632: -- x_msg_data
5633: -- x_return_status
5634: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5635: -- FND_API.G_RET_STS_ERROR if cancel action fails
5636: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5637: --
5638: --End of Comments
5631: --OUT :
5632: -- x_msg_data
5633: -- x_return_status
5634: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5635: -- FND_API.G_RET_STS_ERROR if cancel action fails
5636: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5637: --
5638: --End of Comments
5639: --------------------------------------------------------------------------------
5632: -- x_msg_data
5633: -- x_return_status
5634: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5635: -- FND_API.G_RET_STS_ERROR if cancel action fails
5636: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5637: --
5638: --End of Comments
5639: --------------------------------------------------------------------------------
5640: PROCEDURE update_closed_code(
5662:
5663:
5664: BEGIN
5665: -- Start standard API initialization
5666: IF FND_API.to_boolean(p_init_msg_list) THEN
5667: FND_MSG_PUB.initialize;
5668: END IF;
5669:
5670: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5666: IF FND_API.to_boolean(p_init_msg_list) THEN
5667: FND_MSG_PUB.initialize;
5668: END IF;
5669:
5670: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5671: d_api_name, g_pkg_name) THEN
5672: RAISE FND_API.g_exc_unexpected_error;
5673: END IF;
5674:
5668: END IF;
5669:
5670: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5671: d_api_name, g_pkg_name) THEN
5672: RAISE FND_API.g_exc_unexpected_error;
5673: END IF;
5674:
5675:
5676: x_return_status := FND_API.G_RET_STS_SUCCESS;
5672: RAISE FND_API.g_exc_unexpected_error;
5673: END IF;
5674:
5675:
5676: x_return_status := FND_API.G_RET_STS_SUCCESS;
5677: x_msg_data := NULL;
5678:
5679: IF g_debug_stmt THEN
5680: PO_DEBUG.debug_begin(d_module);
5712: x_return_status => x_return_status,
5713: x_return_code => l_return_code,
5714: x_exception_msg => x_msg_data );
5715:
5716: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5717: RAISE FND_API.g_exc_error;
5718: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5719: RAISE FND_API.g_exc_unexpected_error;
5720: END IF;
5713: x_return_code => l_return_code,
5714: x_exception_msg => x_msg_data );
5715:
5716: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5717: RAISE FND_API.g_exc_error;
5718: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5719: RAISE FND_API.g_exc_unexpected_error;
5720: END IF;
5721:
5714: x_exception_msg => x_msg_data );
5715:
5716: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5717: RAISE FND_API.g_exc_error;
5718: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5719: RAISE FND_API.g_exc_unexpected_error;
5720: END IF;
5721:
5722:
5715:
5716: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5717: RAISE FND_API.g_exc_error;
5718: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5719: RAISE FND_API.g_exc_unexpected_error;
5720: END IF;
5721:
5722:
5723:
5721:
5722:
5723:
5724: EXCEPTION
5725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5726: x_msg_data := FND_MSG_PUB.GET(
5727: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5728: P_ENCODED => 'F');
5729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5726: x_msg_data := FND_MSG_PUB.GET(
5727: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5728: P_ENCODED => 'F');
5729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5730:
5731: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5732:
5733: WHEN FND_API.G_EXC_ERROR THEN
5729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5730:
5731: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5732:
5733: WHEN FND_API.G_EXC_ERROR THEN
5734: x_msg_data := FND_MSG_PUB.GET(
5735: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5736: P_ENCODED => 'F');
5737: x_return_status := FND_API.G_RET_STS_ERROR;
5733: WHEN FND_API.G_EXC_ERROR THEN
5734: x_msg_data := FND_MSG_PUB.GET(
5735: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5736: P_ENCODED => 'F');
5737: x_return_status := FND_API.G_RET_STS_ERROR;
5738: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5739:
5740:
5741: WHEN OTHERS THEN
5747: END IF;
5748: x_msg_data := FND_MSG_PUB.GET(
5749: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
5750: P_ENCODED => 'F');
5751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5752: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5753: END update_closed_code;
5754:
5755: --------------------------------------------------------------------------------
5771: --IN OUT :
5772: --OUT :
5773: -- x_msg_data
5774: -- x_return_status -
5775: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5776: -- FND_API.G_RET_STS_ERROR if cancel action fails
5777: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5778: --
5779: --End of Comments
5772: --OUT :
5773: -- x_msg_data
5774: -- x_return_status -
5775: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5776: -- FND_API.G_RET_STS_ERROR if cancel action fails
5777: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5778: --
5779: --End of Comments
5780: --------------------------------------------------------------------------------
5773: -- x_msg_data
5774: -- x_return_status -
5775: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
5776: -- FND_API.G_RET_STS_ERROR if cancel action fails
5777: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5778: --
5779: --End of Comments
5780: --------------------------------------------------------------------------------
5781: PROCEDURE process_cancel_action(
5805: l_online_report_id NUMBER;
5806:
5807: BEGIN
5808: -- Start standard API initialization
5809: IF FND_API.to_boolean(p_init_msg_list) THEN
5810: FND_MSG_PUB.initialize;
5811: END IF;
5812:
5813: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5809: IF FND_API.to_boolean(p_init_msg_list) THEN
5810: FND_MSG_PUB.initialize;
5811: END IF;
5812:
5813: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5814: d_api_name, g_pkg_name) THEN
5815: RAISE FND_API.g_exc_unexpected_error;
5816: END IF;
5817:
5811: END IF;
5812:
5813: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
5814: d_api_name, g_pkg_name) THEN
5815: RAISE FND_API.g_exc_unexpected_error;
5816: END IF;
5817:
5818:
5819: x_return_status := FND_API.G_RET_STS_SUCCESS;
5815: RAISE FND_API.g_exc_unexpected_error;
5816: END IF;
5817:
5818:
5819: x_return_status := FND_API.G_RET_STS_SUCCESS;
5820: x_msg_data := NULL;
5821:
5822: IF g_debug_stmt THEN
5823: PO_DEBUG.debug_begin(d_module);
5868: -- document and backing req
5869: --If recreate_demand is ON, create the new distributions and lines
5870: update_req_po_before_fc(
5871: p_api_version=> 1.0,
5872: p_init_msg_list=>FND_API.G_FALSE,
5873: p_entity_level =>l_entity_rec_tbl(i).entity_level,
5874: p_action_date =>l_entity_rec_tbl(i).entity_action_date,
5875: p_entity_id =>l_entity_rec_tbl(i).entity_id,
5876: p_document_type =>l_entity_rec_tbl(i).document_type,
5884: p_login_id => p_login_id,
5885: x_return_status =>x_return_status,
5886: x_msg_data =>x_msg_data);
5887:
5888: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5889: RAISE FND_API.g_exc_error;
5890: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5891: RAISE FND_API.g_exc_unexpected_error;
5892: END IF;
5885: x_return_status =>x_return_status,
5886: x_msg_data =>x_msg_data);
5887:
5888: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5889: RAISE FND_API.g_exc_error;
5890: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5891: RAISE FND_API.g_exc_unexpected_error;
5892: END IF;
5893:
5886: x_msg_data =>x_msg_data);
5887:
5888: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5889: RAISE FND_API.g_exc_error;
5890: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5891: RAISE FND_API.g_exc_unexpected_error;
5892: END IF;
5893:
5894: IF g_debug_stmt THEN
5887:
5888: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5889: RAISE FND_API.g_exc_error;
5890: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5891: RAISE FND_API.g_exc_unexpected_error;
5892: END IF;
5893:
5894: IF g_debug_stmt THEN
5895: PO_DEBUG.debug_var(d_module, l_progress, 'l_is_new_req_line', l_is_new_req_line);
5924: WHEN No_Data_Found THEN
5925: l_enc_req_flag:='N';
5926:
5927: WHEN OTHERS THEN
5928: RAISE FND_API.g_exc_unexpected_error;
5929: END;
5930: --Document is not a Purchase Agreement, and PO enc is turned on
5931: -- Bug 15983778: Instead of po encumbrance flag req enc flag was checked.
5932: ELSIF(l_entity_rec_tbl(i).document_type <> c_doc_type_PA
5965: x_po_return_code => l_po_return_code,
5966: x_online_report_id => l_online_report_id);
5967:
5968:
5969: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5970: RAISE FND_API.g_exc_error;
5971: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5972: RAISE FND_API.g_exc_unexpected_error;
5973: END IF;
5966: x_online_report_id => l_online_report_id);
5967:
5968:
5969: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5970: RAISE FND_API.g_exc_error;
5971: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5972: RAISE FND_API.g_exc_unexpected_error;
5973: END IF;
5974:
5967:
5968:
5969: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5970: RAISE FND_API.g_exc_error;
5971: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5972: RAISE FND_API.g_exc_unexpected_error;
5973: END IF;
5974:
5975: -- bug 14766811
5968:
5969: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5970: RAISE FND_API.g_exc_error;
5971: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5972: RAISE FND_API.g_exc_unexpected_error;
5973: END IF;
5974:
5975: -- bug 14766811
5976: -- Resetting the value of entity level back to original as this is used by other flows.
5987: -- line_location_id column to Null.
5988:
5989: update_req_po_after_fc(
5990: p_api_version=> 1.0,
5991: p_init_msg_list=>FND_API.G_FALSE,
5992: p_entity_level =>l_entity_rec_tbl(i).entity_level,
5993: p_action_date =>l_entity_rec_tbl(i).entity_action_date,
5994: p_entity_id =>l_entity_rec_tbl(i).entity_id,
5995: p_doc_id =>l_entity_rec_tbl(i).doc_id,
6006: x_return_status =>x_return_status,
6007: x_msg_data =>x_msg_data);
6008:
6009:
6010: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6011: RAISE FND_API.g_exc_error;
6012: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6013: RAISE FND_API.g_exc_unexpected_error;
6014: END IF;
6007: x_msg_data =>x_msg_data);
6008:
6009:
6010: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6011: RAISE FND_API.g_exc_error;
6012: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6013: RAISE FND_API.g_exc_unexpected_error;
6014: END IF;
6015:
6008:
6009:
6010: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6011: RAISE FND_API.g_exc_error;
6012: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6013: RAISE FND_API.g_exc_unexpected_error;
6014: END IF;
6015:
6016: l_progress := '007' ;
6009:
6010: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6011: RAISE FND_API.g_exc_error;
6012: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6013: RAISE FND_API.g_exc_unexpected_error;
6014: END IF;
6015:
6016: l_progress := '007' ;
6017:
6029: -- After successful update of the relavant columns of the document,
6030: -- update the closed code on the document
6031: update_closed_code(
6032: p_api_version=> 1.0,
6033: p_init_msg_list=>FND_API.G_FALSE,
6034: p_entity_level =>c_entity_level_HEADER,
6035: p_entity_id =>l_entity_rec_tbl(i).doc_id,
6036: p_doc_id => l_entity_rec_tbl(i).doc_id,
6037: p_document_type =>l_entity_rec_tbl(i).document_type,
6040: p_login_id => p_login_id,
6041: x_return_status =>x_return_status,
6042: x_msg_data =>x_msg_data);
6043:
6044: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6045: RAISE FND_API.g_exc_error;
6046: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6047: RAISE FND_API.g_exc_unexpected_error;
6048: END IF;
6041: x_return_status =>x_return_status,
6042: x_msg_data =>x_msg_data);
6043:
6044: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6045: RAISE FND_API.g_exc_error;
6046: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6047: RAISE FND_API.g_exc_unexpected_error;
6048: END IF;
6049:
6042: x_msg_data =>x_msg_data);
6043:
6044: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6045: RAISE FND_API.g_exc_error;
6046: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6047: RAISE FND_API.g_exc_unexpected_error;
6048: END IF;
6049:
6050: END IF;
6043:
6044: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6045: RAISE FND_API.g_exc_error;
6046: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6047: RAISE FND_API.g_exc_unexpected_error;
6048: END IF;
6049:
6050: END IF;
6051:
6055: -- Routine to update the PO revision, and archive the PO
6056: -- Update the po action history table
6057: update_po_rev_archive(
6058: p_api_version=> 1.0,
6059: p_init_msg_list=>FND_API.G_FALSE,
6060: p_entity_level =>l_entity_rec_tbl(i).entity_level,
6061: p_entity_id =>l_entity_rec_tbl(i).entity_id,
6062: p_doc_id => l_entity_rec_tbl(i).doc_id,
6063: p_document_type =>l_entity_rec_tbl(i).document_type,
6071: x_msg_data =>x_msg_data);
6072:
6073:
6074:
6075: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6076: RAISE FND_API.g_exc_error;
6077: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6078: RAISE FND_API.g_exc_unexpected_error;
6079: END IF;
6072:
6073:
6074:
6075: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6076: RAISE FND_API.g_exc_error;
6077: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6078: RAISE FND_API.g_exc_unexpected_error;
6079: END IF;
6080:
6073:
6074:
6075: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6076: RAISE FND_API.g_exc_error;
6077: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6078: RAISE FND_API.g_exc_unexpected_error;
6079: END IF;
6080:
6081:
6074:
6075: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6076: RAISE FND_API.g_exc_error;
6077: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6078: RAISE FND_API.g_exc_unexpected_error;
6079: END IF;
6080:
6081:
6082: END IF; --if process_entity_flag='Y' \
6081:
6082: END IF; --if process_entity_flag='Y' \
6083:
6084: EXCEPTION
6085: WHEN FND_API.g_exc_error THEN
6086: ROLLBACK TO process_cancel_action_SP;
6087: x_return_status := FND_API.g_ret_sts_error;
6088: IF (g_debug_unexp) THEN
6089: FND_LOG.STRING(
6083:
6084: EXCEPTION
6085: WHEN FND_API.g_exc_error THEN
6086: ROLLBACK TO process_cancel_action_SP;
6087: x_return_status := FND_API.g_ret_sts_error;
6088: IF (g_debug_unexp) THEN
6089: FND_LOG.STRING(
6090: FND_LOG.LEVEL_UNEXPECTED,
6091: d_module || '.Error',
6090: FND_LOG.LEVEL_UNEXPECTED,
6091: d_module || '.Error',
6092: 'Error: LOCATION IS '|| l_progress || ' SQL CODE IS '||SQLCODE);
6093: END IF;
6094: WHEN FND_API.g_exc_unexpected_error THEN
6095: ROLLBACK TO process_cancel_action_SP;
6096: x_return_status := FND_API.g_ret_sts_unexp_error;
6097: IF (g_debug_unexp) THEN
6098: FND_LOG.STRING(
6092: 'Error: LOCATION IS '|| l_progress || ' SQL CODE IS '||SQLCODE);
6093: END IF;
6094: WHEN FND_API.g_exc_unexpected_error THEN
6095: ROLLBACK TO process_cancel_action_SP;
6096: x_return_status := FND_API.g_ret_sts_unexp_error;
6097: IF (g_debug_unexp) THEN
6098: FND_LOG.STRING(
6099: FND_LOG.LEVEL_UNEXPECTED,
6100: d_module || '.UnExpected',
6102: END IF;
6103:
6104: WHEN OTHERS THEN
6105: ROLLBACK TO process_cancel_action_SP;
6106: x_return_status := FND_API.g_ret_sts_unexp_error;
6107: IF (g_debug_unexp) THEN
6108: FND_LOG.STRING(
6109: FND_LOG.LEVEL_UNEXPECTED,
6110: d_module || '.OTHERS',
6116: END LOOP;
6117:
6118:
6119: EXCEPTION
6120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6121: x_msg_data := FND_MSG_PUB.GET(
6122: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6123: P_ENCODED => 'F');
6124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6121: x_msg_data := FND_MSG_PUB.GET(
6122: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6123: P_ENCODED => 'F');
6124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6125: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6126: WHEN FND_API.G_EXC_ERROR THEN
6127: x_msg_data := FND_MSG_PUB.GET(
6128: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6122: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6123: P_ENCODED => 'F');
6124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6125: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6126: WHEN FND_API.G_EXC_ERROR THEN
6127: x_msg_data := FND_MSG_PUB.GET(
6128: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6129: P_ENCODED => 'F');
6130: x_return_status := FND_API.G_RET_STS_ERROR;
6126: WHEN FND_API.G_EXC_ERROR THEN
6127: x_msg_data := FND_MSG_PUB.GET(
6128: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6129: P_ENCODED => 'F');
6130: x_return_status := FND_API.G_RET_STS_ERROR;
6131: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6132: WHEN OTHERS THEN
6133: IF (g_debug_unexp) THEN
6134: FND_LOG.STRING(
6138: END IF;
6139: x_msg_data := FND_MSG_PUB.GET(
6140: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6141: P_ENCODED => 'F');
6142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6143: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6144:
6145: END process_cancel_action;
6146:
6167: --OUT :
6168: -- x_key
6169: -- x_msg_data
6170: -- x_return_status
6171: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
6172: -- FND_API.G_RET_STS_ERROR if cancel action fails
6173: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6174: --
6175: --End of Comments
6168: -- x_key
6169: -- x_msg_data
6170: -- x_return_status
6171: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
6172: -- FND_API.G_RET_STS_ERROR if cancel action fails
6173: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6174: --
6175: --End of Comments
6176: --------------------------------------------------------------------------------
6169: -- x_msg_data
6170: -- x_return_status
6171: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
6172: -- FND_API.G_RET_STS_ERROR if cancel action fails
6173: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6174: --
6175: --End of Comments
6176: --------------------------------------------------------------------------------
6177: PROCEDURE insrtEntityRecInSessiongt(
6190: l_progress VARCHAR2(3) := '000' ;
6191:
6192: BEGIN
6193: -- Start standard API initialization
6194: IF FND_API.to_boolean(p_init_msg_list) THEN
6195: FND_MSG_PUB.initialize;
6196: END IF;
6197:
6198: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
6194: IF FND_API.to_boolean(p_init_msg_list) THEN
6195: FND_MSG_PUB.initialize;
6196: END IF;
6197:
6198: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
6199: d_api_name, g_pkg_name) THEN
6200: RAISE FND_API.g_exc_unexpected_error;
6201: END IF;
6202:
6196: END IF;
6197:
6198: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
6199: d_api_name, g_pkg_name) THEN
6200: RAISE FND_API.g_exc_unexpected_error;
6201: END IF;
6202:
6203: x_return_status := FND_API.G_RET_STS_SUCCESS;
6204: x_msg_data := NULL;
6199: d_api_name, g_pkg_name) THEN
6200: RAISE FND_API.g_exc_unexpected_error;
6201: END IF;
6202:
6203: x_return_status := FND_API.G_RET_STS_SUCCESS;
6204: x_msg_data := NULL;
6205:
6206: IF g_debug_stmt THEN
6207: PO_DEBUG.debug_begin(d_module);
6239:
6240:
6241: END LOOP;
6242: EXCEPTION
6243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6244: x_msg_data := FND_MSG_PUB.GET(
6245: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6246: P_ENCODED => 'F');
6247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6244: x_msg_data := FND_MSG_PUB.GET(
6245: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6246: P_ENCODED => 'F');
6247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6248: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6249:
6250: WHEN FND_API.G_EXC_ERROR THEN
6251: x_msg_data := FND_MSG_PUB.GET(
6246: P_ENCODED => 'F');
6247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6248: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6249:
6250: WHEN FND_API.G_EXC_ERROR THEN
6251: x_msg_data := FND_MSG_PUB.GET(
6252: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6253: P_ENCODED => 'F');
6254: x_return_status := FND_API.G_RET_STS_ERROR;
6250: WHEN FND_API.G_EXC_ERROR THEN
6251: x_msg_data := FND_MSG_PUB.GET(
6252: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6253: P_ENCODED => 'F');
6254: x_return_status := FND_API.G_RET_STS_ERROR;
6255: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6256:
6257: WHEN OTHERS THEN
6258: IF (G_DEBUG_UNEXP) THEN
6264: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6265: x_msg_data := FND_MSG_PUB.GET(
6266: P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6267: P_ENCODED => 'F');
6268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6269:
6270: END insrtEntityRecInSessiongt;
6271:
6272:
6287: -- Encumbrance is recalculated for cancelled entities if enabled. If the
6288: -- cancel action is successful, the document's cancel and who columns will be
6289: -- updated at the specified entity level. Otherwise, the document will remain
6290: -- unchanged. All changes will be committed upon success if p_commit is
6291: -- FND_API.G_TRUE.
6292:
6293:
6294: --Parameters:
6295: --IN:
6300: --IN OUT :
6301: --OUT :
6302: -- x_msg_data
6303: -- x_return_status
6304: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
6305: -- FND_API.G_RET_STS_ERROR if cancel action fails
6306: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6307: --
6308: --End of Comments
6301: --OUT :
6302: -- x_msg_data
6303: -- x_return_status
6304: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
6305: -- FND_API.G_RET_STS_ERROR if cancel action fails
6306: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6307: --
6308: --End of Comments
6309: --------------------------------------------------------------------------------
6302: -- x_msg_data
6303: -- x_return_status
6304: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
6305: -- FND_API.G_RET_STS_ERROR if cancel action fails
6306: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6307: --
6308: --End of Comments
6309: --------------------------------------------------------------------------------
6310: PROCEDURE cancel_document(
6330:
6331: BEGIN
6332:
6333: -- Start standard API initialization
6334: IF FND_API.to_boolean(p_init_msg_list) THEN
6335: FND_MSG_PUB.initialize;
6336: END IF;
6337:
6338: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
6334: IF FND_API.to_boolean(p_init_msg_list) THEN
6335: FND_MSG_PUB.initialize;
6336: END IF;
6337:
6338: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
6339: d_api_name, g_pkg_name) THEN
6340: RAISE FND_API.g_exc_unexpected_error;
6341: END IF;
6342:
6336: END IF;
6337:
6338: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
6339: d_api_name, g_pkg_name) THEN
6340: RAISE FND_API.g_exc_unexpected_error;
6341: END IF;
6342:
6343: SAVEPOINT cancel_document_PVT;
6344:
6341: END IF;
6342:
6343: SAVEPOINT cancel_document_PVT;
6344:
6345: x_return_status := FND_API.G_RET_STS_SUCCESS;
6346: x_msg_data := NULL ;
6347:
6348: IF g_debug_stmt THEN
6349: PO_DEBUG.debug_begin(d_module);
6357:
6358: -- Insert the entity record into po_session_gt
6359: insrtEntityRecInSessiongt(
6360: p_api_version=> 1.0,
6361: p_init_msg_list=>FND_API.G_FALSE,
6362: p_entity_rec_tbl=>p_da_call_rec.entity_dtl_record_tbl,
6363: x_key =>l_key,
6364: x_return_status =>x_return_status,
6365: x_msg_data =>x_msg_data);
6405: x_return_status =>x_return_status,
6406: x_msg_data =>x_msg_data,
6407: x_return_code=>x_return_code);
6408:
6409: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6410: RAISE FND_API.g_exc_error;
6411: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6412: RAISE FND_API.g_exc_unexpected_error;
6413: END IF;
6406: x_msg_data =>x_msg_data,
6407: x_return_code=>x_return_code);
6408:
6409: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6410: RAISE FND_API.g_exc_error;
6411: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6412: RAISE FND_API.g_exc_unexpected_error;
6413: END IF;
6414:
6407: x_return_code=>x_return_code);
6408:
6409: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6410: RAISE FND_API.g_exc_error;
6411: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6412: RAISE FND_API.g_exc_unexpected_error;
6413: END IF;
6414:
6415: IF g_debug_stmt THEN
6408:
6409: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6410: RAISE FND_API.g_exc_error;
6411: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6412: RAISE FND_API.g_exc_unexpected_error;
6413: END IF;
6414:
6415: IF g_debug_stmt THEN
6416: PO_DEBUG.debug_var(d_module, l_progress, 'online_report_id',
6423: --If PO is a complex PO, the existence of any valid shipment
6424: --Based on Drop shipments with Updateable Sales Order Lines check
6425: init_recreate_demand_flag(
6426: p_api_version=> 1.0,
6427: p_init_msg_list=>FND_API.G_FALSE,
6428: p_cancel_reqs_flag => p_da_call_rec.cancel_reqs_flag,
6429: p_entity_dtl => p_da_call_rec.entity_dtl_record_tbl,
6430: x_return_status => x_return_status,
6431: x_msg_data =>x_msg_data);
6429: p_entity_dtl => p_da_call_rec.entity_dtl_record_tbl,
6430: x_return_status => x_return_status,
6431: x_msg_data =>x_msg_data);
6432:
6433: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6434: RAISE FND_API.g_exc_error;
6435: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6436: RAISE FND_API.g_exc_unexpected_error;
6437: END IF;
6430: x_return_status => x_return_status,
6431: x_msg_data =>x_msg_data);
6432:
6433: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6434: RAISE FND_API.g_exc_error;
6435: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6436: RAISE FND_API.g_exc_unexpected_error;
6437: END IF;
6438:
6431: x_msg_data =>x_msg_data);
6432:
6433: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6434: RAISE FND_API.g_exc_error;
6435: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6436: RAISE FND_API.g_exc_unexpected_error;
6437: END IF;
6438:
6439: l_progress := '003';
6432:
6433: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6434: RAISE FND_API.g_exc_error;
6435: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6436: RAISE FND_API.g_exc_unexpected_error;
6437: END IF;
6438:
6439: l_progress := '003';
6440:
6442: -- Planned Po shipemnts/Distributions.So that the Planned Pos
6443: -- cancellation can be treated as a regular SPO
6444: denormPlannedPoQty(
6445: p_api_version=> 1.0,
6446: p_init_msg_list=>FND_API.G_FALSE,
6447: entity_dtl_tbl => p_da_call_rec.entity_dtl_record_tbl,
6448: p_key => l_key,
6449: x_return_status => x_return_status);
6450:
6447: entity_dtl_tbl => p_da_call_rec.entity_dtl_record_tbl,
6448: p_key => l_key,
6449: x_return_status => x_return_status);
6450:
6451: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6452: RAISE FND_API.g_exc_error;
6453: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6454: RAISE FND_API.g_exc_unexpected_error;
6455: END IF;
6448: p_key => l_key,
6449: x_return_status => x_return_status);
6450:
6451: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6452: RAISE FND_API.g_exc_error;
6453: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6454: RAISE FND_API.g_exc_unexpected_error;
6455: END IF;
6456:
6449: x_return_status => x_return_status);
6450:
6451: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6452: RAISE FND_API.g_exc_error;
6453: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6454: RAISE FND_API.g_exc_unexpected_error;
6455: END IF;
6456:
6457: l_progress := '004';
6450:
6451: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6452: RAISE FND_API.g_exc_error;
6453: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6454: RAISE FND_API.g_exc_unexpected_error;
6455: END IF;
6456:
6457: l_progress := '004';
6458:
6462: -- Update the cancel flag and other relevant coulmns on the document
6463: -- and the backing requisition
6464: process_cancel_action(
6465: p_api_version=> 1.0,
6466: p_init_msg_list=>FND_API.G_FALSE,
6467: p_da_call_rec =>p_da_call_rec,
6468: p_key =>l_key,
6469: p_user_id => l_user_id,
6470: p_login_id =>l_login_id,
6472: p_req_enc_flag=>l_req_encumbrance_flag,
6473: x_return_status =>x_return_status,
6474: x_msg_data =>x_msg_data);
6475:
6476: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6477: RAISE FND_API.g_exc_error;
6478: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6479: RAISE FND_API.g_exc_unexpected_error;
6480: END IF;
6473: x_return_status =>x_return_status,
6474: x_msg_data =>x_msg_data);
6475:
6476: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6477: RAISE FND_API.g_exc_error;
6478: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6479: RAISE FND_API.g_exc_unexpected_error;
6480: END IF;
6481:
6474: x_msg_data =>x_msg_data);
6475:
6476: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6477: RAISE FND_API.g_exc_error;
6478: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6479: RAISE FND_API.g_exc_unexpected_error;
6480: END IF;
6481:
6482: IF g_debug_stmt THEN
6475:
6476: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6477: RAISE FND_API.g_exc_error;
6478: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6479: RAISE FND_API.g_exc_unexpected_error;
6480: END IF;
6481:
6482: IF g_debug_stmt THEN
6483: PO_DEBUG.debug_var(d_module,l_progress,'x_return_code',x_return_code);
6488: -- Cancel action has failed for some douments,
6489: -- Please run the error report to see the errors.
6490:
6491: EXCEPTION
6492: WHEN FND_API.g_exc_error THEN
6493: x_return_status := FND_API.g_ret_sts_error;
6494: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress);
6495: ROLLBACK TO cancel_document_PVT;
6496: IF (g_debug_unexp) THEN
6489: -- Please run the error report to see the errors.
6490:
6491: EXCEPTION
6492: WHEN FND_API.g_exc_error THEN
6493: x_return_status := FND_API.g_ret_sts_error;
6494: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress);
6495: ROLLBACK TO cancel_document_PVT;
6496: IF (g_debug_unexp) THEN
6497: FND_LOG.STRING(
6498: FND_LOG.LEVEL_UNEXPECTED,
6499: d_module || '.ERROR',
6500: 'EXCEPTION: LOCATION IS ' || l_progress || ' SQL CODE IS '||SQLCODE);
6501: END IF;
6502: WHEN FND_API.g_exc_unexpected_error THEN
6503: x_return_status := FND_API.g_ret_sts_unexp_error;
6504: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress);
6505: ROLLBACK TO cancel_document_PVT;
6506:
6499: d_module || '.ERROR',
6500: 'EXCEPTION: LOCATION IS ' || l_progress || ' SQL CODE IS '||SQLCODE);
6501: END IF;
6502: WHEN FND_API.g_exc_unexpected_error THEN
6503: x_return_status := FND_API.g_ret_sts_unexp_error;
6504: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress);
6505: ROLLBACK TO cancel_document_PVT;
6506:
6507: IF (g_debug_unexp) THEN
6512: END IF;
6513:
6514:
6515: WHEN OTHERS THEN
6516: x_return_status := FND_API.g_ret_sts_unexp_error;
6517: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress);
6518: ROLLBACK TO cancel_document_PVT;
6519:
6520: IF (g_debug_unexp) THEN
6571: WHEN OTHERS THEN
6572: IF g_debug_stmt THEN
6573: PO_DEBUG.debug_stmt(d_module, l_progress, 'Exception in is_document_cto_order check');
6574: END IF ;
6575: RAISE FND_API.g_exc_unexpected_error;
6576: END;
6577:
6578: IF (l_cto_order > 0) THEN
6579: RETURN (TRUE);
6582: END IF;
6583:
6584: EXCEPTION
6585: WHEN OTHERS THEN
6586: RAISE FND_API.g_exc_unexpected_error;
6587: END is_document_cto_order;
6588: --
6589:
6590: /**
6595: * Effects: Ensures that the document has shipments that are not cancelled or
6596: * finally closed, and that they are all fully encumbered. Appends to API
6597: * message list on error.
6598: * Returns:
6599: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
6600: * FND_API.G_RET_STS_ERROR if validation fails
6601: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6602: */
6603: PROCEDURE val_cancel_backing_reqs
6596: * finally closed, and that they are all fully encumbered. Appends to API
6597: * message list on error.
6598: * Returns:
6599: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
6600: * FND_API.G_RET_STS_ERROR if validation fails
6601: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6602: */
6603: PROCEDURE val_cancel_backing_reqs
6604: (p_api_version IN NUMBER,
6597: * message list on error.
6598: * Returns:
6599: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
6600: * FND_API.G_RET_STS_ERROR if validation fails
6601: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6602: */
6603: PROCEDURE val_cancel_backing_reqs
6604: (p_api_version IN NUMBER,
6605: p_init_msg_list IN VARCHAR2,
6617: (p_doc_type => p_doc_type,
6618: p_doc_id => p_doc_id)
6619: THEN
6620: -- Start standard API initialization
6621: IF FND_API.to_boolean(p_init_msg_list) THEN
6622: FND_MSG_PUB.initialize;
6623: END IF;
6624: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
6625: l_api_name, g_pkg_name)
6620: -- Start standard API initialization
6621: IF FND_API.to_boolean(p_init_msg_list) THEN
6622: FND_MSG_PUB.initialize;
6623: END IF;
6624: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
6625: l_api_name, g_pkg_name)
6626: THEN
6627: RAISE FND_API.g_exc_unexpected_error;
6628: END IF;
6623: END IF;
6624: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
6625: l_api_name, g_pkg_name)
6626: THEN
6627: RAISE FND_API.g_exc_unexpected_error;
6628: END IF;
6629: x_return_status := FND_API.g_ret_sts_success;
6630: -- End standard API initialization
6631:
6625: l_api_name, g_pkg_name)
6626: THEN
6627: RAISE FND_API.g_exc_unexpected_error;
6628: END IF;
6629: x_return_status := FND_API.g_ret_sts_success;
6630: -- End standard API initialization
6631:
6632: IF (g_fnd_debug = 'Y') THEN
6633: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
6638: END IF;
6639:
6640: IF NOT PO_Document_Control_PVT.has_shipments
6641: (p_api_version => 1.0,
6642: p_init_msg_list => FND_API.G_FALSE,
6643: x_return_status => x_return_status,
6644: p_doc_type => p_doc_type,
6645: p_doc_id => p_doc_id)
6646: THEN
6643: x_return_status => x_return_status,
6644: p_doc_type => p_doc_type,
6645: p_doc_id => p_doc_id)
6646: THEN
6647: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
6648: RAISE FND_API.g_exc_unexpected_error;
6649: END IF;
6650:
6651: -- Document does not have any valid shipments.
6644: p_doc_type => p_doc_type,
6645: p_doc_id => p_doc_id)
6646: THEN
6647: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
6648: RAISE FND_API.g_exc_unexpected_error;
6649: END IF;
6650:
6651: -- Document does not have any valid shipments.
6652: RAISE FND_API.g_exc_error;
6648: RAISE FND_API.g_exc_unexpected_error;
6649: END IF;
6650:
6651: -- Document does not have any valid shipments.
6652: RAISE FND_API.g_exc_error;
6653: END IF; --
6654:
6655:
6656: IF PO_Document_Control_PVT.has_unencumbered_shipments
6654:
6655:
6656: IF PO_Document_Control_PVT.has_unencumbered_shipments
6657: (p_api_version => 1.0,
6658: p_init_msg_list => FND_API.G_FALSE,
6659: x_return_status => x_return_status,
6660: p_doc_type => p_doc_type,
6661: p_doc_id => p_doc_id)
6662: THEN
6661: p_doc_id => p_doc_id)
6662: THEN
6663: -- Document has valid, unencumbered shipments. Cannot cancel reqs
6664: -- because encumbrance is assumed to be on.
6665: RAISE FND_API.g_exc_error;
6666: END IF; --
6667:
6668: -- Check that an error did not occur in previous procedure call
6669: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
6665: RAISE FND_API.g_exc_error;
6666: END IF; --
6667:
6668: -- Check that an error did not occur in previous procedure call
6669: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
6670: RAISE FND_API.g_exc_unexpected_error;
6671: END IF;
6672:
6673: END IF;
6666: END IF; --
6667:
6668: -- Check that an error did not occur in previous procedure call
6669: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
6670: RAISE FND_API.g_exc_unexpected_error;
6671: END IF;
6672:
6673: END IF;
6674:
6672:
6673: END IF;
6674:
6675: EXCEPTION
6676: WHEN FND_API.g_exc_error THEN
6677: x_return_status := FND_API.g_ret_sts_error;
6678: FND_MESSAGE.set_name('PO','PO_CANCEL_REQ_DISALLOWED');
6679: IF (g_fnd_debug = 'Y') THEN
6680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
6673: END IF;
6674:
6675: EXCEPTION
6676: WHEN FND_API.g_exc_error THEN
6677: x_return_status := FND_API.g_ret_sts_error;
6678: FND_MESSAGE.set_name('PO','PO_CANCEL_REQ_DISALLOWED');
6679: IF (g_fnd_debug = 'Y') THEN
6680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
6681: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
6682: || '.cancel_req_disallowed', FALSE);
6683: END IF;
6684: END IF;
6685: FND_MSG_PUB.add;
6686: WHEN FND_API.g_exc_unexpected_error THEN
6687: x_return_status := FND_API.g_ret_sts_unexp_error;
6688: WHEN OTHERS THEN
6689: x_return_status := FND_API.g_ret_sts_unexp_error;
6690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6683: END IF;
6684: END IF;
6685: FND_MSG_PUB.add;
6686: WHEN FND_API.g_exc_unexpected_error THEN
6687: x_return_status := FND_API.g_ret_sts_unexp_error;
6688: WHEN OTHERS THEN
6689: x_return_status := FND_API.g_ret_sts_unexp_error;
6690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6691: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6685: FND_MSG_PUB.add;
6686: WHEN FND_API.g_exc_unexpected_error THEN
6687: x_return_status := FND_API.g_ret_sts_unexp_error;
6688: WHEN OTHERS THEN
6689: x_return_status := FND_API.g_ret_sts_unexp_error;
6690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6691: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6692: IF (g_fnd_debug = 'Y') THEN
6693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
6723: --IN OUT:
6724:
6725: -- OUT:
6726: -- x_return_status
6727: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6728: -- FND_API.G_RET_STS_ERROR if procedure fails
6729: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6730:
6731:
6724:
6725: -- OUT:
6726: -- x_return_status
6727: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6728: -- FND_API.G_RET_STS_ERROR if procedure fails
6729: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6730:
6731:
6732:
6725: -- OUT:
6726: -- x_return_status
6727: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6728: -- FND_API.G_RET_STS_ERROR if procedure fails
6729: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6730:
6731:
6732:
6733: --End of Comments
6794:
6795:
6796: BEGIN
6797: -- Start standard API initialization
6798: IF FND_API.to_boolean(p_init_msg_list) THEN
6799: FND_MSG_PUB.initialize;
6800: END IF;
6801:
6802: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
6798: IF FND_API.to_boolean(p_init_msg_list) THEN
6799: FND_MSG_PUB.initialize;
6800: END IF;
6801:
6802: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
6803: d_api_name, g_pkg_name) THEN
6804: RAISE FND_API.g_exc_unexpected_error;
6805: END IF;
6806:
6800: END IF;
6801:
6802: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
6803: d_api_name, g_pkg_name) THEN
6804: RAISE FND_API.g_exc_unexpected_error;
6805: END IF;
6806:
6807:
6808: IF g_debug_stmt THEN
6815: PO_DEBUG.debug_var(d_module, l_progress, 'p_action_date', p_action_date);
6816:
6817: END IF;
6818:
6819: x_return_status :=FND_API.G_RET_STS_SUCCESS;
6820:
6821: l_progress := '001' ;
6822:
6823:
6940: END LOOP;
6941:
6942: EXCEPTION
6943:
6944: WHEN FND_API.g_exc_error THEN
6945: x_return_status := FND_API.g_ret_sts_error;
6946: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6947: WHEN FND_API.g_exc_unexpected_error THEN
6948: x_return_status := FND_API.g_ret_sts_unexp_error;
6941:
6942: EXCEPTION
6943:
6944: WHEN FND_API.g_exc_error THEN
6945: x_return_status := FND_API.g_ret_sts_error;
6946: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6947: WHEN FND_API.g_exc_unexpected_error THEN
6948: x_return_status := FND_API.g_ret_sts_unexp_error;
6949: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6943:
6944: WHEN FND_API.g_exc_error THEN
6945: x_return_status := FND_API.g_ret_sts_error;
6946: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6947: WHEN FND_API.g_exc_unexpected_error THEN
6948: x_return_status := FND_API.g_ret_sts_unexp_error;
6949: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6950: WHEN OTHERS THEN
6951: x_return_status := FND_API.g_ret_sts_unexp_error;
6944: WHEN FND_API.g_exc_error THEN
6945: x_return_status := FND_API.g_ret_sts_error;
6946: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6947: WHEN FND_API.g_exc_unexpected_error THEN
6948: x_return_status := FND_API.g_ret_sts_unexp_error;
6949: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6950: WHEN OTHERS THEN
6951: x_return_status := FND_API.g_ret_sts_unexp_error;
6952: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6947: WHEN FND_API.g_exc_unexpected_error THEN
6948: x_return_status := FND_API.g_ret_sts_unexp_error;
6949: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6950: WHEN OTHERS THEN
6951: x_return_status := FND_API.g_ret_sts_unexp_error;
6952: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
6953:
6954: END calculate_qty_cancel;
6955: