493: END v_ship_vendor;
494:
495:
496: FUNCTION v_lot_status
497: (p_lot_status IN ic_lots_sts.lot_status%TYPE
498: ,x_ic_lots_sts_row OUT NOCOPY ic_lots_sts%ROWTYPE
499: )
500: RETURN BOOLEAN
501: IS
494:
495:
496: FUNCTION v_lot_status
497: (p_lot_status IN ic_lots_sts.lot_status%TYPE
498: ,x_ic_lots_sts_row OUT NOCOPY ic_lots_sts%ROWTYPE
499: )
500: RETURN BOOLEAN
501: IS
502: BEGIN
499: )
500: RETURN BOOLEAN
501: IS
502: BEGIN
503: x_ic_lots_sts_row.lot_status := p_lot_status;
504: IF GMIVDBL.ic_lots_sts_select(x_ic_lots_sts_row, x_ic_lots_sts_row)
505: THEN
506: IF x_ic_lots_sts_row.delete_mark = 0
507: THEN
500: RETURN BOOLEAN
501: IS
502: BEGIN
503: x_ic_lots_sts_row.lot_status := p_lot_status;
504: IF GMIVDBL.ic_lots_sts_select(x_ic_lots_sts_row, x_ic_lots_sts_row)
505: THEN
506: IF x_ic_lots_sts_row.delete_mark = 0
507: THEN
508: RETURN TRUE;
502: BEGIN
503: x_ic_lots_sts_row.lot_status := p_lot_status;
504: IF GMIVDBL.ic_lots_sts_select(x_ic_lots_sts_row, x_ic_lots_sts_row)
505: THEN
506: IF x_ic_lots_sts_row.delete_mark = 0
507: THEN
508: RETURN TRUE;
509: END IF;
510: END IF;