101: wf_purge.total (itemtype=> l_itemtype, itemkey=> l_itemkey, docommit=> FALSE);
102: END IF;
103: EXCEPTION
104: WHEN OTHERS THEN
105: WF_CORE.CONTEXT ('gm_wf_lot_expiry', 'init_wf', l_itemtype, l_itemkey, p_lot_no, p_sublot_no) ;
106: WF_CORE.GET_ERROR (l_errname, l_errmsg, l_errstack);
107: END;
108: /*END BUG#2134597*/
109:
102: END IF;
103: EXCEPTION
104: WHEN OTHERS THEN
105: WF_CORE.CONTEXT ('gm_wf_lot_expiry', 'init_wf', l_itemtype, l_itemkey, p_lot_no, p_sublot_no) ;
106: WF_CORE.GET_ERROR (l_errname, l_errmsg, l_errstack);
107: END;
108: /*END BUG#2134597*/
109:
110: BEGIN
276: WHEN wf_item_already_exists THEN
277: Null;
278: WHEN OTHERS THEN
279:
280: WF_CORE.CONTEXT ('gm_wf_lot_expiry',
281: 'init_wf',
282: l_itemtype,
283: l_itemkey,
284: p_lot_no,
282: l_itemtype,
283: l_itemkey,
284: p_lot_no,
285: p_sublot_no) ;
286: WF_CORE.GET_ERROR (l_errname, l_errmsg, l_errstack);
287:
288: END init_wf;
289:
290: PROCEDURE verify_expiry (