[Home] [Help]
84: l_rsv_old.inventory_item_id := p_starting_jobs_tbl(p_rep_job_index).primary_item_id;
85: l_rsv_old.organization_id := p_starting_jobs_tbl(p_rep_job_index).organization_id;
86: l_rsv_old.supply_source_type_id := 5; --MP Sale order changes
87:
88: If p_txn_header.transaction_type_id = WSMPCNST.UPDATE_ASSEMBLY then
89: --Write to WIE 'Note: Starting job is reserved against sales order(s). Update Assembly transaction
90: --will result in deletion of the starting job reservations
91: --Write warning into concurrent log
92: fnd_message.set_name('WSM','WSM_RSV_UPD_ASSY');
148: END IF;
149: end if;
150: end loop; --MP Delete Changes
151: end if; --MP Delete Changes :End of check on l_wsm_rsv_v_tbl.count > 0
152: Elsif p_txn_header.transaction_type_id = WSMPCNST.SPLIT then
153: --First query to check if any reservations asscoiated with the starting job in the calling pgm itself--
154: --Check if parent job is resulting job.
155: --If yes, then check if there is update of assembly.
156: --If yes, then write to WIE 'Note: Starting job is reserved against sales order(s).Update Assembly transaction will result in deletion of the starting job reservations'
359: end loop; --MP delete reservations loop
360: end if; --MP Delete Changes :End of check on l_wsm_rsv_v_tbl.count > 0
361:
362: End if;
363: Elsif p_txn_header.transaction_type_id = WSMPCNST.MERGE then
364: l_rj_index := p_resulting_jobs_tbl.first;
365: -- Check if parent rep job is resulting job.
366: --If yes, for each job having assembly same as resulting job and reservation exists, call transfer_reservation ( ) to tranfser reservation to the resulting job.
367: --Else, for each job having assembly same as resulting job and reservation exists, call transfer_reservation ( ) to transfer reservations to new resulting job.