[Home] [Help]
PACKAGE BODY: APPS.CSF_DEBRIEF_CREATE_ORDER
Source
1 PACKAGE BODY CSF_DEBRIEF_CREATE_ORDER as
2 /* $Header: csfpodcb.pls 115.5 2000/12/05 11:41:53 pkm ship $ */
3 -- Start of Comments
4 -- Package name : CSF_DEBRIEF_CREATE_ORDER
5 -- Purpose :
6 -- History : Modified by Ildiko Balint on 04-AUG-2000
7 -- NOTE :
8 -- End of Comments
9
10 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSF_DEBRIEF_CREATE_ORDER';
11 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csfpodcb.pls';
12
13 PROCEDURE CREATE_ORDER (
14 P_Currency_Code IN VARCHAR2,
15 P_Party_Id IN NUMBER,
16 P_Inventory_Item_Id IN NUMBER,
17 P_quantity IN NUMBER,
18 P_Uom_Code IN VARCHAR2,
19 P_Order_Type_Code IN VARCHAR2,
20 P_Quote_Header_Id IN NUMBER,
21 P_Order_Type_Id IN NUMBER,
22 P_Price_List_Id IN NUMBER,
23 P_Employee_Person_Id IN NUMBER,
24 P_Cust_Account_Id IN NUMBER,
25 P_Shipment_Id IN NUMBER,
26 X_Order_Header_Id OUT NUMBER,
27 X_Return_Status OUT VARCHAR2,
28 X_Msg_Count OUT NUMBER,
29 X_Msg_Data OUT VARCHAR2
30
31 ) is
32 l_qte_header_rec ASO_QUOTE_PUB.Qte_Header_Rec_Type;
33 l_qte_line_tbl ASO_QUOTE_PUB.Qte_Line_Tbl_Type;
34 l_hd_payment_tbl ASO_QUOTE_PUB.Payment_Tbl_Type;
35 l_payment_rec ASO_QUOTE_PUB.Payment_Rec_Type;
36 l_hd_shipment_tbl ASO_QUOTE_PUB.Shipment_tbl_Type;
37 l_hd_tax_detail_tbl ASO_QUOTE_PUB.Tax_Detail_Tbl_Type;
38 l_tax_detail_rec ASO_QUOTE_PUB.Tax_Detail_Rec_Type;
39 l_ln_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type;
40 x_order_header_rec ASO_ORDER_INT.Order_Header_rec_type;
41 x_order_line_tbl ASO_ORDER_INT.Order_Line_tbl_type;
42 p_control_rec ASO_ORDER_INT.control_rec_type;
43 x_return_status_oe VARCHAR2(1);
44 x_msg_count_oe NUMBER;
45 x_msg_data_oe VARCHAR2(2000);
46
47 BEGIN
48
49 l_qte_header_rec.quote_source_code := 'ASO';
50 l_qte_header_rec.currency_code := p_currency_code;
51 l_qte_header_rec.party_id := p_party_id;
52 l_qte_header_rec.quote_header_id := p_quote_header_id;
53 l_qte_header_rec.order_type_id := p_order_type_id;
54 l_qte_header_rec.price_list_id := p_price_list_id;
55 l_qte_header_rec.employee_person_id := p_employee_person_id;
56 l_qte_header_rec.cust_account_id := p_cust_account_id;
57 p_control_rec.book_flag := FND_API.G_TRUE;
58 l_qte_line_tbl(1).inventory_item_id := p_inventory_item_id;
59 l_qte_line_tbl(1).quantity := p_quantity;
60 l_qte_line_tbl(1).UOM_code := p_uom_code;
61 l_qte_line_tbl(1).price_list_id := p_price_list_id;
62 l_qte_line_tbl(1).line_category_code:= p_order_type_code;
63 l_ln_shipment_tbl(1).shipment_id := p_shipment_id;
64 l_ln_shipment_tbl(1).quantity := p_quantity;
65 l_ln_shipment_tbl(1).qte_line_index := 1;
66 l_ln_shipment_tbl(1).ship_method_code:= 'UPS';
67
68 ASO_ORDER_INT.Create_order(
69 P_Api_Version_Number => 1.0,
70 P_Qte_Rec => l_qte_header_rec,
71 P_Header_Payment_Tbl => l_hd_payment_tbl,
72 P_Header_Shipment_Tbl => l_hd_shipment_tbl,
73 P_Header_TAX_DETAIL_Tbl => l_hd_tax_detail_tbl,
74 P_Qte_Line_Tbl => l_qte_line_tbl,
75 P_Line_Shipment_Tbl => l_ln_shipment_tbl,
76 P_control_rec => p_control_rec,
77 X_Order_Header_Rec => x_order_header_rec,
78 X_Order_Line_Tbl => x_order_line_tbl,
79 X_Return_Status => x_return_status_oe,
80 X_Msg_Count => x_msg_count_oe,
81 X_Msg_Data => x_msg_data_oe
82 );
83
84 x_order_header_id := x_order_header_rec.order_header_id;
85
86 oe_debug_pub.add('no. of OE messages :'||x_msg_count_oe,1);
87 for k in 1 ..x_msg_count_oe loop
88 x_msg_data_oe := oe_msg_pub.get( p_msg_index => k,
89 p_encoded => 'F'
90 );
91 oe_debug_pub.add(substr(x_msg_data_oe,1,255));
92 end loop;
93
94 x_msg_data := substr(x_msg_data_oe,1,200);
95 x_return_status := x_return_status_oe;
96 x_msg_count := x_msg_count_oe;
97
98 end CREATE_ORDER ;
99 end CSF_DEBRIEF_CREATE_ORDER ;
100