245: RAISE;
246:
247: WHEN OTHERS THEN
248:
249: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
250: THEN
251: OE_MSG_PUB.Add_Exc_Msg
252: ( G_PKG_NAME
253: , 'Formula'
247: WHEN OTHERS THEN
248:
249: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
250: THEN
251: OE_MSG_PUB.Add_Exc_Msg
252: ( G_PKG_NAME
253: , 'Formula'
254: );
255: END IF;
520: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: l_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
522: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
523:
524: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
526: OE_MSG_PUB.Add_Exc_Msg
527: ( G_PKG_NAME
528: , 'Formula_Liness'
522: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
523:
524: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
526: OE_MSG_PUB.Add_Exc_Msg
527: ( G_PKG_NAME
528: , 'Formula_Liness'
529: );
530: END IF;
552: RAISE;
553:
554: WHEN OTHERS THEN
555:
556: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
557: THEN
558: OE_MSG_PUB.Add_Exc_Msg
559: ( G_PKG_NAME
560: , 'Formula_Liness'
554: WHEN OTHERS THEN
555:
556: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
557: THEN
558: OE_MSG_PUB.Add_Exc_Msg
559: ( G_PKG_NAME
560: , 'Formula_Liness'
561: );
562: END IF;
639:
640: -- Initialize message list.
641:
642: IF FND_API.to_Boolean(p_init_msg_list) THEN
643: OE_MSG_PUB.initialize;
644: END IF;
645:
646:
647: -- Disallow calls to procedure if QP not installed or installed only
652: IF l_qp_status = 'N' THEN
653:
654: l_return_status := FND_API.G_RET_STS_ERROR;
655: FND_MESSAGE.SET_NAME('QP','QP_PRICING_NOT_INSTALLED');
656: OE_MSG_PUB.Add;
657: RAISE FND_API.G_EXC_ERROR;
658:
659: END IF;
660:
778: END LOOP;
779:
780: -- Get message count and data
781:
782: OE_MSG_PUB.Count_And_Get
783: ( p_count => x_msg_count
784: , p_data => x_msg_data
785: );
786:
793: x_return_status := FND_API.G_RET_STS_ERROR;
794:
795: -- Get message count and data
796:
797: OE_MSG_PUB.Count_And_Get
798: ( p_count => x_msg_count
799: , p_data => x_msg_data
800: );
801:
804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
805:
806: -- Get message count and data
807:
808: OE_MSG_PUB.Count_And_Get
809: ( p_count => x_msg_count
810: , p_data => x_msg_data
811: );
812:
813: WHEN OTHERS THEN
814:
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
816:
817: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
818: THEN
819: OE_MSG_PUB.Add_Exc_Msg
820: ( G_PKG_NAME
821: , 'Process_Price_Formula'
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
816:
817: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
818: THEN
819: OE_MSG_PUB.Add_Exc_Msg
820: ( G_PKG_NAME
821: , 'Process_Price_Formula'
822: );
823: END IF;
823: END IF;
824:
825: -- Get message count and data
826:
827: OE_MSG_PUB.Count_And_Get
828: ( p_count => x_msg_count
829: , p_data => x_msg_data
830: );
831:
882:
883: -- Initialize message list.
884:
885: IF FND_API.to_Boolean(p_init_msg_list) THEN
886: OE_MSG_PUB.initialize;
887: END IF;
888:
889: -- Set Savepoint
890:
938: x_return_status := FND_API.G_RET_STS_SUCCESS;
939:
940: -- Get message count and data
941:
942: OE_MSG_PUB.Count_And_Get
943: ( p_count => x_msg_count
944: , p_data => x_msg_data
945: );
946:
953: x_return_status := FND_API.G_RET_STS_ERROR;
954:
955: -- Get message count and data
956:
957: OE_MSG_PUB.Count_And_Get
958: ( p_count => x_msg_count
959: , p_data => x_msg_data
960: );
961:
968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
969:
970: -- Get message count and data
971:
972: OE_MSG_PUB.Count_And_Get
973: ( p_count => x_msg_count
974: , p_data => x_msg_data
975: );
976:
981: WHEN OTHERS THEN
982:
983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
984:
985: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
986: THEN
987: OE_MSG_PUB.Add_Exc_Msg
988: ( G_PKG_NAME
989: , 'Lock_Price_Formula'
983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
984:
985: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
986: THEN
987: OE_MSG_PUB.Add_Exc_Msg
988: ( G_PKG_NAME
989: , 'Lock_Price_Formula'
990: );
991: END IF;
991: END IF;
992:
993: -- Get message count and data
994:
995: OE_MSG_PUB.Count_And_Get
996: ( p_count => x_msg_count
997: , p_data => x_msg_data
998: );
999:
1051:
1052: -- Initialize message list.
1053:
1054: IF FND_API.to_Boolean(p_init_msg_list) THEN
1055: OE_MSG_PUB.initialize;
1056: END IF;
1057:
1058: -- Get FORMULA ( parent = FORMULA )
1059:
1078: x_return_status := FND_API.G_RET_STS_SUCCESS;
1079:
1080: -- Get message count and data
1081:
1082: OE_MSG_PUB.Count_And_Get
1083: ( p_count => x_msg_count
1084: , p_data => x_msg_data
1085: );
1086:
1093: x_return_status := FND_API.G_RET_STS_ERROR;
1094:
1095: -- Get message count and data
1096:
1097: OE_MSG_PUB.Count_And_Get
1098: ( p_count => x_msg_count
1099: , p_data => x_msg_data
1100: );
1101:
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1105:
1106: -- Get message count and data
1107:
1108: OE_MSG_PUB.Count_And_Get
1109: ( p_count => x_msg_count
1110: , p_data => x_msg_data
1111: );
1112:
1113: WHEN OTHERS THEN
1114:
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1116:
1117: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1118: THEN
1119: OE_MSG_PUB.Add_Exc_Msg
1120: ( G_PKG_NAME
1121: , 'Get_Price_Formula'
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1116:
1117: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1118: THEN
1119: OE_MSG_PUB.Add_Exc_Msg
1120: ( G_PKG_NAME
1121: , 'Get_Price_Formula'
1122: );
1123: END IF;
1123: END IF;
1124:
1125: -- Get message count and data
1126:
1127: OE_MSG_PUB.Count_And_Get
1128: ( p_count => x_msg_count
1129: , p_data => x_msg_data
1130: );
1131: