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,
22: v_next_id_status OUT NOCOPY BOOLEAN)
23: IS
24:
25: /* CURSOR NBPO_ID_CUR IS
327: WHERE item_no = p_item_no;
328:
329: /* Cursor to select co_code */
330:
331: CURSOR co_code_cur (p_orgn_code SY_ORGN_MST.ORGN_CODE%TYPE) IS
332: SELECT co_code
333: FROM sy_orgn_mst
334: WHERE orgn_code = p_orgn_code;
335:
329: /* Cursor to select co_code */
330:
331: CURSOR co_code_cur (p_orgn_code SY_ORGN_MST.ORGN_CODE%TYPE) IS
332: SELECT co_code
333: FROM sy_orgn_mst
334: WHERE orgn_code = p_orgn_code;
335:
336: v_po_status NUMBER;
337: v_order2 NUMBER;