56: RETURN NUMBER IS
57: PRAGMA AUTONOMOUS_TRANSACTION;
58:
59: BEGIN
60: UPDATE IC_ITEM_MST_B
61: set lot_suffix = p_suffix
62: where item_id = p_item_id;
63: COMMIT;
64: RETURN 0;
158:
159:
160: IS
161:
162: w_lot_ctl ic_item_mst_b.lot_ctl%TYPE;
163: w_sublot_ctl ic_item_mst_b.sublot_ctl%TYPE;
164: w_lot_cnt NUMBER;
165: w_next_lot NUMBER;
166: w_next_sublot NUMBER;
159:
160: IS
161:
162: w_lot_ctl ic_item_mst_b.lot_ctl%TYPE;
163: w_sublot_ctl ic_item_mst_b.sublot_ctl%TYPE;
164: w_lot_cnt NUMBER;
165: w_next_lot NUMBER;
166: w_next_sublot NUMBER;
167: x_found NUMBER;
168: w_lotpref_length NUMBER;
169: w_lotsuff_length NUMBER;
170: w_sub_pref_length NUMBER;
171: w_sub_suff_length NUMBER;
172: db_autolot_active ic_item_mst_b.autolot_active_indicator%TYPE;
173: db_lot_prefix ic_item_mst_b.lot_prefix%TYPE;
174: db_lot_suffix ic_item_mst_b.lot_suffix%TYPE;
175: w_pad_lot_suffix VARCHAR2(32);
176: db_sublot_prefix ic_item_mst_b.sublot_prefix%TYPE;
169: w_lotsuff_length NUMBER;
170: w_sub_pref_length NUMBER;
171: w_sub_suff_length NUMBER;
172: db_autolot_active ic_item_mst_b.autolot_active_indicator%TYPE;
173: db_lot_prefix ic_item_mst_b.lot_prefix%TYPE;
174: db_lot_suffix ic_item_mst_b.lot_suffix%TYPE;
175: w_pad_lot_suffix VARCHAR2(32);
176: db_sublot_prefix ic_item_mst_b.sublot_prefix%TYPE;
177: db_sublot_suffix ic_item_mst_b.sublot_suffix%TYPE;
170: w_sub_pref_length NUMBER;
171: w_sub_suff_length NUMBER;
172: db_autolot_active ic_item_mst_b.autolot_active_indicator%TYPE;
173: db_lot_prefix ic_item_mst_b.lot_prefix%TYPE;
174: db_lot_suffix ic_item_mst_b.lot_suffix%TYPE;
175: w_pad_lot_suffix VARCHAR2(32);
176: db_sublot_prefix ic_item_mst_b.sublot_prefix%TYPE;
177: db_sublot_suffix ic_item_mst_b.sublot_suffix%TYPE;
178: w_pad_sublot_suffix VARCHAR2(32);
172: db_autolot_active ic_item_mst_b.autolot_active_indicator%TYPE;
173: db_lot_prefix ic_item_mst_b.lot_prefix%TYPE;
174: db_lot_suffix ic_item_mst_b.lot_suffix%TYPE;
175: w_pad_lot_suffix VARCHAR2(32);
176: db_sublot_prefix ic_item_mst_b.sublot_prefix%TYPE;
177: db_sublot_suffix ic_item_mst_b.sublot_suffix%TYPE;
178: w_pad_sublot_suffix VARCHAR2(32);
179: db_next_sublot_suffix gmi_sublot_generate.next_sublot_suffix%TYPE;
180:
173: db_lot_prefix ic_item_mst_b.lot_prefix%TYPE;
174: db_lot_suffix ic_item_mst_b.lot_suffix%TYPE;
175: w_pad_lot_suffix VARCHAR2(32);
176: db_sublot_prefix ic_item_mst_b.sublot_prefix%TYPE;
177: db_sublot_suffix ic_item_mst_b.sublot_suffix%TYPE;
178: w_pad_sublot_suffix VARCHAR2(32);
179: db_next_sublot_suffix gmi_sublot_generate.next_sublot_suffix%TYPE;
180:
181: profile_user_routine NUMBER := 0;
218: CURSOR GET_ITEM_INFO IS
219: SELECT lot_ctl, sublot_ctl,
220: autolot_active_indicator, lot_prefix,
221: lot_suffix, sublot_prefix, sublot_suffix
222: FROM ic_item_mst_b
223: WHERE item_id = p_item_id;
224:
225: CURSOR GET_SUBLOT_INFO IS
226: SELECT next_sublot_suffix
528: RETURN NUMBER IS
529:
530: CURSOR GET_AUTOLOT_INFO IS
531: SELECT autolot_active_indicator
532: FROM ic_item_mst_b
533: WHERE item_id = p_item_id;
534:
535: w_autolot NUMBER;
536: