[Home] [Help]
30: IS
31: CURSOR ato_option_cur(p_ato_line_id in number) IS
32: SELECT oel.line_id
33: FROM mtl_system_items msi,
34: oe_order_lines_all oel
35: WHERE oel.ato_line_id = p_ato_line_id
36: AND oel.item_type_code = 'OPTION'
37: AND nvl(oel.cancelled_flag,'N') <> 'Y'
38: AND msi.inventory_item_id = oel.inventory_item_id
190:
191: -- create tld records with respect to the parent/child ratio
192: SELECT ordered_quantity
193: INTO l_parent_ord_qty
194: FROM oe_order_lines_all
195: WHERE line_id = p_order_line_rec.link_to_line_id;
196:
197: l_end_loop := l_parent_ord_qty;
198: l_quantity := p_order_line_rec.ordered_quantity/l_parent_ord_qty;
390:
391: SELECT transaction_line_id
392: INTO l_transaction_line_id
393: FROM csi_t_transaction_lines
394: WHERE source_transaction_table = 'OE_ORDER_LINES_ALL'
395: AND source_transaction_id = p_order_line_rec.order_line_id;
396:
397: SELECT sum(abs(quantity))
398: INTO l_total_tld_quantity
764: debug(' default sub_type_id: '||x_trx_sub_type_rec.sub_type_id );
765:
766: /* assign the parameter for txn_line_rec */
767: l_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
768: l_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
769:
770: -- Check if txn details exist
771: l_trx_detail_exist := csi_t_txn_details_grp.check_txn_details_exist(
772: p_txn_line_rec => l_txn_line_rec );
806: END IF;
807:
808: csi_utl_pkg.cascade_txn_dtls(
809: p_source_trx_id => l_order_line_rec.order_line_id,
810: p_source_trx_table => 'OE_ORDER_LINES_ALL',
811: p_ratio => l_qty_ratio,
812: x_return_status => x_return_status);
813:
814: IF x_return_status <> fnd_api.g_ret_sts_success THEN
852: debug(' No it is not. Copying installation details as WSH_DELIVERY_DETAILS.');
853:
854: --Parameters for the source order line
855: l_src_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
856: l_src_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
857:
858: --Parameters for the new source trx rec
859: l_new_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
860: l_new_txn_line_rec.source_transaction_table := 'WSH_DELIVERY_DETAILS';
932: raise fnd_api.g_exc_error;
933: END IF;
934:
935: l_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
936: l_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
937:
938: debug('check if installation details are cascaded from the model ?');
939:
940: -- Check if txn details exist
965: END IF;
966:
967: csi_utl_pkg.cascade_txn_dtls(
968: p_source_trx_id => l_order_line_rec.order_line_id,
969: p_source_trx_table => 'OE_ORDER_LINES_ALL',
970: p_ratio => l_qty_ratio ,
971: x_return_status => l_return_status );
972:
973: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1009: debug(' No it is not. Copying installation details as WSH_DELIVERY_DETAILS.');
1010:
1011: --Parameters for the source order line
1012: l_src_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
1013: l_src_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
1014:
1015: --Parameters for the new source trx rec
1016: l_new_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
1017: l_new_txn_line_rec.source_transaction_table := 'WSH_DELIVERY_DETAILS';
1089: l_order_line_rec.split_ord_line_id := l_split_ord_line_id;
1090:
1091: /* assign the parameter for txn_line_rec */
1092: l_copy_txn_line_rec.source_transaction_id := l_split_ord_line_id;
1093: l_copy_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
1094:
1095: debug('Check if copied installation details exist for the split order line?' );
1096:
1097: l_copy_trx_detail_exist := csi_t_txn_details_grp.check_txn_details_exist(
1104: /*------------------------------------------------------------------------*/
1105:
1106: --Parameters for the source transaction
1107: l_src_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
1108: l_src_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
1109:
1110: --Parameters for the destination trx rec
1111: l_new_txn_line_rec.source_transaction_id := l_split_ord_line_id;
1112: l_new_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
1108: l_src_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
1109:
1110: --Parameters for the destination trx rec
1111: l_new_txn_line_rec.source_transaction_id := l_split_ord_line_id;
1112: l_new_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
1113: l_new_txn_line_rec.source_transaction_type_id := g_txn_type_id;
1114: l_new_txn_line_rec.transaction_line_id := fnd_api.g_miss_num;
1115:
1116: debug(' No. So copying installation details for the split order line.' );
1778: to_char(null) ib_current_loc,
1779: to_number(null) ib_current_loc_id,
1780: ooh.order_source_id order_source_id -- Added for Siebel Genesis Project
1781: FROM oe_order_headers_all ooh,
1782: oe_order_lines_all ool,
1783: mtl_system_items msi,
1784: mtl_unit_transactions mut,
1785: mtl_material_transactions mmt,
1786: mtl_secondary_inventories msei,
1838: to_char(null) ib_current_loc,
1839: to_number(null) ib_current_loc_id,
1840: ooh.order_source_id order_source_id -- Added for Siebel Genesis Project
1841: FROM oe_order_headers_all ooh,
1842: oe_order_lines_all ool,
1843: mtl_system_items msi,
1844: mtl_unit_transactions mut,
1845: mtl_transaction_lot_numbers mtln,
1846: mtl_material_transactions mmt,
4229: l_party_site_id number;
4230: l_owner_party_id number;
4231: l_owner_account_id number;
4232:
4233: l_order_line_rec oe_order_lines_all%rowtype;
4234: l_order_header_rec oe_order_headers_all%rowtype;
4235:
4236: l_location_type_code varchar2(80);
4237: l_inst_object_ver_num number;
4266: FROM csi_item_instances
4267: WHERE instance_id = p_instance_id;
4268:
4269: SELECT * INTO l_order_line_rec
4270: FROM oe_order_lines_all
4271: WHERE line_id = p_line_id;
4272:
4273: SELECT * INTO l_order_header_rec
4274: FROM oe_order_headers_all
4794: l_order_quantity number;
4795: l_total_qty number := 0;
4796: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4797: l_literal1 VARCHAR2(30) := 'PROCESSED' ;
4798: l_literal2 VARCHAR2(30) := 'OE_ORDER_LINES_ALL' ;
4799: BEGIN
4800:
4801: x_return_status := fnd_api.g_ret_sts_success;
4802: api_log('proc_for_last_mtl_trx');
4958: l_config_rec.item_id,
4959: l_config_rec.ship_organization_id,
4960: l_config_rec.order_quantity,
4961: l_config_rec.split_from_line_id
4962: FROM oe_order_lines_all oel
4963: WHERE oel.header_id = p_order_line_rec.header_id
4964: AND oel.link_to_line_id = p_order_line_rec.ato_line_id
4965: AND oel.item_type_code = 'CONFIG';
4966: EXCEPTION
4976: l_config_rec.item_id,
4977: l_config_rec.ship_organization_id,
4978: l_config_rec.order_quantity,
4979: l_config_rec.split_from_line_id
4980: FROM oe_order_lines_all oel
4981: WHERE oel.header_id = p_order_line_rec.header_id
4982: AND oel.link_to_line_id = p_order_line_rec.ato_line_id
4983: AND oel.item_type_code = 'CONFIG'
4984: AND oel.split_from_line_id is null;