[Home] [Help]
4753: /* if not exist, create a default trans for the new line_id */
4754: /* this would be just a place holder where trans_qty would be 0 */
4755: /* trans qty would be udpated when balance default lot is called */
4756: l_old_transaction_rec.trans_id := l_trans_id;
4757: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4758: (l_old_transaction_rec, l_old_transaction_rec )
4759: THEN
4760: l_new_transaction_rec := l_old_transaction_rec;
4761: l_new_transaction_rec.trans_id := NULL;
4798: EXIT WHEN c_reservations%NOTFOUND;
4799:
4800: l_old_transaction_rec.trans_id := l_trans_id;
4801:
4802: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4803: (l_old_transaction_rec, l_old_transaction_rec )
4804: THEN
4805: GMI_RESERVATION_UTIL.Println('got trans for trans_id '||l_trans_id);
4806: GMI_RESERVATION_UTIL.Println('l_qty_to_fulfil '||l_qty_to_fulfil);
4873: );
4874: IF l_trans_id > 0 THEN -- if it does not exist, don't bother
4875: l_old_transaction_rec.trans_id := l_trans_id;
4876:
4877: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4878: (l_old_transaction_rec, l_old_transaction_rec )
4879: THEN
4880: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for old source line_id '|| p_old_source_line_id);
4881: GMI_RESERVATION_UTIL.balance_default_lot
4902: IF l_trans_id > 0 AND p_new_source_line_id <> p_old_source_line_id
4903: THEN -- if it does not exist, don't bother
4904: l_old_transaction_rec.trans_id := l_trans_id;
4905:
4906: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4907: (l_old_transaction_rec, l_old_transaction_rec )
4908: THEN
4909: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for new source line_id '|| p_new_source_line_id);
4910: GMI_RESERVATION_UTIL.balance_default_lot
5017: END IF;
5018: CLOSE get_opm_txn_non_cntl;
5019: END IF;
5020:
5021: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
5022: (l_old_transaction_rec, l_old_transaction_rec ) THEN
5023:
5024: -- Update staged_ind
5025: l_old_transaction_rec.staged_ind :=1;