[Home] [Help]
42: 70.4 12-JAN-93 SZWILLIA Removed insert into status
43: types from insert bg details.
44: 70.6 20-JAN-93 SZWILLIA Corrected error handling.
45: 70.7 26-JAN-93 SZWILLIA Changed INSERT into
46: PER_SECURITY_PROFILES.
47: 70.9 01-MAR-93 TMATHERS Added Procedure to execute
48: pre-delete checks(org_predel_check).
49: 70.10 01-MAR-93 TMATHERS Allowed user to delete a business group
50: if the only organization it contained
86: FND_PRODUCT_INSTALLATIONS.
87: -------------------------------------------------------------------------------
88: 70.25 04-AUG-93 TMATHERS removed reference to
89: product_security_type in
90: per_security_profiles.
91: 70.26 02-JUN-94 TMathers Added get_flex_msg as a result of
92: using FND PLSQL in PERORDOR.
93: 70.29 23-NOV-94 Rfine Suppressed index on business_group_id
94: 70.30 15-DEC-94 Rfine Added code to insert a row into
577: -- Oracle ID for the APPS account. This can be derived by looking in
578: -- fnd_oracle_userid f1r an oracle_username with oracle_id = 900
579: --
580: hr_utility.set_location('hr_organization.insert_bus_grp_details',8);
581: INSERT INTO per_security_profiles
582: (security_profile_id
583: ,business_group_id
584: ,include_top_organization_flag
585: ,include_top_position_flag
602: ,org_security_mode
603: ,restrict_on_individual_asg
604: ,top_organization_method
605: ,top_position_method)
606: SELECT decode(p_organization_id,0,0,per_security_profiles_s.nextval)
607: ,p_organization_id
608: ,'Y'
609: ,'Y'
610: ,hou.name
1267: end;
1268: --
1269: --
1270: begin
1271: -- Doing check on PER_SECURITY_PROFILES.
1272: hr_utility.set_location('hr_organization.hr_weak_bg_chk',5);
1273: select '1'
1274: into l_test_func
1275: from sys.dual
1273: select '1'
1274: into l_test_func
1275: from sys.dual
1276: where exists ( select 1
1277: from PER_SECURITY_PROFILES x
1278: where x.ORGANIZATION_ID = p_organization_id);
1279: --
1280: if SQL%ROWCOUNT >0 THEN
1281: hr_utility.set_message(801,'HR_6724_BG_SEC_PROF_EXIST');