[Home] [Help]
13: | |
14: | 26-OCT-97 R Chellam Created |
15: | 20-NOV-97 R Chellam Modified to deal only with PPOs |
16: | 14-MAY-98 T Ricci replaced sy_surg_ctl with nextval from |
17: | sys.dual for GEMMS 5.0 |
18: +----------------------------------------------------------------------------*/
19:
20: PROCEDURE next_bpo_id ( new_bpo_id OUT NOCOPY PO_BPOS_HDR.BPO_ID%TYPE,
21: p_orgn_code IN SY_ORGN_MST.ORGN_CODE%TYPE,
29: FOR UPDATE; */
30:
31: CURSOR NBPO_ID_CUR IS
32: SELECT GEM5_BPO_ID_s.nextval
33: FROM sys.dual;
34:
35: err_msg VARCHAR2(100);
36:
37: BEGIN
250: | 06/NOV/98 Tony Ricci removed call to GML_PO_SYNCH. |
251: | cpg_conv_duom and replaced with |
252: | GMICUOM.icuomcv which is the OPM |
253: | standard uom conversion |
254: | 28-JAN-99 T.Ricci check dualum_ind before calling |
255: | GMICUOM.icuomcv and remove nvl on |
256: | item_um2 before insert to |
257: | po_rels_schBUG#809339 |
258: | 15-MAY-2001 PKU Bug 1776328 - Contract dates for BPO|
321:
322: /* Cursor to select values from ic_item_mst */
323:
324: CURSOR item_cur (p_item_no IC_ITEM_MST.ITEM_NO%TYPE) IS
325: SELECT item_id, nvl(item_desc1,' '), item_um2, dualum_ind
326: FROM ic_item_mst
327: WHERE item_no = p_item_no;
328:
329: /* Cursor to select co_code */
343: v_bpo_line_no PO_BPOS_DTL.LINE_NO%TYPE;
344:
345: v_item_id IC_ITEM_MST.ITEM_ID%TYPE;
346: v_item_um2 IC_ITEM_MST.ITEM_UM%TYPE;
347: v_item_dualum_ind IC_ITEM_MST.DUALUM_IND%TYPE;
348:
349: v_item_desc IC_ITEM_MST.ITEM_DESC1%TYPE;
350: v_ship_vendor_id PO_VEND_MST.VENDOR_ID%TYPE;
351: v_pay_vendor_id PO_VEND_MST.VENDOR_ID%TYPE;
586: CLOSE bpo_id_cur;
587:
588: OPEN item_cur(int_rec.item_no);
589: FETCH item_cur
590: INTO v_item_id, v_item_desc, v_item_um2, v_item_dualum_ind;
591: CLOSE item_cur;
592:
593:
594: /* 11/6/1998 T. Ricci added*/
591: CLOSE item_cur;
592:
593:
594: /* 11/6/1998 T. Ricci added*/
595: IF v_item_dualum_ind > 0 THEN
596: GMICUOM.icuomcv
597: (v_item_id,0,
598: int_rec.order_qty1,
599: int_rec.order_um1,