[Home] [Help]
19: l_src_attr_tbl QP_GLOBALS.NUMBER_Tbl_Type;
20: l_dep_attr_tbl QP_GLOBALS.NUMBER_Tbl_Type;
21: BEGIN
22:
23: oe_debug_pub.add('Entering proc clear_dependent_attr in Formula Util Pkg');
24: -- Load out record
25:
26: x_FORMULA_rec := p_FORMULA_rec;
27:
274: l_index := l_index + 1;
275: l_src_attr_tbl(l_index) := QP_FORMULA_UTIL.G_START_DATE_ACTIVE;
276: END IF;
277:
278: oe_debug_pub.add('Leaving proc clear_dependent_attr in Formula Util Pkg');
279: END Clear_Dependent_Attr;
280:
281: -- Procedure Apply_Attribute_Changes
282:
288: )
289: IS
290: BEGIN
291:
292: oe_debug_pub.add('Entering proc Apply_attribute_Changes in Formula Util Pkg');
293: -- Load out NOCOPY record
294:
295: x_FORMULA_rec := p_FORMULA_rec;
296:
428: THEN
429: NULL;
430: END IF;
431:
432: oe_debug_pub.add('Leaving proc Apply_attribute_Changes in Formula Util Pkg');
433: END Apply_Attribute_Changes;
434:
435: -- Function Complete_Record
436:
441: IS
442: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
443: BEGIN
444:
445: oe_debug_pub.add('Entering proc Complete_Record in Formula Util Pkg');
446: IF l_FORMULA_rec.attribute1 = FND_API.G_MISS_CHAR THEN
447: l_FORMULA_rec.attribute1 := p_old_FORMULA_rec.attribute1;
448: END IF;
449:
550: IF l_FORMULA_rec.start_date_active = FND_API.G_MISS_DATE THEN
551: l_FORMULA_rec.start_date_active := p_old_FORMULA_rec.start_date_active;
552: END IF;
553:
554: oe_debug_pub.add('Leaving proc Complete_Record in Formula Util Pkg');
555: RETURN l_FORMULA_rec;
556:
557: END Complete_Record;
558:
564: IS
565: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
566: BEGIN
567:
568: oe_debug_pub.add('Entering proc Convert_Miss_To_Null in Formula Util Pkg');
569: IF l_FORMULA_rec.attribute1 = FND_API.G_MISS_CHAR THEN
570: l_FORMULA_rec.attribute1 := NULL;
571: END IF;
572:
673: IF l_FORMULA_rec.start_date_active = FND_API.G_MISS_DATE THEN
674: l_FORMULA_rec.start_date_active := NULL;
675: END IF;
676:
677: oe_debug_pub.add('Leaving proc Convert_Miss_To_Null in Formula Util Pkg');
678: RETURN l_FORMULA_rec;
679:
680: END Convert_Miss_To_Null;
681:
686: )
687: IS
688: BEGIN
689:
690: oe_debug_pub.add('Entering proc Update_Row in Formula Util Pkg');
691: UPDATE QP_PRICE_FORMULAS_B
692: SET ATTRIBUTE1 = p_FORMULA_rec.attribute1
693: , ATTRIBUTE10 = p_FORMULA_rec.attribute10
694: , ATTRIBUTE11 = p_FORMULA_rec.attribute11
726: , NAME = p_FORMULA_rec.name
727: WHERE PRICE_FORMULA_ID = p_FORMULA_rec.price_formula_id
728: AND LANGUAGE = userenv('LANG');
729:
730: oe_debug_pub.add('Leaving proc Update_Row in Formula Util Pkg');
731: EXCEPTION
732:
733: WHEN OTHERS THEN
734:
751: )
752: IS
753: BEGIN
754:
755: oe_debug_pub.add('Entering proc Insert_Row in Formula Util Pkg');
756: INSERT INTO QP_PRICE_FORMULAS_B
757: ( ATTRIBUTE1
758: , ATTRIBUTE10
759: , ATTRIBUTE11
836: FROM QP_PRICE_FORMULAS_TL T
837: WHERE T.PRICE_FORMULA_ID = p_FORMULA_rec.price_formula_id
838: AND T.LANGUAGE = L.LANGUAGE_CODE);
839:
840: oe_debug_pub.add('Leaving proc Insert_Row in Formula Util Pkg');
841: EXCEPTION
842:
843: WHEN OTHERS THEN
844:
861: )
862: IS
863: BEGIN
864:
865: oe_debug_pub.add('Entering proc Delete_Row in Formula Util Pkg');
866: DELETE FROM QP_PRICE_FORMULAS_TL
867: WHERE PRICE_FORMULA_ID = p_price_formula_id;
868:
869: DELETE FROM QP_PRICE_FORMULAS_B
867: WHERE PRICE_FORMULA_ID = p_price_formula_id;
868:
869: DELETE FROM QP_PRICE_FORMULAS_B
870: WHERE PRICE_FORMULA_ID = p_price_formula_id;
871: oe_debug_pub.add('Leaving proc Delete_Row in Formula Util Pkg');
872:
873: EXCEPTION
874:
875: WHEN OTHERS THEN
894: IS
895: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
896: BEGIN
897:
898: oe_debug_pub.add('Entering proc Query_Row in Formula Util Pkg');
899: SELECT ATTRIBUTE1
900: , ATTRIBUTE10
901: , ATTRIBUTE11
902: , ATTRIBUTE12
957: FROM QP_PRICE_FORMULAS_TL
958: WHERE PRICE_FORMULA_ID = p_price_formula_id
959: AND LANGUAGE = userenv('LANG');
960:
961: oe_debug_pub.add('Leaving proc Query_Row in Formula Util Pkg');
962: RETURN l_FORMULA_rec;
963:
964: EXCEPTION
965:
988: IS
989: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
990: BEGIN
991:
992: oe_debug_pub.add('Entering proc Lock_Row in Formula Util Pkg');
993: SELECT ATTRIBUTE1
994: , ATTRIBUTE10
995: , ATTRIBUTE11
996: , ATTRIBUTE12
1123: END IF;
1124:
1125: END IF;
1126:
1127: oe_debug_pub.add('Leaving proc Lock_Row in Formula Util Pkg');
1128: EXCEPTION
1129:
1130: WHEN NO_DATA_FOUND THEN
1131:
1176: IS
1177: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
1178: BEGIN
1179:
1180: oe_debug_pub.add('Entering proc Get_Values in Formula Util Pkg');
1181: IF p_FORMULA_rec.price_formula_id IS NOT NULL AND
1182: p_FORMULA_rec.price_formula_id <> FND_API.G_MISS_NUM AND
1183: NOT QP_GLOBALS.Equal(p_FORMULA_rec.price_formula_id,
1184: p_old_FORMULA_rec.price_formula_id)
1187: ( p_price_formula_id => p_FORMULA_rec.price_formula_id
1188: );
1189: END IF;
1190:
1191: oe_debug_pub.add('Leaving proc Get_Values in Formula Util Pkg');
1192: RETURN l_FORMULA_val_rec;
1193:
1194: END Get_Values;
1195:
1202: IS
1203: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1204: BEGIN
1205:
1206: oe_debug_pub.add('Entering proc Get_Ids in Formula Util Pkg');
1207: -- initialize return_status.
1208:
1209: l_FORMULA_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1210:
1242:
1243: END IF;
1244:
1245:
1246: oe_debug_pub.add('Leaving proc Get_Ids in Formula Util Pkg');
1247: RETURN l_FORMULA_rec;
1248:
1249: END Get_Ids;
1250: