52: -- to avoid FTS
53: -- Bug #3646157
54: --
55: cursor csr_system_name is select null
56: from hr_lookups lu, per_person_types pt
57: where pt.business_group_id = p_business_group_id
58: and lu.meaning = p_system_name
59: and lu.lookup_type = 'PERSON_TYPE'
60: and lu.lookup_code = pt.system_person_type
338: -- Suppression of BG index(+ 0) is removed
339: -- to avoid FTS
340: -- Bug #3646157
341: CURSOR C IS SELECT hr.meaning
342: from hr_lookups hr
343: WHERE hr.lookup_type = 'PERSON_TYPE'
344: and not exists
345: (select null
346: from per_person_types ppt
367: END Check_Delete;
368:
369: PROCEDURE Check_Default (X_Business_Group_Id IN NUMBER) IS
370: --
371: l_system_name_nodefault hr_lookups.meaning%TYPE;
372: l_system_name_default hr_lookups.meaning%TYPE;
373: --
374: -- Cursor to pull back all of the System Names that don't have a default
375: -- Person Type record.
368:
369: PROCEDURE Check_Default (X_Business_Group_Id IN NUMBER) IS
370: --
371: l_system_name_nodefault hr_lookups.meaning%TYPE;
372: l_system_name_default hr_lookups.meaning%TYPE;
373: --
374: -- Cursor to pull back all of the System Names that don't have a default
375: -- Person Type record.
376: --
379: -- Bug #3646157
380: --
381: CURSOR csr_nodefault IS
382: SELECT hr.meaning
383: FROM hr_lookups hr
384: WHERE hr.lookup_type = 'PERSON_TYPE'
385: AND EXISTS
386: (SELECT null
387: FROM per_person_types ppt
399: -- Bug #3646157
400: --
401: CURSOR csr_default IS
402: SELECT hr.meaning
403: FROM hr_lookups hr
404: WHERE hr.lookup_type = 'PERSON_TYPE'
405: AND EXISTS
406: (SELECT null
407: FROM per_person_types ppt