100: --IN OUT:
101:
102: -- OUT:
103: -- x_return_status
104: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
105: -- FND_API.G_RET_STS_ERROR if procedure fails
106: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
107:
108: -- x_msg_data
101:
102: -- OUT:
103: -- x_return_status
104: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
105: -- FND_API.G_RET_STS_ERROR if procedure fails
106: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
107:
108: -- x_msg_data
109:
102: -- OUT:
103: -- x_return_status
104: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
105: -- FND_API.G_RET_STS_ERROR if procedure fails
106: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
107:
108: -- x_msg_data
109:
110: --End of Comments
137: PO_DEBUG.debug_var(d_module,l_progress,'p_key',p_key);
138: PO_DEBUG.debug_var(d_module,l_progress,'p_online_report_id',p_online_report_id);
139: END IF;
140:
141: x_return_status := FND_API.g_ret_sts_success;
142: x_msg_data:=NULL;
143:
144: l_progress := '001';
145: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
221: PO_DEBUG.debug_end(d_module);
222: END IF ;
223:
224: EXCEPTION
225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
226: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228:
229: WHEN FND_API.G_EXC_ERROR THEN
223:
224: EXCEPTION
225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
226: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228:
229: WHEN FND_API.G_EXC_ERROR THEN
230: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
231: x_return_status := FND_API.G_RET_STS_ERROR;
225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
226: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228:
229: WHEN FND_API.G_EXC_ERROR THEN
230: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
231: x_return_status := FND_API.G_RET_STS_ERROR;
232:
233: WHEN OTHERS THEN
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228:
229: WHEN FND_API.G_EXC_ERROR THEN
230: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
231: x_return_status := FND_API.G_RET_STS_ERROR;
232:
233: WHEN OTHERS THEN
234: IF (G_DEBUG_UNEXP) THEN
235: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
237: || l_progress || ' SQL CODE IS '||sqlcode);
238: END IF;
239:
240: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
242:
243: END qty_rec_grt_ord_chk;
244:
245: --------------------------------------------------------------------------------
259: --IN OUT:
260:
261: -- OUT:
262: -- x_return_status
263: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
264: -- FND_API.G_RET_STS_ERROR if procedure fails
265: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
266:
267: -- x_msg_data
260:
261: -- OUT:
262: -- x_return_status
263: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
264: -- FND_API.G_RET_STS_ERROR if procedure fails
265: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
266:
267: -- x_msg_data
268: --
261: -- OUT:
262: -- x_return_status
263: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
264: -- FND_API.G_RET_STS_ERROR if procedure fails
265: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
266:
267: -- x_msg_data
268: --
269: -- End of Comments
298: PO_DEBUG.debug_var(d_module,l_progress,'p_online_report_id',p_online_report_id);
299: END IF;
300:
301:
302: x_return_status := FND_API.g_ret_sts_success;
303: x_msg_data:=NULL;
304:
305: l_progress := '001';
306: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
384: PO_DEBUG.debug_end(d_module);
385: END IF;
386:
387: EXCEPTION
388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
389: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391:
392: WHEN FND_API.G_EXC_ERROR THEN
386:
387: EXCEPTION
388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
389: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391:
392: WHEN FND_API.G_EXC_ERROR THEN
393: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
394: x_return_status := FND_API.G_RET_STS_ERROR;
388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
389: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391:
392: WHEN FND_API.G_EXC_ERROR THEN
393: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
394: x_return_status := FND_API.G_RET_STS_ERROR;
395:
396: WHEN OTHERS THEN
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391:
392: WHEN FND_API.G_EXC_ERROR THEN
393: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
394: x_return_status := FND_API.G_RET_STS_ERROR;
395:
396: WHEN OTHERS THEN
397: IF (G_DEBUG_UNEXP) THEN
398: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
400: || l_progress || ' SQL CODE IS '||sqlcode);
401: END IF;
402:
403: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405:
406: END line_price_chk;
407:
408:
425: --IN OUT:
426:
427: -- OUT:
428: -- x_return_status
429: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
430: -- FND_API.G_RET_STS_ERROR if procedure fails
431: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
432:
433: -- x_msg_data
426:
427: -- OUT:
428: -- x_return_status
429: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
430: -- FND_API.G_RET_STS_ERROR if procedure fails
431: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
432:
433: -- x_msg_data
434: --
427: -- OUT:
428: -- x_return_status
429: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
430: -- FND_API.G_RET_STS_ERROR if procedure fails
431: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
432:
433: -- x_msg_data
434: --
435: --End of Comments
459: PO_DEBUG.debug_var(d_module,l_progress,'p_key',p_key);
460: PO_DEBUG.debug_var(d_module,l_progress,'p_online_report_id',p_online_report_id);
461: END IF;
462:
463: x_return_status := FND_API.g_ret_sts_success;
464: x_msg_data:=NULL;
465:
466: l_progress := '001';
467: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
585: PO_DEBUG.debug_end(d_module);
586: END IF;
587:
588: EXCEPTION
589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
590: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592:
593: WHEN FND_API.G_EXC_ERROR THEN
587:
588: EXCEPTION
589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
590: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592:
593: WHEN FND_API.G_EXC_ERROR THEN
594: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
595: x_return_status := FND_API.G_RET_STS_ERROR;
589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
590: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592:
593: WHEN FND_API.G_EXC_ERROR THEN
594: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
595: x_return_status := FND_API.G_RET_STS_ERROR;
596:
597: WHEN OTHERS THEN
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592:
593: WHEN FND_API.G_EXC_ERROR THEN
594: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
595: x_return_status := FND_API.G_RET_STS_ERROR;
596:
597: WHEN OTHERS THEN
598: IF (G_DEBUG_UNEXP) THEN
599: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
601: || l_progress || ' SQL CODE IS '||sqlcode);
602: END IF;
603:
604: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606:
607: END line_ship_qty_chk;
608:
609:
626: --IN OUT:
627:
628: -- OUT:
629: -- x_return_status
630: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
631: -- FND_API.G_RET_STS_ERROR if procedure fails
632: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
633:
634: -- x_msg_data
627:
628: -- OUT:
629: -- x_return_status
630: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
631: -- FND_API.G_RET_STS_ERROR if procedure fails
632: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
633:
634: -- x_msg_data
635:
628: -- OUT:
629: -- x_return_status
630: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
631: -- FND_API.G_RET_STS_ERROR if procedure fails
632: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
633:
634: -- x_msg_data
635:
636: --End of Comments
664: PO_DEBUG.debug_var(d_module,l_progress,'p_key',p_key);
665: PO_DEBUG.debug_var(d_module,l_progress,'p_online_report_id',p_online_report_id);
666: END IF;
667:
668: x_return_status := FND_API.g_ret_sts_success;
669: x_msg_data:=NULL;
670:
671: l_progress := '001';
672: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
746: END IF;
747:
748:
749: EXCEPTION
750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
751: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753:
754: WHEN FND_API.G_EXC_ERROR THEN
748:
749: EXCEPTION
750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
751: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753:
754: WHEN FND_API.G_EXC_ERROR THEN
755: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
756: x_return_status := FND_API.G_RET_STS_ERROR;
750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
751: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753:
754: WHEN FND_API.G_EXC_ERROR THEN
755: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
756: x_return_status := FND_API.G_RET_STS_ERROR;
757:
758: WHEN OTHERS THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753:
754: WHEN FND_API.G_EXC_ERROR THEN
755: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
756: x_return_status := FND_API.G_RET_STS_ERROR;
757:
758: WHEN OTHERS THEN
759: IF (G_DEBUG_UNEXP) THEN
760: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
762: || l_progress || ' SQL CODE IS '||sqlcode);
763: END IF;
764:
765: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
767:
768:
769: END line_ship_price_chk;
770:
787: --IN OUT:
788:
789: -- OUT:
790: -- x_return_status
791: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
792: -- FND_API.G_RET_STS_ERROR if procedure fails
793: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
794:
795: -- x_msg_data
788:
789: -- OUT:
790: -- x_return_status
791: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
792: -- FND_API.G_RET_STS_ERROR if procedure fails
793: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
794:
795: -- x_msg_data
796:
789: -- OUT:
790: -- x_return_status
791: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
792: -- FND_API.G_RET_STS_ERROR if procedure fails
793: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
794:
795: -- x_msg_data
796:
797: --End of Comments
829: END IF;
830:
831:
832:
833: x_return_status := FND_API.g_ret_sts_success;
834: x_msg_data:=NULL;
835:
836: l_progress := '001';
837: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
934: END IF;
935:
936:
937: EXCEPTION
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941:
942: WHEN FND_API.G_EXC_ERROR THEN
936:
937: EXCEPTION
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941:
942: WHEN FND_API.G_EXC_ERROR THEN
943: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
944: x_return_status := FND_API.G_RET_STS_ERROR;
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941:
942: WHEN FND_API.G_EXC_ERROR THEN
943: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
944: x_return_status := FND_API.G_RET_STS_ERROR;
945:
946: WHEN OTHERS THEN
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941:
942: WHEN FND_API.G_EXC_ERROR THEN
943: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
944: x_return_status := FND_API.G_RET_STS_ERROR;
945:
946: WHEN OTHERS THEN
947: IF (G_DEBUG_UNEXP) THEN
948: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
950: || l_progress || ' SQL CODE IS '||sqlcode);
951: END IF;
952:
953: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
955:
956: END ship_dist_qty_chk;
957:
958: --------------------------------------------------------------------------------
976: --IN OUT:
977:
978: -- OUT:
979: -- x_return_status
980: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
981: -- FND_API.G_RET_STS_ERROR if procedure fails
982: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
983:
984: -- x_msg_data
977:
978: -- OUT:
979: -- x_return_status
980: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
981: -- FND_API.G_RET_STS_ERROR if procedure fails
982: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
983:
984: -- x_msg_data
985:
978: -- OUT:
979: -- x_return_status
980: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
981: -- FND_API.G_RET_STS_ERROR if procedure fails
982: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
983:
984: -- x_msg_data
985:
986: --End of Comments
1019: END IF;
1020:
1021:
1022:
1023: x_return_status := FND_API.g_ret_sts_success;
1024: x_msg_data:=NULL;
1025:
1026: l_progress := '001';
1027: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
1102: END IF;
1103:
1104:
1105: EXCEPTION
1106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1107: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109:
1110: WHEN FND_API.G_EXC_ERROR THEN
1104:
1105: EXCEPTION
1106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1107: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109:
1110: WHEN FND_API.G_EXC_ERROR THEN
1111: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1112: x_return_status := FND_API.G_RET_STS_ERROR;
1106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1107: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109:
1110: WHEN FND_API.G_EXC_ERROR THEN
1111: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1112: x_return_status := FND_API.G_RET_STS_ERROR;
1113:
1114: WHEN OTHERS THEN
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109:
1110: WHEN FND_API.G_EXC_ERROR THEN
1111: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1112: x_return_status := FND_API.G_RET_STS_ERROR;
1113:
1114: WHEN OTHERS THEN
1115: IF (G_DEBUG_UNEXP) THEN
1116: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1118: || l_progress || ' SQL CODE IS '||sqlcode);
1119: END IF;
1120:
1121: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1123:
1124:
1125: END lcm_match_option_chk;
1126:
1144: --IN OUT:
1145:
1146: -- OUT:
1147: -- x_return_status
1148: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1149: -- FND_API.G_RET_STS_ERROR if procedure fails
1150: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1151:
1152: -- x_msg_data
1145:
1146: -- OUT:
1147: -- x_return_status
1148: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1149: -- FND_API.G_RET_STS_ERROR if procedure fails
1150: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1151:
1152: -- x_msg_data
1153:
1146: -- OUT:
1147: -- x_return_status
1148: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1149: -- FND_API.G_RET_STS_ERROR if procedure fails
1150: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1151:
1152: -- x_msg_data
1153:
1154: --End of Comments
1188: END IF;
1189:
1190:
1191:
1192: x_return_status := FND_API.g_ret_sts_success;
1193: x_msg_data:=NULL;
1194:
1195: l_progress := '001';
1196: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
1272: END IF;
1273:
1274:
1275: EXCEPTION
1276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1277: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279:
1280: WHEN FND_API.G_EXC_ERROR THEN
1274:
1275: EXCEPTION
1276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1277: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279:
1280: WHEN FND_API.G_EXC_ERROR THEN
1281: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1282: x_return_status := FND_API.G_RET_STS_ERROR;
1276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1277: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279:
1280: WHEN FND_API.G_EXC_ERROR THEN
1281: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1282: x_return_status := FND_API.G_RET_STS_ERROR;
1283:
1284: WHEN OTHERS THEN
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279:
1280: WHEN FND_API.G_EXC_ERROR THEN
1281: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1282: x_return_status := FND_API.G_RET_STS_ERROR;
1283:
1284: WHEN OTHERS THEN
1285: IF (G_DEBUG_UNEXP) THEN
1286: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1288: || l_progress || ' SQL CODE IS '||sqlcode);
1289: END IF;
1290:
1291: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1293:
1294: END lcm_dest_type_chk;
1295:
1296:
1316: --IN OUT:
1317:
1318: -- OUT:
1319: -- x_return_status
1320: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1321: -- FND_API.G_RET_STS_ERROR if procedure fails
1322: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1323:
1324: -- x_msg_data
1317:
1318: -- OUT:
1319: -- x_return_status
1320: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1321: -- FND_API.G_RET_STS_ERROR if procedure fails
1322: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1323:
1324: -- x_msg_data
1325:
1318: -- OUT:
1319: -- x_return_status
1320: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1321: -- FND_API.G_RET_STS_ERROR if procedure fails
1322: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1323:
1324: -- x_msg_data
1325:
1326: --End of Comments
1359: END IF;
1360:
1361:
1362:
1363: x_return_status := FND_API.g_ret_sts_success;
1364: x_msg_data:=NULL;
1365: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
1366: l_ship_token := fnd_message.get_string('PO', 'PO_ZMVOR_SHIPMENT');
1367: l_dist_token := fnd_message.get_string('PO', 'PO_ZMVOR_DISTRIBUTION');
1452: PO_DEBUG.debug_end(d_module);
1453: END IF;
1454:
1455: EXCEPTION
1456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1457: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1459:
1460: WHEN FND_API.G_EXC_ERROR THEN
1454:
1455: EXCEPTION
1456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1457: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1459:
1460: WHEN FND_API.G_EXC_ERROR THEN
1461: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1462: x_return_status := FND_API.G_RET_STS_ERROR;
1456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1457: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1459:
1460: WHEN FND_API.G_EXC_ERROR THEN
1461: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1462: x_return_status := FND_API.G_RET_STS_ERROR;
1463:
1464: WHEN OTHERS THEN
1458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1459:
1460: WHEN FND_API.G_EXC_ERROR THEN
1461: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1462: x_return_status := FND_API.G_RET_STS_ERROR;
1463:
1464: WHEN OTHERS THEN
1465: IF (G_DEBUG_UNEXP) THEN
1466: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1468: || l_progress || ' SQL CODE IS '||sqlcode);
1469: END IF;
1470:
1471: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1473:
1474: END qty_del_grt_ord_chk;
1475:
1476: --------------------------------------------------------------------------------
1494: --IN OUT:
1495:
1496: -- OUT:
1497: -- x_return_status
1498: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1499: -- FND_API.G_RET_STS_ERROR if procedure fails
1500: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1501:
1502: -- x_msg_data
1495:
1496: -- OUT:
1497: -- x_return_status
1498: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1499: -- FND_API.G_RET_STS_ERROR if procedure fails
1500: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1501:
1502: -- x_msg_data
1503:
1496: -- OUT:
1497: -- x_return_status
1498: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1499: -- FND_API.G_RET_STS_ERROR if procedure fails
1500: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1501:
1502: -- x_msg_data
1503:
1504: --End of Comments
1538: END IF;
1539:
1540:
1541:
1542: x_return_status := FND_API.g_ret_sts_success;
1543: x_msg_data:=NULL;
1544: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
1545: l_ship_token := fnd_message.get_string('PO', 'PO_ZMVOR_SHIPMENT');
1546: l_dist_token := fnd_message.get_string('PO', 'PO_ZMVOR_DISTRIBUTION');
1660: PO_DEBUG.debug_end(d_module);
1661: END IF;
1662:
1663: EXCEPTION
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1667:
1668: WHEN FND_API.G_EXC_ERROR THEN
1662:
1663: EXCEPTION
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1667:
1668: WHEN FND_API.G_EXC_ERROR THEN
1669: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1667:
1668: WHEN FND_API.G_EXC_ERROR THEN
1669: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1671:
1672: WHEN OTHERS THEN
1666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1667:
1668: WHEN FND_API.G_EXC_ERROR THEN
1669: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1671:
1672: WHEN OTHERS THEN
1673: IF (G_DEBUG_UNEXP) THEN
1674: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1676: || l_progress || ' SQL CODE IS '||sqlcode);
1677: END IF;
1678:
1679: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1681:
1682: END qty_bill_grt_ord_chk;
1683:
1684: --------------------------------------------------------------------------------
1701: --IN OUT:
1702:
1703: -- OUT:
1704: -- x_return_status
1705: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1706: -- FND_API.G_RET_STS_ERROR if procedure fails
1707: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1708:
1709: -- x_msg_data
1702:
1703: -- OUT:
1704: -- x_return_status
1705: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1706: -- FND_API.G_RET_STS_ERROR if procedure fails
1707: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1708:
1709: -- x_msg_data
1710:
1703: -- OUT:
1704: -- x_return_status
1705: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1706: -- FND_API.G_RET_STS_ERROR if procedure fails
1707: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1708:
1709: -- x_msg_data
1710:
1711: --End of Comments
1743: END IF;
1744:
1745:
1746:
1747: x_return_status := FND_API.g_ret_sts_success;
1748: x_msg_data:=NULL;
1749: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
1750: l_ship_token := fnd_message.get_string('PO', 'PO_ZMVOR_SHIPMENT');
1751: l_amt_token := fnd_message.get_string('PO', 'PO_WF_NOTIF_AMOUNT');
1855: PO_DEBUG.debug_end(d_module);
1856: END IF;
1857:
1858: EXCEPTION
1859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1860: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862:
1863: WHEN FND_API.G_EXC_ERROR THEN
1857:
1858: EXCEPTION
1859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1860: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862:
1863: WHEN FND_API.G_EXC_ERROR THEN
1864: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1865: x_return_status := FND_API.G_RET_STS_ERROR;
1859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1860: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862:
1863: WHEN FND_API.G_EXC_ERROR THEN
1864: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1865: x_return_status := FND_API.G_RET_STS_ERROR;
1866:
1867: WHEN OTHERS THEN
1861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862:
1863: WHEN FND_API.G_EXC_ERROR THEN
1864: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1865: x_return_status := FND_API.G_RET_STS_ERROR;
1866:
1867: WHEN OTHERS THEN
1868: IF (G_DEBUG_UNEXP) THEN
1869: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1871: || l_progress || ' SQL CODE IS '||sqlcode);
1872: END IF;
1873:
1874: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
1875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1876:
1877: END qty_bill_grt_rec_chk;
1878:
1879: --------------------------------------------------------------------------------
1896: --IN OUT:
1897:
1898: -- OUT:
1899: -- x_return_status
1900: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1901: -- FND_API.G_RET_STS_ERROR if procedure fails
1902: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1903:
1904: -- x_msg_data
1897:
1898: -- OUT:
1899: -- x_return_status
1900: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1901: -- FND_API.G_RET_STS_ERROR if procedure fails
1902: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1903:
1904: -- x_msg_data
1905:
1898: -- OUT:
1899: -- x_return_status
1900: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
1901: -- FND_API.G_RET_STS_ERROR if procedure fails
1902: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1903:
1904: -- x_msg_data
1905:
1906: --End of Comments
1937: END IF;
1938:
1939:
1940:
1941: x_return_status := FND_API.g_ret_sts_success;
1942: x_msg_data:=NULL;
1943:
1944: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
1945: l_ship_token := fnd_message.get_string('PO', 'PO_ZMVOR_SHIPMENT');
2050: PO_DEBUG.debug_end(d_module);
2051: END IF;
2052:
2053: EXCEPTION
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2057:
2058: WHEN FND_API.G_EXC_ERROR THEN
2052:
2053: EXCEPTION
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2057:
2058: WHEN FND_API.G_EXC_ERROR THEN
2059: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2060: x_return_status := FND_API.G_RET_STS_ERROR;
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2057:
2058: WHEN FND_API.G_EXC_ERROR THEN
2059: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2060: x_return_status := FND_API.G_RET_STS_ERROR;
2061:
2062: WHEN OTHERS THEN
2056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2057:
2058: WHEN FND_API.G_EXC_ERROR THEN
2059: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2060: x_return_status := FND_API.G_RET_STS_ERROR;
2061:
2062: WHEN OTHERS THEN
2063: IF (G_DEBUG_UNEXP) THEN
2064: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2066: || l_progress || ' SQL CODE IS '||sqlcode);
2067: END IF;
2068:
2069: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2071:
2072:
2073: END qty_bill_grt_del_chk;
2074:
2091: --IN OUT:
2092:
2093: -- OUT:
2094: -- x_return_status
2095: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2096: -- FND_API.G_RET_STS_ERROR if procedure fails
2097: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2098:
2099: -- x_msg_data
2092:
2093: -- OUT:
2094: -- x_return_status
2095: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2096: -- FND_API.G_RET_STS_ERROR if procedure fails
2097: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2098:
2099: -- x_msg_data
2100:
2093: -- OUT:
2094: -- x_return_status
2095: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2096: -- FND_API.G_RET_STS_ERROR if procedure fails
2097: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2098:
2099: -- x_msg_data
2100:
2101: --End of Comments
2136: END IF;
2137:
2138:
2139:
2140: x_return_status := FND_API.g_ret_sts_success;
2141: x_msg_data:=NULL;
2142:
2143: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
2144: l_ship_token := fnd_message.get_string('PO', 'PO_ZMVOR_SHIPMENT');
2232: PO_DEBUG.debug_end(d_module);
2233: END IF;
2234:
2235: EXCEPTION
2236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2237: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2239:
2240: WHEN FND_API.G_EXC_ERROR THEN
2234:
2235: EXCEPTION
2236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2237: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2239:
2240: WHEN FND_API.G_EXC_ERROR THEN
2241: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2242: x_return_status := FND_API.G_RET_STS_ERROR;
2236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2237: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2239:
2240: WHEN FND_API.G_EXC_ERROR THEN
2241: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2242: x_return_status := FND_API.G_RET_STS_ERROR;
2243:
2244: WHEN OTHERS THEN
2238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2239:
2240: WHEN FND_API.G_EXC_ERROR THEN
2241: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2242: x_return_status := FND_API.G_RET_STS_ERROR;
2243:
2244: WHEN OTHERS THEN
2245: IF (G_DEBUG_UNEXP) THEN
2246: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2248: || l_progress || ' SQL CODE IS '||sqlcode);
2249: END IF;
2250:
2251: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2253:
2254:
2255: END qty_rec_not_del_chk;
2256:
2275: --IN OUT:
2276:
2277: -- OUT:
2278: -- x_return_status
2279: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2280: -- FND_API.G_RET_STS_ERROR if procedure fails
2281: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2282:
2283: -- x_msg_data
2276:
2277: -- OUT:
2278: -- x_return_status
2279: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2280: -- FND_API.G_RET_STS_ERROR if procedure fails
2281: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2282:
2283: -- x_msg_data
2284:
2277: -- OUT:
2278: -- x_return_status
2279: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2280: -- FND_API.G_RET_STS_ERROR if procedure fails
2281: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2282:
2283: -- x_msg_data
2284:
2285: --End of Comments
2312: END IF;
2313:
2314:
2315:
2316: x_return_status := FND_API.g_ret_sts_success;
2317: x_msg_data:=NULL;
2318:
2319: l_progress:= '001';
2320:
2390: PO_DEBUG.debug_end(d_module);
2391: END IF;
2392:
2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397:
2398: WHEN FND_API.G_EXC_ERROR THEN
2392:
2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397:
2398: WHEN FND_API.G_EXC_ERROR THEN
2399: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2400: x_return_status := FND_API.G_RET_STS_ERROR;
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397:
2398: WHEN FND_API.G_EXC_ERROR THEN
2399: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2400: x_return_status := FND_API.G_RET_STS_ERROR;
2401:
2402: WHEN OTHERS THEN
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397:
2398: WHEN FND_API.G_EXC_ERROR THEN
2399: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2400: x_return_status := FND_API.G_RET_STS_ERROR;
2401:
2402: WHEN OTHERS THEN
2403: IF (G_DEBUG_UNEXP) THEN
2404: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2406: || l_progress || ' SQL CODE IS '||sqlcode);
2407: END IF;
2408:
2409: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2411:
2412: END pending_rcv_trx_chk;
2413:
2414:
2431: --IN OUT:
2432:
2433: -- OUT:
2434: -- x_return_status
2435: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2436: -- FND_API.G_RET_STS_ERROR if procedure fails
2437: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2438:
2439: -- x_msg_data
2432:
2433: -- OUT:
2434: -- x_return_status
2435: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2436: -- FND_API.G_RET_STS_ERROR if procedure fails
2437: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2438:
2439: -- x_msg_data
2440:
2433: -- OUT:
2434: -- x_return_status
2435: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2436: -- FND_API.G_RET_STS_ERROR if procedure fails
2437: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2438:
2439: -- x_msg_data
2440:
2441: --End of Comments
2469: END IF;
2470:
2471:
2472:
2473: x_return_status := FND_API.g_ret_sts_success;
2474: x_msg_data:=NULL;
2475:
2476: l_progress:= '001';
2477:
2549: PO_DEBUG.debug_end(d_module);
2550: END IF;
2551:
2552: EXCEPTION
2553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2554: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2556:
2557: WHEN FND_API.G_EXC_ERROR THEN
2551:
2552: EXCEPTION
2553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2554: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2556:
2557: WHEN FND_API.G_EXC_ERROR THEN
2558: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2559: x_return_status := FND_API.G_RET_STS_ERROR;
2553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2554: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2556:
2557: WHEN FND_API.G_EXC_ERROR THEN
2558: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2559: x_return_status := FND_API.G_RET_STS_ERROR;
2560:
2561: WHEN OTHERS THEN
2555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2556:
2557: WHEN FND_API.G_EXC_ERROR THEN
2558: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2559: x_return_status := FND_API.G_RET_STS_ERROR;
2560:
2561: WHEN OTHERS THEN
2562: IF (G_DEBUG_UNEXP) THEN
2563: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2565: || l_progress || ' SQL CODE IS '||sqlcode);
2566: END IF;
2567:
2568: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2570:
2571: END pending_asn_chk;
2572:
2573: --------------------------------------------------------------------------------
2590: --IN OUT:
2591:
2592: -- OUT:
2593: -- x_return_status
2594: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2595: -- FND_API.G_RET_STS_ERROR if procedure fails
2596: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2597:
2598: -- x_msg_data
2591:
2592: -- OUT:
2593: -- x_return_status
2594: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2595: -- FND_API.G_RET_STS_ERROR if procedure fails
2596: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2597:
2598: -- x_msg_data
2599:
2592: -- OUT:
2593: -- x_return_status
2594: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2595: -- FND_API.G_RET_STS_ERROR if procedure fails
2596: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2597:
2598: -- x_msg_data
2599:
2600: --End of Comments
2630: END IF;
2631:
2632:
2633:
2634: x_return_status := FND_API.g_ret_sts_success;
2635: x_msg_data:=NULL;
2636:
2637: l_progress:= '001';
2638:
2718: END IF;
2719:
2720:
2721: EXCEPTION
2722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2723: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2720:
2721: EXCEPTION
2722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2723: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2727: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2728: x_return_status := FND_API.G_RET_STS_ERROR;
2722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2723: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2727: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2728: x_return_status := FND_API.G_RET_STS_ERROR;
2729:
2730: WHEN OTHERS THEN
2724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2727: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2728: x_return_status := FND_API.G_RET_STS_ERROR;
2729:
2730: WHEN OTHERS THEN
2731: IF (G_DEBUG_UNEXP) THEN
2732: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2734: || l_progress || ' SQL CODE IS '||sqlcode);
2735: END IF;
2736:
2737: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2739:
2740:
2741: END invalid_budget_acct_chk;
2742:
2759: --IN OUT:
2760:
2761: -- OUT:
2762: -- x_return_status
2763: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2764: -- FND_API.G_RET_STS_ERROR if procedure fails
2765: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2766:
2767: -- x_msg_data
2760:
2761: -- OUT:
2762: -- x_return_status
2763: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2764: -- FND_API.G_RET_STS_ERROR if procedure fails
2765: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2766:
2767: -- x_msg_data
2768:
2761: -- OUT:
2762: -- x_return_status
2763: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2764: -- FND_API.G_RET_STS_ERROR if procedure fails
2765: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2766:
2767: -- x_msg_data
2768:
2769: --End of Comments
2798: END IF;
2799:
2800:
2801:
2802: x_return_status := FND_API.g_ret_sts_success;
2803: x_msg_data:=NULL;
2804:
2805: l_progress:= '001';
2806:
2885: END IF;
2886:
2887:
2888: EXCEPTION
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2890: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892:
2893: WHEN FND_API.G_EXC_ERROR THEN
2887:
2888: EXCEPTION
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2890: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892:
2893: WHEN FND_API.G_EXC_ERROR THEN
2894: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2895: x_return_status := FND_API.G_RET_STS_ERROR;
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2890: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892:
2893: WHEN FND_API.G_EXC_ERROR THEN
2894: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2895: x_return_status := FND_API.G_RET_STS_ERROR;
2896:
2897: WHEN OTHERS THEN
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892:
2893: WHEN FND_API.G_EXC_ERROR THEN
2894: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2895: x_return_status := FND_API.G_RET_STS_ERROR;
2896:
2897: WHEN OTHERS THEN
2898: IF (G_DEBUG_UNEXP) THEN
2899: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2901: || l_progress || ' SQL CODE IS '||sqlcode);
2902: END IF;
2903:
2904: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
2905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2906:
2907: END invalid_charge_acct_chk;
2908:
2909: --------------------------------------------------------------------------------
2925: --IN OUT:
2926:
2927: -- OUT:
2928: -- x_return_status
2929: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2930: -- FND_API.G_RET_STS_ERROR if procedure fails
2931: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2932:
2933: -- x_msg_data
2926:
2927: -- OUT:
2928: -- x_return_status
2929: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2930: -- FND_API.G_RET_STS_ERROR if procedure fails
2931: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2932:
2933: -- x_msg_data
2934:
2927: -- OUT:
2928: -- x_return_status
2929: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
2930: -- FND_API.G_RET_STS_ERROR if procedure fails
2931: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2932:
2933: -- x_msg_data
2934:
2935: --End of Comments
2963: END IF;
2964:
2965:
2966:
2967: x_return_status := FND_API.g_ret_sts_success;
2968: x_msg_data:=NULL;
2969:
2970: l_progress:= '001';
2971:
3041: END IF;
3042:
3043:
3044: EXCEPTION
3045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3046: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3048:
3049: WHEN FND_API.G_EXC_ERROR THEN
3043:
3044: EXCEPTION
3045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3046: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3048:
3049: WHEN FND_API.G_EXC_ERROR THEN
3050: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3046: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3048:
3049: WHEN FND_API.G_EXC_ERROR THEN
3050: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3052:
3053: WHEN OTHERS THEN
3047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3048:
3049: WHEN FND_API.G_EXC_ERROR THEN
3050: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3052:
3053: WHEN OTHERS THEN
3054: IF (G_DEBUG_UNEXP) THEN
3055: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3057: || l_progress || ' SQL CODE IS '||sqlcode);
3058: END IF;
3059:
3060: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3062:
3063:
3064: END ga_with_open_std_ref_chk;
3065:
3082: --IN OUT:
3083:
3084: -- OUT:
3085: -- x_return_status
3086: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3087: -- FND_API.G_RET_STS_ERROR if procedure fails
3088: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3089:
3090: -- x_return_msg
3083:
3084: -- OUT:
3085: -- x_return_status
3086: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3087: -- FND_API.G_RET_STS_ERROR if procedure fails
3088: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3089:
3090: -- x_return_msg
3091:
3084: -- OUT:
3085: -- x_return_status
3086: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3087: -- FND_API.G_RET_STS_ERROR if procedure fails
3088: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3089:
3090: -- x_return_msg
3091:
3092: --End of Comments
3117: PO_DEBUG.debug_var(d_module,l_progress,'p_key',p_key);
3118: PO_DEBUG.debug_var(d_module,l_progress,'p_online_report_id',p_online_report_id);
3119: END IF;
3120:
3121: x_return_status := FND_API.g_ret_sts_success;
3122: x_msg_data:=NULL;
3123:
3124: l_progress:= '001';
3125: -- bug 16525950
3263: PO_DEBUG.debug_end(d_module);
3264: END IF;
3265:
3266: EXCEPTION
3267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3268: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3270:
3271: WHEN FND_API.G_EXC_ERROR THEN
3265:
3266: EXCEPTION
3267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3268: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3270:
3271: WHEN FND_API.G_EXC_ERROR THEN
3272: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3273: x_return_status := FND_API.G_RET_STS_ERROR;
3267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3268: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3270:
3271: WHEN FND_API.G_EXC_ERROR THEN
3272: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3273: x_return_status := FND_API.G_RET_STS_ERROR;
3274:
3275: WHEN OTHERS THEN
3269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3270:
3271: WHEN FND_API.G_EXC_ERROR THEN
3272: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3273: x_return_status := FND_API.G_RET_STS_ERROR;
3274:
3275: WHEN OTHERS THEN
3276: IF (G_DEBUG_UNEXP) THEN
3277: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3279: || l_progress || ' SQL CODE IS '||sqlcode);
3280: END IF;
3281:
3282: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3284:
3285:
3286: END po_pa_WITH_OPEN_REL_chk;
3287:
3305: --IN OUT:
3306:
3307: -- OUT:
3308: -- x_return_status
3309: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3310: -- FND_API.G_RET_STS_ERROR if procedure fails
3311: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3312:
3313: -- x_return_msg
3306:
3307: -- OUT:
3308: -- x_return_status
3309: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3310: -- FND_API.G_RET_STS_ERROR if procedure fails
3311: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3312:
3313: -- x_return_msg
3314:
3307: -- OUT:
3308: -- x_return_status
3309: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3310: -- FND_API.G_RET_STS_ERROR if procedure fails
3311: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3312:
3313: -- x_return_msg
3314:
3315: --End of Comments
3340: END IF;
3341:
3342:
3343:
3344: x_return_status := FND_API.g_ret_sts_success;
3345: x_msg_data:=NULL;
3346:
3347: l_progress:= '001';
3348:
3409: PO_DEBUG.debug_end(d_module);
3410: END IF;
3411:
3412: EXCEPTION
3413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3414: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3416:
3417: WHEN FND_API.G_EXC_ERROR THEN
3411:
3412: EXCEPTION
3413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3414: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3416:
3417: WHEN FND_API.G_EXC_ERROR THEN
3418: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3419: x_return_status := FND_API.G_RET_STS_ERROR;
3413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3414: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3416:
3417: WHEN FND_API.G_EXC_ERROR THEN
3418: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3419: x_return_status := FND_API.G_RET_STS_ERROR;
3420:
3421: WHEN OTHERS THEN
3415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3416:
3417: WHEN FND_API.G_EXC_ERROR THEN
3418: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3419: x_return_status := FND_API.G_RET_STS_ERROR;
3420:
3421: WHEN OTHERS THEN
3422: IF (G_DEBUG_UNEXP) THEN
3423: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3425: || l_progress || ' SQL CODE IS '||sqlcode);
3426: END IF;
3427:
3428: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3430:
3431: END cga_with_open_std_ref_chk;
3432:
3433:
3449: --IN OUT:
3450:
3451: -- OUT:
3452: -- x_return_status
3453: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3454: -- FND_API.G_RET_STS_ERROR if procedure fails
3455: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3456:
3457: -- x_msg_data
3450:
3451: -- OUT:
3452: -- x_return_status
3453: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3454: -- FND_API.G_RET_STS_ERROR if procedure fails
3455: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3456:
3457: -- x_msg_data
3458:
3451: -- OUT:
3452: -- x_return_status
3453: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3454: -- FND_API.G_RET_STS_ERROR if procedure fails
3455: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3456:
3457: -- x_msg_data
3458:
3459: --End of Comments
3476:
3477:
3478: BEGIN
3479:
3480: x_return_status := FND_API.G_RET_STS_SUCCESS;
3481:
3482: IF g_debug_stmt THEN
3483: PO_DEBUG.debug_begin(d_module);
3484: PO_DEBUG.debug_var(d_module,l_progress,'p_key',p_key);
3494: PO_DEBUG.debug_end(d_module);
3495: END IF;
3496:
3497: EXCEPTION
3498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3499: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3501:
3502: WHEN FND_API.G_EXC_ERROR THEN
3496:
3497: EXCEPTION
3498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3499: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3501:
3502: WHEN FND_API.G_EXC_ERROR THEN
3503: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3504: x_return_status := FND_API.G_RET_STS_ERROR;
3498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3499: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3501:
3502: WHEN FND_API.G_EXC_ERROR THEN
3503: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3504: x_return_status := FND_API.G_RET_STS_ERROR;
3505:
3506: WHEN OTHERS THEN
3500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3501:
3502: WHEN FND_API.G_EXC_ERROR THEN
3503: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3504: x_return_status := FND_API.G_RET_STS_ERROR;
3505:
3506: WHEN OTHERS THEN
3507: IF (G_DEBUG_UNEXP) THEN
3508: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3510: || l_progress || ' SQL CODE IS '||sqlcode);
3511: END IF;
3512:
3513: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
3514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3515: END cancel_custom_validation;
3516:
3517:
3518:
3561: --IN OUT:
3562:
3563: -- OUT:
3564: -- x_return_status
3565: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3566: -- FND_API.G_RET_STS_ERROR if procedure fails
3567: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3568:
3569: -- x_return_msg
3562:
3563: -- OUT:
3564: -- x_return_status
3565: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3566: -- FND_API.G_RET_STS_ERROR if procedure fails
3567: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3568:
3569: -- x_return_msg
3570:
3563: -- OUT:
3564: -- x_return_status
3565: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3566: -- FND_API.G_RET_STS_ERROR if procedure fails
3567: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3568:
3569: -- x_return_msg
3570:
3571: --End of Comments
3586: l_new_key po_session_gt.key%TYPE;
3587:
3588: BEGIN
3589:
3590: x_return_status := FND_API.G_RET_STS_SUCCESS;
3591: x_msg_data :=NULL;
3592: l_progress:= '001';
3593:
3594:
3759:
3760:
3761: EXCEPTION
3762:
3763: WHEN FND_API.g_exc_error THEN
3764: x_return_status := FND_API.g_ret_sts_error;
3765: WHEN FND_API.g_exc_unexpected_error THEN
3766: x_return_status := FND_API.g_ret_sts_unexp_error;
3767: WHEN OTHERS THEN
3760:
3761: EXCEPTION
3762:
3763: WHEN FND_API.g_exc_error THEN
3764: x_return_status := FND_API.g_ret_sts_error;
3765: WHEN FND_API.g_exc_unexpected_error THEN
3766: x_return_status := FND_API.g_ret_sts_unexp_error;
3767: WHEN OTHERS THEN
3768: x_return_status := FND_API.g_ret_sts_unexp_error;
3761: EXCEPTION
3762:
3763: WHEN FND_API.g_exc_error THEN
3764: x_return_status := FND_API.g_ret_sts_error;
3765: WHEN FND_API.g_exc_unexpected_error THEN
3766: x_return_status := FND_API.g_ret_sts_unexp_error;
3767: WHEN OTHERS THEN
3768: x_return_status := FND_API.g_ret_sts_unexp_error;
3769:
3762:
3763: WHEN FND_API.g_exc_error THEN
3764: x_return_status := FND_API.g_ret_sts_error;
3765: WHEN FND_API.g_exc_unexpected_error THEN
3766: x_return_status := FND_API.g_ret_sts_unexp_error;
3767: WHEN OTHERS THEN
3768: x_return_status := FND_API.g_ret_sts_unexp_error;
3769:
3770: END update_gt_with_low_entity;
3764: x_return_status := FND_API.g_ret_sts_error;
3765: WHEN FND_API.g_exc_unexpected_error THEN
3766: x_return_status := FND_API.g_ret_sts_unexp_error;
3767: WHEN OTHERS THEN
3768: x_return_status := FND_API.g_ret_sts_unexp_error;
3769:
3770: END update_gt_with_low_entity;
3771:
3772: --------------------------------------------------------------------------------
3788: --IN OUT:
3789:
3790: -- OUT:
3791: -- x_return_status
3792: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3793: -- FND_API.G_RET_STS_ERROR if procedure fails
3794: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3795:
3796: -- x_return_msg
3789:
3790: -- OUT:
3791: -- x_return_status
3792: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3793: -- FND_API.G_RET_STS_ERROR if procedure fails
3794: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3795:
3796: -- x_return_msg
3797:
3790: -- OUT:
3791: -- x_return_status
3792: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
3793: -- FND_API.G_RET_STS_ERROR if procedure fails
3794: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3795:
3796: -- x_return_msg
3797:
3798: --End of Comments
3817: l_val VARCHAR2(2000);
3818:
3819: BEGIN
3820:
3821: x_return_status := FND_API.G_RET_STS_SUCCESS;
3822: x_msg_data :=NULL;
3823: l_progress:= '001';
3824:
3825:
4102: RAISE CASE_NOT_FOUND;
4103: END CASE;
4104:
4105: EXCEPTION
4106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4107: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4109:
4110: WHEN FND_API.G_EXC_ERROR THEN
4104:
4105: EXCEPTION
4106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4107: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4109:
4110: WHEN FND_API.G_EXC_ERROR THEN
4111: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4112: x_return_status := FND_API.G_RET_STS_ERROR;
4106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4107: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4109:
4110: WHEN FND_API.G_EXC_ERROR THEN
4111: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4112: x_return_status := FND_API.G_RET_STS_ERROR;
4113:
4114: WHEN OTHERS THEN
4108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4109:
4110: WHEN FND_API.G_EXC_ERROR THEN
4111: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4112: x_return_status := FND_API.G_RET_STS_ERROR;
4113:
4114: WHEN OTHERS THEN
4115: IF (G_DEBUG_UNEXP) THEN
4116: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
4118: || l_progress || ' SQL CODE IS '||sqlcode);
4119: END IF;
4120:
4121: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4123:
4124: END;
4125:
4126: END LOOP;
4187: --IN OUT:
4188:
4189: -- OUT:
4190: -- x_return_status
4191: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
4192: -- FND_API.G_RET_STS_ERROR if procedure fails
4193: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4194:
4195: -- x_return_msg
4188:
4189: -- OUT:
4190: -- x_return_status
4191: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
4192: -- FND_API.G_RET_STS_ERROR if procedure fails
4193: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4194:
4195: -- x_return_msg
4196:
4189: -- OUT:
4190: -- x_return_status
4191: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
4192: -- FND_API.G_RET_STS_ERROR if procedure fails
4193: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4194:
4195: -- x_return_msg
4196:
4197: --End of Comments
4215:
4216:
4217: BEGIN
4218:
4219: x_return_status := FND_API.G_RET_STS_SUCCESS;
4220: x_return_msg :=NULL;
4221:
4222: IF g_debug_stmt THEN
4223: PO_DEBUG.debug_begin(d_module);
4241: x_msg_data => x_return_msg);
4242:
4243:
4244:
4245: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4246: RAISE FND_API.g_exc_error;
4247: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4248: RAISE FND_API.g_exc_unexpected_error;
4249: END IF;
4242:
4243:
4244:
4245: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4246: RAISE FND_API.g_exc_error;
4247: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4248: RAISE FND_API.g_exc_unexpected_error;
4249: END IF;
4250:
4243:
4244:
4245: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4246: RAISE FND_API.g_exc_error;
4247: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4248: RAISE FND_API.g_exc_unexpected_error;
4249: END IF;
4250:
4251: IF g_debug_stmt THEN
4244:
4245: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4246: RAISE FND_API.g_exc_error;
4247: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4248: RAISE FND_API.g_exc_unexpected_error;
4249: END IF;
4250:
4251: IF g_debug_stmt THEN
4252: PO_DEBUG.debug_var(d_module,l_progress,'x_return_status',x_return_status);
4254: END IF;
4255:
4256:
4257: EXCEPTION
4258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4259: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261:
4262: WHEN FND_API.G_EXC_ERROR THEN
4256:
4257: EXCEPTION
4258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4259: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261:
4262: WHEN FND_API.G_EXC_ERROR THEN
4263: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4264: x_return_status := FND_API.G_RET_STS_ERROR;
4258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4259: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261:
4262: WHEN FND_API.G_EXC_ERROR THEN
4263: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4264: x_return_status := FND_API.G_RET_STS_ERROR;
4265:
4266: WHEN OTHERS THEN
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261:
4262: WHEN FND_API.G_EXC_ERROR THEN
4263: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4264: x_return_status := FND_API.G_RET_STS_ERROR;
4265:
4266: WHEN OTHERS THEN
4267: IF (G_DEBUG_UNEXP) THEN
4268: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
4270: || l_progress || ' SQL CODE IS '||sqlcode);
4271: END IF;
4272:
4273: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4275:
4276: END po_cancel_action_checks;
4277:
4278: --------------------------------------------------------------------------------
4403: --IN OUT:
4404:
4405: -- OUT:
4406: -- x_return_status
4407: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
4408: -- FND_API.G_RET_STS_ERROR if procedure fails
4409: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4410:
4411: -- x_return_msg
4404:
4405: -- OUT:
4406: -- x_return_status
4407: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
4408: -- FND_API.G_RET_STS_ERROR if procedure fails
4409: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4410:
4411: -- x_return_msg
4412:
4405: -- OUT:
4406: -- x_return_status
4407: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
4408: -- FND_API.G_RET_STS_ERROR if procedure fails
4409: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4410:
4411: -- x_return_msg
4412:
4413: --End of Comments
4436:
4437:
4438: BEGIN
4439:
4440: x_return_status := FND_API.G_RET_STS_SUCCESS;
4441: x_return_msg :=NULL;
4442:
4443:
4444: IF g_debug_stmt THEN
4557:
4558:
4559:
4560: EXCEPTION
4561: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4562: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4564:
4565: WHEN FND_API.G_EXC_ERROR THEN
4559:
4560: EXCEPTION
4561: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4562: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4564:
4565: WHEN FND_API.G_EXC_ERROR THEN
4566: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4567: x_return_status := FND_API.G_RET_STS_ERROR;
4561: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4562: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4564:
4565: WHEN FND_API.G_EXC_ERROR THEN
4566: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4567: x_return_status := FND_API.G_RET_STS_ERROR;
4568:
4569: WHEN OTHERS THEN
4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4564:
4565: WHEN FND_API.G_EXC_ERROR THEN
4566: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4567: x_return_status := FND_API.G_RET_STS_ERROR;
4568:
4569: WHEN OTHERS THEN
4570: IF (G_DEBUG_UNEXP) THEN
4571: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
4573: || l_progress || ' SQL CODE IS '||sqlcode);
4574: END IF;
4575:
4576: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4578:
4579: END val_security_check;
4580:
4581: --------------------------------------------------------------------------------
4605: --IN OUT:
4606:
4607: -- OUT:
4608: -- x_return_status
4609: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
4610: -- FND_API.G_RET_STS_ERROR if procedure fails
4611: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4612:
4613: -- x_return_msg
4606:
4607: -- OUT:
4608: -- x_return_status
4609: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
4610: -- FND_API.G_RET_STS_ERROR if procedure fails
4611: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4612:
4613: -- x_return_msg
4614:
4607: -- OUT:
4608: -- x_return_status
4609: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
4610: -- FND_API.G_RET_STS_ERROR if procedure fails
4611: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4612:
4613: -- x_return_msg
4614:
4615: --End of Comments
4649:
4650: BEGIN
4651:
4652:
4653: x_return_status := FND_API.G_RET_STS_SUCCESS;
4654: x_return_msg :=NULL;
4655:
4656: IF g_debug_stmt THEN
4657: PO_DEBUG.debug_begin(d_module);
4764:
4765:
4766:
4767:
4768: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4769: l_action_ok := FALSE;
4770: x_return_status := FND_API.g_ret_sts_success;
4771: l_progress :='007';
4772: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4766:
4767:
4768: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4769: l_action_ok := FALSE;
4770: x_return_status := FND_API.g_ret_sts_success;
4771: l_progress :='007';
4772: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4773: RAISE FND_API.g_exc_unexpected_error;
4774: END IF;
4768: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4769: l_action_ok := FALSE;
4770: x_return_status := FND_API.g_ret_sts_success;
4771: l_progress :='007';
4772: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4773: RAISE FND_API.g_exc_unexpected_error;
4774: END IF;
4775:
4776:
4769: l_action_ok := FALSE;
4770: x_return_status := FND_API.g_ret_sts_success;
4771: l_progress :='007';
4772: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4773: RAISE FND_API.g_exc_unexpected_error;
4774: END IF;
4775:
4776:
4777: IF g_debug_stmt THEN
4866: PO_DEBUG.debug_end(d_module);
4867: END IF ;
4868:
4869: EXCEPTION
4870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4871: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4873:
4874: WHEN FND_API.G_EXC_ERROR THEN
4868:
4869: EXCEPTION
4870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4871: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4873:
4874: WHEN FND_API.G_EXC_ERROR THEN
4875: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4876: x_return_status := FND_API.G_RET_STS_ERROR;
4870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4871: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4873:
4874: WHEN FND_API.G_EXC_ERROR THEN
4875: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4876: x_return_status := FND_API.G_RET_STS_ERROR;
4877:
4878: WHEN OTHERS THEN
4872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4873:
4874: WHEN FND_API.G_EXC_ERROR THEN
4875: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4876: x_return_status := FND_API.G_RET_STS_ERROR;
4877:
4878: WHEN OTHERS THEN
4879: IF (G_DEBUG_UNEXP) THEN
4880: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
4882: || l_progress || ' SQL CODE IS '||sqlcode);
4883: END IF;
4884:
4885: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
4886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4887:
4888: END val_doc_state_check;
4889:
4890: --------------------------------------------------------------------------------
4911: --IN OUT :
4912: --OUT :
4913: -- x_msg_data
4914: -- x_return_status -
4915: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4916: -- FND_API.G_RET_STS_ERROR if cancel action fails
4917: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4918: --
4919: --End of Comments
4912: --OUT :
4913: -- x_msg_data
4914: -- x_return_status -
4915: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4916: -- FND_API.G_RET_STS_ERROR if cancel action fails
4917: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4918: --
4919: --End of Comments
4920: --------------------------------------------------------------------------------
4913: -- x_msg_data
4914: -- x_return_status -
4915: -- FND_API.G_RET_STS_SUCCESS if cancel action succeeds
4916: -- FND_API.G_RET_STS_ERROR if cancel action fails
4917: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
4918: --
4919: --End of Comments
4920: --------------------------------------------------------------------------------
4921:
4951:
4952: BEGIN
4953:
4954: -- Start standard API initialization
4955: IF FND_API.to_boolean(p_init_msg_list) THEN
4956: FND_MSG_PUB.initialize;
4957: END IF;
4958:
4959: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4955: IF FND_API.to_boolean(p_init_msg_list) THEN
4956: FND_MSG_PUB.initialize;
4957: END IF;
4958:
4959: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4960: d_api_name, g_pkg_name) THEN
4961: RAISE FND_API.g_exc_unexpected_error;
4962: END IF;
4963:
4957: END IF;
4958:
4959: IF NOT FND_API.compatible_api_call(d_api_version, p_api_version,
4960: d_api_name, g_pkg_name) THEN
4961: RAISE FND_API.g_exc_unexpected_error;
4962: END IF;
4963:
4964: l_line_token := fnd_message.get_string('PO', 'PO_ZMVOR_LINE');
4965: l_ship_token := fnd_message.get_string('PO', 'PO_ZMVOR_SHIPMENT');
4977: PO_DEBUG.debug_var(d_module,l_progress,'p_login_id',p_login_id);
4978: PO_DEBUG.debug_var(d_module,l_progress,'p_key',p_key);
4979: END IF;
4980:
4981: x_return_status := FND_API.G_RET_STS_SUCCESS;
4982:
4983: IF p_revert_chg_flag ='Y' THEN
4984:
4985: SELECT Nvl(Max(sequence) ,0)
5218:
5219: END IF;
5220:
5221: EXCEPTION
5222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5223: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5225: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5226: WHEN FND_API.G_EXC_ERROR THEN
5220:
5221: EXCEPTION
5222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5223: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5225: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5226: WHEN FND_API.G_EXC_ERROR THEN
5227: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5228: x_return_status := FND_API.G_RET_STS_ERROR;
5222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5223: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5225: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5226: WHEN FND_API.G_EXC_ERROR THEN
5227: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5228: x_return_status := FND_API.G_RET_STS_ERROR;
5229: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5230: WHEN OTHERS THEN
5224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5225: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5226: WHEN FND_API.G_EXC_ERROR THEN
5227: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5228: x_return_status := FND_API.G_RET_STS_ERROR;
5229: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5230: WHEN OTHERS THEN
5231: IF (G_DEBUG_UNEXP) THEN
5232: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
5234: || l_progress || ' SQL CODE IS '||sqlcode);
5235: END IF;
5236:
5237: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5239: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5240:
5241: END revert_pending_changes;
5242:
5268: --IN OUT:
5269:
5270: -- OUT:
5271: -- x_return_status
5272: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
5273: -- FND_API.G_RET_STS_ERROR if procedure fails
5274: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5275:
5276: -- x_return_msg
5269:
5270: -- OUT:
5271: -- x_return_status
5272: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
5273: -- FND_API.G_RET_STS_ERROR if procedure fails
5274: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5275:
5276: -- x_return_msg
5277:
5270: -- OUT:
5271: -- x_return_status
5272: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
5273: -- FND_API.G_RET_STS_ERROR if procedure fails
5274: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5275:
5276: -- x_return_msg
5277:
5278: --End of Comments
5384: -- Revert the pending changes on the docuemnt before proceeding for the
5385: -- Cancel action
5386: revert_pending_changes(
5387: p_api_version=> 1.0,
5388: p_init_msg_list=>FND_API.G_FALSE,
5389: p_revert_chg_flag => p_revert_chg_flag,
5390: p_online_report_id => p_online_report_id,
5391: p_user_id => p_user_id,
5392: p_login_id => p_login_id,
5394: x_return_status => x_return_status,
5395: x_msg_data => x_return_msg);
5396:
5397:
5398: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5399: RAISE FND_API.g_exc_error;
5400: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5401: RAISE FND_API.g_exc_unexpected_error;
5402: END IF;
5395: x_msg_data => x_return_msg);
5396:
5397:
5398: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5399: RAISE FND_API.g_exc_error;
5400: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5401: RAISE FND_API.g_exc_unexpected_error;
5402: END IF;
5403:
5396:
5397:
5398: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5399: RAISE FND_API.g_exc_error;
5400: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5401: RAISE FND_API.g_exc_unexpected_error;
5402: END IF;
5403:
5404:
5397:
5398: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5399: RAISE FND_API.g_exc_error;
5400: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5401: RAISE FND_API.g_exc_unexpected_error;
5402: END IF;
5403:
5404:
5405:
5517: END IF ;
5518:
5519:
5520: EXCEPTION
5521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5522: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524:
5525: WHEN FND_API.G_EXC_ERROR THEN
5519:
5520: EXCEPTION
5521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5522: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524:
5525: WHEN FND_API.G_EXC_ERROR THEN
5526: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5527: x_return_status := FND_API.G_RET_STS_ERROR;
5521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5522: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524:
5525: WHEN FND_API.G_EXC_ERROR THEN
5526: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5527: x_return_status := FND_API.G_RET_STS_ERROR;
5528:
5529: WHEN OTHERS THEN
5523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524:
5525: WHEN FND_API.G_EXC_ERROR THEN
5526: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5527: x_return_status := FND_API.G_RET_STS_ERROR;
5528:
5529: WHEN OTHERS THEN
5530: IF (G_DEBUG_UNEXP) THEN
5531: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
5533: || l_progress || ' SQL CODE IS '||sqlcode);
5534: END IF;
5535:
5536: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
5537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5538:
5539: END check_revert_pending_changes;
5540:
5541: --------------------------------------------------------------------------------
5567: --IN OUT:
5568:
5569: -- OUT:
5570: -- x_return_status
5571: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
5572: -- FND_API.G_RET_STS_ERROR if procedure fails
5573: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5574:
5575: -- x_cancel_reqs_flag:
5568:
5569: -- OUT:
5570: -- x_return_status
5571: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
5572: -- FND_API.G_RET_STS_ERROR if procedure fails
5573: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5574:
5575: -- x_cancel_reqs_flag:
5576: -- A 'Y' or 'N' indicating that cancelling backing reqs when PO's are
5569: -- OUT:
5570: -- x_return_status
5571: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
5572: -- FND_API.G_RET_STS_ERROR if procedure fails
5573: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5574:
5575: -- x_cancel_reqs_flag:
5576: -- A 'Y' or 'N' indicating that cancelling backing reqs when PO's are
5577: -- cancelled is desired.
5618: PO_DEBUG.debug_var(d_module,l_progress,'l_show_warning',l_show_warning);
5619:
5620: END IF;
5621:
5622: x_return_status := FND_API.G_RET_STS_SUCCESS;
5623: l_cancel_reqs_flag:=x_cancel_reqs_flag;
5624: x_msg_data :=NULL;
5625:
5626: l_progress := '001';
5696: AND p_req_encumbrance_flag='Y')
5697: THEN
5698: PO_Document_Cancel_PVT.val_cancel_backing_reqs(
5699: p_api_version => 1.0,
5700: p_init_msg_list => FND_API.G_FALSE,
5701: x_return_status => x_return_status,
5702: p_doc_type => p_doc_type,
5703: p_doc_id => p_doc_id );
5704:
5701: x_return_status => x_return_status,
5702: p_doc_type => p_doc_type,
5703: p_doc_id => p_doc_id );
5704:
5705: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5706: -- Cannot cancel backing reqs, so reset to 'N'
5707: x_cancel_reqs_flag := 'N';
5708: x_return_status := FND_API.g_ret_sts_success;
5709:
5704:
5705: IF (x_return_status = FND_API.g_ret_sts_error) THEN
5706: -- Cannot cancel backing reqs, so reset to 'N'
5707: x_cancel_reqs_flag := 'N';
5708: x_return_status := FND_API.g_ret_sts_success;
5709:
5710: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5711: RAISE FND_API.g_exc_unexpected_error;
5712: END IF;
5706: -- Cannot cancel backing reqs, so reset to 'N'
5707: x_cancel_reqs_flag := 'N';
5708: x_return_status := FND_API.g_ret_sts_success;
5709:
5710: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5711: RAISE FND_API.g_exc_unexpected_error;
5712: END IF;
5713: END IF;
5714:
5707: x_cancel_reqs_flag := 'N';
5708: x_return_status := FND_API.g_ret_sts_success;
5709:
5710: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
5711: RAISE FND_API.g_exc_unexpected_error;
5712: END IF;
5713: END IF;
5714:
5715: IF g_debug_stmt THEN
5720: WHEN NO_DATA_FOUND THEN
5721: NULL;
5722:
5723: WHEN OTHERS THEN
5724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5725:
5726: IF (G_DEBUG_UNEXP) THEN
5727: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
5728: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
5767: --IN OUT:
5768:
5769: -- OUT:
5770: -- x_return_status
5771: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
5772: -- FND_API.G_RET_STS_ERROR if procedure fails
5773: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5774:
5775: -- x_return_msg
5768:
5769: -- OUT:
5770: -- x_return_status
5771: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
5772: -- FND_API.G_RET_STS_ERROR if procedure fails
5773: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5774:
5775: -- x_return_msg
5776:
5769: -- OUT:
5770: -- x_return_status
5771: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
5772: -- FND_API.G_RET_STS_ERROR if procedure fails
5773: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5774:
5775: -- x_return_msg
5776:
5777: --End of Comments
5796:
5797:
5798: BEGIN
5799:
5800: x_return_status := FND_API.G_RET_STS_SUCCESS;
5801: x_return_msg :=NULL;
5802: l_org_count :=0;
5803:
5804:
6170: PO_DEBUG.debug_end(d_module);
6171: END IF ;
6172:
6173: EXCEPTION
6174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6175: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
6176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6177:
6178: WHEN FND_API.G_EXC_ERROR THEN
6172:
6173: EXCEPTION
6174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6175: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
6176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6177:
6178: WHEN FND_API.G_EXC_ERROR THEN
6179: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
6180: x_return_status := FND_API.G_RET_STS_ERROR;
6174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6175: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
6176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6177:
6178: WHEN FND_API.G_EXC_ERROR THEN
6179: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
6180: x_return_status := FND_API.G_RET_STS_ERROR;
6181:
6182: WHEN OTHERS THEN
6176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6177:
6178: WHEN FND_API.G_EXC_ERROR THEN
6179: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
6180: x_return_status := FND_API.G_RET_STS_ERROR;
6181:
6182: WHEN OTHERS THEN
6183: IF (G_DEBUG_UNEXP) THEN
6184: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6186: || l_progress || ' SQL CODE IS '||sqlcode);
6187: END IF;
6188:
6189: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,P_ENCODED => 'F');
6190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6191:
6192: END validate_doc_params;
6193:
6194:
6231: --IN OUT:
6232:
6233: -- OUT:
6234: -- x_return_status
6235: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6236: -- FND_API.G_RET_STS_ERROR if procedure fails
6237: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6238:
6239: -- x_return_msg
6232:
6233: -- OUT:
6234: -- x_return_status
6235: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6236: -- FND_API.G_RET_STS_ERROR if procedure fails
6237: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6238:
6239: -- x_return_msg
6240:
6233: -- OUT:
6234: -- x_return_status
6235: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6236: -- FND_API.G_RET_STS_ERROR if procedure fails
6237: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6238:
6239: -- x_return_msg
6240:
6241: --End of Comments
6281: END IF;
6282:
6283: l_progress := '001';
6284:
6285: x_return_status := FND_API.G_RET_STS_SUCCESS;
6286: x_return_msg:=NULL;
6287:
6288: l_entity_rec_tbl :=p_da_call_rec.entity_dtl_record_tbl;
6289: l_action_date :=p_da_call_rec.action_date;
6306: p_sequence =>p_sequence,
6307: x_return_status => x_return_status,
6308: x_return_msg =>x_return_msg );
6309:
6310: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6311: RAISE FND_API.g_exc_error;
6312: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6313: RAISE FND_API.g_exc_unexpected_error;
6314: END IF;
6307: x_return_status => x_return_status,
6308: x_return_msg =>x_return_msg );
6309:
6310: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6311: RAISE FND_API.g_exc_error;
6312: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6313: RAISE FND_API.g_exc_unexpected_error;
6314: END IF;
6315:
6308: x_return_msg =>x_return_msg );
6309:
6310: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6311: RAISE FND_API.g_exc_error;
6312: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6313: RAISE FND_API.g_exc_unexpected_error;
6314: END IF;
6315:
6316: l_progress := '004';
6309:
6310: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6311: RAISE FND_API.g_exc_error;
6312: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6313: RAISE FND_API.g_exc_unexpected_error;
6314: END IF;
6315:
6316: l_progress := '004';
6317:
6331: -- If x_action_date is NULL, then sets it to a valid CBC accounting
6332: -- date if CBC is enabled. Otherwise, sets it to the current system date.
6333: PO_DOCUMENT_CONTROL_PVT.init_action_date(
6334: p_api_version => 1.0,
6335: p_init_msg_list => FND_API.G_FALSE,
6336: x_return_status => x_return_status,
6337: p_doc_type => l_entity_rec_tbl(i).document_type,
6338: p_doc_subtype => l_entity_rec_tbl(i).document_subtype,
6339: p_doc_id => l_entity_rec_tbl(i).doc_id,
6340: x_action_date => l_action_date,
6341: x_cbc_enabled => l_cbc_enabled);
6342:
6343:
6344: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6345: RAISE FND_API.g_exc_error;
6346: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6347: RAISE FND_API.g_exc_unexpected_error;
6348: END IF;
6341: x_cbc_enabled => l_cbc_enabled);
6342:
6343:
6344: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6345: RAISE FND_API.g_exc_error;
6346: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6347: RAISE FND_API.g_exc_unexpected_error;
6348: END IF;
6349:
6342:
6343:
6344: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6345: RAISE FND_API.g_exc_error;
6346: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6347: RAISE FND_API.g_exc_unexpected_error;
6348: END IF;
6349:
6350: END IF; --nvl(l_source,'NULL') NOT IN (PO_DOCUMENT_CANCEL_PVT.c_HTML_CONTROL_ACTION,PO_DOCUMENT_CANCEL_PVT.c_FORM_CONTROL_ACTION)
6343:
6344: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6345: RAISE FND_API.g_exc_error;
6346: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6347: RAISE FND_API.g_exc_unexpected_error;
6348: END IF;
6349:
6350: END IF; --nvl(l_source,'NULL') NOT IN (PO_DOCUMENT_CANCEL_PVT.c_HTML_CONTROL_ACTION,PO_DOCUMENT_CANCEL_PVT.c_FORM_CONTROL_ACTION)
6351:
6361: -- If encumbrance is on, checks that l_action_date lies in an open GL period
6362: -- Also checks that action_date is a valid CBC accounting date if cbc is enabled
6363: PO_DOCUMENT_CONTROL_PVT.val_action_date(
6364: p_api_version => 1.0,
6365: p_init_msg_list => FND_API.G_FALSE,
6366: x_return_status => x_return_status,
6367: p_doc_type => l_entity_rec_tbl(i).document_type,
6368: p_doc_subtype => l_entity_rec_tbl(i).document_subtype,
6369: p_doc_id => l_entity_rec_tbl(i).doc_id,
6380: PO_DEBUG.debug_var(d_module,l_progress,'x_return_status',x_return_status);
6381: END IF;
6382:
6383: -- If the valdation fails then insert error into online report text
6384: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6385:
6386: INSERT INTO po_online_report_text(
6387: ONLINE_REPORT_ID,
6388: LAST_UPDATE_LOGIN,
6467: PO_DEBUG.debug_end(d_module);
6468: END IF ;
6469:
6470: EXCEPTION
6471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6472: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6473: P_ENCODED => 'F');
6474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6475:
6470: EXCEPTION
6471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6472: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6473: P_ENCODED => 'F');
6474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6475:
6476: WHEN FND_API.G_EXC_ERROR THEN
6477: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6478: P_ENCODED => 'F');
6472: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6473: P_ENCODED => 'F');
6474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6475:
6476: WHEN FND_API.G_EXC_ERROR THEN
6477: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6478: P_ENCODED => 'F');
6479: x_return_status := FND_API.G_RET_STS_ERROR;
6480:
6475:
6476: WHEN FND_API.G_EXC_ERROR THEN
6477: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6478: P_ENCODED => 'F');
6479: x_return_status := FND_API.G_RET_STS_ERROR;
6480:
6481: WHEN OTHERS THEN
6482: IF (G_DEBUG_UNEXP) THEN
6483: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6487:
6488:
6489: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6490: P_ENCODED => 'F');
6491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6492:
6493:
6494: END validate_cancel_action_params;
6495:
6517: --IN OUT:
6518:
6519: -- OUT:
6520: -- x_return_status
6521: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6522: -- FND_API.G_RET_STS_ERROR if procedure fails
6523: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6524:
6525: -- x_return_msg
6518:
6519: -- OUT:
6520: -- x_return_status
6521: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6522: -- FND_API.G_RET_STS_ERROR if procedure fails
6523: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6524:
6525: -- x_return_msg
6526:
6519: -- OUT:
6520: -- x_return_status
6521: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6522: -- FND_API.G_RET_STS_ERROR if procedure fails
6523: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6524:
6525: -- x_return_msg
6526:
6527: --End of Comments
6554: END IF;
6555:
6556: l_progress := '001';
6557:
6558: x_return_status := FND_API.G_RET_STS_SUCCESS;
6559: x_return_msg:=NULL;
6560: x_return_code :='S';
6561:
6562:
6625: PO_DEBUG.debug_end(d_module);
6626: END IF ;
6627:
6628: EXCEPTION
6629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6630: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6631: P_ENCODED => 'F');
6632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6633:
6628: EXCEPTION
6629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6630: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6631: P_ENCODED => 'F');
6632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6633:
6634: WHEN FND_API.G_EXC_ERROR THEN
6635: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6636: P_ENCODED => 'F');
6630: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6631: P_ENCODED => 'F');
6632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6633:
6634: WHEN FND_API.G_EXC_ERROR THEN
6635: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6636: P_ENCODED => 'F');
6637: x_return_status := FND_API.G_RET_STS_ERROR;
6638:
6633:
6634: WHEN FND_API.G_EXC_ERROR THEN
6635: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6636: P_ENCODED => 'F');
6637: x_return_status := FND_API.G_RET_STS_ERROR;
6638:
6639: WHEN OTHERS THEN
6640: IF (G_DEBUG_UNEXP) THEN
6641: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6645:
6646:
6647: x_return_msg := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6648: P_ENCODED => 'F');
6649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6650:
6651:
6652: END mark_errored_record;
6653:
6696: --IN OUT:
6697:
6698: -- OUT:
6699: -- x_return_status
6700: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6701: -- FND_API.G_RET_STS_ERROR if procedure fails
6702: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6703:
6704: -- x_msg_data
6697:
6698: -- OUT:
6699: -- x_return_status
6700: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6701: -- FND_API.G_RET_STS_ERROR if procedure fails
6702: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6703:
6704: -- x_msg_data
6705:
6698: -- OUT:
6699: -- x_return_status
6700: -- FND_API.G_RET_STS_SUCCESS if procedure succeeds
6701: -- FND_API.G_RET_STS_ERROR if procedure fails
6702: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
6703:
6704: -- x_msg_data
6705:
6706: --End of Comments
6745: END IF;
6746:
6747:
6748: l_key :=p_key;
6749: x_return_status := FND_API.g_ret_sts_success;
6750: x_msg_data:=NULL;
6751: x_return_code :='S';
6752: l_sequence := 0;
6753:
6785:
6786:
6787:
6788:
6789: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6790: RAISE FND_API.g_exc_error;
6791: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6792: RAISE FND_API.g_exc_unexpected_error;
6793: END IF;
6786:
6787:
6788:
6789: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6790: RAISE FND_API.g_exc_error;
6791: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6792: RAISE FND_API.g_exc_unexpected_error;
6793: END IF;
6794:
6787:
6788:
6789: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6790: RAISE FND_API.g_exc_error;
6791: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6792: RAISE FND_API.g_exc_unexpected_error;
6793: END IF;
6794:
6795:
6788:
6789: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6790: RAISE FND_API.g_exc_error;
6791: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6792: RAISE FND_API.g_exc_unexpected_error;
6793: END IF;
6794:
6795:
6796: l_progress := '004';
6815: x_return_msg => x_msg_data);
6816:
6817:
6818:
6819: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6820: RAISE FND_API.g_exc_error;
6821: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6822: RAISE FND_API.g_exc_unexpected_error;
6823: END IF;
6816:
6817:
6818:
6819: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6820: RAISE FND_API.g_exc_error;
6821: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6822: RAISE FND_API.g_exc_unexpected_error;
6823: END IF;
6824:
6817:
6818:
6819: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6820: RAISE FND_API.g_exc_error;
6821: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6822: RAISE FND_API.g_exc_unexpected_error;
6823: END IF;
6824:
6825:
6818:
6819: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6820: RAISE FND_API.g_exc_error;
6821: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6822: RAISE FND_API.g_exc_unexpected_error;
6823: END IF;
6824:
6825:
6826: l_progress := '005';
6839: x_return_msg => x_msg_data);
6840:
6841:
6842:
6843: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6844: RAISE FND_API.g_exc_error;
6845: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6846: RAISE FND_API.g_exc_unexpected_error;
6847: END IF;
6840:
6841:
6842:
6843: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6844: RAISE FND_API.g_exc_error;
6845: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6846: RAISE FND_API.g_exc_unexpected_error;
6847: END IF;
6848:
6841:
6842:
6843: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6844: RAISE FND_API.g_exc_error;
6845: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6846: RAISE FND_API.g_exc_unexpected_error;
6847: END IF;
6848:
6849: l_progress := '006';
6842:
6843: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6844: RAISE FND_API.g_exc_error;
6845: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6846: RAISE FND_API.g_exc_unexpected_error;
6847: END IF;
6848:
6849: l_progress := '006';
6850: l_temp_key :=l_key;
6865: x_return_status =>x_return_status,
6866: x_msg_data =>x_msg_data);
6867:
6868:
6869: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6870: RAISE FND_API.g_exc_error;
6871: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6872: RAISE FND_API.g_exc_unexpected_error;
6873: END IF;
6866: x_msg_data =>x_msg_data);
6867:
6868:
6869: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6870: RAISE FND_API.g_exc_error;
6871: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6872: RAISE FND_API.g_exc_unexpected_error;
6873: END IF;
6874:
6867:
6868:
6869: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6870: RAISE FND_API.g_exc_error;
6871: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6872: RAISE FND_API.g_exc_unexpected_error;
6873: END IF;
6874:
6875: IF g_debug_stmt THEN
6868:
6869: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6870: RAISE FND_API.g_exc_error;
6871: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6872: RAISE FND_API.g_exc_unexpected_error;
6873: END IF;
6874:
6875: IF g_debug_stmt THEN
6876: PO_DEBUG.debug_var(d_module,l_progress,'l_key',l_key);
6882: -- Lock all the docuemnts being cancelled
6883: PO_DOCUMENT_LOCK_GRP.lock_document (
6884: p_online_report_id =>l_online_report_id,
6885: p_api_version =>1.0,
6886: p_init_msg_list =>FND_API.G_FALSE,
6887: po_sesiongt_key => l_key,
6888: p_user_id => p_user_id,
6889: p_login_id =>p_login_id,
6890: x_return_status =>x_return_status);
6888: p_user_id => p_user_id,
6889: p_login_id =>p_login_id,
6890: x_return_status =>x_return_status);
6891:
6892: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6893: RAISE FND_API.g_exc_error;
6894: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6895: RAISE FND_API.g_exc_unexpected_error;
6896: END IF;
6889: p_login_id =>p_login_id,
6890: x_return_status =>x_return_status);
6891:
6892: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6893: RAISE FND_API.g_exc_error;
6894: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6895: RAISE FND_API.g_exc_unexpected_error;
6896: END IF;
6897:
6890: x_return_status =>x_return_status);
6891:
6892: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6893: RAISE FND_API.g_exc_error;
6894: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6895: RAISE FND_API.g_exc_unexpected_error;
6896: END IF;
6897:
6898:
6891:
6892: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6893: RAISE FND_API.g_exc_error;
6894: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6895: RAISE FND_API.g_exc_unexpected_error;
6896: END IF;
6897:
6898:
6899: l_progress := '008';
6913: x_return_status => x_return_status,
6914: x_return_msg => x_msg_data);
6915:
6916:
6917: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6918: RAISE FND_API.g_exc_error;
6919: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6920: RAISE FND_API.g_exc_unexpected_error;
6921: END IF;
6914: x_return_msg => x_msg_data);
6915:
6916:
6917: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6918: RAISE FND_API.g_exc_error;
6919: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6920: RAISE FND_API.g_exc_unexpected_error;
6921: END IF;
6922:
6915:
6916:
6917: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6918: RAISE FND_API.g_exc_error;
6919: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6920: RAISE FND_API.g_exc_unexpected_error;
6921: END IF;
6922:
6923:
6916:
6917: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6918: RAISE FND_API.g_exc_error;
6919: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6920: RAISE FND_API.g_exc_unexpected_error;
6921: END IF;
6922:
6923:
6924: l_progress := '009';
6936: x_return_status => x_return_status,
6937: x_return_msg => x_msg_data);
6938:
6939:
6940: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6941: RAISE FND_API.g_exc_error;
6942: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6943: RAISE FND_API.g_exc_unexpected_error;
6944: END IF;
6937: x_return_msg => x_msg_data);
6938:
6939:
6940: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6941: RAISE FND_API.g_exc_error;
6942: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6943: RAISE FND_API.g_exc_unexpected_error;
6944: END IF;
6945:
6938:
6939:
6940: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6941: RAISE FND_API.g_exc_error;
6942: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6943: RAISE FND_API.g_exc_unexpected_error;
6944: END IF;
6945:
6946: l_progress := '010';
6939:
6940: IF (x_return_status = FND_API.g_ret_sts_error) THEN
6941: RAISE FND_API.g_exc_error;
6942: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
6943: RAISE FND_API.g_exc_unexpected_error;
6944: END IF;
6945:
6946: l_progress := '010';
6947:
6964: END IF ;
6965:
6966:
6967: EXCEPTION
6968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6969: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6970: P_ENCODED => 'F');
6971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6972: IF (G_DEBUG_UNEXP) THEN
6967: EXCEPTION
6968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6969: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6970: P_ENCODED => 'F');
6971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6972: IF (G_DEBUG_UNEXP) THEN
6973: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6974: d_module || '.UNEXPECTED_EXCEPTION', 'EXCEPTION: LOCATION IS '
6975: || l_progress || ' SQL CODE IS '||sqlcode);
6975: || l_progress || ' SQL CODE IS '||sqlcode);
6976: END IF;
6977:
6978:
6979: WHEN FND_API.G_EXC_ERROR THEN
6980: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6981: P_ENCODED => 'F');
6982: x_return_status := FND_API.G_RET_STS_ERROR;
6983:
6978:
6979: WHEN FND_API.G_EXC_ERROR THEN
6980: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6981: P_ENCODED => 'F');
6982: x_return_status := FND_API.G_RET_STS_ERROR;
6983:
6984: IF (G_DEBUG_UNEXP) THEN
6985: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6986: d_module || '.ERROR', 'ERROR: LOCATION IS '
6996:
6997:
6998: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6999: P_ENCODED => 'F');
7000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7001:
7002: END validate_cancel_action;
7003:
7004: