[Home] [Help]
213: ,p_currency_code IN VARCHAR2
214: ,p_contact_party_id IN NUMBER
215: ,p_partner_account_id IN NUMBER
216: ,P_order_tbl IN Order_Tbl_type
217: ,x_order_header_id OUT NOCOPY JTF_NUMBER_TABLE
218: ,x_return_status OUT NOCOPY VARCHAR2
219: ,x_msg_count OUT NOCOPY NUMBER
220: ,x_msg_data OUT NOCOPY VARCHAR2
221: )
268: x_Lot_Serial_tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type;
269: x_Lot_Serial_val_tbl OE_ORDER_PUB.Lot_Serial_Val_Tbl_Type;
270: x_action_request_tbl OE_ORDER_PUB.Request_Tbl_Type;
271:
272: CURSOR validate_price (cv_order_header_id JTF_NUMBER_TABLE) IS
273: select 1 from dual where exists
274: (select /*+ CARDINALITY(t 10) */ 1
275: from oe_order_lines_all,(SELECT * FROM TABLE (CAST(cv_order_header_id AS JTF_NUMBER_TABLE))) t
276: where header_id = t.column_value
271:
272: CURSOR validate_price (cv_order_header_id JTF_NUMBER_TABLE) IS
273: select 1 from dual where exists
274: (select /*+ CARDINALITY(t 10) */ 1
275: from oe_order_lines_all,(SELECT * FROM TABLE (CAST(cv_order_header_id AS JTF_NUMBER_TABLE))) t
276: where header_id = t.column_value
277: and (unit_list_price is null or
278: unit_selling_price is null or price_list_id is null));
279:
546: IF (PV_DEBUG_HIGH_ON) THEN
547: PVX_UTILITY_PVT.debug_message('Before header rec initialization');
548: END IF;
549:
550: x_order_header_id := JTF_NUMBER_TABLE();
551:
552: FOR i in p_order_tbl.FIRST..p_order_tbl.LAST LOOP
553:
554: Order_Debug_On;
762: ,p_partner_party_id IN NUMBER
763: ,p_currency_code IN VARCHAR2
764: ,p_contact_party_id IN NUMBER
765: ,p_partner_account_id IN NUMBER
766: ,p_enrl_req_id IN JTF_NUMBER_TABLE
767: ,x_return_status OUT NOCOPY VARCHAR2
768: ,x_msg_count OUT NOCOPY NUMBER
769: ,x_msg_data OUT NOCOPY VARCHAR2
770: )
773: l_api_name CONSTANT VARCHAR2(30) := 'Process_order';
774: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
775:
776: l_index number := 0;
777: l_order_header_id_tbl JTF_NUMBER_TABLE;
778: l_enrl_req_id_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
779: l_obj_ver_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
780: l_order_tbl Order_Tbl_type;
781: l_enrl_req_rec PV_Pg_Enrl_Requests_PVT.enrl_request_rec_type;
774: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
775:
776: l_index number := 0;
777: l_order_header_id_tbl JTF_NUMBER_TABLE;
778: l_enrl_req_id_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
779: l_obj_ver_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
780: l_order_tbl Order_Tbl_type;
781: l_enrl_req_rec PV_Pg_Enrl_Requests_PVT.enrl_request_rec_type;
782:
775:
776: l_index number := 0;
777: l_order_header_id_tbl JTF_NUMBER_TABLE;
778: l_enrl_req_id_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
779: l_obj_ver_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
780: l_order_tbl Order_Tbl_type;
781: l_enrl_req_rec PV_Pg_Enrl_Requests_PVT.enrl_request_rec_type;
782:
783: -- Cursor to get partner program inventoty item id
783: -- Cursor to get partner program inventoty item id
784: CURSOR c_inventory_item_id IS
785: SELECT /*+ CARDINALITY(erequests 10) */ pvpp.inventory_item_id, pver.enrl_request_id, pver.order_header_id, pver.object_version_number
786: FROM PV_PARTNER_PROGRAM_B pvpp, PV_PG_ENRL_REQUESTS pver,
787: (Select column_value from table (CAST(p_enrl_req_id AS JTF_NUMBER_TABLE))) erequests
788: WHERE pver.enrl_request_id = erequests.column_value
789: and pver.PROGRAM_ID = pvpp.program_id
790: and pver.custom_setup_id in (7004, 7005)
791: and (pver.order_header_id is null
985: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
986:
987: l_index number := 0;
988: l_order_tbl Order_Tbl_type;
989: l_order_header_id_tbl JTF_NUMBER_TABLE;
990: l_inventory_item_id NUMBER;
991: l_invite_headers_rec PV_PG_INVITE_HEADERS_PVT.invite_headers_rec_type;
992:
993: -- Cursor to get partner program inventoty item id
1569: PROCEDURE cancel_order(
1570: p_api_version_number IN NUMBER
1571: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1572: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1573: ,p_enrl_req_id IN JTF_NUMBER_TABLE
1574: ,x_return_status OUT NOCOPY VARCHAR2
1575: ,x_msg_count OUT NOCOPY NUMBER
1576: ,x_msg_data OUT NOCOPY VARCHAR2
1577: )
1584: -- Cursor to get order_header_id
1585: CURSOR c_order_header_id IS
1586: SELECT /*+ CARDINALITY(t 10) */ pver.order_header_id
1587: FROM PV_PG_ENRL_REQUESTS pver,
1588: (Select * from table (CAST(p_enrl_req_id AS JTF_NUMBER_TABLE))) t
1589: WHERE pver.enrl_request_id = t.column_value
1590: and pver.order_header_id is not null
1591: and pver.payment_status_code <> 'AUTHORIZED_PAYMENT';
1592:
1813: lx_instr_assign_id NUMBER;
1814: lx_trxn_extension_id NUMBER;
1815: l_is_authorized VARCHAR2(1);
1816:
1817: l_order_header_id_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
1818:
1819: cursor c_get_payment_amount(cv_order_header_id_tbl JTF_NUMBER_TABLE) IS
1820: SELECT /*+ cardinality( T 10 ) */ ((oeol.unit_selling_price*oeol.ordered_quantity)+nvl(oeol.tax_value,0)) payment_amount, oeoh.transactional_curr_code currency,
1821: oeoh.header_id
1815: l_is_authorized VARCHAR2(1);
1816:
1817: l_order_header_id_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
1818:
1819: cursor c_get_payment_amount(cv_order_header_id_tbl JTF_NUMBER_TABLE) IS
1820: SELECT /*+ cardinality( T 10 ) */ ((oeol.unit_selling_price*oeol.ordered_quantity)+nvl(oeol.tax_value,0)) payment_amount, oeoh.transactional_curr_code currency,
1821: oeoh.header_id
1822: FROM oe_order_headers_all oeoh, oe_order_Lines_all oeol,
1823: (SELECT * FROM TABLE (CAST(cv_order_header_id_tbl AS JTF_NUMBER_TABLE))) T
1819: cursor c_get_payment_amount(cv_order_header_id_tbl JTF_NUMBER_TABLE) IS
1820: SELECT /*+ cardinality( T 10 ) */ ((oeol.unit_selling_price*oeol.ordered_quantity)+nvl(oeol.tax_value,0)) payment_amount, oeoh.transactional_curr_code currency,
1821: oeoh.header_id
1822: FROM oe_order_headers_all oeoh, oe_order_Lines_all oeol,
1823: (SELECT * FROM TABLE (CAST(cv_order_header_id_tbl AS JTF_NUMBER_TABLE))) T
1824: WHERE oeoh.header_id = T.column_value
1825: AND oeoh.header_id = oeol.header_id;
1826:
1827: BEGIN
2553: l_api_name CONSTANT VARCHAR2(30) := 'set_enrq_payment_info';
2554: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
2555:
2556: lx_enrl_info Payment_info_Tbl_type;
2557: l_enrl_req_id_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
2558: l_order_header_id_tbl Payment_info_Tbl_type;
2559: l_enrl_req_rec PV_Pg_Enrl_Requests_PVT.enrl_request_rec_type;
2560: l_log_params_tbl pvx_utility_pvt.log_params_tbl_type;
2561: l_partner_id number;
2595:
2596: /* R12 Change
2597: * cursor c_get_order_id will return the transaction extension id
2598: */
2599: CURSOR c_get_order_id(cv_enrl_req_id JTF_NUMBER_TABLE) IS
2600: SELECT /*+ CARDINALITY(t 10) */ pver.order_header_id, pver.enrl_request_id,
2601: pver.object_version_number, pver.partner_id, pver.trxn_extension_id
2602: FROM PV_PG_ENRL_REQUESTS pver,
2603: (Select * from table (CAST(cv_enrl_req_id AS JTF_NUMBER_TABLE))) t
2599: CURSOR c_get_order_id(cv_enrl_req_id JTF_NUMBER_TABLE) IS
2600: SELECT /*+ CARDINALITY(t 10) */ pver.order_header_id, pver.enrl_request_id,
2601: pver.object_version_number, pver.partner_id, pver.trxn_extension_id
2602: FROM PV_PG_ENRL_REQUESTS pver,
2603: (Select * from table (CAST(cv_enrl_req_id AS JTF_NUMBER_TABLE))) t
2604: WHERE pver.enrl_request_id = t.column_value
2605: and pver.custom_setup_id in (7004, 7005)
2606: and pver.order_header_id is not null
2607: and pver.payment_status_code <> 'AUTHORIZED_PAYMENT';