[Home] [Help]
767: SELECT fnd_global.user_id
768: , FND_PROFILE.value('CONC_REQUEST_ID')
769: INTO l_user_id
770: , l_request_id
771: FROM DUAL;
772:
773: IF (l_debug = 1) THEN
774: mdebug('Got profile info user_id='||l_user_id||' request_id='||l_request_id , G_INFO);
775: END IF;
847: END IF;
848:
849: SELECT wms_license_plate_numbers_s1.NEXTVAL
850: INTO p_lpn_table(i).lpn_id
851: FROM DUAL;
852:
853: IF (l_debug = 1) THEN
854: mdebug('Created lpn_id='||p_lpn_table(i).lpn_id||' for LPN '||p_lpn_table(i).license_plate_number, G_INFO);
855: END IF;
1390:
1391: IF ( l_seq_source = l_from_db_seq ) THEN
1392: SELECT wms_license_plate_numbers_s2.NEXTVAL
1393: INTO l_curr_seq
1394: FROM DUAL;
1395: ELSIF ( l_seq_source = l_from_org ) THEN
1396: -- If taken from org parameters make sure the new seq is within the range
1397: -- already allocated, if not will need to allocate more
1398: IF ( l_curr_seq IS NULL OR l_curr_seq = l_last_org_seq ) THEN
3825: -- More than one LPN was requested to be generated
3826: -- Generate a process ID number to tell which LPN's were generated
3827: SELECT wms_lpn_process_temp_s.NEXTVAL
3828: INTO p_process_id
3829: FROM DUAL;
3830:
3831: -- transfer to LPN bulk record of tables
3832: l_lpn_bulk_rec := To_LPNBulkRecType(l_gen_lpn_tbl);
3833:
5035: -- Check to see if there are any items or child containers in soruce LPN
5036: IF ( NVL(p_auto_unnest_empty_lpns, 1) = 1 AND l_lpn_is_empty = 0 ) THEN
5037: BEGIN
5038: SELECT 0 INTO l_lpn_is_empty
5039: FROM dual
5040: WHERE EXISTS (
5041: SELECT 1 FROM wms_lpn_contents
5042: WHERE organization_id = p_organization_id
5043: AND parent_lpn_id = l_lpn.lpn_id )
5222: -- Check to see if there are any items or child containers in soruce LPN
5223: IF ( NVL(p_auto_unnest_empty_lpns, 1) = 1 AND l_lpn_is_empty = 0 ) THEN
5224: BEGIN
5225: SELECT 0 INTO l_lpn_is_empty
5226: FROM dual
5227: WHERE EXISTS (
5228: SELECT 1 FROM wms_lpn_contents
5229: WHERE organization_id = p_organization_id
5230: AND parent_lpn_id = l_lpn.lpn_id )
5411:
5412: IF ( empty_lpn_rec.parent_lpn_id IS NOT NULL ) THEN
5413: BEGIN
5414: SELECT 0 INTO l_lpn_is_empty
5415: FROM dual
5416: WHERE EXISTS (
5417: -- Check to make sure that the parent lpn has no items in it
5418: SELECT 1 FROM wms_lpn_contents
5419: WHERE organization_id = p_organization_id
6839: END IF;
6840:
6841: SELECT mtl_material_transactions_s.NEXTVAL
6842: INTO l_trx_header_id
6843: FROM DUAL;
6844:
6845: IF (l_debug = 1) THEN
6846: mdebug('trx header id for cartonization created: '|| TO_CHAR(l_trx_header_id), G_INFO);
6847: END IF;
6990:
6991: -- Generate a process ID number to to insert LPNs into process temp table
6992: SELECT wms_lpn_process_temp_s.NEXTVAL
6993: INTO l_process_id
6994: FROM DUAL;
6995:
6996: IF (l_debug = 1) THEN
6997: mdebug('created process id: '|| l_process_id, G_INFO);
6998: END IF;
7115: IF (p_source = 1) THEN
7116: -- if inventory prepack, trx header id required
7117: SELECT mtl_material_transactions_s.NEXTVAL
7118: INTO l_trx_header_id
7119: FROM DUAL;
7120:
7121: IF (l_debug = 1) THEN
7122: mdebug('trx header id created: '|| TO_CHAR(l_trx_header_id), G_INFO);
7123: END IF;
8217: invttmtx.tdatechk(p_organization_id, SYSDATE, v_acct_period_id, v_open_past_period);
8218:
8219: SELECT mtl_material_transactions_s.nextval
8220: INTO l_trx_hdr_id
8221: FROM DUAL;
8222:
8223: FOR Nested_LPN_rec IN Nested_LPN_cur LOOP
8224: -- Insert an 'UNPACK' transaction of child LPN from parent LPN into
8225: -- MTL_MATERIAL_TRANSACTIONS_TEMP using standard MMTT insert API
8258: IF ( LPN_item_cur%FOUND ) THEN
8259: -- Create new trx temp id
8260: SELECT mtl_material_transactions_s.nextval
8261: INTO l_trx_tmp_id
8262: FROM DUAL;
8263:
8264: -- Find the primary uom
8265: SELECT primary_uom_code
8266: INTO l_primary_uom
8494:
8495: -- Done with this item/revision/costgroup combo need new trx temp id
8496: SELECT mtl_material_transactions_s.nextval
8497: INTO l_trx_tmp_id
8498: FROM DUAL;
8499:
8500: -- If next record is for a new item need to find the primary uom
8501: IF ( l_crnt_item_rec.inventory_item_id <> l_next_item_rec.inventory_item_id ) THEN
8502: SELECT primary_uom_code
8619: END IF;
8620:
8621: SELECT mtl_material_transactions_s.nextval
8622: INTO l_trx_hdr_id
8623: FROM DUAL;
8624:
8625: --Every nested lpn will need to be deconsolidated from the outermost lpn,
8626: FOR lpn_rec IN nested_lpn_cursor LOOP
8627: -- Insert an 'UNPACK' transaction of child LPN from parent LPN into