135: IF (dbms_sql.is_open(cursor_name)) THEN
136: dbms_sql.close_cursor(cursor_name);
137: END IF;
138:
139: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
140: FND_MSG_PUB.Add_Exc_Msg(
141: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
142: END IF;
143:
136: dbms_sql.close_cursor(cursor_name);
137: END IF;
138:
139: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
140: FND_MSG_PUB.Add_Exc_Msg(
141: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
142: END IF;
143:
144: RETURN NULL;
472: RETURN;
473:
474: WHEN OTHERS THEN
475:
476: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
477: FND_MSG_PUB.Add_Exc_Msg(
478: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
479: END IF;
480:
473:
474: WHEN OTHERS THEN
475:
476: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
477: FND_MSG_PUB.Add_Exc_Msg(
478: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
479: END IF;
480:
481: return;
573: WHEN NO_DATA_FOUND THEN
574: RETURN(NULL);
575:
576: WHEN OTHERS THEN
577: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
578: FND_MSG_PUB.Add_Exc_Msg(
579: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
580: END IF;
581:
574: RETURN(NULL);
575:
576: WHEN OTHERS THEN
577: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
578: FND_MSG_PUB.Add_Exc_Msg(
579: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
580: END IF;
581:
582: return(NULL);
681: RETURN;
682:
683: WHEN OTHERS THEN
684:
685: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
686: FND_MSG_PUB.Add_Exc_Msg(
687: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
688: END IF;
689:
682:
683: WHEN OTHERS THEN
684:
685: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
686: FND_MSG_PUB.Add_Exc_Msg(
687: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
688: END IF;
689:
690: return;
740: RETURN;
741:
742: WHEN OTHERS THEN
743:
744: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
745: FND_MSG_PUB.Add_Exc_Msg(
746: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
747: END IF;
748:
741:
742: WHEN OTHERS THEN
743:
744: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
745: FND_MSG_PUB.Add_Exc_Msg(
746: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
747: END IF;
748:
749: return;
897: RETURN;
898:
899: WHEN OTHERS THEN
900:
901: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
902: FND_MSG_PUB.Add_Exc_Msg(
903: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
904: END IF;
905:
898:
899: WHEN OTHERS THEN
900:
901: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
902: FND_MSG_PUB.Add_Exc_Msg(
903: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
904: END IF;
905:
906: return;
971: WHEN NO_DATA_FOUND THEN
972: RETURN;
973: WHEN OTHERS THEN
974:
975: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
976: FND_MSG_PUB.Add_Exc_Msg(
977: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
978: END IF;
979:
972: RETURN;
973: WHEN OTHERS THEN
974:
975: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
976: FND_MSG_PUB.Add_Exc_Msg(
977: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
978: END IF;
979:
980: END calculate_demand;
1045: EXCEPTION
1046: WHEN NO_DATA_FOUND THEN
1047: RETURN;
1048: WHEN OTHERS THEN
1049: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1050: FND_MSG_PUB.Add_Exc_Msg(
1051: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1052: END IF;
1053:
1046: WHEN NO_DATA_FOUND THEN
1047: RETURN;
1048: WHEN OTHERS THEN
1049: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1050: FND_MSG_PUB.Add_Exc_Msg(
1051: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1052: END IF;
1053:
1054: END calculate_demand_mix;
1224: WHEN NO_DATA_FOUND THEN
1225: RETURN NULL;
1226: WHEN OTHERS THEN
1227:
1228: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1229: FND_MSG_PUB.Add_Exc_Msg(V_PKG_NAME, V_PROCEDURE_NAME);
1230: END IF;
1231:
1232: END mix_model;
1225: RETURN NULL;
1226: WHEN OTHERS THEN
1227:
1228: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1229: FND_MSG_PUB.Add_Exc_Msg(V_PKG_NAME, V_PROCEDURE_NAME);
1230: END IF;
1231:
1232: END mix_model;
1233:
1701: END IF;
1702: RETURN;
1703: WHEN OTHERS THEN
1704:
1705: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1706: FND_MSG_PUB.Add_Exc_Msg(
1707: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1708: END IF;
1709:
1702: RETURN;
1703: WHEN OTHERS THEN
1704:
1705: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1706: FND_MSG_PUB.Add_Exc_Msg(
1707: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1708: END IF;
1709:
1710: IF (dbms_sql.is_open(cursor_name)) THEN
1853: RETURN;
1854:
1855: WHEN OTHERS THEN
1856:
1857: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1858: FND_MSG_PUB.Add_Exc_Msg(
1859: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1860: END IF;
1861:
1854:
1855: WHEN OTHERS THEN
1856:
1857: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1858: FND_MSG_PUB.Add_Exc_Msg(
1859: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1860: END IF;
1861:
1862: IF (dbms_sql.is_open(cursor_name)) THEN
2422: RETURN;
2423:
2424: WHEN OTHERS THEN
2425:
2426: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2427: FND_MSG_PUB.Add_Exc_Msg(
2428: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
2429: END IF;
2430:
2423:
2424: WHEN OTHERS THEN
2425:
2426: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2427: FND_MSG_PUB.Add_Exc_Msg(
2428: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
2429: END IF;
2430:
2431: IF (dbms_sql.is_open(cursor_name)) THEN
2707:
2708: EXCEPTION
2709: WHEN OTHERS THEN
2710:
2711: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2712: FND_MSG_PUB.Add_Exc_Msg(
2713: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
2714: END IF;
2715:
2708: EXCEPTION
2709: WHEN OTHERS THEN
2710:
2711: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2712: FND_MSG_PUB.Add_Exc_Msg(
2713: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
2714: END IF;
2715:
2716: RETURN;
3238: RETURN;
3239:
3240: WHEN OTHERS THEN
3241:
3242: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3243: FND_MSG_PUB.Add_Exc_Msg(
3244: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
3245: END IF;
3246:
3239:
3240: WHEN OTHERS THEN
3241:
3242: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3243: FND_MSG_PUB.Add_Exc_Msg(
3244: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
3245: END IF;
3246:
3247: IF (dbms_sql.is_open(cursor_name)) THEN
3320: EXCEPTION
3321:
3322: WHEN OTHERS THEN
3323:
3324: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3325: FND_MSG_PUB.Add_Exc_Msg(
3326: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
3327: END IF;
3328:
3321:
3322: WHEN OTHERS THEN
3323:
3324: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3325: FND_MSG_PUB.Add_Exc_Msg(
3326: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
3327: END IF;
3328:
3329: return;
4174: IF (dbms_sql.is_open(cursor_name)) THEN
4175: dbms_sql.close_cursor(cursor_name);
4176: END IF;
4177:
4178: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4179: FND_MSG_PUB.Add_Exc_Msg(
4180: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
4181: END IF;
4182:
4175: dbms_sql.close_cursor(cursor_name);
4176: END IF;
4177:
4178: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4179: FND_MSG_PUB.Add_Exc_Msg(
4180: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
4181: END IF;
4182:
4183: return;
4526: ROLLBACK TO MRP_begin_PVT;
4527:
4528: -- dbms_output.put_line('There is an error!!!!');
4529:
4530: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4531: FND_MSG_PUB.Add_Exc_Msg(
4532: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
4533: END IF;
4534:
4527:
4528: -- dbms_output.put_line('There is an error!!!!');
4529:
4530: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4531: FND_MSG_PUB.Add_Exc_Msg(
4532: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
4533: END IF;
4534:
4535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4534:
4535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4536: -- dbms_output.put_line('!!!ERROR!!!:' || to_char(sqlcode) ||
4537: -- substr(sqlerrm,1,60));
4538: FND_MSG_PUB.Count_And_Get
4539: (p_count => x_msg_count,
4540: p_data => x_msg_data
4541: );
4542: return;