54: */
55:
56: l_header_id NUMBER := TO_NUMBER(TO_CHAR(SYSDATE, 'HH24MISS'));
57: l_p_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
58: l_p_x_line_tbl OZF_ORDER_PRICE_PVT.LINE_REC_TBL_TYPE;
59: l_x_ldets_tbl OZF_ORDER_PRICE_PVT.LDETS_TBL_TYPE;
60: l_x_related_lines_tbl OZF_ORDER_PRICE_PVT.RLTD_LINE_TBL_TYPE;
61: l_price_list_id NUMBER;
62:
55:
56: l_header_id NUMBER := TO_NUMBER(TO_CHAR(SYSDATE, 'HH24MISS'));
57: l_p_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
58: l_p_x_line_tbl OZF_ORDER_PRICE_PVT.LINE_REC_TBL_TYPE;
59: l_x_ldets_tbl OZF_ORDER_PRICE_PVT.LDETS_TBL_TYPE;
60: l_x_related_lines_tbl OZF_ORDER_PRICE_PVT.RLTD_LINE_TBL_TYPE;
61: l_price_list_id NUMBER;
62:
63: i NUMBER;
56: l_header_id NUMBER := TO_NUMBER(TO_CHAR(SYSDATE, 'HH24MISS'));
57: l_p_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
58: l_p_x_line_tbl OZF_ORDER_PRICE_PVT.LINE_REC_TBL_TYPE;
59: l_x_ldets_tbl OZF_ORDER_PRICE_PVT.LDETS_TBL_TYPE;
60: l_x_related_lines_tbl OZF_ORDER_PRICE_PVT.RLTD_LINE_TBL_TYPE;
61: l_price_list_id NUMBER;
62:
63: i NUMBER;
64: idx_price_line NUMBER;
74:
75: -- Initialize API return status to sucess
76: x_return_status := FND_API.g_ret_sts_success;
77:
78: OZF_ORDER_PRICE_PVT.Purge_Pricing_Temp_table(
79: p_api_version => l_api_version
80: ,p_init_msg_list => FND_API.g_false
81: ,p_commit => FND_API.g_false
82: ,p_validation_level => FND_API.g_valid_level_full
86: );
87: IF l_return_status = FND_API.g_ret_sts_error THEN
88: IF OZF_DEBUG_LOW_ON THEN
89: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
90: FND_MESSAGE.Set_Token('TEXT','Expected error happened when calling OZF_ORDER_PRICE_PVT.Purge_Pricing_Temp_table().');
91: FND_MSG_PUB.Add;
92: END IF;
93: RAISE FND_API.g_exc_error;
94: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
93: RAISE FND_API.g_exc_error;
94: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
95: IF OZF_DEBUG_LOW_ON THEN
96: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
97: FND_MESSAGE.Set_Token('TEXT','Unexpected error happened when calling OZF_ORDER_PRICE_PVT.Purge_Pricing_Temp_table().');
98: FND_MSG_PUB.Add;
99: END IF;
100: RAISE FND_API.g_exc_unexpected_error;
101: END IF;
107: END IF;
108:
109: i := p_x_item_tbl.FIRST;
110: IF i IS NOT NULL THEN
111: OZF_ORDER_PRICE_PVT.G_HEADER_REC.header_id := l_header_id;
112: OZF_ORDER_PRICE_PVT.G_HEADER_REC.sold_to_org_id := p_cust_account_id;
113: OZF_ORDER_PRICE_PVT.G_HEADER_REC.order_type_id := p_order_type_id;
114:
115:
108:
109: i := p_x_item_tbl.FIRST;
110: IF i IS NOT NULL THEN
111: OZF_ORDER_PRICE_PVT.G_HEADER_REC.header_id := l_header_id;
112: OZF_ORDER_PRICE_PVT.G_HEADER_REC.sold_to_org_id := p_cust_account_id;
113: OZF_ORDER_PRICE_PVT.G_HEADER_REC.order_type_id := p_order_type_id;
114:
115:
116: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL.delete();
109: i := p_x_item_tbl.FIRST;
110: IF i IS NOT NULL THEN
111: OZF_ORDER_PRICE_PVT.G_HEADER_REC.header_id := l_header_id;
112: OZF_ORDER_PRICE_PVT.G_HEADER_REC.sold_to_org_id := p_cust_account_id;
113: OZF_ORDER_PRICE_PVT.G_HEADER_REC.order_type_id := p_order_type_id;
114:
115:
116: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL.delete();
117:
112: OZF_ORDER_PRICE_PVT.G_HEADER_REC.sold_to_org_id := p_cust_account_id;
113: OZF_ORDER_PRICE_PVT.G_HEADER_REC.order_type_id := p_order_type_id;
114:
115:
116: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL.delete();
117:
118: LOOP
119: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).header_id := l_header_id;
120: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).inventory_item_id := p_x_item_tbl(i).item_id;
115:
116: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL.delete();
117:
118: LOOP
119: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).header_id := l_header_id;
120: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).inventory_item_id := p_x_item_tbl(i).item_id;
121: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).line_id := null;
122: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).ordered_quantity := p_x_item_tbl(i).quantity;
123: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).order_quantity_uom := p_x_item_tbl(i).quantity_uom;
116: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL.delete();
117:
118: LOOP
119: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).header_id := l_header_id;
120: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).inventory_item_id := p_x_item_tbl(i).item_id;
121: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).line_id := null;
122: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).ordered_quantity := p_x_item_tbl(i).quantity;
123: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).order_quantity_uom := p_x_item_tbl(i).quantity_uom;
124: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).price_list_id := null;
117:
118: LOOP
119: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).header_id := l_header_id;
120: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).inventory_item_id := p_x_item_tbl(i).item_id;
121: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).line_id := null;
122: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).ordered_quantity := p_x_item_tbl(i).quantity;
123: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).order_quantity_uom := p_x_item_tbl(i).quantity_uom;
124: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).price_list_id := null;
125: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).sold_to_org_id := p_cust_account_id;
118: LOOP
119: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).header_id := l_header_id;
120: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).inventory_item_id := p_x_item_tbl(i).item_id;
121: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).line_id := null;
122: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).ordered_quantity := p_x_item_tbl(i).quantity;
123: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).order_quantity_uom := p_x_item_tbl(i).quantity_uom;
124: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).price_list_id := null;
125: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).sold_to_org_id := p_cust_account_id;
126: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).request_date := sysdate;
119: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).header_id := l_header_id;
120: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).inventory_item_id := p_x_item_tbl(i).item_id;
121: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).line_id := null;
122: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).ordered_quantity := p_x_item_tbl(i).quantity;
123: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).order_quantity_uom := p_x_item_tbl(i).quantity_uom;
124: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).price_list_id := null;
125: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).sold_to_org_id := p_cust_account_id;
126: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).request_date := sysdate;
127:
120: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).inventory_item_id := p_x_item_tbl(i).item_id;
121: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).line_id := null;
122: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).ordered_quantity := p_x_item_tbl(i).quantity;
123: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).order_quantity_uom := p_x_item_tbl(i).quantity_uom;
124: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).price_list_id := null;
125: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).sold_to_org_id := p_cust_account_id;
126: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).request_date := sysdate;
127:
128: l_p_x_line_tbl(i).LINE_INDEX := i;
121: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).line_id := null;
122: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).ordered_quantity := p_x_item_tbl(i).quantity;
123: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).order_quantity_uom := p_x_item_tbl(i).quantity_uom;
124: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).price_list_id := null;
125: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).sold_to_org_id := p_cust_account_id;
126: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).request_date := sysdate;
127:
128: l_p_x_line_tbl(i).LINE_INDEX := i;
129: l_p_x_line_tbl(i).LINE_ID := null;
122: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).ordered_quantity := p_x_item_tbl(i).quantity;
123: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).order_quantity_uom := p_x_item_tbl(i).quantity_uom;
124: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).price_list_id := null;
125: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).sold_to_org_id := p_cust_account_id;
126: OZF_ORDER_PRICE_PVT.G_LINE_REC_TBL(i).request_date := sysdate;
127:
128: l_p_x_line_tbl(i).LINE_INDEX := i;
129: l_p_x_line_tbl(i).LINE_ID := null;
130: l_p_x_line_tbl(i).LINE_TYPE_CODE := 'LINE';
161: i := p_x_item_tbl.NEXT(i);
162: END LOOP;
163: END IF;
164:
165: OZF_ORDER_PRICE_PVT.Get_Order_Price(
166: p_api_version => l_api_version
167: ,p_init_msg_list => FND_API.g_false
168: ,p_commit => FND_API.g_false
169: ,p_validation_level => FND_API.g_valid_level_full
177: );
178: IF l_return_status = FND_API.g_ret_sts_error THEN
179: IF OZF_DEBUG_LOW_ON THEN
180: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
181: FND_MESSAGE.Set_Token('TEXT','Expected error happened when calling OZF_ORDER_PRICE_PVT.Get_Order_Price().');
182: FND_MSG_PUB.Add;
183: END IF;
184: RAISE FND_API.g_exc_error;
185: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
184: RAISE FND_API.g_exc_error;
185: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
186: IF OZF_DEBUG_LOW_ON THEN
187: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
188: FND_MESSAGE.Set_Token('TEXT','Unexpected error happened when calling OZF_ORDER_PRICE_PVT.Get_Order_Price().');
189: FND_MSG_PUB.Add;
190: END IF;
191: RAISE FND_API.g_exc_unexpected_error;
192: END IF;