[Home] [Help]
4741: /* if not exist, create a default trans for the new line_id */
4742: /* this would be just a place holder where trans_qty would be 0 */
4743: /* trans qty would be udpated when balance default lot is called */
4744: l_old_transaction_rec.trans_id := l_trans_id;
4745: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4746: (l_old_transaction_rec, l_old_transaction_rec )
4747: THEN
4748: l_new_transaction_rec := l_old_transaction_rec;
4749: l_new_transaction_rec.trans_id := NULL;
4786: EXIT WHEN c_reservations%NOTFOUND;
4787:
4788: l_old_transaction_rec.trans_id := l_trans_id;
4789:
4790: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4791: (l_old_transaction_rec, l_old_transaction_rec )
4792: THEN
4793: GMI_RESERVATION_UTIL.Println('got trans for trans_id '||l_trans_id);
4794: GMI_RESERVATION_UTIL.Println('l_qty_to_fulfil '||l_qty_to_fulfil);
4861: );
4862: IF l_trans_id > 0 THEN -- if it does not exist, don't bother
4863: l_old_transaction_rec.trans_id := l_trans_id;
4864:
4865: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4866: (l_old_transaction_rec, l_old_transaction_rec )
4867: THEN
4868: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for old source line_id '|| p_old_source_line_id);
4869: GMI_RESERVATION_UTIL.balance_default_lot
4890: IF l_trans_id > 0 AND p_new_source_line_id <> p_old_source_line_id
4891: THEN -- if it does not exist, don't bother
4892: l_old_transaction_rec.trans_id := l_trans_id;
4893:
4894: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4895: (l_old_transaction_rec, l_old_transaction_rec )
4896: THEN
4897: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for new source line_id '|| p_new_source_line_id);
4898: GMI_RESERVATION_UTIL.balance_default_lot
5005: END IF;
5006: CLOSE get_opm_txn_non_cntl;
5007: END IF;
5008:
5009: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
5010: (l_old_transaction_rec, l_old_transaction_rec ) THEN
5011:
5012: -- Update staged_ind
5013: l_old_transaction_rec.staged_ind :=1;