70: RAISE FND_API.G_EXC_ERROR;
71:
72: END IF;
73:
74: IF NVL(p_header_id,-1)<>NVL(OE_ORDER_UTIL.G_Header_id,-10)
75: OR OE_ORDER_UTIL.G_Precision IS NULL THEN
76: Is_fmt:= OE_ORDER_UTIL.Get_Precision(
77: p_header_id=>p_header_id
78: );
71:
72: END IF;
73:
74: IF NVL(p_header_id,-1)<>NVL(OE_ORDER_UTIL.G_Header_id,-10)
75: OR OE_ORDER_UTIL.G_Precision IS NULL THEN
76: Is_fmt:= OE_ORDER_UTIL.Get_Precision(
77: p_header_id=>p_header_id
78: );
79: END IF;
72: END IF;
73:
74: IF NVL(p_header_id,-1)<>NVL(OE_ORDER_UTIL.G_Header_id,-10)
75: OR OE_ORDER_UTIL.G_Precision IS NULL THEN
76: Is_fmt:= OE_ORDER_UTIL.Get_Precision(
77: p_header_id=>p_header_id
78: );
79: END IF;
80:
77: p_header_id=>p_header_id
78: );
79: END IF;
80:
81: IF OE_ORDER_UTIL.G_Precision IS NULL THEN
82: OE_ORDER_UTIL.G_Precision:=2;
83: END IF;
84:
85:
78: );
79: END IF;
80:
81: IF OE_ORDER_UTIL.G_Precision IS NULL THEN
82: OE_ORDER_UTIL.G_Precision:=2;
83: END IF;
84:
85:
86:
95: P.OPERAND,
96: DECODE(P.ARITHMETIC_OPERATOR, 'LUMPSUM',
97: DECODE(L.ORDERED_QUANTITY,0,0,NULL,NULL,P.OPERAND),
98: L.ORDERED_QUANTITY* nvl(P.ADJUSTED_AMOUNT,0)))
99: ,OE_ORDER_UTIL.G_Precision),0))
100: INTO l_charge_amount
101: FROM OE_PRICE_ADJUSTMENTS P,
102: OE_ORDER_LINES_ALL L
103: WHERE P.HEADER_ID = p_header_id
122: -- Getting Header level charge amount.
123:
124: SELECT SUM(ROUND(
125: DECODE(P.CREDIT_OR_CHARGE_FLAG,'C',-P.OPERAND,P.OPERAND)
126: ,OE_ORDER_UTIL.G_Precision)
127: )
128: INTO l_charge_amount
129: FROM OE_PRICE_ADJUSTMENTS P
130: WHERE P.HEADER_ID = p_header_id
148: DECODE(P.CREDIT_OR_CHARGE_FLAG,'C', -1, 1) *
149: DECODE(P.ARITHMETIC_OPERATOR, 'LUMPSUM',
150: DECODE(L.ORDERED_QUANTITY,0,0,P.OPERAND),
151: (L.ORDERED_QUANTITY* nvl(P.ADJUSTED_AMOUNT,0)))
152: ,OE_ORDER_UTIL.G_Precision)
153: )
154: INTO l_charge_amount
155: FROM OE_PRICE_ADJUSTMENTS P,
156: OE_ORDER_LINES_ALL L
1317: RAISE FND_API.G_EXC_ERROR;
1318:
1319: END IF;
1320:
1321: IF NVL(p_header_id,-1)<>NVL(OE_ORDER_UTIL.G_Header_id,-10)
1322: OR OE_ORDER_UTIL.G_Precision IS NULL THEN
1323: Is_fmt:= OE_ORDER_UTIL.Get_Precision(
1324: p_header_id=>p_header_id
1325: );
1318:
1319: END IF;
1320:
1321: IF NVL(p_header_id,-1)<>NVL(OE_ORDER_UTIL.G_Header_id,-10)
1322: OR OE_ORDER_UTIL.G_Precision IS NULL THEN
1323: Is_fmt:= OE_ORDER_UTIL.Get_Precision(
1324: p_header_id=>p_header_id
1325: );
1326: END IF;
1319: END IF;
1320:
1321: IF NVL(p_header_id,-1)<>NVL(OE_ORDER_UTIL.G_Header_id,-10)
1322: OR OE_ORDER_UTIL.G_Precision IS NULL THEN
1323: Is_fmt:= OE_ORDER_UTIL.Get_Precision(
1324: p_header_id=>p_header_id
1325: );
1326: END IF;
1327:
1324: p_header_id=>p_header_id
1325: );
1326: END IF;
1327:
1328: IF OE_ORDER_UTIL.G_Precision IS NULL THEN
1329: OE_ORDER_UTIL.G_Precision:=2;
1330: END IF;
1331:
1332: -- Check the operation whether all charges for the Order are required
1325: );
1326: END IF;
1327:
1328: IF OE_ORDER_UTIL.G_Precision IS NULL THEN
1329: OE_ORDER_UTIL.G_Precision:=2;
1330: END IF;
1331:
1332: -- Check the operation whether all charges for the Order are required
1333: IF p_all_charges = FND_API.G_TRUE THEN
1339: DECODE(P.ARITHMETIC_OPERATOR, 'LUMPSUM',
1340: DECODE(L.ORDERED_QUANTITY,0,0,P.OPERAND),
1341: (L.ORDERED_QUANTITY* nvl(P.ADJUSTED_AMOUNT,0)))
1342: )
1343: ,OE_ORDER_UTIL.G_Precision)
1344: )
1345: INTO l_charge_amount
1346: FROM OE_PRICE_ADJUSTMENTS P,
1347: OE_ORDER_LINES_ALL L