117: BEGIN
118: l_count := 1;
119: WHILE l_count > 0 LOOP
120: SELECT HZ_CONTACT_PREFERENCES_S.NEXTVAL
121: INTO X_CONTACT_PREFERENCE_ID FROM dual;
122: BEGIN
123: SELECT 'Y' INTO l_dummy
124: FROM HZ_CONTACT_PREFERENCES
125: WHERE CONTACT_PREFERENCE_ID = X_CONTACT_PREFERENCE_ID;