1: PACKAGE BODY gmi_wf_lot_expiry AS
2: /* $Header: gmiltexb.pls 115.4 2003/10/16 15:20:41 hsaleeb ship $ */
3:
4: PROCEDURE init_wf (
5: /* called via trigger on ic_lots_mst */
6: p_lot_id IN ic_lots_mst.lot_id%TYPE ,
7: p_lot_no IN ic_lots_mst.lot_no%TYPE ,
8: p_sublot_no IN ic_lots_mst.sublot_no%TYPE ,
9: p_expire_date IN ic_lots_mst.expire_date%TYPE ,
2: /* $Header: gmiltexb.pls 115.4 2003/10/16 15:20:41 hsaleeb ship $ */
3:
4: PROCEDURE init_wf (
5: /* called via trigger on ic_lots_mst */
6: p_lot_id IN ic_lots_mst.lot_id%TYPE ,
7: p_lot_no IN ic_lots_mst.lot_no%TYPE ,
8: p_sublot_no IN ic_lots_mst.sublot_no%TYPE ,
9: p_expire_date IN ic_lots_mst.expire_date%TYPE ,
10: p_item_id IN ic_lots_mst.item_id%TYPE ,
3:
4: PROCEDURE init_wf (
5: /* called via trigger on ic_lots_mst */
6: p_lot_id IN ic_lots_mst.lot_id%TYPE ,
7: p_lot_no IN ic_lots_mst.lot_no%TYPE ,
8: p_sublot_no IN ic_lots_mst.sublot_no%TYPE ,
9: p_expire_date IN ic_lots_mst.expire_date%TYPE ,
10: p_item_id IN ic_lots_mst.item_id%TYPE ,
11: p_created_by IN ic_lots_mst.created_by%TYPE
4: PROCEDURE init_wf (
5: /* called via trigger on ic_lots_mst */
6: p_lot_id IN ic_lots_mst.lot_id%TYPE ,
7: p_lot_no IN ic_lots_mst.lot_no%TYPE ,
8: p_sublot_no IN ic_lots_mst.sublot_no%TYPE ,
9: p_expire_date IN ic_lots_mst.expire_date%TYPE ,
10: p_item_id IN ic_lots_mst.item_id%TYPE ,
11: p_created_by IN ic_lots_mst.created_by%TYPE
12: )
5: /* called via trigger on ic_lots_mst */
6: p_lot_id IN ic_lots_mst.lot_id%TYPE ,
7: p_lot_no IN ic_lots_mst.lot_no%TYPE ,
8: p_sublot_no IN ic_lots_mst.sublot_no%TYPE ,
9: p_expire_date IN ic_lots_mst.expire_date%TYPE ,
10: p_item_id IN ic_lots_mst.item_id%TYPE ,
11: p_created_by IN ic_lots_mst.created_by%TYPE
12: )
13:
6: p_lot_id IN ic_lots_mst.lot_id%TYPE ,
7: p_lot_no IN ic_lots_mst.lot_no%TYPE ,
8: p_sublot_no IN ic_lots_mst.sublot_no%TYPE ,
9: p_expire_date IN ic_lots_mst.expire_date%TYPE ,
10: p_item_id IN ic_lots_mst.item_id%TYPE ,
11: p_created_by IN ic_lots_mst.created_by%TYPE
12: )
13:
14: IS
7: p_lot_no IN ic_lots_mst.lot_no%TYPE ,
8: p_sublot_no IN ic_lots_mst.sublot_no%TYPE ,
9: p_expire_date IN ic_lots_mst.expire_date%TYPE ,
10: p_item_id IN ic_lots_mst.item_id%TYPE ,
11: p_created_by IN ic_lots_mst.created_by%TYPE
12: )
13:
14: IS
15:
300: l_count_lots_mst NUMBER := 0;
301: l_sum_loct_onhand ic_loct_inv.loct_onhand%TYPE := 0 ;
302: l_sum_loct_onhand2 ic_loct_inv.loct_onhand2%TYPE := 0 ;
303:
304: l_lot_id ic_lots_mst.lot_id%TYPE := TO_NUMBER(LTRIM(p_itemkey, 'EX')) ;
305: l_lot_no ic_lots_mst.lot_no%TYPE ;
306: l_sublot_no ic_lots_mst.sublot_no%TYPE ;
307:
308: l_sqlcode NUMBER;
301: l_sum_loct_onhand ic_loct_inv.loct_onhand%TYPE := 0 ;
302: l_sum_loct_onhand2 ic_loct_inv.loct_onhand2%TYPE := 0 ;
303:
304: l_lot_id ic_lots_mst.lot_id%TYPE := TO_NUMBER(LTRIM(p_itemkey, 'EX')) ;
305: l_lot_no ic_lots_mst.lot_no%TYPE ;
306: l_sublot_no ic_lots_mst.sublot_no%TYPE ;
307:
308: l_sqlcode NUMBER;
309: l_sqlerrm VARCHAR2(512);
302: l_sum_loct_onhand2 ic_loct_inv.loct_onhand2%TYPE := 0 ;
303:
304: l_lot_id ic_lots_mst.lot_id%TYPE := TO_NUMBER(LTRIM(p_itemkey, 'EX')) ;
305: l_lot_no ic_lots_mst.lot_no%TYPE ;
306: l_sublot_no ic_lots_mst.sublot_no%TYPE ;
307:
308: l_sqlcode NUMBER;
309: l_sqlerrm VARCHAR2(512);
310: l_errname VARCHAR2(30);
318: IF (p_funcmode = 'RUN') THEN
319:
320: SELECT COUNT(*)
321: INTO l_count_lots_mst
322: FROM ic_lots_mst
323: WHERE lot_id = l_lot_id
324: AND delete_mark = 0 ;
325:
326: IF (l_count_lots_mst <> 1) THEN