[Home] [Help]
73:
74: IF g_rcv_global_var.transaction_header_id IS NULL THEN
75: SELECT mtl_material_transactions_s.NEXTVAL
76: INTO g_rcv_global_var.transaction_header_id
77: FROM DUAL;
78: END IF;
79:
80: gen_txn_group_id;
81:
1212: l_mtlt_rec.secondary_quantity := l_new_secondary_quantity;
1213:
1214: SELECT mtl_material_transactions_s.NEXTVAL
1215: INTO l_mtlt_rec.serial_transaction_temp_id
1216: FROM DUAL;
1217:
1218: l_mtlt_rec.transaction_quantity := l_transaction_quantity * l_new_primary_quantity / l_primary_quantity;
1219: insert_mtlt(l_mtlt_rec); -- insert one line with new quantity and new txn_id
1220: l_tran_rec_tb(1).transaction_id := l_mtlt_rec.serial_transaction_temp_id;
3056: l_lpn_loaded := 0;
3057: BEGIN
3058: SELECT 1
3059: INTO l_lpn_loaded
3060: FROM DUAL
3061: WHERE EXISTS(
3062: SELECT 1
3063: FROM wms_dispatched_tasks wdt, mtl_txn_request_lines mtrl
3064: WHERE wdt.move_order_line_id = mtrl.line_id
3107: IF l_restrict_sub_code = 1 THEN -- item restricted to predefined subs
3108: BEGIN
3109: SELECT 1
3110: INTO l_dummy
3111: FROM DUAL
3112: WHERE EXISTS(
3113: SELECT 1
3114: FROM mtl_item_sub_inventories mis
3115: WHERE mis.organization_id = p_organization_id
3130: ELSE -- item not under subinventory restrictions.
3131: BEGIN
3132: SELECT 1
3133: INTO l_dummy
3134: FROM DUAL
3135: WHERE EXISTS(
3136: SELECT 1
3137: FROM mtl_secondary_inventories msi
3138: WHERE msi.organization_id = p_organization_id
3159: -- item under restricted locator control
3160: BEGIN
3161: SELECT 1
3162: INTO l_dummy
3163: FROM DUAL
3164: WHERE EXISTS(
3165: SELECT 1
3166: FROM mtl_secondary_locators msl
3167: WHERE msl.organization_id = p_organization_id
3195: ELSE -- item not under restricted locator control
3196: BEGIN
3197: SELECT 1
3198: INTO l_dummy
3199: FROM DUAL
3200: WHERE EXISTS(
3201: SELECT 1
3202: FROM mtl_item_locations mil
3203: WHERE mil.organization_id = p_organization_id
3439: ELSE
3440: IF p_transaction_temp_id IS NULL THEN
3441: SELECT mtl_material_transactions_s.NEXTVAL
3442: INTO p_transaction_temp_id
3443: FROM DUAL;
3444: END IF;
3445:
3446: l_progress := '20';
3447: l_return :=
3588: l_progress := '40';
3589:
3590: SELECT mtl_material_transactions_s.NEXTVAL
3591: INTO p_serial_transaction_temp_id
3592: FROM DUAL;
3593:
3594: l_progress := '50';
3595: END IF;
3596:
4885: IF p_document_type = 'INTSHIP' THEN
4886: BEGIN
4887: SELECT 'Y'
4888: INTO l_rcvreq_use_intship
4889: FROM dual
4890: WHERE EXISTS ( SELECT 1
4891: FROM rcv_shipment_lines
4892: WHERE shipment_header_id = l_shipment_header_id
4893: AND requisition_line_id IS NOT NULL
5742:
5743: BEGIN
5744: SELECT '1'
5745: INTO l_txn_cnt
5746: FROM DUAL
5747: WHERE EXISTS(
5748: SELECT '1'
5749: FROM mtl_serial_numbers
5750: WHERE inventory_item_id = p_inventory_item_id
6134: BEGIN
6135: IF g_rcv_global_var.interface_group_id IS NULL THEN
6136: SELECT rcv_interface_groups_s.NEXTVAL
6137: INTO g_rcv_global_var.interface_group_id
6138: FROM DUAL;
6139: END IF;
6140: END gen_txn_group_id;
6141:
6142: PROCEDURE validate_trx_date(