Line 5: SELECT CS_COVERED_PRODUCTS_S.nextval FROM SYS.DUAL;
1: PACKAGE BODY CS_COVEREDPRD_PVT AS
2: /* $Header: csctcprb.pls 115.1 99/07/16 08:50:50 porting ship $ */
3: FUNCTION get_seq_id RETURN NUMBER IS
4: CURSOR get_seq_id_csr IS 5: SELECT CS_COVERED_PRODUCTS_S.nextval FROM SYS.DUAL; 6: l_seq_id NUMBER := 0;
7: BEGIN
8: OPEN get_seq_id_csr;
9: FETCH get_seq_id_csr INTO l_seq_id;