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);
680: RETURN;
681:
682: WHEN OTHERS THEN
683:
684: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
685: FND_MSG_PUB.Add_Exc_Msg(
686: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
687: END IF;
688:
681:
682: WHEN OTHERS THEN
683:
684: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
685: FND_MSG_PUB.Add_Exc_Msg(
686: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
687: END IF;
688:
689: return;
739: RETURN;
740:
741: WHEN OTHERS THEN
742:
743: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
744: FND_MSG_PUB.Add_Exc_Msg(
745: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
746: END IF;
747:
740:
741: WHEN OTHERS THEN
742:
743: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
744: FND_MSG_PUB.Add_Exc_Msg(
745: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
746: END IF;
747:
748: return;
896: RETURN;
897:
898: WHEN OTHERS THEN
899:
900: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
901: FND_MSG_PUB.Add_Exc_Msg(
902: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
903: END IF;
904:
897:
898: WHEN OTHERS THEN
899:
900: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
901: FND_MSG_PUB.Add_Exc_Msg(
902: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
903: END IF;
904:
905: return;
970: WHEN NO_DATA_FOUND THEN
971: RETURN;
972: WHEN OTHERS THEN
973:
974: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
975: FND_MSG_PUB.Add_Exc_Msg(
976: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
977: END IF;
978:
971: RETURN;
972: WHEN OTHERS THEN
973:
974: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
975: FND_MSG_PUB.Add_Exc_Msg(
976: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
977: END IF;
978:
979: END calculate_demand;
1044: EXCEPTION
1045: WHEN NO_DATA_FOUND THEN
1046: RETURN;
1047: WHEN OTHERS THEN
1048: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1049: FND_MSG_PUB.Add_Exc_Msg(
1050: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1051: END IF;
1052:
1045: WHEN NO_DATA_FOUND THEN
1046: RETURN;
1047: WHEN OTHERS THEN
1048: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1049: FND_MSG_PUB.Add_Exc_Msg(
1050: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1051: END IF;
1052:
1053: END calculate_demand_mix;
1223: WHEN NO_DATA_FOUND THEN
1224: RETURN NULL;
1225: WHEN OTHERS THEN
1226:
1227: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1228: FND_MSG_PUB.Add_Exc_Msg(V_PKG_NAME, V_PROCEDURE_NAME);
1229: END IF;
1230:
1231: END mix_model;
1224: RETURN NULL;
1225: WHEN OTHERS THEN
1226:
1227: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1228: FND_MSG_PUB.Add_Exc_Msg(V_PKG_NAME, V_PROCEDURE_NAME);
1229: END IF;
1230:
1231: END mix_model;
1232:
1700: END IF;
1701: RETURN;
1702: WHEN OTHERS THEN
1703:
1704: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1705: FND_MSG_PUB.Add_Exc_Msg(
1706: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1707: END IF;
1708:
1701: RETURN;
1702: WHEN OTHERS THEN
1703:
1704: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1705: FND_MSG_PUB.Add_Exc_Msg(
1706: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1707: END IF;
1708:
1709: IF (dbms_sql.is_open(cursor_name)) THEN
1852: RETURN;
1853:
1854: WHEN OTHERS THEN
1855:
1856: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1857: FND_MSG_PUB.Add_Exc_Msg(
1858: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1859: END IF;
1860:
1853:
1854: WHEN OTHERS THEN
1855:
1856: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1857: FND_MSG_PUB.Add_Exc_Msg(
1858: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
1859: END IF;
1860:
1861: IF (dbms_sql.is_open(cursor_name)) THEN
2421: RETURN;
2422:
2423: WHEN OTHERS THEN
2424:
2425: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2426: FND_MSG_PUB.Add_Exc_Msg(
2427: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
2428: END IF;
2429:
2422:
2423: WHEN OTHERS THEN
2424:
2425: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2426: FND_MSG_PUB.Add_Exc_Msg(
2427: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
2428: END IF;
2429:
2430: IF (dbms_sql.is_open(cursor_name)) THEN
2706:
2707: EXCEPTION
2708: WHEN OTHERS THEN
2709:
2710: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2711: FND_MSG_PUB.Add_Exc_Msg(
2712: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
2713: END IF;
2714:
2707: EXCEPTION
2708: WHEN OTHERS THEN
2709:
2710: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2711: FND_MSG_PUB.Add_Exc_Msg(
2712: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
2713: END IF;
2714:
2715: RETURN;
3237: RETURN;
3238:
3239: WHEN OTHERS THEN
3240:
3241: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3242: FND_MSG_PUB.Add_Exc_Msg(
3243: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
3244: END IF;
3245:
3238:
3239: WHEN OTHERS THEN
3240:
3241: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3242: FND_MSG_PUB.Add_Exc_Msg(
3243: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
3244: END IF;
3245:
3246: IF (dbms_sql.is_open(cursor_name)) THEN
3319: EXCEPTION
3320:
3321: WHEN OTHERS THEN
3322:
3323: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3324: FND_MSG_PUB.Add_Exc_Msg(
3325: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
3326: END IF;
3327:
3320:
3321: WHEN OTHERS THEN
3322:
3323: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3324: FND_MSG_PUB.Add_Exc_Msg(
3325: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
3326: END IF;
3327:
3328: return;
4173: IF (dbms_sql.is_open(cursor_name)) THEN
4174: dbms_sql.close_cursor(cursor_name);
4175: END IF;
4176:
4177: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4178: FND_MSG_PUB.Add_Exc_Msg(
4179: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
4180: END IF;
4181:
4174: dbms_sql.close_cursor(cursor_name);
4175: END IF;
4176:
4177: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4178: FND_MSG_PUB.Add_Exc_Msg(
4179: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
4180: END IF;
4181:
4182: return;
4525: ROLLBACK TO MRP_begin_PVT;
4526:
4527: -- dbms_output.put_line('There is an error!!!!');
4528:
4529: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4530: FND_MSG_PUB.Add_Exc_Msg(
4531: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
4532: END IF;
4533:
4526:
4527: -- dbms_output.put_line('There is an error!!!!');
4528:
4529: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4530: FND_MSG_PUB.Add_Exc_Msg(
4531: V_PKG_NAME,V_PROCEDURE_NAME||': Line '||to_char(V_ERROR_LINE));
4532: END IF;
4533:
4534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4533:
4534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4535: -- dbms_output.put_line('!!!ERROR!!!:' || to_char(sqlcode) ||
4536: -- substr(sqlerrm,1,60));
4537: FND_MSG_PUB.Count_And_Get
4538: (p_count => x_msg_count,
4539: p_data => x_msg_data
4540: );
4541: return;