670: CURSOR lot_status IS
671: SELECT
672: *
673: FROM
674: ic_lots_sts
675: WHERE
676: lot_status = p_cmp_tran_rec.lot_status;
677:
678: CURSOR summary_inv IS
687: OR qc_grade is NULL)
688: FOR UPDATE;
689:
690: -- Local variables
691: l_ic_lots_sts ic_lots_sts%ROWTYPE;
692: l_ic_summ_inv ic_summ_inv%ROWTYPE;
693: l_qty NUMBER := 0;
694: l_qty2 NUMBER := 0;
695: l_prod_qty NUMBER := 0;
704: -- Retrieve lot status indicators
705:
706: OPEN lot_status;
707:
708: FETCH lot_status INTO l_ic_lots_sts;
709: IF (lot_status%NOTFOUND)
710: THEN
711: l_ic_lots_sts.nettable_ind :=1;
712: l_ic_lots_sts.order_proc_ind :=1;
707:
708: FETCH lot_status INTO l_ic_lots_sts;
709: IF (lot_status%NOTFOUND)
710: THEN
711: l_ic_lots_sts.nettable_ind :=1;
712: l_ic_lots_sts.order_proc_ind :=1;
713: l_ic_lots_sts.prod_ind :=1;
714: l_ic_lots_sts.shipping_ind :=1;
715: END IF;
708: FETCH lot_status INTO l_ic_lots_sts;
709: IF (lot_status%NOTFOUND)
710: THEN
711: l_ic_lots_sts.nettable_ind :=1;
712: l_ic_lots_sts.order_proc_ind :=1;
713: l_ic_lots_sts.prod_ind :=1;
714: l_ic_lots_sts.shipping_ind :=1;
715: END IF;
716:
709: IF (lot_status%NOTFOUND)
710: THEN
711: l_ic_lots_sts.nettable_ind :=1;
712: l_ic_lots_sts.order_proc_ind :=1;
713: l_ic_lots_sts.prod_ind :=1;
714: l_ic_lots_sts.shipping_ind :=1;
715: END IF;
716:
717: CLOSE lot_status;
710: THEN
711: l_ic_lots_sts.nettable_ind :=1;
712: l_ic_lots_sts.order_proc_ind :=1;
713: l_ic_lots_sts.prod_ind :=1;
714: l_ic_lots_sts.shipping_ind :=1;
715: END IF;
716:
717: CLOSE lot_status;
718:
716:
717: CLOSE lot_status;
718:
719:
720: IF (l_ic_lots_sts.nettable_ind = 1)
721: THEN
722: l_qty := p_cmp_tran_rec.trans_qty;
723: l_qty2 := p_cmp_tran_rec.trans_qty2;
724: END IF;
722: l_qty := p_cmp_tran_rec.trans_qty;
723: l_qty2 := p_cmp_tran_rec.trans_qty2;
724: END IF;
725:
726: IF (l_ic_lots_sts.order_proc_ind = 1)
727: THEN
728: l_order_qty := p_cmp_tran_rec.trans_qty;
729: l_order_qty2 := p_cmp_tran_rec.trans_qty2;
730: END IF;
728: l_order_qty := p_cmp_tran_rec.trans_qty;
729: l_order_qty2 := p_cmp_tran_rec.trans_qty2;
730: END IF;
731:
732: IF (l_ic_lots_sts.prod_ind = 1)
733: THEN
734: l_prod_qty := p_cmp_tran_rec.trans_qty;
735: l_prod_qty2 := p_cmp_tran_rec.trans_qty2;
736: END IF;
734: l_prod_qty := p_cmp_tran_rec.trans_qty;
735: l_prod_qty2 := p_cmp_tran_rec.trans_qty2;
736: END IF;
737:
738: IF (l_ic_lots_sts.shipping_ind = 1)
739: THEN
740: l_ship_qty := p_cmp_tran_rec.trans_qty;
741: l_ship_qty2 := p_cmp_tran_rec.trans_qty2;
742: END IF;