[Home] [Help]
822: SELECT fnd_global.user_id
823: , FND_PROFILE.value('CONC_REQUEST_ID')
824: INTO l_user_id
825: , l_request_id
826: FROM DUAL;
827:
828: IF (l_debug = 1) THEN
829: mdebug('Got profile info user_id='||l_user_id||' request_id='||l_request_id , G_INFO);
830: END IF;
902: END IF;
903:
904: SELECT wms_license_plate_numbers_s1.NEXTVAL
905: INTO p_lpn_table(i).lpn_id
906: FROM DUAL;
907:
908: IF (l_debug = 1) THEN
909: mdebug('Created lpn_id='||p_lpn_table(i).lpn_id||' for LPN '||p_lpn_table(i).license_plate_number, G_INFO);
910: END IF;
1565:
1566: IF ( l_seq_source = l_from_db_seq ) THEN
1567: SELECT wms_license_plate_numbers_s2.NEXTVAL
1568: INTO l_curr_seq
1569: FROM DUAL;
1570: ELSIF ( l_seq_source = l_from_client ) THEN
1571: -- If taken from client parameters make sure the new seq is within the range
1572: -- already allocated, if not will need to allocate more
1573: IF ( l_curr_seq IS NULL OR l_curr_seq = l_last_client_seq ) THEN
4268: -- More than one LPN was requested to be generated
4269: -- Generate a process ID number to tell which LPN's were generated
4270: SELECT wms_lpn_process_temp_s.NEXTVAL
4271: INTO p_process_id
4272: FROM DUAL;
4273:
4274: -- transfer to LPN bulk record of tables
4275: l_lpn_bulk_rec := To_LPNBulkRecType(l_gen_lpn_tbl);
4276:
5508: -- Check to see if there are any items or child containers in soruce LPN
5509: IF ( NVL(p_auto_unnest_empty_lpns, 1) = 1 AND l_lpn_is_empty = 0 ) THEN
5510: BEGIN
5511: SELECT 0 INTO l_lpn_is_empty
5512: FROM dual
5513: WHERE EXISTS (
5514: SELECT 1 FROM wms_lpn_contents
5515: WHERE organization_id = p_organization_id
5516: AND parent_lpn_id = l_lpn.lpn_id )
5743: -- Check to see if there are any items or child containers in soruce LPN
5744: IF ( NVL(p_auto_unnest_empty_lpns, 1) = 1 AND l_lpn_is_empty = 0 ) THEN
5745: BEGIN
5746: SELECT 0 INTO l_lpn_is_empty
5747: FROM dual
5748: WHERE EXISTS (
5749: SELECT 1 FROM wms_lpn_contents
5750: WHERE organization_id = p_organization_id
5751: AND parent_lpn_id = l_lpn.lpn_id )
5936:
5937: IF ( empty_lpn_rec.parent_lpn_id IS NOT NULL ) THEN
5938: BEGIN
5939: SELECT 0 INTO l_lpn_is_empty
5940: FROM dual
5941: WHERE EXISTS (
5942: -- Check to make sure that the parent lpn has no items in it
5943: SELECT 1 FROM wms_lpn_contents
5944: WHERE organization_id = p_organization_id
7399: END IF;
7400:
7401: SELECT mtl_material_transactions_s.NEXTVAL
7402: INTO l_trx_header_id
7403: FROM DUAL;
7404:
7405: IF (l_debug = 1) THEN
7406: mdebug('trx header id for cartonization created: '|| TO_CHAR(l_trx_header_id), G_INFO);
7407: END IF;
7550:
7551: -- Generate a process ID number to to insert LPNs into process temp table
7552: SELECT wms_lpn_process_temp_s.NEXTVAL
7553: INTO l_process_id
7554: FROM DUAL;
7555:
7556: IF (l_debug = 1) THEN
7557: mdebug('created process id: '|| l_process_id, G_INFO);
7558: END IF;
7675: IF (p_source = 1) THEN
7676: -- if inventory prepack, trx header id required
7677: SELECT mtl_material_transactions_s.NEXTVAL
7678: INTO l_trx_header_id
7679: FROM DUAL;
7680:
7681: IF (l_debug = 1) THEN
7682: mdebug('trx header id created: '|| TO_CHAR(l_trx_header_id), G_INFO);
7683: END IF;
8788: invttmtx.tdatechk(p_organization_id, SYSDATE, v_acct_period_id, v_open_past_period);
8789:
8790: SELECT mtl_material_transactions_s.nextval
8791: INTO l_trx_hdr_id
8792: FROM DUAL;
8793:
8794: FOR Nested_LPN_rec IN Nested_LPN_cur LOOP
8795: -- Insert an 'UNPACK' transaction of child LPN from parent LPN into
8796: -- MTL_MATERIAL_TRANSACTIONS_TEMP using standard MMTT insert API
8829: IF ( LPN_item_cur%FOUND ) THEN
8830: -- Create new trx temp id
8831: SELECT mtl_material_transactions_s.nextval
8832: INTO l_trx_tmp_id
8833: FROM DUAL;
8834:
8835: -- Find the primary uom
8836: SELECT primary_uom_code
8837: INTO l_primary_uom
9067:
9068: -- Done with this item/revision/costgroup combo need new trx temp id
9069: SELECT mtl_material_transactions_s.nextval
9070: INTO l_trx_tmp_id
9071: FROM DUAL;
9072:
9073: -- If next record is for a new item need to find the primary uom
9074: IF ( l_crnt_item_rec.inventory_item_id <> l_next_item_rec.inventory_item_id ) THEN
9075: SELECT primary_uom_code
9192: END IF;
9193:
9194: SELECT mtl_material_transactions_s.nextval
9195: INTO l_trx_hdr_id
9196: FROM DUAL;
9197:
9198: --Every nested lpn will need to be deconsolidated from the outermost lpn,
9199: FOR lpn_rec IN nested_lpn_cursor LOOP
9200: -- Insert an 'UNPACK' transaction of child LPN from parent LPN into