[Home] [Help]
104: FND_MSG_PUB.initialize;
105: END IF;
106: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
107:
108: FND_MESSAGE.SET_NAME('IBU','IBU_MESSAGE');
109: FND_MESSAGE.SET_TOKEN ('TOKEN', l_aso_debug_file);
110: FND_MSG_PUB.Add;
111:
112:
105: END IF;
106: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
107:
108: FND_MESSAGE.SET_NAME('IBU','IBU_MESSAGE');
109: FND_MESSAGE.SET_TOKEN ('TOKEN', l_aso_debug_file);
110: FND_MSG_PUB.Add;
111:
112:
113: l_header_cursor_stmt := 'select ord.source_document_id, ord.org_id, ord.source_document_type_id, ord.price_list_id, ord.transactional_curr_code, ord_src.name ';
138:
139:
140: else
141: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
142: FND_MESSAGE.SET_NAME('IBU','IBU_RET_REF_ORD_INVALID');
143: FND_MSG_PUB.Add;
144: RAISE FND_API.G_EXC_ERROR;
145: end if;
146:
146:
147: -- validate org_id, pricelist_id, transaction_curr_code
148: if (l_org_id is null OR l_org_id = FND_API.G_MISS_NUM OR l_pricelist_id is null OR l_pricelist_id = FND_API.G_MISS_NUM OR l_transaction_curr_code is null OR l_transaction_curr_code= FND_API.G_MISS_CHAR) then
149: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
150: FND_MESSAGE.SET_NAME('IBU','IBU_RET_REF_ORD_INVALID');
151: FND_MSG_PUB.Add;
152: RAISE FND_API.G_EXC_ERROR;
153: end if;
154:
357:
358:
359: else
360: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
361: FND_MESSAGE.SET_NAME('IBU','IBU_RET_REF_LINE_INVALID)');
362: FND_MSG_PUB.Add;
363: RAISE FND_API.G_EXC_ERROR;
364: end if;
365:
365:
366: -- validate line_org_id, ship_from_org_id, inventory_item_id, rdered_quantity_uom, line_pricelist_id, unit_list_price, unit_selling_price
367: if (l_line_org_id is null OR l_line_org_id = FND_API.G_MISS_NUM or l_inventory_item_id is null or l_inventory_item_id = FND_API.G_MISS_NUM) then
368: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
369: FND_MESSAGE.SET_NAME('IBU','IBU_RET_REF_LINE_INVALID)');
370: FND_MSG_PUB.Add;
371: RAISE FND_API.G_EXC_ERROR;
372: end if;
373:
372: end if;
373:
374: if (l_ordered_quantity_uom is null or l_ordered_quantity_uom = FND_API.G_MISS_CHAR or l_line_price_list_id is null or l_line_price_list_id = FND_API.G_MISS_NUM) then
375: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
376: FND_MESSAGE.SET_NAME('IBU','IBU_RET_REF_LINE_INVALID)');
377: FND_MSG_PUB.Add;
378: RAISE FND_API.G_EXC_ERROR;
379: end if;
380:
379: end if;
380:
381: if (l_unit_list_price is null or l_unit_list_price = FND_API.G_MISS_NUM or l_unit_selling_price is null or l_unit_selling_price = FND_API.G_MISS_NUM) then
382: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
383: FND_MESSAGE.SET_NAME('IBU','IBU_RET_REF_LINE_INVALID)');
384: FND_MSG_PUB.Add;
385: RAISE FND_API.G_EXC_ERROR;
386: end if;
387:
682:
683: EXCEPTION
684:
685: WHEN FND_API.G_EXC_ERROR THEN
686: FND_MESSAGE.SET_NAME('IBU', 'IBU Return Failed' );
687: FND_MSG_PUB.Add;
688: FND_MSG_PUB.Count_And_Get
689: (p_count => x_msg_count ,
690: p_data => x_msg_data
696: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
697: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
698:
699: END IF;
700: FND_MESSAGE.SET_NAME('IBU', 'IBU_RET_FAILED' );
701: FND_MSG_PUB.Add;
702: FND_MSG_PUB.Count_And_Get
703: (p_count => x_msg_count ,
704: p_data => x_msg_data
742: l_temp_msg := fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_true);
743: else
744: l_temp_msg := fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_true);
745: end if ;
746: fnd_message.parse_encoded(l_temp_msg, l_appl_short_name, l_message_name);
747: OPEN Get_Appl_Id (l_appl_short_name);
748: FETCH Get_Appl_Id into l_id;
749: CLOSE Get_Appl_Id;
750: