[Home] [Help]
138:
139:
140: CURSOR C_Get_Pri_Int_Code(c_interest_type_id Number) IS
141: select B.interest_code_id, TL.code, TL.description,B.enabled_flag
142: from as_interest_codes_b B, as_interest_codes_tl TL
143: where B.interest_code_id = TL.interest_code_id
144: and TL.language = userenv('LANG')
145: and B.interest_type_id = c_interest_type_id
146: and B.parent_interest_code_id is null;
146: and B.parent_interest_code_id is null;
147:
148: CURSOR C_Get_Sec_Int_Code(c_interest_code_id Number) IS
149: select B.interest_code_id, TL.code, TL.description,B.enabled_flag
150: from as_interest_codes_b B, as_interest_codes_tl TL
151: where B.interest_code_id = TL.interest_code_id
152: and TL.language = userenv('LANG')
153: and B.parent_interest_code_id = c_interest_code_id;
154:
298: GOTO end_loop2;
299: end if;
300:
301: -- Update the mapping between primary interest code and product category
302: Update AS_INTEREST_CODES_B set product_category_id = l_pri_int_code_cat_id, product_cat_set_id = l_category_set_id where interest_code_id = scr2.interest_code_id;
303:
304: -- For each secondary interest code corresponding to selected primary interest code
305: FOR scr3 in C_Get_Sec_Int_Code(scr2.interest_code_id)
306: LOOP
336: GOTO end_loop3;
337: end if;
338:
339: -- Update the mapping between secondary interest code and product category
340: Update AS_INTEREST_CODES_B set product_category_id = l_sec_int_code_cat_id, product_cat_set_id = l_category_set_id where interest_code_id = scr3.interest_code_id;
341: <
342: NULL;
343: END LOOP;
344: <