[Home] [Help]
18: ,p_changed_attribute IN VARCHAR2 := NULL
19: ,x_return_status IN OUT NOCOPY VARCHAR2)
20: IS
21: l_api_name VARCHAR2(30) := 'Create_Version_History';
22: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
23: l_version_number NUMBER;
24: l_version_flag VARCHAR2(1);
25: l_instrument_id NUMBER;
26: l_credit_card_number VARCHAR2(10);
89: IF l_instrument_id IS NOT NULL THEN
90: IF p_changed_attribute IS NOT NULL THEN
91:
92: IF l_debug_level > 0 THEN
93: oe_debug_pub.add( 'p_changed_attr is : ' || p_changed_attribute) ;
94: END IF;
95:
96: -- store the instrument_id in column instruemnt_id
97: -- if credit_card_number or credit_card_code is updated.
140: **/
141:
142: END IF;
143: IF l_debug_level > 0 THEN
144: oe_debug_pub.add( 'RECORDHEADERHIST:l_instrument_id is : ' || l_instrument_id) ;
145: END IF;
146: END IF;
147:
148:
507: WHERE a.header_id = b.header_id
508: AND b.version_number = l_version_number
509: AND b.version_flag = l_version_flag);
510: IF l_debug_level > 0 THEN
511: oe_debug_pub.add(' No. of History Records for Header ' ||SQL%ROWCOUNT);
512: END IF;
513:
514: -- Create History Records for Lines
515: l_api_name := 'Create_Line_History';
1214: AND a.header_id = b.header_id
1215: AND b.version_number = l_version_number
1216: AND b.version_flag = l_version_flag);
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add(' No. of History Records for Lines ' ||SQL%ROWCOUNT);
1219: END IF;
1220:
1221: -- Create History Records for Adjustments
1222: l_api_name := 'Create_Price_Adjs_History';
1447: AND b.version_number = l_version_number
1448: AND b.version_flag = l_version_flag);
1449:
1450: IF l_debug_level > 0 THEN
1451: oe_debug_pub.add(' No. of History Records for PrcAdjs ' ||SQL%ROWCOUNT);
1452: END IF;
1453:
1454: -- Create History Records for SalesCredits
1455: l_api_name := 'Create_Sales_Credits_History';
1548: AND b.VERSION_NUMBER = l_version_number
1549: AND b.version_flag = l_version_flag);
1550:
1551: IF l_debug_level > 0 THEN
1552: oe_debug_pub.add(' No. of History Records for Sales Credits '||SQL%ROWCOUNT);
1553: END IF;
1554:
1555: EXCEPTION
1556: WHEN OTHERS THEN
1729: )
1730: IS
1731: l_version_number NUMBER := p_version_number;
1732: l_current_version_number NUMBER;
1733: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1734:
1735: BEGIN
1736: IF p_version_number IS NOT NULL AND NOT G_INTERNAL_QUERY THEN
1737: l_current_version_number := Get_Version_Number(p_header_id => p_header_id);
1744: IF l_version_number IS NULL THEN
1745: OE_Header_Util.Query_Row(p_header_id => p_header_id, x_header_rec => x_header_rec);
1746: ELSE
1747:
1748: oe_debug_pub.add('Entering OE_VERSIONING_UTIL.QUERY_ROW for header', 1);
1749:
1750: SELECT ACCOUNTING_RULE_ID
1751: , ACCOUNTING_RULE_DURATION
1752: , AGREEMENT_ID
2085: IF x_header_rec.payment_type_code IS NOT NULL AND
2086: x_header_rec.payment_type_code = 'CREDIT_CARD'
2087: AND x_header_rec.credit_card_number is null THEN
2088: if l_debug_level > 0 then
2089: oe_debug_pub.add('Calling query card details...');
2090: end if;
2091: OE_Header_Util.Query_card_details
2092: ( p_header_id => x_header_rec.header_id,
2093: p_credit_card_code => x_header_rec.credit_card_code,
2125:
2126: l_version_number NUMBER := p_version_number;
2127: l_current_version_number NUMBER;
2128: --
2129: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2130: --
2131: BEGIN
2132: IF p_version_number IS NOT NULL AND NOT G_INTERNAL_QUERY THEN
2133: l_current_version_number := Get_Version_Number(p_price_adjustment_id => p_price_adjustment_id);
2140: IF l_version_number IS NULL THEN
2141: OE_Header_Adj_Util.Query_Row(p_price_adjustment_id => p_price_adjustment_id, x_header_adj_rec => x_header_adj_rec);
2142: ELSE
2143: IF l_debug_level > 0 THEN
2144: oe_debug_pub.add( 'ENTERING OE_HEADER_ADJ_UTIL.QUERY_ROW' , 1 ) ;
2145: END IF;
2146:
2147: G_INTERNAL_QUERY := TRUE;
2148: Query_Rows
2153: x_Header_Adj_Rec := l_Header_Adj_Tbl(1);
2154: G_INTERNAL_QUERY := FALSE;
2155:
2156: IF l_debug_level > 0 THEN
2157: oe_debug_pub.add( 'EXITING OE_HEADER_ADJ_UTIL.QUERY_ROW' , 1 ) ;
2158: END IF;
2159:
2160: END IF;
2161:
2620: l_version_number NUMBER := p_version_number;
2621: l_current_version_number NUMBER;
2622: x_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
2623: --
2624: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2625: --
2626: BEGIN
2627: IF p_version_number IS NOT NULL AND NOT G_INTERNAL_QUERY THEN
2628: l_current_version_number := Get_Version_Number(p_sales_credit_id => p_sales_credit_id);
4010: OE_GLOBALS.Set_Context;
4011: l_org_id := OE_GLOBALS.G_ORG_ID;
4012: end if;
4013:
4014: oe_debug_pub.add('Entering '||to_char(l_org_id), 1);
4015:
4016:
4017: -- Loop over fetched records
4018:
4336: x_line_tbl(l_count).flow_status_code := l_rec.flow_status_code;
4337: -- x_line_tbl(l_count).marketing_source_code_id := l_rec.marketing_source_code_id;
4338: x_line_tbl(l_count).calculate_price_flag := l_rec.calculate_price_flag;
4339: x_line_tbl(l_count).commitment_id := l_rec.commitment_id;
4340: -- oe_debug_pub.add('OEXULINB -aksingh -- assigning order_source_id value ' || l_rec.order_source_id);
4341: x_line_tbl(l_count).order_source_id := l_rec.order_source_id;
4342: -- x_line_tbl(l_count).upgraded_flag := l_rec.upgraded_flag ;
4343: x_line_tbl(l_count).Original_Inventory_Item_Id := l_rec.Original_Inventory_Item_Id ;
4344: x_line_tbl(l_count).Original_item_identifier_Type := l_rec.Original_item_identifier_Type ;
4364: x_line_tbl(l_count).order_firmed_date := l_rec.order_firmed_date;
4365: x_line_tbl(l_count).actual_fulfillment_date:= l_rec.actual_fulfillment_date;
4366: --end
4367:
4368: -- oe_debug_pub.add('outside margin x_line_tbl',1);
4369: --MRG B
4370: --If OE_FEATURES_PVT.Is_Margin_Avail Then
4371: -- oe_debug_pub.add('inside margin x_line_tbl',1);
4372: --x_line_tbl(l_count).unit_cost:=l_rec.unit_cost;
4367:
4368: -- oe_debug_pub.add('outside margin x_line_tbl',1);
4369: --MRG B
4370: --If OE_FEATURES_PVT.Is_Margin_Avail Then
4371: -- oe_debug_pub.add('inside margin x_line_tbl',1);
4372: --x_line_tbl(l_count).unit_cost:=l_rec.unit_cost;
4373: --End If;
4374: --MRG E
4375: -- x_line_tbl(l_count).lock_control:= l_rec.lock_control;
4830:
4831: l_rec l_line_adj_csr_p%ROWTYPE;
4832:
4833: --
4834: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4835: --
4836:
4837: BEGIN
4838: IF p_version_number IS NOT NULL AND NOT G_INTERNAL_QUERY THEN
5038: l_current_version_number NUMBER;
5039:
5040: l_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
5041: --
5042: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5043: --
5044: BEGIN
5045: IF p_version_number IS NOT NULL AND NOT G_INTERNAL_QUERY THEN
5046: l_current_version_number := Get_Version_Number(p_sales_credit_id => p_sales_credit_id);
5054: OE_Line_Scredit_Util.Query_Row(p_sales_credit_id => p_sales_credit_id, x_line_scredit_rec => x_line_scredit_rec);
5055: ELSE
5056:
5057: IF l_debug_level > 0 THEN
5058: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.QUERY_ROW' , 1 ) ;
5059: END IF;
5060:
5061: G_INTERNAL_QUERY := TRUE;
5062: Query_Rows
5214: l_entity NUMBER;
5215: l_count NUMBER;
5216:
5217: --
5218: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5219: --
5220: BEGIN
5221: IF p_version_number IS NOT NULL AND NOT G_INTERNAL_QUERY THEN
5222: l_current_version_number := Get_Version_Number(p_header_id => p_header_id, p_line_id => p_line_id, p_sales_credit_id => p_sales_credit_id);
5331:
5332: -- Return fetched table
5333:
5334: IF l_debug_level > 0 THEN
5335: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.QUERY_ROWS' , 1 ) ;
5336: END IF;
5337:
5338:
5339: END IF;