116: l_dummy NUMBER; -- Capture the exit condition for ID existence loop.
117:
118: CURSOR c_seq IS
119: SELECT ams_list_src_types_s.NEXTVAL
120: FROM dual;
121:
122: CURSOR c_id_exists (x_id IN NUMBER) IS
123: SELECT 1
124: FROM ams_list_src_types
1034: cursor c_viewname(code in varchar2) is
1035: SELECT length(nvl(TRANSLATE(code,
1036: '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_',
1037: ' '), 0))
1038: FROM DUAL;
1039: l_cnt NUMBER := 1;
1040:
1041: BEGIN
1042: