1: PACKAGE BODY ast_colltrl_order_pkg AS
2: /* $Header: astclrqb.pls 115.22 2002/12/05 20:00:50 rramacha ship $ */
3:
4:
5: g_qte_header_rec ASO_QUOTE_PUB.Qte_Header_Rec_Type;
6: g_qte_line_tbl ASO_QUOTE_PUB.Qte_Line_Tbl_Type;
7: g_hd_shipment_tbl ASO_QUOTE_PUB.Shipment_tbl_Type;
8: g_ln_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type;
9:
2: /* $Header: astclrqb.pls 115.22 2002/12/05 20:00:50 rramacha ship $ */
3:
4:
5: g_qte_header_rec ASO_QUOTE_PUB.Qte_Header_Rec_Type;
6: g_qte_line_tbl ASO_QUOTE_PUB.Qte_Line_Tbl_Type;
7: g_hd_shipment_tbl ASO_QUOTE_PUB.Shipment_tbl_Type;
8: g_ln_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type;
9:
10: PROCEDURE open_order (
3:
4:
5: g_qte_header_rec ASO_QUOTE_PUB.Qte_Header_Rec_Type;
6: g_qte_line_tbl ASO_QUOTE_PUB.Qte_Line_Tbl_Type;
7: g_hd_shipment_tbl ASO_QUOTE_PUB.Shipment_tbl_Type;
8: g_ln_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type;
9:
10: PROCEDURE open_order (
11: p_cust_party_id IN NUMBER
4:
5: g_qte_header_rec ASO_QUOTE_PUB.Qte_Header_Rec_Type;
6: g_qte_line_tbl ASO_QUOTE_PUB.Qte_Line_Tbl_Type;
7: g_hd_shipment_tbl ASO_QUOTE_PUB.Shipment_tbl_Type;
8: g_ln_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type;
9:
10: PROCEDURE open_order (
11: p_cust_party_id IN NUMBER
12: , p_cust_account_id IN NUMBER
21: , p_quote_header_id IN NUMBER
22: ) IS
23: BEGIN
24: -- reinitialize the order header record types
25: g_qte_header_rec := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC;
26: g_hd_shipment_tbl := ASO_QUOTE_PUB.G_MISS_Shipment_TBL;
27:
28: -- assign parameters passed to the quote header record
29: g_qte_header_rec.quote_source_code := p_source_code ;
22: ) IS
23: BEGIN
24: -- reinitialize the order header record types
25: g_qte_header_rec := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC;
26: g_hd_shipment_tbl := ASO_QUOTE_PUB.G_MISS_Shipment_TBL;
27:
28: -- assign parameters passed to the quote header record
29: g_qte_header_rec.quote_source_code := p_source_code ;
30: g_qte_header_rec.party_id := p_cust_party_id;
44:
45: g_hd_shipment_tbl(1).ship_to_party_site_id := p_ship_party_site_id;
46:
47: -- reinitialize the order line table types
48: g_qte_line_tbl := ASO_QUOTE_PUB.G_MISS_QTE_LINE_TBL;
49: g_ln_shipment_tbl := ASO_QUOTE_PUB.G_MISS_Shipment_TBL;
50: END open_order;
51:
52: PROCEDURE add_order_line (
45: g_hd_shipment_tbl(1).ship_to_party_site_id := p_ship_party_site_id;
46:
47: -- reinitialize the order line table types
48: g_qte_line_tbl := ASO_QUOTE_PUB.G_MISS_QTE_LINE_TBL;
49: g_ln_shipment_tbl := ASO_QUOTE_PUB.G_MISS_Shipment_TBL;
50: END open_order;
51:
52: PROCEDURE add_order_line (
53: p_ship_party_id IN NUMBER