229: IS
230: CURSOR C_Prim_Int_Code_Exists (X_Int_Code_Id NUMBER,
231: X_Int_Type_Id NUMBER) IS
232: SELECT 'X'
233: FROM As_Interest_Codes_B Pic
234: WHERE Pic.Interest_Type_Id = X_Int_Type_Id
235: and Pic.Interest_Code_Id = X_Int_Code_Id
236: and Pic.Parent_Interest_Code_Id Is Null
237: -- ffang 012501
291: IS
292: CURSOR C_Sec_Int_Code_Exists (X_Sec_Int_Code_Id NUMBER,
293: X_Int_Code_Id NUMBER, X_Int_Type_Id NUMBER) IS
294: SELECT 'X'
295: FROM As_Interest_Codes_B Sic
296: WHERE Sic.Interest_Type_Id = X_Int_Type_Id
297: And Sic.Interest_Code_Id = X_Sec_Int_Code_Id
298: And Sic.Parent_Interest_Code_Id = X_Int_Code_Id
299: -- ffang 012501